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_ENGINE

Line 1: PACKAGE BODY GMA_PURGE_ENGINE AS

1: PACKAGE BODY GMA_PURGE_ENGINE AS
2: /* $Header: GMAPRGEB.pls 120.1.12010000.1 2008/07/30 06:17:23 appldev ship $ */
3:
4: FUNCTION archivecleanup
5: (p_purge_id sy_purg_mst.purge_id%TYPE,

Line 210: IF (GMA_PURGE_ENGINE.initarchive(p_purge_id,

206: END IF;
207:
208: -- get set up for archive; create target archive tables, disable constraints
209: l_initstarttime := sysdate;
210: IF (GMA_PURGE_ENGINE.initarchive(p_purge_id,
211: p_purge_type,
212: p_owner,
213: p_appl_short_name,
214: p_arcrowtable,

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 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 267: IF (GMA_PURGE_ENGINE.archivecleanup(p_purge_id,

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,
268: p_arctables_tab,
269: p_arcactions_tab,
270: p_tablecount,
271: l_indexes_tab,

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 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 310: l_continue := GMA_PURGE_ENGINE.archivecleanup(p_purge_id,

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,
312: p_arcactions_tab,
313: p_tablecount,
314: l_indexes_tab,

Line 327: l_continue := GMA_PURGE_ENGINE.archivecleanup(p_purge_id,

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,
329: p_arcactions_tab,
330: p_tablecount,
331: l_indexes_tab,

Line 343: 'Problem raised in GMA_PURGE_ENGINE.doarchive.');

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
347: l_continue := GMA_PURGE_ENGINE.archivecleanup(p_purge_id,

Line 347: l_continue := GMA_PURGE_ENGINE.archivecleanup(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,
349: p_arcactions_tab,
350: p_tablecount,
351: l_indexes_tab,

Line 409: 'Problem raised in GMA_PURGE_ENGINE.archivecleanup.');

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;
413:

Line 571: 'Problem raised in GMA_PURGE_ENGINE.initarchive.');

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;
575:

Line 725: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

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;
728:
729: -- get lost if purge type isn't good

Line 733: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

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;
736: GMA_PURGE_UTILITIES.printlong(p_purge_id,
737: 'Purge type is ' ||

Line 748: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

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;
751: BEGIN
752: OPEN l_schema_cursor(l_owner);

Line 759: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

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;
762:
763: -- get user ID

Line 807: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

803: ' - exiting.');
804: END IF;
805:
806: IF l_status<>0 THEN --added by Khaja
807: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
808: RETURN;
809: END IF;
810:
811: END IF;

Line 942: get_all_ids:=GMA_PURGE_ENGINE.glposted_prod(p_purge_id,

938: -- check the GL_POSTED_IND for PROD added by KH
939: if upper(l_purge_type) in('PROD','APRD') then
940:
941: -- Get Posted flag and temp table name from GLPOSTED_PROD
942: get_all_ids:=GMA_PURGE_ENGINE.glposted_prod(p_purge_id,
943: l_purge_type,
944: l_owner,
945: l_debug_flag);
946: -- Take the Posted flag

Line 983: GMA_PURGE_ENGINE.archive(p_purge_id,

979: end if;
980: end if;
981:
982: -- do it up.
983: GMA_PURGE_ENGINE.archive(p_purge_id,
984: l_purge_type,
985: l_owner,
986: p_appl_short_name,
987: l_user,

Line 1056: GMA_PURGE_ENGINE.purge(p_purge_id,l_purge_type,l_owner,p_appl_short_name,l_debug_flag);

1052:
1053:
1054: ELSE
1055: if PA_OPTION in(2,5) then
1056: GMA_PURGE_ENGINE.purge(p_purge_id,l_purge_type,l_owner,p_appl_short_name,l_debug_flag);
1057: end if;
1058:
1059: l_elapsed := trunc(((SYSDATE - l_starttime) * 86400),2);
1060:

Line 1114: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

1110: WHERE purge_id = p_purge_id;
1111: commit;
1112: end if;
1113:
1114: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);
1115:
1116: -- DBMS_SQL.CLOSE_CURSOR(NULL);
1117: RETURN; -- Exit program.
1118:

Line 1126: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

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,
1129: 'Not Purging, No posted Rows found.');
1130: if P_JOB_RUN in (1,2) then

Line 1155: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

1151: commit;
1152: end if;
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,

Line 1158: 'Problem raised in GMA_PURGE_ENGINE.main.');

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,
1162: 'Exiting.');

Line 1163: GMA_PURGE_ENGINE.report_exit(p_purge_id,l_status);

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;
1166:
1167: if P_JOB_RUN in (1,2) then

Line 1216: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN

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,
1218: -- l_sqlstatement,p_arcrowtable);
1219: -- ELSE
1220: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);

Line 1236: 'Problem raised in GMA_PURGE_ENGINE.getrows.');

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;
1240:

Line 1341: 'Problem raised in GMA_PURGE_ENGINE.logresults.');

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;
1345:

Line 1382: GMA_PURGE_ENGINE.getrows(p_purge_id,

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,
1383: p_owner,
1384: p_appl_short_name,
1385: p_sqlstatement,
1386: p_arctablespace,

Line 1393: GMA_PURGE_ENGINE.PA_OPTION_NAME||' rows determined in ' ||

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
1397: SET selection_elapsed_time =

Line 1405: GMA_PURGE_ENGINE.doarchive(p_purge_id,

1401: WHERE purge_id = p_purge_id;
1402:
1403: COMMIT;
1404:
1405: GMA_PURGE_ENGINE.doarchive(p_purge_id,
1406: p_purge_type,
1407: p_owner,
1408: p_appl_short_name,
1409: p_user,

Line 1425: GMA_PURGE_ENGINE.PA_OPTION_NAME||' selection completed in ' ||

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.');
1428:
1429: -- create log entries here

Line 1430: GMA_PURGE_ENGINE.logresults(p_purge_id,

1426: to_char(trunc((SYSDATE - p_inittime) * 86400))
1427: || ' seconds.');
1428:
1429: -- create log entries here
1430: GMA_PURGE_ENGINE.logresults(p_purge_id,
1431: p_user,
1432: p_arctables_tab,
1433: p_arcactions_tab,
1434: l_tablecount,

Line 1453: GMA_PURGE_ENGINE.Tempdrop(p_purge_id,p_purge_type,p_debug_flag);

1449: GMA_PURGE_DDL.droparctable(p_purge_id,p_owner,p_appl_short_name,'ARCHIVEROWS');
1450:
1451: -- Drops the temporary table for GME only. KH
1452: IF upper(p_purge_type) in('PROD','APRD','AJNL','JRNL','OPSO','AOPS','PORD','APOR') Then
1453: GMA_PURGE_ENGINE.Tempdrop(p_purge_id,p_purge_type,p_debug_flag);
1454: END IF;
1455:
1456:
1457: EXCEPTION

Line 1461: 'Problem raised in GMA_PURGE_ENGINE.archive.');

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;
1465:

Line 1494: 'Problem raised in GMA_PURGE_ENGINE.purge.');

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;
1498:

Line 1515: 'Problem raised in GMA_PURGE_ENGINE. report_exit.');

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;
1519:

Line 1645: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,

1641: posted:='T,';
1642:
1643: if l_TempFlag='T' then
1644: -- proceede with Temporary table stuff,Create the Temp table
1645: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,
1646: p_purge_type,
1647: p_owner,
1648: p_debug_flag);
1649: l_TempFlag:='F';

Line 1654: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,

1650: end if;
1651:
1652:
1653: --Now start inserting all_ids to Temp table
1654: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,
1655: p_purge_type,
1656: c1Rec.order_id,
1657: p_debug_flag);
1658:

Line 1671: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_OPSO.');

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);
1675: end if;

Line 1782: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,

1778: posted:='T,';
1779:
1780: if l_TempFlag='T' then
1781: -- proceede with Temporary table stuff,Create the Temp table
1782: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,
1783: p_purge_type,
1784: p_owner,
1785: p_debug_flag);
1786: l_TempFlag:='F';

