eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMA_PURGE_ENGINE dependencies on GMA_PURGE_UTILITIES

Line 227: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive initialization completed in ' ||

223: p_sizing,
224: p_debug_flag) = FALSE) THEN
225: RAISE l_badsetup;
226: END IF;
227: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive initialization completed in ' ||
228: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME|| ' initialization completed in ' ||
229: to_char(trunc((sysdate - l_initstarttime) * 86400)) ||
230: ' seconds - ' ||
231: GMA_PURGE_UTILITIES.chartime);

Line 228: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME|| ' initialization completed in ' ||

224: p_debug_flag) = FALSE) THEN
225: RAISE l_badsetup;
226: END IF;
227: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive initialization completed in ' ||
228: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME|| ' initialization completed in ' ||
229: to_char(trunc((sysdate - l_initstarttime) * 86400)) ||
230: ' seconds - ' ||
231: GMA_PURGE_UTILITIES.chartime);
232:

Line 231: GMA_PURGE_UTILITIES.chartime);

227: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive initialization completed in ' ||
228: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME|| ' initialization completed in ' ||
229: to_char(trunc((sysdate - l_initstarttime) * 86400)) ||
230: ' seconds - ' ||
231: GMA_PURGE_UTILITIES.chartime);
232:
233: -- well, we're ready... Do the purge
234: l_copystarttime := sysdate;
235: IF (GMA_PURGE_COPY.archiveengine(p_purge_id,

Line 259: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive copy function completed in ' ||

255: WHERE purge_id = p_purge_id;
256:
257: COMMIT;
258:
259: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive copy function completed in ' ||
260: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' copy function completed in ' ||
261: to_char(trunc((sysdate - l_copystarttime) * 86400)) ||
262: ' seconds - ' ||
263: GMA_PURGE_UTILITIES.chartime);

Line 260: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' copy function completed in ' ||

256:
257: COMMIT;
258:
259: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive copy function completed in ' ||
260: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' copy function completed in ' ||
261: to_char(trunc((sysdate - l_copystarttime) * 86400)) ||
262: ' seconds - ' ||
263: GMA_PURGE_UTILITIES.chartime);
264:

Line 263: GMA_PURGE_UTILITIES.chartime);

259: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive copy function completed in ' ||
260: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' copy function completed in ' ||
261: to_char(trunc((sysdate - l_copystarttime) * 86400)) ||
262: ' seconds - ' ||
263: GMA_PURGE_UTILITIES.chartime);
264:
265: -- clean up a few things
266: l_cleanupstarttime := SYSDATE;
267: IF (GMA_PURGE_ENGINE.archivecleanup(p_purge_id,

Line 281: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Cleanup function completed in ' ||

277: p_disable_constraints,
278: p_debug_flag) <> TRUE) THEN
279: RAISE l_badcleanup;
280: END IF;
281: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Cleanup function completed in ' ||
282: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' Cleanup function completed in ' ||
283: to_char(trunc((sysdate - l_cleanupstarttime) * 86400)) ||
284: ' seconds - ' ||
285: GMA_PURGE_UTILITIES.chartime);

Line 282: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' Cleanup function completed in ' ||

278: p_debug_flag) <> TRUE) THEN
279: RAISE l_badcleanup;
280: END IF;
281: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Cleanup function completed in ' ||
282: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' Cleanup function completed in ' ||
283: to_char(trunc((sysdate - l_cleanupstarttime) * 86400)) ||
284: ' seconds - ' ||
285: GMA_PURGE_UTILITIES.chartime);
286:

Line 285: GMA_PURGE_UTILITIES.chartime);

281: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Cleanup function completed in ' ||
282: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' Cleanup function completed in ' ||
283: to_char(trunc((sysdate - l_cleanupstarttime) * 86400)) ||
284: ' seconds - ' ||
285: GMA_PURGE_UTILITIES.chartime);
286:
287: -- Cool! We're done.
288: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive function completed in ' ||
289: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' function completed in ' ||

Line 288: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive function completed in ' ||

284: ' seconds - ' ||
285: GMA_PURGE_UTILITIES.chartime);
286:
287: -- Cool! We're done.
288: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive function completed in ' ||
289: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' function completed in ' ||
290: to_char(trunc((sysdate - l_initstarttime) * 86400)) ||
291: ' seconds - ' ||
292: GMA_PURGE_UTILITIES.chartime);

Line 289: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' function completed in ' ||

285: GMA_PURGE_UTILITIES.chartime);
286:
287: -- Cool! We're done.
288: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive function completed in ' ||
289: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' function completed in ' ||
290: to_char(trunc((sysdate - l_initstarttime) * 86400)) ||
291: ' seconds - ' ||
292: GMA_PURGE_UTILITIES.chartime);
293:

Line 292: GMA_PURGE_UTILITIES.chartime);

