[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRLIEXP_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRLIEXP_XMLP_PKG AS
2 /* $Header: XTRLIEXPB.pls 120.1 2007/12/28 12:52:55 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 CF_DESCRIPTIONFORMULA(QRY_LIMIT_CHECK_TYPE IN VARCHAR2
17 ,QRY_EXCEPTION_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
18 V_THE_STRING VARCHAR2(150);
19 BEGIN
20 IF QRY_LIMIT_CHECK_TYPE = 'GLOBAL' THEN
21 V_THE_STRING := 'Global';
22 ELSIF QRY_LIMIT_CHECK_TYPE = 'SOVRN' THEN
23 V_THE_STRING := 'Sovereign';
24 ELSIF QRY_LIMIT_CHECK_TYPE = 'CCY' THEN
25 V_THE_STRING := 'Currency';
26 ELSIF QRY_LIMIT_CHECK_TYPE = 'DLR_DEAL' THEN
27 V_THE_STRING := 'Dealer-Deal';
28 ELSIF QRY_LIMIT_CHECK_TYPE = 'INTRA_DY' THEN
29 V_THE_STRING := 'Intra-day';
30 ELSIF QRY_LIMIT_CHECK_TYPE = 'CPARTY' THEN
31 V_THE_STRING := 'Cparty';
32 ELSIF QRY_LIMIT_CHECK_TYPE = 'SETTLE' THEN
33 V_THE_STRING := 'Settle';
34 END IF;
35 V_THE_STRING := V_THE_STRING || ' limit ';
36 IF QRY_EXCEPTION_TYPE = 'EXCEEDED' THEN
37 V_THE_STRING := V_THE_STRING || 'was exceeded.';
38 ELSIF QRY_EXCEPTION_TYPE = 'NO_LIMIT' THEN
39 V_THE_STRING := V_THE_STRING || 'did not exist for these values.';
40 ELSIF QRY_EXCEPTION_TYPE = 'NO_AUTHO' THEN
41 V_THE_STRING := V_THE_STRING || 'existed but was not authorised.';
42 END IF;
43 RETURN V_THE_STRING;
44 END CF_DESCRIPTIONFORMULA;
45
46 FUNCTION COMPANY_CODEVALIDTRIGGER RETURN BOOLEAN IS
47 BEGIN
48 COMPANY_CODE := UPPER(COMPANY_CODE);
49 RETURN (TRUE);
50 END COMPANY_CODEVALIDTRIGGER;
51
52 FUNCTION LIMIT_CODEVALIDTRIGGER RETURN BOOLEAN IS
53 BEGIN
54 LIMIT_CODE := UPPER(LIMIT_CODE);
55 RETURN (TRUE);
56 END LIMIT_CODEVALIDTRIGGER;
57
58 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
59 L_DMMY_NUM NUMBER;
60 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
61 CURSOR CHK_LANG IS
62 SELECT
63 1
64 FROM
65 XTR_SYS_LANGUAGES_VL
66 WHERE MODULE_NAME = 'XTRLIEXP';
67 CURSOR GET_LANGUAGE_DESC IS
68 SELECT
69 ITEM_NAME,
70 SUBSTR(TEXT
71 ,1
72 ,100) LANG_NAME
73 FROM
74 XTR_SYS_LANGUAGES_VL
75 WHERE MODULE_NAME = 'XTRLIEXP';
76 BEGIN
77
78 BEGIN
79 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
80 EXCEPTION
81 WHEN OTHERS THEN
82 FND_MESSAGE.SET_NAME('XTR'
83 ,'XTR_LOOKUP_ERR');
84 L_MESSAGE := FND_MESSAGE.GET;
85 RAISE_APPLICATION_ERROR(-20101
86 ,NULL);
87 END;
88 IF (P_DISPLAY_DEBUG = 'Y') THEN
89 NULL;
90 END IF;
91 FOR c IN GET_LANGUAGE_DESC LOOP
92 IF C.ITEM_NAME = 'Z1COMPANY_CODE' THEN
93 Z1COMPANY_CODE := C.LANG_NAME;
94 ELSIF C.ITEM_NAME = 'Z1FROM_DATE' THEN
95 Z1FROM_DATE := C.LANG_NAME;
96 ELSIF C.ITEM_NAME = 'Z1LIMIT_CODE' THEN
97 Z1LIMIT_CODE := C.LANG_NAME;
98 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
99 Z1PARAMETERS := C.LANG_NAME;
100 ELSIF C.ITEM_NAME = 'Z2AMOUNT_DATE' THEN
101 Z2AMOUNT_DATE := C.LANG_NAME;
102 ELSIF C.ITEM_NAME = 'Z2DEALER_CODE' THEN
103 Z2DEALER_CODE := C.LANG_NAME;
104 ELSIF C.ITEM_NAME = 'Z2DEAL_NUMBER' THEN
105 Z2DEAL_NUMBER := C.LANG_NAME;
106 ELSIF C.ITEM_NAME = 'Z2DISCRIPTION_OF_EXCEPTION' THEN
107 Z2DISCRIPTION_OF_EXCEPTION := C.LANG_NAME;
108 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
109 Z2END_OF_REPORT := C.LANG_NAME;
110 ELSIF C.ITEM_NAME = 'Z2EXCEEDED_BY' THEN
111 Z2EXCEEDED_BY := C.LANG_NAME;
112 ELSIF C.ITEM_NAME = 'Z2EXCEEDED_ON_DATE' THEN
113 Z2EXCEEDED_ON_DATE := C.LANG_NAME;
114 ELSIF C.ITEM_NAME = 'Z2HCE_AMOUNT' THEN
115 Z2HCE_AMOUNT := C.LANG_NAME;
116 ELSIF C.ITEM_NAME = 'Z2LIMIT_AMOUNT' THEN
117 Z2LIMIT_AMOUNT := C.LANG_NAME;
118 ELSIF C.ITEM_NAME = 'Z2LIMIT_PARTY' THEN
119 Z2LIMIT_PARTY := C.LANG_NAME;
120 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
121 Z2PAGE := C.LANG_NAME;
122 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
123 REPORT_DATE := C.LANG_NAME;
124 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
125 Z1P_FACTOR := C.LANG_NAME;
126 END IF;
127 END LOOP;
128 RETURN (TRUE);
129 END BEFOREREPORT;
130
131 FUNCTION AFTERREPORT RETURN BOOLEAN IS
132 BEGIN
133 RETURN (TRUE);
134 END AFTERREPORT;
135
136 FUNCTION AFTERPFORM RETURN BOOLEAN IS
137 TEMP NUMBER(15) := 1000;
138 BEGIN
139 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
140 P_FROM_DATE1 := to_char(P_FROM_DATE,'DD-MON-YY');
141 IF P_FACTOR IS NOT NULL THEN
142 SELECT
143 SUBSTRB(DESCRIPTION
144 ,1
145 ,20),
146 DECODE(SUBSTR(P_FACTOR
147 ,1
148 ,1)
149 ,'U'
150 ,1
151 ,'T'
152 ,1000
153 ,'M'
154 ,1000000
155 ,'B'
156 ,100000000)
157 INTO
158 LP_FACTOR_DESC
159 ,TEMP
160 FROM
161 FND_LOOKUPS
162 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
163 AND LOOKUP_CODE = SUBSTR(P_FACTOR
164 ,1
165 ,1);
166 ELSE
167 SELECT
168 SUBSTRB(DESCRIPTION
169 ,1
170 ,20)
171 INTO
172 LP_FACTOR_DESC
173 FROM
174 FND_LOOKUPS
175 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
176 AND LOOKUP_CODE = 'T';
177 TEMP := 1000;
178 END IF;
179 AMT_UNIT2 := TEMP;
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
194 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
195 BEGIN
196 RETURN CP_PARA;
197 END CP_PARA_P;
198
199 END XTR_XTRLIEXP_XMLP_PKG;
200