Line 1791: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,

1787: end if;
1788:
1789:
1790: --Now start inserting all_ids to Temp table
1791: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,
1792: p_purge_type,
1793: c1Rec.doc_id,
1794: p_debug_flag);
1795: END IF;

Line 1806: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_JRNL.');

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);
1810: end if;

Line 1972: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,

1968:
1969: -- If posted flag is True then proceede with Temporary table stuff
1970: IF substr(posted,1,1)='T' Then
1971: --Create the Temp table
1972: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,
1973: p_purge_type,
1974: p_owner,
1975: p_debug_flag);
1976: --Now start inserting all_ids to Temp table

Line 1979: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,

1975: p_debug_flag);
1976: --Now start inserting all_ids to Temp table
1977: For i in 1..icnt
1978: Loop
1979: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,
1980: p_purge_type,
1981: all_phantom_batch_id(i),
1982: p_debug_flag);
1983: End Loop;

Line 1998: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');

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);
2002: else

Line 2004: 'Problem raised in GMA_PURGE_ENGINE.glposted_prod.');

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:
2008: end if;

Line 2112: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,

2108: ELSE
2109: posted:='T,';
2110: if l_TempFlag='T' then
2111: -- proceede with Temporary table stuff,Create the Temp table
2112: l_temptable:=GMA_PURGE_ENGINE.Tempcreate(P_purge_id,
2113: p_purge_type,
2114: p_owner,
2115: p_debug_flag);
2116: l_TempFlag:='F';

Line 2121: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,

2117: end if;
2118:
2119:
2120: --Now start inserting all_ids to Temp table
2121: GMA_PURGE_ENGINE.Tempinsert(P_purge_id,
2122: p_purge_type,
2123: c1Rec.po_id,
2124: p_debug_flag);
2125:

Line 2136: 'Problem raised in GMA_PURGE_ENGINE.GLPOSTED_PORD.');

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);
2140: end if;

Line 2220: 'Problem raised in GMA_PURGE_ENGINE.tempcreate.');

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;
2224:

Line 2227: 'Problem raised in GMA_PURGE_ENGINE.tempcreate.');

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;
2231:

Line 2290: 'Problem raised in GMA_PURGE_ENGINE.tempinsert.');

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;
2294:

Line 2297: 'Problem raised in GMA_PURGE_ENGINE.tempinsert.');

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;
2301:

Line 2360: 'Problem raised in GMA_PURGE_ENGINE.tempdrop.');

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;
2364:

Line 2367: 'Problem raised in GMA_PURGE_ENGINE.tempdrop.');

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;
2371:

Line 2465: 'Problem raised in GMA_PURGE_ENGINE.ResetTestPurge.');

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;
2469:

Line 2472: 'Problem raised in GMA_PURGE_ENGINE.ResetTestPurge.');

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;
2476: END ResetTestPurge;

Line 2504: END GMA_PURGE_ENGINE;

2500: RETURN l_schema_name;
2501:
2502: END Get_GmaSchemaName;
2503:
2504: END GMA_PURGE_ENGINE;