[Home] [Help]
PACKAGE BODY: APPS.PSB_PSBRPVPR_XMLP_PKG
Source
1 PACKAGE BODY PSB_PSBRPVPR_XMLP_PKG AS
2 /* $Header: PSBRPVPRB.pls 120.0 2008/01/07 10:49:27 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_RETURN_STATUS VARCHAR2(1);
5 L_MSG_COUNT NUMBER;
6 L_MSG_DATA VARCHAR2(2000);
7 L_WORKSHEET_ID NUMBER;
8 L_OUT_START_DATE DATE;
9 L_OUT_END_DATE DATE;
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13 FND_MESSAGE.SET_NAME('PSB'
14 ,'PSB_NO_DATA_FOUND');
15 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
16 FND_MESSAGE.SET_NAME('PSB'
17 ,'PSB_END_OF_REPORT');
18 CP_END_OF_REPORT := FND_MESSAGE.GET;
19 IF P_WORKSHEET_ID IS NOT NULL THEN
20 SELECT
21 NAME
22 INTO CP_WORKSHEET_NAME
23 FROM
24 PSB_WORKSHEETS
25 WHERE WORKSHEET_ID = P_WORKSHEET_ID;
26 SELECT
27 NAME
28 INTO CP_YEAR_NAME
29 FROM
30 PSB_BUDGET_PERIODS
31 WHERE BUDGET_PERIOD_ID = P_BUDGET_YEAR_ID;
32 CP_REPORT_TYPE := 'W';
33 PSB_POSITIONS_I_PVT.DEFINE_WORKSHEET_VALUES(P_API_VERSION => 1.0
34 ,P_INIT_MSG_LIST => NULL
35 ,P_COMMIT => NULL
36 ,P_VALIDATION_LEVEL => NULL
37 ,P_RETURN_STATUS => L_RETURN_STATUS
38 ,P_MSG_COUNT => L_MSG_COUNT
39 ,P_MSG_DATA => L_MSG_DATA
40 ,P_WORKSHEET_ID => P_WORKSHEET_ID
41 ,P_POSITION_ID => NULL
42 ,P_POS_EFFECTIVE_START_DATE => NULL
43 ,P_POS_EFFECTIVE_END_DATE => NULL
44 ,P_OUT_WORKSHEET_ID => L_WORKSHEET_ID
45 ,P_BUDGET_SOURCE => 'BP'
46 ,P_OUT_START_DATE => L_OUT_START_DATE
47 ,P_OUT_END_DATE => L_OUT_END_DATE);
48 IF L_RETURN_STATUS <> 'S' THEN
49 RETURN FALSE;
50 END IF;
51 PSB_POSITIONS_I_PVT.INITIALIZE_VIEW(P_WORKSHEET_ID => L_WORKSHEET_ID
52 ,P_START_DATE => L_OUT_START_DATE
53 ,P_END_DATE => L_OUT_END_DATE
54 ,P_SELECT_DATE => NULL);
55 ELSIF P_DATA_EXTRACT_ID IS NOT NULL THEN
56 SELECT
57 DATA_EXTRACT_NAME
58 INTO CP_EXTRACT_NAME
59 FROM
60 PSB_DATA_EXTRACTS
61 WHERE DATA_EXTRACT_ID = P_DATA_EXTRACT_ID;
62 CP_REPORT_TYPE := 'D';
63 END IF;
64 RETURN TRUE;
65 EXCEPTION
66 WHEN NO_DATA_FOUND THEN
67 RETURN (FALSE);
68 WHEN OTHERS THEN
69 RETURN NULL;
70 END BEFOREREPORT;
71 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
72 BEGIN
73 RETURN (TRUE);
74 END BEFOREPFORM;
75 FUNCTION AFTERPFORM RETURN BOOLEAN IS
76 BEGIN
77 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
78 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
79 RETURN (TRUE);
80 END AFTERPFORM;
81 FUNCTION AFTERREPORT RETURN BOOLEAN IS
82 BEGIN
83 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
84 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
85 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
86 RETURN (TRUE);
87 END AFTERREPORT;
88 FUNCTION CF_1FORMULA0090(BUDGET_GROUP_ID_1 IN NUMBER) RETURN VARCHAR2 IS
89 BEGIN
90 SELECT
91 TOPBG.CURRENCY_CODE
92 INTO CP_CURRENCY_CODE
93 FROM
94 PSB_BUDGET_GROUPS_V TOPBG,
95 PSB_BUDGET_GROUPS_V REGBG
96 WHERE REGBG.BUDGET_GROUP_ID = BUDGET_GROUP_ID_1
97 AND DECODE(REGBG.ROOT_BUDGET_GROUP_ID
98 ,NULL
99 ,REGBG.BUDGET_GROUP_ID
100 ,REGBG.ROOT_BUDGET_GROUP_ID) = TOPBG.BUDGET_GROUP_ID;
101 RETURN (CP_CURRENCY_CODE);
102 END CF_1FORMULA0090;
103 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
104 BEGIN
105 RETURN (TRUE);
106 END BETWEENPAGE;
107 FUNCTION CP_CURRENCY_CODE_P RETURN VARCHAR2 IS
108 BEGIN
109 RETURN CP_CURRENCY_CODE;
110 END CP_CURRENCY_CODE_P;
111 FUNCTION CP_ELEM_TOTAL_P RETURN NUMBER IS
112 BEGIN
113 RETURN CP_ELEM_TOTAL;
114 END CP_ELEM_TOTAL_P;
115 FUNCTION CP_POS_TOTAL_P RETURN NUMBER IS
116 BEGIN
117 RETURN CP_POS_TOTAL;
118 END CP_POS_TOTAL_P;
119 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
120 BEGIN
121 RETURN CP_NO_DATA_FOUND;
122 END CP_NO_DATA_FOUND_P;
123 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
124 BEGIN
125 RETURN CP_END_OF_REPORT;
126 END CP_END_OF_REPORT_P;
127 FUNCTION CP_POS_ASS_WS_P RETURN NUMBER IS
128 BEGIN
129 RETURN CP_POS_ASS_WS;
130 END CP_POS_ASS_WS_P;
131 FUNCTION CP_EXTRACT_NAME_P RETURN VARCHAR2 IS
132 BEGIN
133 RETURN CP_EXTRACT_NAME;
134 END CP_EXTRACT_NAME_P;
135 FUNCTION CP_WORKSHEET_NAME_P RETURN VARCHAR2 IS
136 BEGIN
137 RETURN CP_WORKSHEET_NAME;
138 END CP_WORKSHEET_NAME_P;
139 FUNCTION CP_YEAR_NAME_P RETURN VARCHAR2 IS
140 BEGIN
141 RETURN CP_YEAR_NAME;
142 END CP_YEAR_NAME_P;
143 FUNCTION CP_REPORT_TYPE_P RETURN VARCHAR2 IS
144 BEGIN
145 RETURN CP_REPORT_TYPE;
146 END CP_REPORT_TYPE_P;
147 END PSB_PSBRPVPR_XMLP_PKG;
148
149
150
151
152