DBA Data[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