288: -- GMA_PURGE_UTILITIES.printlong(p_purge_id,'Archive function completed in ' ||
289: GMA_PURGE_UTILITIES.printlong(p_purge_id,GMA_PURGE_ENGINE.PA_OPTION_NAME||' function completed in ' ||
290: to_char(trunc((sysdate - l_initstarttime) * 86400)) ||
291: ' seconds - ' ||
292: GMA_PURGE_UTILITIES.chartime);
293:
294: EXCEPTION
295:
296: WHEN l_noacttable THEN

Line 297: GMA_PURGE_UTILITIES.printlong(p_purge_id,

293:
294: EXCEPTION
295:
296: WHEN l_noacttable THEN
297: GMA_PURGE_UTILITIES.printlong(p_purge_id,
298: 'Serious problem - no archive action table');
299: RAISE;
300:
301: WHEN l_noarctable THEN

Line 302: GMA_PURGE_UTILITIES.printlong(p_purge_id,

298: 'Serious problem - no archive action table');
299: RAISE;
300:
301: WHEN l_noarctable THEN
302: GMA_PURGE_UTILITIES.printlong(p_purge_id,
303: 'Serious problem - no archive master table');
304: RAISE;
305:
306: WHEN l_badpurge THEN

Line 307: GMA_PURGE_UTILITIES.printlong(p_purge_id,

303: 'Serious problem - no archive master table');
304: RAISE;
305:
306: WHEN l_badpurge THEN
307: GMA_PURGE_UTILITIES.printlong(p_purge_id,
308: 'Serious problem - purge did not complete.');
309: -- try to fix DB state
310: l_continue := GMA_PURGE_ENGINE.archivecleanup(p_purge_id,
311: p_arctables_tab,

Line 324: GMA_PURGE_UTILITIES.printlong(p_purge_id,

320: p_disable_constraints,
321: p_debug_flag);
322:
323: WHEN l_badsetup THEN
324: GMA_PURGE_UTILITIES.printlong(p_purge_id,
325: 'Serious problem - archive master table setup');
326: -- try to fix DB state
327: l_continue := GMA_PURGE_ENGINE.archivecleanup(p_purge_id,
328: p_arctables_tab,

Line 342: GMA_PURGE_UTILITIES.printlong(p_purge_id,

338: p_debug_flag);
339: RAISE;
340:
341: WHEN OTHERS THEN
342: GMA_PURGE_UTILITIES.printlong(p_purge_id,
343: 'Problem raised in GMA_PURGE_ENGINE.doarchive.');
344: GMA_PURGE_UTILITIES.printlong(p_purge_id,
345: 'Unhandled EXCEPTION - ' || sqlerrm);
346: -- try to fix DB state

Line 344: GMA_PURGE_UTILITIES.printlong(p_purge_id,

340:
341: WHEN OTHERS THEN
342: GMA_PURGE_UTILITIES.printlong(p_purge_id,
343: 'Problem raised in GMA_PURGE_ENGINE.doarchive.');
344: GMA_PURGE_UTILITIES.printlong(p_purge_id,
345: 'Unhandled EXCEPTION - ' || sqlerrm);
346: -- try to fix DB state
347: l_continue := GMA_PURGE_ENGINE.archivecleanup(p_purge_id,
348: p_arctables_tab,

Line 408: GMA_PURGE_UTILITIES.printlong(p_purge_id,

404:
405: EXCEPTION
406:
407: WHEN OTHERS THEN
408: GMA_PURGE_UTILITIES.printlong(p_purge_id,
409: 'Problem raised in GMA_PURGE_ENGINE.archivecleanup.');
410: GMA_PURGE_UTILITIES.printlong(p_purge_id,
411: 'Unhandled EXCEPTION - ' || sqlerrm);
412: RAISE;

Line 410: GMA_PURGE_UTILITIES.printlong(p_purge_id,

406:
407: WHEN OTHERS THEN
408: GMA_PURGE_UTILITIES.printlong(p_purge_id,
409: 'Problem raised in GMA_PURGE_ENGINE.archivecleanup.');
410: GMA_PURGE_UTILITIES.printlong(p_purge_id,
411: 'Unhandled EXCEPTION - ' || sqlerrm);
412: RAISE;
413:
414: END;

Line 497: GMA_PURGE_UTILITIES.printlong(p_purge_id,

493: l_tablecount := l_tablecount + 1; -- start table index at zero
494:
495: -- make sure the column has the correct datatype, namely rowid
496: IF (l_tablename_row.drowtype <> 'ROWID') THEN
497: GMA_PURGE_UTILITIES.printlong(p_purge_id,
498: 'Problem with ' || p_arctablename || ' - ' ||
499: l_tablename_row.arctable || 'of type ' || l_tablename_row.drowtype);
500: RAISE l_badrowtype;
501: END IF;

Line 505: GMA_PURGE_UTILITIES.printlong(p_purge_id,

501: END IF;
502:
503: -- make sure the table exists
504: IF (GMA_PURGE_VALIDATE.is_table(p_purge_id,l_tablename_row.arctable) <> TRUE) THEN
505: GMA_PURGE_UTILITIES.printlong(p_purge_id,
506: 'Problem with ' || p_arctablename || ' - ' ||
507: l_tablename_row.arctable || ' does not exist in ALL_TABLES.');
508: RETURN FALSE;
509: END IF;

Line 565: GMA_PURGE_UTILITIES.printlong(p_purge_id,

561:
562: EXCEPTION
563:
564: WHEN l_badrowtype THEN
565: GMA_PURGE_UTILITIES.printlong(p_purge_id,
566: 'Serious problem - archive master table setup');
567: RAISE;
568:
569: WHEN OTHERS THEN

Line 570: GMA_PURGE_UTILITIES.printlong(p_purge_id,

566: 'Serious problem - archive master table setup');
567: RAISE;
568:
569: WHEN OTHERS THEN
570: GMA_PURGE_UTILITIES.printlong(p_purge_id,
571: 'Problem raised in GMA_PURGE_ENGINE.initarchive.');
572: GMA_PURGE_UTILITIES.printlong(p_purge_id,
573: 'Unhandled EXCEPTION - ' || sqlerrm);
574: RAISE;

Line 572: GMA_PURGE_UTILITIES.printlong(p_purge_id,

568:
569: WHEN OTHERS THEN
570: GMA_PURGE_UTILITIES.printlong(p_purge_id,
571: 'Problem raised in GMA_PURGE_ENGINE.initarchive.');
572: GMA_PURGE_UTILITIES.printlong(p_purge_id,
573: 'Unhandled EXCEPTION - ' || sqlerrm);
574: RAISE;
575:
576: END initarchive;

Line 683: GMA_PURGE_UTILITIES.printline(p_purge_id);

679:
680: -- fnd_file.put_line(FND_FILE.LOG,NVL(SUBSTR(p_appl_short_name,1,80),' '));
681:
682: -- Let the rubes know what's shakin'...
683: GMA_PURGE_UTILITIES.printline(p_purge_id);
684:
685: pa_initiate_time:=GMA_PURGE_UTILITIES.chartime;
686:
687: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 685: pa_initiate_time:=GMA_PURGE_UTILITIES.chartime;

681:
682: -- Let the rubes know what's shakin'...
683: GMA_PURGE_UTILITIES.printline(p_purge_id);
684:
685: pa_initiate_time:=GMA_PURGE_UTILITIES.chartime;
686:
687: GMA_PURGE_UTILITIES.printlong(p_purge_id,
688: -- 'PA initializing for process id ' ||
689: P_job_name||' initializing for process id ' ||

Line 687: GMA_PURGE_UTILITIES.printlong(p_purge_id,

683: GMA_PURGE_UTILITIES.printline(p_purge_id);
684:
685: pa_initiate_time:=GMA_PURGE_UTILITIES.chartime;
686:
687: GMA_PURGE_UTILITIES.printlong(p_purge_id,
688: -- 'PA initializing for process id ' ||
689: P_job_name||' initializing for process id ' ||
690: p_purge_id ||
691: ' - '||pa_initiate_time);

Line 692: -- GMA_PURGE_UTILITIES.chartime);

688: -- 'PA initializing for process id ' ||
689: P_job_name||' initializing for process id ' ||
690: p_purge_id ||
691: ' - '||pa_initiate_time);
692: -- GMA_PURGE_UTILITIES.chartime);
693: pa_initiate_time:=to_char(sysdate,'DD-MM-YYYY')||' '||pa_initiate_time;
694:
695: -- get process id, sql statement, user name
696: OPEN l_arccursor_cur(p_purge_id);

Line 723: GMA_PURGE_UTILITIES.printlong(p_purge_id,

719: CLOSE l_arccursor_cur;
720:
721: -- get lost if purge ID isn't good
722: IF NVL(l_purge_type,'<><>') = '<><>' THEN
723: GMA_PURGE_UTILITIES.printlong(p_purge_id,
724: 'Purge id ' || p_purge_id || ' does not exist.');
725: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
726: return;
727: END IF;

Line 731: GMA_PURGE_UTILITIES.printlong(p_purge_id,

727: END IF;
728:
729: -- get lost if purge type isn't good
730: IF NVL(l_sqlstatement,'<><>') = '<><>' THEN
731: GMA_PURGE_UTILITIES.printlong(p_purge_id,
732: 'Purge type ' || l_purge_type || ' does not exist.');
733: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
734: return;
735: END IF;

Line 736: GMA_PURGE_UTILITIES.printlong(p_purge_id,

732: 'Purge type ' || l_purge_type || ' does not exist.');
733: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
734: return;
735: END IF;
736: GMA_PURGE_UTILITIES.printlong(p_purge_id,
737: 'Purge type is ' ||
738: l_purge_type || '.');
739:
740: -- make sure we have a good schema name

Line 746: GMA_PURGE_UTILITIES.printlong(p_purge_id,

742: l_app_status,
743: l_app_industry,
744: l_owner);
745: IF (l_aol_status = false) THEN
746: GMA_PURGE_UTILITIES.printlong(p_purge_id,
747: 'Purge owner ' || l_owner || ' can''''t be determined. (FND_INSTALLATION.get_app_info');
748: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
749: RETURN;
750: END IF;

Line 757: GMA_PURGE_UTILITIES.printlong(p_purge_id,

753: FETCH l_schema_cursor INTO l_owner_verify;
754: CLOSE l_schema_cursor;
755: EXCEPTION
756: WHEN NO_DATA_FOUND THEN
757: GMA_PURGE_UTILITIES.printlong(p_purge_id,
758: 'Purge owner ' || l_owner || ' can''''t be determined. (select schemaname)');
759: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
760: RETURN;
761: END;

Line 778: GMA_PURGE_UTILITIES.printlong(p_purge_id,

774:
775: -- status checking, updating here
776: IF (l_status <> 0 AND l_status <> 2) THEN
777: IF (l_status = 1 OR l_status = 3) THEN
778: GMA_PURGE_UTILITIES.printlong(p_purge_id,
779: 'Purge ID in process with status - '
780: || to_char(l_status) ||
781: ' - exiting.');
782: ELSIF (l_status = 4) THEN

Line 783: GMA_PURGE_UTILITIES.printlong(p_purge_id,

779: 'Purge ID in process with status - '
780: || to_char(l_status) ||
781: ' - exiting.');
782: ELSIF (l_status = 4) THEN
783: GMA_PURGE_UTILITIES.printlong(p_purge_id,
784: 'This purge is complete (status 4) - exiting.');
785: ELSIF (l_status < 0) THEN
786: if P_JOB_RUN in(3,4,5) then
787: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 787: GMA_PURGE_UTILITIES.printlong(p_purge_id,

783: GMA_PURGE_UTILITIES.printlong(p_purge_id,
784: 'This purge is complete (status 4) - exiting.');
785: ELSIF (l_status < 0) THEN
786: if P_JOB_RUN in(3,4,5) then
787: GMA_PURGE_UTILITIES.printlong(p_purge_id,
788: 'Cleaning Error purge status - ' || to_char(l_status)||'.');
789: ResetTestPurge(p_purge_id,
790: l_purge_type,
791: l_debug_flag_f);

Line 796: GMA_PURGE_UTILITIES.printlong(p_purge_id,

792:
793: --l_status:=l_testarcstatus;
794: l_status:=0;
795: else
796: GMA_PURGE_UTILITIES.printlong(p_purge_id,
797: 'Error purge status - ' || to_char(l_status) ||
798: ' - exiting.');
799: end if;
800: ELSE

Line 801: GMA_PURGE_UTILITIES.printlong(p_purge_id,

797: 'Error purge status - ' || to_char(l_status) ||
798: ' - exiting.');
799: end if;
800: ELSE
801: GMA_PURGE_UTILITIES.printlong(p_purge_id,
802: 'Unknown purge status - ' || to_char(l_status) ||
803: ' - exiting.');
804: END IF;
805:

Line 853: GMA_PURGE_UTILITIES.printlong(p_purge_id,

849:
850: -- check the flags
851: IF (l_debug_flag_f = 'T') THEN
852: l_debug_flag := TRUE;
853: GMA_PURGE_UTILITIES.printlong(p_purge_id,
854: 'Debugging is on.');
855: ELSE
856: l_debug_flag := FALSE;
857: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 857: GMA_PURGE_UTILITIES.printlong(p_purge_id,

853: GMA_PURGE_UTILITIES.printlong(p_purge_id,
854: 'Debugging is on.');
855: ELSE
856: l_debug_flag := FALSE;
857: GMA_PURGE_UTILITIES.printlong(p_purge_id,
858: 'Debugging is off.');
859: END IF;
860:
861: -- are we going to size the tables before copying?

Line 864: GMA_PURGE_UTILITIES.printlong(p_purge_id,

860:
861: -- are we going to size the tables before copying?
862: IF (l_sizing_f = 'T') THEN
863: l_sizing := TRUE;
864: GMA_PURGE_UTILITIES.printlong(p_purge_id,
865: 'Table sizing is on.');
866: ELSE
867: l_sizing := FALSE;
868: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 868: GMA_PURGE_UTILITIES.printlong(p_purge_id,

864: GMA_PURGE_UTILITIES.printlong(p_purge_id,
865: 'Table sizing is on.');
866: ELSE
867: l_sizing := FALSE;
868: GMA_PURGE_UTILITIES.printlong(p_purge_id,
869: 'Table sizing is off.');
870: END IF;
871:
872: -- are we going to disable constraints if deleting?

Line 875: GMA_PURGE_UTILITIES.printlong(p_purge_id,

871:
872: -- are we going to disable constraints if deleting?
873: IF (l_disable_constraints_f = 'T') THEN
874: l_disable_constraints := TRUE;
875: GMA_PURGE_UTILITIES.printlong(p_purge_id,
876: 'Constraint disabling is on.');
877: ELSE
878: l_disable_constraints := FALSE;
879: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 879: GMA_PURGE_UTILITIES.printlong(p_purge_id,

875: GMA_PURGE_UTILITIES.printlong(p_purge_id,
876: 'Constraint disabling is on.');
877: ELSE
878: l_disable_constraints := FALSE;
879: GMA_PURGE_UTILITIES.printlong(p_purge_id,
880: 'Constraint disabling is off.');
881: END IF;
882:
883: -- Tell 'em the news.

Line 884: GMA_PURGE_UTILITIES.printlong(p_purge_id,

880: 'Constraint disabling is off.');
881: END IF;
882:
883: -- Tell 'em the news.
884: GMA_PURGE_UTILITIES.printlong(p_purge_id,
885: 'Commit Frequency is set to ' ||
886: to_char(l_commitfrequency) ||
887: '.');
888: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 888: GMA_PURGE_UTILITIES.printlong(p_purge_id,

884: GMA_PURGE_UTILITIES.printlong(p_purge_id,
885: 'Commit Frequency is set to ' ||
886: to_char(l_commitfrequency) ||
887: '.');
888: GMA_PURGE_UTILITIES.printlong(p_purge_id,
889: 'Object owner is ' ||
890: l_owner || '.');
891:
892: IF (l_status = 1) THEN

Line 1079: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1075:
1076: COMMIT;
1077:
1078: -- status checking, updating here
1079: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1080: -- 'PA completed in ' || TO_CHAR(l_elapsed)
1081: P_JOB_NAME||' completed in ' || TO_CHAR(l_elapsed)
1082: || ' seconds - '||
1083: GMA_PURGE_UTILITIES.chartime);

Line 1083: GMA_PURGE_UTILITIES.chartime);

1079: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1080: -- 'PA completed in ' || TO_CHAR(l_elapsed)
1081: P_JOB_NAME||' completed in ' || TO_CHAR(l_elapsed)
1082: || ' seconds - '||
1083: GMA_PURGE_UTILITIES.chartime);
1084: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1085: 'R/S ' || TO_CHAR(trunc((l_totarchiverows/l_elapsed),2)));
1086:
1087: IF (l_status = 3) THEN

Line 1084: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1080: -- 'PA completed in ' || TO_CHAR(l_elapsed)
1081: P_JOB_NAME||' completed in ' || TO_CHAR(l_elapsed)
1082: || ' seconds - '||
1083: GMA_PURGE_UTILITIES.chartime);
1084: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1085: 'R/S ' || TO_CHAR(trunc((l_totarchiverows/l_elapsed),2)));
1086:
1087: IF (l_status = 3) THEN
1088: l_status := 4;

Line 1122: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1118:
1119: EXCEPTION
1120:
1121: WHEN l_badstatement THEN
1122: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1123: 'There is a problem with the purge definition.');
1124: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1125: l_sqlstatement);
1126: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

Line 1124: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1120:
1121: WHEN l_badstatement THEN
1122: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1123: 'There is a problem with the purge definition.');
1124: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1125: l_sqlstatement);
1126: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
1127: WHEN glposted_badstatement THEN
1128: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 1128: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1124: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1125: l_sqlstatement);
1126: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
1127: WHEN glposted_badstatement THEN
1128: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1129: 'Not Purging, No posted Rows found.');
1130: if P_JOB_RUN in (1,2) then
1131:
1132: UPDATE sy_purg_mst

Line 1157: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1153: l_status:=0;
1154:
1155: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
1156: WHEN OTHERS THEN
1157: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1158: 'Problem raised in GMA_PURGE_ENGINE.main.');
1159: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1160: '## ' || sqlerrm);
1161: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 1159: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1155: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
1156: WHEN OTHERS THEN
1157: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1158: 'Problem raised in GMA_PURGE_ENGINE.main.');
1159: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1160: '## ' || sqlerrm);
1161: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1162: 'Exiting.');
1163: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

Line 1161: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1157: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1158: 'Problem raised in GMA_PURGE_ENGINE.main.');
1159: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1160: '## ' || sqlerrm);
1161: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1162: 'Exiting.');
1163: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
1164:
1165: l_orastatus := sqlcode;

Line 1213: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);

1209: p_tablespace || ' nologging AS ' ||
1210: p_sqlstatement;
1211:
1212: IF (p_debug_flag = TRUE) THEN
1213: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
1214: END IF;
1215: -- MADE BY KHAJA
1216: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
1217: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_TABLE,

Line 1235: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1231:
1232: EXCEPTION
1233:
1234: WHEN OTHERS THEN
1235: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1236: 'Problem raised in GMA_PURGE_ENGINE.getrows.');
1237: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1238: 'Unhandled EXCEPTION - ' || sqlerrm);
1239: RAISE;

