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.XDP_PURGE dependencies on XDP_PURGE

Line 1: PACKAGE BODY XDP_PURGE AS

1: PACKAGE BODY XDP_PURGE AS
2: /* $Header: XDPPRGB.pls 120.2 2006/08/09 13:47:15 dputhiye noship $ */
3:
4: g_debug_level NUMBER := 4;
5:

Line 20: p_msg_name IN VARCHAR2 DEFAULT 'XDP_PURGE_REC',

16:
17: PROCEDURE RECORDS_PURGED_MSGS(
18: p_no_records IN number DEFAULT 0,
19: p_table_name IN VARCHAR2 DEFAULT NULL,
20: p_msg_name IN VARCHAR2 DEFAULT 'XDP_PURGE_REC',
21: p_debug_level IN NUMBER DEFAULT 0 -- DEFAULT TO CONSICE MESSAGES
22: )
23: IS
24: l_error_msg VARCHAR2(2000);

Line 305: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

301: BEGIN
302:
303: IF p_sv_soa_id IS NULL THEN
304: IF (p_time_from IS NULL) OR (p_time_to IS NULL) THEN
305: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
306: FND_MESSAGE.SET_TOKEN('OBJECT','SOA');
307: FND_MESSAGE.SET_TOKEN('CONDITION','XDP_CHECK_SOA');
308: PURGE_ERRORS(FND_MESSAGE.GET);
309: END IF;

Line 357: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

353: ||p_sv_soa_id,'XDP_FOUND_REC',0);
354: COMMIT;
355: EXCEPTION
356: WHEN OTHERS THEN
357: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
358: FND_MESSAGE.SET_TOKEN('OBJECT','SOA');
359: FND_MESSAGE.SET_TOKEN('CONDITION','XDP_CHECK_SOA');
360: PURGE_ERRORS(FND_MESSAGE.GET);
361: END XDP_CHECK_SOA;

Line 448: l_rec_name := 'XDP_PURGE_REC';

444: l_wi_counter NUMBER :=0;
445: l_rec_name VARCHAR2(16) := 'XDP_FOUND_REC';
446: BEGIN
447: IF(p_run_mode = 'PURGE') THEN
448: l_rec_name := 'XDP_PURGE_REC';
449: END IF;
450:
451: FOR l_worklist IN c_fulfill_worklist LOOP
452: -- LOG PURGING INFORMATION

Line 558: l_rec_name := 'XDP_PURGE_REC';

554: l_rec_name VARCHAR2(16) := 'XDP_FOUND_REC';
555:
556: BEGIN
557: IF(p_run_mode = 'PURGE') THEN
558: l_rec_name := 'XDP_PURGE_REC';
559: END IF;
560:
561: FOR l_line_item IN c_line_item LOOP
562: Delete_Fulfill_Worklist(l_line_item.line_item_id,p_run_mode);

Line 645: l_rec_name := 'XDP_PURGE_REC';

641: RETURN;
642: END IF;
643:
644: IF(p_run_mode = 'PURGE') THEN
645: l_rec_name := 'XDP_PURGE_REC';
646: l_wi_name := 'XDP_PURGE_WI';
647: END IF;
648:
649: IF p_order_id IS NULL THEN

Line 646: l_wi_name := 'XDP_PURGE_WI';

642: END IF;
643:
644: IF(p_run_mode = 'PURGE') THEN
645: l_rec_name := 'XDP_PURGE_REC';
646: l_wi_name := 'XDP_PURGE_WI';
647: END IF;
648:
649: IF p_order_id IS NULL THEN
650: RETURN;

Line 696: -- Procedure XDP_PURGE_ORDER

692: WHEN OTHERS THEN
693: PURGE_ERRORS(P_MSG=>SUBSTR(SQLERRM, 1, 512),P_ABORT => TRUE);
694: END DELETE_WF_ITEMS;
695:
696: -- Procedure XDP_PURGE_ORDER
697: -- Purge order for a given id
698: --
699: -- IN:
700: -- p_order_id - order id to be purged

