[Home] [Help]
94: X_BATCH_BOOKING_FLAG in VARCHAR2,
95: X_INST_GROUP_BY_PAYMENT_METHOD in VARCHAR2,
96: X_INACTIVE_DATE in DATE
97: ) is
98: cursor C is select ROWID from IBY_UPG_PPP_B
99: where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
100: ;
101: begin
102: insert into IBY_UPG_PPP_B (
98: cursor C is select ROWID from IBY_UPG_PPP_B
99: where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
100: ;
101: begin
102: insert into IBY_UPG_PPP_B (
103: REMIT_PMT_DETAILS_LENGTH_LIM,
104: REMIT_REMITTANCE_ADVICE_FORMAT,
105: REMIT_SRA_OVERRIDE_PAYEE_FLAG,
106: REMIT_ADVICE_DELIVERY_METHOD,
503: ELECTRONIC_PROCESSING_CHANNEL,
504: LOGICAL_GROUPING_MODE,
505: BATCH_BOOKING_FLAG,
506: INST_GROUP_BY_PAYMENT_METHOD
507: from IBY_UPG_PPP_B
508: where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
509: for update of SYSTEM_PROFILE_CODE nowait;
510: recinfo c%rowtype;
511:
891: sfa.org_id
892: FROM jg_zz_sys_formats_all_b sfa)
893: sfgdf,
894: iby_formats_b ipf,
895: iby_upg_ppp_b ppp,
896: iby_bepinfo bep,
897: iby_bepkeys KEY
898: WHERE cf.format_payments_program_id =
899: pp.program_id
921:
922: SELECT distinct(ppb.system_profile_code) system_profile_code
923: FROM iby_formats_b ipf,
924: iby_upg_ppp_tl ppp,
925: iby_upg_ppp_b ppb,
926: iby_acct_pmt_profiles_b app,
927: iby_bepinfo bep,
928: iby_bepkeys key1
929: WHERE(ipf.reference_format_code IS NULL OR(ipf.reference_format_code IS NOT NULL
970: l_sys_profile_code_tab_cnt := get_sys_prof_code%rowcount;
971: CLOSE get_sys_prof_code;
972:
973:
974: update IBY_UPG_PPP_B set
975: REMIT_PMT_DETAILS_LENGTH_LIM = X_REMIT_PMT_DETAILS_LENGTH_LIM,
976: REMIT_REMITTANCE_ADVICE_FORMAT = X_REMIT_REMITTANCE_ADVICE_FORM,
977: REMIT_SRA_OVERRIDE_PAYEE_FLAG = X_REMIT_SRA_OVERRIDE_PAYEE_FLA,
978: REMIT_ADVICE_DELIVERY_METHOD = X_REMIT_ADVICE_DELIVERY_METHOD,
1065: raise no_data_found;
1066: end if;
1067:
1068: -- Uncomment the below code for debugging..
1069: -- kp_msg('The updation of iby_upg_ppp_b tables has been done successfully');
1070: -- CODE TO UPDATE BASE TABLES
1071:
1072: /* Added IF Conditions for fixing Bug# 8691900 */
1073: IF(l_sys_profile_code_tab_cnt > 0) THEN
1266: /*if (sql%notfound) then
1267: raise no_data_found;
1268: end if;*/
1269:
1270: delete from IBY_UPG_PPP_B
1271: where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE;
1272:
1273: /* Commented the code below for fixing Bug# 8691900 */
1274: /*if (sql%notfound) then
1282: begin
1283: delete from IBY_UPG_PPP_TL T
1284: where not exists
1285: (select NULL
1286: from IBY_UPG_PPP_B B
1287: where B.SYSTEM_PROFILE_CODE = T.SYSTEM_PROFILE_CODE
1288: );
1289:
1290: update IBY_UPG_PPP_TL T set (
2621: LENGTH(sfa.jgzz_attribute_category)) format_code,
2622: sfa.org_id
2623: FROM jg_zz_sys_formats_all_b sfa) sfgdf,
2624: iby_formats_b ipf,
2625: iby_upg_ppp_b ppp,
2626: iby_bepinfo bep,
2627: iby_bepkeys key
2628: WHERE cf.format_payments_program_id = pp.program_id
2629: AND cf.check_format_id = cs.check_format_id(+)
2765: rank() over (partition by ppp.system_profile_code
2766: order by key.bep_account_id) create_intba
2767: FROM
2768: iby_formats_b ipf,
2769: iby_upg_ppp_b ppp,
2770: iby_bepinfo bep,
2771: iby_bepkeys key
2772: WHERE (ipf.reference_format_code IS NULL OR
2773: (ipf.reference_format_code IS NOT NULL AND
2915: ap_check_formats cf,
2916: ap_payment_programs pp,
2917: iby_formats_b ipf,
2918: iby_upg_ppp_tl ppp,
2919: iby_upg_ppp_b ppb,
2920: iby_acct_pmt_profiles_b app,
2921: iby_bepinfo bep,
2922: iby_bepkeys key,
2923: (SELECT SUBSTR(sfa.jgzz_attribute_category,
2957: order by app.payment_profile_id) create_header
2958: FROM
2959: iby_formats_b ipf,
2960: iby_upg_ppp_tl ppp,
2961: iby_upg_ppp_b ppb,
2962: iby_acct_pmt_profiles_b app,
2963: iby_bepinfo bep,
2964: iby_bepkeys key
2965: WHERE (ipf.reference_format_code IS NULL OR