Line 1237: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1233:
1234: WHEN OTHERS THEN
1235: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1236: 'Problem raised in GMA_PURGE_ENGINE.getrows.');
1237: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1238: 'Unhandled EXCEPTION - ' || sqlerrm);
1239: RAISE;
1240:
1241: END getrows;

Line 1266: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1262:
1263: -- init some values
1264: l_archiverows := 0;
1265: l_deleterows := 0;
1266: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1267: '');
1268: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1269: ' ' || rpad('Table Name',32) || ' ' ||
1270: lpad('Total Rows',10) ||' ');

Line 1268: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1264: l_archiverows := 0;
1265: l_deleterows := 0;
1266: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1267: '');
1268: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1269: ' ' || rpad('Table Name',32) || ' ' ||
1270: lpad('Total Rows',10) ||' ');
1271: -- lpad('Archived',10) || ' ' || moved to next
1272: -- lpad('Deleted',10)); --commented

Line 1273: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1269: ' ' || rpad('Table Name',32) || ' ' ||
1270: lpad('Total Rows',10) ||' ');
1271: -- lpad('Archived',10) || ' ' || moved to next
1272: -- lpad('Deleted',10)); --commented
1273: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1274: '');
1275:
1276: l_cursor := DBMS_SQL.OPEN_CURSOR;
1277:

