[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRSESTA_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRSESTA_XMLP_PKG AS
2 /* $Header: XTRSESTAB.pls 120.1 2007/12/28 12:59:19 npannamp noship $ */
3 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 SELECT
6 SUBSTR(USER
7 ,1
8 ,10)
9 INTO
10 CP_PARA
11 FROM
12 DUAL;
13 RETURN (CP_PARA);
14 END CF_SET_PARAFORMULA;
15
16 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
17 L_DMMY_NUM NUMBER;
18 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
19 CURSOR GET_LANGUAGE_DESC IS
20 SELECT
21 ITEM_NAME,
22 SUBSTR(TEXT
23 ,1
24 ,100) LANG_NAME
25 FROM
26 XTR_SYS_LANGUAGES_VL
27 WHERE MODULE_NAME = 'XTRSESTA';
28 BEGIN
29
30 BEGIN
31 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
32 EXCEPTION
33 WHEN OTHERS THEN
34 FND_MESSAGE.SET_NAME('XTR'
35 ,'XTR_LOOKUP_ERR');
36 L_MESSAGE := FND_MESSAGE.GET;
37 RAISE_APPLICATION_ERROR(-20101
38 ,NULL);
39 END;
40 IF (P_DISPLAY_DEBUG = 'Y') THEN
41 NULL;
42 END IF;
43 FOR c IN GET_LANGUAGE_DESC LOOP
44 IF C.ITEM_NAME = 'Z1ACCOUNT_NOS' THEN
45 Z1ACCOUNT_NOS := C.LANG_NAME;
46 ELSIF C.ITEM_NAME = 'Z1AUTHORISED_UNAUTHORISED_BOTH' THEN
47 Z1AUTHORISED_UNAUTHORISED_BOTH := C.LANG_NAME;
48 ELSIF C.ITEM_NAME = 'Z1BENEFICIARY' THEN
49 Z1BENEFICIARY := C.LANG_NAME;
50 ELSIF C.ITEM_NAME = 'Z1COMPANY_CODE' THEN
51 Z1COMPANY_CODE := C.LANG_NAME;
52 ELSIF C.ITEM_NAME = 'Z1CURRENCY' THEN
53 Z1CURRENCY := C.LANG_NAME;
54 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
55 Z1PARAMETERS := C.LANG_NAME;
56 ELSIF C.ITEM_NAME = 'Z1SETTLEMENTS_FROM' THEN
57 Z1SETTLEMENTS_FROM := C.LANG_NAME;
58 ELSIF C.ITEM_NAME = 'Z1TO' THEN
59 Z1TO := C.LANG_NAME;
60 ELSIF C.ITEM_NAME = 'Z2ACCOUNT_NUMBER' THEN
61 Z2ACCOUNT_NUMBER := C.LANG_NAME;
62 ELSIF C.ITEM_NAME = 'Z2AMOUNT' THEN
63 Z2AMOUNT := C.LANG_NAME;
64 ELSIF C.ITEM_NAME = 'Z2AUTHORISED' THEN
65 Z2AUTHORISED := C.LANG_NAME;
66 ELSIF C.ITEM_NAME = 'Z2BY' THEN
67 Z2BY := C.LANG_NAME;
68 ELSIF C.ITEM_NAME = 'Z2BY_USER' THEN
69 Z2BY_USER := C.LANG_NAME;
70 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
71 Z2CCY := C.LANG_NAME;
72 ELSIF C.ITEM_NAME = 'Z2CODE' THEN
73 Z2CODE := C.LANG_NAME;
74 ELSIF C.ITEM_NAME = 'Z2COMPANY' THEN
75 Z2COMPANY := C.LANG_NAME;
76 ELSIF C.ITEM_NAME = 'Z2CPARTY' THEN
77 Z2CPARTY := C.LANG_NAME;
78 ELSIF C.ITEM_NAME = 'Z2DEAL' THEN
79 Z2DEAL := C.LANG_NAME;
80 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
81 Z2END_OF_REPORT := C.LANG_NAME;
82 ELSIF C.ITEM_NAME = 'Z2NUMBER' THEN
83 Z2NUMBER := C.LANG_NAME;
84 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
85 Z2PRODUCT := C.LANG_NAME;
86 ELSIF C.ITEM_NAME = 'Z2SET' THEN
87 Z2SET := C.LANG_NAME;
88 ELSIF C.ITEM_NAME = 'Z2SETTLEMNET' THEN
89 Z2SETTLEMENT := C.LANG_NAME;
90 ELSIF C.ITEM_NAME = 'Z2SUBTYPE' THEN
91 Z2SUBTYPE := C.LANG_NAME;
92 ELSIF C.ITEM_NAME = 'Z2TRANS' THEN
93 Z2TRANS := C.LANG_NAME;
94 ELSIF C.ITEM_NAME = 'Z2TYPE' THEN
95 Z2TYPE := C.LANG_NAME;
96 ELSIF C.ITEM_NAME = 'Z2USER' THEN
97 Z2USER := C.LANG_NAME;
98 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
99 Z2PAGE := C.LANG_NAME;
100 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
101 REPORT_DATE := C.LANG_NAME;
102 ELSIF C.ITEM_NAME = 'Z2AMOUNT_DATE' THEN
103 Z2AMOUNT_DATE := C.LANG_NAME;
104 END IF;
105 END LOOP;
106 RETURN (TRUE);
107 END BEFOREREPORT;
108
109 FUNCTION AFTERREPORT RETURN BOOLEAN IS
110 BEGIN
111 RETURN (TRUE);
112 END AFTERREPORT;
113
114 FUNCTION AFTERPFORM RETURN BOOLEAN IS
115 BEGIN
116 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
117 COMPANY_CODE2 := P_COMPANY;
118 CURRENCY_CODE2 := P_CURRENCY;
119 ACCOUNT_NO2 := P_BANK_ACCOUNT_NUMBER;
120 FROM_DATE2 := TO_DATE(P_SETTLEMENT_DATE_FROM
121 ,'YYYY/MM/DD HH24:MI:SS');
122 TO_DATE2 := TO_DATE(P_SETTLEMENT_DATE_TO
123 ,'YYYY/MM/DD HH24:MI:SS');
124 BEGIN
125 SELECT
126 CP.USER_CONCURRENT_PROGRAM_NAME
127 INTO
128 REPORT_SHORT_NAME2
129 FROM
130 FND_CONCURRENT_PROGRAMS_VL CP,
131 FND_CONCURRENT_REQUESTS CR
132 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
133 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
134 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
135 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
136 EXCEPTION
137 WHEN OTHERS THEN
138 NULL;
139 END;
140 RETURN (TRUE);
141 END AFTERPFORM;
142
143 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
144 BEGIN
145 RETURN (TRUE);
146 END BEFOREPFORM;
147
148 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
149 BEGIN
150 RETURN (TRUE);
151 END BETWEENPAGE;
152
153 FUNCTION CFLOW1FORMULA(CFLOW IN NUMBER
154 ,CCY IN VARCHAR2) RETURN NUMBER IS
155 L_ROUND NUMBER;
156 BEGIN
157 IF LENGTH(CFLOW) > 38 THEN
158 SELECT
159 ROUNDING_FACTOR
160 INTO
161 L_ROUND
162 FROM
163 XTR_MASTER_CURRENCIES
164 WHERE CURRENCY = CCY;
165 RETURN (ROUND(CFLOW
166 ,L_ROUND));
167 ELSE
168 RETURN (CFLOW);
169 END IF;
170 END CFLOW1FORMULA;
171
172 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
173 BEGIN
174 RETURN CP_PARA;
175 END CP_PARA_P;
176
177 END XTR_XTRSESTA_XMLP_PKG;
178