[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRMTDAT_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRMTDAT_XMLP_PKG AS
2 /* $Header: XTRMTDATB.pls 120.1 2007/12/28 12:57:46 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 = 'XTRMTDAT';
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 = 'Z1AS_PRINCIPAL' THEN
45 Z1AS_PRINCIPAL := C.LANG_NAME;
46 ELSIF C.ITEM_NAME = 'Z1CLIENT' THEN
47 Z1CLIENT := C.LANG_NAME;
48 ELSIF C.ITEM_NAME = 'Z1PRODUCT_TYPE' THEN
49 Z1PRODUCT_TYPE := C.LANG_NAME;
50 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
51 Z1COMPANY := C.LANG_NAME;
52 ELSIF C.ITEM_NAME = 'Z1CPARTY' THEN
53 Z1CPARTY := C.LANG_NAME;
54 ELSIF C.ITEM_NAME = 'Z1CURRENCY' THEN
55 Z1CURRENCY := C.LANG_NAME;
56 ELSIF C.ITEM_NAME = 'Z1DATE_FROM' THEN
57 Z1DATE_FROM := C.LANG_NAME;
58 ELSIF C.ITEM_NAME = 'Z1DEALTYPE' THEN
59 Z1DEALTYPE := C.LANG_NAME;
60 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
61 Z1PARAMETERS := C.LANG_NAME;
62 ELSIF C.ITEM_NAME = 'Z1PORTFOLIO' THEN
63 Z1PORTFOLIO := C.LANG_NAME;
64 ELSIF C.ITEM_NAME = 'Z1SUBTYPE' THEN
65 Z1SUBTYPE := C.LANG_NAME;
66 ELSIF C.ITEM_NAME = 'Z1TO' THEN
67 Z1TO := C.LANG_NAME;
68 ELSIF C.ITEM_NAME = 'Z2AMOUNT' THEN
69 Z2AMOUNT := C.LANG_NAME;
70 ELSIF C.ITEM_NAME = 'Z2AMOUNT_TYPE' THEN
71 Z2AMOUNT_TYPE := C.LANG_NAME;
72 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
73 Z2CCY := C.LANG_NAME;
74 ELSIF C.ITEM_NAME = 'Z2DEAL_REF' THEN
75 Z2DEAL_REF := C.LANG_NAME;
76 ELSIF C.ITEM_NAME = 'Z2DEAL_TYPE_SUB' THEN
77 Z2DEAL_TYPE_SUB := C.LANG_NAME;
78 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
79 Z2END_OF_REPORT := C.LANG_NAME;
80 ELSIF C.ITEM_NAME = 'Z2HCE_AMOUNT' THEN
81 Z2HCE_AMOUNT := C.LANG_NAME;
82 ELSIF C.ITEM_NAME = 'Z2MATURITY' THEN
83 Z2MATURITY := C.LANG_NAME;
84 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
85 Z2PRODUCT := C.LANG_NAME;
86 ELSIF C.ITEM_NAME = 'Z2RATE' THEN
87 Z2RATE := C.LANG_NAME;
88 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
89 Z2PAGE := C.LANG_NAME;
90 ELSIF C.ITEM_NAME = 'Z2STATUS_CODE' THEN
91 Z2STATUS_CODE := C.LANG_NAME;
92 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
93 REPORT_DATE := C.LANG_NAME;
94 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
95 Z1P_FACTOR := C.LANG_NAME;
96 ELSIF C.ITEM_NAME = 'Z1P_DATE_TYPE' THEN
97 Z1P_DATE_TYPE := C.LANG_NAME;
98 END IF;
99 END LOOP;
100 RETURN (TRUE);
101 END BEFOREREPORT;
102
103 FUNCTION AFTERPFORM RETURN BOOLEAN IS
104 TEMP NUMBER(15) := 1000;
105 BEGIN
106 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
107 IF P_FACTOR IS NOT NULL THEN
108 SELECT
109 SUBSTRB(DESCRIPTION
110 ,1
111 ,20),
112 DECODE(SUBSTR(P_FACTOR
113 ,1
114 ,1)
115 ,'U'
116 ,1
117 ,'T'
118 ,1000
119 ,'M'
120 ,1000000
121 ,'B'
122 ,100000000)
123 INTO
124 LP_FACTOR_DESC
125 ,TEMP
126 FROM
127 FND_LOOKUPS
128 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
129 AND LOOKUP_CODE = SUBSTR(P_FACTOR
130 ,1
131 ,1);
132 ELSE
133 SELECT
134 SUBSTRB(DESCRIPTION,1,20)
135 INTO
136 LP_FACTOR_DESC
137 FROM
138 FND_LOOKUPS
139 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
140 AND LOOKUP_CODE = 'T';
141 TEMP := 1000;
142 END IF;
143 P_PERIOD_FROM_1 := to_char(to_date(P_PERIOD_FROM,'YYYY/MM/DD HH24:MI:SS'),'DD-MON-YYYY');
144 P_PERIOD_TO_1 := to_char(to_date(P_PERIOD_TO,'YYYY/MM/DD HH24:MI:SS'),'DD-MON-YYYY');
145 AMT_UNIT2 := TEMP;
146 IF P_PERIOD_FROM_1 IS NULL AND P_PERIOD_TO_1 IS NULL THEN
147 P_PERIOD_WHERE_CLAUSE := ' a.amount_date = a.amount_date ';
148 ELSIF P_PERIOD_FROM_1 IS NULL AND P_PERIOD_TO_1 IS NOT NULL THEN
149 P_PERIOD_WHERE_CLAUSE := 'to_date(to_char(a.amount_date,' || '''' || 'DD-MON-YYYY' || '''' || '),' || '''' || 'DD-MON-YYYY' || '''' || ') <= ' || '''' || P_PERIOD_TO_1 || '''';
150 ELSIF P_PERIOD_FROM_1 IS NOT NULL AND P_PERIOD_TO_1 IS NULL THEN
151 P_PERIOD_WHERE_CLAUSE := ' to_date(to_char(a.amount_date,' || '''' || 'DD-MON-YYYY' || '''' || '),' || '''' || 'DD-MON-YYYY' || '''' || ') >= ' || '''' || P_PERIOD_FROM_1 || '''';
152 ELSIF P_PERIOD_FROM_1 IS NOT NULL AND P_PERIOD_TO_1 IS NOT NULL THEN
153 P_PERIOD_WHERE_CLAUSE := ' to_date(to_char(a.amount_date,' || '''' || 'DD-MON-YYYY' || '''' || '),' || '''' || 'DD-MON-YYYY' || '''' || ') between ' || '''' || P_PERIOD_FROM_1 || '''' || ' and ' || '''' || P_PERIOD_TO_1 || '''';
154 END IF;
155 SELECT
156 CP.USER_CONCURRENT_PROGRAM_NAME
157 INTO
158 REPORT_SHORT_NAME2
159 FROM
160 FND_CONCURRENT_PROGRAMS_VL CP,
161 FND_CONCURRENT_REQUESTS CR
162 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
163 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
164 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
165 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
166
167 RETURN (TRUE);
168 END AFTERPFORM;
169
170 FUNCTION AFTERREPORT RETURN BOOLEAN IS
171 BEGIN
172 RETURN (TRUE);
173 END AFTERREPORT;
174
175 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
176 BEGIN
177 RETURN (TRUE);
178 END BEFOREPFORM;
179
180 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
181 BEGIN
182 RETURN (TRUE);
183 END BETWEENPAGE;
184
185 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
186 BEGIN
187 RETURN CP_PARA;
188 END CP_PARA_P;
189
190 END XTR_XTRMTDAT_XMLP_PKG;
191