1: PACKAGE BODY CE_PURGE_TRX_CODES_XML AS
2: /* $Header: ceputxcb.pls 120.1 2009/09/15 23:37:14 vnetan noship $ */
3:
4: /*========================================================================+
5: | PRIVATE PROCEDURE |
22: | Procedure to initialize global variables. |
23: +========================================================================*/
24: PROCEDURE init_variables IS
25: BEGIN
26: debug_log('>>CE_PURGE_TRX_CODES_XML.init_variables');
27: --bank
28: IF p_bank_id IS NOT NULL
29: THEN
30: SELECT SUBSTR(BNK.party_name,0,50) INTO g_bank_name
77: ELSE
78: g_process_option := NULL;
79: END IF;
80:
81: debug_log('<
83:
84: /*========================================================================+
85: | PRIVATE PROCEDURE |
92: PROCEDURE purge_trx_codes
93: IS
94: l_conc_request_id NUMBER(15);
95: BEGIN
96: debug_log('>>CE_PURGE_TRX_CODES_XML.purge_trx_codes');
97:
98: --parameter values
99: debug_log('p_process_option::'||p_process_option);
100: debug_log('p_request_id::'||p_request_id);
169: SELECT 1
170: FROM ce_trx_codes_util_gt GT
171: WHERE GT.trx_code_id = CTC.transaction_code_id);
172:
173: debug_log('<
175: END purge_trx_codes;
176:
177: /*========================================================================+
181: | DESCRIPTION |
182: | Before Report trigger for CEPUTXCD. |
183: | |
184: | CALLS |
185: | CE_PURGE_TRX_CODES_XML.init_variables |
186: | CE_PURGE_TRX_CODES_XML.purge_trx_codes |
187: +========================================================================*/
188: FUNCTION beforeReport RETURN BOOLEAN IS
189: BEGIN
182: | Before Report trigger for CEPUTXCD. |
183: | |
184: | CALLS |
185: | CE_PURGE_TRX_CODES_XML.init_variables |
186: | CE_PURGE_TRX_CODES_XML.purge_trx_codes |
187: +========================================================================*/
188: FUNCTION beforeReport RETURN BOOLEAN IS
189: BEGIN
190: debug_log('>>CE_PURGE_TRX_CODES_XML.beforeReport');
186: | CE_PURGE_TRX_CODES_XML.purge_trx_codes |
187: +========================================================================*/
188: FUNCTION beforeReport RETURN BOOLEAN IS
189: BEGIN
190: debug_log('>>CE_PURGE_TRX_CODES_XML.beforeReport');
191: cep_standard.init_security;
192:
193: init_variables;
194:
201: WHERE GT.request_id = FND_GLOBAL.conc_request_id;
202:
203: debug_log('g_delete_count::'||g_delete_count);
204:
205: debug_log('<
207: EXCEPTION
208: WHEN OTHERS THEN
209: ROLLBACK;
206: RETURN (TRUE);
207: EXCEPTION
208: WHEN OTHERS THEN
209: ROLLBACK;
210: debug_log('EXCEPTION: CE_PURGE_TRX_CODES_XML.beforeReport trigger. Error : ' || SUBSTR(SQLERRM, 1, 200));
211: RETURN (FALSE);
212: END beforeReport;
213:
214: /*========================================================================+
222: | ARGUMENTS |
223: +========================================================================*/
224: FUNCTION afterReport RETURN BOOLEAN IS
225: BEGIN
226: debug_log('>>CE_PURGE_TRX_CODES_XML.afterReport');
227: DELETE ce_trx_codes_util_gt;
228: COMMIT;
229: debug_log('<
225: BEGIN
226: debug_log('>>CE_PURGE_TRX_CODES_XML.afterReport');
227: DELETE ce_trx_codes_util_gt;
228: COMMIT;
229: debug_log('<
231: END afterReport;
232:
233: END CE_PURGE_TRX_CODES_XML;
229: debug_log('<
231: END afterReport;
232:
233: END CE_PURGE_TRX_CODES_XML;