[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRJLDAT_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRJLDAT_XMLP_PKG AS
2 /* $Header: XTRJLDATB.pls 120.2 2008/01/11 11:43:36 vjaganat 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(C_DATEFORMAT IN VARCHAR2) RETURN BOOLEAN IS
17 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
18 C_DATEFORMAT VARCHAR2(30);
19 L_DMMY_NUM NUMBER;
20 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
21 CURSOR GET_LANGUAGE_DESC IS
22 SELECT
23 ITEM_NAME,
24 SUBSTR(TEXT
25 ,1
26 ,100) LANG_NAME
27 FROM
28 XTR_SYS_LANGUAGES_VL
29 WHERE MODULE_NAME = 'XTRJLDAT';
30 BEGIN
31 C_DATEFORMAT :=fnd_global.nls_date_format;
32 /* P_JOURNALS_FROM := TO_CHAR(JNLS_FROM_DATE2
33 ,C_DATEFORMAT);
34 P_JOURNALS_TO := TO_CHAR(JNLS_TO_DATE2
35 ,C_DATEFORMAT);*/
36 P_JOURNALS_FROM_T := TO_CHAR(JNLS_FROM_DATE2
37 ,C_DATEFORMAT);
38 P_JOURNALS_TO_T := TO_CHAR(JNLS_TO_DATE2
39 ,C_DATEFORMAT);
40 BEGIN
41 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
42 EXCEPTION
43 WHEN OTHERS THEN
44 FND_MESSAGE.SET_NAME('XTR'
45 ,'XTR_LOOKUP_ERR');
46 L_MESSAGE := FND_MESSAGE.GET;
47 RAISE_APPLICATION_ERROR(-20101
48 ,NULL);
49 END;
50 IF (P_DISPLAY_DEBUG = 'Y') THEN
51 NULL;
52 END IF;
53 IF P_GL_INTERFACED = 'Y' THEN
54 GL_WHERE := ' transfer_to_external_gl is not null ';
55 ELSIF P_GL_INTERFACED = 'N' THEN
56 GL_WHERE := ' transfer_to_external_gl is null ';
57 END IF;
58 FOR c IN GET_LANGUAGE_DESC LOOP
59 IF C.ITEM_NAME = 'Z1AMOUNT' THEN
60 Z1AMOUNT := C.LANG_NAME;
61 ELSIF C.ITEM_NAME = 'Z1AMOUNT_TYPE' THEN
62 Z1AMOUNT_TYPE := C.LANG_NAME;
63 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
64 Z1COMPANY := C.LANG_NAME;
65 ELSIF C.ITEM_NAME = 'Z2DEAL' THEN
66 Z2DEAL := C.LANG_NAME;
67 ELSIF C.ITEM_NAME = 'Z1GL_CODE' THEN
68 Z1GL_CODE := C.LANG_NAME;
69 ELSIF C.ITEM_NAME = 'Z1JOURNALS_FROM' THEN
70 Z1JOURNALS_FROM := C.LANG_NAME;
71 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
72 Z1PARAMETERS := C.LANG_NAME;
73 ELSIF C.ITEM_NAME = 'Z1TO' THEN
74 Z1TO := C.LANG_NAME;
75 ELSIF C.ITEM_NAME = 'Z1TYPE' THEN
76 Z1TYPE := C.LANG_NAME;
77 ELSIF C.ITEM_NAME = 'Z2AND_NAME' THEN
78 Z2AND_NAME := C.LANG_NAME;
79 ELSIF C.ITEM_NAME = 'Z2CR_AMOUNT' THEN
80 Z2CR_AMOUNT := C.LANG_NAME;
81 ELSIF C.ITEM_NAME = 'Z2DR_AMOUNT' THEN
82 Z2DR_AMOUNT := C.LANG_NAME;
83 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
84 Z2END_OF_REPORT := C.LANG_NAME;
85 ELSIF C.ITEM_NAME = 'Z2DESCRIPTION' THEN
86 Z2DESCRIPTION := C.LANG_NAME;
87 ELSIF C.ITEM_NAME = 'Z2JOURNAL_DATE' THEN
88 Z2JOURNAL_DATE := C.LANG_NAME;
89 ELSIF C.ITEM_NAME = 'Z2NOTE_ALL_AMOUNTS_ARE_IN' THEN
90 Z2NOTE_ALL_AMOUNTS_ARE_IN := C.LANG_NAME;
91 ELSIF C.ITEM_NAME = 'Z2PORTFOLIO' THEN
92 Z2PORTFOLIO := C.LANG_NAME;
93 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
94 Z2PRODUCT := C.LANG_NAME;
95 ELSIF C.ITEM_NAME = 'Z2SUBTYPE' THEN
96 Z2SUBTYPE := C.LANG_NAME;
97 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
98 Z2PAGE := C.LANG_NAME;
99 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
100 REPORT_DATE := C.LANG_NAME;
101 ELSIF C.ITEM_NAME = 'Z2TRANSACTION' THEN
102 Z2TRANSACTION := C.LANG_NAME;
103 ELSIF C.ITEM_NAME = 'Z2NUMBER' THEN
104 Z2NUMBER := C.LANG_NAME;
105 ELSIF C.ITEM_NAME = 'Z2CURRENCY' THEN
106 Z2CURRENCY := C.LANG_NAME;
107 ELSIF C.ITEM_NAME = 'Z1GL_INTERFACED' THEN
108 Z1GL_INTERFACED := C.LANG_NAME;
109 ELSIF C.ITEM_NAME = 'Z2SOB_DESC' THEN
110 Z2SOB_DESC := C.LANG_NAME;
111 ELSIF C.ITEM_NAME = 'Z2TOTAL' THEN
112 Z2TOTAL := C.LANG_NAME;
113 ELSIF C.ITEM_NAME = 'Z2TR_DESC' THEN
114 Z2TR_DESC := C.LANG_NAME;
115 END IF;
116 END LOOP;
117 Z2CURRENCY1 := Z2CURRENCY || ' ' || Z1TYPE;
118 Z2DEALNO := Z2DEAL || ' ' || Z2NUMBER;
119 Z2DEALTYPE := Z2DEAL || ' ' || Z1TYPE;
120 RETURN (TRUE);
121 END BEFOREREPORT;
122
123 FUNCTION AFTERREPORT RETURN BOOLEAN IS
124 BEGIN
125 RETURN (TRUE);
126 END AFTERREPORT;
127
128 FUNCTION AFTERPFORM RETURN BOOLEAN IS
129 BEGIN
130 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
131
132 JNLS_FROM_DATE2 := TO_CHAR(TO_DATE(P_JOURNALS_FROM
133 ,'YYYY/MM/DD HH24:MI:SS')
134 ,'DD-MON-YYYY');
135 JNLS_TO_DATE2 := TO_CHAR(TO_DATE(P_JOURNALS_TO
136 ,'YYYY/MM/DD HH24:MI:SS')
137 ,'DD-MON-YYYY');
138 COMPANY_CODE2 := P_COMPANY;
139 DEAL_NUMBER2 := P_DEAL_NUMBER;
140 DEAL_TYPE2 := P_DEAL_TYPE;
141 AMOUNT_TYPE2 := P_AMOUNT_TYPE;
142 AMOUNT2 := P_AMOUNT;
143 GL_CODE2 := P_GL_ACCOUNT;
144 P_STRUCT_NUM := nvl(P_NAME,101);
145 BEGIN
146 IF P_GL_INTERFACED IS NOT NULL THEN
147 SELECT
148 MEANING
149 INTO
150 TR_GL_MEANING
151 FROM
152 FND_LOOKUPS
153 WHERE LOOKUP_TYPE = 'YES_NO'
154 AND LOOKUP_CODE = P_GL_INTERFACED;
155 END IF;
156 IF P_AMOUNT_TYPE IS NOT NULL THEN
157 SELECT
158 USER_AMOUNT_TYPE
159 INTO
160 AMOUNT_TYPE_NAME
161 FROM
162 XTR_AMOUNT_TYPES_V
163 WHERE DEAL_TYPE = P_DEAL_TYPE
164 AND AMOUNT_TYPE = P_AMOUNT_TYPE;
165 END IF;
166 IF P_DEAL_TYPE IS NOT NULL THEN
167 SELECT
168 USER_DEAL_TYPE
169 INTO
170 DEAL_TYPE_NAME
171 FROM
172 XTR_DEAL_TYPES_V
173 WHERE DEAL_TYPE = P_DEAL_TYPE;
174 END IF;
175 IF P_COMPANY IS NOT NULL THEN
176 SELECT
177 SHORT_NAME
178 INTO
179 P_SHORT_NAME
180 FROM
181 XTR_PARTY_INFO
182 WHERE PARTY_CODE = P_COMPANY;
183 END IF;
184 EXCEPTION
185 WHEN OTHERS THEN
186 NULL;
187 END;
188 BEGIN
189 SELECT
190 CP.USER_CONCURRENT_PROGRAM_NAME
191 INTO
192 REPORT_SHORT_NAME2
193 FROM
194 FND_CONCURRENT_PROGRAMS_VL CP,
195 FND_CONCURRENT_REQUESTS CR
196 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
197 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
198 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
199 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
200
201 EXCEPTION
202 WHEN OTHERS THEN
203 NULL;
204 END;
205 RETURN (TRUE);
206 END AFTERPFORM;
207
208 FUNCTION C_DATEFORMATFORMULA(C_DATEFORMAT IN VARCHAR2) RETURN CHAR IS
209 BEGIN
210 --RETURN (C_DATEFORMAT);
211 return(fnd_global.nls_date_format);
212 END C_DATEFORMATFORMULA;
213
214 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
215 BEGIN
216 RETURN CP_PARA;
217 END CP_PARA_P;
218
219 FUNCTION CP_FLEXDATA_P RETURN VARCHAR2 IS
220 BEGIN
221 RETURN CP_FLEXDATA;
222 END CP_FLEXDATA_P;
223
224 FUNCTION WHERE_FLEX_P RETURN VARCHAR2 IS
225 BEGIN
226 RETURN WHERE_FLEX;
227 END WHERE_FLEX_P;
228
229 FUNCTION GL_WHERE_P RETURN VARCHAR2 IS
230 BEGIN
231 RETURN GL_WHERE;
232 END GL_WHERE_P;
233
234 END XTR_XTRJLDAT_XMLP_PKG;
235
236