Line 1286: GMA_PURGE_UTILITIES.makearcname(p_purge_id,

1282: -- Standard: File.Sql.6 - Do NOT include any references to hardcoded schema
1283:
1284: -- l_sqlstatement := 'SELECT COUNT(*) FROM '
1285: l_sqlstatement := 'SELECT COUNT(*) FROM ' ||Get_GmaSchemaName||'.'||
1286: GMA_PURGE_UTILITIES.makearcname(p_purge_id,
1287: p_arctables_tab(l_tableno));
1288:
1289: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
1290: DBMS_SQL.DEFINE_COLUMN(l_cursor,1,l_archiverows);

Line 1325: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1321: ,sysdate
1322: ,1);
1323: end if;
1324:
1325: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1326: ' ' || rpad(p_arctables_tab(l_tableno),32) || ' ' ||
1327: lpad(to_char(l_archiverows),10) || ' ');
1328: -- lpad(to_char(l_deleterows),10)); -- commented
1329:

Line 1340: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1336:
1337: EXCEPTION
1338:
1339: WHEN OTHERS THEN
1340: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1341: 'Problem raised in GMA_PURGE_ENGINE.logresults.');
1342: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1343: 'Unhandled EXCEPTION - ' || sqlerrm);
1344: RAISE;

Line 1342: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1338:
1339: WHEN OTHERS THEN
1340: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1341: 'Problem raised in GMA_PURGE_ENGINE.logresults.');
1342: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1343: 'Unhandled EXCEPTION - ' || sqlerrm);
1344: RAISE;
1345:
1346: END logresults;

