1 PACKAGE BODY PA_PAXCPCAL_XMLP_PKG AS
2 /* $Header: PAXCPCALB.pls 120.1.12020000.3 2013/03/06 09:50:18 admarath ship $ */
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 VARCHAR2(80);
16 ERRBUF VARCHAR2(525);
17 PA_DPIS_THRU_DATE DATE;
18 BEGIN
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 --CP_DPIS_THROUGH := TO_CHAR(P_DPIS_THROUGH,'DD-MON-YYYY'); --Bug 12759367
21 -- CP_DPIS_THROUGH := FND_DATE.canonical_to_date(P_DPIS_THROUGH); --Bug 12759367
22 CP_DPIS_THROUGH := P_DPIS_THROUGH; -- Commented the above and added this as part of Bug 14404323
23 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
24 CURR_CODE := PA_CURRENCY.GET_CURRENCY_CODE;
25 IF (GET_COMPANY_NAME <> TRUE) THEN
26 RAISE INIT_FAILURE;
27 END IF;
28 SELECT
29 SUBSTR(MEANING,4,14)
30 INTO NDF
31 FROM
32 PA_LOOKUPS
33 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
34 AND LOOKUP_TYPE = 'MESSAGE';
35 C_NO_DATA_FOUND := NDF;
36 BEGIN
37 /* SELECT
38 CP_DPIS_THROUGH
39 INTO PA_DPIS_THRU_DATE
40 FROM
41 DUAL;
42 SELECT
43 P_CONC_REQUEST_ID
44 INTO P_CONC_REQUEST_ID
45 FROM
46 DUAL; */
47 PA_FAXFACE.SET_REQUEST_ID(P_CONC_REQUEST_ID);
48 PA_FAXFACE.INTERFACE_ASSETS(ERRBUF
49 ,C_RETCODE
50 ,P_FROM_PROJECT_NUMBER
51 ,P_TO_PROJECT_NUMBER
52 -- ,PA_DPIS_THRU_DATE); Commneted as part of the bug 13780449
53 -- ,CP_DPIS_THROUGH); -- Added as part of the bug 13780449
54 ,P_DPIS_THROUGH); -- Added as part of the bug 14359419
55 /*SRW.MESSAGE(1
56 ,'Completed interface assets process')*/NULL;
57 --P_CONC_REQUEST_ID := P_CONC_REQUEST_ID;
58 IF (C_RETCODE <> 0) THEN
59 /*SRW.MESSAGE(1
60 ,ERRBUF)*/NULL;
61 END IF;
62 C_ERROR_BUF := ERRBUF;
63 EXCEPTION
64 WHEN STORAGE_ERROR THEN
65 C_RETCODE := -9999;
66 /*SRW.MESSAGE(1
67 ,'Exception: Storage Error')*/NULL;
68 WHEN TIMEOUT_ON_RESOURCE THEN
69 C_RETCODE := -9999;
70 /*SRW.MESSAGE(1
71 ,'Exception: Time Out Occured, waiting for a resource')*/NULL;
72 WHEN OTHERS THEN
73 C_RETCODE := -9999;
74 /*SRW.MESSAGE(1
75 ,'Exception was generated by Interface assets API')*/NULL;
76 END;
77 EXCEPTION
78 WHEN NO_DATA_FOUND THEN
79 SELECT
80 MEANING
81 INTO NDF
82 FROM
83 PA_LOOKUPS
84 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
85 AND LOOKUP_TYPE = 'MESSAGE';
86 C_NO_DATA_FOUND := NDF;
87 C_DUMMY_DATA := 1;
88 WHEN OTHERS THEN
89 /*SRW.MESSAGE(1
90 ,SQLERRM)*/NULL;
91 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
92 END;
93 RETURN (TRUE);
94 END BEFOREREPORT;
95
96 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
97 L_NAME VARCHAR2(30);
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
113 FUNCTION AFTERREPORT RETURN BOOLEAN IS
114 BEGIN
115 DECLARE
116 NUMBER_OF_MESSAGES NUMBER;
117 MESSAGE_BUF VARCHAR2(2000);
118 INTERFACE_ERROR EXCEPTION;
119 ERRBUF VARCHAR2(80);
120 BEGIN
121 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
122 /*SRW.MESSAGE(1
123 ,'Debug Messages:')*/NULL;
124 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
125 PA_DEBUG.GET_MESSAGE(I
126 ,MESSAGE_BUF);
127 /*SRW.MESSAGE(1
128 ,MESSAGE_BUF)*/NULL;
129 END LOOP;
130 ERRBUF := C_ERROR_BUF;
131 IF (C_RETCODE <> 0) THEN
132 /*SRW.MESSAGE(1
133 ,ERRBUF)*/NULL;
134 END IF;
135 EXCEPTION
136 WHEN OTHERS THEN
137 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
138 END;
139 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
140 RETURN (TRUE);
141 END AFTERREPORT;
142
143 FUNCTION CF_FORMAT_MASKFORMULA RETURN CHAR IS
144 TMP_FMT_MASK VARCHAR2(15);
145 BEGIN
146 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
147 END CF_FORMAT_MASKFORMULA;
148
149 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
150 BEGIN
151 RETURN C_COMPANY_NAME_HEADER;
152 END C_COMPANY_NAME_HEADER_P;
153
154 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
155 BEGIN
156 RETURN C_NO_DATA_FOUND;
157 END C_NO_DATA_FOUND_P;
158
159 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
160 BEGIN
161 RETURN C_DUMMY_DATA;
162 END C_DUMMY_DATA_P;
163
164 FUNCTION C_RETCODE_P RETURN VARCHAR2 IS
165 BEGIN
166 RETURN C_RETCODE;
167 END C_RETCODE_P;
168
169 FUNCTION CURR_CODE_P RETURN VARCHAR2 IS
170 BEGIN
171 RETURN CURR_CODE;
172 END CURR_CODE_P;
173
174 FUNCTION C_ERROR_BUF_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN C_ERROR_BUF;
177 END C_ERROR_BUF_P;
178
179 END PA_PAXCPCAL_XMLP_PKG;
180