Unexpected error in stored procedure

Question

Howdy group...
I have a stored procedure in Oracle;
p_BILL_TO_ADDRESS1 IN CONT_ADDRESS.ADDRESS1%TYPE
Default NULL, --VC(50)
With a condition;
IF p_BILL_TO_ADDRESS1 is NULL THEN
Raise_Application_Error(-20100,'BILL TO Address cannot be a NULL Value');
END IF;
I have some PHP code that tries to insert the data;
$addr = '1234 Main';
$sth = oci_parse($conn, "begin D_ACCT_NEW(:p_BILL_TO_ADDRESS1, :P_Error_Return );end;");
oci_bind_by_name($sth, ":p_BILL_TO_ADDRESS1", $addr, -1);
oci_bind_by_name($sth, ":P_Error_Return", $errorcode, -1); oci_execute($sth);
echo $errorcode;
And I always get the following error;
Warning: oci_execute() [function.oci-execute]: ORA-06502: PL/SQL:
numeric or value error ORA-06512: at "SYSADM.D_ACCT_NEW", line 483
ORA-20100: BILL TO Address cannot be a NULL Value ORA-06512: at line 1 in /home/foo/bar/glorp.php on line 25
If anyone on the list understands the intricacies of Oracle, could you sooth my aching head and help me to understand what is going on here? I have RTFM and the following article from the PHP Oracle Cookbook;
http://www.oracle.com/technology/pub/articles/oracle_php_cookbook/fuecks_sps.html
;and I still am clueless. Thanks a million in advance!
null

Answer 1

