[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRIGINS_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRIGINS_XMLP_PKG AS
2 /* $Header: XTRIGINSB.pls 120.1 2007/12/28 12:49:31 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_DMMY_NUM NUMBER;
5 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
6 CURSOR GET_LANGUAGE_DESC IS
7 SELECT
8 ITEM_NAME,
9 SUBSTR(TEXT
10 ,1
11 ,100) LANG_NAME
12 FROM
13 XTR_SYS_LANGUAGES_VL
14 WHERE MODULE_NAME = 'XTRIGINS';
15 BEGIN
16 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
17 BEGIN
18 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
19 EXCEPTION
20 WHEN OTHERS THEN
21 FND_MESSAGE.SET_NAME('XTR'
22 ,'XTR_LOOKUP_ERR');
23 L_MESSAGE := FND_MESSAGE.GET;
24 RAISE_APPLICATION_ERROR(-20101
25 ,NULL);
26 END;
27 IF (P_DISPLAY_DEBUG = 'Y') THEN
28 NULL;
29 END IF;
30 FOR c IN GET_LANGUAGE_DESC LOOP
31 IF C.ITEM_NAME = 'Z2_FROM_DATE' THEN
32 Z2_FROM_DATE := C.LANG_NAME;
33 ELSIF C.ITEM_NAME = 'Z2_TO_DATE' THEN
34 Z2_TO_DATE := C.LANG_NAME;
35 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
36 Z1COMPANY := C.LANG_NAME;
37 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
38 Z1PARAMETERS := C.LANG_NAME;
39 ELSIF C.ITEM_NAME = 'Z2ACCOUNT' THEN
40 Z2ACCOUNT := C.LANG_NAME;
41 ELSIF C.ITEM_NAME = 'Z2BANK_ACCOUNT' THEN
42 Z2BANK_ACCOUNT := C.LANG_NAME;
43 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
44 Z2END_OF_REPORT := C.LANG_NAME;
45 ELSIF C.ITEM_NAME = 'Z2FOR' THEN
46 Z2FOR := C.LANG_NAME;
47 ELSIF C.ITEM_NAME = 'Z2INTERGROUP' THEN
48 Z2INTERGROUP := C.LANG_NAME;
49 ELSIF C.ITEM_NAME = 'Z2INTERGROUP_ACCOUNT' THEN
50 Z2INTERGROUP_ACCOUNT := C.LANG_NAME;
51 ELSIF C.ITEM_NAME = 'Z2INT_SETTLED' THEN
52 Z2INT_SETTLED := C.LANG_NAME;
53 ELSIF C.ITEM_NAME = 'Z2NUMBER' THEN
54 Z2NUMBER := C.LANG_NAME;
55 ELSIF C.ITEM_NAME = 'Z2PARTY_NAME' THEN
56 Z2PARTY_NAME := C.LANG_NAME;
57 ELSIF C.ITEM_NAME = 'Z2REF' THEN
58 Z2REF := C.LANG_NAME;
59 ELSIF C.ITEM_NAME = 'Z2SUM' THEN
60 Z2SUM := C.LANG_NAME;
61 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
62 Z2PAGE := C.LANG_NAME;
63 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
64 REPORT_DATE := C.LANG_NAME;
65 END IF;
66 END LOOP;
67 RETURN (TRUE);
68 END BEFOREREPORT;
69
70 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
71 BEGIN
72 SELECT
73 SUBSTR(USER
74 ,1
75 ,10)
76 INTO
77 CP_PARA
78 FROM
79 DUAL;
80 RETURN (CP_PARA);
81 END CF_SET_PARAFORMULA;
82
83 FUNCTION AFTERREPORT RETURN BOOLEAN IS
84 BEGIN
85 RETURN (TRUE);
86 END AFTERREPORT;
87
88 FUNCTION AFTERPFORM RETURN BOOLEAN IS
89 BEGIN
90 P_FROM_DATE_1 := TO_CHAR(TO_DATE(P_FROM_DATE
91 ,'YYYY/MM/DD HH24:MI:SS')
92 ,'DD-MON-YYYY');
93 P_TO_DATE_1 := TO_CHAR(TO_DATE(P_TO_DATE
94 ,'YYYY/MM/DD HH24:MI:SS')
95 ,'DD-MON-YYYY');
96 P_FROM := P_FROM_DATE_1;
97 P_TO := P_TO_DATE_1;
98 SELECT
99 CP.USER_CONCURRENT_PROGRAM_NAME
100 INTO
101 REPORT_SHORT_NAME2
102 FROM
103 FND_CONCURRENT_PROGRAMS_VL CP,
104 FND_CONCURRENT_REQUESTS CR
105 WHERE CR.REQUEST_ID = FND_GLOBAL.conc_request_id
106 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
107 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
108 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
109 RETURN (TRUE);
110 END AFTERPFORM;
111
112 FUNCTION BAL_CCYFORMULA(COMPANY_CODE IN VARCHAR2
113 ,ACCT_NUM IN VARCHAR2) RETURN CHAR IS
114 L_CCY VARCHAR2(15);
115 BEGIN
116 SELECT
117 DISTINCT
118 CURRENCY
119 INTO
120 L_CCY
121 FROM
122 XTR_BANK_ACCOUNTS
123 WHERE PARTY_CODE = COMPANY_CODE
124 AND ACCOUNT_NUMBER = ACCT_NUM;
125 RETURN (L_CCY);
126 EXCEPTION
127 WHEN OTHERS THEN
128 RETURN (NULL);
129 END BAL_CCYFORMULA;
130
131 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
132 BEGIN
133 RETURN CP_PARA;
134 END CP_PARA_P;
135
136 END XTR_XTRIGINS_XMLP_PKG;
137