Line 715: PROCEDURE XDP_PURGE_ORDER

711: -- - FAIL the order is not , or not to be purged
712: -- - EXCEPTION Exception occured while purge this order
713: -- -
714:
715: PROCEDURE XDP_PURGE_ORDER
716: (
717: p_order_id IN NUMBER,
718: p_time_from IN DATE,
719: p_time_to IN DATE,

Line 760: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ORD');

756: BEGIN
757:
758: -- Lock the record for update
759:
760: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ORD');
761: FND_MESSAGE.SET_TOKEN('ORDER_ID',p_order_id);
762: PURGE_ERRORS(FND_MESSAGE.GET);
763:
764: SELECT 1 INTO l_dummy FROM XDP_ORDER_HEADERS

Line 870: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

866: WHEN OTHERS THEN
867: ROLLBACK TO Order_Rollback;
868: x_purge_status := 'EXCEPTION';
869: x_purge_status := 'FAIL';
870: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
871: FND_MESSAGE.SET_TOKEN('OBJECT','ORDER');
872: FND_MESSAGE.SET_TOKEN('CONDITION','');
873: PURGE_ERRORS(FND_MESSAGE.GET);
874: PURGE_ERRORS(SUBSTR(SQLERRM, 1, 512));

Line 875: END XDP_PURGE_ORDER;

871: FND_MESSAGE.SET_TOKEN('OBJECT','ORDER');
872: FND_MESSAGE.SET_TOKEN('CONDITION','');
873: PURGE_ERRORS(FND_MESSAGE.GET);
874: PURGE_ERRORS(SUBSTR(SQLERRM, 1, 512));
875: END XDP_PURGE_ORDER;
876:
877: PROCEDURE XDP_PURGE_ORDERS
878: (
879: p_time_from IN DATE,

Line 877: PROCEDURE XDP_PURGE_ORDERS

873: PURGE_ERRORS(FND_MESSAGE.GET);
874: PURGE_ERRORS(SUBSTR(SQLERRM, 1, 512));
875: END XDP_PURGE_ORDER;
876:
877: PROCEDURE XDP_PURGE_ORDERS
878: (
879: p_time_from IN DATE,
880: p_time_to IN DATE,
881: p_run_mode IN VARCHAR2 DEFAULT 'VERIFY',

Line 918: l_rec_name := 'XDP_PURGE_REC';

914: l_mini_secs NUMBER :=0;
915: BEGIN
916: PURGE_ERRORS('==== '||p_run_mode|| ' ORDERS ' ||' ===================');
917: IF(p_run_mode = 'PURGE') THEN
918: l_rec_name := 'XDP_PURGE_REC';
919: END IF;
920:
921: IF p_run_mode ='CHECK' THEN
922: --Date: 09 AUG 2006 Author: DPUTHIYE Bug #:5446335

Line 968: XDP_PURGE_ORDER(

964: IF c_order%notfound THEN
965: EXIT OUTER_LOOP;
966: END IF;
967:
968: XDP_PURGE_ORDER(
969: l_order_id,
970: p_time_from,
971: p_time_to,
972: p_run_mode,

Line 983: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

979: -- Reset exception counter
980: l_exception_counter := 0;
981: ELSIF l_purge_status = 'EXCEPTION' THEN
982: l_exception_counter := l_exception_counter + 1;
983: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
984: FND_MESSAGE.SET_TOKEN('OBJECT','ORDER');
985: FND_MESSAGE.SET_TOKEN('CONDITION','order_id ='|| l_order_id);
986: PURGE_ERRORS(FND_MESSAGE.GET);
987: PURGE_ERRORS(SUBSTR(SQLERRM, 1, 512));

Line 1019: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

1015: PURGE_ERRORS((G_Total_WK_TIME/100) || ' seconds used to purge workflow items for these orders');
1016: COMMIT;
1017: EXCEPTION
1018: WHEN OTHERS THEN
1019: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
1020: FND_MESSAGE.SET_TOKEN('OBJECT','ORDER');
1021: FND_MESSAGE.SET_TOKEN('CONDITION','');
1022:
1023: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);

Line 1026: END XDP_PURGE_ORDERS;

1022:
1023: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);
1024: PURGE_ERRORS(SUBSTR(SQLERRM, 1, 512));
1025: RAISE;
1026: END XDP_PURGE_ORDERS;
1027: --
1028: -- Procedure XDP_PRUGE_TIMER
1029: -- Purge runtime timers for a given message
1030: -- timers associated with orders are purged with orders

Line 1037: -- Procedure XDP_PURGE_MESSAGES

1033: BEGIN
1034: DELETE FROM xnp_timer_registry WHERE timer_id = p_msg_id;
1035: END XDP_PRUGE_TIMER;
1036:
1037: -- Procedure XDP_PURGE_MESSAGES
1038: -- Purge runtime messages from SFM
1039: --
1040: -- IN:
1041: -- p_time_from - date from which data is purged

Line 1051: PROCEDURE XDP_PURGE_MESSAGES

1047: -- p_order_purge_mode - indicate if messages whose orders still exist
1048: -- - in the database should be purged or not
1049:
1050: -- The assumption here is that
1051: PROCEDURE XDP_PURGE_MESSAGES
1052: (
1053: p_time_from IN DATE,
1054: p_time_to IN DATE,
1055: p_run_mode IN VARCHAR2 DEFAULT 'PURGE',

Line 1113: l_rec_name := 'XDP_PURGE_REC';

1109: RETURN;
1110: END IF;
1111:
1112: IF(p_run_mode = 'PURGE') THEN
1113: l_rec_name := 'XDP_PURGE_REC';
1114: END IF;
1115:
1116: l_user_rollback := USER_ROLLBACK_CTRL(p_rollback_segment);
1117: -- purge messages that are not associated with an order

Line 1181: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

1177: RECORDS_PURGED_MSGS(l_no_msgs,'XNP_MSGS',l_rec_name,-1);
1178: EXCEPTION
1179: WHEN OTHERS THEN
1180: ROLLBACK TO MSG_RLBK;
1181: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
1182: FND_MESSAGE.SET_TOKEN('OBJECT','MESSAGES');
1183: FND_MESSAGE.SET_TOKEN('CONDITION',SQLERRM);
1184: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);
1185: RAISE;

Line 1186: END XDP_PURGE_MESSAGES;

1182: FND_MESSAGE.SET_TOKEN('OBJECT','MESSAGES');
1183: FND_MESSAGE.SET_TOKEN('CONDITION',SQLERRM);
1184: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);
1185: RAISE;
1186: END XDP_PURGE_MESSAGES;
1187:
1188: -- Procedure XDP_PURGE_SOA
1189: -- Purge soa data from SFM
1190: --

Line 1188: -- Procedure XDP_PURGE_SOA

1184: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);
1185: RAISE;
1186: END XDP_PURGE_MESSAGES;
1187:
1188: -- Procedure XDP_PURGE_SOA
1189: -- Purge soa data from SFM
1190: --
1191: -- IN:
1192: -- p_time_from - date from which data is purged

Line 1199: PROCEDURE XDP_PURGE_SOA

1195: -- - 'PURGE', to purge data
1196: -- - 'VERIFY', to verify setting and print out data will be purged
1197: -- - 'CHECK', to check transactional data in the database
1198:
1199: PROCEDURE XDP_PURGE_SOA
1200: (
1201: p_time_from IN DATE,
1202: p_time_to IN DATE,
1203: p_run_mode IN VARCHAR2 DEFAULT 'VERIFY',

Line 1225: l_rec_name := 'XDP_PURGE_REC';

1221:
1222: PURGE_ERRORS('==== '||p_run_mode|| ' SOA ' ||' ===================');
1223:
1224: IF(p_run_mode = 'PURGE') THEN
1225: l_rec_name := 'XDP_PURGE_REC';
1226: END IF;
1227: IF(p_run_mode = 'PURGE') THEN
1228: l_rec_name := 'XDP_PURGE_REC';
1229: END IF;

Line 1228: l_rec_name := 'XDP_PURGE_REC';

1224: IF(p_run_mode = 'PURGE') THEN
1225: l_rec_name := 'XDP_PURGE_REC';
1226: END IF;
1227: IF(p_run_mode = 'PURGE') THEN
1228: l_rec_name := 'XDP_PURGE_REC';
1229: END IF;
1230:
1231: IF p_run_mode ='CHECK' THEN
1232: SELECT COUNT(*) INTO l_temp FROM XNP_SV_SOA A, XNP_SV_STATUS_TYPES_B B

Line 1316: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

1312: COMMIT;
1313: EXCEPTION
1314: WHEN OTHERS THEN
1315: ROLLBACK;
1316: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
1317: FND_MESSAGE.SET_TOKEN('OBJECT','SOA');
1318: FND_MESSAGE.SET_TOKEN('CONDITION','');
1319: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);
1320: RAISE;

Line 1321: END XDP_PURGE_SOA;

1317: FND_MESSAGE.SET_TOKEN('OBJECT','SOA');
1318: FND_MESSAGE.SET_TOKEN('CONDITION','');
1319: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);
1320: RAISE;
1321: END XDP_PURGE_SOA;
1322:
1323: -- Procedure XDP_PURGE_MISC
1324: -- Purge debug, exception and misc workflow data from SFM
1325: --