Line 1378: l_arcrowtable := GMA_PURGE_UTILITIES.makearcname(p_purge_id,

1374: p_totarchiverows := 0;
1375: p_totdeleterows := 0;
1376:
1377: -- Figure out important process table names
1378: l_arcrowtable := GMA_PURGE_UTILITIES.makearcname(p_purge_id,
1379: p_arcrowbasename);
1380:
1381: -- get archive set, do actual archive
1382: GMA_PURGE_ENGINE.getrows(p_purge_id,

Line 1392: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1388: p_debug_flag);
1389:
1390: -- get incremental stats
1391: p_inittime := SYSDATE;
1392: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1393: GMA_PURGE_ENGINE.PA_OPTION_NAME||' rows determined in ' ||
1394: TO_CHAR(trunc((p_inittime - p_starttime) * 86400)) || ' seconds.');
1395:
1396: UPDATE sy_purg_mst

Line 1410: GMA_PURGE_UTILITIES.makearcname(p_purge_id,

1406: p_purge_type,
1407: p_owner,
1408: p_appl_short_name,
1409: p_user,
1410: GMA_PURGE_UTILITIES.makearcname(p_purge_id,
1411: p_arcrowbasename),
1412: p_arctables_tab,
1413: p_arcactions_tab,
1414: l_tablecount,

Line 1423: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1419: p_disable_constraints,
1420: p_debug_flag);
1421:
1422: -- get incremental stats
1423: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1424: -- 'PA selection/archive completed in ' ||
1425: GMA_PURGE_ENGINE.PA_OPTION_NAME||' selection completed in ' ||
1426: to_char(trunc((SYSDATE - p_inittime) * 86400))
1427: || ' seconds.');

Line 1439: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1435: p_totarchiverows,
1436: p_totdeleterows);
1437:
1438: -- drop archive row table, archive journal tables
1439: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1440: '');
1441: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1442: ' ' || rpad('TOTAL',32) || ' ' ||
1443: lpad(to_char(p_totarchiverows),10) || ' ');

