55: BEGIN
56:
57: /* Put the header in the report to identify the block to be run */
58:
59: arp_message.set_line('CP_CMERGE_BB1.MERGE()+');
60:
61: IF ( process_mode = 'LOCK' ) Then
62: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
63: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
58:
59: arp_message.set_line('CP_CMERGE_BB1.MERGE()+');
60:
61: IF ( process_mode = 'LOCK' ) Then
62: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
63: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
64: message_text := 'The locking is done in block CSP_CMERGE_BB1';
65: arp_message.set_line(message_text);
66: ELSE
59: arp_message.set_line('CP_CMERGE_BB1.MERGE()+');
60:
61: IF ( process_mode = 'LOCK' ) Then
62: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
63: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
64: message_text := 'The locking is done in block CSP_CMERGE_BB1';
65: arp_message.set_line(message_text);
66: ELSE
67: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
61: IF ( process_mode = 'LOCK' ) Then
62: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
63: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
64: message_text := 'The locking is done in block CSP_CMERGE_BB1';
65: arp_message.set_line(message_text);
66: ELSE
67: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
68: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
69: message_text := 'The merge is done in block CSP_CMERGE_BB1';
63: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
64: message_text := 'The locking is done in block CSP_CMERGE_BB1';
65: arp_message.set_line(message_text);
66: ELSE
67: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
68: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
69: message_text := 'The merge is done in block CSP_CMERGE_BB1';
70: arp_message.set_line(message_text);
71: END IF;
64: message_text := 'The locking is done in block CSP_CMERGE_BB1';
65: arp_message.set_line(message_text);
66: ELSE
67: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
68: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
69: message_text := 'The merge is done in block CSP_CMERGE_BB1';
70: arp_message.set_line(message_text);
71: END IF;
72:
66: ELSE
67: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
68: arp_message.set_token('TABLE_NAME', 'CS_ACCESS_CONTROL_TEMPLATES',FALSE );
69: message_text := 'The merge is done in block CSP_CMERGE_BB1';
70: arp_message.set_line(message_text);
71: END IF;
72:
73: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update system ship to site use id */
74:
72:
73: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update system ship to site use id */
74:
75: message_text := '***-- Procedure CS_MERGE_SYS_SHIP_SITE_ID --**';
76: arp_message.set_line(message_text);
77:
78: CS_MERGE_SYS_SHIP_SITE_ID( req_id, set_number, process_mode );
79:
80: message_text := '***-- End CS_MERGE_SYS_SHIP_SITE_ID --**';
77:
78: CS_MERGE_SYS_SHIP_SITE_ID( req_id, set_number, process_mode );
79:
80: message_text := '***-- End CS_MERGE_SYS_SHIP_SITE_ID --**';
81: arp_message.set_line(message_text);
82:
83: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update system install site use id */
84:
85: message_text := '***-- Procedure CS_MERGE_SYS_INSTALL_SITE_ID --**';
82:
83: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update system install site use id */
84:
85: message_text := '***-- Procedure CS_MERGE_SYS_INSTALL_SITE_ID --**';
86: arp_message.set_line(message_text);
87:
88: CS_MERGE_SYS_INSTALL_SITE_ID( req_id, set_number, process_mode );
89:
90: message_text := '***-- End CS_MERGE_SYS_INSTALL_SITE_ID --**';
87:
88: CS_MERGE_SYS_INSTALL_SITE_ID( req_id, set_number, process_mode );
89:
90: message_text := '***-- End CS_MERGE_SYS_INSTALL_SITE_ID --**';
91: arp_message.set_line(message_text);
92:
93: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update cp ship to site use id */
94:
95: message_text := '***-- Procedure CS_MERGE_CP_SHIP_SITE_ID --**';
92:
93: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update cp ship to site use id */
94:
95: message_text := '***-- Procedure CS_MERGE_CP_SHIP_SITE_ID --**';
96: arp_message.set_line(message_text);
97:
98: CS_MERGE_CP_SHIP_SITE_ID( req_id, set_number, process_mode );
99:
100: message_text := '***-- End CS_MERGE_CP_SHIP_SITE_ID --**';
97:
98: CS_MERGE_CP_SHIP_SITE_ID( req_id, set_number, process_mode );
99:
100: message_text := '***-- End CS_MERGE_CP_SHIP_SITE_ID --**';
101: arp_message.set_line(message_text);
102:
103: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update cp install site use id */
104:
105: message_text := '***-- Procedure CS_MERGE_CP_INSTALL_SITE_ID --**';
102:
103: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update cp install site use id */
104:
105: message_text := '***-- Procedure CS_MERGE_CP_INSTALL_SITE_ID --**';
106: arp_message.set_line(message_text);
107:
108: CS_MERGE_CP_INSTALL_SITE_ID( req_id, set_number, process_mode );
109:
110: message_text := '***-- End CS_MERGE_CP_INSTALL_SITE_ID --**';
107:
108: CS_MERGE_CP_INSTALL_SITE_ID( req_id, set_number, process_mode );
109:
110: message_text := '***-- End CS_MERGE_CP_INSTALL_SITE_ID --**';
111: arp_message.set_line(message_text);
112:
113: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update the customer_id */
114:
115: message_text := '***-- Procedure CS_MERGE_CUSTOMER_ID --**';
112:
113: /* merge the CS_ACCESS_CONTROL_TEMPLATES table update the customer_id */
114:
115: message_text := '***-- Procedure CS_MERGE_CUSTOMER_ID --**';
116: arp_message.set_line(message_text);
117:
118: CS_MERGE_CUSTOMER_ID( req_id, set_number, process_mode );
119:
120: message_text := '***-- End CS_MERGE_CUSTOMER_ID --**';
117:
118: CS_MERGE_CUSTOMER_ID( req_id, set_number, process_mode );
119:
120: message_text := '***-- End CS_MERGE_CUSTOMER_ID --**';
121: arp_message.set_line(message_text);
122:
123: /* That the merge of CS_ACCESS_CONTROL_TEMPLATES is complete, use a cursor to
124: check to make sure all data has been updated. If not report it to the
125: log file. */
129: /* Report that the process for CS_ACCESS_CONTROL_TEMPLATES is complete */
130:
131: IF ( process_mode = 'LOCK' ) Then
132: message_text := '** LOCKING completed for table CS_ACCESS_CONTROL_TEMPLATES **';
133: arp_message.set_line(message_text);
134: ELSE
135: message_text := '** MERGE completed for table CS_ACCESS_CONTROL_TEMPLATES **';
136: arp_message.set_line(message_text);
137: END IF;
132: message_text := '** LOCKING completed for table CS_ACCESS_CONTROL_TEMPLATES **';
133: arp_message.set_line(message_text);
134: ELSE
135: message_text := '** MERGE completed for table CS_ACCESS_CONTROL_TEMPLATES **';
136: arp_message.set_line(message_text);
137: END IF;
138:
139: arp_message.set_line('CP_CMERGE_BB1.MERGE()-');
140:
135: message_text := '** MERGE completed for table CS_ACCESS_CONTROL_TEMPLATES **';
136: arp_message.set_line(message_text);
137: END IF;
138:
139: arp_message.set_line('CP_CMERGE_BB1.MERGE()-');
140:
141: END MERGE;
142:
143: /* -----------------------------------------------------------------------------*/
173:
174: IF ( process_mode = 'LOCK' ) Then
175:
176: message_text := 'LOCKING the system_ship_to_site_use_id ( 1/5 )';
177: arp_message.set_line(message_text);
178:
179: OPEN LOCK_SYS_SHIP_USE_ID ( req_id, set_number );
180: CLOSE LOCK_SYS_SHIP_USE_ID;
181:
179: OPEN LOCK_SYS_SHIP_USE_ID ( req_id, set_number );
180: CLOSE LOCK_SYS_SHIP_USE_ID;
181:
182: message_text := 'Locked the system_ship_to_site_use_id';
183: arp_message.set_line(message_text);
184:
185: ELSE
186:
187: message_text := 'Updating the system_ship_to_site_use_id ( 1/5 )';
184:
185: ELSE
186:
187: message_text := 'Updating the system_ship_to_site_use_id ( 1/5 )';
188: arp_message.set_line(message_text);
189:
190: UPDATE CS_ACCESS_CONTROL_TEMPLATES yt
191: SET
192: yt.system_ship_to_site_use_id =
207: WHERE RACM.PROCESS_FLAG = 'N'
208: AND RACM.REQUEST_ID = req_id
209: AND RACM.SET_NUMBER = set_number );
210:
211: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
212: number_of_rows := sql%rowcount;
213: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
214: message_text := 'Done with the update of system_ship_to_site_use_id';
215: arp_message.set_line(message_text);
209: AND RACM.SET_NUMBER = set_number );
210:
211: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
212: number_of_rows := sql%rowcount;
213: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
214: message_text := 'Done with the update of system_ship_to_site_use_id';
215: arp_message.set_line(message_text);
216:
217: END IF;
211: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
212: number_of_rows := sql%rowcount;
213: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
214: message_text := 'Done with the update of system_ship_to_site_use_id';
215: arp_message.set_line(message_text);
216:
217: END IF;
218:
219: EXCEPTION
220: WHEN NO_DATA_FOUND THEN
221:
222: message_text :=
223: 'System_ship_to_site_use_id NOT found -- proceeding *** ';
224: arp_message.set_line(message_text);
225: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
226: number_of_rows := sql%rowcount;
227: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
228: message_text := 'Done with the update of system_ship_to_site_use_id';
221:
222: message_text :=
223: 'System_ship_to_site_use_id NOT found -- proceeding *** ';
224: arp_message.set_line(message_text);
225: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
226: number_of_rows := sql%rowcount;
227: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
228: message_text := 'Done with the update of system_ship_to_site_use_id';
229: arp_message.set_line(message_text);
223: 'System_ship_to_site_use_id NOT found -- proceeding *** ';
224: arp_message.set_line(message_text);
225: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
226: number_of_rows := sql%rowcount;
227: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
228: message_text := 'Done with the update of system_ship_to_site_use_id';
229: arp_message.set_line(message_text);
230:
231: WHEN OTHERS THEN
225: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
226: number_of_rows := sql%rowcount;
227: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
228: message_text := 'Done with the update of system_ship_to_site_use_id';
229: arp_message.set_line(message_text);
230:
231: WHEN OTHERS THEN
232:
233: message_text := SUBSTR(SQLERRM,1,70);
230:
231: WHEN OTHERS THEN
232:
233: message_text := SUBSTR(SQLERRM,1,70);
234: arp_message.set_error('CS_MERGE_SYS_SHIP_SITE_ID',
235: message_text);
236: raise;
237:
238: END CS_MERGE_SYS_SHIP_SITE_ID;
266: BEGIN
267: IF ( process_mode = 'LOCK' ) Then
268:
269: message_text := 'LOCKING the system_install_site_use_id ( 2/5 )';
270: arp_message.set_line(message_text);
271:
272: OPEN LOCK_SYS_INSTALL_SITE_ID ( req_id, set_number );
273: CLOSE LOCK_SYS_INSTALL_SITE_ID;
274:
272: OPEN LOCK_SYS_INSTALL_SITE_ID ( req_id, set_number );
273: CLOSE LOCK_SYS_INSTALL_SITE_ID;
274:
275: message_text := 'Done locking system_install_site_use_id';
276: arp_message.set_line(message_text);
277:
278: ELSE
279:
280: message_text :=
278: ELSE
279:
280: message_text :=
281: 'Starting to update the system_install_site_use_id ( 2/5 )';
282: arp_message.set_line(message_text);
283:
284: UPDATE CS_ACCESS_CONTROL_TEMPLATES yt
285: SET
286: yt.system_install_site_use_id =
301: WHERE RACM.PROCESS_FLAG = 'N'
302: AND RACM.REQUEST_ID = req_id
303: AND RACM.SET_NUMBER = set_number );
304:
305: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
306: number_of_rows := sql%rowcount;
307: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
308: message_text := 'Done with the update of system_install_site_use_id';
309: arp_message.set_line(message_text);
303: AND RACM.SET_NUMBER = set_number );
304:
305: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
306: number_of_rows := sql%rowcount;
307: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
308: message_text := 'Done with the update of system_install_site_use_id';
309: arp_message.set_line(message_text);
310:
311: END IF;
305: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
306: number_of_rows := sql%rowcount;
307: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
308: message_text := 'Done with the update of system_install_site_use_id';
309: arp_message.set_line(message_text);
310:
311: END IF;
312:
313: EXCEPTION
314: WHEN NO_DATA_FOUND THEN
315:
316: message_text :=
317: 'System_install_site_use_id NOT found -- proceeding ***';
318: arp_message.set_line(message_text);
319: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
320: number_of_rows := sql%rowcount;
321: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
322: message_text := 'Done with the update of system_install_site_use_id';
315:
316: message_text :=
317: 'System_install_site_use_id NOT found -- proceeding ***';
318: arp_message.set_line(message_text);
319: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
320: number_of_rows := sql%rowcount;
321: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
322: message_text := 'Done with the update of system_install_site_use_id';
323: arp_message.set_line(message_text);
317: 'System_install_site_use_id NOT found -- proceeding ***';
318: arp_message.set_line(message_text);
319: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
320: number_of_rows := sql%rowcount;
321: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
322: message_text := 'Done with the update of system_install_site_use_id';
323: arp_message.set_line(message_text);
324:
325: WHEN OTHERS THEN
319: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
320: number_of_rows := sql%rowcount;
321: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
322: message_text := 'Done with the update of system_install_site_use_id';
323: arp_message.set_line(message_text);
324:
325: WHEN OTHERS THEN
326:
327: message_text := SUBSTR(SQLERRM,1,70);
324:
325: WHEN OTHERS THEN
326:
327: message_text := SUBSTR(SQLERRM,1,70);
328: arp_message.set_error('CS_MERGE_SYS_INSTALL_SITE_ID',
329: message_text);
330: raise;
331:
332: END CS_MERGE_SYS_INSTALL_SITE_ID;
360: BEGIN
361: IF ( process_mode = 'LOCK' ) Then
362:
363: message_text := 'LOCKING the cp_ship_to_site_use_id ( 3/5 )';
364: arp_message.set_line(message_text);
365:
366: OPEN LOCK_CP_SHIP_SITE_ID ( req_id, set_number );
367: CLOSE LOCK_CP_SHIP_SITE_ID;
368:
366: OPEN LOCK_CP_SHIP_SITE_ID ( req_id, set_number );
367: CLOSE LOCK_CP_SHIP_SITE_ID;
368:
369: message_text := 'Done locking cp_ship_to_site_use_id';
370: arp_message.set_line(message_text);
371:
372: ELSE
373:
374: message_text := 'Starting to update the cp_ship_to_site_use_id ( 3/5 )';
371:
372: ELSE
373:
374: message_text := 'Starting to update the cp_ship_to_site_use_id ( 3/5 )';
375: arp_message.set_line(message_text);
376:
377: UPDATE CS_ACCESS_CONTROL_TEMPLATES yt
378: SET
379: yt.cp_ship_to_site_use_id =
394: WHERE RACM.PROCESS_FLAG = 'N'
395: AND RACM.REQUEST_ID = req_id
396: AND RACM.SET_NUMBER = set_number );
397:
398: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
399: number_of_rows := sql%rowcount;
400: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
401: message_text := 'Done with the update of cp_ship_to_site_use_id';
402: arp_message.set_line(message_text);
396: AND RACM.SET_NUMBER = set_number );
397:
398: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
399: number_of_rows := sql%rowcount;
400: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
401: message_text := 'Done with the update of cp_ship_to_site_use_id';
402: arp_message.set_line(message_text);
403:
404: END IF;
398: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
399: number_of_rows := sql%rowcount;
400: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
401: message_text := 'Done with the update of cp_ship_to_site_use_id';
402: arp_message.set_line(message_text);
403:
404: END IF;
405:
406: EXCEPTION
406: EXCEPTION
407: WHEN NO_DATA_FOUND THEN
408:
409: message_text := 'Cp_ship_to_site_use_id NOT found -- proceeding ***';
410: arp_message.set_line(message_text);
411: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
412: number_of_rows := sql%rowcount;
413: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
414: message_text := 'Done with the update of cp_ship_to_site_use_id';
407: WHEN NO_DATA_FOUND THEN
408:
409: message_text := 'Cp_ship_to_site_use_id NOT found -- proceeding ***';
410: arp_message.set_line(message_text);
411: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
412: number_of_rows := sql%rowcount;
413: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
414: message_text := 'Done with the update of cp_ship_to_site_use_id';
415: arp_message.set_line(message_text);
409: message_text := 'Cp_ship_to_site_use_id NOT found -- proceeding ***';
410: arp_message.set_line(message_text);
411: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
412: number_of_rows := sql%rowcount;
413: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
414: message_text := 'Done with the update of cp_ship_to_site_use_id';
415: arp_message.set_line(message_text);
416:
417: WHEN OTHERS THEN
411: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
412: number_of_rows := sql%rowcount;
413: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
414: message_text := 'Done with the update of cp_ship_to_site_use_id';
415: arp_message.set_line(message_text);
416:
417: WHEN OTHERS THEN
418:
419: message_text := SUBSTR(SQLERRM,1,70);
416:
417: WHEN OTHERS THEN
418:
419: message_text := SUBSTR(SQLERRM,1,70);
420: arp_message.set_error('CS_MERGE_CP_SHIP_SITE_ID',
421: message_text);
422: raise;
423:
424: END CS_MERGE_CP_SHIP_SITE_ID;
452: BEGIN
453: IF ( process_mode = 'LOCK' ) Then
454:
455: message_text := 'LOCKING the cp_install_site_use_id ( 4/5 )';
456: arp_message.set_line(message_text);
457:
458: OPEN LOCK_CP_INSTALL_SITE_ID ( req_id, set_number );
459: CLOSE LOCK_CP_INSTALL_SITE_ID;
460:
458: OPEN LOCK_CP_INSTALL_SITE_ID ( req_id, set_number );
459: CLOSE LOCK_CP_INSTALL_SITE_ID;
460:
461: message_text := 'Done locking cp_install_site_use_id';
462: arp_message.set_line(message_text);
463:
464: ELSE
465:
466: message_text :=
464: ELSE
465:
466: message_text :=
467: 'Starting to update the cp_install_site_use_id ( 4/5 )';
468: arp_message.set_line(message_text);
469:
470: UPDATE CS_ACCESS_CONTROL_TEMPLATES yt
471: SET
472: yt.cp_install_site_use_id =
487: WHERE RACM.PROCESS_FLAG = 'N'
488: AND RACM.REQUEST_ID = req_id
489: AND RACM.SET_NUMBER = set_number );
490:
491: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
492: number_of_rows := sql%rowcount;
493: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
494: message_text := 'Done with the update of cp_install_site_use_id';
495: arp_message.set_line(message_text);
489: AND RACM.SET_NUMBER = set_number );
490:
491: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
492: number_of_rows := sql%rowcount;
493: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
494: message_text := 'Done with the update of cp_install_site_use_id';
495: arp_message.set_line(message_text);
496:
497: END IF;
491: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
492: number_of_rows := sql%rowcount;
493: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
494: message_text := 'Done with the update of cp_install_site_use_id';
495: arp_message.set_line(message_text);
496:
497: END IF;
498:
499: EXCEPTION
499: EXCEPTION
500: WHEN NO_DATA_FOUND THEN
501:
502: message_text := 'cp_install_site_id NOT found -- proceeding *** ';
503: arp_message.set_line(message_text);
504: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
505: number_of_rows := sql%rowcount;
506: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
507: message_text := 'Done with the update of cp_install_site_use_id';
500: WHEN NO_DATA_FOUND THEN
501:
502: message_text := 'cp_install_site_id NOT found -- proceeding *** ';
503: arp_message.set_line(message_text);
504: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
505: number_of_rows := sql%rowcount;
506: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
507: message_text := 'Done with the update of cp_install_site_use_id';
508: arp_message.set_line(message_text);
502: message_text := 'cp_install_site_id NOT found -- proceeding *** ';
503: arp_message.set_line(message_text);
504: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
505: number_of_rows := sql%rowcount;
506: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
507: message_text := 'Done with the update of cp_install_site_use_id';
508: arp_message.set_line(message_text);
509:
510: WHEN OTHERS THEN
504: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
505: number_of_rows := sql%rowcount;
506: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
507: message_text := 'Done with the update of cp_install_site_use_id';
508: arp_message.set_line(message_text);
509:
510: WHEN OTHERS THEN
511:
512: message_text := SUBSTR(SQLERRM,1,70);
509:
510: WHEN OTHERS THEN
511:
512: message_text := SUBSTR(SQLERRM,1,70);
513: arp_message.set_error('CS_MERGE_CP_INSTALL_SITE_ID',
514: message_text);
515: raise;
516:
517: END CS_MERGE_CP_INSTALL_SITE_ID;
544: BEGIN
545: IF ( process_mode = 'LOCK' ) Then
546:
547: message_text := 'LOCKING the customer_id ( 5/5 )';
548: arp_message.set_line(message_text);
549:
550: OPEN LOCK_CUSTOMER_ID ( req_id, set_number );
551: CLOSE LOCK_CUSTOMER_ID;
552:
550: OPEN LOCK_CUSTOMER_ID ( req_id, set_number );
551: CLOSE LOCK_CUSTOMER_ID;
552:
553: message_text := 'Done locking customer_id';
554: arp_message.set_line(message_text);
555:
556: ELSE
557:
558: message_text := 'Starting to update the customer_id ( 5/5 )';
555:
556: ELSE
557:
558: message_text := 'Starting to update the customer_id ( 5/5 )';
559: arp_message.set_line(message_text);
560:
561: UPDATE CS_ACCESS_CONTROL_TEMPLATES yt
562: SET
563: yt.customer_id = ( SELECT DISTINCT RACM.CUSTOMER_ID
576: WHERE RACM.PROCESS_FLAG = 'N'
577: AND RACM.REQUEST_ID = req_id
578: AND RACM.SET_NUMBER = set_number );
579:
580: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
581: number_of_rows := sql%rowcount;
582: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
583: message_text := 'Done with the update of customer_id';
584: arp_message.set_line(message_text);
578: AND RACM.SET_NUMBER = set_number );
579:
580: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
581: number_of_rows := sql%rowcount;
582: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
583: message_text := 'Done with the update of customer_id';
584: arp_message.set_line(message_text);
585:
586: END IF;
580: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
581: number_of_rows := sql%rowcount;
582: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
583: message_text := 'Done with the update of customer_id';
584: arp_message.set_line(message_text);
585:
586: END IF;
587:
588: EXCEPTION
588: EXCEPTION
589: WHEN NO_DATA_FOUND THEN
590:
591: message_text := 'Request id NOT found -- proceeding *** ';
592: arp_message.set_line(message_text);
593: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
594: number_of_rows := sql%rowcount;
595: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
596: message_text := 'Done with the update of customer_id';
589: WHEN NO_DATA_FOUND THEN
590:
591: message_text := 'Request id NOT found -- proceeding *** ';
592: arp_message.set_line(message_text);
593: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
594: number_of_rows := sql%rowcount;
595: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
596: message_text := 'Done with the update of customer_id';
597: arp_message.set_line(message_text);
591: message_text := 'Request id NOT found -- proceeding *** ';
592: arp_message.set_line(message_text);
593: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
594: number_of_rows := sql%rowcount;
595: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
596: message_text := 'Done with the update of customer_id';
597: arp_message.set_line(message_text);
598:
599: WHEN OTHERS THEN
593: arp_message.set_name( 'CS', 'CS_ROWS_UPDATED');
594: number_of_rows := sql%rowcount;
595: arp_message.set_token( 'NUM_ROWS',to_char( number_of_rows) );
596: message_text := 'Done with the update of customer_id';
597: arp_message.set_line(message_text);
598:
599: WHEN OTHERS THEN
600:
601: message_text := SUBSTR(SQLERRM,1,70);
598:
599: WHEN OTHERS THEN
600:
601: message_text := SUBSTR(SQLERRM,1,70);
602: arp_message.set_error('CS_MERGE_CUSTOMER_ID',
603: message_text);
604: raise;
605:
606: END CS_MERGE_CUSTOMER_ID;
676: BEGIN
677: IF ( process_mode <> 'LOCK' ) Then
678:
679: message_text := '***-- Procedure CS_CHECK_MERGE_DATA --**';
680: arp_message.set_line(message_text);
681:
682:
683: OPEN CS_CHECK;
684:
689:
690: EXIT WHEN CS_CHECK%NOTFOUND;
691: message_text :=
692: 'WARNING, Following access control template id has address(s) not merged ';
693: arp_message.set_line(message_text);
694: message_text := access_control_template_id;
695: arp_message.set_line(message_text);
696:
697: END LOOP;
691: message_text :=
692: 'WARNING, Following access control template id has address(s) not merged ';
693: arp_message.set_line(message_text);
694: message_text := access_control_template_id;
695: arp_message.set_line(message_text);
696:
697: END LOOP;
698:
699: CLOSE CS_CHECK;
698:
699: CLOSE CS_CHECK;
700:
701: message_text := '***-- End CS_CHECK_MERGE_DATA --**';
702: arp_message.set_line(message_text);
703:
704: END IF;
705:
706: EXCEPTION
707:
708: WHEN OTHERS THEN
709:
710: message_text := SUBSTR(SQLERRM,1,70);
711: arp_message.set_error('CS_CHECK_MERGE_DATA',
712: message_text);
713: raise;
714:
715: END CS_CHECK_MERGE_DATA;