1 PACKAGE BODY PA_PAUBRUER_XMLP_PKG AS
2 /* $Header: PAUBRUERB.pls 120.1 2008/01/03 11:09: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 INIT_FAILURE EXCEPTION;
15 L_NO_DATA_FOUND VARCHAR2(80);
16 L_MSG_COUNT NUMBER;
17 L_MSG_DATA VARCHAR2(200);
18 L_RETURN_STATUS VARCHAR2(10);
19 BEGIN
20 /*SRW.MESSAGE(1
21 ,'Started Before Report')*/NULL;
22 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
23 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
24 CURR_CODE := PA_CURRENCY.GET_CURRENCY_CODE;
25 /*SRW.MESSAGE(2
26 ,'Functional Currency->' || CURR_CODE)*/NULL;
27 /*SRW.MESSAGE(3
28 ,'Executing Get_All_Names Function for OU name')*/NULL;
29 IF (GET_ALL_NAMES <> TRUE) THEN
30 RAISE INIT_FAILURE;
31 END IF;
32 /*SRW.MESSAGE(4
33 ,'Before Fetching Meaning for No-Data-Found from PA_LOOKUPS')*/NULL;
34 SELECT
35 MEANING
36 INTO L_NO_DATA_FOUND
37 FROM
38 PA_LOOKUPS
39 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
40 AND LOOKUP_TYPE = 'MESSAGE';
41 C_NO_DATA_FOUND := L_NO_DATA_FOUND;
42 /*SRW.MESSAGE(5
43 ,'After Fetching Meaning for No-Data-Found from PA_LOOKUPS ->' || C_NO_DATA_FOUND)*/NULL;
44 /*SRW.MESSAGE(6
45 ,'Checking and Setting for Debug mode. Value : ' || P_DEBUG_MODE)*/NULL;
46 IF P_DEBUG_MODE = 'Y' THEN
47 PA_DEBUG.SET_PROCESS('PLSQL'
48 ,'LOG'
49 ,'Y');
50 PA_DEBUG.ENABLE_DEBUG;
51 END IF;
52 /*SRW.MESSAGE(7
53 ,'Done Checking and Setting for Debug mode. Value : ' || P_DEBUG_MODE)*/NULL;
54 BEGIN
55 /*SRW.MESSAGE(8
56 ,'Before - Executing API : PA_UBR_UER_SUMM_PKG.create_ubr_uer_summary_balance ')*/NULL;
57 PA_UBR_UER_SUMM_PKG.CREATE_UBR_UER_SUMMARY_BALANCE(P_FROM_PROJECT_NUMBER => P_FROM_PROJECT_NUMBER
58 ,P_TO_PROJECT_NUMBER => P_TO_PROJECT_NUMBER
59 ,P_GL_PERIOD_NAME => P_GL_PERIOD_NAME
60 ,P_REQUEST_ID => P_CONC_REQUEST_ID);
61 /*SRW.MESSAGE(9
62 ,'Done - Executing API : PA_UBR_UER_SUMM_PKG.create_ubr_uer_summary_balance ')*/NULL;
63 EXCEPTION
64 WHEN STORAGE_ERROR THEN
65 C_RETCODE := -9999;
66 /*SRW.MESSAGE(10
67 ,'Exception: Storage Error')*/NULL;
68 WHEN TIMEOUT_ON_RESOURCE THEN
69 C_RETCODE := -9999;
70 /*SRW.MESSAGE(11
71 ,'Exception: Time Out Occured, waiting for a resource')*/NULL;
72 WHEN OTHERS THEN
73 C_RETCODE := -9999;
74 /*SRW.MESSAGE(12
75 ,'Exception was generated by PA_UBR_UER_SUMM_PKG.create_ubr_uer_summary_balance ')*/NULL;
76 END;
77 EXCEPTION
78 WHEN NO_DATA_FOUND THEN
79 SELECT
80 MEANING
81 INTO L_NO_DATA_FOUND
82 FROM
83 PA_LOOKUPS
84 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
85 AND LOOKUP_TYPE = 'MESSAGE';
86 C_NO_DATA_FOUND := L_NO_DATA_FOUND;
87 C_DUMMY_DATA := 1;
88 /*SRW.MESSAGE(13
89 ,' From No data found Exception ')*/NULL;
90 WHEN OTHERS THEN
91 /*SRW.MESSAGE(1
92 ,'From When-Others in Before Report')*/NULL;
93 /*SRW.MESSAGE(1
94 ,SQLERRM)*/NULL;
95 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
96 END;
97 RETURN (TRUE);
98 END BEFOREREPORT;
99
100 FUNCTION GET_ALL_NAMES RETURN BOOLEAN IS
101 L_COMPANY_NAME VARCHAR2(30);
102 L_ORGANIZATION_NAME VARCHAR2(60);
103 BEGIN
104 /*SRW.MESSAGE(1
105 ,'Fetching Company Name')*/NULL;
106 BEGIN
107 SELECT
108 GL.NAME
109 INTO L_COMPANY_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_COMPANY_NAME;
115 EXCEPTION
116 WHEN OTHERS THEN
117 RETURN (FALSE);
118 END;
119 RETURN (TRUE);
120 END GET_ALL_NAMES;
121
122 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
123 BEGIN
124 /*SRW.MESSAGE(1
125 ,'From Before PForm')*/NULL;
126 RETURN (TRUE);
127 END BEFOREPFORM;
128
129 FUNCTION AFTERREPORT RETURN BOOLEAN IS
130 BEGIN
131 DECLARE
132 NUMBER_OF_MESSAGES NUMBER;
133 MESSAGE_BUF VARCHAR2(2000);
134 INTERFACE_ERROR EXCEPTION;
135 ERRBUF VARCHAR2(80);
136 BEGIN
137 NULL;
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_RETCODE_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN C_RETCODE;
161 END C_RETCODE_P;
162
163 FUNCTION CURR_CODE_P RETURN VARCHAR2 IS
164 BEGIN
165 RETURN CURR_CODE;
166 END CURR_CODE_P;
167
168 FUNCTION C_ERROR_BUF_P RETURN VARCHAR2 IS
169 BEGIN
170 RETURN C_ERROR_BUF;
171 END C_ERROR_BUF_P;
172
173 END PA_PAUBRUER_XMLP_PKG;
174