1 PACKAGE BODY PSB_PSBRPSPD_XMLP_PKG AS
2 /* $Header: PSBRPSPDB.pls 120.0 2008/01/07 10:24:17 vijranga noship $ */
3 FUNCTION CF_SERVICE_PACKAGE_IDFORMULA(SP_SERVICE_PACKAGE_ID IN NUMBER) RETURN NUMBER IS
4 BEGIN
5 CP_SERVICE_PACKAGE_ID := SP_SERVICE_PACKAGE_ID;
6 RETURN CP_SERVICE_PACKAGE_ID;
7 END CF_SERVICE_PACKAGE_IDFORMULA;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13 IF P_GLOBAL_WORKSHEET_ID IS NULL THEN
14 FND_MESSAGE.SET_NAME('PSB'
15 ,'PSB_ALL');
16 CP_PARAM_WS_NAME := FND_MESSAGE.GET;
17 ELSE
18 SELECT
19 NAME
20 INTO CP_PARAM_WS_NAME
21 FROM
22 PSB_WORKSHEETS
23 WHERE WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID;
24 END IF;
25 IF P_SERVICE_PACKAGE_ID IS NULL THEN
26 FND_MESSAGE.SET_NAME('PSB'
27 ,'PSB_ALL');
28 CP_PARAM_SP_NAME := FND_MESSAGE.GET;
29 ELSE
30 SELECT
31 NAME
32 INTO CP_PARAM_SP_NAME
33 FROM
34 PSB_SERVICE_PACKAGES
35 WHERE SERVICE_PACKAGE_ID = P_SERVICE_PACKAGE_ID;
36 END IF;
37 SELECT
38 MEANING
39 INTO CP_PARAM_ORDER_BY
40 FROM
41 FND_LOOKUP_VALUES
42 WHERE LOOKUP_TYPE = 'PSB_SORT_ORDER_SERVICE_PACKAGE'
43 AND LOOKUP_CODE = P_ORDER_BY
44 AND LANGUAGE = USERENV('LANG');
45 CP_SORT := P_ORDER_BY;
46 IF P_STAGE_ID IS NOT NULL THEN
47 SELECT
48 NAME,
49 SEQUENCE_NUMBER
50 INTO CP_PARAM_STAGE_NAME,CP_SEQUENCE_NUMBER
51 FROM
52 PSB_BUDGET_STAGES
53 WHERE BUDGET_STAGE_ID = P_STAGE_ID;
54 ELSE
55 FND_MESSAGE.SET_NAME('PSB'
56 ,'PSB_CURRENT_BUDGET_STAGE');
57 CP_PARAM_STAGE_NAME := FND_MESSAGE.GET;
58 END IF;
59 FND_MESSAGE.SET_NAME('PSB'
60 ,'PSB_NO_DATA_FOUND');
61 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
62 FND_MESSAGE.SET_NAME('PSB'
63 ,'PSB_END_OF_REPORT');
64 CP_END_OF_REPORT := FND_MESSAGE.GET;
65 SELECT_AMT := 'A.EST_AMT';
66 RETURN (TRUE);
67 EXCEPTION
68 WHEN NO_DATA_FOUND THEN
69 raise_application_error('-20101',SQLERRM);
70 -- RETURN (FALSE);
71 -- WHEN OTHERS THEN
72 --raise_application_error('-20102',SQLERRM);
73 -- RETURN NULL;
74 END BEFOREREPORT;
75
76 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
77 BEGIN
78 RETURN (TRUE);
79 END BEFOREPFORM;
80
81 FUNCTION AFTERPFORM RETURN BOOLEAN IS
82 BEGIN
83 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
84 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
85 RETURN (TRUE);
86 END AFTERPFORM;
87
88 FUNCTION AFTERREPORT RETURN BOOLEAN IS
89 BEGIN
90 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
91 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
92 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
93 RETURN (TRUE);
94 END AFTERREPORT;
95
96 FUNCTION CF_STAGE_NAMEFORMULA(WS_CURRENT_STAGE_NAME IN VARCHAR2) RETURN VARCHAR2 IS
97 BEGIN
98 IF P_STAGE_ID IS NULL THEN
99 CP_WS_STAGE_NAME := WS_CURRENT_STAGE_NAME;
100 ELSE
101 CP_WS_STAGE_NAME := CP_PARAM_STAGE_NAME;
102 END IF;
103 RETURN CP_WS_STAGE_NAME;
104 END CF_STAGE_NAMEFORMULA;
105
106 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
107 BEGIN
108 RETURN (TRUE);
109 END BETWEENPAGE;
110
111 FUNCTION CP_SERVICE_PACKAGE_ID_P RETURN NUMBER IS
112 BEGIN
113 RETURN CP_SERVICE_PACKAGE_ID;
114 END CP_SERVICE_PACKAGE_ID_P;
115
116 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN CP_NO_DATA_FOUND;
119 END CP_NO_DATA_FOUND_P;
120
121 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
122 BEGIN
123 RETURN CP_END_OF_REPORT;
124 END CP_END_OF_REPORT_P;
125
126 FUNCTION SELECT_AMT_P RETURN VARCHAR2 IS
127 BEGIN
128 RETURN SELECT_AMT;
129 END SELECT_AMT_P;
130
131 FUNCTION CP_PARAM_WS_NAME_P RETURN VARCHAR2 IS
132 BEGIN
133 RETURN CP_PARAM_WS_NAME;
134 END CP_PARAM_WS_NAME_P;
135
136 FUNCTION CP_PARAM_SP_NAME_P RETURN VARCHAR2 IS
137 BEGIN
138 RETURN CP_PARAM_SP_NAME;
139 END CP_PARAM_SP_NAME_P;
140
141 FUNCTION CP_PARAM_ORDER_BY_P RETURN VARCHAR2 IS
142 BEGIN
143 RETURN CP_PARAM_ORDER_BY;
144 END CP_PARAM_ORDER_BY_P;
145
146 FUNCTION CP_SORT_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN CP_SORT;
149 END CP_SORT_P;
150
151 FUNCTION CP_WS_STAGE_NAME_P RETURN VARCHAR2 IS
152 BEGIN
153 RETURN CP_WS_STAGE_NAME;
154 END CP_WS_STAGE_NAME_P;
155
156 FUNCTION CP_PARAM_STAGE_NAME_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN CP_PARAM_STAGE_NAME;
159 END CP_PARAM_STAGE_NAME_P;
160
161 FUNCTION CP_SEQUENCE_NUMBER_P RETURN NUMBER IS
162 BEGIN
163 RETURN CP_SEQUENCE_NUMBER;
164 END CP_SEQUENCE_NUMBER_P;
165
166 END PSB_PSBRPSPD_XMLP_PKG;
167
168
169
170
171