Line 1441: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1437:
1438: -- drop archive row table, archive journal tables
1439: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1440: '');
1441: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1442: ' ' || rpad('TOTAL',32) || ' ' ||
1443: lpad(to_char(p_totarchiverows),10) || ' ');
1444: -- lpad(to_char(p_totdeleterows),10)); commented
1445: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 1445: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1441: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1442: ' ' || rpad('TOTAL',32) || ' ' ||
1443: lpad(to_char(p_totarchiverows),10) || ' ');
1444: -- lpad(to_char(p_totdeleterows),10)); commented
1445: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1446: '');
1447: GMA_PURGE_DDL.createarcviews(p_purge_id,p_purge_type,p_owner,p_appl_short_name,p_debug_flag);
1448:
1449: GMA_PURGE_DDL.droparctable(p_purge_id,p_owner,p_appl_short_name,'ARCHIVEROWS');

Line 1460: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1456:
1457: EXCEPTION
1458:
1459: WHEN OTHERS THEN
1460: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1461: 'Problem raised in GMA_PURGE_ENGINE.archive.');
1462: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1463: 'Unhandled EXCEPTION - ' || sqlerrm);
1464: RAISE;

Line 1462: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1458:
1459: WHEN OTHERS THEN
1460: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1461: 'Problem raised in GMA_PURGE_ENGINE.archive.');
1462: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1463: 'Unhandled EXCEPTION - ' || sqlerrm);
1464: RAISE;
1465:
1466: END archive;

Line 1493: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1489:
1490: EXCEPTION
1491:
1492: WHEN OTHERS THEN
1493: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1494: 'Problem raised in GMA_PURGE_ENGINE.purge.');
1495: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1496: 'Unhandled EXCEPTION - ' || sqlerrm);
1497: RAISE;

Line 1495: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1491:
1492: WHEN OTHERS THEN
1493: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1494: 'Problem raised in GMA_PURGE_ENGINE.purge.');
1495: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1496: 'Unhandled EXCEPTION - ' || sqlerrm);
1497: RAISE;
1498:
1499: END purge;

Line 1507: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1503: PROCEDURE report_exit (p_purge_id sy_purg_mst.purge_id%TYPE,
1504: p_status INTEGER) IS
1505: BEGIN
1506:
1507: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1508: 'Ending status is ' || to_char(p_status) || '.');
1509: GMA_PURGE_UTILITIES.printline(p_purge_id);
1510:
1511: EXCEPTION

Line 1509: GMA_PURGE_UTILITIES.printline(p_purge_id);

1505: BEGIN
1506:
1507: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1508: 'Ending status is ' || to_char(p_status) || '.');
1509: GMA_PURGE_UTILITIES.printline(p_purge_id);
1510:
1511: EXCEPTION
1512:
1513: WHEN OTHERS THEN

Line 1514: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1510:
1511: EXCEPTION
1512:
1513: WHEN OTHERS THEN
1514: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1515: 'Problem raised in GMA_PURGE_ENGINE. report_exit.');
1516: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1517: 'Unhandled EXCEPTION - ' || sqlerrm);
1518: RAISE;

Line 1516: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1512:
1513: WHEN OTHERS THEN
1514: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1515: 'Problem raised in GMA_PURGE_ENGINE. report_exit.');
1516: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1517: 'Unhandled EXCEPTION - ' || sqlerrm);
1518: RAISE;
1519:
1520: END report_exit;

Line 1670: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1666: return all_order_id;
1667:
1668: EXCEPTION WHEN OTHERS THEN
1669: if sqlcode=-1858 then
1670: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1671: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_OPSO.');
1672: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
1673: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1674: 'Unhandled EXCEPTION - ' || sqlerrm);

Line 1672: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');

1668: EXCEPTION WHEN OTHERS THEN
1669: if sqlcode=-1858 then
1670: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1671: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_OPSO.');
1672: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
1673: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1674: 'Unhandled EXCEPTION - ' || sqlerrm);
1675: end if;
1676: END GLPOSTED_OPSO;

Line 1673: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1669: if sqlcode=-1858 then
1670: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1671: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_OPSO.');
1672: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
1673: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1674: 'Unhandled EXCEPTION - ' || sqlerrm);
1675: end if;
1676: END GLPOSTED_OPSO;
1677:

Line 1805: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1801: return all_doc_id;
1802:
1803: EXCEPTION WHEN OTHERS THEN
1804: if sqlcode=-1858 then
1805: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1806: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_JRNL.');
1807: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
1808: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1809: 'Unhandled EXCEPTION - ' || sqlerrm);

Line 1807: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');

1803: EXCEPTION WHEN OTHERS THEN
1804: if sqlcode=-1858 then
1805: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1806: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_JRNL.');
1807: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
1808: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1809: 'Unhandled EXCEPTION - ' || sqlerrm);
1810: end if;
1811: END GLPOSTED_JRNL;

Line 1808: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1804: if sqlcode=-1858 then
1805: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1806: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_JRNL.');
1807: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
1808: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1809: 'Unhandled EXCEPTION - ' || sqlerrm);
1810: end if;
1811: END GLPOSTED_JRNL;
1812:

Line 1985: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1981: all_phantom_batch_id(i),
1982: p_debug_flag);
1983: End Loop;
1984:
1985: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1986: icnt||' rows inserted in '||l_temptable||' table.');
1987: END IF;
1988:
1989: --all_phantoms:=posted||all_phantoms; commented by KH

Line 1997: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1993: return all_phantoms;
1994:
1995: EXCEPTION WHEN OTHERS THEN
1996: if sqlcode=-1858 then
1997: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1998: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');
1999: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
2000: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2001: 'Unhandled EXCEPTION - ' || sqlerrm);

Line 1999: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');

1995: EXCEPTION WHEN OTHERS THEN
1996: if sqlcode=-1858 then
1997: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1998: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');
1999: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
2000: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2001: 'Unhandled EXCEPTION - ' || sqlerrm);
2002: else
2003: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 2000: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1996: if sqlcode=-1858 then
1997: GMA_PURGE_UTILITIES.printlong(p_purge_id,
1998: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');
1999: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
2000: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2001: 'Unhandled EXCEPTION - ' || sqlerrm);
2002: else
2003: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2004: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');

