PACKAGE BODY: APPS.PSB_PSBWSSUB_XMLP_PKG

Source

1 PACKAGE BODY PSB_PSBWSSUB_XMLP_PKG AS
2 /* $Header: PSBWSSUBB.pls 120.0 2008/01/07 10:57:13 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_STARTDATE_PP DATE;
8     L_ENDDATE_CY DATE;
9     L_GLOBAL_WORKSHEET_ID PSB_WORKSHEETS.GLOBAL_WORKSHEET_ID%TYPE;
10     L_GLOBAL_WORKSHEET_FLAG PSB_WORKSHEETS.GLOBAL_WORKSHEET_FLAG%TYPE;
11     L_BUDGET_GROUP_ID PSB_WORKSHEETS.BUDGET_GROUP_ID%TYPE;
12     L_BUDGET_CALENDAR_ID PSB_WORKSHEETS.BUDGET_CALENDAR_ID%TYPE;
13   BEGIN
14     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
15     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
16     SELECT
17       NAME
18     INTO CP_BUDGET_GROUP_NAME
19     FROM
20       PSB_BUDGET_GROUPS
21     WHERE BUDGET_GROUP_ID = P_BUDGET_GROUP_ID;
22     SELECT
23       MEANING
24     INTO CP_NOT_SUBMITTED_ONLY
25     FROM
26       FND_LOOKUPS
27     WHERE LOOKUP_TYPE = 'YES_NO'
28       AND LOOKUP_CODE = P_NOT_SUBMITTED_ONLY_FLAG;
29     SELECT
30       BUDGET_CALENDAR_ID,
31       GLOBAL_WORKSHEET_ID,
32       NVL(GLOBAL_WORKSHEET_FLAG
33          ,'N')
34     INTO L_BUDGET_CALENDAR_ID,L_GLOBAL_WORKSHEET_ID,L_GLOBAL_WORKSHEET_FLAG
35     FROM
36       PSB_WORKSHEETS
37     WHERE WORKSHEET_ID = P_WORKSHEET_ID;
38     IF L_GLOBAL_WORKSHEET_FLAG <> 'Y' THEN
39       CP_GLOBAL_WORKSHEET_ID := L_GLOBAL_WORKSHEET_ID;
40     ELSE
41       CP_GLOBAL_WORKSHEET_ID := P_WORKSHEET_ID;
42     END IF;
43     PSB_WS_ACCT1.GET_BUDGET_CALENDAR_INFO(P_RETURN_STATUS => L_RETURN_STATUS
44                                          ,P_BUDGET_CALENDAR_ID => L_BUDGET_CALENDAR_ID
45                                          ,P_STARTDATE_PP => L_STARTDATE_PP
46                                          ,P_ENDDATE_CY => L_ENDDATE_CY);
47     IF L_RETURN_STATUS <> 'S' THEN
48       RETURN (FALSE);
49     ELSE
50       CP_STARTDATE_PP := L_STARTDATE_PP;
51       CP_ENDDATE_CY := L_ENDDATE_CY;
52     END IF;
53     FND_MESSAGE.SET_NAME('PSB'
54                         ,'PSB_NO_DATA_FOUND');
55     CP_NO_DATA_FOUND := FND_MESSAGE.GET;
56     FND_MESSAGE.SET_NAME('PSB'
57                         ,'PSB_END_OF_REPORT');
58     CP_END_OF_REPORT := FND_MESSAGE.GET;
59     RETURN (TRUE);
60   END BEFOREREPORT;
61 
62   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
63   BEGIN
64     RETURN (TRUE);
65   END BEFOREPFORM;
66 
67   FUNCTION AFTERPFORM RETURN BOOLEAN IS
68   BEGIN
69     RETURN (TRUE);
70   END AFTERPFORM;
71 
72   FUNCTION BETWEENPAGE RETURN BOOLEAN IS
73   BEGIN
74     RETURN (TRUE);
75   END BETWEENPAGE;
76 
77   FUNCTION AFTERREPORT RETURN BOOLEAN IS
78   BEGIN
79     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
80     RETURN (TRUE);
81   END AFTERREPORT;
82 
83   FUNCTION CP_BUDGET_GROUP_NAME_P RETURN VARCHAR2 IS
84   BEGIN
85     RETURN CP_BUDGET_GROUP_NAME;
86   END CP_BUDGET_GROUP_NAME_P;
87 
88   FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
89   BEGIN
90     RETURN CP_NO_DATA_FOUND;
91   END CP_NO_DATA_FOUND_P;
92 
93   FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
94   BEGIN
95     RETURN CP_END_OF_REPORT;
96   END CP_END_OF_REPORT_P;
97 
98   FUNCTION CP_STARTDATE_PP_P RETURN DATE IS
99   BEGIN
100     RETURN CP_STARTDATE_PP;
101   END CP_STARTDATE_PP_P;
102 
103   FUNCTION CP_ENDDATE_CY_P RETURN DATE IS
104   BEGIN
105     RETURN CP_ENDDATE_CY;
106   END CP_ENDDATE_CY_P;
107 
108   FUNCTION CP_NOT_SUBMITTED_ONLY_P RETURN VARCHAR2 IS
109   BEGIN
110     RETURN CP_NOT_SUBMITTED_ONLY;
111   END CP_NOT_SUBMITTED_ONLY_P;
112 
113   FUNCTION CP_GLOBAL_WORKSHEET_ID_P RETURN NUMBER IS
114   BEGIN
115     RETURN CP_GLOBAL_WORKSHEET_ID;
116   END CP_GLOBAL_WORKSHEET_ID_P;
117 
118 END PSB_PSBWSSUB_XMLP_PKG;
119 
120 
121 
122 
123