1 PACKAGE BODY PSB_PSBRPBGH_XMLP_PKG AS
2 /* $Header: PSBRPBGHB.pls 120.0 2008/01/07 10:32:18 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 IF P_SET_OF_BOOKS_ID IS NULL THEN
8 FND_MESSAGE.SET_NAME('PSB'
9 ,'PSB_ALL');
10 CP_SET_OF_BOOKS_NAME := FND_MESSAGE.GET;
11 FND_MESSAGE.SET_NAME('PSB'
12 ,'PSB_ALL');
13 CP_TOP_BUDGET_GROUP_NAME := FND_MESSAGE.GET;
14 ELSE
15 SELECT
16 NAME
17 INTO CP_SET_OF_BOOKS_NAME
18 FROM
19 GL_SETS_OF_BOOKS
20 WHERE SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID;
21 IF P_BUDGET_GROUP_ID IS NULL THEN
22 FND_MESSAGE.SET_NAME('PSB'
23 ,'PSB_ALL');
24 CP_TOP_BUDGET_GROUP_NAME := FND_MESSAGE.GET;
25 ELSE
26 SELECT
27 NAME
28 INTO CP_TOP_BUDGET_GROUP_NAME
29 FROM
30 PSB_BUDGET_GROUPS
31 WHERE BUDGET_GROUP_ID = P_BUDGET_GROUP_ID;
32 END IF;
33 END IF;
34 IF P_EFFECTIVE_DATE IS NULL THEN
35 P_EFFECTIVE_DATE := SYSDATE;
36 END IF;
37 FND_MESSAGE.SET_NAME('PSB'
38 ,'PSB_NO_DATA_FOUND');
39 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
40 FND_MESSAGE.SET_NAME('PSB'
41 ,'PSB_END_OF_REPORT');
42 CP_END_OF_REPORT := FND_MESSAGE.GET;
43 LP_EFFECTIVE_DATE:=P_EFFECTIVE_DATE;
44 DP_EFFECTIVE_DATE:=to_char(P_EFFECTIVE_DATE,'DD-MON-YY HH24:MI:SS');
45 RETURN (TRUE);
46 END BEFOREREPORT;
47
48 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
49 BEGIN
50 RETURN (TRUE);
51 END BEFOREPFORM;
52
53 FUNCTION AFTERPFORM RETURN BOOLEAN IS
54 BEGIN
55 RETURN (TRUE);
56 END AFTERPFORM;
57
58 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
59 BEGIN
60 RETURN (TRUE);
61 END BETWEENPAGE;
62
63 FUNCTION AFTERREPORT RETURN BOOLEAN IS
64 BEGIN
65 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
66 RETURN (TRUE);
67 END AFTERREPORT;
68
69 FUNCTION CP_SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
70 BEGIN
71 RETURN CP_SET_OF_BOOKS_NAME;
72 END CP_SET_OF_BOOKS_NAME_P;
73
74 FUNCTION CP_TOP_BUDGET_GROUP_NAME_P RETURN VARCHAR2 IS
75 BEGIN
76 RETURN CP_TOP_BUDGET_GROUP_NAME;
77 END CP_TOP_BUDGET_GROUP_NAME_P;
78
79 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
80 BEGIN
81 RETURN CP_NO_DATA_FOUND;
82 END CP_NO_DATA_FOUND_P;
83
84 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
85 BEGIN
86 RETURN CP_END_OF_REPORT;
87 END CP_END_OF_REPORT_P;
88
89 END PSB_PSBRPBGH_XMLP_PKG;
90
91
92
93
94