[Home] [Help]
21017: Raise;
21018: End;
21019: If rowcount > 0 then --A
21020: Begin
21021: Update oks_k_headers_b set
21022: acct_rule_id = acct_rule_id_chr
21023: ,payment_type = l_payment_type
21024: ,cc_no = l_cc_no
21025: ,cc_expiry_date = cc_expiry_date_chr
21086: End;
21087:
21088: If rowcount = 0 then
21089: Begin
21090: insert into oks_k_headers_b(
21091: id
21092: ,chr_id
21093: ,acct_rule_id
21094: ,payment_type
21232: fetch l_check_rgp_csr into l_chr_id;
21233: close l_check_rgp_csr;
21234: If l_chr_id is not null then --B
21235: Begin
21236: insert into oks_k_headers_b oks1
21237: (oks1.id
21238: ,oks1.chr_id
21239: ,oks1.object_version_number
21240: ,oks1.created_by
22795: , okc.cust_po_number_req_yn
22796: , okc.price_list_id
22797: , okc.id
22798: , okcl.lse_id
22799: from oks_k_headers_b oks
22800: , okc_k_headers_b okc
22801: , okc_k_lines_b okcl
22802: , okc_rule_groups_b rgp
22803: where oks.chr_id = okc.id
25189: --Attempting to insert records first
25190: --as OKS_RULE_REPROCESS might have many records with no data issue
25191:
25192: BEGIN
25193: INSERT INTO oks_k_headers_bh(
25194: ID
25195: ,MAJOR_VERSION
25196: ,CHR_ID
25197: ,ACCT_RULE_ID
25336: FETCH L_CHECK_RGP_CSR INTO L_CHR_ID;
25337: CLOSE L_CHECK_RGP_CSR;
25338:
25339: if(l_chr_id is not null) then
25340: INSERT INTO OKS_K_HEADERS_BH OKS1
25341: ( OKS1.ID
25342: ,OKS1.MAJOR_VERSION
25343: ,OKS1.CHR_ID
25344: ,OKS1.OBJECT_VERSION_NUMBER
26364: , okc.cust_po_number
26365: , okc.cust_po_number_req_yn
26366: , okc.price_list_id
26367: , okc.id
26368: from oks_k_headers_b oks
26369: , okc_k_headers_b okc
26370: where oks.chr_id = okc.id
26371: and oks.chr_id = p_id;
26372:
29483: L_HDR_DTLS_REC L_HDR_DTLS_CSR%ROWTYPE;
29484:
29485: -----------------------------------------------------------------
29486: --Cursor to check if the records corresponding to chr_id exists
29487: --in oks_k_headers_b
29488: -----------------------------------------------------------------
29489: Cursor Cur_KHdr_exists(p_chrid in number) IS
29490: select 'x'
29491: from oks_k_headers_b
29487: --in oks_k_headers_b
29488: -----------------------------------------------------------------
29489: Cursor Cur_KHdr_exists(p_chrid in number) IS
29490: select 'x'
29491: from oks_k_headers_b
29492: where chr_id=p_chrid;
29493:
29494: -----------------------------------------------------------------
29495: --Cursor to check if the records corresponding to rgp_id exists
29524: , okc.cust_po_number
29525: , okc.cust_po_number_req_yn
29526: , okc.price_list_id
29527: , okc.id
29528: from oks_k_headers_b oks
29529: , okc_k_headers_b okc
29530: where oks.chr_id = okc.id
29531: and oks.id = p_id;
29532:
29762: END;
29763:
29764: If( Eflag <> 1) Then
29765: BEGIN
29766: INSERT INTO oks_k_headers_b(
29767: ID
29768: ,CHR_ID
29769: ,ACCT_RULE_ID
29770: ,PAYMENT_TYPE
29914: Close Cur_RGP_exists;
29915:
29916: If(l_check_var is not null) Then
29917:
29918: --Updating oks_k_headers_b
29919: BEGIN
29920: UPDATE OKS_K_HEADERS_B
29921: SET
29922: ACCT_RULE_ID = ACCT_RULE_ID_CHR
29916: If(l_check_var is not null) Then
29917:
29918: --Updating oks_k_headers_b
29919: BEGIN
29920: UPDATE OKS_K_HEADERS_B
29921: SET
29922: ACCT_RULE_ID = ACCT_RULE_ID_CHR
29923: ,PAYMENT_TYPE = L_PAYMENT_TYPE
29924: ,CC_NO = L_CC_NO
30015:
30016: BEGIN
30017:
30018:
30019: Delete from oks_k_headers_b where chr_id = P_CHR_ID;
30020:
30021:
30022:
30023: UPDATE okc_k_headers_b SET
31592: , okc.cust_po_number_req_yn
31593: , okc.price_list_id
31594: , okc.id
31595: , okcl.lse_id
31596: from oks_k_headers_b oks
31597: , okc_k_headers_b okc
31598: , okc_k_lines_b okcl
31599: where oks.chr_id = okc.id
31600: and okcl.lse_id in ( 1,12,19,46)
35702: ----------------------------------------------------------------------------
35703:
35704: -----------------------------------------------------------------------------
35705: --Cursor to check if the records corresponding to chr_id exists
35706: --in oks_k_headers_bh
35707: -----------------------------------------------------------------------------
35708:
35709: Cursor Cur_KHdr_exists(p_chrid in number) IS
35710: select 'x'
35707: -----------------------------------------------------------------------------
35708:
35709: Cursor Cur_KHdr_exists(p_chrid in number) IS
35710: select 'x'
35711: from oks_k_headers_bh
35712: where chr_id=p_chrid
35713: and major_version = p_major_version;
35714:
35715: ------------------------------------------------------------------------------
35930:
35931:
35932: If( Eflag <> 1) Then
35933: BEGIN
35934: INSERT INTO oks_k_headers_bh(
35935: ID
35936: ,MAJOR_VERSION
35937: ,CHR_ID
35938: ,ACCT_RULE_ID
36082: Close Cur_RGP_exists;
36083:
36084: If(l_check_var is not null) Then
36085:
36086: --Updating oks_k_headers_b
36087: BEGIN
36088: UPDATE OKS_K_HEADERS_BH
36089: SET
36090: ACCT_RULE_ID = ACCT_RULE_ID_CHR
36084: If(l_check_var is not null) Then
36085:
36086: --Updating oks_k_headers_b
36087: BEGIN
36088: UPDATE OKS_K_HEADERS_BH
36089: SET
36090: ACCT_RULE_ID = ACCT_RULE_ID_CHR
36091: ,PAYMENT_TYPE = L_PAYMENT_TYPE
36092: ,CC_NO = L_CC_NO
36186: Else
36187:
36188: BEGIN
36189:
36190: Delete from oks_k_headers_bh where chr_id = P_CHR_ID
36191: and major_version = p_major_version;
36192:
36193:
36194:
38850: ----------------------------------------------------------------------------------------------------
38851:
38852: -- Code added on July-06-2004 as part of bug#3615375. This is to synchronize Warrant contract Headers
38853: -- that doesn't have any associated rules.
38854: INSERT /*+ PARALLEL(OKS1) */ INTO OKS_K_HEADERS_B OKS1
38855: ( OKS1.ID
38856: ,OKS1.CHR_ID
38857: ,OKS1.OBJECT_VERSION_NUMBER
38858: ,OKS1.CREATED_BY
38876: , OKC_RULES_B RULE
38877: WHERE RGP.DNZ_CHR_ID = UPG1.DNZ_CHR_ID
38878: AND RGP.CHR_ID = UPG1.DNZ_CHR_ID
38879: AND RGP.ID = RULE.RGP_ID )
38880: AND NOT EXISTS ( SELECT 1 FROM OKS_K_HEADERS_B OKSHI
38881: WHERE OKSHI.CHR_ID = UPG1.DNZ_CHR_ID )
38882: GROUP BY DNZ_CHR_ID;
38883:
38884: DELETE FROM OKS_RULE_UPGRADE