[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRDISRE_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRDISRE_XMLP_PKG AS
2 /* $Header: XTRDISREB.pls 120.1 2007/12/28 12:47:33 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 = 'XTRDISRE';
28 TEMP NUMBER(15) := 1000;
29 BEGIN
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 IF P_FACTOR IS NOT NULL THEN
44 SELECT
45 SUBSTRB(DESCRIPTION
46 ,1
47 ,20),
48 DECODE(SUBSTR(P_FACTOR
49 ,1
50 ,1)
51 ,'U'
52 ,1
53 ,'T'
54 ,1000
55 ,'M'
56 ,1000000
57 ,'B'
58 ,100000000)
59 INTO
60 LP_FACTOR_DESC
61 ,TEMP
62 FROM
63 FND_LOOKUPS
64 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
65 AND LOOKUP_CODE = SUBSTR(P_FACTOR
66 ,1
67 ,1);
68 ELSE
69 SELECT
70 SUBSTRB(DESCRIPTION
71 ,1
72 ,20)
73 INTO
74 LP_FACTOR_DESC
75 FROM
76 FND_LOOKUPS
77 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
78 AND LOOKUP_CODE = 'T';
79 TEMP := 1000;
80 END IF;
81 AMT_UNIT2 := TEMP;
82 FOR c IN GET_LANGUAGE_DESC LOOP
83 IF C.ITEM_NAME = 'Z1ACCEPTOR' THEN
84 Z1ACCEPTOR := C.LANG_NAME;
85 ELSIF C.ITEM_NAME = 'Z1AND' THEN
86 Z1AND := C.LANG_NAME;
87 ELSIF C.ITEM_NAME = 'Z1COMPANY_CODE' THEN
88 Z1COMPANY_CODE := C.LANG_NAME;
89 ELSIF C.ITEM_NAME = 'Z1CPARTY_CODE' THEN
90 Z1CPARTY_CODE := C.LANG_NAME;
91 ELSIF C.ITEM_NAME = 'Z1ISSUED_BUY_ALL' THEN
92 Z1ISSUED_BUY_ALL := C.LANG_NAME;
93 ELSIF C.ITEM_NAME = 'Z1MATURITIES_BETWEEN' THEN
94 Z1MATURITIES_BETWEEN := C.LANG_NAME;
95 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
96 Z1PARAMETERS := C.LANG_NAME;
97 ELSIF C.ITEM_NAME = 'Z1PORTFOLIO' THEN
98 Z1PORTFOLIO := C.LANG_NAME;
99 ELSIF C.ITEM_NAME = 'Z1PRODUCT_TYPE' THEN
100 Z1PRODUCT_TYPE := C.LANG_NAME;
101 ELSIF C.ITEM_NAME = 'Z2ACCEPTOR_CODE' THEN
102 Z2ACCEPTOR_CODE := C.LANG_NAME;
103 ELSIF C.ITEM_NAME = 'Z2AVAIL' THEN
104 Z2AVAIL := C.LANG_NAME;
105 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
106 Z2CCY := C.LANG_NAME;
107 ELSIF C.ITEM_NAME = 'Z2COMMENCE_DATE' THEN
108 Z2COMMENCE_DATE := C.LANG_NAME;
109 ELSIF C.ITEM_NAME = 'Z2COMPANY' THEN
110 Z2COMPANY := C.LANG_NAME;
111 ELSIF C.ITEM_NAME = 'Z2DEAL_NUMBER' THEN
112 Z2DEAL_NUMBER := C.LANG_NAME;
113 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
114 Z2END_OF_REPORT := C.LANG_NAME;
115 ELSIF C.ITEM_NAME = 'Z2FACE_VALUE_AMOUNT' THEN
116 Z2FACE_VALUE_AMOUNT := C.LANG_NAME;
117 ELSIF C.ITEM_NAME = 'Z2INTEREST_RATE' THEN
118 Z2INTEREST_RATE := C.LANG_NAME;
119 ELSIF C.ITEM_NAME = 'Z2MATURITY_DATE' THEN
120 Z2MATURITY_DATE := C.LANG_NAME;
121 ELSIF C.ITEM_NAME = 'Z2PARCEL_REMAIN' THEN
122 Z2PARCEL_REMAIN := C.LANG_NAME;
123 ELSIF C.ITEM_NAME = 'Z2RESERVED_YN' THEN
124 Z2RESERVED_YN := C.LANG_NAME;
125 ELSIF C.ITEM_NAME = 'Z2STATUS' THEN
126 Z2STATUS := C.LANG_NAME;
127 ELSIF C.ITEM_NAME = 'Z2SUBTYPE' THEN
128 Z2SUBTYPE := C.LANG_NAME;
129 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
130 Z2PAGE := C.LANG_NAME;
131 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
132 REPORT_DATE := C.LANG_NAME;
133 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
134 Z1P_FACTOR := C.LANG_NAME;
135 END IF;
136 END LOOP;
137 RETURN (TRUE);
138 END BEFOREREPORT;
139
140 FUNCTION AFTERPFORM RETURN BOOLEAN IS
141 BEGIN
142 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
143
144 /*P_DATE_FROM := TO_CHAR(TO_DATE(P_DATE_FROM
145 ,'YYYY/MM/DD HH24:MI:SS')
146 ,'DD-MON-YYYY');
147 P_DATE_TO := TO_CHAR(TO_DATE(P_DATE_TO
148 ,'YYYY/MM/DD HH24:MI:SS')
149 ,'DD-MON-YYYY');*/
150 P_DATE_FROM_T := TO_CHAR(TO_DATE(P_DATE_FROM
151 ,'YYYY/MM/DD HH24:MI:SS')
152 ,'DD-MON-YYYY');
153 P_DATE_TO_T := TO_CHAR(TO_DATE(P_DATE_TO
154 ,'YYYY/MM/DD HH24:MI:SS')
155 ,'DD-MON-YYYY');
156 COMPANY_CODE2 := P_COMPANY;
157 FROM_DATE2 := P_DATE_FROM_T;
158 TO_DATE2 := P_DATE_TO_T;
159 PORTFOLIO2 := P_PORTFOLIO;
160 CPARTY_CODE2 := P_CPARTY;
161 PRODUCT_TYPE2 := P_PRODUCT_TYPE;
162 ACCEPTOR2 := P_ACCEPTOR_CODE;
163 ISS_PURCH2 := P_ISSUED_PURCHASED_BOTH;
164 SELECT
165 MEANING
166 INTO
167 P_ISSUED_DSP
168 FROM
169 FND_LOOKUPS
170 WHERE LOOKUP_TYPE = 'XTR_MISC'
171 AND LOOKUP_CODE = ISS_PURCH2;
172 SELECT
173 MEANING
174 INTO
175 P_FACTOR_DSP
176 FROM
177 FND_LOOKUPS
178 WHERE LOOKUP_TYPE = 'XTR_MISC'
179 AND LOOKUP_CODE = P_FACTOR;
180 SELECT
181 CP.USER_CONCURRENT_PROGRAM_NAME
182 INTO
183 REPORT_SHORT_NAME2
184 FROM
185 FND_CONCURRENT_PROGRAMS_VL CP,
186 FND_CONCURRENT_REQUESTS CR
187 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
188 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
189 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
190
191 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
192
193 RETURN (TRUE);
194 END AFTERPFORM;
195
196 FUNCTION AFTERREPORT RETURN BOOLEAN IS
197 BEGIN
198 RETURN (TRUE);
199 END AFTERREPORT;
200
201 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
202 BEGIN
203 RETURN CP_PARA;
204 END CP_PARA_P;
205
206 END XTR_XTRDISRE_XMLP_PKG;
207