215: BEGIN
216: --
217: -- update log file to indicate the module being executed.
218: --
219: ARP_MESSAGE.SET_LINE( 'PAP_CMERGE_BB2.MERGE_PA_AGREEMENTS()+' );
220: --
221: -- update log file to indicate the table being updated.
222: --
223: ARP_MESSAGE.SET_NAME( 'AR', 'AR_UPDATING_TABLE' );
219: ARP_MESSAGE.SET_LINE( 'PAP_CMERGE_BB2.MERGE_PA_AGREEMENTS()+' );
220: --
221: -- update log file to indicate the table being updated.
222: --
223: ARP_MESSAGE.SET_NAME( 'AR', 'AR_UPDATING_TABLE' );
224: ARP_MESSAGE.SET_TOKEN( 'TABLE_NAME', 'PA_AGREEMENTS' );
225: --
226: OPEN cursor_2;
227: --
220: --
221: -- update log file to indicate the table being updated.
222: --
223: ARP_MESSAGE.SET_NAME( 'AR', 'AR_UPDATING_TABLE' );
224: ARP_MESSAGE.SET_TOKEN( 'TABLE_NAME', 'PA_AGREEMENTS' );
225: --
226: OPEN cursor_2;
227: --
228: LOOP
338: CLOSE cursor_2;
339: --
340: -- update log file to indicate the total rows updated.
341: --
342: ARP_MESSAGE.SET_NAME( 'AR', 'AR_ROWS_UPDATED' );
343: ARP_MESSAGE.SET_TOKEN( 'NUM_ROWS', TO_CHAR( total_record_upd_count ));
344: total_record_upd_count := 0;
345: --
346: -- update log file to indicate successful exit of this module.
339: --
340: -- update log file to indicate the total rows updated.
341: --
342: ARP_MESSAGE.SET_NAME( 'AR', 'AR_ROWS_UPDATED' );
343: ARP_MESSAGE.SET_TOKEN( 'NUM_ROWS', TO_CHAR( total_record_upd_count ));
344: total_record_upd_count := 0;
345: --
346: -- update log file to indicate successful exit of this module.
347: --
344: total_record_upd_count := 0;
345: --
346: -- update log file to indicate successful exit of this module.
347: --
348: ARP_MESSAGE.SET_LINE( 'PAP_CMERGE_BB2.MERGE_PA_AGREEMENTS()-' );
349: --
350: EXCEPTION
351: --
352: WHEN out_of_limit THEN
349: --
350: EXCEPTION
351: --
352: WHEN out_of_limit THEN
353: ARP_MESSAGE.SET_ERROR( 'Duplicate agreement number exceeding 99' );
354: ARP_MESSAGE.SET_ERROR( 'PAP_CMERGE_BB1.MERGE_PA_AGREEMENTS' );
355: RAISE;
356: WHEN OTHERS THEN
357: ARP_MESSAGE.SET_ERROR( 'PAP_CMERGE_BB1.MERGE_PA_AGREEMENTS' );
350: EXCEPTION
351: --
352: WHEN out_of_limit THEN
353: ARP_MESSAGE.SET_ERROR( 'Duplicate agreement number exceeding 99' );
354: ARP_MESSAGE.SET_ERROR( 'PAP_CMERGE_BB1.MERGE_PA_AGREEMENTS' );
355: RAISE;
356: WHEN OTHERS THEN
357: ARP_MESSAGE.SET_ERROR( 'PAP_CMERGE_BB1.MERGE_PA_AGREEMENTS' );
358: RAISE;
353: ARP_MESSAGE.SET_ERROR( 'Duplicate agreement number exceeding 99' );
354: ARP_MESSAGE.SET_ERROR( 'PAP_CMERGE_BB1.MERGE_PA_AGREEMENTS' );
355: RAISE;
356: WHEN OTHERS THEN
357: ARP_MESSAGE.SET_ERROR( 'PAP_CMERGE_BB1.MERGE_PA_AGREEMENTS' );
358: RAISE;
359: --
360: END MERGE_PA_AGREEMENTS;
361: --