[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRLTDAP_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRLTDAP_XMLP_PKG AS
2 /* $Header: XTRLTDAPB.pls 120.2 2007/12/31 07:18:51 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 = 'XTRLTDAP';
28 L_NUM NUMBER;
29 BEGIN
30 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
31
32 BEGIN
33 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
34 EXCEPTION
35 WHEN OTHERS THEN
36 FND_MESSAGE.SET_NAME('XTR'
37 ,'XTR_LOOKUP_ERR');
38 L_MESSAGE := FND_MESSAGE.GET;
39 RAISE_APPLICATION_ERROR(-20101
40 ,NULL);
41 END;
42 IF (P_DISPLAY_DEBUG = 'Y') THEN
43 NULL;
44 END IF;
45 UPDATE
46 XTR_SETTLEMENT_SCRIPTS_V
47 SET
48 LAST_RUN_ON = TO_DATE(PERIOD_FROM_DATE
49 ,'DD/MM/YYYY')
50 ,RUN_REQUESTED_ON = NULL
51 ,ONLY_NEW_TRANSACTIONS = NULL
52 -- ,LAST_FILE_CREATED = DESNAME
53 WHERE SCRIPT_NAME in ( 'EFT' , 'SN' , 'SS' , 'SS2' )
54 AND SCRIPT_TYPE = 'REPORT';
55
56
57 UPDATE
58 XTR_DEAL_DATE_AMOUNTS_V a
59 SET
60 A.SETTLEMENT_ACTIONED = 'Y'
61 -- ,A.SETTLEMENT_ACTIONED_FILE = DESNAME
62 WHERE A.ACTUAL_SETTLEMENT_DATE = TO_DATE(PERIOD_FROM_DATE
63 ,'DD/MM/YYYY')
64 AND A.CASHFLOW_AMOUNT <> 0
65 AND A.ACCOUNT_NO like NVL(UPPER(ACCOUNT_NUMBER)
66 ,'%')
67 AND A.COMPANY_CODE like NVL(UPPER(COMP_CODE)
68 ,'%')
69 AND A.TRANS_MTS = 'Y'
70 AND A.SETTLE = 'Y'
71 AND A.CHQ_REQD is NULL
72 AND A.DIRECT_DEBIT is NULL
73 AND ( ( UPPER(PREV_ACTIONED) = 'Y' )
74 OR ( UPPER(PREV_ACTIONED) = 'N'
75 AND A.SETTLEMENT_ACTIONED is NULL ) )
76 AND A.ACCOUNT_NO IN (
77 SELECT
78 B.ACCOUNT_NUMBER
79 FROM
80 XTR_BANK_ACCOUNTS_V B,
81 XTR_SETTLEMENT_SCRIPTS_V S
82 WHERE B.ACCOUNT_NUMBER = A.ACCOUNT_NO
83 AND B.ACCOUNT_NUMBER like NVL(UPPER(ACCOUNT_NUMBER)
84 ,'%')
85 AND B.PARTY_CODE like NVL(UPPER(COMP_CODE)
86 ,'%')
87 AND B.EFT_SCRIPT_NAME in ( 'EFT' , 'SN' , 'SS' , 'SS2' )
88 AND S.SCRIPT_NAME = B.EFT_SCRIPT_NAME
89 AND NVL(S.CURRENCY_CODE
90 ,B.CURRENCY) = B.CURRENCY
91 AND S.SCRIPT_TYPE = 'REPORT' );
92 COMMIT;
93 FOR c IN GET_LANGUAGE_DESC LOOP
94 IF C.ITEM_NAME = 'Z2ACCOUNT_DETAILS_METHOD' THEN
95 Z2ACCOUNT_DETAILS_METHOD := C.LANG_NAME;
96 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
97 Z1PARAMETERS := C.LANG_NAME;
98 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
99 REPORT_DATE := C.LANG_NAME;
100 ELSIF C.ITEM_NAME = 'Z1COMPANY_CODE' THEN
101 Z1COMPANY_CODE := C.LANG_NAME;
102 ELSIF C.ITEM_NAME = 'Z1CPARTY_CODE' THEN
103 Z1CPARTY_CODE := C.LANG_NAME;
104 ELSIF C.ITEM_NAME = 'Z1CCY_CODE' THEN
105 Z1CCY_CODE := C.LANG_NAME;
106 ELSIF C.ITEM_NAME = 'Z1PERIOD_FROM_DATE' THEN
107 Z1PERIOD_FROM_DATE := C.LANG_NAME;
108 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
109 Z2PAGE := C.LANG_NAME;
110 ELSIF C.ITEM_NAME = 'Z2AMOUNT' THEN
111 Z2AMOUNT := C.LANG_NAME;
112 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
113 Z2CCY := C.LANG_NAME;
114 ELSIF C.ITEM_NAME = 'Z2SETTLEMENT_DATE' THEN
115 Z2SETTLEMENT_DATE := C.LANG_NAME;
116 ELSIF C.ITEM_NAME = 'Z2WE_CONFIRM' THEN
117 Z2WE_CONFIRM := C.LANG_NAME;
118 END IF;
119 END LOOP;
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 CURSOR PROGRAM_NAME IS
130 SELECT
131 USER_CONCURRENT_PROGRAM_NAME
132 FROM
133 FND_CONCURRENT_PROGRAMS_VL
134 WHERE CONCURRENT_PROGRAM_NAME = 'XTRLTDAP'
135 AND APPLICATION_ID = 185;
136 BEGIN
137 OPEN PROGRAM_NAME;
138 FETCH PROGRAM_NAME
139 INTO
140 REPORT_SHORT_NAME2;
141 CLOSE PROGRAM_NAME;
142
143 P_PERIOD_FROM := TO_CHAR(TO_DATE(P_PERIOD_FROM
144 ,'YYYY/MM/DD HH24:MI:SS')
145 ,'DD-MON-YYYY');
146 COMPANY_CODE2 := P_COMPANY;
147 CPARTY_CODE2 := P_CPARTY;
148 CCY_CODE2 := P_CURRENCY;
149 PERIOD_FROM_DATE2 := P_PERIOD_FROM;
150 RETURN (TRUE);
151 EXCEPTION
152 WHEN NO_DATA_FOUND THEN
153 REPORT_SHORT_NAME2 := 'Admin-Daily Settlement LettersXX';
154 RETURN (TRUE);
155 END AFTERPFORM;
156
157 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
158 BEGIN
159 RETURN (TRUE);
160 END BEFOREPFORM;
161
162 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
163 BEGIN
164 RETURN (TRUE);
165 END BETWEENPAGE;
166
167 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
168 BEGIN
169 RETURN CP_PARA;
170 END CP_PARA_P;
171
172 END XTR_XTRLTDAP_XMLP_PKG;
173