Line 1323: -- Procedure XDP_PURGE_MISC

1319: PURGE_ERRORS(FND_MESSAGE.GET,P_COMMIT => TRUE);
1320: RAISE;
1321: END XDP_PURGE_SOA;
1322:
1323: -- Procedure XDP_PURGE_MISC
1324: -- Purge debug, exception and misc workflow data from SFM
1325: --
1326: -- IN:
1327: -- p_time_from - date from which data is purged

Line 1335: PROCEDURE XDP_PURGE_MISC

1331: -- - for any other text, the program will only test
1332: -- - the purge and log affected data into log files.
1333: -- - if not specified, the program will purge data
1334:
1335: PROCEDURE XDP_PURGE_MISC
1336: (
1337: p_time_from IN DATE,
1338: p_time_to IN DATE,
1339: p_run_mode IN VARCHAR2 DEFAULT 'VERIFY',

Line 1373: l_rec_name := 'XDP_PURGE_REC';

1369: BEGIN
1370: PURGE_ERRORS('==== '||p_run_mode|| ' Misc ' ||' ===================');
1371:
1372: IF(p_run_mode = 'PURGE') THEN
1373: l_rec_name := 'XDP_PURGE_REC';
1374: END IF;
1375:
1376: SELECT COUNT(*) INTO l_no_reords FROM XDP_DEBUG
1377: WHERE LAST_UPDATE_DATE < p_time_to

Line 1509: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

1505: COMMIT;
1506: EXCEPTION
1507: WHEN OTHERS THEN
1508: ROLLBACK;
1509: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
1510: FND_MESSAGE.SET_TOKEN('OBJECT','MISC');
1511: PURGE_ERRORS(FND_MESSAGE.GET);
1512: RAISE;
1513: END XDP_PURGE_MISC;

Line 1513: END XDP_PURGE_MISC;

1509: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
1510: FND_MESSAGE.SET_TOKEN('OBJECT','MISC');
1511: PURGE_ERRORS(FND_MESSAGE.GET);
1512: RAISE;
1513: END XDP_PURGE_MISC;
1514:
1515: -- Procedure PURGE
1516: -- Purge obsolete data from SFM
1517: --

Line 1623: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

1619: --
1620: IF (p_run_mode <> 'CHECK') AND (p_run_mode <> 'PURGE') AND
1621: (p_run_mode <> 'VERIFY')
1622: THEN
1623: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
1624: FND_MESSAGE.SET_TOKEN('OBJECT','PURGE');
1625: FND_MESSAGE.SET_TOKEN('CONDITION','p_run_mode ='||p_run_mode);
1626: RETCODE := 2;
1627: ERRBUF := FND_MESSAGE.GET;

Line 1652: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_PROCESS');

1648: ELSE
1649: l_time_to := SYSDATE - p_number_of_days;
1650: END IF;
1651:
1652: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_PROCESS');
1653:
1654: --default time format will be used to convert time string
1655:
1656: FND_MESSAGE.SET_TOKEN('DATE_FROM',TO_CHAR(l_time_from,'MM-DD-YYYY HH:MI:SS'));

Line 1672: XDP_PURGE_ORDERS(l_time_from,l_time_to,p_run_mode,

1668: END IF;
1669:
1670:
1671: IF INSTR(p_purge_data_set,'ORDER') <> 0 THEN
1672: XDP_PURGE_ORDERS(l_time_from,l_time_to,p_run_mode,
1673: l_purge_order_with_msg,
1674: l_rollback_segment,l_orders_purged);
1675:
1676: RECORDS_PURGED_MSGS(l_orders_purged,'XDP_ORDER_HEADERS','ORDER',-1);

Line 1680: XDP_PURGE_SOA(l_time_from,l_time_to,p_run_mode,l_rollback_segment);

1676: RECORDS_PURGED_MSGS(l_orders_purged,'XDP_ORDER_HEADERS','ORDER',-1);
1677: END IF;
1678:
1679: IF INSTR(p_purge_data_set,'SOA') <> 0 THEN
1680: XDP_PURGE_SOA(l_time_from,l_time_to,p_run_mode,l_rollback_segment);
1681: END IF;
1682:
1683: IF INSTR(p_purge_data_set,'MSG') <> 0 THEN
1684: XDP_PURGE_MESSAGES(

Line 1684: XDP_PURGE_MESSAGES(

1680: XDP_PURGE_SOA(l_time_from,l_time_to,p_run_mode,l_rollback_segment);
1681: END IF;
1682:
1683: IF INSTR(p_purge_data_set,'MSG') <> 0 THEN
1684: XDP_PURGE_MESSAGES(
1685: l_time_from,l_time_to,p_run_mode,
1686: l_purge_msgs_regardless,
1687: l_rollback_segment);
1688: END IF;

Line 1691: XDP_PURGE_MISC(l_time_from,l_time_to,p_run_mode,l_rollback_segment);

1687: l_rollback_segment);
1688: END IF;
1689:
1690: IF INSTR(p_purge_data_set,'MISC') <> 0 THEN
1691: XDP_PURGE_MISC(l_time_from,l_time_to,p_run_mode,l_rollback_segment);
1692: END IF;
1693:
1694: RETCODE := 0;
1695: ERRBUF := 'Success';

Line 1701: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');

1697: EXCEPTION
1698: WHEN OTHERS THEN
1699: ROLLBACK;
1700: RETCODE := 2;
1701: FND_MESSAGE.SET_NAME('XDP','XDP_PURGE_ERROR');
1702: FND_MESSAGE.SET_TOKEN('OBJECT','PURGE');
1703: FND_MESSAGE.SET_TOKEN('CONDITION',SQLERRM);
1704: ERRBUF := FND_MESSAGE.GET;
1705: -- PURGE_ERRORS(P_MSG => ERRBUF,P_COMMIT => TRUE);

Line 1708: END XDP_PURGE;

1704: ERRBUF := FND_MESSAGE.GET;
1705: -- PURGE_ERRORS(P_MSG => ERRBUF,P_COMMIT => TRUE);
1706: END PURGE;
1707:
1708: END XDP_PURGE;
1709: