[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRCFCON_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRCFCON_XMLP_PKG AS
2 /* $Header: XTRCFCONB.pls 120.1 2007/12/28 12:45:02 npannamp noship $ */
3 FUNCTION ROLLING_BAL1FORMULA RETURN VARCHAR2 IS
4 BEGIN
5 /*EXECUTE IMMEDIATE
6 'SELECT ('||OPEN_BAL || '+' || ACCOUNT_BAL|| ') FROM SYS.DUAL' INTO ROLLING_BAL;
7 COMMIT;*/null;
11 FUNCTION ROLLING_BALFORMULA RETURN NUMBER IS
8 RETURN ('');
9 END ROLLING_BAL1FORMULA;
10
12 BEGIN
13 RETURN NULL;
14 END ROLLING_BALFORMULA;
15
16 FUNCTION OPEN_BAL1FORMULA(ccy varchar2) RETURN VARCHAR2 IS
17 BEGIN
18 EXECUTE IMMEDIATE
19 'SELECT NVL(round(sum(NVL(OPENING_BALANCE,0)),0),0)/'||L_amt_unit2||' FROM XTR_BANK_ACCOUNTS_V WHERE CURRENCY = :CYY' INTO OPEN_BAL USING OPEN_BAL1FORMULA.ccy;
20 -- COMMIT;
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 RETURN (CP_PARA);
32 END CF_SET_PARAFORMULA;
33
34 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
35 L_DMMY_NUM NUMBER;
36 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
37 CURSOR GET_LANGUAGE_DESC IS
38 SELECT
39 ITEM_NAME,
40 SUBSTR(TEXT
41 ,1
42 ,100) LANG_NAME
43 FROM
44 XTR_SYS_LANGUAGES_VL
45 WHERE MODULE_NAME = 'XTRCFCON';
46 BEGIN
47
48 BEGIN
49 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
50 EXCEPTION
51 WHEN OTHERS THEN
52 FND_MESSAGE.SET_NAME('XTR'
53 ,'XTR_LOOKUP_ERR');
54 L_MESSAGE := FND_MESSAGE.GET;
55 RAISE_APPLICATION_ERROR(-20101
56 ,NULL);
57 END;
58 IF (P_DISPLAY_DEBUG = 'Y') THEN
59 NULL;
60 END IF;
61 FND_MESSAGE.SET_NAME('XTR'
62 ,'XTR_CASH_DEPOSIT');
63 Z2CURRENT_CASH_DEPOSITS_MSG := FND_MESSAGE.GET;
64 FOR c IN GET_LANGUAGE_DESC LOOP
65 IF C.ITEM_NAME = 'Z2CCY' THEN
66 Z2CCY := C.LANG_NAME;
67 ELSIF C.ITEM_NAME = 'Z1CURRENCY' THEN
68 Z1CURRENCY := C.LANG_NAME;
69 ELSIF C.ITEM_NAME = 'Z1EXP_TYPES' THEN
70 Z1EXP_TYPES := C.LANG_NAME;
71 ELSIF C.ITEM_NAME = 'Z1INCLUDE_CCY_OPTION' THEN
72 Z1INCLUDE_CCY_OPTION := C.LANG_NAME;
73 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
74 Z1PARAMETERS := C.LANG_NAME;
75 ELSIF C.ITEM_NAME = 'Z1SETTLE_FROM' THEN
76 Z1SETTLE_FROM := C.LANG_NAME;
77 ELSIF C.ITEM_NAME = 'Z1SUMMARISED' THEN
78 Z1SUMMARISED := C.LANG_NAME;
79 ELSIF C.ITEM_NAME = 'Z1SUMMARISE_BY_DAY_WEEK_MONTH' THEN
80 Z1SUMMARISE_BY_DAY_WEEK_MONTH := C.LANG_NAME;
81 ELSIF C.ITEM_NAME = 'Z1TO' THEN
82 Z1TO := C.LANG_NAME;
83 ELSIF C.ITEM_NAME = 'Z2AC_BALANCE' THEN
84 Z2AC_BALANCE := C.LANG_NAME;
85 ELSIF C.ITEM_NAME = 'Z2CASHFLOWS' THEN
86 Z2CASHFLOWS := C.LANG_NAME;
87 ELSIF C.ITEM_NAME = 'Z2DATE_OR' THEN
88 Z2DATE_OR := C.LANG_NAME;
89 ELSIF C.ITEM_NAME = 'Z2ENDING' THEN
90 Z2ENDING := C.LANG_NAME;
91 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
92 Z2END_OF_REPORT := C.LANG_NAME;
93 ELSIF C.ITEM_NAME = 'Z2NET_CASHFLOW' THEN
94 Z2NET_CASHFLOW := C.LANG_NAME;
95 ELSIF C.ITEM_NAME = 'Z2NET_EXPOSURE' THEN
96 Z2NET_EXPOSURE := C.LANG_NAME;
97 ELSIF C.ITEM_NAME = 'Z2NET_FX' THEN
98 Z2NET_FX := C.LANG_NAME;
99 ELSIF C.ITEM_NAME = 'Z2NET_MM' THEN
100 Z2NET_MM := C.LANG_NAME;
101 ELSIF C.ITEM_NAME = 'Z2NET_TOTALS' THEN
102 Z2NET_TOTALS := C.LANG_NAME;
103 ELSIF C.ITEM_NAME = 'Z2NUMBER_OF' THEN
104 Z2NUMBER_OF := C.LANG_NAME;
105 ELSIF C.ITEM_NAME = 'Z2WEEK_MONTH' THEN
106 Z2WEEK_MONTH := C.LANG_NAME;
107 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
108 Z2PAGE := C.LANG_NAME;
109 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
110 REPORT_DATE := C.LANG_NAME;
111 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
112 Z1P_FACTOR := C.LANG_NAME;
113 END IF;
114 END LOOP;
115 LP_PERIOD_FROM:=to_char(P_PERIOD_FROM,'DD-MON-YY');
116 LP_PERIOD_TO:=to_char(P_PERIOD_TO,'DD-MON-YY');
117 RETURN (TRUE);
118 END BEFOREREPORT;
119
120 FUNCTION AFTERPFORM RETURN BOOLEAN IS
121 TEMP NUMBER(15) := 1000;
122 BEGIN
123 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
124 IF P_FACTOR IS NOT NULL THEN
125 SELECT
126 SUBSTR(DESCRIPTION
127 ,1
128 ,20),
129 DECODE(SUBSTR(P_FACTOR
130 ,1
131 ,1)
132 ,'U'
133 ,1
134 ,'T'
135 ,1000
136 ,'M'
137 ,1000000
138 ,'B'
139 ,100000000)
140 INTO
141 LP_FACTOR_DESC
142 ,TEMP
143 FROM
144 FND_LOOKUPS
145 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
146 AND LOOKUP_CODE = SUBSTR(P_FACTOR
147 ,1
148 ,1);
149 ELSE
150 SELECT
151 SUBSTR(DESCRIPTION
152 ,1
153 ,20)
154 INTO
155 LP_FACTOR_DESC
156 FROM
157 FND_LOOKUPS
158 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
159 AND LOOKUP_CODE = 'T';
160 TEMP := 1000;
161 END IF;
162 AMT_UNIT2 := TEMP;
163 L_AMT_UNIT2:=AMT_UNIT2;
164 CURRENCY2 := P_CURRENCY;
165 EXP_TYPES2 := P_EXPOSURE_TYPE;
166 INCL_CCY_OPT2 := P_INCLUDE_FX_OPTION_BUY_SELL;
167 DAY_WEEK_MONTH2 := P_SUMMARIZE_BY;
168 SETTLE_FROM_DATE2 := P_PERIOD_FROM;
169 SETTLE_TO_DATE2 := P_PERIOD_TO;
170 IF EXP_TYPES2 = 'FIRM' THEN
171 P_1 := 'and dda_deal_subtype = ''FIRM''';
172 ELSIF EXP_TYPES2 = 'INDICATIVE' THEN
173 P_1 := 'and dda_deal_subtype = ''INDIC''';
174 ELSIF EXP_TYPES2 = 'NONE' THEN
175 P_1 := 'and dda_deal_subtype not in (''FIRM'',''INDIC'')';
176 ELSIF EXP_TYPES2 = 'ALL' THEN
177 P_1 := ' ';
178 ELSE
179 P_1 := ' ';
180 END IF;
181 SELECT
182 CP.USER_CONCURRENT_PROGRAM_NAME
183 INTO
184 REPORT_SHORT_NAME2
185 FROM
186 FND_CONCURRENT_PROGRAMS_VL CP,
187 FND_CONCURRENT_REQUESTS CR
188 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
189 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
190 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
191 RETURN (TRUE);
192 END AFTERPFORM;
193
194 FUNCTION AFTERREPORT RETURN BOOLEAN IS
195 BEGIN
196 RETURN (TRUE);
197 END AFTERREPORT;
198
199 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
200 BEGIN
201 RETURN (TRUE);
202 END BEFOREPFORM;
203
204 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
205 BEGIN
206 RETURN (TRUE);
207 END BETWEENPAGE;
208
209 FUNCTION OPEN_BAL_P RETURN NUMBER IS
210 BEGIN
211 RETURN OPEN_BAL;
212 END OPEN_BAL_P;
213
214 FUNCTION ROLLING_BAL_P RETURN NUMBER IS
215 BEGIN
216 RETURN ROLLING_BAL;
217 END ROLLING_BAL_P;
218
219 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
220 BEGIN
221 RETURN CP_PARA;
222 END CP_PARA_P;
223
224 END XTR_XTRCFCON_XMLP_PKG;
225