[Home] [Help]
PACKAGE BODY: APPS.PSB_PSBRPFLX_XMLP_PKG
Source
1 PACKAGE BODY PSB_PSBRPFLX_XMLP_PKG AS
2 /* $Header: PSBRPFLXB.pls 120.0 2008/01/07 10:39:39 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_NUM_PROPOSED_YEARS NUMBER := 0;
5 L_PP_CAL_COUNT NUMBER := 0;
6 L_COUNTER NUMBER := 0;
7 CURSOR C_PP IS
8 SELECT
9 BUDGET_YEAR_TYPE_ID,
10 SEQUENCE_NUMBER
11 FROM
12 PSB_BUDGET_YEAR_TYPES
13 WHERE YEAR_CATEGORY_TYPE = 'PP'
14 ORDER BY
15 SEQUENCE_NUMBER ASC;
16 CURSOR C_CY IS
17 SELECT
18 NAME,
19 BUDGET_YEAR_TYPE_ID
20 FROM
21 PSB_BUDGET_YEAR_TYPES
22 WHERE YEAR_CATEGORY_TYPE = 'CY';
23 BEGIN
24 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
25 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
26 IF P_GLOBAL_WORKSHEET_ID IS NULL THEN
27 FND_MESSAGE.SET_NAME('PSB'
28 ,'PSB_ALL');
29 CP_PARAM_WS_NAME := FND_MESSAGE.GET;
30 ELSE
31 SELECT
32 NAME,
33 FLEX_MAPPING_SET_ID
34 INTO CP_PARAM_WS_NAME,CP_FLEX_MAPPING_SET_ID
35 FROM
36 PSB_WORKSHEETS
37 WHERE WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID;
38 END IF;
39 FOR c_cy_rec IN C_CY LOOP
40 CP_CY_NAME := C_CY_REC.NAME;
41 CP_CY_YEAR_ID := C_CY_REC.BUDGET_YEAR_TYPE_ID;
42 END LOOP;
43 SELECT
44 count(*)
45 INTO L_PP_CAL_COUNT
46 FROM
47 PSB_BUDGET_PERIODS
48 WHERE BUDGET_CALENDAR_ID = 1
49 AND BUDGET_PERIOD_TYPE = 'Y';
50 SELECT
51 LEAST(L_PP_CAL_COUNT
52 ,GREATEST(NVL(BG.NUM_PROPOSED_YEARS
53 ,0)
54 ,NVL(WS.NUM_PROPOSED_YEARS
55 ,0)))
56 INTO L_NUM_PROPOSED_YEARS
57 FROM
58 PSB_BUDGET_GROUPS BG,
59 PSB_WORKSHEETS WS
60 WHERE BG.BUDGET_GROUP_ID = WS.BUDGET_GROUP_ID
61 AND WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID;
62 CP_MAX_SEQ_NUM := 0;
63 FOR c_pp_rec IN C_PP LOOP
64 L_COUNTER := L_COUNTER + 1;
65 IF L_COUNTER > L_NUM_PROPOSED_YEARS THEN
66 EXIT;
67 ELSE
68 CP_MAX_SEQ_NUM := C_PP_REC.SEQUENCE_NUMBER;
69 END IF;
70 END LOOP;
71 FND_MESSAGE.SET_NAME('PSB'
72 ,'PSB_NO_DATA_FOUND');
73 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
74 FND_MESSAGE.SET_NAME('PSB'
75 ,'PSB_END_OF_REPORT');
76 CP_END_OF_REPORT := FND_MESSAGE.GET;
77 RETURN (TRUE);
78 EXCEPTION
79 WHEN NO_DATA_FOUND THEN
80 RETURN (FALSE);
81 WHEN OTHERS THEN
82 RETURN NULL;
83 END BEFOREREPORT;
84
85 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
86 BEGIN
87 RETURN (TRUE);
88 END BEFOREPFORM;
89
90 FUNCTION AFTERPFORM RETURN BOOLEAN IS
91 BEGIN
92 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
93 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
94 RETURN (TRUE);
95 END AFTERPFORM;
96
97 FUNCTION AFTERREPORT RETURN BOOLEAN IS
98 BEGIN
99 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
100 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
101 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
102 RETURN (TRUE);
103 END AFTERREPORT;
104
105 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
106 BEGIN
107 RETURN (TRUE);
108 END BETWEENPAGE;
109
110 FUNCTION CF_ACCOUNTFORMULA(IN_CCID IN NUMBER) RETURN CHAR IS
111 L_CCID NUMBER;
112 L_ACCOUNT VARCHAR2(800);
113 BEGIN
114 L_CCID := IN_CCID;
115 L_ACCOUNT := PSB_FLEX_MAPPING_PVT.GET_MAPPED_ACCOUNT(1.0
116 ,NULL
117 ,NULL
118 ,NULL
119 ,IN_CCID
120 ,CP_CY_YEAR_ID
121 ,CP_FLEX_MAPPING_SET_ID);
122 RETURN (L_ACCOUNT);
123 END CF_ACCOUNTFORMULA;
124
125 FUNCTION CF_OTHER_ACCOUNTFORMULA(IN_CCID IN NUMBER
126 ,BUDGET_YEAR_TYPE_ID IN NUMBER) RETURN CHAR IS
127 L_CCID NUMBER;
128 L_ACCOUNT VARCHAR2(800);
129 BEGIN
130 L_ACCOUNT := PSB_FLEX_MAPPING_PVT.GET_MAPPED_ACCOUNT(1.0
131 ,NULL
132 ,NULL
133 ,NULL
134 ,IN_CCID
135 ,BUDGET_YEAR_TYPE_ID
136 ,CP_FLEX_MAPPING_SET_ID);
137 RETURN (L_ACCOUNT);
138 END CF_OTHER_ACCOUNTFORMULA;
139
140 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
141 BEGIN
142 RETURN CP_NO_DATA_FOUND;
143 END CP_NO_DATA_FOUND_P;
144
145 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
146 BEGIN
147 RETURN CP_END_OF_REPORT;
148 END CP_END_OF_REPORT_P;
149
150 FUNCTION CP_PARAM_WS_NAME_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN CP_PARAM_WS_NAME;
153 END CP_PARAM_WS_NAME_P;
154
155 FUNCTION CP_PARAM_FLEX_NAME_P RETURN VARCHAR2 IS
156 BEGIN
157 RETURN CP_PARAM_FLEX_NAME;
158 END CP_PARAM_FLEX_NAME_P;
159
160 FUNCTION CP_WHERE_P RETURN VARCHAR2 IS
161 BEGIN
162 RETURN CP_WHERE;
163 END CP_WHERE_P;
164
165 FUNCTION CP_MAX_SEQ_NUM_P RETURN NUMBER IS
166 BEGIN
167 RETURN CP_MAX_SEQ_NUM;
168 END CP_MAX_SEQ_NUM_P;
169
170 FUNCTION CP_CY_NAME_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN CP_CY_NAME;
173 END CP_CY_NAME_P;
174
175 FUNCTION CP_CY_YEAR_ID_P RETURN NUMBER IS
176 BEGIN
177 RETURN CP_CY_YEAR_ID;
178 END CP_CY_YEAR_ID_P;
179
180 FUNCTION CP_FLEX_MAPPING_SET_ID_P RETURN NUMBER IS
181 BEGIN
182 RETURN CP_FLEX_MAPPING_SET_ID;
183 END CP_FLEX_MAPPING_SET_ID_P;
184
185 END PSB_PSBRPFLX_XMLP_PKG;
186
187
188
189
190