Line 2003: GMA_PURGE_UTILITIES.printlong(p_purge_id,

1999: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
2000: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2001: 'Unhandled EXCEPTION - ' || sqlerrm);
2002: else
2003: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2004: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');
2005: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2006: 'Unhandled EXCEPTION - ' || sqlerrm);
2007:

Line 2005: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2001: 'Unhandled EXCEPTION - ' || sqlerrm);
2002: else
2003: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2004: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');
2005: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2006: 'Unhandled EXCEPTION - ' || sqlerrm);
2007:
2008: end if;
2009:

Line 2135: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2131: return all_po_id;
2132:
2133: EXCEPTION WHEN OTHERS THEN
2134: if sqlcode=-1858 then
2135: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2136: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_PORD.');
2137: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
2138: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2139: 'Unhandled EXCEPTION - ' || sqlerrm);

Line 2137: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');

2133: EXCEPTION WHEN OTHERS THEN
2134: if sqlcode=-1858 then
2135: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2136: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_PORD.');
2137: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
2138: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2139: 'Unhandled EXCEPTION - ' || sqlerrm);
2140: end if;
2141: END GLPOSTED_PORD;

Line 2138: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2134: if sqlcode=-1858 then
2135: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2136: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_PORD.');
2137: GMA_PURGE_UTILITIES.printlong(p_purge_id,'Wrong data given for Purge and Archive');
2138: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2139: 'Unhandled EXCEPTION - ' || sqlerrm);
2140: end if;
2141: END GLPOSTED_PORD;
2142:

Line 2167: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,

2163: BEGIN
2164:
2165: -- define temporary table name of ids
2166: -- l_temptable:=p_purge_type||'_'||P_purge_id;
2167: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,
2168: 'TEMP');
2169:
2170: l_cursor := DBMS_SQL.OPEN_CURSOR;
2171:

Line 2178: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);

2174:
2175: -- l_temptable|| ' (all_ids number(20))';
2176:
2177: IF (p_debug_flag = TRUE) THEN
2178: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
2179: END IF;
2180: -- MADE BY KHAJA
2181:
2182: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);

Line 2192: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2188:
2189: -- Created a FUNCTION for GSCC standard fix bug 3871659
2190: -- Standard: File.Sql.6 - Do NOT include any references to hardcoded schema
2191:
2192: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2193: 'Temporary table '||Get_GmaSchemaName||'.'||l_temptable||' created.');
2194: -- 'Temporary table '||l_temptable||' created.');
2195:
2196: IF (p_debug_flag = TRUE) THEN

Line 2197: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);

2193: 'Temporary table '||Get_GmaSchemaName||'.'||l_temptable||' created.');
2194: -- 'Temporary table '||l_temptable||' created.');
2195:
2196: IF (p_debug_flag = TRUE) THEN
2197: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
2198: END IF;
2199:
2200: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
2201: --added by Khaja for SQL BIND VARIABLE project fix see 2935158

Line 2219: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2215: RETURN p_owner||'.'||l_temptable;
2216:
2217: EXCEPTION
2218: WHEN l_badstatement THEN
2219: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2220: 'Problem raised in GMA_PURGE_ENGINE.tempcreate.');
2221: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2222: 'Unhandled EXCEPTION - ' || sqlerrm);
2223: RAISE;

Line 2221: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2217: EXCEPTION
2218: WHEN l_badstatement THEN
2219: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2220: 'Problem raised in GMA_PURGE_ENGINE.tempcreate.');
2221: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2222: 'Unhandled EXCEPTION - ' || sqlerrm);
2223: RAISE;
2224:
2225: WHEN OTHERS THEN

Line 2226: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2222: 'Unhandled EXCEPTION - ' || sqlerrm);
2223: RAISE;
2224:
2225: WHEN OTHERS THEN
2226: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2227: 'Problem raised in GMA_PURGE_ENGINE.tempcreate.');
2228: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2229: 'Unhandled EXCEPTION - ' || sqlerrm);
2230: RAISE;

Line 2228: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2224:
2225: WHEN OTHERS THEN
2226: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2227: 'Problem raised in GMA_PURGE_ENGINE.tempcreate.');
2228: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2229: 'Unhandled EXCEPTION - ' || sqlerrm);
2230: RAISE;
2231:
2232: END tempcreate;

Line 2257: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,

2253:
2254: BEGIN
2255:
2256: -- l_temptable:=p_purge_type||'_'||p_purge_id;
2257: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,
2258: 'TEMP');
2259:
2260: l_cursor := DBMS_SQL.OPEN_CURSOR;
2261:

Line 2271: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);

2267: l_temptable|| ' values(:all_ids)';
2268:
2269: -- do not run this stmt
2270: /* IF (p_debug_flag = TRUE) THEN
2271: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
2272: END IF;
2273: */
2274:
2275: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);

Line 2289: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2285: DBMS_SQL.CLOSE_CURSOR(l_cursor);
2286:
2287: EXCEPTION
2288: WHEN l_badstatement THEN
2289: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2290: 'Problem raised in GMA_PURGE_ENGINE.tempinsert.');
2291: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2292: 'Unhandled EXCEPTION - ' || sqlerrm);
2293: RAISE;

Line 2291: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2287: EXCEPTION
2288: WHEN l_badstatement THEN
2289: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2290: 'Problem raised in GMA_PURGE_ENGINE.tempinsert.');
2291: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2292: 'Unhandled EXCEPTION - ' || sqlerrm);
2293: RAISE;
2294:
2295: WHEN OTHERS THEN

Line 2296: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2292: 'Unhandled EXCEPTION - ' || sqlerrm);
2293: RAISE;
2294:
2295: WHEN OTHERS THEN
2296: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2297: 'Problem raised in GMA_PURGE_ENGINE.tempinsert.');
2298: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2299: 'Unhandled EXCEPTION - ' || sqlerrm);
2300: RAISE;

