[Home] [Help]
2674: END check_line_literal;
2675:
2676: ------------------------------------------------------------------------------
2677: -- FUNCTION validate_customer
2678: -- It validates customer against database, OKX_PARTIES_V
2679: -- Returns OKL_API.G_RET_STS_ERROR for unknown customer
2680: -- OKL_API.G_RET_STS_SUCCESS for existing customer
2681: -- Also outputs ID1 for corresponding Customer
2682: -- Calls:
2685: -- check_input_record
2686: ------------------------------------------------------------------------------
2687:
2688: FUNCTION validate_customer (p_contract_number IN OKL_HEADER_INTERFACE.CONTRACT_NUMBER_OLD%TYPE,
2689: p_customer_id IN OKX_PARTIES_V.ID1%TYPE,
2690: p_customer_number IN OKX_PARTIES_V.PARTY_NUMBER%TYPE,
2691: x_id1 OUT NOCOPY OKX_PARTIES_V.ID1%TYPE)
2692: RETURN VARCHAR2 IS
2693:
2686: ------------------------------------------------------------------------------
2687:
2688: FUNCTION validate_customer (p_contract_number IN OKL_HEADER_INTERFACE.CONTRACT_NUMBER_OLD%TYPE,
2689: p_customer_id IN OKX_PARTIES_V.ID1%TYPE,
2690: p_customer_number IN OKX_PARTIES_V.PARTY_NUMBER%TYPE,
2691: x_id1 OUT NOCOPY OKX_PARTIES_V.ID1%TYPE)
2692: RETURN VARCHAR2 IS
2693:
2694: CURSOR customer_csr (p_customer_id OKX_PARTIES_V.ID1%TYPE,
2687:
2688: FUNCTION validate_customer (p_contract_number IN OKL_HEADER_INTERFACE.CONTRACT_NUMBER_OLD%TYPE,
2689: p_customer_id IN OKX_PARTIES_V.ID1%TYPE,
2690: p_customer_number IN OKX_PARTIES_V.PARTY_NUMBER%TYPE,
2691: x_id1 OUT NOCOPY OKX_PARTIES_V.ID1%TYPE)
2692: RETURN VARCHAR2 IS
2693:
2694: CURSOR customer_csr (p_customer_id OKX_PARTIES_V.ID1%TYPE,
2695: p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE) IS
2690: p_customer_number IN OKX_PARTIES_V.PARTY_NUMBER%TYPE,
2691: x_id1 OUT NOCOPY OKX_PARTIES_V.ID1%TYPE)
2692: RETURN VARCHAR2 IS
2693:
2694: CURSOR customer_csr (p_customer_id OKX_PARTIES_V.ID1%TYPE,
2695: p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE) IS
2696: SELECT id1
2697: FROM okx_parties_v
2698: WHERE NVL(TRUNC(end_date_active), TRUNC(SYSDATE)) >= TRUNC(SYSDATE)
2691: x_id1 OUT NOCOPY OKX_PARTIES_V.ID1%TYPE)
2692: RETURN VARCHAR2 IS
2693:
2694: CURSOR customer_csr (p_customer_id OKX_PARTIES_V.ID1%TYPE,
2695: p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE) IS
2696: SELECT id1
2697: FROM okx_parties_v
2698: WHERE NVL(TRUNC(end_date_active), TRUNC(SYSDATE)) >= TRUNC(SYSDATE)
2699: AND ((id1 = p_customer_id
2693:
2694: CURSOR customer_csr (p_customer_id OKX_PARTIES_V.ID1%TYPE,
2695: p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE) IS
2696: SELECT id1
2697: FROM okx_parties_v
2698: WHERE NVL(TRUNC(end_date_active), TRUNC(SYSDATE)) >= TRUNC(SYSDATE)
2699: AND ((id1 = p_customer_id
2700: AND p_customer_id IS NOT NULL)
2701: OR
3216:
3217: l_proc_name VARCHAR2(35) := NULL;
3218: l_progress VARCHAR2(3) := NULL;
3219: l_contract_number_old okl_header_interface.contract_number_old%TYPE;
3220: l_customer_id okx_parties_v.id1%TYPE;
3221: l_record_status VARCHAR2(3);
3222: l_batch_status VARCHAR2(3);
3223: x_id1 NUMBER;
3224:
4151: x_msg_count OUT NOCOPY NUMBER,
4152: x_msg_data OUT NOCOPY VARCHAR2,
4153: p_contract_number IN okl_header_interface.contract_number_old%TYPE,
4154: p_line_number IN okl_lines_interface.line_number%TYPE,
4155: p_party_id IN OKX_PARTIES_V.ID1%TYPE,
4156: p_party_number IN OKX_PARTIES_V.PARTY_NUMBER%TYPE,
4157: x_party_id OUT NOCOPY NUMBER
4158: ) IS
4159:
4152: x_msg_data OUT NOCOPY VARCHAR2,
4153: p_contract_number IN okl_header_interface.contract_number_old%TYPE,
4154: p_line_number IN okl_lines_interface.line_number%TYPE,
4155: p_party_id IN OKX_PARTIES_V.ID1%TYPE,
4156: p_party_number IN OKX_PARTIES_V.PARTY_NUMBER%TYPE,
4157: x_party_id OUT NOCOPY NUMBER
4158: ) IS
4159:
4160: CURSOR party_csr (p_party_number VARCHAR2,
4159:
4160: CURSOR party_csr (p_party_number VARCHAR2,
4161: p_party_id NUMBER) IS
4162: SELECT id1
4163: FROM okx_parties_v
4164: WHERE ((party_number = p_party_number
4165: AND
4166: p_party_number IS NOT NULL)
4167: OR
4381: p_customer_number IN okl_header_interface.customer_number%TYPE,
4382: p_authoring_org_id IN okl_header_interface.authoring_org_id%TYPE,
4383: x_cplv_rec OUT NOCOPY cplv_rec_type ) IS
4384:
4385: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
4386: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
4387: SELECT id1
4388: FROM okx_parties_v
4389: WHERE ((party_number = p_customer_number
4382: p_authoring_org_id IN okl_header_interface.authoring_org_id%TYPE,
4383: x_cplv_rec OUT NOCOPY cplv_rec_type ) IS
4384:
4385: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
4386: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
4387: SELECT id1
4388: FROM okx_parties_v
4389: WHERE ((party_number = p_customer_number
4390: AND
4384:
4385: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
4386: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
4387: SELECT id1
4388: FROM okx_parties_v
4389: WHERE ((party_number = p_customer_number
4390: AND
4391: p_customer_number IS NOT NULL
4392: )
4396: p_customer_id IS NOT NULL
4397: )
4398: );
4399:
4400: l_id1 okx_parties_v.id1%TYPE;
4401: l_proc_name VARCHAR2(35) := 'CREATE_PARTY_ROLE';
4402: party_role_failed EXCEPTION;
4403: p_cplv_rec cplv_rec_type;
4404: l_kplv_rec kplv_rec_type;
7723: RETURN VARCHAR2 IS
7724: CURSOR lien_csr (p_id NUMBER,
7725: p_name VARCHAR2) IS
7726: SELECT id1
7727: FROM okx_parties_v
7728: WHERE ((name = p_name
7729: AND
7730: p_name IS NOT NULL)
7731: OR
18787:
18788: CURSOR party_csr (p_private_label_number VARCHAR2,
18789: p_private_label_id NUMBER) IS
18790: SELECT id1
18791: FROM okx_parties_v
18792: WHERE ((party_number = p_private_label_number
18793: AND
18794: p_private_label_number IS NOT NULL)
18795: OR
19401: x_payment_term_id1 VARCHAR2(240);
19402: x_pay_site_id1 VARCHAR2(240);
19403: x_payment_method_id1 VARCHAR2(240);
19404:
19405: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
19406: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
19407: SELECT id1
19408: FROM okx_parties_v
19409: WHERE ((party_number = p_customer_number
19402: x_pay_site_id1 VARCHAR2(240);
19403: x_payment_method_id1 VARCHAR2(240);
19404:
19405: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
19406: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
19407: SELECT id1
19408: FROM okx_parties_v
19409: WHERE ((party_number = p_customer_number
19410: AND
19404:
19405: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
19406: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
19407: SELECT id1
19408: FROM okx_parties_v
19409: WHERE ((party_number = p_customer_number
19410: AND
19411: p_customer_number IS NOT NULL
19412: )
24942: p_start_date IN OKL_HEADER_INTERFACE.START_DATE%TYPE,
24943: p_template_start_date IN OKL_HEADER_INTERFACE.START_DATE%TYPE
24944: ) IS
24945:
24946: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
24947: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
24948: SELECT id1
24949: FROM okx_parties_v
24950: WHERE ((party_number = p_customer_number
24943: p_template_start_date IN OKL_HEADER_INTERFACE.START_DATE%TYPE
24944: ) IS
24945:
24946: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
24947: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
24948: SELECT id1
24949: FROM okx_parties_v
24950: WHERE ((party_number = p_customer_number
24951: AND
24945:
24946: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
24947: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
24948: SELECT id1
24949: FROM okx_parties_v
24950: WHERE ((party_number = p_customer_number
24951: AND
24952: p_customer_number IS NOT NULL
24953: )
24983: FROM okc_k_headers_v
24984: WHERE id = p_chr_id
24985: AND end_date >= p_main_start_date;
24986:
24987: l_customer_id OKX_PARTIES_V.ID1%TYPE;
24988: l_customer_account_id OKX_CUSTOMER_ACCOUNTS_V.ID1%TYPE;
24989: l_credit_customer_id OKX_PARTIES_V.ID1%TYPE;
24990: l_credit_customer_account_id OKX_CUSTOMER_ACCOUNTS_V.ID1%TYPE;
24991: l_rule_count NUMBER;
24985: AND end_date >= p_main_start_date;
24986:
24987: l_customer_id OKX_PARTIES_V.ID1%TYPE;
24988: l_customer_account_id OKX_CUSTOMER_ACCOUNTS_V.ID1%TYPE;
24989: l_credit_customer_id OKX_PARTIES_V.ID1%TYPE;
24990: l_credit_customer_account_id OKX_CUSTOMER_ACCOUNTS_V.ID1%TYPE;
24991: l_rule_count NUMBER;
24992: l_rulv_tbl rulv_tbl_type;
24993: l_ok VARCHAR2(1) := '?';
25656: -- l_qcl_id NUMBER;
25657: x_program_agreement_id OKC_K_HEADERS_V.ID%TYPE;
25658: x_product_id NUMBER;
25659:
25660: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
25661: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
25662: SELECT id1
25663: FROM okx_parties_v
25664: WHERE ((party_number = p_customer_number
25657: x_program_agreement_id OKC_K_HEADERS_V.ID%TYPE;
25658: x_product_id NUMBER;
25659:
25660: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
25661: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
25662: SELECT id1
25663: FROM okx_parties_v
25664: WHERE ((party_number = p_customer_number
25665: AND
25659:
25660: CURSOR customer_csr (p_customer_number OKX_PARTIES_V.PARTY_NUMBER%TYPE,
25661: p_customer_id OKX_PARTIES_V.ID1%TYPE) IS
25662: SELECT id1
25663: FROM okx_parties_v
25664: WHERE ((party_number = p_customer_number
25665: AND
25666: p_customer_number IS NOT NULL
25667: )
25671: p_customer_id IS NOT NULL
25672: )
25673: );
25674:
25675: l_id1 OKX_PARTIES_V.ID1%TYPE;
25676: x_customer_account_id NUMBER;
25677: x_bill_to_address_id NUMBER;
25678: pop_header_failed EXCEPTION;
25679: