1 PACKAGE BODY PSB_PSBRPBRT_XMLP_PKG AS
2 /* $Header: PSBRPBRTB.pls 120.0 2008/01/07 10:34:03 vijranga noship $ */
3 FUNCTION CF_OPEN_BALANCEFORMULA(CODE_COMBINATION_ID IN NUMBER
4 ,GL_BUDGET_VERSION_ID IN NUMBER
5 ,SET_OF_BOOKS_ID IN NUMBER
6 ,CURRENCY_CODE IN VARCHAR2) RETURN NUMBER IS
7 L_OPEN_BALANCE NUMBER := 0;
8 BEGIN
9 L_OPEN_BALANCE := PSB_BUDGET_REVISIONS_PVT.FIND_ORIGINAL_BUDGET_BALANCE(P_CODE_COMBINATION_ID => CODE_COMBINATION_ID
10 ,P_BUDGET_GROUP_ID => P_BUDGET_GROUP_ID
11 ,P_GL_PERIOD => P_START_PERIOD
12 ,P_GL_BUDGET_VERSION_ID => GL_BUDGET_VERSION_ID
13 ,P_SET_OF_BOOKS_ID => SET_OF_BOOKS_ID
14 ,P_END_GL_PERIOD => P_END_PERIOD
15 ,P_CURRENCY_CODE => CURRENCY_CODE);
16 RETURN (NVL(L_OPEN_BALANCE
17 ,0));
18 END CF_OPEN_BALANCEFORMULA;
19 FUNCTION CP_1FORMULA(CF_OPEN_BALANCE IN NUMBER) RETURN NUMBER IS
20 BEGIN
21 RETURN (NVL(CF_OPEN_BALANCE
22 ,0));
23 END CP_1FORMULA;
24 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
25 BEGIN
26 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
27 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
28 FND_MESSAGE.SET_NAME('PSB'
29 ,'PSB_NO_DATA_FOUND');
30 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
31 FND_MESSAGE.SET_NAME('PSB'
32 ,'PSB_END_OF_REPORT');
33 CP_END_OF_REPORT := FND_MESSAGE.GET;
34 RETURN (TRUE);
35 END BEFOREREPORT;
36 FUNCTION CF_END_BALANCEFORMULA(CF_OPEN_BALANCE IN NUMBER
37 ,CS_REVISION_VALUE IN NUMBER) RETURN NUMBER IS
38 L_END_BALANCE NUMBER := 0;
39 BEGIN
40 L_END_BALANCE := NVL(CF_OPEN_BALANCE
41 ,0) + NVL(CS_REVISION_VALUE
42 ,0);
43 RETURN L_END_BALANCE;
44 END CF_END_BALANCEFORMULA;
45 FUNCTION CP_END_BALANCEFORMULA(CF_END_BALANCE IN NUMBER) RETURN NUMBER IS
46 BEGIN
47 RETURN (NVL(CF_END_BALANCE
48 ,0));
49 END CP_END_BALANCEFORMULA;
50 FUNCTION AFTERPFORM RETURN BOOLEAN IS
51 VSET_OF_BOOKS_ID NUMBER(20);
52 L_DT_FMT varchar2(30) := 'DD-MON-YYYY';
53 L_DT_FMT2 varchar2(30) := 'DD-MON-YY';
54 BEGIN
55 SELECT
56 B.SET_OF_BOOKS_ID
57 INTO VSET_OF_BOOKS_ID
58 FROM
59 PSB_BUDGET_GROUPS A,
60 PSB_BUDGET_GROUPS B
61 WHERE A.BUDGET_GROUP_ID = P_BUDGET_GROUP_ID
62 AND NVL(A.ROOT_BUDGET_GROUP_ID
63 ,A.BUDGET_GROUP_ID) = B.BUDGET_GROUP_ID;
64 SELECT
65 START_DATE
66 INTO INPUT_PERIOD_START_DATE
67 FROM
68 GL_PERIOD_STATUSES
69 WHERE APPLICATION_ID = 101
70 AND SET_OF_BOOKS_ID = VSET_OF_BOOKS_ID
71 AND PERIOD_NAME = P_START_PERIOD;
72 INPUT_PERIOD_START_DATE1 := TO_CHAR(TO_DATE(INPUT_PERIOD_START_DATE,L_DT_FMT),L_DT_FMT2);
73 SELECT
74 END_DATE
75 INTO INPUT_PERIOD_END_DATE
76 FROM
77 GL_PERIOD_STATUSES
78 WHERE APPLICATION_ID = 101
79 AND SET_OF_BOOKS_ID = VSET_OF_BOOKS_ID
80 AND PERIOD_NAME = P_END_PERIOD;
81 INPUT_PERIOD_END_DATE1 :=to_char(TO_DATE(INPUT_PERIOD_END_DATE,L_DT_FMT),L_DT_FMT2);
82 SELECT
83 SHORT_NAME
84 INTO P_BUDGET_GROUP_NAME
85 FROM
86 PSB_BUDGET_GROUPS
87 WHERE BUDGET_GROUP_ID = P_BUDGET_GROUP_ID;
88 RETURN (TRUE);
89 END AFTERPFORM;
90 FUNCTION AFTERREPORT RETURN BOOLEAN IS
91 BEGIN
92 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
93 RETURN (TRUE);
94 END AFTERREPORT;
95 FUNCTION CF_ACCT_FLEX_DESCFORMULA(CODE_COMBINATION_ID_1 IN NUMBER) RETURN CHAR IS
96 L_DESCRIPTION VARCHAR2(2000);
97 L_CHART_OF_ACCOUNTS_ID NUMBER(15);
98 BEGIN
99 SELECT
100 CHART_OF_ACCOUNTS_ID
101 INTO L_CHART_OF_ACCOUNTS_ID
102 FROM
103 GL_CODE_COMBINATIONS_KFV
104 WHERE CODE_COMBINATION_ID = CODE_COMBINATION_ID_1;
105 IF FND_FLEX_KEYVAL.VALIDATE_CCID(APPL_SHORT_NAME => 'SQLGL'
106 ,KEY_FLEX_CODE => 'GL#'
107 ,STRUCTURE_NUMBER => L_CHART_OF_ACCOUNTS_ID
108 ,COMBINATION_ID => CODE_COMBINATION_ID_1) THEN
109 L_DESCRIPTION := FND_FLEX_KEYVAL.CONCATENATED_DESCRIPTIONS;
110 END IF;
111 RETURN (L_DESCRIPTION);
112 END CF_ACCT_FLEX_DESCFORMULA;
113 FUNCTION CP_OPEN_BALANCE_P RETURN NUMBER IS
114 BEGIN
115 RETURN CP_OPEN_BALANCE;
116 END CP_OPEN_BALANCE_P;
117 FUNCTION CP_END_BALANCE_P RETURN NUMBER IS
118 BEGIN
119 RETURN CP_END_BALANCE;
120 END CP_END_BALANCE_P;
121 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
122 BEGIN
123 RETURN CP_NO_DATA_FOUND;
124 END CP_NO_DATA_FOUND_P;
125 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
126 BEGIN
127 RETURN CP_END_OF_REPORT;
128 END CP_END_OF_REPORT_P;
129 END PSB_PSBRPBRT_XMLP_PKG;
130
131