1 PACKAGE BODY PSB_PSBRPPAL_XMLP_PKG AS
2 /* $Header: PSBRPPALB.pls 120.0 2008/01/07 10:41:21 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 SOB_ID NUMBER;
5 BGP_ID NUMBER;
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 IF P_SOB_ID IS NULL THEN
10 FND_MESSAGE.SET_NAME('PSB'
11 ,'PSB_ALL');
12 CP_SOB := FND_MESSAGE.GET;
13 IF (P_BGP_ID IS NULL) THEN
14 FND_MESSAGE.SET_NAME('PSB'
15 ,'PSB_ALL');
16 CP_BGP := FND_MESSAGE.GET;
17 ELSE
18 SELECT
19 SHORT_NAME
20 INTO CP_BGP
21 FROM
22 PSB_BUDGET_GROUPS
23 WHERE BUDGET_GROUP_ID = P_BGP_ID;
24 END IF;
25 ELSE
26 SELECT
27 NAME
28 INTO CP_SOB
29 FROM
30 GL_SETS_OF_BOOKS
31 WHERE SET_OF_BOOKS_ID = P_SOB_ID;
32 IF (P_BGP_ID IS NULL) THEN
33 FND_MESSAGE.SET_NAME('PSB'
34 ,'PSB_ALL');
35 CP_BGP := FND_MESSAGE.GET;
36 ELSE
37 SELECT
38 SHORT_NAME
39 INTO CP_BGP
40 FROM
41 PSB_BUDGET_GROUPS
42 WHERE BUDGET_GROUP_ID = P_BGP_ID;
43 END IF;
44 END IF;
45 IF P_SET_ID IS NULL THEN
46 FND_MESSAGE.SET_NAME('PSB'
47 ,'PSB_ALL');
48 CP_SET := FND_MESSAGE.GET;
49 ELSE
50 SELECT
51 NAME
52 INTO CP_SET
53 FROM
54 PSB_ALLOCRULE_SETS_V
55 WHERE ALLOCRULE_SET_ID = P_SET_ID;
56 SELECT
57 SET_OF_BOOKS_ID,
58 BUDGET_GROUP_ID
59 INTO SOB_ID,BGP_ID
60 FROM
61 PSB_ALLOCRULE_SETS_V
62 WHERE ALLOCRULE_SET_ID = P_SET_ID;
63 SELECT
64 SHORT_NAME
65 INTO CP_BGP
66 FROM
67 PSB_BUDGET_GROUPS
68 WHERE BUDGET_GROUP_ID = BGP_ID;
69 SELECT
70 NAME
71 INTO CP_SOB
72 FROM
73 GL_SETS_OF_BOOKS
74 WHERE SET_OF_BOOKS_ID = SOB_ID;
75 END IF;
76 FND_MESSAGE.SET_NAME('PSB'
77 ,'PSB_NO_DATA_FOUND');
78 CP_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
79 FND_MESSAGE.SET_NAME('PSB'
80 ,'PSB_END_OF_REPORT');
81 CP_NLS_END_OF_REPORT := FND_MESSAGE.GET;
82 RETURN (TRUE);
83 EXCEPTION
84 WHEN NO_DATA_FOUND THEN
85 RETURN NULL;
86 END BEFOREREPORT;
87
88 FUNCTION AFTERREPORT RETURN BOOLEAN IS
89 BEGIN
90 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
91 RETURN (TRUE);
92 END AFTERREPORT;
93
94 FUNCTION M_SET_GRPFRFORMATTRIGGER(CS_REC_COUNT IN NUMBER) RETURN BOOLEAN IS
95 BEGIN
96 IF (CS_REC_COUNT > 0) THEN
97 RETURN (TRUE);
98 ELSE
99 RETURN (FALSE);
100 END IF;
101 RETURN (TRUE);
102 END M_SET_GRPFRFORMATTRIGGER;
103
104 FUNCTION M_1FORMATTRIGGER(CS_REC_COUNT IN NUMBER) RETURN BOOLEAN IS
105 BEGIN
106 IF (CS_REC_COUNT = 0) THEN
107 RETURN (TRUE);
108 ELSE
109 RETURN (FALSE);
110 END IF;
111 RETURN (TRUE);
112 END M_1FORMATTRIGGER;
113
114 FUNCTION F_2FORMATTRIGGER(CS_REC_COUNT IN NUMBER) RETURN BOOLEAN IS
115 BEGIN
116 RETURN (CS_REC_COUNT > 0);
117 RETURN (TRUE);
118 END F_2FORMATTRIGGER;
119
120 FUNCTION F_1FORMATTRIGGER(CS_REC_COUNT IN NUMBER) RETURN BOOLEAN IS
121 BEGIN
122 RETURN (CS_REC_COUNT = 0);
123 RETURN (TRUE);
124 END F_1FORMATTRIGGER;
125
126 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
127 BEGIN
128 RETURN (TRUE);
129 END BEFOREPFORM;
130
131 FUNCTION AFTERPFORM RETURN BOOLEAN IS
132 BEGIN
133 RETURN (TRUE);
134 END AFTERPFORM;
135
136 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
137 BEGIN
138 RETURN (TRUE);
139 END BETWEENPAGE;
140
141 FUNCTION P_CONC_REQUEST_ID_P RETURN NUMBER IS
142 BEGIN
143 RETURN P_CONC_REQUEST_ID;
144 END P_CONC_REQUEST_ID_P;
145
146 FUNCTION CP_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN CP_NLS_NO_DATA_EXISTS;
149 END CP_NLS_NO_DATA_EXISTS_P;
150
151 FUNCTION CP_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
152 BEGIN
153 RETURN CP_NLS_END_OF_REPORT;
154 END CP_NLS_END_OF_REPORT_P;
155
156 FUNCTION CP_SOB_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN CP_SOB;
159 END CP_SOB_P;
160
161 FUNCTION CP_BGP_P RETURN VARCHAR2 IS
162 BEGIN
163 RETURN CP_BGP;
164 END CP_BGP_P;
165
166 FUNCTION CP_SET_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN CP_SET;
169 END CP_SET_P;
170
171 END PSB_PSBRPPAL_XMLP_PKG;
172
173
174
175
176