[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRMTCPY_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRMTCPY_XMLP_PKG AS
2 /* $Header: XTRMTCPYB.pls 120.1 2007/12/28 12:57:16 npannamp noship $ */
3 FUNCTION CPARTY_NAME1FORMULA(CPARTY varchar2) RETURN VARCHAR2 IS
4 BEGIN
5 execute immediate
6 'SELECT SHORT_NAME FROM XTR_PARTIES_V WHERE PARTY_CODE =:CPARTY' INTO CPARTY_NAME
7 USING CPARTY ;
8 -- RETURN ('');
9 RETURN(CPARTY_NAME);
10 END CPARTY_NAME1FORMULA;
11 FUNCTION CPARTY_NAMEFORMULA RETURN VARCHAR2 IS
12 BEGIN
13 RETURN NULL;
14 END CPARTY_NAMEFORMULA;
15 FUNCTION COMPANY_NAME1FORMULA(COMPANY varchar2) RETURN VARCHAR2 IS
16 BEGIN
17 execute immediate
18 ' SELECT SHORT_NAME FROM XTR_PARTIES_V WHERE PARTY_CODE = :COMPANY' INTO COMPANY_NAME
19 USING COMPANY ;
20 -- RETURN ('');
21 RETURN COMPANY_NAME;
22 END COMPANY_NAME1FORMULA;
23 FUNCTION COMPANY_NAMEFORMULA RETURN VARCHAR2 IS
24 BEGIN
25 RETURN NULL;
26 END COMPANY_NAMEFORMULA;
27 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
28 BEGIN
29 SELECT
30 SUBSTR(USER
31 ,1
32 ,10)
33 INTO
34 CP_PARA
35 FROM
36 DUAL;
37 RETURN (CP_PARA);
38 END CF_SET_PARAFORMULA;
39 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
40 L_DMMY_NUM NUMBER;
41 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
42 CURSOR GET_LANGUAGE_DESC IS
43 SELECT
44 ITEM_NAME,
45 SUBSTR(TEXT
46 ,1
47 ,100) LANG_NAME
48 FROM
49 XTR_SYS_LANGUAGES_VL
50 WHERE MODULE_NAME = 'XTRMTCPY';
51 BEGIN
52 BEGIN
53 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
54 EXCEPTION
55 WHEN OTHERS THEN
56 FND_MESSAGE.SET_NAME('XTR'
57 ,'XTR_LOOKUP_ERR');
58 L_MESSAGE := FND_MESSAGE.GET;
59 RAISE_APPLICATION_ERROR(-20101
60 ,NULL);
61 END;
62 IF (P_DISPLAY_DEBUG = 'Y') THEN
63 NULL;
64 END IF;
65 FOR c IN GET_LANGUAGE_DESC LOOP
66 IF C.ITEM_NAME = 'Z1AS_PRINCIPAL' THEN
67 Z1AS_PRINCIPAL := C.LANG_NAME;
68 ELSIF C.ITEM_NAME = 'Z1CLIENT' THEN
69 Z1CLIENT := C.LANG_NAME;
70 ELSIF C.ITEM_NAME = 'Z1PRODUCT_TYPE' THEN
71 Z1PRODUCT_TYPE := C.LANG_NAME;
72 ELSIF C.ITEM_NAME = 'Z1PORTFOLIO' THEN
73 Z1PORTFOLIO := C.LANG_NAME;
74 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
75 Z1COMPANY := C.LANG_NAME;
76 ELSIF C.ITEM_NAME = 'Z1CPARTY' THEN
77 Z1CPARTY := C.LANG_NAME;
78 ELSIF C.ITEM_NAME = 'Z1CURRENCY' THEN
79 Z1CURRENCY := C.LANG_NAME;
80 ELSIF C.ITEM_NAME = 'Z1DATE_FROM' THEN
81 Z1DATE_FROM := C.LANG_NAME;
82 ELSIF C.ITEM_NAME = 'Z1DEAL_TYPE' THEN
83 Z1DEAL_TYPE := C.LANG_NAME;
84 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
85 Z1PARAMETERS := C.LANG_NAME;
86 ELSIF C.ITEM_NAME = 'Z1SUBTYPE' THEN
87 Z1SUBTYPE := C.LANG_NAME;
88 ELSIF C.ITEM_NAME = 'Z1TO' THEN
89 Z1TO := C.LANG_NAME;
90 ELSIF C.ITEM_NAME = 'Z2AMOUNT' THEN
91 Z2AMOUNT := C.LANG_NAME || '(in ' || P_FACTOR || ')';
92 ELSIF C.ITEM_NAME = 'Z2AMT_TYPE' THEN
93 Z2AMT_TYPE := C.LANG_NAME;
94 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
95 Z2CCY := C.LANG_NAME;
96 ELSIF C.ITEM_NAME = 'Z2DEAL_REF' THEN
97 Z2DEAL_REF := C.LANG_NAME;
98 ELSIF C.ITEM_NAME = 'Z2DEAL_TYPE_SUB' THEN
99 Z2DEAL_TYPE_SUB := C.LANG_NAME;
100 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
101 Z2END_OF_REPORT := C.LANG_NAME;
102 ELSIF C.ITEM_NAME = 'Z2HCE_AMOUNT' THEN
103 Z2HCE_AMOUNT := C.LANG_NAME;
104 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
105 Z2PRODUCT := C.LANG_NAME;
106 ELSIF C.ITEM_NAME = 'Z2RATE' THEN
107 Z2RATE := C.LANG_NAME;
108 ELSIF C.ITEM_NAME = 'Z2VALUE_DATE' THEN
109 Z2VALUE_DATE := C.LANG_NAME;
110 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
111 Z2PAGE := C.LANG_NAME;
112 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
113 REPORT_DATE := C.LANG_NAME;
114 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
115 Z1P_FACTOR := C.LANG_NAME;
116 END IF;
117 END LOOP;
118 RETURN (TRUE);
119 END BEFOREREPORT;
120 FUNCTION AFTERREPORT RETURN BOOLEAN IS
121 BEGIN
122 RETURN (TRUE);
123 END AFTERREPORT;
124 FUNCTION AFTERPFORM RETURN BOOLEAN IS
125 TEMP NUMBER(15) := 1000;
126 BEGIN
127 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
128 IF P_FACTOR IS NOT NULL THEN
129 SELECT
130 SUBSTRB(DESCRIPTION
131 ,1
132 ,20),
133 DECODE(SUBSTR(P_FACTOR
134 ,1
135 ,1)
136 ,'U'
137 ,1
138 ,'T'
139 ,1000
140 ,'M'
141 ,1000000
142 ,'B'
143 ,100000000)
144 INTO
145 LP_FACTOR_DESC
146 ,TEMP
147 FROM
148 FND_LOOKUPS
149 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
150 AND LOOKUP_CODE = SUBSTR(P_FACTOR
151 ,1
152 ,1);
153 ELSE
154 SELECT
155 SUBSTRB(DESCRIPTION
156 ,1
157 ,20)
158 INTO
159 LP_FACTOR_DESC
160 FROM
161 FND_LOOKUPS
162 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
163 AND LOOKUP_CODE = 'T';
164 TEMP := 1000;
165 END IF;
166 AMT_UNIT2 := TEMP;
167 P_PERIOD_FROM1 := TO_CHAR(TO_DATE(P_PERIOD_FROM,'YYYY/MM/DD HH24:MI:SS'),'DD-MON-YYYY');
168 P_PERIOD_TO1 := TO_CHAR(TO_DATE(P_PERIOD_TO ,'YYYY/MM/DD HH24:MI:SS') ,'DD-MON-YYYY');
169 CPARTY_CODE2 := P_CPARTY;
170 COMPANY_CODE2 := P_COMPANY;
171 DEAL_TYPE2 := P_DEAL_TYPE;
172 DEAL_SUBTYPE2 := P_DEAL_SUBTYPE;
173 PRODUCT_TYPE2 := P_PRODUCT_TYPE;
174 PORTFOLIO2 := P_PORTFOLIO;
175 CURRENCY2 := P_CURRENCY;
176 FROM_DATE2 := P_PERIOD_FROM1;
177 TO_DATE2 := P_PERIOD_TO1;
178 AS_PRINCIPAL2 := P_AS_PRINCIPAL;
179 CLIENT_CODE2 := P_CLIENT;
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 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
191 RETURN (TRUE);
192 END AFTERPFORM;
193 FUNCTION COMPANY_NAME_P RETURN VARCHAR2 IS
194 BEGIN
195 RETURN COMPANY_NAME;
196 END COMPANY_NAME_P;
197 FUNCTION CPARTY_NAME_P RETURN VARCHAR2 IS
198 BEGIN
199 RETURN CPARTY_NAME;
200 END CPARTY_NAME_P;
201 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
202 BEGIN
203 RETURN CP_PARA;
204 END CP_PARA_P;
205 END XTR_XTRMTCPY_XMLP_PKG;
206