1 PACKAGE BODY PO_RCVIERR_XMLP_PKG AS
2 /* $Header: RCVIERRB.pls 120.2 2008/01/11 11:58:18 dwkrishn noship $ */
3 FUNCTION AFTERREPORT(C_1 IN NUMBER
4 ,C_2 IN NUMBER) RETURN BOOLEAN IS
5 BEGIN
6 BEGIN
7 IF (C_1 = 0 AND C_2 = 0) THEN
8 RETURN (true);
9 ELSE
10 IF P_PURGE_DATA = 'Y' THEN
11 DELETE FROM PO_INTERFACE_ERRORS POI
12 WHERE POI.INTERFACE_HEADER_ID in (
13 SELECT
14 RHI.HEADER_INTERFACE_ID
15 FROM
16 PO_INTERFACE_ERRORS POI,
17 RCV_HEADERS_INTERFACE RHI
18 WHERE POI.INTERFACE_HEADER_ID = RHI.HEADER_INTERFACE_ID
19 AND ( ( TO_DATE(TO_CHAR(TRUNC(POI.CREATION_DATE)
20 ,'DD-MON-YYYY')
21 ,'DD-MON-YYYY') between TRUNC(NVL(P_START_DATE
22 ,POI.CREATION_DATE))
23 AND TRUNC(NVL(P_END_DATE
24 ,SYSDATE))
25 AND ( P_START_DATE is not null
26 OR P_END_DATE is not null ) )
27 OR ( P_START_DATE is null
28 AND P_END_DATE is null
29 AND RHI.PROCESSING_STATUS_CODE NOT IN ( 'PENDING' ) ) ) );
30 DELETE FROM PO_INTERFACE_ERRORS POI
31 WHERE POI.INTERFACE_LINE_ID in (
32 SELECT
33 RTI.INTERFACE_TRANSACTION_ID
34 FROM
35 PO_INTERFACE_ERRORS POI,
36 RCV_TRANSACTIONS_INTERFACE RTI
37 WHERE POI.INTERFACE_LINE_ID = RTI.INTERFACE_TRANSACTION_ID
38 AND POI.INTERFACE_TYPE = 'RCV-856'
39 AND ( ( TRUNC(TO_DATE(TO_CHAR(POI.CREATION_DATE
40 ,'DD-MON-YYYY')
41 ,'DD-MON-YYYY')) between TRUNC(NVL(P_START_DATE
42 ,POI.CREATION_DATE))
43 AND TRUNC(NVL(P_END_DATE
44 ,SYSDATE))
45 AND ( P_START_DATE is not null
46 OR P_END_DATE is not null ) )
47 OR ( P_START_DATE is null
48 AND P_END_DATE is null
49 AND RTI.PROCESSING_STATUS_CODE NOT IN ( 'PENDING' ) ) ) );
50 DELETE FROM PO_INTERFACE_ERRORS POI
51 WHERE POI.INTERFACE_TRANSACTION_ID in (
52 SELECT
53 RTI.INTERFACE_TRANSACTION_ID
54 FROM
55 PO_INTERFACE_ERRORS POI,
56 RCV_TRANSACTIONS_INTERFACE RTI
57 WHERE POI.INTERFACE_TRANSACTION_ID = RTI.INTERFACE_TRANSACTION_ID
58 AND POI.INTERFACE_TYPE in ( 'RECEIVE' , 'DELIVER' )
59 AND ( ( TRUNC(TO_DATE(TO_CHAR(POI.CREATION_DATE
60 ,'DD-MON-YYYY')
61 ,'DD-MON-YYYY')) between TRUNC(NVL(P_START_DATE
62 ,POI.CREATION_DATE))
63 AND TRUNC(NVL(P_END_DATE
64 ,SYSDATE))
65 AND ( P_START_DATE is not null
66 OR P_END_DATE is not null ) )
67 OR ( P_START_DATE is null
68 AND P_END_DATE is null
69 AND RTI.PROCESSING_STATUS_CODE NOT IN ( 'PENDING' ) ) ) );
70 END IF;
71 RETURN (TRUE);
72 END IF;
73 END;
74 RETURN (TRUE);
75 END AFTERREPORT;
76
77 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
78 BEGIN
79 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
80 RETURN (TRUE);
81 END BEFOREREPORT;
82
83 END PO_RCVIERR_XMLP_PKG;
84