[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRIRHED_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRIRHED_XMLP_PKG AS
2 /* $Header: XTRIRHEDB.pls 120.1 2007/12/28 12:51:45 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 = 'XTRIRHED';
28 BEGIN
29 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
30 BEGIN
31 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
32 EXCEPTION
33 WHEN OTHERS THEN
34 SET_NAME('XTR'
35 ,'XTR_LOOKUP_ERR');
36 L_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 = 'Z1AMOUNT_UNIT' THEN
45 Z1AMOUNT_UNIT := C.LANG_NAME;
46 ELSIF C.ITEM_NAME = 'Z1CURRENCY' THEN
47 Z1CURRENCY := C.LANG_NAME;
48 ELSIF C.ITEM_NAME = 'Z1DATE_FROM' THEN
49 Z1DATE_FROM := C.LANG_NAME;
50 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
51 Z1PARAMETERS := C.LANG_NAME;
52 ELSIF C.ITEM_NAME = 'Z1TO' THEN
53 Z1TO := C.LANG_NAME;
54 ELSIF C.ITEM_NAME = 'Z2DEAL_TYPE' THEN
55 Z2DEAL_TYPE := C.LANG_NAME;
56 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
57 Z2END_OF_REPORT := C.LANG_NAME;
58 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
59 Z2PAGE := C.LANG_NAME;
60 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
61 REPORT_DATE := C.LANG_NAME;
62 ELSIF C.ITEM_NAME = 'Z1COMPANY_CODE' THEN
63 Z1COMPANY_CODE := C.LANG_NAME;
64 ELSIF C.ITEM_NAME = 'Z1PORTFOLIO' THEN
65 Z1PORTFOLIO := C.LANG_NAME;
66 END IF;
67 END LOOP;
68 RETURN (TRUE);
69 END BEFOREREPORT;
70
71 FUNCTION AFTERPFORM RETURN BOOLEAN IS
72 TEMP NUMBER(15) := 1000;
73 BEGIN
74 IF P_FACTOR IS NOT NULL THEN
75 SELECT
76 SUBSTRB(DESCRIPTION
77 ,1
78 ,20),
79 DECODE(SUBSTR(P_FACTOR
80 ,1
81 ,1)
82 ,'U'
83 ,1
84 ,'T'
85 ,1000
86 ,'M'
87 ,1000000
88 ,'B'
89 ,100000000)
90 INTO
91 LP_FACTOR_DESC
92 ,TEMP
93 FROM
94 FND_LOOKUPS
95 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
96 AND LOOKUP_CODE = SUBSTR(P_FACTOR
97 ,1
98 ,1);
99 ELSE
100 SELECT
101 SUBSTRB(DESCRIPTION
102 ,1
103 ,20)
104 INTO
105 LP_FACTOR_DESC
106 FROM
107 FND_LOOKUPS
108 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
109 AND LOOKUP_CODE = 'T';
110 TEMP := 1000;
111 END IF;
112 P_DATE_FROM_1 := TO_CHAR(TO_DATE(P_DATE_FROM
113 ,'YYYY/MM/DD HH24:MI:SS')
114 ,'DD-MON-YYYY');
115 CCY2 := P_CURRENCY;
116 DATE_FROM2 := TO_DATE(P_DATE_FROM_1
117 ,'DD-MON-YYYY');
118 DATE_TO2 := LAST_DAY(ADD_MONTHS(DATE_FROM2
119 ,11));
120 AMT_UNIT2 := TEMP;
121 COMPANY_CODE2 := P_COMPANY;
122 PORT_CODE2 := P_PORTFOLIO;
123 SELECT
124 CP.USER_CONCURRENT_PROGRAM_NAME
125 INTO
126 REPORT_SHORT_NAME2
127 FROM
128 FND_CONCURRENT_PROGRAMS_VL CP,
129 FND_CONCURRENT_REQUESTS CR
130 WHERE CR.REQUEST_ID = FND_GLOBAL.CONC_REQUEST_ID
131 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
132 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
133
134 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
135 RETURN (TRUE);
136 END AFTERPFORM;
137
138 FUNCTION AFTERREPORT RETURN BOOLEAN IS
139 BEGIN
140 RETURN (TRUE);
141 END AFTERREPORT;
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 CP_PARA_P RETURN VARCHAR2 IS
154 BEGIN
155 RETURN CP_PARA;
156 END CP_PARA_P;
157
158 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
159 ,NAME IN VARCHAR2) IS
160 BEGIN
161 /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
162 STPROC.BIND_I(APPLICATION);
163 STPROC.BIND_I(NAME);
164 STPROC.EXECUTE;*/
165 null;
166 END SET_NAME;
167
168 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
169 ,VALUE IN VARCHAR2
170 ,TRANSLATE IN BOOLEAN) IS
171 BEGIN
172 /*STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
173 STPROC.BIND_I(TRANSLATE);
174 STPROC.BIND_I(TOKEN);
175 STPROC.BIND_I(VALUE);
176 STPROC.EXECUTE;*/
177 null;
178 END SET_TOKEN;
179
180 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
181 BEGIN
182 /* STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
183 STPROC.BIND_O(MSGOUT);
184 STPROC.EXECUTE;
185 STPROC.RETRIEVE(1
186 ,MSGOUT);*/
187 null;
188 END RETRIEVE;
189
190 PROCEDURE CLEAR IS
191 BEGIN
192 /* STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
193 STPROC.EXECUTE;*/
194 null;
195 END CLEAR;
196
197 FUNCTION GET_STRING(APPIN IN VARCHAR2
198 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
199 X0 VARCHAR2(2000);
200 BEGIN
201 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
202 STPROC.BIND_O(X0);
203 STPROC.BIND_I(APPIN);
204 STPROC.BIND_I(NAMEIN);
205 STPROC.EXECUTE;
206 STPROC.RETRIEVE(1
207 ,X0);*/
208
209 null;
210 RETURN X0;
211 END GET_STRING;
212
213 FUNCTION GET RETURN VARCHAR2 IS
214 X0 VARCHAR2(2000);
215 BEGIN
216 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
217 STPROC.BIND_O(X0);
218 STPROC.EXECUTE;
219 STPROC.RETRIEVE(1
220 ,X0);*/
221 RETURN X0;
222 END GET;
223
224 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
225 X0 VARCHAR2(2000);
226 BEGIN
227 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
228 STPROC.BIND_O(X0);
229 STPROC.EXECUTE;
230 STPROC.RETRIEVE(1
231 ,X0);*/
232 RETURN X0;
233 END GET_ENCODED;
234
235 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
236 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
237 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
238 BEGIN
239 /* STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
240 STPROC.BIND_I(ENCODED_MESSAGE);
241 STPROC.BIND_O(APP_SHORT_NAME);
242 STPROC.BIND_O(MESSAGE_NAME);
243 STPROC.EXECUTE;
244 STPROC.RETRIEVE(2
245 ,APP_SHORT_NAME);
246 STPROC.RETRIEVE(3
247 ,MESSAGE_NAME);*/
248 null;
249 END PARSE_ENCODED;
250
251 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
252 BEGIN
253 /* STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
254 STPROC.BIND_I(ENCODED_MESSAGE);
255 STPROC.EXECUTE;*/
256 null;
257 END SET_ENCODED;
258
259 PROCEDURE RAISE_ERROR IS
260 BEGIN
261 /* STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
262 STPROC.EXECUTE;*/
263 null;
264 END RAISE_ERROR;
265
266 END XTR_XTRIRHED_XMLP_PKG;
267