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