Here is the entire procedure. This is developed by a third party and I cannot chnage it, I just need to be able to write PHP to interact with it. Thanks for your help on this.
create or replace Procedure D_ACCT_NEW
-- Return Parameters
p_Return OUT Varchar2,                -- CONTRACT_ID
P_Error_Return OUT Varchar2,                -- Error Message if any
-- Input Parameters
p_USERNAME IN CONT_CUST.ENTRY_BY%TYPE Default NULL, --VC(40)
p_ALT_ACCOUNT_NO IN CONT_CUST.ALT_ACCOUNT_NO%TYPE Default NULL, -- N/A
p_ALT_SUB_ACCOUNT_ID IN CONT_CUST.ALT_SUB_ACCOUNT_ID%TYPE Default NULL, -- N/A)
p_PARENT_CONTRACT_ID IN CONT_CUST.PARENT_CONTRACT_ID%TYPE Default NULL,
-- Contact Data
p_CUST_TYPE IN CUSTOMERS_INFO.CUST_TYPE%TYPE Default NULL, --VC(1)  I/B
p_CONTACT_F_NAME IN CUSTOMERS_INFO.FIRST_NAME%TYPE           Default NULL, --VC(100)
p_CONTACT_L_NAME IN CUSTOMERS_INFO.LAST_NAME%TYPE           Default NULL, --VC(100)
p_CONTACT_MIDDLE_INITIAL IN CUSTOMERS_INFO.MIDDLE_INIT%TYPE      Default NULL, --VC(10)
p_CONTACT_TITLE IN CUSTOMERS_INFO.NAME_TITLE%TYPE           Default NULL, --VC(10)
P_CONTACT_SUFFIX IN CUSTOMERS_INFO.NAME_SUFFIX%TYPE      Default NULL, --VC(10)
p_COMPANY_NAME IN CUSTOMERS_INFO.COMPANY_NAME%TYPE      Default NULL, --VC(50)
p_HOME_PHONE_NUM IN CUSTOMERS_INFO.HOME_PHONE_NUM%TYPE Default NULL, --VC(25)
p_BUSINESS_PHONE_NUM IN CUSTOMERS_INFO.BUSINESS_PHONE_NUM%TYPE Default NULL, --vn(25)
p_COUNTRY_ID IN CUSTOMERS_INFO.COUNTRY_ID%TYPE Default NULL, --VN(4,0)
p_EMAIL_ADDRESS IN CUSTOMERS_INFO.EMAIL_ADDRESS%TYPE      Default NULL, --VC(50)
P_Contact_Name1 IN CUSTOMERS_INFO.other_field1%TYPE Default NULL,
P_Contact_Name2 IN CUSTOMERS_INFO.other_field2%TYPE Default NULL,
P_Contact_Name3 IN CUSTOMERS_INFO.other_field3%TYPE Default NULL,
-- Bill To Data
p_BILL_TO_NAME IN CONT_ADDRESS.NAME%TYPE                Default NULL, --VC(50)
p_BILL_TO_ADDRESS1 IN CONT_ADDRESS.ADDRESS1%TYPE           Default NULL, --VC(50)
p_BILL_TO_ADDRESS2 IN CONT_ADDRESS.ADDRESS2%TYPE           Default NULL, --VC(50)
p_BILL_TO_CITY IN CONT_ADDRESS.CITY%TYPE                Default NULL, --VC(50)
p_Bill_To_County IN CONT_ADDRESS.COUNTY%TYPE Default NULL, --VC(50)
p_BILL_TO_STATE IN CONT_ADDRESS.STATE%TYPE Default NULL, --VC(25)
p_BILL_TO_ZIP IN CONT_ADDRESS.POSTAL_CODE%TYPE Default NULL, --VC(20)
p_BILL_TO_COUNTRY IN CONT_ADDRESS.COUNTRY%TYPE           Default NULL, --VC(50)
p_BILL_TO_GEOCODE IN CONT_ADDRESS.GEOCODE%TYPE           Default NULL, --VC(15)
p_BILL_TO_BUS_OR_RES_FLAG IN CONT_ADDRESS.BUS_OR_RES_FLAG%TYPE Default NULL, --VC(1)
p_BILL_TO_INSIDE_CORP_FLAG IN CONT_ADDRESS.INSIDE_CORP_FLAG%TYPE Default NULL, --VC(1)
p_TAX_REGION_ID IN CONT_CUST.TAX_REGION_ID%TYPE Default NULL, --VN(10,0)
-- Credit Score Data
p_SOC_SEC_NUM            IN CUSTOMERS_INFO.SOC_SEC_NUM%TYPE                Default NULL,  VC(20)
p_ID_OR_DANDB_TYPE IN CUSTOMERS_INFO.ID_METHOD%TYPE           Default NULL, --VC(50)
p_ID_REGION IN CUSTOMERS_INFO.ID_REGION%TYPE           Default NULL, --VC(25)
p_ID_OR_DANB_NO          IN CUSTOMERS_INFO.IDENTIFICATION_NO%TYPE          Default NULL,  VC(25)
p_TAX_ID IN CUSTOMERS_INFO.IDENTIFICATION_NO%TYPE Default NULL, --VC(25)
p_DRIVER_LICENSE_NO IN CUSTOMERS_INFO.DRIVER_LICENSE_NO%TYPE Default NULL, --VC(25)
p_PHOTO_ID_VALUE IN CUSTOMERS_INFO.PHOTO_ID_VALUE%TYPE Default NULL, --VC(25)
p_PHOTO_ID_STATE IN CUSTOMERS_INFO.PHOTO_ID_STATE%TYPE Default NULL, --VC(25)
pc_BIRTH_DATE IN Varchar2      Default NULL,
p_ORIG_INTERNAL_SCORE IN CUSTOMERS_INFO.CREDIT_SCORE%TYPE      Default NULL, --VC(10)
p_INTERNAL_SCORE IN CUSTOMERS_INFO.INTERNAL_CREDIT_SCORE%TYPE     Default NULL, --VC(10)
p_CRED_SCORE_ADDRESS1 IN CUSTOMERS_INFO.ADDRESS1%TYPE          Default NULL, --VC(100)
p_CRED_SCORE_ADDRESS2 IN CUSTOMERS_INFO.ADDRESS2%TYPE           Default NULL, --VC(100)
p_CRED_SCORE_CITY IN CUSTOMERS_INFO.ADDRESS3%TYPE           Default NULL, --VC(100)
p_CRED_SCORE_COUNTY IN CUSTOMERS_INFO.ADDRESS4%TYPE Default NULL, --VC(100)
p_CRED_SCORE_STATE IN CUSTOMERS_INFO.ADDRESS5%TYPE           Default NULL, --VC(100)
p_CRED_SCORE_ZIP IN CUSTOMERS_INFO.ADDRESS6%TYPE           Default NULL, --VC(100)
p_CRED_SCORE_COUNTRY       IN CUSTOMERS_INFO.ADDRESS6%TYPE                      Default NULL,  VC(100)
p_IntScore_Override_Date   IN CUSTOMERS_INFO.OTHER_FIELD19%TYPE       Default NULL,  N/A
pc_CURR_ADDRESS_DATE IN Varchar2 Default NULL,
p_PREV_ADDRESS1 IN CUSTOMERS_INFO.PREV_ADDRESS1%TYPE      Default NULL, --VC(50)
p_PREV_ADDRESS2 IN CUSTOMERS_INFO.PREV_ADDRESS2%TYPE      Default NULL, --VC(50)
p_PREV_CITY IN CUSTOMERS_INFO.PREV_CITY%TYPE           Default NULL, --VC(50)
p_PREV_COUNTY IN CUSTOMERS_INFO.PREV_COUNTY%TYPE Default NULL, --VC(50)
p_PREV_STATE IN CUSTOMERS_INFO.PREV_STATE%TYPE           Default NULL, --VC(25)
p_PREV_ZIP IN CUSTOMERS_INFO.PREV_POSTAL_CODE%TYPE Default NULL, --VC(20)
p_PREV_COUNTRY IN CUSTOMERS_INFO.PREV_COUNTRY%TYPE      Default NULL, --VC(25)
-- Billing Settings
p_BillCycle IN CONT_CUST.BILLCYCLE%TYPE Default 0,
p_BILL_BY_EMAIL IN CUSTOMERS_INFO.BILL_BY_EMAIL%TYPE Default 'N', --VC(1)
p_DETAIL_BILLING IN CONT_CUST.DETAIL_BILLING%TYPE      Default 'Y', --VC(1)
p_BILL_LANGUAGE_ID IN CONT_CUST.BILL_LANGUAGE_ID%TYPE Default NULL, --VN(10,0)
p_BILL_LAYOUT_ID IN CONT_CUST.BILL_LAYOUT_ID%TYPE      Default NULL, --VN(10,0)
p_BILL_CURRENCY_ID IN CONT_CUST.BILL_CURRENCY_ID%TYPE Default NULL, --VN(10,0)
p_FIXED_CURRENCY IN CONT_CUST.FIXED_CURRENCY%TYPE      Default NULL, --VC(1)
p_APPLY_LATE_FEES IN CONT_CUST.APPLY_LATE_FEES%TYPE      Default NULL, --VC(1)
p_USAGE_THRESHOLD IN CONT_CUST.USAGE_THRESHOLD%TYPE Default NULL, --VN(15,2)
-- Payment Data
p_AUTO_PAYMENT_FLAG IN CONT_PAYMENTS_INFO.AUTO_PAYMENT_FLAG%TYPE Default NULL, --VC(1)
p_PAYMENT_METHOD IN CONT_PAYMENTS_INFO.PAYMENT_METHOD%TYPE      Default NULL, --VC(10)
p_DEF_PAY_BANK_NAME IN CONT_PAYMENTS_INFO.BANK_NAME%TYPE      Default NULL, --VC(100)
p_DEF_PAY_OWNER_NAME IN CONT_PAYMENTS_INFO.OWNER_NAME%TYPE      Default NULL, --VC(100)
p_DEF_PAY_CARD_ADDRESS IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE      Default NULL, --VC(100)
P_DEF_PAY_ADDRESS2 IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
P_DEF_PAY_CITY IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
P_DEF_PAY_COUNTY IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
P_DEF_PAY_STATE IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
p_DEF_PAY_CARD_NUMBER IN CONT_PAYMENTS_INFO.BANK_CC_NUMBER%TYPE      Default NULL, --VC(50)
p_DEF_PAY_CARD_TYPE IN CONT_PAYMENTS_INFO.CC_CARD_TYPE_ID%TYPE Default NULL, --VC(10)
pc_DEF_PAY_CARD_EXPIRES IN Varchar2 Default NULL,
p_DEF_PAY_AMEX_CID IN CONT_PAYMENTS_INFO.CC_AMEX_CID%TYPE      Default NULL, --VC(50)
p_DEF_PAY_ZIP IN CONT_PAYMENTS_INFO.CARDHOLDER_POSTAL_CODE%TYPE Default NULL, --VC(10)
P_DEF_PAY_ROUTING_NO IN CONT_PAYMENTS_INFO.ABA%TYPE Default NULL,
P_DEF_CHK_ACCOUNT_TYPE IN CONT_PAYMENTS_INFO.ACCOUNT_TYPE%TYPE Default NULL,
p_DEF_PAY_CARD_CCV2 IN CONT_PAYMENTS_INFO.CC_CCV2_NUMBER%TYPE Default NULL,
-- Other
p_SALES_REP_FLAG IN CUSTOMERS_INFO.SALES_REP_FLAG%TYPE Default NULL, --VC(1)
pc_ACT_DATE IN Varchar2 Default NULL,
pc_ENTRY_DATE IN Varchar2 Default NULL,
p_STATUS IN CONT_CUST.ACCOUNT_STATUS%TYPE Default NULL,
-- Credit Control
p_Credit_Category IN CONT_CCTRL_INFO.Credit_Category%TYPE Default NULL,
p_Credit_Risk IN CONT_CCTRL_INFO.Credit_Risk%TYPE Default NULL,
p_Credit_Status IN CONT_CCTRL_INFO.Credit_Status%TYPE Default NULL,
pc_PTP_Date IN Varchar2 Default NULL,
p_RECEIVE_SMS_FLAG IN CONT_CCTRL_INFO.RECEIVE_SMS_FLAG%TYPE Default NULL,
p_AUTO_RECONNECT_FLAG IN CONT_CCTRL_INFO.AUTO_RECONNECT_FLAG%TYPE Default NULL,
p_CCTRL_BYPASS_FLAG IN CONT_CCTRL_INFO.CCTRL_BYPASS_FLAG%TYPE Default NULL,
p_Excel_LD_Flag IN CUSTOMERS_INFO.other_field5%TYPE Default NULL,
P_VIP_Type IN CUSTOMERS_INFO.other_field6%TYPE Default NULL,
P_CPNI_FLAG IN CUSTOMERS_INFO.OTHER_FIELD9%TYPE Default NULL,
p_Promo_Id IN Varchar2 Default NULL,
p_Carrier_Id IN CONT_CUST.CARRIER_ID%TYPE Default NULL,
p_Category_ID IN CONT_CUST.Category_ID%TYPE Default NULL,
p_MTA_ID IN CONT_CUST.MTA_ID%TYPE Default 1,
p_REQUIRED_DEPOSIT_AMT IN CUSTOMERS_INFO.OTHER_FIELD11%TYPE Default NULL,
p_PREPAY_FLAG IN CONT_CUST.PREPAY_FLAG%TYPE Default NULL,
P_ALT_ACCOUNT_NO2 IN CUSTOMERS_INFO.OTHER_FIELD12%TYPE Default NULL,
P_EWAVE_CREDIT_SCORE IN CUSTOMERS_INFO.OTHER_FIELD13%TYPE Default NULL,
P_EWAVE_APPLICATION_NO IN CUSTOMERS_INFO.OTHER_FIELD14%TYPE Default NULL,
P_ALT_OWNER_NAME IN CUSTOMERS_INFO.ALT_OWNER_NAME%TYPE Default NULL,
P_ALT_OWNER_PASSWORD IN CUSTOMERS_INFO.ALT_OWNER_PASSWORD%TYPE Default NULL,
P_SALES_REP_ID IN CUSTOMERS_INFO.SALES_REP_ID%TYPE Default NULL,
P_SALES_REP_EMAIL IN CUSTOMERS_INFO.SALES_REP_EMAIL%TYPE Default NULL
IS
---------0---------0---------0---------0---------0---------0---------0--------80
-- PURPOSE : Creates a NEW Account
-- PARAMETERS : See above.
-- NOTES :
-- RETURN : 1) If successfull ................: Contract_Id
-- 2) If a logical error then .......: ' ' (1 space)
-- ERROR : If an exception error..........: 'p_error_return = sqlerrm.........'
-- MODIFICATION HISTORY :
-- Person Date Comments
-- Mary Phan Jun 15, 2004 Init version. This procedure will execute procedure D_ACCT_NEW
-- Mary Phan Jul 07, 2004 Add SALES_REP_ID and SALES_REP_EMAIL
-- Subas Sep 07, 2005 Modified for ECAM
-- Subas Sep 19, 2005 Added code to insert a blank record in CONT_MISC_DATA
cc_PROC_NAME Varchar2(30):='D_ACCT_NEW';
vc_SECTION Varchar2(10):='000';
vn_Count Number;
R_CCTRL_INFO_REC CONT_CCTRL_INFO%ROWTYPE;
R_CI_REC CUSTOMERS_INFO%ROWTYPE;
R_CC_REC CONT_CUST%ROWTYPE;
R_CA_REC CONT_ADDRESS%ROWTYPE;
R_CPI_REC CONT_PAYMENTS_INFO%ROWTYPE;
vn_Customer_Id CONT_CUST.CUSTOMER_ID%TYPE;
vn_Contract_Id CONT_CUST.CONTRACT_ID%TYPE;
vc_bill_to_name CONT_ADDRESS.NAME%TYPE;
vd_act_date CONT_CUST.ACT_DATE%TYPE;
vn_BillCycle CONT_CUST.BILLCYCLE%TYPE;
vc_Credit_Risk CONT_CCTRL_INFO.CREDIT_RISK%TYPE;
vn_PARENT_CONTRACT_ID CONT_CUST.PARENT_CONTRACT_ID%TYPE;
BEGIN
vc_SECTION:='010';
-- CHECK FOR CUSTOMER TYPE :
IF UPPER(p_cust_type) NOT IN ('I','B') THEN
Raise_Application_Error(-20100,'Customer type may be either "I" or "B"');
END IF;
-- CHECK FOR CUSTOMER NAME :
IF UPPER(p_cust_type)='I' THEN
IF ltrim(rtrim(p_contact_f_name)) is NULL THEN
Raise_Application_Error(-20100,'Customer Name can not be a NULL Value');
END IF;
ELSIF UPPER(p_cust_type)='B' THEN
IF ltrim(rtrim(p_company_name)) is NULL THEN
Raise_Application_Error(-20100,'Company Name can not be a NULL Value');
END IF;
END IF;
-- CHECK FOR BILL BY EMAIL :
IF UPPER(p_bill_by_email)='Y' THEN
IF p_EMAIL_ADDRESS is NULL THEN
Raise_Application_Error(-20100,'Email Address cannot be a NULL Value');
END IF;
END IF;
-- ASSIGN VALUES TO BILL_TO_NAME :
vc_Bill_To_Name := ltrim(rtrim(p_BILL_TO_NAME));
IF vc_Bill_To_Name IS NULL THEN
IF UPPER(p_cust_type)='I' THEN
vc_bill_to_name:=p_CONTACT_F_NAME||' '||
p_CONTACT_MIDDLE_INITIAL||' '||
p_CONTACT_L_NAME;
ELSIF UPPER(p_cust_type)='B' THEN
vc_bill_to_name:=p_COMPANY_NAME;
END IF;
END IF;
-- Check for Minimum Address Requirement:
IF p_BILL_TO_ADDRESS1 is NULL THEN
Raise_Application_Error(-20100,'BILL TO Address cannot be a NULL Value');
END IF;
-- Determine Default values:
IF pc_ACT_DATE IS NULL THEN
vd_act_date:=sysdate;
ELSE
vd_act_date:=trunc(to_date(pc_ACT_DATE, 'yyyymmddhh24miss'));
END IF;
-- Assign BILLCYCLE:
vn_BillCycle := p_BillCycle;
IF vn_BillCycle = 0 THEN
vn_BillCycle := C_UTIL_GET_DEF_BILLCYCLE (p_Carrier_Id);
END IF;
IF NVL(vn_Billcycle,0) = 0 then
Raise_Application_Error(-20100,'Can not find a valid BILLCYCLE ');
END IF;
-- Get Customer_Id and Contract_ID from SEQUENCES :
select contract_id_sequence.nextval into vn_Contract_Id from dual;
select customer_id_sequence.nextval into vn_Customer_Id from dual;
--INSERT RECORDS TO CUSTOMERS_INFO :
vc_SECTION:='020';
R_CI_REC.CUSTOMER_ID := vn_Customer_Id;
R_CI_REC.FIRST_NAME := p_CONTACT_F_NAME;
R_CI_REC.LAST_NAME := p_CONTACT_L_NAME;
R_CI_REC.MIDDLE_INIT := p_CONTACT_MIDDLE_INITIAL;
R_CI_REC.ADDRESS1 := p_CRED_SCORE_ADDRESS1;
R_CI_REC.ADDRESS2 := p_CRED_SCORE_ADDRESS2;
R_CI_REC.ADDRESS3 := p_CRED_SCORE_CITY;
R_CI_REC.ADDRESS4 := p_CRED_SCORE_COUNTY;
R_CI_REC.ADDRESS5 := p_CRED_SCORE_STATE;
R_CI_REC.ADDRESS6 := p_CRED_SCORE_ZIP;
--R_CI_REC.ADDRESS6                   := p_CRED_SCORE_Country;
R_CI_REC.OTHER_FIELD1 := P_Contact_Name1;
R_CI_REC.OTHER_FIELD2 := P_Contact_Name2;
R_CI_REC.OTHER_FIELD3 := P_Contact_Name3;
R_CI_REC.OTHER_FIELD4 := 0;
R_CI_REC.OTHER_FIELD5 := p_Excel_LD_Flag;
R_CI_REC.OTHER_FIELD6 := P_VIP_Type;
R_CI_REC.OTHER_FIELD7 := NULL;
R_CI_REC.OTHER_FIELD8 := NULL;
R_CI_REC.OTHER_FIELD9 := P_CPNI_FLAG;
R_CI_REC.OTHER_FIELD10 := P_PROMO_ID;
R_CI_REC.OTHER_FIELD11 := P_REQUIRED_DEPOSIT_AMT;
R_CI_REC.OTHER_FIELD12 := P_ALT_ACCOUNT_NO2;
R_CI_REC.OTHER_FIELD13 := P_EWAVE_CREDIT_SCORE;
R_CI_REC.OTHER_FIELD14 := P_EWAVE_APPLICATION_NO;
R_CI_REC.OTHER_FIELD15 := NULL;
R_CI_REC.OTHER_FIELD16 := NULL;
R_CI_REC.OTHER_FIELD17 := NULL;
R_CI_REC.OTHER_FIELD18 := NULL;
R_CI_REC.OTHER_FIELD19 := NULL;
R_CI_REC.OTHER_FIELD20 := NULL;
R_CI_REC.EMAIL_ADDRESS := p_EMAIL_ADDRESS;
R_CI_REC.BILL_BY_EMAIL := NVL(p_BILL_BY_EMAIL,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_BY_EMAIL'));
R_CI_REC.CUST_TYPE := p_CUST_TYPE;
R_CI_REC.COMPANY_NAME := p_COMPANY_NAME;
R_CI_REC.IDENTIFICATION_NO := p_TAX_ID;
R_CI_REC.DRIVER_LICENSE_NO := p_DRIVER_LICENSE_NO;
R_CI_REC.PHOTO_ID_VALUE := p_PHOTO_ID_VALUE;
R_CI_REC.PHOTO_ID_STATE := p_PHOTO_ID_STATE;
R_CI_REC.COUNTRY_ID := p_COUNTRY_ID;
---R_CI_REC.SOC_SEC_NUM := p_SOC_SEC_NUM;
R_CI_REC.ID_METHOD := p_ID_OR_DANDB_TYPE;
R_CI_REC.ID_VALUE := NULL;
R_CI_REC.ID_REGION := p_ID_REGION;
R_CI_REC.BIRTH_DATE := to_date(pc_Birth_Date, 'yyyymmddHH24MISS');
R_CI_REC.HOME_PHONE_NUM := p_HOME_PHONE_NUM;
R_CI_REC.BUSINESS_PHONE_NUM := p_BUSINESS_PHONE_NUM;
R_CI_REC.CURR_ADDRESS_DATE := to_date(pc_Curr_Address_Date,'yyyymmddHH24MISS');
R_CI_REC.PREV_ADDRESS1 := p_PREV_ADDRESS1;
R_CI_REC.PREV_ADDRESS2 := p_PREV_ADDRESS2;
R_CI_REC.PREV_CITY := p_PREV_CITY;
R_CI_REC.PREV_COUNTY := p_PREV_COUNTY;
R_CI_REC.PREV_STATE := p_PREV_STATE;
R_CI_REC.PREV_POSTAL_CODE := p_PREV_ZIP;
R_CI_REC.PREV_COUNTRY := p_PREV_COUNTRY;
R_CI_REC.CREDIT_SCORE := p_ORIG_INTERNAL_SCORE;
R_CI_REC.INTERNAL_CREDIT_SCORE := UPPER(p_INTERNAL_SCORE);
R_CI_REC.INTERNAL_CREDIT_SCORE_DATE := SYSDATE;
R_CI_REC.SALES_REP_FLAG := p_SALES_REP_FLAG;
R_CI_REC.NAME_TITLE := p_CONTACT_TITLE;
R_CI_REC.NAME_SUFFIX := P_CONTACT_SUFFIX;
R_CI_REC.CREATION_DATE := SYSDATE;
R_CI_REC.ALT_OWNER_NAME := P_ALT_OWNER_NAME;
R_CI_REC.ALT_OWNER_PASSWORD := P_ALT_OWNER_PASSWORD;
R_CI_REC.SALES_REP_ID := P_SALES_REP_ID;
R_CI_REC.SALES_REP_EMAIL := P_SALES_REP_EMAIL;
R_CI_REC.LAST_MODIFIED_DATE := SYSDATE;
R_CI_REC.LAST_MODIFIED_BY := P_USERNAME;
D_INS_UPD_CUSTINFO(p_Return,p_Error_Return,p_UserName,'INS',R_CI_REC);
--INSERT RECORDS INTO CONT_CUST :
vc_SECTION:='030';
SELECT DECODE(P_PARENT_CONTRACT_ID,NULL,VN_CONTRACT_ID,P_PARENT_CONTRACT_ID)
INTO VN_PARENT_CONTRACT_ID
FROM DUAL;
R_CC_REC.CONTRACT_ID := vn_Contract_Id;
R_CC_REC.ACCOUNT_NO := vn_Contract_Id;
R_CC_REC.CUSTOMER_ID := vn_customer_id;
R_CC_REC.RP_ID := 0;
R_CC_REC.MTA_ID := p_MTA_ID;
R_CC_REC.TAX_REGION_ID := p_TAX_REGION_ID;
R_CC_REC.ACT_DATE := trunc(vd_act_date);
R_CC_REC.BILLCYCLE := vn_Billcycle;
R_CC_REC.LAST_BILL_DATE := trunc(vd_act_date-1);
R_CC_REC.DEACT_DATE := NULL;
R_CC_REC.ENTRY_DATE := NVL(to_date(pc_ENTRY_DATE,'yyyymmddhh24miss'),SYSDATE);
R_CC_REC.ENTRY_BY := p_UserName;
R_CC_REC.OPEN_BALANCE := 0;
R_CC_REC.PREPAY_FLAG := P_PREPAY_FLAG;
R_CC_REC.USAGE_THRESHOLD := NVL(p_USAGE_THRESHOLD,
B_UTIL_GET_CREDIT_LIMIT(P_Internal_Credit_Score=>UPPER(p_INTERNAL_SCORE),
p_Contract_Type=>'ACCOUNT'));
R_CC_REC.PMM_CUR_BALANCE := NULL;
R_CC_REC.SUB_ACCOUNT_ID := 0;
R_CC_REC.CATEGORY_ID := p_Category_ID;
R_CC_REC.DEACT_REASON_ID := NULL;
R_CC_REC.DETAIL_BILLING := NVL(P_DETAIL_BILLING,B_UTIL_DEFSTRVAL('ACCOUNT','DETAIL_BILLING'));
R_CC_REC.CARRIER_ID := NVL(p_carrier_id,1);
R_CC_REC.BILL_LANGUAGE_ID := NVL(p_BILL_LANGUAGE_ID,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_LANGUAGE_ID'));
R_CC_REC.BILL_LAYOUT_ID := NVL(p_BILL_LAYOUT_ID,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_LAYOUT_ID'));
R_CC_REC.BILL_CURRENCY_ID := NVL(p_BILL_CURRENCY_ID,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_CURRENCY_ID'));
R_CC_REC.FIXED_CURRENCY := NVL(p_FIXED_CURRENCY,B_UTIL_DEFSTRVAL('ACCOUNT','FIXED_CURRENCY'));
R_CC_REC.APPLY_LATE_FEES := NVL(p_APPLY_LATE_FEES,B_UTIL_DEFSTRVAL('ACCOUNT','APPLY_LATE_FEES'));
R_CC_REC.PARENT_CONTRACT_ID := VN_PARENT_CONTRACT_ID;
R_CC_REC.LEVEL_NO := 0;
R_CC_REC.AP_FLAG := 'Y';
R_CC_REC.RESTRICTION_CLASS_ID := NULL;
R_CC_REC.OMM_UPDATE_FLAG := 'N';
R_CC_REC.INACTIVE_FLAG := 'N';
R_CC_REC.SWITCH_PROFILE := NULL;
R_CC_REC.ALT_ACCOUNT_NO := p_ALT_ACCOUNT_NO;
R_CC_REC.ALT_SUB_ACCOUNT_ID := p_ALT_SUB_ACCOUNT_ID;
R_CC_REC.DEPOSITED_AMT := NULL;
R_CC_REC.READY_TO_ACT := NULL;
R_CC_REC.ACCOUNT_STATUS := NVL(p_STATUS,'SHELL');
R_CC_REC.EARLY_TERMINATION_FEE := NULL;
R_CC_REC.EARLY_TERMINATION_DATE := NULL;
R_CC_REC.SALES_REP_ID := NULL;
R_CC_REC.MANUAL_OMM_ACTIVATE := NULL;
R_CC_REC.PERMANENT_USAGE_THRESHOLD := R_CC_REC.USAGE_THRESHOLD;
D_INS_UPD_CONTCUST(p_Return,p_Error_Return,p_UserName,'INS',R_CC_REC);
--INSERT RECORDS INTO CONT_PAYMENT_INFO :
vc_SECTION:='040';
R_CPI_REC.CONTRACT_ID := vn_Contract_Id;
R_CPI_REC.AUTO_PAYMENT_FLAG := NVL(p_AUTO_PAYMENT_FLAG,B_UTIL_DEFSTRVAL('ACCOUNT','AUTO_PAYMENT_FLAG'));
R_CPI_REC.PAYMENT_METHOD := NVL(p_PAYMENT_METHOD,'CASH');
R_CPI_REC.BANK_NAME := p_DEF_PAY_BANK_NAME;
R_CPI_REC.OWNER_NAME := p_DEF_PAY_OWNER_NAME;
R_CPI_REC.OWNER_ADDRESS := p_DEF_PAY_CARD_ADDRESS;
R_CPI_REC.OWNER_ADDRESS2 := p_DEF_PAY_ADDRESS2;
R_CPI_REC.OWNER_CITY := p_DEF_PAY_CITY;
R_CPI_REC.OWNER_COUNTY := p_DEF_PAY_COUNTY;
R_CPI_REC.OWNER_STATE := p_DEF_PAY_STATE;
R_CPI_REC.BANK_CC_NUMBER := p_DEF_PAY_CARD_NUMBER;
R_CPI_REC.CC_CARD_TYPE_ID := p_DEF_PAY_CARD_TYPE;
R_CPI_REC.CC_EXPIRATION_DATE := to_date(pc_DEF_PAY_CARD_EXPIRES,'YYYYMMDDHH24MISS');
R_CPI_REC.CC_AMEX_CID := p_DEF_PAY_AMEX_CID;
R_CPI_REC.CC_AUTH_NUMBER := NULL;
R_CPI_REC.CC_AUTH_REQUEST_AMOUNT := NULL;
R_CPI_REC.CC_AUTH_AMOUNT := NULL;
R_CPI_REC.CC_AUTH_DATE := NULL;
R_CPI_REC.CARDHOLDER_POSTAL_CODE := p_DEF_PAY_ZIP;
R_CPI_REC.ABA := P_DEF_PAY_ROUTING_NO;
R_CPI_REC.ACCOUNT_TYPE := P_DEF_CHK_ACCOUNT_TYPE;
R_CPI_REC.CC_CCV2_NUMBER := p_DEF_PAY_CARD_CCV2;
R_CPI_REC.LAST_MODIFIED_DATE := SYSDATE;
R_CPI_REC.LAST_MODIFIED_BY := P_USERNAME;
D_INS_UPD_CONTPAYMENTSINFO(p_Return,p_Error_Return,p_UserName,'INS',R_CPI_REC);
--INSERT RECORDS INTO CONT_ADDRESS
vc_SECTION:='050';
R_CA_REC.CONTRACT_ID := vn_Contract_id;
R_CA_REC.ADDRESS_TYPE := 'B';
R_CA_REC.NAME := vc_bill_to_name;
R_CA_REC.ADDRESS1 := p_BILL_TO_ADDRESS1;
R_CA_REC.ADDRESS2 := p_BILL_TO_ADDRESS2;
R_CA_REC.CITY := p_BILL_TO_CITY;
R_CA_REC.COUNTY := P_BILL_TO_COUNTY;
R_CA_REC.STATE := p_BILL_TO_STATE;
R_CA_REC.POSTAL_CODE := p_BILL_TO_ZIP;
R_CA_REC.COUNTRY := P_BILL_TO_COUNTRY;
R_CA_REC.GEOCODE := p_BILL_TO_GEOCODE;
R_CA_REC.BUS_OR_RES_FLAG := p_BILL_TO_BUS_OR_RES_FLAG;
R_CA_REC.INSIDE_CORP_FLAG := p_BILL_TO_INSIDE_CORP_FLAG;
D_INS_UPD_CONTADDRESS(p_Return,p_Error_Return,p_UserName,'INS',R_CA_REC);
-- INSERT RECORD INTO CONT_CCTRL_INFO :
vc_SECTION:='060';
IF p_Credit_Risk is not NULL then
vc_Credit_Risk := p_Credit_Risk ;
ELSE
IF R_CI_REC.INTERNAL_CREDIT_SCORE IS NULL THEN
vc_Credit_Risk := 'High';
ELSIF R_CI_REC.INTERNAL_CREDIT_SCORE IN ('A','B') THEN
vc_Credit_Risk := 'Low';
ELSIF R_CI_REC.INTERNAL_CREDIT_SCORE = 'C' THEN
vc_Credit_Risk := 'Medium';
ELSE
vc_Credit_Risk := 'High';
END IF;
END IF;
R_CCTRL_INFO_REC.CONTRACT_ID := vn_CONTRACT_ID;
R_CCTRL_INFO_REC.ENTRY_BY := p_UserName;
R_CCTRL_INFO_REC.CREDIT_RISK := vc_Credit_Risk;
R_CCTRL_INFO_REC.CREDIT_CATEGORY := NVL(p_Credit_CATEGORY,B_UTIL_DEFSTRVAL('ACCOUNT','CREDIT_CATEGORY'));
R_CCTRL_INFO_REC.CREDIT_STATUS := NVL(p_Credit_STATUS,B_UTIL_DEFSTRVAL('ACCOUNT','CREDIT_STATUS'));
R_CCTRL_INFO_REC.PTP_DATE := to_date(pc_PTP_Date,'yyyymmddhh24miss');
R_CCTRL_INFO_REC.RECEIVE_SMS_FLAG := 'N';
R_CCTRL_INFO_REC.AUTO_RECONNECT_FLAG := NVL(p_AUTO_RECONNECT_FLAG,'Y');
R_CCTRL_INFO_REC.CCTRL_BYPASS_FLAG := NVL(p_CCTRL_BYPASS_FLAG,'N');
R_CCTRL_INFO_REC.LAST_MODIFIED_BY := p_UserName;
R_CCTRL_INFO_REC.LAST_MODIFIED_DATE := SYSDATE;
D_INS_UPD_CONTCCTRLINFO(P_Return,P_Error_Return,p_UserName,'INS',R_CCTRL_INFO_REC);
-- INSERT RECORD INTO CONT_MISC_DATA :
vc_SECTION:='070';
INSERT INTO CONT_MISC_DATA
(CONTRACT_ID)
VALUES
(vn_Contract_Id);
p_Return := vn_Contract_Id;
EXCEPTION
WHEN others THEN
p_Return:='';
p_Error_Return :=cc_PROC_NAME||' '|| vc_SECTION||':'|| SUBSTR(sqlerrm,1,300);
END; -- D_ACCT_NEW