1 PACKAGE BODY PA_PAAPIMPR_XMLP_PKG AS
2 /* $Header: PAAPIMPRB.pls 120.0 2008/01/02 09:57:49 krreddy noship $ */
3 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN (FALSE);
9 END GET_COVER_PAGE_VALUES;
10
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 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
24 /*SRW.USER_EXIT('FND GETPROFILE
25 NAME="USER_ID"
26 FIELD=":P_user_id"
27 PRINT_ERROR="N"')*/NULL;
28 IF (GET_COMPANY_NAME <> TRUE) THEN
29 NULL;
30 END IF;
31 BEGIN
32 SELECT
33 L.MEANING
34 INTO NDF
35 FROM
36 PA_LOOKUPS L
37 WHERE L.LOOKUP_TYPE = 'MESSAGE'
38 AND L.LOOKUP_CODE = 'NO_DATA_FOUND';
39 C_NO_DATA_FOUND := NDF;
40 EXCEPTION
41 WHEN NO_DATA_FOUND THEN
42 NULL;
43 END;
44 EXCEPTION
45 WHEN NO_DATA_FOUND THEN
46 C_DUMMY_DATA := 1;
47 WHEN INVALID_TRX_SOURCE THEN
48 SELECT
49 MEANING
50 INTO X_ERROR_MSG
51 FROM
52 PA_LOOKUPS
53 WHERE LOOKUP_TYPE = 'TRANSACTION REJECTION REASON'
54 AND LOOKUP_CODE = 'INVALID_TRX_SOURCE';
55 C_ERROR_MSG := X_ERROR_MSG;
56 /*SRW.MESSAGE(1
57 ,C_ERROR_MSG)*/NULL;
58 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
59 WHEN OTHERS THEN
60 /*SRW.MESSAGE(SQLCODE * -1
61 ,SQLERRM)*/NULL;
62 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
63 END;
64 RETURN (TRUE);
65 END BEFOREREPORT;
66
67 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
68 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
69 BEGIN
70 SELECT
71 GL.NAME
72 INTO L_NAME
73 FROM
74 GL_SETS_OF_BOOKS GL,
75 PA_IMPLEMENTATIONS PI
76 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
77 C_COMPANY_NAME_HEADER := L_NAME;
78 RETURN (TRUE);
79 EXCEPTION
80 WHEN OTHERS THEN
81 RETURN (FALSE);
82 END GET_COMPANY_NAME;
83
84 FUNCTION AFTERREPORT RETURN BOOLEAN IS
85 BEGIN
86 DECLARE
87 CURSOR C1 IS
88 SELECT
89 PTS.TRANSACTION_SOURCE,
90 PTS.PURGEABLE_FLAG
91 FROM
92 PA_TRANSACTION_SOURCES PTS
93 WHERE PTS.TRANSACTION_SOURCE in (
94 SELECT
95 PTI.TRANSACTION_SOURCE
96 FROM
97 PA_TRANSACTION_INTERFACE PTI
98 WHERE PTI.ORIG_TRANSACTION_REFERENCE = ORIGINAL_TRANSACTION_REFERENCE );
99 BEGIN
100 FOR rec_c1 IN C1 LOOP
101 DELETE FROM PA_TRANSACTION_XFACE_CONTROL
102 WHERE INTERFACE_ID IN (
103 SELECT
104 INTERFACE_ID
105 FROM
106 PA_TRANSACTION_INTERFACE
107 WHERE TRANSACTION_SOURCE = REC_C1.TRANSACTION_SOURCE
108 AND BATCH_NAME = NVL(PA_PAAPIMPR_XMLP_PKG.BATCH_NAME
109 ,BATCH_NAME)
110 AND SYSTEM_LINKAGE = PA_PAAPIMPR_XMLP_PKG.SYSTEM_LINKAGE
111 AND ORIG_TRANSACTION_REFERENCE = ORIGINAL_TRANSACTION_REFERENCE )
112 AND STATUS = 'PROCESSED';
113 IF REC_C1.PURGEABLE_FLAG = 'Y' THEN
114 DELETE FROM PA_TRANSACTION_INTERFACE
115 WHERE TRANSACTION_SOURCE = REC_C1.TRANSACTION_SOURCE
116 AND BATCH_NAME = NVL(PA_PAAPIMPR_XMLP_PKG.BATCH_NAME
117 ,BATCH_NAME)
118 AND SYSTEM_LINKAGE = PA_PAAPIMPR_XMLP_PKG.SYSTEM_LINKAGE
119 AND ORIG_TRANSACTION_REFERENCE = ORIGINAL_TRANSACTION_REFERENCE
120 AND ( NVL(TRANSACTION_REJECTION_CODE
121 ,'-99') not in ( 'GMS_EXP_ITEM_DT_BEFORE_AWD_ST' , 'GMS_EXP_ITEM_DT_AFTER_AWD_END' , 'GMS_AWARD_IS_CLOSED' , 'EXP_TYPE_INACTIVE'
122 , 'ETYPE_SLINK_INACTIVE' , 'PA_EX_PROJECT_DATE' , 'PA_EXP_TASK_EFF' , 'PA_EXP_ORG_NOT_ACTIVE' , 'NO_ASSIGNMENT' , 'PA_REJECTED_PARENT_RECORD' )
123 OR SYSTEM_LINKAGE = 'ER' );
124 END IF;
125 END LOOP;
126 COMMIT;
127 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
128 EXCEPTION
129 WHEN NO_DATA_FOUND THEN
130 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
131 WHEN OTHERS THEN
132 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
133 END;
134 RETURN (TRUE);
135 END AFTERREPORT;
136
137 FUNCTION CP_FUNC_CURRENCY_CODEFORMULA RETURN CHAR IS
138 BEGIN
139 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
140 END CP_FUNC_CURRENCY_CODEFORMULA;
141
142 FUNCTION CF_CURRENCY_CODEFORMULA RETURN CHAR IS
143 BEGIN
144 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
145 END CF_CURRENCY_CODEFORMULA;
146
147 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
148 BEGIN
149 RETURN (TRUE);
150 END BETWEENPAGE;
151
152 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
153 BEGIN
154 RETURN (TRUE);
155 END BEFOREPFORM;
156
157 FUNCTION AFTERPFORM RETURN BOOLEAN IS
158 BEGIN
159 RETURN (TRUE);
160 END AFTERPFORM;
161
162 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
163 BEGIN
164 RETURN C_COMPANY_NAME_HEADER;
165 END C_COMPANY_NAME_HEADER_P;
166
167 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
168 BEGIN
169 RETURN C_NO_DATA_FOUND;
170 END C_NO_DATA_FOUND_P;
171
172 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
173 BEGIN
174 RETURN C_DUMMY_DATA;
175 END C_DUMMY_DATA_P;
176
177 FUNCTION C_ERROR_MSG_P RETURN VARCHAR2 IS
178 BEGIN
179 RETURN C_ERROR_MSG;
180 END C_ERROR_MSG_P;
181
182 FUNCTION CP_FUNC_CURRENCY_CODE_P RETURN VARCHAR2 IS
183 BEGIN
184 RETURN CP_FUNC_CURRENCY_CODE;
185 END CP_FUNC_CURRENCY_CODE_P;
186
187 END PA_PAAPIMPR_XMLP_PKG;
188