[Home] [Help]
PACKAGE BODY: APPS.PSB_PSBRPBRS_XMLP_PKG
Source
1 PACKAGE BODY PSB_PSBRPBRS_XMLP_PKG AS
2 /* $Header: PSBRPBRSB.pls 120.0 2008/01/07 10:33:06 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 FND_MESSAGE.SET_NAME('PSB'
6 ,'PSB_NO_DATA_FOUND');
7 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
8 FND_MESSAGE.SET_NAME('PSB'
9 ,'PSB_END_OF_REPORT');
10 CP_END_OF_REPORT := FND_MESSAGE.GET;
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13 RETURN (TRUE);
14 END BEFOREREPORT;
15
16 FUNCTION CP_ORIGINAL_BUDGETFORMULA(CF_ORIGINAL_BUDGET IN NUMBER) RETURN NUMBER IS
17 BEGIN
18 RETURN CF_ORIGINAL_BUDGET;
19 END CP_ORIGINAL_BUDGETFORMULA;
20
21 FUNCTION CF_ORIGINAL_BUDGETFORMULA(CODE_COMBINATION_ID IN NUMBER
22 ,BUDGET_GROUP_ID IN NUMBER
23 ,START_PERIOD IN VARCHAR2
24 ,GL_BUDGET_VERSION_ID IN NUMBER
25 ,SET_OF_BOOKS_ID IN NUMBER
26 ,END_PERIOD IN VARCHAR2
27 ,CURRENCY_CODE IN VARCHAR2) RETURN NUMBER IS
28 L_ORIGINAL_BUDGET NUMBER;
29 BEGIN
30 L_ORIGINAL_BUDGET := 0;
31 L_ORIGINAL_BUDGET := PSB_BUDGET_REVISIONS_PVT.FIND_ORIGINAL_BUDGET_BALANCE(P_CODE_COMBINATION_ID => CODE_COMBINATION_ID
32 ,P_BUDGET_GROUP_ID => BUDGET_GROUP_ID
33 ,P_GL_PERIOD => START_PERIOD
34 ,P_GL_BUDGET_VERSION_ID => GL_BUDGET_VERSION_ID
35 ,P_SET_OF_BOOKS_ID => SET_OF_BOOKS_ID
36 ,P_END_GL_PERIOD => END_PERIOD
37 ,P_CURRENCY_CODE => CURRENCY_CODE);
38 RETURN (NVL(L_ORIGINAL_BUDGET
39 ,0));
40 END CF_ORIGINAL_BUDGETFORMULA;
41
42 FUNCTION CF_PERCENT_CHANGEFORMULA(BUDGET_BALANCE IN NUMBER
43 ,REVISION_AMOUNT IN NUMBER) RETURN NUMBER IS
44 L_CURRENCY_CODE VARCHAR2(15);
45 L_PERCENT_CHANGE NUMBER;
46 BEGIN
47 SELECT
48 DISTINCT
49 CURRENCY_CODE
50 INTO L_CURRENCY_CODE
51 FROM
52 PSB_BUDGET_REVISION_ACCOUNTS_V
53 WHERE BUDGET_REVISION_ID = P_BUDGET_REVISION_ID;
54 IF (NVL(BUDGET_BALANCE
55 ,0) <> 0) THEN
56 L_PERCENT_CHANGE := PSB_BUDGET_REVISIONS_PVT.GET_ROUNDED_AMOUNT(L_CURRENCY_CODE
57 ,(REVISION_AMOUNT / BUDGET_BALANCE) * 100);
58 ELSE
59 IF (REVISION_AMOUNT = 0) THEN
60 L_PERCENT_CHANGE := 0;
61 ELSE
62 L_PERCENT_CHANGE := 100;
63 END IF;
64 END IF;
65 RETURN L_PERCENT_CHANGE;
66 END CF_PERCENT_CHANGEFORMULA;
67
68 FUNCTION AFTERREPORT RETURN BOOLEAN IS
69 BEGIN
70 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
71 RETURN (TRUE);
72 END AFTERREPORT;
73
74 FUNCTION CF_ACCT_FLEX_DESCFORMULA(CHART_OF_ACCOUNTS_ID IN NUMBER
75 ,CODE_COMBINATION_ID IN NUMBER) RETURN CHAR IS
76 L_DESCRIPTION VARCHAR2(2000);
77 BEGIN
78 L_DESCRIPTION := NULL;
79 IF FND_FLEX_KEYVAL.VALIDATE_CCID(APPL_SHORT_NAME => 'SQLGL'
80 ,KEY_FLEX_CODE => 'GL#'
81 ,STRUCTURE_NUMBER => CHART_OF_ACCOUNTS_ID
82 ,COMBINATION_ID => CODE_COMBINATION_ID) THEN
83 L_DESCRIPTION := FND_FLEX_KEYVAL.CONCATENATED_DESCRIPTIONS;
84 END IF;
85 RETURN (L_DESCRIPTION);
86 END CF_ACCT_FLEX_DESCFORMULA;
87
88 FUNCTION CF_CURRENCY_CODEFORMULA RETURN CHAR IS
89 L_CURRENCY_CODE VARCHAR2(15);
90 BEGIN
91 SELECT
92 CURRENCY_CODE
93 INTO L_CURRENCY_CODE
94 FROM
95 PSB_BUDGET_REVISIONS
96 WHERE BUDGET_REVISION_ID = P_BUDGET_REVISION_ID;
97 RETURN L_CURRENCY_CODE;
98 END CF_CURRENCY_CODEFORMULA;
99
100 FUNCTION CF_DOCUMENT_POSTING_STATUSFORM(CURRENCY_CODE IN VARCHAR2) RETURN NUMBER IS
101 L_RETURN_STATUS VARCHAR2(1);
102 L_DOCUMENT_POSTED_FLAG VARCHAR2(1);
103 L_DOCUMENT_TYPE VARCHAR2(5);
104 BEGIN
105 IF CURRENCY_CODE = 'STAT' THEN
106 L_DOCUMENT_TYPE := 'SR';
107 ELSE
108 L_DOCUMENT_TYPE := 'BR';
109 END IF;
110 PSB_GL_INTERFACE_PVT.FIND_DOCUMENT_POSTING_STATUS(L_RETURN_STATUS
111 ,L_DOCUMENT_POSTED_FLAG
112 ,L_DOCUMENT_TYPE
113 ,P_BUDGET_REVISION_ID);
114 IF L_DOCUMENT_POSTED_FLAG = 'N' THEN
115 RETURN 0;
116 ELSE
117 RETURN 1;
118 END IF;
119 END CF_DOCUMENT_POSTING_STATUSFORM;
120
121 FUNCTION CP_ORIGINAL_BUDGET_P RETURN NUMBER IS
122 BEGIN
123 RETURN CP_ORIGINAL_BUDGET;
124 END CP_ORIGINAL_BUDGET_P;
125
126 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
127 BEGIN
128 RETURN CP_END_OF_REPORT;
129 END CP_END_OF_REPORT_P;
130
131 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
132 BEGIN
133 RETURN CP_NO_DATA_FOUND;
134 END CP_NO_DATA_FOUND_P;
135
136 END PSB_PSBRPBRS_XMLP_PKG;
137
138
139
140
141