1 PACKAGE BODY PA_PAXTRTRX_XMLP_PKG AS
2 /* $Header: PAXTRTRXB.pls 120.0 2008/01/02 12:19:25 krreddy noship $ */
3 L_ERROR BOOLEAN;
4 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
5 BEGIN
6 RETURN (TRUE);
7 EXCEPTION
8 WHEN OTHERS THEN
9 RETURN (FALSE);
10 END GET_COVER_PAGE_VALUES;
11 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12 BEGIN
13 DECLARE
14 NDF VARCHAR2(80);
15 X_ERROR_MSG VARCHAR2(80);
16 XFACE_ID NUMBER;
17 X_PURGEABLE VARCHAR2(1);
18 DUMMY NUMBER;
19 INIT_FAILURE EXCEPTION;
20 INVALID_TRX_SOURCE EXCEPTION;
21 BEGIN
22 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
23 LP_user_id := fnd_global.USER_ID;
24 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
25 /*SRW.USER_EXIT('FND GETPROFILE
26 NAME="USER_ID"
27 FIELD=":P_user_id"
28 PRINT_ERROR="N"')*/NULL;
29 P_DEBUG_MODE := FND_PROFILE.VALUE('PA_DEBUG_MODE');
30 IF (GET_COMPANY_NAME <> TRUE) THEN
31 RAISE INIT_FAILURE;
32 END IF;
33 BEGIN
34 SELECT
35 L.MEANING
36 INTO NDF
37 FROM
38 PA_LOOKUPS L
39 WHERE L.LOOKUP_TYPE = 'MESSAGE'
40 AND L.LOOKUP_CODE = 'NO_DATA_FOUND';
41 C_NO_DATA_FOUND := NDF;
42 EXCEPTION
43 WHEN NO_DATA_FOUND THEN
44 NULL;
45 END;
46 BEGIN
47 SELECT
48 PURGEABLE_FLAG
49 INTO X_PURGEABLE
50 FROM
51 PA_TRANSACTION_SOURCES
52 WHERE TRANSACTION_SOURCE = P_TRX_SOURCE;
53 P_PURGEABLE := X_PURGEABLE;
54 EXCEPTION
55 WHEN NO_DATA_FOUND THEN
56 RAISE INVALID_TRX_SOURCE;
57 END;
58 BEGIN
59 SELECT
60 PA_INTERFACE_ID_S.NEXTVAL
61 INTO XFACE_ID
62 FROM
63 SYS.DUAL;
64 P_XFACE_ID := XFACE_ID;
65 EXCEPTION
66 WHEN NO_DATA_FOUND THEN
67 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
68 END;
69 PA_TRX_IMPORT.IMPORT(P_TRX_SOURCE
70 ,P_BATCH_NAME
71 ,P_XFACE_ID
72 ,LP_user_id
73 ,NULL);
74 EXCEPTION
75 WHEN NO_DATA_FOUND THEN
76 C_DUMMY_DATA := 1;
77 WHEN INVALID_TRX_SOURCE THEN
78 SELECT
79 MEANING
80 INTO X_ERROR_MSG
81 FROM
82 PA_LOOKUPS
83 WHERE LOOKUP_TYPE = 'TRANSACTION REJECTION REASON'
84 AND LOOKUP_CODE = 'INVALID_TRX_SOURCE';
85 C_ERROR_MSG := X_ERROR_MSG;
86 /*SRW.MESSAGE(1
87 ,C_ERROR_MSG)*/NULL;
88 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
89 WHEN OTHERS THEN
90 /*SRW.MESSAGE(SQLCODE * -1
91 ,SQLERRM)*/NULL;
92 SET_ERROR_STATUS;
93 END;
94 RETURN (TRUE);
95 END BEFOREREPORT;
96 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
97 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
98 BEGIN
99 SELECT
100 GL.NAME
101 INTO L_NAME
102 FROM
103 GL_SETS_OF_BOOKS GL,
104 PA_IMPLEMENTATIONS PI
105 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
106 C_COMPANY_NAME_HEADER := L_NAME;
107 RETURN (TRUE);
108 EXCEPTION
109 WHEN OTHERS THEN
110 RETURN (FALSE);
111 END GET_COMPANY_NAME;
112 FUNCTION AFTERREPORT RETURN BOOLEAN IS
113 COMPLETION_STATUS BOOLEAN;
114 BEGIN
115 BEGIN
116 IF (P_PURGEABLE = 'Y') THEN
117 BEGIN
118 DELETE FROM PA_MC_TXN_INTERFACE_ALL
119 WHERE TXN_INTERFACE_ID in (
120 SELECT
121 TXN_INTERFACE_ID
122 FROM
123 PA_TRANSACTION_INTERFACE
124 WHERE INTERFACE_ID = P_XFACE_ID
125 AND ( ( TRANSACTION_STATUS_CODE = 'A' )
126 OR ( TRANSACTION_SOURCE = 'ORACLE TIME AND LABOR' ) ) );
127 EXCEPTION
128 WHEN NO_DATA_FOUND THEN
129 NULL;
130 END;
131 DELETE FROM PA_TRANSACTION_INTERFACE
132 WHERE INTERFACE_ID = P_XFACE_ID
133 AND ( ( TRANSACTION_STATUS_CODE = 'A' )
134 OR ( TRANSACTION_SOURCE = 'ORACLE TIME AND LABOR' ) );
135 END IF;
136 DELETE FROM PA_TRANSACTION_XFACE_CONTROL
137 WHERE INTERFACE_ID = P_XFACE_ID
138 AND STATUS = 'PROCESSED';
139 IF GET_ERROR_STATUS THEN
140 COMPLETION_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR'
141 ,SQLERRM);
142 END IF;
143 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
144 EXCEPTION
145 WHEN NO_DATA_FOUND THEN
146 NULL;
147 WHEN OTHERS THEN
148 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
149 END;
150 RETURN (TRUE);
151 END AFTERREPORT;
152 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
153 BEGIN
154 RETURN C_COMPANY_NAME_HEADER;
155 END C_COMPANY_NAME_HEADER_P;
156 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN C_NO_DATA_FOUND;
159 END C_NO_DATA_FOUND_P;
160 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
161 BEGIN
162 RETURN C_DUMMY_DATA;
163 END C_DUMMY_DATA_P;
164 FUNCTION C_ERROR_CODE_P RETURN NUMBER IS
165 BEGIN
166 RETURN C_ERROR_CODE;
167 END C_ERROR_CODE_P;
168 FUNCTION C_ERROR_MSG_P RETURN VARCHAR2 IS
169 BEGIN
170 RETURN C_ERROR_MSG;
171 END C_ERROR_MSG_P;
172 PROCEDURE SET_ERROR_STATUS IS
173 BEGIN
174 L_ERROR := TRUE;
175 END SET_ERROR_STATUS;
176 FUNCTION GET_ERROR_STATUS RETURN BOOLEAN IS
177 BEGIN
178 RETURN L_ERROR;
179 END GET_ERROR_STATUS;
180 END PA_PAXTRTRX_XMLP_PKG;
181