[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRLIUTL_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRLIUTL_XMLP_PKG AS
2 /* $Header: XTRLIUTLB.pls 120.1 2007/12/28 12:53:25 npannamp noship $ */
3 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 SELECT
6 user
7 INTO
8 CP_PARA
9 FROM
10 DUAL;
11 RETURN (CP_PARA);
12 END CF_SET_PARAFORMULA;
13
14 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
15 L_DMMY_NUM NUMBER;
16 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
17 CURSOR CHK_LANG IS
18 SELECT
19 1
20 FROM
21 XTR_SYS_LANGUAGES_VL
22 WHERE MODULE_NAME = 'XTRLIUTL';
23 CURSOR GET_LANGUAGE_DESC IS
24 SELECT
25 ITEM_NAME,
26 SUBSTR(TEXT
27 ,1
28 ,100) LANG_NAME
29 FROM
30 XTR_SYS_LANGUAGES_VL
31 WHERE MODULE_NAME = 'XTRLIUTL';
32 BEGIN
33
34 BEGIN
35 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
36 EXCEPTION
37 WHEN OTHERS THEN
38 FND_MESSAGE.SET_NAME('XTR'
39 ,'XTR_LOOKUP_ERR');
40 L_MESSAGE := FND_MESSAGE.GET;
41 RAISE_APPLICATION_ERROR(-20101
42 ,NULL);
43 END;
44 IF (P_DISPLAY_DEBUG = 'Y') THEN
45 NULL;
46 END IF;
47 FOR c IN GET_LANGUAGE_DESC LOOP
48 IF C.ITEM_NAME = 'Z1PARAMETERS' THEN
49 Z1PARAMETERS := C.LANG_NAME;
50 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
51 Z2END_OF_REPORT := C.LANG_NAME;
52 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
53 Z2PAGE := C.LANG_NAME;
54 ELSIF C.ITEM_NAME = 'Z1AVAILABLE_HIGH_RANGE' THEN
55 Z1AVAILABLE_HIGH_RANGE := C.LANG_NAME;
56 ELSIF C.ITEM_NAME = 'Z1AVAILABLE_LOW_RANGE' THEN
57 Z1AVAILABLE_LOW_RANGE := C.LANG_NAME;
58 ELSIF C.ITEM_NAME = 'Z1EFFECTIVE_DATE_FROM' THEN
59 Z1EFFECTIVE_DATE_FROM := C.LANG_NAME;
60 ELSIF C.ITEM_NAME = 'Z1EFFECTIVE_DATE_TO' THEN
61 Z1EFFECTIVE_DATE_TO := C.LANG_NAME;
62 ELSIF C.ITEM_NAME = 'Z1LIMIT_CODE' THEN
63 Z1LIMIT_CODE := C.LANG_NAME;
64 ELSIF C.ITEM_NAME = 'Z1LIMIT_TYPE' THEN
65 Z1LIMIT_TYPE := C.LANG_NAME;
66 ELSIF C.ITEM_NAME = 'Z2AVAILABLE' THEN
67 Z2AVAILABLE := C.LANG_NAME;
68 ELSIF C.ITEM_NAME = 'Z2COMPANY' THEN
69 Z2COMPANY := C.LANG_NAME;
70 ELSIF C.ITEM_NAME = 'Z2COUNTRY' THEN
71 Z2COUNTRY := C.LANG_NAME;
72 ELSIF C.ITEM_NAME = 'Z2CURRENCY' THEN
73 Z2CURRENCY := C.LANG_NAME;
74 ELSIF C.ITEM_NAME = 'Z2EFFECTIVE_DATE' THEN
75 Z2EFFECTIVE_DATE := C.LANG_NAME;
76 ELSIF C.ITEM_NAME = 'Z2LIMIT_AMT' THEN
77 Z2LIMIT_AMT := C.LANG_NAME;
78 ELSIF C.ITEM_NAME = 'Z2LIMIT_GROUP' THEN
79 Z2LIMIT_GROUP := C.LANG_NAME;
80 ELSIF C.ITEM_NAME = 'Z2LIMIT_PARTY' THEN
81 Z2LIMIT_PARTY := C.LANG_NAME;
82 ELSIF C.ITEM_NAME = 'Z2UTILISED' THEN
83 Z2UTILISED := C.LANG_NAME;
84 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
85 REPORT_DATE := C.LANG_NAME;
86 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
87 Z1P_FACTOR := C.LANG_NAME;
88 END IF;
89 END LOOP;
90 RETURN (TRUE);
91 END BEFOREREPORT;
92
93 FUNCTION AFTERREPORT RETURN BOOLEAN IS
94 BEGIN
95 RETURN (TRUE);
96 END AFTERREPORT;
97
98 FUNCTION AFTERPFORM RETURN BOOLEAN IS
99 TEMP NUMBER(15) := 1000;
100 BEGIN
101 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
102 IF P_FACTOR IS NOT NULL THEN
103 SELECT
104 SUBSTRB(DESCRIPTION
105 ,1
106 ,20),
107 DECODE(SUBSTR(P_FACTOR
108 ,1
109 ,1)
110 ,'U'
111 ,1
112 ,'T'
113 ,1000
114 ,'M'
115 ,1000000
116 ,'B'
117 ,100000000)
118 INTO
119 LP_FACTOR_DESC
120 ,TEMP
121 FROM
122 FND_LOOKUPS
123 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
124 AND LOOKUP_CODE = SUBSTR(P_FACTOR
125 ,1
126 ,1);
127 ELSE
128 SELECT
129 SUBSTRB(DESCRIPTION
130 ,1
131 ,20)
132 INTO
133 LP_FACTOR_DESC
134 FROM
135 FND_LOOKUPS
136 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
137 AND LOOKUP_CODE = 'T';
138 TEMP := 1000;
139 END IF;
140 SELECT
141 MAX(DECODE(LOOKUP_CODE
142 ,'CPARTY'
143 ,MEANING)) CPARTY_DESC,
144 MAX(DECODE(LOOKUP_CODE
145 ,'CURR'
146 ,MEANING)) CURR_DESC,
147 MAX(DECODE(LOOKUP_CODE
148 ,'GLOBAL'
149 ,MEANING)) GLOBAL_DESC,
150 MAX(DECODE(LOOKUP_CODE
151 ,'GROUP'
152 ,MEANING)) GROUP_DESC,
153 MAX(DECODE(LOOKUP_CODE
154 ,'NOT_APP'
155 ,MEANING)) NA_DESC,
156 MAX(DECODE(LOOKUP_CODE
157 ,'SETTLE'
158 ,MEANING)) SETTLE_DESC,
159 MAX(DECODE(LOOKUP_CODE
160 ,'SOVGN'
161 ,MEANING)) SOVGN_DESC
162 INTO
163 Z3_CPARTY
164 ,Z3_CURR
165 ,Z3_GLOBAL
166 ,Z3_GROUP
167 ,Z3_NA
168 ,Z3_SETTLE
169 ,Z3_SOVGN
170 FROM
171 FND_LOOKUPS
172 WHERE LOOKUP_TYPE = 'XTR_LIMIT_OVERVIEW';
173 AMT_UNIT2 := TEMP;
174 SELECT
175 CP.USER_CONCURRENT_PROGRAM_NAME
176 INTO
177 REPORT_SHORT_NAME2
178 FROM
179 FND_CONCURRENT_PROGRAMS_VL CP,
180 FND_CONCURRENT_REQUESTS CR
181 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
182 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
183 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
184 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
185 P_EFFECTIVE_DATE_FROM_1 := TO_CHAR(TO_DATE(P_EFFECTIVE_DATE_FROM
186 ,'YYYY/MM/DD HH24:MI:SS')
187 ,'DD-MON-YYYY');
188 P_EFFECTIVE_DATE_TO_1 := TO_CHAR(TO_DATE(P_EFFECTIVE_DATE_TO
189 ,'YYYY/MM/DD HH24:MI:SS')
190 ,'DD-MON-YYYY');
191 LIMIT_TYPE2 := P_LIMIT_TYPE;
192 AVAILABLE_HIGH_RANGE2 := P_AVAILABLE_HIGH;
193 AVAILABLE_LOW_RANGE2 := P_AVAILABLE_LOW;
194 LIMIT_CODE2 := P_LIMIT_CODE;
195 EFFECTIVE_DATE_FROM2 := P_EFFECTIVE_DATE_FROM_1;
196 EFFECTIVE_DATE_TO2 := P_EFFECTIVE_DATE_TO_1;
197 RETURN (TRUE);
198 END AFTERPFORM;
199
200 FUNCTION FC_GET_LIMIT_TYPE_DESCFORMULA(QRY_LIMIT_TYPE IN VARCHAR2) RETURN CHAR IS
201 BEGIN
202 IF QRY_LIMIT_TYPE = 'COUNTERPARTY' THEN
203 RETURN (Z3_CPARTY);
204 ELSIF QRY_LIMIT_TYPE = 'CURRENCY' THEN
205 RETURN (Z3_CURR);
206 ELSIF QRY_LIMIT_TYPE = 'GLOBAL' THEN
207 RETURN (Z3_GLOBAL);
208 ELSIF QRY_LIMIT_TYPE = 'GROUP' THEN
209 RETURN (Z3_GROUP);
210 ELSIF QRY_LIMIT_TYPE = 'NOT_APP' THEN
211 RETURN (Z3_NA);
212 ELSIF QRY_LIMIT_TYPE = 'SETTLEMENT' THEN
213 RETURN (Z3_SETTLE);
214 ELSIF QRY_LIMIT_TYPE = 'SOVEREIGN' THEN
215 RETURN (Z3_SOVGN);
216 ELSE
217 RETURN (QRY_LIMIT_TYPE);
218 END IF;
219 END FC_GET_LIMIT_TYPE_DESCFORMULA;
220
221 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
222 BEGIN
223 RETURN CP_PARA;
224 END CP_PARA_P;
225
226 END XTR_XTRLIUTL_XMLP_PKG;
227