1 PACKAGE BODY PA_PAXARPVD_XMLP_PKG AS
2 /* $Header: PAXARPVDB.pls 120.0 2008/01/02 11:17:00 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 INIT_FAILURE EXCEPTION;
15 NDF CHAR(80);
16 ERRBUF VARCHAR2(200);
17 RET_CODE VARCHAR2(5);
18 BEGIN
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
21 /*SRW.USER_EXIT('FND GETPROFILE
22 NAME="PA_DEBUG_MODE"
23 FIELD=":p_debug_mode"
24 PRINT_ERROR="N"')*/NULL;
25 P_RULE_OPTIMIZER := FND_PROFILE.VALUE('PA_RULE_BASED_OPTIMIZER');
26 IF (GET_COMPANY_NAME <> TRUE) THEN
27 RAISE INIT_FAILURE;
28 END IF;
29 SELECT
30 MEANING
31 INTO NDF
32 FROM
33 PA_LOOKUPS
34 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
35 AND LOOKUP_TYPE = 'MESSAGE';
36 C_NO_DATA_FOUND := NDF;
37 SELECT
38 MEANING
39 INTO C_YES
40 FROM
41 FND_LOOKUPS
42 WHERE LOOKUP_TYPE = 'YES_NO'
43 AND LOOKUP_CODE = 'Y';
44 SELECT
45 MEANING
46 INTO C_NO
47 FROM
48 FND_LOOKUPS
49 WHERE LOOKUP_TYPE = 'YES_NO'
50 AND LOOKUP_CODE = 'N';
51 SELECT
52 DECODE(P_RUN_VALIDATION
53 ,'Y'
54 ,C_YES
55 ,C_NO),
56 DECODE(P_REPORT_ERRORS_ONLY
57 ,'Y'
58 ,C_YES
59 ,C_NO)
60 INTO C_RUN_VALIDATION,C_REPORT_ERRORS_ONLY
61 FROM
62 DUAL;
63 IF P_RUN_VALIDATION = 'Y' THEN
64 RET_CODE := '';
65 PA_PURGE_VALIDATE.BATCHVAL(ERRBUF
66 ,RET_CODE
67 ,P_PURGE_BATCH_ID);
68 IF (RET_CODE <> 0) THEN
69 /*SRW.MESSAGE(1
70 ,ERRBUF)*/NULL;
71 END IF;
72 END IF;
73 SELECT
74 BAT.BATCH_NAME,
75 BAT.DESCRIPTION,
76 BAT.BATCH_STATUS_CODE,
77 BAT.TXN_TO_DATE,
78 BAT.ACTIVE_CLOSED_FLAG,
79 LK.MEANING
80 INTO C_BATCH_NAME,C_BATCH_DESCRIPTION,C_BATCH_STATUS,C_THROUGH_DATE,C_BATCH_ACTIVE_CLOSED,C_BATCH_STATUS_MEANING
81 FROM
82 PA_PURGE_BATCHES BAT,
83 PA_LOOKUPS LK
84 WHERE PURGE_BATCH_ID = P_PURGE_BATCH_ID
85 AND LK.LOOKUP_TYPE = 'PURGE_BATCH_STATUS'
86 AND LK.LOOKUP_CODE = BAT.BATCH_STATUS_CODE;
87 EXCEPTION
88 WHEN NO_DATA_FOUND THEN
89 SELECT
90 MEANING
91 INTO NDF
92 FROM
93 PA_LOOKUPS
94 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
95 AND LOOKUP_TYPE = 'MESSAGE';
96 C_NO_DATA_FOUND := NDF;
97 C_DUMMY_DATA := 1;
98 WHEN OTHERS THEN
99 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
100 END;
101 RETURN (TRUE);
102 END BEFOREREPORT;
103
104 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
105 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
106 BEGIN
107 SELECT
108 GL.NAME
109 INTO L_NAME
110 FROM
111 GL_SETS_OF_BOOKS GL,
112 PA_IMPLEMENTATIONS PI
113 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
114 C_COMPANY_NAME_HEADER := L_NAME;
115 RETURN (TRUE);
116 EXCEPTION
117 WHEN OTHERS THEN
118 RETURN (FALSE);
119 END GET_COMPANY_NAME;
120
121 FUNCTION AFTERREPORT RETURN BOOLEAN IS
122 BEGIN
123 DECLARE
124 NUMBER_OF_MESSAGES NUMBER;
125 MESSAGE_BUF VARCHAR2(256);
126 BEGIN
127 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
128 IF (P_DEBUG_MODE = 'Y' AND NUMBER_OF_MESSAGES > 0) THEN
129 /*SRW.MESSAGE(1
130 ,'Debug Messages:')*/NULL;
131 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
132 PA_DEBUG.GET_MESSAGE(I
133 ,MESSAGE_BUF);
134 /*SRW.MESSAGE(1
135 ,MESSAGE_BUF)*/NULL;
136 END LOOP;
137 END IF;
138 END;
139 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
140 RETURN (TRUE);
141 END AFTERREPORT;
142
143 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
144 BEGIN
145 RETURN C_COMPANY_NAME_HEADER;
146 END C_COMPANY_NAME_HEADER_P;
147
148 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
149 BEGIN
150 RETURN C_NO_DATA_FOUND;
151 END C_NO_DATA_FOUND_P;
152
153 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
154 BEGIN
155 RETURN C_DUMMY_DATA;
156 END C_DUMMY_DATA_P;
157
158 FUNCTION C_BATCH_NAME_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN C_BATCH_NAME;
161 END C_BATCH_NAME_P;
162
163 FUNCTION C_BATCH_DESCRIPTION_P RETURN VARCHAR2 IS
164 BEGIN
165 RETURN C_BATCH_DESCRIPTION;
166 END C_BATCH_DESCRIPTION_P;
167
168 FUNCTION C_BATCH_STATUS_P RETURN VARCHAR2 IS
169 BEGIN
170 RETURN C_BATCH_STATUS;
171 END C_BATCH_STATUS_P;
172
173 FUNCTION C_THROUGH_DATE_P RETURN DATE IS
174 BEGIN
175 RETURN C_THROUGH_DATE;
176 END C_THROUGH_DATE_P;
177
178 FUNCTION C_BATCH_STATUS_MEANING_P RETURN VARCHAR2 IS
179 BEGIN
180 RETURN C_BATCH_STATUS_MEANING;
181 END C_BATCH_STATUS_MEANING_P;
182
183 FUNCTION C_BATCH_ACTIVE_CLOSED_P RETURN VARCHAR2 IS
184 BEGIN
185 RETURN C_BATCH_ACTIVE_CLOSED;
186 END C_BATCH_ACTIVE_CLOSED_P;
187
188 FUNCTION C_YES_P RETURN VARCHAR2 IS
189 BEGIN
190 RETURN C_YES;
191 END C_YES_P;
192
193 FUNCTION C_NO_P RETURN VARCHAR2 IS
194 BEGIN
195 RETURN C_NO;
196 END C_NO_P;
197
198 FUNCTION C_RUN_VALIDATION_P RETURN VARCHAR2 IS
199 BEGIN
200 RETURN C_RUN_VALIDATION;
201 END C_RUN_VALIDATION_P;
202
203 FUNCTION C_REPORT_ERRORS_ONLY_P RETURN VARCHAR2 IS
204 BEGIN
205 RETURN C_REPORT_ERRORS_ONLY;
206 END C_REPORT_ERRORS_ONLY_P;
207
208 END PA_PAXARPVD_XMLP_PKG;
209