DBA Data[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