1: PACKAGE BODY arp_maintain_ps AS
2: /* $Header: ARTEMPSB.pls 120.18.12020000.2 2012/07/25 13:16:25 kkikkise 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;
1088: );
1089:
1090: BEGIN
1091:
1092: print_fcn_label( 'arp_maintain_ps.delete_adjustments()+' );
1093:
1094: --
1095: --
1096: BEGIN
1168: MSG_LEVEL_BASIC );
1169: RAISE;
1170: END;
1171:
1172: print_fcn_label( 'arp_maintain_ps.delete_adjustments()-' );
1173:
1174: EXCEPTION
1175: WHEN OTHERS THEN
1176: debug( 'EXCEPTION: arp_maintain_ps.delete_adjustments()',
1172: print_fcn_label( 'arp_maintain_ps.delete_adjustments()-' );
1173:
1174: EXCEPTION
1175: WHEN OTHERS THEN
1176: debug( 'EXCEPTION: arp_maintain_ps.delete_adjustments()',
1177: MSG_LEVEL_BASIC );
1178: RAISE;
1179:
1180: END delete_adjustments;
1193: l_ar_ps_key_value_list gl_ca_utility_pkg.r_key_value_arr;
1194:
1195: BEGIN
1196:
1197: print_fcn_label( 'arp_maintain_ps.reverse_adjustments()+' );
1198:
1199: BEGIN
1200:
1201: UPDATE ar_payment_schedules ps
1349: delete_adjustments( p_customer_trx_id, p_subsequent_trx_id );
1350:
1351: END LOOP;
1352: END;
1353: print_fcn_label( 'arp_maintain_ps.reverse_adjustments()-' );
1354:
1355: EXCEPTION
1356: WHEN OTHERS THEN
1357: debug( 'EXCEPTION: arp_maintain_ps.reverse_adjustments()',
1353: print_fcn_label( 'arp_maintain_ps.reverse_adjustments()-' );
1354:
1355: EXCEPTION
1356: WHEN OTHERS THEN
1357: debug( 'EXCEPTION: arp_maintain_ps.reverse_adjustments()',
1358: MSG_LEVEL_BASIC );
1359: RAISE;
1360:
1361: END reverse_adjustments;
1371: l_ar_ps_key_value_list gl_ca_utility_pkg.r_key_value_arr;
1372:
1373: BEGIN
1374:
1375: print_fcn_label( 'arp_maintain_ps.reverse_cm_effect()+' );
1376:
1377: BEGIN
1378:
1379: UPDATE ar_payment_schedules ps
1484: END;
1485:
1486:
1487:
1488: print_fcn_label( 'arp_maintain_ps.reverse_cm_effect()-' );
1489:
1490: EXCEPTION
1491: WHEN OTHERS THEN
1492: debug( 'EXCEPTION: arp_maintain_ps.reverse_cm_effect()',
1488: print_fcn_label( 'arp_maintain_ps.reverse_cm_effect()-' );
1489:
1490: EXCEPTION
1491: WHEN OTHERS THEN
1492: debug( 'EXCEPTION: arp_maintain_ps.reverse_cm_effect()',
1493: MSG_LEVEL_BASIC );
1494: RAISE;
1495:
1496: END reverse_cm_effect;
1581: no_app_found EXCEPTION;
1582:
1583: BEGIN
1584:
1585: print_fcn_label( 'arp_maintain_ps.update_payment_schedule()+' );
1586:
1587: --BUG#5324129
1588: OPEN cu_posted;
1589: FETCH cu_posted INTO old_rec_app;
2135: MSG_LEVEL_BASIC );
2136: RAISE;
2137: END;
2138:
2139: print_fcn_label( 'arp_maintain_ps.update_payment_schedule()-' );
2140:
2141: EXCEPTION
2142: WHEN OTHERS THEN
2143: debug( 'EXCEPTION: arp_maintain_ps.update_payment_schedule()',
2139: print_fcn_label( 'arp_maintain_ps.update_payment_schedule()-' );
2140:
2141: EXCEPTION
2142: WHEN OTHERS THEN
2143: debug( 'EXCEPTION: arp_maintain_ps.update_payment_schedule()',
2144: MSG_LEVEL_BASIC );
2145: RAISE;
2146:
2147: END update_payment_schedule;
2201: l_ccid ar_adjustments.code_combination_id%type;
2202:
2203: BEGIN
2204:
2205: print_fcn_label( 'arp_maintain_ps.update_adjustments()+' );
2206:
2207: BEGIN
2208:
2209: --
2905:
2906: END;
2907:
2908:
2909: print_fcn_label( 'arp_maintain_ps.update_adjustments()-' );
2910:
2911: EXCEPTION
2912: WHEN OTHERS THEN
2913: debug( 'EXCEPTION: arp_maintain_ps.update_adjustments()',
2909: print_fcn_label( 'arp_maintain_ps.update_adjustments()-' );
2910:
2911: EXCEPTION
2912: WHEN OTHERS THEN
2913: debug( 'EXCEPTION: arp_maintain_ps.update_adjustments()',
2914: MSG_LEVEL_BASIC );
2915: RAISE;
2916:
2917: END update_adjustments;
2969:
2970:
2971: EXCEPTION
2972: WHEN OTHERS THEN
2973: debug( 'EXCEPTION: arp_maintain_ps.dump_control_rec()',
2974: MSG_LEVEL_BASIC );
2975: RAISE;
2976:
2977: END dump_control_rec;
2985: l_temp NUMBER;
2986:
2987: BEGIN
2988:
2989: print_fcn_label( 'arp_maintain_ps.get_applied_commitment_amount()+' );
2990:
2991: BEGIN
2992:
2993: SELECT
3016:
3017: END;
3018:
3019:
3020: print_fcn_label( 'arp_maintain_ps.get_applied_commitment_amount()-' );
3021:
3022: RETURN l_temp;
3023:
3024: EXCEPTION
3022: RETURN l_temp;
3023:
3024: EXCEPTION
3025: WHEN OTHERS THEN
3026: debug( 'EXCEPTION: arp_maintain_ps.get_applied_commitment_amount()',
3027: MSG_LEVEL_BASIC );
3028: RAISE;
3029:
3030: END get_applied_commitment_amount;
3038: l_temp NUMBER;
3039:
3040: BEGIN
3041:
3042: print_fcn_label( 'arp_maintain_ps.ps_records_exist()+' );
3043:
3044: SELECT 1
3045: INTO l_temp
3046: FROM ar_payment_schedules
3045: INTO l_temp
3046: FROM ar_payment_schedules
3047: WHERE customer_trx_id = p_customer_trx_id;
3048:
3049: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3050:
3051: RETURN( TRUE );
3052:
3053: EXCEPTION
3051: RETURN( TRUE );
3052:
3053: EXCEPTION
3054: WHEN NO_DATA_FOUND THEN
3055: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3056: RETURN( FALSE );
3057: WHEN TOO_MANY_ROWS THEN
3058: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3059: RETURN( TRUE );
3054: WHEN NO_DATA_FOUND THEN
3055: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3056: RETURN( FALSE );
3057: WHEN TOO_MANY_ROWS THEN
3058: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3059: RETURN( TRUE );
3060: WHEN OTHERS THEN
3061: debug( 'EXCEPTION: arp_maintain_ps.ps_records_exist()',
3062: MSG_LEVEL_BASIC );
3057: WHEN TOO_MANY_ROWS THEN
3058: print_fcn_label( 'arp_maintain_ps.ps_records_exist()-' );
3059: RETURN( TRUE );
3060: WHEN OTHERS THEN
3061: debug( 'EXCEPTION: arp_maintain_ps.ps_records_exist()',
3062: MSG_LEVEL_BASIC );
3063: RAISE;
3064:
3065: END ps_records_exist;
3120: l_llca_count NUMBER;
3121: l_customer_trx ra_customer_trx%ROWTYPE;
3122: BEGIN
3123:
3124: print_fcn_label( 'arp_maintain_ps.maintain_payment_schedules()+' );
3125:
3126: -- Validate parameters
3127: IF( p_mode IS NULL OR
3128: p_mode NOT IN (I, U, D) OR
3243:
3244: --------------------------------------------------------------
3245: -- araips: call raaips
3246: --------------------------------------------------------------
3247: arp_maintain_ps2.insert_inv_ps_private(
3248: system_info,
3249: profile_info,
3250: l_control_rec.customer_trx_id,
3251: l_control_rec.reversed_cash_receipt_id );
3256: ----------------------------------------------------------
3257: -- araips: call raaups to insert adjustments for
3258: -- commitment invoices
3259: ----------------------------------------------------------
3260: arp_maintain_ps2.insert_child_adj_private(
3261: system_info,
3262: profile_info,
3263: l_control_rec.customer_trx_id );
3264:
3418:
3419: ----------------------------------------------------------
3420: -- araiad: create adj, update ps
3421: ----------------------------------------------------------
3422: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private+');
3423: arp_maintain_ps2.insert_cm_child_adj_private(
3424: system_info,
3425: profile_info,
3426: l_control_rec.customer_trx_id );
3419: ----------------------------------------------------------
3420: -- araiad: create adj, update ps
3421: ----------------------------------------------------------
3422: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private+');
3423: arp_maintain_ps2.insert_cm_child_adj_private(
3424: system_info,
3425: profile_info,
3426: l_control_rec.customer_trx_id );
3427: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private-');
3423: arp_maintain_ps2.insert_cm_child_adj_private(
3424: system_info,
3425: profile_info,
3426: l_control_rec.customer_trx_id );
3427: arp_standard.debug(' arp_maintain_ps2.insert_cm_child_adj_private-');
3428:
3429:
3430: ----------------------------------------------------------
3431: -- Update adjustments with document number
3482:
3483: END IF;
3484:
3485: -- araira: create cm ps, apps
3486: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private+');
3487: arp_maintain_ps2.insert_cm_ps_private(
3488: system_info,
3489: profile_info,
3490: l_control_rec.customer_trx_id );
3483: END IF;
3484:
3485: -- araira: create cm ps, apps
3486: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private+');
3487: arp_maintain_ps2.insert_cm_ps_private(
3488: system_info,
3489: profile_info,
3490: l_control_rec.customer_trx_id );
3491: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private-');
3487: arp_maintain_ps2.insert_cm_ps_private(
3488: system_info,
3489: profile_info,
3490: l_control_rec.customer_trx_id );
3491: arp_standard.debug(' arp_maintain_ps2.insert_cm_ps_private-');
3492:
3493:
3494: END IF;
3495:
3533:
3534: END IF;
3535:
3536:
3537: print_fcn_label( 'arp_maintain_ps.maintain_payment_schedules()-' );
3538:
3539: EXCEPTION
3540: WHEN OTHERS THEN
3541: debug( 'EXCEPTION: arp_maintain_ps.maintain_payment_schedules()',
3537: print_fcn_label( 'arp_maintain_ps.maintain_payment_schedules()-' );
3538:
3539: EXCEPTION
3540: WHEN OTHERS THEN
3541: debug( 'EXCEPTION: arp_maintain_ps.maintain_payment_schedules()',
3542: MSG_LEVEL_BASIC );
3543:
3544: close_cursors;
3545: ROLLBACK TO ar_payment_schedule;
3652: --
3653: PROCEDURE init IS
3654: BEGIN
3655:
3656: print_fcn_label( 'arp_maintain_ps.constructor()+' );
3657:
3658: get_error_message_text;
3659:
3660: print_fcn_label( 'arp_maintain_ps.constructor()-' );
3656: print_fcn_label( 'arp_maintain_ps.constructor()+' );
3657:
3658: get_error_message_text;
3659:
3660: print_fcn_label( 'arp_maintain_ps.constructor()-' );
3661:
3662:
3663: EXCEPTION
3664: WHEN OTHERS THEN
3661:
3662:
3663: EXCEPTION
3664: WHEN OTHERS THEN
3665: debug('EXCEPTION: arp_maintain_ps.constructor()');
3666: debug(SQLERRM);
3667: RAISE;
3668: END init;
3669:
3668: END init;
3669:
3670: BEGIN
3671: init;
3672: END arp_maintain_ps;