Line 2298: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2294:
2295: WHEN OTHERS THEN
2296: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2297: 'Problem raised in GMA_PURGE_ENGINE.tempinsert.');
2298: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2299: 'Unhandled EXCEPTION - ' || sqlerrm);
2300: RAISE;
2301:
2302: END tempinsert;

Line 2326: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,

2322:
2323: BEGIN
2324:
2325: -- l_temptable:=P_purge_type||'_'||p_purge_id;
2326: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,
2327: 'TEMP');
2328:
2329: l_cursor := DBMS_SQL.OPEN_CURSOR;
2330:

Line 2338: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);

2334:
2335: l_sqlstatement := 'DROP TABLE ' ||Get_GmaSchemaName||'.' ||l_temptable;
2336:
2337: IF (p_debug_flag = TRUE) THEN
2338: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
2339: END IF;
2340:
2341: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
2342: l_result := DBMS_SQL.EXECUTE(l_cursor);

Line 2351: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2347:
2348: -- Created a FUNCTION for GSCC standard fix bug 3871659
2349: -- Standard: File.Sql.6 - Do NOT include any references to hardcoded schema
2350:
2351: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2352: 'Temporary table '||Get_GmaSchemaName||'.'||l_temptable||' dropped.');
2353: -- 'Temporary table '||l_temptable||' dropped.');
2354:
2355: DBMS_SQL.CLOSE_CURSOR(l_cursor);

Line 2359: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2355: DBMS_SQL.CLOSE_CURSOR(l_cursor);
2356:
2357: EXCEPTION
2358: WHEN l_badstatement THEN
2359: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2360: 'Problem raised in GMA_PURGE_ENGINE.tempdrop.');
2361: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2362: 'Unhandled EXCEPTION - ' || sqlerrm);
2363: RAISE;

Line 2361: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2357: EXCEPTION
2358: WHEN l_badstatement THEN
2359: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2360: 'Problem raised in GMA_PURGE_ENGINE.tempdrop.');
2361: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2362: 'Unhandled EXCEPTION - ' || sqlerrm);
2363: RAISE;
2364:
2365: WHEN OTHERS THEN

Line 2366: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2362: 'Unhandled EXCEPTION - ' || sqlerrm);
2363: RAISE;
2364:
2365: WHEN OTHERS THEN
2366: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2367: 'Problem raised in GMA_PURGE_ENGINE.tempdrop.');
2368: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2369: 'Unhandled EXCEPTION - ' || sqlerrm);
2370: RAISE;

Line 2368: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2364:
2365: WHEN OTHERS THEN
2366: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2367: 'Problem raised in GMA_PURGE_ENGINE.tempdrop.');
2368: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2369: 'Unhandled EXCEPTION - ' || sqlerrm);
2370: RAISE;
2371:
2372: END Tempdrop;

Line 2421: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,

2417:
2418: l_schema_name := Get_GmaSchemaName; /* Bug 4344986 */
2419:
2420: -- l_temptable:=P_purge_type||'_'||p_purge_id;
2421: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,
2422: 'TEMP');
2423: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2424: 'Reset Process initiated.');
2425:

Line 2423: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2419:
2420: -- l_temptable:=P_purge_type||'_'||p_purge_id;
2421: l_temptable:=GMA_PURGE_UTILITIES.makearcname(p_purge_id,
2422: 'TEMP');
2423: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2424: 'Reset Process initiated.');
2425:
2426: l_cursor := DBMS_SQL.OPEN_CURSOR;
2427: FOR rec in Cur_DropTbl(P_purge_id, l_schema_name)

Line 2440: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);

2436: l_sqlstatement:='DROP TABLE '||rec.owner||'.'||rec.table_name;
2437:
2438:
2439: IF (p_debug_flag ='T') THEN
2440: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
2441: END IF;
2442:
2443: --parse the RENAME stmt if table not found.
2444: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);

Line 2452: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2448: IF l_result <> 0 THEN
2449: RAISE l_badstatement;
2450: END IF;
2451:
2452: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2453: rec.owner||'.'||rec.table_name||' Table Dropped.');
2454: End Loop;
2455:
2456: GMA_PURGE_UTILITIES.printlong(p_purge_id,

Line 2456: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2452: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2453: rec.owner||'.'||rec.table_name||' Table Dropped.');
2454: End Loop;
2455:
2456: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2457: 'Reset Process completed successfully.');
2458:
2459: -- Close the cursor
2460: DBMS_SQL.CLOSE_CURSOR(l_cursor);

Line 2464: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2460: DBMS_SQL.CLOSE_CURSOR(l_cursor);
2461:
2462: EXCEPTION
2463: WHEN l_badstatement THEN
2464: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2465: 'Problem raised in GMA_PURGE_ENGINE.ResetTestPurge.');
2466: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2467: 'Unhandled EXCEPTION - ' || sqlerrm);
2468: RAISE;

Line 2466: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2462: EXCEPTION
2463: WHEN l_badstatement THEN
2464: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2465: 'Problem raised in GMA_PURGE_ENGINE.ResetTestPurge.');
2466: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2467: 'Unhandled EXCEPTION - ' || sqlerrm);
2468: RAISE;
2469:
2470: WHEN OTHERS THEN

Line 2471: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2467: 'Unhandled EXCEPTION - ' || sqlerrm);
2468: RAISE;
2469:
2470: WHEN OTHERS THEN
2471: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2472: 'Problem raised in GMA_PURGE_ENGINE.ResetTestPurge.');
2473: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2474: 'Unhandled EXCEPTION - ' || sqlerrm);
2475: RAISE;

Line 2473: GMA_PURGE_UTILITIES.printlong(p_purge_id,

2469:
2470: WHEN OTHERS THEN
2471: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2472: 'Problem raised in GMA_PURGE_ENGINE.ResetTestPurge.');
2473: GMA_PURGE_UTILITIES.printlong(p_purge_id,
2474: 'Unhandled EXCEPTION - ' || sqlerrm);
2475: RAISE;
2476: END ResetTestPurge;
2477: