1: PACKAGE BODY arp_maintain_ps AS
2: /* $Header: ARTEMPSB.pls 120.15.12010000.2 2008/11/11 13:32:30 rasarasw ship $ */
3: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
4:
5: ------------------------------------------------------------------------
135:
136: PROCEDURE close_cursors IS
137: BEGIN
138:
139: close_cursor( arp_maintain_ps2.ips_insert_ps_c );
140: close_cursor( arp_maintain_ps2.ips_select_c );
141:
142: close_cursor( arp_maintain_ps2.ira_insert_ps_c );
143: close_cursor( arp_maintain_ps2.ira_insert_ra_c );
136: PROCEDURE close_cursors IS
137: BEGIN
138:
139: close_cursor( arp_maintain_ps2.ips_insert_ps_c );
140: close_cursor( arp_maintain_ps2.ips_select_c );
141:
142: close_cursor( arp_maintain_ps2.ira_insert_ps_c );
143: close_cursor( arp_maintain_ps2.ira_insert_ra_c );
144: close_cursor( arp_maintain_ps2.ira_update_ps_c );
138:
139: close_cursor( arp_maintain_ps2.ips_insert_ps_c );
140: close_cursor( arp_maintain_ps2.ips_select_c );
141:
142: close_cursor( arp_maintain_ps2.ira_insert_ps_c );
143: close_cursor( arp_maintain_ps2.ira_insert_ra_c );
144: close_cursor( arp_maintain_ps2.ira_update_ps_c );
145: close_cursor( arp_maintain_ps2.ira_select_c );
146:
139: close_cursor( arp_maintain_ps2.ips_insert_ps_c );
140: close_cursor( arp_maintain_ps2.ips_select_c );
141:
142: close_cursor( arp_maintain_ps2.ira_insert_ps_c );
143: close_cursor( arp_maintain_ps2.ira_insert_ra_c );
144: close_cursor( arp_maintain_ps2.ira_update_ps_c );
145: close_cursor( arp_maintain_ps2.ira_select_c );
146:
147: close_cursor( arp_maintain_ps2.ups_insert_adj_c );
140: close_cursor( arp_maintain_ps2.ips_select_c );
141:
142: close_cursor( arp_maintain_ps2.ira_insert_ps_c );
143: close_cursor( arp_maintain_ps2.ira_insert_ra_c );
144: close_cursor( arp_maintain_ps2.ira_update_ps_c );
145: close_cursor( arp_maintain_ps2.ira_select_c );
146:
147: close_cursor( arp_maintain_ps2.ups_insert_adj_c );
148: close_cursor( arp_maintain_ps2.ups_update_ps_c );
141:
142: close_cursor( arp_maintain_ps2.ira_insert_ps_c );
143: close_cursor( arp_maintain_ps2.ira_insert_ra_c );
144: close_cursor( arp_maintain_ps2.ira_update_ps_c );
145: close_cursor( arp_maintain_ps2.ira_select_c );
146:
147: close_cursor( arp_maintain_ps2.ups_insert_adj_c );
148: close_cursor( arp_maintain_ps2.ups_update_ps_c );
149: close_cursor( arp_maintain_ps2.ups_select_c );
143: close_cursor( arp_maintain_ps2.ira_insert_ra_c );
144: close_cursor( arp_maintain_ps2.ira_update_ps_c );
145: close_cursor( arp_maintain_ps2.ira_select_c );
146:
147: close_cursor( arp_maintain_ps2.ups_insert_adj_c );
148: close_cursor( arp_maintain_ps2.ups_update_ps_c );
149: close_cursor( arp_maintain_ps2.ups_select_c );
150:
151: close_cursor( arp_maintain_ps2.iad_insert_adj_c );
144: close_cursor( arp_maintain_ps2.ira_update_ps_c );
145: close_cursor( arp_maintain_ps2.ira_select_c );
146:
147: close_cursor( arp_maintain_ps2.ups_insert_adj_c );
148: close_cursor( arp_maintain_ps2.ups_update_ps_c );
149: close_cursor( arp_maintain_ps2.ups_select_c );
150:
151: close_cursor( arp_maintain_ps2.iad_insert_adj_c );
152: close_cursor( arp_maintain_ps2.iad_update_ps_c );
145: close_cursor( arp_maintain_ps2.ira_select_c );
146:
147: close_cursor( arp_maintain_ps2.ups_insert_adj_c );
148: close_cursor( arp_maintain_ps2.ups_update_ps_c );
149: close_cursor( arp_maintain_ps2.ups_select_c );
150:
151: close_cursor( arp_maintain_ps2.iad_insert_adj_c );
152: close_cursor( arp_maintain_ps2.iad_update_ps_c );
153: close_cursor( arp_maintain_ps2.iad_select_c );
147: close_cursor( arp_maintain_ps2.ups_insert_adj_c );
148: close_cursor( arp_maintain_ps2.ups_update_ps_c );
149: close_cursor( arp_maintain_ps2.ups_select_c );
150:
151: close_cursor( arp_maintain_ps2.iad_insert_adj_c );
152: close_cursor( arp_maintain_ps2.iad_update_ps_c );
153: close_cursor( arp_maintain_ps2.iad_select_c );
154:
155: END;
148: close_cursor( arp_maintain_ps2.ups_update_ps_c );
149: close_cursor( arp_maintain_ps2.ups_select_c );
150:
151: close_cursor( arp_maintain_ps2.iad_insert_adj_c );
152: close_cursor( arp_maintain_ps2.iad_update_ps_c );
153: close_cursor( arp_maintain_ps2.iad_select_c );
154:
155: END;
156:
149: close_cursor( arp_maintain_ps2.ups_select_c );
150:
151: close_cursor( arp_maintain_ps2.iad_insert_adj_c );
152: close_cursor( arp_maintain_ps2.iad_update_ps_c );
153: close_cursor( arp_maintain_ps2.iad_select_c );
154:
155: END;
156:
157:
161: l_msg_name VARCHAR2(100);
162:
163: BEGIN
164:
165: print_fcn_label( 'arp_maintain_ps.get_error_message_text()+' );
166:
167: ---
168: l_msg_name := 'AR_INV_ARGS';
169: fnd_message.set_name('AR', l_msg_name);
166:
167: ---
168: l_msg_name := 'AR_INV_ARGS';
169: fnd_message.set_name('AR', l_msg_name);
170: fnd_message.set_token('PROCEDURE','arp_maintain_ps.get_error_message_text()');
171: MSG_INVALID_PARAMETERS := fnd_message.get;
172:
173: -- print
174: debug( 'MSG_INVALID_PARAMETERS='||MSG_INVALID_PARAMETERS,
173: -- print
174: debug( 'MSG_INVALID_PARAMETERS='||MSG_INVALID_PARAMETERS,
175: MSG_LEVEL_DEBUG );
176:
177: print_fcn_label( 'arp_maintain_ps.get_error_message_text()-' );
178:
179: EXCEPTION
180: WHEN OTHERS THEN
181: debug('EXCEPTION: arp_maintain_ps.get_error_message_text()');
177: print_fcn_label( 'arp_maintain_ps.get_error_message_text()-' );
178:
179: EXCEPTION
180: WHEN OTHERS THEN
181: debug('EXCEPTION: arp_maintain_ps.get_error_message_text()');
182: RAISE;
183: END get_error_message_text;
184:
185: ----------------------------------------------------------------------------
192:
193:
194: BEGIN
195:
196: print_fcn_label( 'arp_maintain_ps.do_setup()+' );
197:
198: BEGIN
199:
200: SELECT
390: p_control_rec.is_child := FALSE;
391: END IF;
392:
393:
394: print_fcn_label( 'arp_maintain_ps.do_setup()-' );
395:
396: EXCEPTION
397: WHEN OTHERS THEN
398: debug( 'EXCEPTION: arp_maintain_ps.do_setup()',
394: print_fcn_label( 'arp_maintain_ps.do_setup()-' );
395:
396: EXCEPTION
397: WHEN OTHERS THEN
398: debug( 'EXCEPTION: arp_maintain_ps.do_setup()',
399: MSG_LEVEL_BASIC );
400: RAISE;
401:
402: END do_setup;
412:
413:
414: BEGIN
415:
416: print_fcn_label( 'arp_maintain_ps.build_doc_combo_sql()+' );
417:
418: ------------------------------------------------
419: -- Select sql
420: ------------------------------------------------
445: debug( 'EXCEPTION: Error parsing stmts', MSG_LEVEL_BASIC );
446: RAISE;
447: END;
448:
449: print_fcn_label( 'arp_maintain_ps.build_doc_combo_sql()-' );
450:
451:
452: EXCEPTION
453: WHEN OTHERS THEN
450:
451:
452: EXCEPTION
453: WHEN OTHERS THEN
454: debug( 'EXCEPTION: arp_maintain_ps.build_doc_combo_sql()',
455: MSG_LEVEL_BASIC );
456:
457: RAISE;
458: END build_doc_combo_sql;
469:
470:
471: BEGIN
472:
473: print_fcn_label( 'arp_maintain_ps.build_doc_insert_audit_sql()+' );
474:
475: ------------------------------------------------
476: -- Insert audit table sql
477: ------------------------------------------------
508: debug( 'EXCEPTION: Error parsing stmts', MSG_LEVEL_BASIC );
509: RAISE;
510: END;
511:
512: print_fcn_label( 'arp_maintain_ps.build_doc_insert_audit_sql()-' );
513:
514:
515: EXCEPTION
516: WHEN OTHERS THEN
513:
514:
515: EXCEPTION
516: WHEN OTHERS THEN
517: debug( 'EXCEPTION: arp_maintain_ps.build_doc_insert_audit_sql()',
518: MSG_LEVEL_BASIC );
519:
520: RAISE;
521: END build_doc_insert_audit_sql;
535:
536:
537: BEGIN
538:
539: print_fcn_label( 'arp_maintain_ps.build_doc_update_adj_sql()+' );
540:
541: ------------------------------------------------
542: -- Update adjustments sql
543: ------------------------------------------------
569: debug( 'EXCEPTION: Error parsing stmts', MSG_LEVEL_BASIC );
570: RAISE;
571: END;
572:
573: print_fcn_label( 'arp_maintain_ps.build_doc_update_adj_sql()-' );
574:
575:
576: EXCEPTION
577: WHEN OTHERS THEN
574:
575:
576: EXCEPTION
577: WHEN OTHERS THEN
578: debug( 'EXCEPTION: arp_maintain_ps.build_doc_update_adj_sql()',
579: MSG_LEVEL_BASIC );
580:
581: RAISE;
582: END build_doc_update_adj_sql;
619: select adjustment_id from ar_adjustments where subsequent_trx_id = cust_trx_id;
620:
621: BEGIN
622:
623: print_fcn_label( 'arp_maintain_ps.update_adj_document_number()+' );
624:
625: ---------------------------------------------------------------
626: -- Build dynamic sql
627: ---------------------------------------------------------------
915:
916: END;
917:
918:
919: print_fcn_label( 'arp_maintain_ps.update_adj_document_number()-' );
920:
921: EXCEPTION
922: WHEN OTHERS THEN
923: debug( 'EXCEPTION: arp_maintain_ps.update_adj_document_number()',
919: print_fcn_label( 'arp_maintain_ps.update_adj_document_number()-' );
920:
921: EXCEPTION
922: WHEN OTHERS THEN
923: debug( 'EXCEPTION: arp_maintain_ps.update_adj_document_number()',
924: MSG_LEVEL_BASIC );
925: RAISE;
926:
927: END update_adj_document_number;
933: l_ar_ps_key_value_list gl_ca_utility_pkg.r_key_value_arr;
934:
935: BEGIN
936:
937: print_fcn_label( 'arp_maintain_ps.delete_payment_schedule()+' );
938:
939: --
940: --
941: BEGIN
965: MSG_LEVEL_BASIC );
966: RAISE;
967: END;
968:
969: print_fcn_label( 'arp_maintain_ps.delete_payment_schedule()-' );
970:
971: EXCEPTION
972: WHEN OTHERS THEN
973: debug( 'EXCEPTION: arp_maintain_ps.delete_payment_schedule()',
969: print_fcn_label( 'arp_maintain_ps.delete_payment_schedule()-' );
970:
971: EXCEPTION
972: WHEN OTHERS THEN
973: debug( 'EXCEPTION: arp_maintain_ps.delete_payment_schedule()',
974: MSG_LEVEL_BASIC );
975: RAISE;
976:
977: END delete_payment_schedule;
997: l_rec_app_key_value_list gl_ca_utility_pkg.r_key_value_arr; /* MRC */
998:
999: BEGIN
1000:
1001: print_fcn_label( 'arp_maintain_ps.delete_applications()+' );
1002:
1003: BEGIN
1004:
1005: FOR l_rec_del_app in del_app LOOP
1044: MSG_LEVEL_BASIC );
1045: RAISE;
1046: END;
1047:
1048: print_fcn_label( 'arp_maintain_ps.delete_applications()-' );
1049:
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: debug( 'EXCEPTION: arp_maintain_ps.delete_applications()',
1048: print_fcn_label( 'arp_maintain_ps.delete_applications()-' );
1049:
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: debug( 'EXCEPTION: arp_maintain_ps.delete_applications()',
1053: MSG_LEVEL_BASIC );
1054: RAISE;
1055:
1056: END delete_applications;
1064: l_adj_key_value_list gl_ca_utility_pkg.r_key_value_arr;
1065:
1066: BEGIN
1067:
1068: print_fcn_label( 'arp_maintain_ps.delete_adjustments()+' );
1069:
1070: --
1071: --
1072: BEGIN
1122: MSG_LEVEL_BASIC );
1123: RAISE;
1124: END;
1125:
1126: print_fcn_label( 'arp_maintain_ps.delete_adjustments()-' );
1127:
1128: EXCEPTION
1129: WHEN OTHERS THEN
1130: debug( 'EXCEPTION: arp_maintain_ps.delete_adjustments()',
1126: print_fcn_label( 'arp_maintain_ps.delete_adjustments()-' );
1127:
1128: EXCEPTION
1129: WHEN OTHERS THEN
1130: debug( 'EXCEPTION: arp_maintain_ps.delete_adjustments()',
1131: MSG_LEVEL_BASIC );
1132: RAISE;
1133:
1134: END delete_adjustments;
1147: l_ar_ps_key_value_list gl_ca_utility_pkg.r_key_value_arr;
1148:
1149: BEGIN
1150:
1151: print_fcn_label( 'arp_maintain_ps.reverse_adjustments()+' );
1152:
1153: BEGIN
1154:
1155: UPDATE ar_payment_schedules ps
1301: delete_adjustments( p_customer_trx_id, p_subsequent_trx_id );
1302:
1303: END LOOP;
1304: END;
1305: print_fcn_label( 'arp_maintain_ps.reverse_adjustments()-' );
1306:
1307: EXCEPTION
1308: WHEN OTHERS THEN
1309: debug( 'EXCEPTION: arp_maintain_ps.reverse_adjustments()',
1305: print_fcn_label( 'arp_maintain_ps.reverse_adjustments()-' );
1306:
1307: EXCEPTION
1308: WHEN OTHERS THEN
1309: debug( 'EXCEPTION: arp_maintain_ps.reverse_adjustments()',
1310: MSG_LEVEL_BASIC );
1311: RAISE;
1312:
1313: END reverse_adjustments;
1323: l_ar_ps_key_value_list gl_ca_utility_pkg.r_key_value_arr;
1324:
1325: BEGIN
1326:
1327: print_fcn_label( 'arp_maintain_ps.reverse_cm_effect()+' );
1328:
1329: BEGIN
1330:
1331: UPDATE ar_payment_schedules ps
1436: END;
1437:
1438:
1439:
1440: print_fcn_label( 'arp_maintain_ps.reverse_cm_effect()-' );
1441:
1442: EXCEPTION
1443: WHEN OTHERS THEN
1444: debug( 'EXCEPTION: arp_maintain_ps.reverse_cm_effect()',
1440: print_fcn_label( 'arp_maintain_ps.reverse_cm_effect()-' );
1441:
1442: EXCEPTION
1443: WHEN OTHERS THEN
1444: debug( 'EXCEPTION: arp_maintain_ps.reverse_cm_effect()',
1445: MSG_LEVEL_BASIC );
1446: RAISE;
1447:
1448: END reverse_cm_effect;
1533: no_app_found EXCEPTION;
1534:
1535: BEGIN
1536:
1537: print_fcn_label( 'arp_maintain_ps.update_payment_schedule()+' );
1538:
1539: --BUG#5324129
1540: OPEN cu_posted;
1541: FETCH cu_posted INTO old_rec_app;
2087: MSG_LEVEL_BASIC );
2088: RAISE;
2089: END;
2090:
2091: print_fcn_label( 'arp_maintain_ps.update_payment_schedule()-' );
2092:
2093: EXCEPTION
2094: WHEN OTHERS THEN
2095: debug( 'EXCEPTION: arp_maintain_ps.update_payment_schedule()',
2091: print_fcn_label( 'arp_maintain_ps.update_payment_schedule()-' );
2092:
2093: EXCEPTION
2094: WHEN OTHERS THEN
2095: debug( 'EXCEPTION: arp_maintain_ps.update_payment_schedule()',
2096: MSG_LEVEL_BASIC );
2097: RAISE;
2098:
2099: END update_payment_schedule;
2153: l_ccid ar_adjustments.code_combination_id%type;
2154:
2155: BEGIN
2156:
2157: print_fcn_label( 'arp_maintain_ps.update_adjustments()+' );
2158:
2159: BEGIN
2160:
2161: --
2857:
2858: END;
2859:
2860:
2861: print_fcn_label( 'arp_maintain_ps.update_adjustments()-' );
2862:
2863: EXCEPTION
2864: WHEN OTHERS THEN
2865: debug( 'EXCEPTION: arp_maintain_ps.update_adjustments()',
2861: print_fcn_label( 'arp_maintain_ps.update_adjustments()-' );
2862:
2863: EXCEPTION
2864: WHEN OTHERS THEN
2865: debug( 'EXCEPTION: arp_maintain_ps.update_adjustments()',
2866: MSG_LEVEL_BASIC );
2867: RAISE;
2868:
2869: END update_adjustments;
2921:
2922:
2923: EXCEPTION
2924: WHEN OTHERS THEN
2925: debug( 'EXCEPTION: arp_maintain_ps.dump_control_rec()',
2926: MSG_LEVEL_BASIC );
2927: RAISE;
2928:
2929: END dump_control_rec;
2937: l_temp NUMBER;
2938:
2939: BEGIN
2940:
2941: print_fcn_label( 'arp_maintain_ps.get_applied_commitment_amount()+' );
2942:
2943: BEGIN
2944:
2945: SELECT
2968:
2969: END;
2970:
2971:
2972: print_fcn_label( 'arp_maintain_ps.get_applied_commitment_amount()-' );
2973:
2974: RETURN l_temp;
2975:
2976: EXCEPTION
2974: RETURN l_temp;
2975:
2976: EXCEPTION
2977: WHEN OTHERS THEN
2978: debug( 'EXCEPTION: arp_maintain_ps.get_applied_commitment_amount()',
2979: MSG_LEVEL_BASIC );
2980: RAISE;
2981:
2982: END get_applied_commitment_amount;
2990: l_temp NUMBER;
2991:
2992: BEGIN
2993:
2994: print_fcn_label( 'arp_maintain_ps.ps_records_exist()+' );
2995:
2996: SELECT 1
2997: INTO l_temp
2998: FROM ar_payment_schedules
2997: INTO l_temp
2998: FROM ar_payment_schedules
2999: WHERE customer_trx_id = p_customer_trx_id;
3000:
3001: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3002:
3003: RETURN( TRUE );
3004:
3005: EXCEPTION
3003: RETURN( TRUE );
3004:
3005: EXCEPTION
3006: WHEN NO_DATA_FOUND THEN
3007: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3008: RETURN( FALSE );
3009: WHEN TOO_MANY_ROWS THEN
3010: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3011: RETURN( TRUE );
3006: WHEN NO_DATA_FOUND THEN
3007: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3008: RETURN( FALSE );
3009: WHEN TOO_MANY_ROWS THEN
3010: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3011: RETURN( TRUE );
3012: WHEN OTHERS THEN
3013: debug( 'EXCEPTION: arp_maintain_ps.ps_records_exist()',
3014: MSG_LEVEL_BASIC );
3009: WHEN TOO_MANY_ROWS THEN
3010: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3011: RETURN( TRUE );
3012: WHEN OTHERS THEN
3013: debug( 'EXCEPTION: arp_maintain_ps.ps_records_exist()',
3014: MSG_LEVEL_BASIC );
3015: RAISE;
3016:
3017: END ps_records_exist;
3071: l_adjustment_id ar_adjustments.adjustment_id%type;
3072:
3073: BEGIN
3074:
3075: print_fcn_label( 'arp_maintain_ps.maintain_payment_schedules()+' );
3076:
3077: -- Validate parameters
3078: IF( p_mode IS NULL OR
3079: p_mode NOT IN (I, U, D) OR
3194:
3195: --------------------------------------------------------------
3196: -- araips: call raaips
3197: --------------------------------------------------------------
3198: arp_maintain_ps2.insert_inv_ps_private(
3199: system_info,
3200: profile_info,
3201: l_control_rec.customer_trx_id,
3202: l_control_rec.reversed_cash_receipt_id );
3207: ----------------------------------------------------------
3208: -- araips: call raaups to insert adjustments for
3209: -- commitment invoices
3210: ----------------------------------------------------------
3211: arp_maintain_ps2.insert_child_adj_private(
3212: system_info,
3213: profile_info,
3214: l_control_rec.customer_trx_id );
3215:
3352:
3353: ----------------------------------------------------------
3354: -- araiad: create adj, update ps
3355: ----------------------------------------------------------
3356: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private+');
3357: arp_maintain_ps2.insert_cm_child_adj_private(
3358: system_info,
3359: profile_info,
3360: l_control_rec.customer_trx_id );
3353: ----------------------------------------------------------
3354: -- araiad: create adj, update ps
3355: ----------------------------------------------------------
3356: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private+');
3357: arp_maintain_ps2.insert_cm_child_adj_private(
3358: system_info,
3359: profile_info,
3360: l_control_rec.customer_trx_id );
3361: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private-');
3357: arp_maintain_ps2.insert_cm_child_adj_private(
3358: system_info,
3359: profile_info,
3360: l_control_rec.customer_trx_id );
3361: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private-');
3362:
3363:
3364: ----------------------------------------------------------
3365: -- Update adjustments with document number
3416:
3417: END IF;
3418:
3419: -- araira: create cm ps, apps
3420: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private+');
3421: arp_maintain_ps2.insert_cm_ps_private(
3422: system_info,
3423: profile_info,
3424: l_control_rec.customer_trx_id );
3417: END IF;
3418:
3419: -- araira: create cm ps, apps
3420: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private+');
3421: arp_maintain_ps2.insert_cm_ps_private(
3422: system_info,
3423: profile_info,
3424: l_control_rec.customer_trx_id );
3425: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private-');
3421: arp_maintain_ps2.insert_cm_ps_private(
3422: system_info,
3423: profile_info,
3424: l_control_rec.customer_trx_id );
3425: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private-');
3426:
3427:
3428: END IF;
3429:
3467:
3468: END IF;
3469:
3470:
3471: print_fcn_label( 'arp_maintain_ps.maintain_payment_schedules()-' );
3472:
3473: EXCEPTION
3474: WHEN OTHERS THEN
3475: debug( 'EXCEPTION: arp_maintain_ps.maintain_payment_schedules()',
3471: print_fcn_label( 'arp_maintain_ps.maintain_payment_schedules()-' );
3472:
3473: EXCEPTION
3474: WHEN OTHERS THEN
3475: debug( 'EXCEPTION: arp_maintain_ps.maintain_payment_schedules()',
3476: MSG_LEVEL_BASIC );
3477:
3478: close_cursors;
3479: ROLLBACK TO ar_payment_schedule;
3586: --
3587: PROCEDURE init IS
3588: BEGIN
3589:
3590: print_fcn_label( 'arp_maintain_ps.constructor()+' );
3591:
3592: get_error_message_text;
3593:
3594: print_fcn_label( 'arp_maintain_ps.constructor()-' );
3590: print_fcn_label( 'arp_maintain_ps.constructor()+' );
3591:
3592: get_error_message_text;
3593:
3594: print_fcn_label( 'arp_maintain_ps.constructor()-' );
3595:
3596:
3597: EXCEPTION
3598: WHEN OTHERS THEN
3595:
3596:
3597: EXCEPTION
3598: WHEN OTHERS THEN
3599: debug('EXCEPTION: arp_maintain_ps.constructor()');
3600: debug(SQLERRM);
3601: RAISE;
3602: END init;
3603:
3602: END init;
3603:
3604: BEGIN
3605: init;
3606: END arp_maintain_ps;