[Home] [Help]
PACKAGE BODY: APPS.PA_PAXCPCAL_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXCPCAL_XMLP_PKG AS
2 /* $Header: PAXCPCALB.pls 120.0 2008/01/02 11:24:10 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 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');
21 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
22 CURR_CODE := PA_CURRENCY.GET_CURRENCY_CODE;
23 IF (GET_COMPANY_NAME <> TRUE) THEN
24 RAISE INIT_FAILURE;
25 END IF;
26 SELECT
27 SUBSTR(MEANING,4,14)
28 INTO NDF
29 FROM
30 PA_LOOKUPS
31 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
32 AND LOOKUP_TYPE = 'MESSAGE';
33 C_NO_DATA_FOUND := NDF;
34 BEGIN
35 /* SELECT
36 CP_DPIS_THROUGH
37 INTO PA_DPIS_THRU_DATE
38 FROM
39 DUAL;
40 SELECT
41 P_CONC_REQUEST_ID
42 INTO P_CONC_REQUEST_ID
43 FROM
44 DUAL; */
45 PA_FAXFACE.SET_REQUEST_ID(P_CONC_REQUEST_ID);
46 PA_FAXFACE.INTERFACE_ASSETS(ERRBUF
47 ,C_RETCODE
48 ,P_FROM_PROJECT_NUMBER
49 ,P_TO_PROJECT_NUMBER
50 ,PA_DPIS_THRU_DATE);
51 /*SRW.MESSAGE(1
52 ,'Completed interface assets process')*/NULL;
53 --P_CONC_REQUEST_ID := P_CONC_REQUEST_ID;
54 IF (C_RETCODE <> 0) THEN
55 /*SRW.MESSAGE(1
56 ,ERRBUF)*/NULL;
57 END IF;
58 C_ERROR_BUF := ERRBUF;
59 EXCEPTION
60 WHEN STORAGE_ERROR THEN
61 C_RETCODE := -9999;
62 /*SRW.MESSAGE(1
63 ,'Exception: Storage Error')*/NULL;
64 WHEN TIMEOUT_ON_RESOURCE THEN
65 C_RETCODE := -9999;
66 /*SRW.MESSAGE(1
67 ,'Exception: Time Out Occured, waiting for a resource')*/NULL;
68 WHEN OTHERS THEN
69 C_RETCODE := -9999;
70 /*SRW.MESSAGE(1
71 ,'Exception was generated by Interface assets API')*/NULL;
72 END;
73 EXCEPTION
74 WHEN NO_DATA_FOUND THEN
75 SELECT
76 MEANING
77 INTO NDF
78 FROM
79 PA_LOOKUPS
80 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
81 AND LOOKUP_TYPE = 'MESSAGE';
82 C_NO_DATA_FOUND := NDF;
83 C_DUMMY_DATA := 1;
84 WHEN OTHERS THEN
85 /*SRW.MESSAGE(1
86 ,SQLERRM)*/NULL;
87 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
88 END;
89 RETURN (TRUE);
90 END BEFOREREPORT;
91
92 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
93 L_NAME VARCHAR2(30);
94 BEGIN
95 SELECT
96 GL.NAME
97 INTO L_NAME
98 FROM
99 GL_SETS_OF_BOOKS GL,
100 PA_IMPLEMENTATIONS PI
101 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
102 C_COMPANY_NAME_HEADER := L_NAME;
103 RETURN (TRUE);
104 EXCEPTION
105 WHEN OTHERS THEN
106 RETURN (FALSE);
107 END GET_COMPANY_NAME;
108
109 FUNCTION AFTERREPORT RETURN BOOLEAN IS
110 BEGIN
111 DECLARE
112 NUMBER_OF_MESSAGES NUMBER;
113 MESSAGE_BUF VARCHAR2(2000);
114 INTERFACE_ERROR EXCEPTION;
115 ERRBUF VARCHAR2(80);
116 BEGIN
117 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
118 /*SRW.MESSAGE(1
119 ,'Debug Messages:')*/NULL;
120 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
121 PA_DEBUG.GET_MESSAGE(I
122 ,MESSAGE_BUF);
123 /*SRW.MESSAGE(1
124 ,MESSAGE_BUF)*/NULL;
125 END LOOP;
126 ERRBUF := C_ERROR_BUF;
127 IF (C_RETCODE <> 0) THEN
128 /*SRW.MESSAGE(1
129 ,ERRBUF)*/NULL;
130 END IF;
131 EXCEPTION
132 WHEN OTHERS THEN
133 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
134 END;
135 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
136 RETURN (TRUE);
137 END AFTERREPORT;
138
139 FUNCTION CF_FORMAT_MASKFORMULA RETURN CHAR IS
140 TMP_FMT_MASK VARCHAR2(15);
141 BEGIN
142 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
143 END CF_FORMAT_MASKFORMULA;
144
145 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
146 BEGIN
147 RETURN C_COMPANY_NAME_HEADER;
148 END C_COMPANY_NAME_HEADER_P;
149
150 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN C_NO_DATA_FOUND;
153 END C_NO_DATA_FOUND_P;
154
155 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
156 BEGIN
157 RETURN C_DUMMY_DATA;
158 END C_DUMMY_DATA_P;
159
160 FUNCTION C_RETCODE_P RETURN VARCHAR2 IS
161 BEGIN
162 RETURN C_RETCODE;
163 END C_RETCODE_P;
164
165 FUNCTION CURR_CODE_P RETURN VARCHAR2 IS
166 BEGIN
167 RETURN CURR_CODE;
168 END CURR_CODE_P;
169
170 FUNCTION C_ERROR_BUF_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN C_ERROR_BUF;
173 END C_ERROR_BUF_P;
174
175 END PA_PAXCPCAL_XMLP_PKG;
176