[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRCFACC_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRCFACC_XMLP_PKG AS
2 /* $Header: XTRCFACCB.pls 120.1 2007/12/28 12:43:35 npannamp noship $ */
3 FUNCTION ROLLING_BAL1FORMULA(ACCOUNT_BAL_p in number) RETURN VARCHAR2 IS
4 BEGIN
5
6 SELECT (OPEN_BAL + ACCOUNT_BAL_p)/AMT_UNIT2 INTO ROLLING_BAL FROM DUAL;
7
8 RETURN ('');
9 END ROLLING_BAL1FORMULA;
10
11 FUNCTION ROLLING_BALFORMULA RETURN NUMBER IS
12 BEGIN
13 RETURN NULL;
14 END ROLLING_BALFORMULA;
15
16 FUNCTION OPEN_BAL1FORMULA(ACCT_NOS_P in varchar2,ccy_p in varchar2,COMPANY_p in varchar2)RETURN VARCHAR2 IS
17 BEGIN
18
19 SELECT nvl(round(OPENING_BALANCE,0),0)/amt_unit2 INTO OPEN_BAL FROM XTR_BANK_ACCOUNTS_V where PARTY_CODE = COMPANY_p and CURRENCY = CCY_p and ACCOUNT_NUMBER = ACCT_NOS_P;
20
21 RETURN ('');
22 END OPEN_BAL1FORMULA;
23
24 FUNCTION OPEN_BALFORMULA RETURN NUMBER IS
25 BEGIN
26 RETURN NULL;
27 END OPEN_BALFORMULA;
28
29 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
30 BEGIN
31 SELECT
32 SUBSTR(USER
33 ,1
34 ,10)
35 INTO
36 CP_PARA
37 FROM
38 DUAL;
39 RETURN (CP_PARA);
40 END CF_SET_PARAFORMULA;
41
42 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
43 L_DMMY_NUM NUMBER;
44 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
45 CURSOR GET_LANGUAGE_DESC IS
46 SELECT
47 ITEM_NAME,
48 SUBSTR(TEXT
49 ,1
50 ,100) LANG_NAME
51 FROM
52 XTR_SYS_LANGUAGES_VL
53 WHERE MODULE_NAME = 'XTRCFACC';
54 BEGIN
55 BEGIN
56 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
57 EXCEPTION
58 WHEN OTHERS THEN
59 FND_MESSAGE.SET_NAME('XTR'
60 ,'XTR_LOOKUP_ERR');
61 L_MESSAGE := FND_MESSAGE.GET;
62 RAISE_APPLICATION_ERROR(-20101
63 ,NULL);
64 END;
65 IF (P_DISPLAY_DEBUG = 'Y') THEN
66 NULL;
67 END IF;
68 FND_MESSAGE.SET_NAME('XTR'
69 ,'XTR_CASH_DEPOSIT');
70 Z2CURRENT_CASH_DEPOSITS_MSG := FND_MESSAGE.GET;
71 FOR c IN GET_LANGUAGE_DESC LOOP
72 IF C.ITEM_NAME = 'Z1ACCOUNT_NOS' THEN
73 Z1ACCOUNT_NOS := C.LANG_NAME;
74 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
75 Z1COMPANY := C.LANG_NAME;
76 ELSIF C.ITEM_NAME = 'Z1CURRENCY' THEN
77 Z1CURRENCY := C.LANG_NAME;
78 ELSIF C.ITEM_NAME = 'Z1EXP_TYPES' THEN
79 Z1EXP_TYPES := C.LANG_NAME;
80 ELSIF C.ITEM_NAME = 'Z1INCLUDE_CURRENCY_OPTION' THEN
81 Z1INCLUDE_CURRENCY_OPTION := C.LANG_NAME;
82 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
83 Z1PARAMETERS := C.LANG_NAME;
84 ELSIF C.ITEM_NAME = 'Z1SETTLE_FROM' THEN
85 Z1SETTLE_FROM := C.LANG_NAME;
86 ELSIF C.ITEM_NAME = 'Z1SUMMARISE' THEN
87 Z1SUMMARISE := C.LANG_NAME;
88 ELSIF C.ITEM_NAME = 'Z1SUMMARISE_BY_DAY_WEEK_MONTH' THEN
89 Z1SUMMARISE_BY_DAY_WEEK_MONTH := C.LANG_NAME;
90 ELSIF C.ITEM_NAME = 'Z1TO' THEN
91 Z1TO := C.LANG_NAME;
92 ELSIF C.ITEM_NAME = 'Z2ACCOUNT_NUMBER' THEN
93 Z2ACCOUNT_NUMBER := C.LANG_NAME;
94 ELSIF C.ITEM_NAME = 'Z2AC_BALANCE' THEN
95 Z2AC_BALANCE := C.LANG_NAME;
96 ELSIF C.ITEM_NAME = 'Z2CASHFLOWS' THEN
97 Z2CASHFLOWS := C.LANG_NAME;
98 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
99 Z2CCY := C.LANG_NAME;
100 ELSIF C.ITEM_NAME = 'Z2CFLOWS' THEN
101 Z2CFLOWS := C.LANG_NAME;
102 ELSIF C.ITEM_NAME = 'Z2DATE_OR' THEN
103 Z2DATE_OR := C.LANG_NAME;
104 ELSIF C.ITEM_NAME = 'Z2ENDING' THEN
105 Z2ENDING := C.LANG_NAME;
106 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
107 Z2END_OF_REPORT := C.LANG_NAME;
108 ELSIF C.ITEM_NAME = 'Z2NET_CASHFLOW' THEN
109 Z2NET_CASHFLOW := C.LANG_NAME;
110 ELSIF C.ITEM_NAME = 'Z2NET_EXPOSURE' THEN
111 Z2NET_EXPOSURE := C.LANG_NAME;
112 ELSIF C.ITEM_NAME = 'Z2NET_FX' THEN
113 Z2NET_FX := C.LANG_NAME;
114 ELSIF C.ITEM_NAME = 'Z2NET_MM' THEN
115 Z2NET_MM := C.LANG_NAME;
116 ELSIF C.ITEM_NAME = 'Z2NET_TOTALS' THEN
117 Z2NET_TOTALS := C.LANG_NAME;
118 ELSIF C.ITEM_NAME = 'Z2NOS_OF' THEN
119 Z2NOS_OF := C.LANG_NAME;
120 ELSIF C.ITEM_NAME = 'Z2WEEK_MONTH' THEN
121 Z2WEEK_MONTH := C.LANG_NAME;
122 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
123 Z2PAGE := C.LANG_NAME;
124 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
125 REPORT_DATE := C.LANG_NAME;
126 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
127 Z1P_FACTOR := C.LANG_NAME;
128 END IF;
129 END LOOP;
130 RETURN (TRUE);
131 END BEFOREREPORT;
132
133 FUNCTION AFTERREPORT RETURN BOOLEAN IS
134 BEGIN
135 RETURN (TRUE);
136 END AFTERREPORT;
137
138 FUNCTION AFTERPFORM RETURN BOOLEAN IS
139 TEMP NUMBER(15) := 1000;
140 BEGIN
141 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
142
143 IF P_FACTOR IS NOT NULL THEN
144 SELECT
145 SUBSTR(DESCRIPTION
146 ,1
147 ,20),
148 DECODE(SUBSTRB(P_FACTOR
149 ,1
150 ,1)
151 ,'U'
152 ,1
153 ,'T'
154 ,1000
155 ,'M'
156 ,1000000
157 ,'B'
158 ,100000000)
159 INTO
160 LP_FACTOR_DESC
161 ,TEMP
162 FROM
163 FND_LOOKUPS
164 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
165 AND LOOKUP_CODE = SUBSTRB(P_FACTOR
166 ,1
167 ,1);
168 ELSE
169 SELECT
170 SUBSTR(DESCRIPTION
171 ,1
172 ,20)
173 INTO
174 LP_FACTOR_DESC
175 FROM
176 FND_LOOKUPS
177 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
178 AND LOOKUP_CODE = 'T';
179 TEMP := 1000;
180 END IF;
181 AMT_UNIT2 := TEMP;
182 SETTLE_FROM_DATE2 := NVL(TO_DATE(P_PERIOD_FROM
183 ,'YYYY/MM/DD HH24:MI:SS')
184 ,TRUNC(SYSDATE));
185 SETTLE_TO_DATE2 := NVL(TO_DATE(P_PERIOD_TO
186 ,'YYYY/MM/DD HH24:MI:SS')
187 ,TRUNC(SYSDATE) + 7);
188 CURRENCY2 := P_CURRENCY;
189 COMPANY_CODE2 := P_COMPANY;
190 ACCOUNT_NUM2 := P_BANK_ACCOUNT_NUMBER;
191 EXP_TYPES2 := P_EXPOSURE_TYPE;
192 INCL_CCY_OPT2 := P_INCLUDE_FX_OPTION_BUY_SELL;
193 DAY_WEEK_MONTH2 := P_SUMMARIZE_BY;
194 IF P_EXPOSURE_TYPE = 'FIRM' THEN
195 P_1 := 'and dda_deal_subtype = ''FIRM''';
196 ELSIF P_EXPOSURE_TYPE = 'INDICATIVE' THEN
197 P_1 := 'and dda_deal_subtype = ''INDIC''';
198 ELSIF P_EXPOSURE_TYPE = 'NONE' THEN
199 P_1 := 'and dda_deal_subtype not in (''FIRM'',''INDIC'')';
200 ELSIF P_EXPOSURE_TYPE = 'ALL' THEN
201 P_1 := NULL;
202 END IF;
203 SELECT
204 CP.USER_CONCURRENT_PROGRAM_NAME
205 INTO
206 REPORT_SHORT_NAME
207 FROM
208 FND_CONCURRENT_PROGRAMS_VL CP,
209 FND_CONCURRENT_REQUESTS CR
210 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
211 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
212 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
213 REPORT_SHORT_NAME := substr(REPORT_SHORT_NAME,1,instr(REPORT_SHORT_NAME,' (XML)'));
214
215 RETURN (TRUE);
216 END AFTERPFORM;
217
218 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
219 BEGIN
220 RETURN (TRUE);
221 END BEFOREPFORM;
222
223 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
224 BEGIN
225 RETURN (TRUE);
226 END BETWEENPAGE;
227
228 FUNCTION OPEN_BAL_P RETURN NUMBER IS
229 BEGIN
230 RETURN OPEN_BAL;
231 END OPEN_BAL_P;
232
233 FUNCTION ROLLING_BAL_P RETURN NUMBER IS
234 BEGIN
235 RETURN ROLLING_BAL;
236 END ROLLING_BAL_P;
237
238 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
239 BEGIN
240 RETURN CP_PARA;
241 END CP_PARA_P;
242
243 END XTR_XTRCFACC_XMLP_PKG;
244