APPS.XTR_EFT_SCRIPT_P dependencies on XTR_RISK_DEBUG_PKG

Line 55: IF xtr_risk_debug_pkg.g_Debug THEN

51: begin
52: -- get request id
53: fnd_profile.get('CONC_REQUEST_ID', v_request_id);
54:
55: IF xtr_risk_debug_pkg.g_Debug THEN
56: XTR_RISK_DEBUG_PKG.dpush('CALL_SCRIPTS: ' || 'Call scripts');
57: END IF;
58: sett := l_prev_run;
59: -- cep_standard.enable_debug;

Line 56: XTR_RISK_DEBUG_PKG.dpush('CALL_SCRIPTS: ' || 'Call scripts');

52: -- get request id
53: fnd_profile.get('CONC_REQUEST_ID', v_request_id);
54:
55: IF xtr_risk_debug_pkg.g_Debug THEN
56: XTR_RISK_DEBUG_PKG.dpush('CALL_SCRIPTS: ' || 'Call scripts');
57: END IF;
58: sett := l_prev_run;
59: -- cep_standard.enable_debug;
60: IF xtr_risk_debug_pkg.g_Debug THEN

Line 60: IF xtr_risk_debug_pkg.g_Debug THEN

56: XTR_RISK_DEBUG_PKG.dpush('CALL_SCRIPTS: ' || 'Call scripts');
57: END IF;
58: sett := l_prev_run;
59: -- cep_standard.enable_debug;
60: IF xtr_risk_debug_pkg.g_Debug THEN
61: XTR_RISK_DEBUG_PKG.dlog('>XTR_EFT_SCRIPT_P.call_scripts');
62: END IF;
63: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
64:

Line 61: XTR_RISK_DEBUG_PKG.dlog('>XTR_EFT_SCRIPT_P.call_scripts');

57: END IF;
58: sett := l_prev_run;
59: -- cep_standard.enable_debug;
60: IF xtr_risk_debug_pkg.g_Debug THEN
61: XTR_RISK_DEBUG_PKG.dlog('>XTR_EFT_SCRIPT_P.call_scripts');
62: END IF;
63: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
64:
65: IF xtr_risk_debug_pkg.g_Debug THEN

Line 65: IF xtr_risk_debug_pkg.g_Debug THEN

61: XTR_RISK_DEBUG_PKG.dlog('>XTR_EFT_SCRIPT_P.call_scripts');
62: END IF;
63: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
64:
65: IF xtr_risk_debug_pkg.g_Debug THEN
66: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>OPEN SEL_SCRIPTS');
67: END IF;
68: open SEL_SCRIPTS;
69: LOOP

Line 66: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>OPEN SEL_SCRIPTS');

62: END IF;
63: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
64:
65: IF xtr_risk_debug_pkg.g_Debug THEN
66: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>OPEN SEL_SCRIPTS');
67: END IF;
68: open SEL_SCRIPTS;
69: LOOP
70: IF xtr_risk_debug_pkg.g_Debug THEN

Line 70: IF xtr_risk_debug_pkg.g_Debug THEN

66: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>OPEN SEL_SCRIPTS');
67: END IF;
68: open SEL_SCRIPTS;
69: LOOP
70: IF xtr_risk_debug_pkg.g_Debug THEN
71: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> LOOP');
72: END IF;
73: fetch SEL_SCRIPTS INTO l_eft_script, l_package, l_path, l_transmission_code; --, sett; RV
74: IF xtr_risk_debug_pkg.g_Debug THEN

Line 71: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> LOOP');

67: END IF;
68: open SEL_SCRIPTS;
69: LOOP
70: IF xtr_risk_debug_pkg.g_Debug THEN
71: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> LOOP');
72: END IF;
73: fetch SEL_SCRIPTS INTO l_eft_script, l_package, l_path, l_transmission_code; --, sett; RV
74: IF xtr_risk_debug_pkg.g_Debug THEN
75: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> l_eft_script = '||l_eft_script||

Line 74: IF xtr_risk_debug_pkg.g_Debug THEN

70: IF xtr_risk_debug_pkg.g_Debug THEN
71: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> LOOP');
72: END IF;
73: fetch SEL_SCRIPTS INTO l_eft_script, l_package, l_path, l_transmission_code; --, sett; RV
74: IF xtr_risk_debug_pkg.g_Debug THEN
75: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> l_eft_script = '||l_eft_script||
76: ' l_package = '||l_package||
77: ' l_path = '||l_path ||
78: ' sett = '||sett);

Line 75: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> l_eft_script = '||l_eft_script||

71: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> LOOP');
72: END IF;
73: fetch SEL_SCRIPTS INTO l_eft_script, l_package, l_path, l_transmission_code; --, sett; RV
74: IF xtr_risk_debug_pkg.g_Debug THEN
75: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> l_eft_script = '||l_eft_script||
76: ' l_package = '||l_package||
77: ' l_path = '||l_path ||
78: ' sett = '||sett);
79: END IF;

Line 86: IF xtr_risk_debug_pkg.g_Debug THEN

82: -- Call the packages based on package name
83: -- Get eft file number
84: open UNIQUE_FILE_NOS;
85: fetch UNIQUE_FILE_NOS INTO l_unique_file_nos;
86: IF xtr_risk_debug_pkg.g_Debug THEN
87: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> lunique_file_nos = ' ||l_unique_file_nos);
88: END IF;
89: close UNIQUE_FILE_NOS;
90: --

Line 87: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> lunique_file_nos = ' ||l_unique_file_nos);

83: -- Get eft file number
84: open UNIQUE_FILE_NOS;
85: fetch UNIQUE_FILE_NOS INTO l_unique_file_nos;
86: IF xtr_risk_debug_pkg.g_Debug THEN
87: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> lunique_file_nos = ' ||l_unique_file_nos);
88: END IF;
89: close UNIQUE_FILE_NOS;
90: --
91:

Line 106: IF xtr_risk_debug_pkg.g_Debug THEN

102: into l_file_name
103: where request_id = v_request_id;
104: */
105:
106: IF xtr_risk_debug_pkg.g_Debug THEN
107: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> l_file_name = ' ||l_file_name);
108: END IF;
109: --
110: -- ***** As we add more scripts they need to be added in the if clause below *****

Line 107: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> l_file_name = ' ||l_file_name);

103: where request_id = v_request_id;
104: */
105:
106: IF xtr_risk_debug_pkg.g_Debug THEN
107: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>> l_file_name = ' ||l_file_name);
108: END IF;
109: --
110: -- ***** As we add more scripts they need to be added in the if clause below *****
111: if upper(l_package) = 'BNZ_EFT' then

Line 112: IF xtr_risk_debug_pkg.g_Debug THEN

108: END IF;
109: --
110: -- ***** As we add more scripts they need to be added in the if clause below *****
111: if upper(l_package) = 'BNZ_EFT' then
112: IF xtr_risk_debug_pkg.g_Debug THEN
113: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> Call XTR_EFT_SCRIPT_P.bnz_eft ...');
114: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> l_company = '|| l_company||
115: ' l_account = '||l_account||
116: ' l_currency = '|| l_currency||

Line 113: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> Call XTR_EFT_SCRIPT_P.bnz_eft ...');

109: --
110: -- ***** As we add more scripts they need to be added in the if clause below *****
111: if upper(l_package) = 'BNZ_EFT' then
112: IF xtr_risk_debug_pkg.g_Debug THEN
113: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> Call XTR_EFT_SCRIPT_P.bnz_eft ...');
114: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> l_company = '|| l_company||
115: ' l_account = '||l_account||
116: ' l_currency = '|| l_currency||
117: ' l_eft_script = '||l_eft_script||

Line 114: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> l_company = '|| l_company||

110: -- ***** As we add more scripts they need to be added in the if clause below *****
111: if upper(l_package) = 'BNZ_EFT' then
112: IF xtr_risk_debug_pkg.g_Debug THEN
113: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> Call XTR_EFT_SCRIPT_P.bnz_eft ...');
114: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '> l_company = '|| l_company||
115: ' l_account = '||l_account||
116: ' l_currency = '|| l_currency||
117: ' l_eft_script = '||l_eft_script||
118: ' settlement_date = '||settlement_date||

Line 132: IF xtr_risk_debug_pkg.g_Debug THEN

128: elsif upper(l_package) = 'X12_EFT' then
129: XTR_EFT_SCRIPT_P.X12_EFT(l_company, l_cparty,l_account, l_currency,l_eft_script,paydate,l_prev_run, l_file_name, retcode);
130:
131: else
132: IF xtr_risk_debug_pkg.g_Debug THEN
133: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);
134: end if;
135: EXECUTE IMMEDIATE v_procedure_call
136: USING l_company, l_cparty, l_account, l_currency, l_eft_script, paydate, l_prev_run, l_file_name, retcode;

Line 133: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);

129: XTR_EFT_SCRIPT_P.X12_EFT(l_company, l_cparty,l_account, l_currency,l_eft_script,paydate,l_prev_run, l_file_name, retcode);
130:
131: else
132: IF xtr_risk_debug_pkg.g_Debug THEN
133: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);
134: end if;
135: EXECUTE IMMEDIATE v_procedure_call
136: USING l_company, l_cparty, l_account, l_currency, l_eft_script, paydate, l_prev_run, l_file_name, retcode;
137: IF xtr_risk_debug_pkg.g_Debug THEN

Line 137: IF xtr_risk_debug_pkg.g_Debug THEN

133: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);
134: end if;
135: EXECUTE IMMEDIATE v_procedure_call
136: USING l_company, l_cparty, l_account, l_currency, l_eft_script, paydate, l_prev_run, l_file_name, retcode;
137: IF xtr_risk_debug_pkg.g_Debug THEN
138: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);
139: end if;
140: end if;
141: END LOOP;

Line 138: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);

134: end if;
135: EXECUTE IMMEDIATE v_procedure_call
136: USING l_company, l_cparty, l_account, l_currency, l_eft_script, paydate, l_prev_run, l_file_name, retcode;
137: IF xtr_risk_debug_pkg.g_Debug THEN
138: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);
139: end if;
140: end if;
141: END LOOP;
142: IF xtr_risk_debug_pkg.g_Debug THEN

Line 142: IF xtr_risk_debug_pkg.g_Debug THEN

138: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: procedure call ' || v_procedure_call);
139: end if;
140: end if;
141: END LOOP;
142: IF xtr_risk_debug_pkg.g_Debug THEN
143: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>out of Loop');
144: END IF;
145: close SEL_SCRIPTS;
146:

Line 143: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>out of Loop');

139: end if;
140: end if;
141: END LOOP;
142: IF xtr_risk_debug_pkg.g_Debug THEN
143: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>out of Loop');
144: END IF;
145: close SEL_SCRIPTS;
146:
147: IF xtr_risk_debug_pkg.g_Debug THEN

Line 147: IF xtr_risk_debug_pkg.g_Debug THEN

143: XTR_RISK_DEBUG_PKG.dlog('CALL_SCRIPTS: ' || '>out of Loop');
144: END IF;
145: close SEL_SCRIPTS;
146:
147: IF xtr_risk_debug_pkg.g_Debug THEN
148: XTR_RISK_DEBUG_PKG.dpop('CALL_SCRIPTS: ' || 'Call scripts');
149: END IF;
150:
151: update XTR_SETTLEMENT_SCRIPTS

Line 148: XTR_RISK_DEBUG_PKG.dpop('CALL_SCRIPTS: ' || 'Call scripts');

144: END IF;
145: close SEL_SCRIPTS;
146:
147: IF xtr_risk_debug_pkg.g_Debug THEN
148: XTR_RISK_DEBUG_PKG.dpop('CALL_SCRIPTS: ' || 'Call scripts');
149: END IF;
150:
151: update XTR_SETTLEMENT_SCRIPTS
152: set run_requested_on = trunc(sysdate),

Line 299: IF xtr_risk_debug_pkg.g_Debug THEN

295: l_date DATE := sysdate;
296: --
297: begin
298: --
299: IF xtr_risk_debug_pkg.g_Debug THEN
300: XTR_RISK_DEBUG_PKG.dlog('>XTR_SETTLEMENT.bnz_eft');
301: END IF;
302: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
303: IF xtr_risk_debug_pkg.g_Debug THEN

Line 300: XTR_RISK_DEBUG_PKG.dlog('>XTR_SETTLEMENT.bnz_eft');

296: --
297: begin
298: --
299: IF xtr_risk_debug_pkg.g_Debug THEN
300: XTR_RISK_DEBUG_PKG.dlog('>XTR_SETTLEMENT.bnz_eft');
301: END IF;
302: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
303: IF xtr_risk_debug_pkg.g_Debug THEN
304: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>settlement_date = '||settlement_date);

Line 303: IF xtr_risk_debug_pkg.g_Debug THEN

299: IF xtr_risk_debug_pkg.g_Debug THEN
300: XTR_RISK_DEBUG_PKG.dlog('>XTR_SETTLEMENT.bnz_eft');
301: END IF;
302: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
303: IF xtr_risk_debug_pkg.g_Debug THEN
304: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>settlement_date = '||settlement_date);
305: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN Header_Rec');
306: END IF;
307: open HEADER_REC;

Line 304: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>settlement_date = '||settlement_date);

300: XTR_RISK_DEBUG_PKG.dlog('>XTR_SETTLEMENT.bnz_eft');
301: END IF;
302: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
303: IF xtr_risk_debug_pkg.g_Debug THEN
304: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>settlement_date = '||settlement_date);
305: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN Header_Rec');
306: END IF;
307: open HEADER_REC;
308: fetch HEADER_REC INTO comp_acct;

Line 305: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN Header_Rec');

301: END IF;
302: settlement_date := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
303: IF xtr_risk_debug_pkg.g_Debug THEN
304: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>settlement_date = '||settlement_date);
305: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN Header_Rec');
306: END IF;
307: open HEADER_REC;
308: fetch HEADER_REC INTO comp_acct;
309: IF xtr_risk_debug_pkg.g_Debug THEN

Line 309: IF xtr_risk_debug_pkg.g_Debug THEN

305: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN Header_Rec');
306: END IF;
307: open HEADER_REC;
308: fetch HEADER_REC INTO comp_acct;
309: IF xtr_risk_debug_pkg.g_Debug THEN
310: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> comp_acct = '|| comp_acct);
311: END IF;
312: while HEADER_REC%FOUND LOOP
313: comp_acct_ins := substr(comp_acct,1,2)||substr(comp_acct,4,4)||substr(comp_acct,9,7)||

Line 310: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> comp_acct = '|| comp_acct);

306: END IF;
307: open HEADER_REC;
308: fetch HEADER_REC INTO comp_acct;
309: IF xtr_risk_debug_pkg.g_Debug THEN
310: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> comp_acct = '|| comp_acct);
311: END IF;
312: while HEADER_REC%FOUND LOOP
313: comp_acct_ins := substr(comp_acct,1,2)||substr(comp_acct,4,4)||substr(comp_acct,9,7)||
314: substr(comp_acct,17);

Line 315: IF xtr_risk_debug_pkg.g_Debug THEN

311: END IF;
312: while HEADER_REC%FOUND LOOP
313: comp_acct_ins := substr(comp_acct,1,2)||substr(comp_acct,4,4)||substr(comp_acct,9,7)||
314: substr(comp_acct,17);
315: IF xtr_risk_debug_pkg.g_Debug THEN
316: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> OPEN DEBIT_REC');
317: END IF;
318: open DEBIT_REC;
319: IF xtr_risk_debug_pkg.g_Debug THEN

Line 316: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> OPEN DEBIT_REC');

312: while HEADER_REC%FOUND LOOP
313: comp_acct_ins := substr(comp_acct,1,2)||substr(comp_acct,4,4)||substr(comp_acct,9,7)||
314: substr(comp_acct,17);
315: IF xtr_risk_debug_pkg.g_Debug THEN
316: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> OPEN DEBIT_REC');
317: END IF;
318: open DEBIT_REC;
319: IF xtr_risk_debug_pkg.g_Debug THEN
320: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Fetch Debit_rec ...');

Line 319: IF xtr_risk_debug_pkg.g_Debug THEN

315: IF xtr_risk_debug_pkg.g_Debug THEN
316: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> OPEN DEBIT_REC');
317: END IF;
318: open DEBIT_REC;
319: IF xtr_risk_debug_pkg.g_Debug THEN
320: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Fetch Debit_rec ...');
321: END IF;
322: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
323:

Line 320: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Fetch Debit_rec ...');

316: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> OPEN DEBIT_REC');
317: END IF;
318: open DEBIT_REC;
319: IF xtr_risk_debug_pkg.g_Debug THEN
320: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Fetch Debit_rec ...');
321: END IF;
322: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
323:
324: if DEBIT_REC%FOUND then

Line 325: IF xtr_risk_debug_pkg.g_Debug THEN

321: END IF;
322: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
323:
324: if DEBIT_REC%FOUND then
325: IF xtr_risk_debug_pkg.g_Debug THEN
326: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> IF Debit_rec Found');
327: END IF;
328:
329: deb_header := '1'||spce||spce||spce||spce||comp_acct_ins||spce||'6'||spce||

Line 326: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> IF Debit_rec Found');

322: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
323:
324: if DEBIT_REC%FOUND then
325: IF xtr_risk_debug_pkg.g_Debug THEN
326: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> IF Debit_rec Found');
327: END IF;
328:
329: deb_header := '1'||spce||spce||spce||spce||comp_acct_ins||spce||'6'||spce||
330: settlement_date||spce|| sysdate||spce;

Line 331: IF xtr_risk_debug_pkg.g_Debug THEN

327: END IF;
328:
329: deb_header := '1'||spce||spce||spce||spce||comp_acct_ins||spce||'6'||spce||
330: settlement_date||spce|| sysdate||spce;
331: IF xtr_risk_debug_pkg.g_Debug THEN
332: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>deb_header = '|| deb_header);
333: END IF;
334:
335: l_date := l_date + 0.000011;

Line 332: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>deb_header = '|| deb_header);

328:
329: deb_header := '1'||spce||spce||spce||spce||comp_acct_ins||spce||'6'||spce||
330: settlement_date||spce|| sysdate||spce;
331: IF xtr_risk_debug_pkg.g_Debug THEN
332: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>deb_header = '|| deb_header);
333: END IF;
334:
335: l_date := l_date + 0.000011;
336: IF xtr_risk_debug_pkg.g_Debug THEN

Line 336: IF xtr_risk_debug_pkg.g_Debug THEN

332: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>deb_header = '|| deb_header);
333: END IF;
334:
335: l_date := l_date + 0.000011;
336: IF xtr_risk_debug_pkg.g_Debug THEN
337: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = '|| l_date);
338: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Insert into XTR_MTS_RECORDS');
339: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
340: ' cre_header = '||cre_header||

Line 337: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = '|| l_date);

333: END IF;
334:
335: l_date := l_date + 0.000011;
336: IF xtr_risk_debug_pkg.g_Debug THEN
337: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = '|| l_date);
338: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Insert into XTR_MTS_RECORDS');
339: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
340: ' cre_header = '||cre_header||
341: ' l_date = '||l_date||

Line 338: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Insert into XTR_MTS_RECORDS');

334:
335: l_date := l_date + 0.000011;
336: IF xtr_risk_debug_pkg.g_Debug THEN
337: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = '|| l_date);
338: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Insert into XTR_MTS_RECORDS');
339: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
340: ' cre_header = '||cre_header||
341: ' l_date = '||l_date||
342: ' l_file_name = '|| l_file_name||

Line 339: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||

335: l_date := l_date + 0.000011;
336: IF xtr_risk_debug_pkg.g_Debug THEN
337: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = '|| l_date);
338: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Insert into XTR_MTS_RECORDS');
339: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
340: ' cre_header = '||cre_header||
341: ' l_date = '||l_date||
342: ' l_file_name = '|| l_file_name||
343: ' settlement_date = '|| settlement_date);

Line 352: IF xtr_risk_debug_pkg.g_Debug THEN

348: values(l_eft_script_name,deb_header,l_date,l_file_name,
349: --2305918 to_date(settlement_date,'DD-MON-RR'));
350: trunc(settlement_date));
351:
352: IF xtr_risk_debug_pkg.g_Debug THEN
353: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> End of insertion');
354: END IF;
355: end if;
356: while DEBIT_REC%FOUND LOOP

Line 353: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> End of insertion');

349: --2305918 to_date(settlement_date,'DD-MON-RR'));
350: trunc(settlement_date));
351:
352: IF xtr_risk_debug_pkg.g_Debug THEN
353: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> End of insertion');
354: END IF;
355: end if;
356: while DEBIT_REC%FOUND LOOP
357: IF xtr_risk_debug_pkg.g_Debug THEN

Line 357: IF xtr_risk_debug_pkg.g_Debug THEN

353: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> End of insertion');
354: END IF;
355: end if;
356: while DEBIT_REC%FOUND LOOP
357: IF xtr_risk_debug_pkg.g_Debug THEN
358: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>> while DEBIT_REC Found ');
359: END IF;
360: deb_tot_amt := deb_tot_amt + deb_amt;
361: deb_count := deb_count + 1;

Line 358: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>> while DEBIT_REC Found ');

354: END IF;
355: end if;
356: while DEBIT_REC%FOUND LOOP
357: IF xtr_risk_debug_pkg.g_Debug THEN
358: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>> while DEBIT_REC Found ');
359: END IF;
360: deb_tot_amt := deb_tot_amt + deb_amt;
361: deb_count := deb_count + 1;
362: IF xtr_risk_debug_pkg.g_Debug THEN

Line 362: IF xtr_risk_debug_pkg.g_Debug THEN

358: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>> while DEBIT_REC Found ');
359: END IF;
360: deb_tot_amt := deb_tot_amt + deb_amt;
361: deb_count := deb_count + 1;
362: IF xtr_risk_debug_pkg.g_Debug THEN
363: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || 'deb_acct = '||deb_acct);
364: END IF;
365: curr := 1;
366:

Line 363: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || 'deb_acct = '||deb_acct);

359: END IF;
360: deb_tot_amt := deb_tot_amt + deb_amt;
361: deb_count := deb_count + 1;
362: IF xtr_risk_debug_pkg.g_Debug THEN
363: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || 'deb_acct = '||deb_acct);
364: END IF;
365: curr := 1;
366:
367: --RV

Line 377: IF xtr_risk_debug_pkg.g_Debug THEN

373: End;
374:
375: curr := 2;
376: l_date := l_date + 0.000011;
377: IF xtr_risk_debug_pkg.g_Debug THEN
378: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Insert into XTR_MTS_RECORDS');
379: END IF;
380: insert into XTR_MTS_RECORDS(script_name,transfer_details,created_on_date,
381: file_name,settlement_date)

Line 378: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Insert into XTR_MTS_RECORDS');

374:
375: curr := 2;
376: l_date := l_date + 0.000011;
377: IF xtr_risk_debug_pkg.g_Debug THEN
378: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Insert into XTR_MTS_RECORDS');
379: END IF;
380: insert into XTR_MTS_RECORDS(script_name,transfer_details,created_on_date,
381: file_name,settlement_date)
382: values(l_eft_script_name,deb_rec,l_date,l_file_name,

Line 385: IF xtr_risk_debug_pkg.g_Debug THEN

381: file_name,settlement_date)
382: values(l_eft_script_name,deb_rec,l_date,l_file_name,
383: --RV 2305918 to_date(settlement_date,'DD-MON-RR'));
384: trunc(settlement_date));
385: IF xtr_risk_debug_pkg.g_Debug THEN
386: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Fetch...');
387: END IF;
388: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
389: END LOOP;

Line 386: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Fetch...');

382: values(l_eft_script_name,deb_rec,l_date,l_file_name,
383: --RV 2305918 to_date(settlement_date,'DD-MON-RR'));
384: trunc(settlement_date));
385: IF xtr_risk_debug_pkg.g_Debug THEN
386: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Fetch...');
387: END IF;
388: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
389: END LOOP;
390: IF xtr_risk_debug_pkg.g_Debug THEN

Line 390: IF xtr_risk_debug_pkg.g_Debug THEN

386: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Fetch...');
387: END IF;
388: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
389: END LOOP;
390: IF xtr_risk_debug_pkg.g_Debug THEN
391: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Close Debit_Rec');
392: END IF;
393: close DEBIT_REC;
394: if deb_count > 0 then

Line 391: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Close Debit_Rec');

387: END IF;
388: fetch DEBIT_REC into deb_amt,deb_acct,deb_rec;
389: END LOOP;
390: IF xtr_risk_debug_pkg.g_Debug THEN
391: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>>Close Debit_Rec');
392: END IF;
393: close DEBIT_REC;
394: if deb_count > 0 then
395: if length(d_hash) < 11 then

Line 414: IF xtr_risk_debug_pkg.g_Debug THEN

410: trunc(settlement_date));
411:
412: end if;
413: deb_count := 0;
414: IF xtr_risk_debug_pkg.g_Debug THEN
415: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Open CREDIT_REC');
416: END IF;
417: open CREDIT_REC;
418: IF xtr_risk_debug_pkg.g_Debug THEN

Line 415: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Open CREDIT_REC');

411:
412: end if;
413: deb_count := 0;
414: IF xtr_risk_debug_pkg.g_Debug THEN
415: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Open CREDIT_REC');
416: END IF;
417: open CREDIT_REC;
418: IF xtr_risk_debug_pkg.g_Debug THEN
419: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Fetch CREDIT_REC');

Line 418: IF xtr_risk_debug_pkg.g_Debug THEN

414: IF xtr_risk_debug_pkg.g_Debug THEN
415: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Open CREDIT_REC');
416: END IF;
417: open CREDIT_REC;
418: IF xtr_risk_debug_pkg.g_Debug THEN
419: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Fetch CREDIT_REC');
420: END IF;
421: fetch CREDIT_REC into cre_amt,cre_acct,cre_rec;
422: if CREDIT_REC%FOUND then

Line 419: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Fetch CREDIT_REC');

415: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Open CREDIT_REC');
416: END IF;
417: open CREDIT_REC;
418: IF xtr_risk_debug_pkg.g_Debug THEN
419: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>Fetch CREDIT_REC');
420: END IF;
421: fetch CREDIT_REC into cre_amt,cre_acct,cre_rec;
422: if CREDIT_REC%FOUND then
423: cre_header := '1'||spce||spce||spce||spce||comp_acct_ins||spce||'7'||spce||

Line 427: IF xtr_risk_debug_pkg.g_Debug THEN

423: cre_header := '1'||spce||spce||spce||spce||comp_acct_ins||spce||'7'||spce||
424: settlement_date||spce||sysdate||spce;
425:
426: l_date := l_date + 0.000011;
427: IF xtr_risk_debug_pkg.g_Debug THEN
428: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = ' || l_date);
429: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Insert into XTR_MTS_RECORDS');
430: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
431: ' cre_header = '||cre_header||

Line 428: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = ' || l_date);

424: settlement_date||spce||sysdate||spce;
425:
426: l_date := l_date + 0.000011;
427: IF xtr_risk_debug_pkg.g_Debug THEN
428: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = ' || l_date);
429: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Insert into XTR_MTS_RECORDS');
430: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
431: ' cre_header = '||cre_header||
432: ' l_date = '||l_date||

Line 429: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Insert into XTR_MTS_RECORDS');

425:
426: l_date := l_date + 0.000011;
427: IF xtr_risk_debug_pkg.g_Debug THEN
428: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = ' || l_date);
429: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Insert into XTR_MTS_RECORDS');
430: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
431: ' cre_header = '||cre_header||
432: ' l_date = '||l_date||
433: ' l_file_name = '|| l_file_name||

Line 430: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||

426: l_date := l_date + 0.000011;
427: IF xtr_risk_debug_pkg.g_Debug THEN
428: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> l_date = ' || l_date);
429: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> Insert into XTR_MTS_RECORDS');
430: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>l_eft_Script_name = '|| l_eft_script_name||
431: ' cre_header = '||cre_header||
432: ' l_date = '||l_date||
433: ' l_file_name = '|| l_file_name||
434: ' settlement_date = '|| settlement_date);

Line 441: IF xtr_risk_debug_pkg.g_Debug THEN

437: file_name,settlement_date)
438: values(l_eft_script_name,cre_header,l_date,l_file_name,
439: -- RV 2305918 to_date(settlement_date,'DD-MON-RR'));
440: trunc(settlement_date));
441: IF xtr_risk_debug_pkg.g_Debug THEN
442: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> End of Insert');
443: END IF;
444: end if;
445:

Line 442: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> End of Insert');

438: values(l_eft_script_name,cre_header,l_date,l_file_name,
439: -- RV 2305918 to_date(settlement_date,'DD-MON-RR'));
440: trunc(settlement_date));
441: IF xtr_risk_debug_pkg.g_Debug THEN
442: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> End of Insert');
443: END IF;
444: end if;
445:
446: --

Line 492: IF xtr_risk_debug_pkg.g_Debug THEN

488:
489: end if;
490: cre_count := 0;
491: --
492: IF xtr_risk_debug_pkg.g_Debug THEN
493: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>UPDATE xtr_settlement_scripts table');
494: END IF;
495: update XTR_SETTLEMENT_SCRIPTS
496: set run_requested_on = null,

Line 493: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>UPDATE xtr_settlement_scripts table');

489: end if;
490: cre_count := 0;
491: --
492: IF xtr_risk_debug_pkg.g_Debug THEN
493: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>UPDATE xtr_settlement_scripts table');
494: END IF;
495: update XTR_SETTLEMENT_SCRIPTS
496: set run_requested_on = null,
497: only_new_transactions = null,

Line 505: IF xtr_risk_debug_pkg.g_Debug THEN

501: last_file_created = l_file_name
502: where substr(script_name,1,4) = l_eft_script_name
503: and script_type = 'SCRIPT';
504: --
505: IF xtr_risk_debug_pkg.g_Debug THEN
506: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>UPDATE dda table');
507: END IF;
508: update XTR_DEAL_DATE_AMOUNTS d
509: set d.SETTLEMENT_ACTIONED = 'Y',

Line 506: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>UPDATE dda table');

502: where substr(script_name,1,4) = l_eft_script_name
503: and script_type = 'SCRIPT';
504: --
505: IF xtr_risk_debug_pkg.g_Debug THEN
506: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>UPDATE dda table');
507: END IF;
508: update XTR_DEAL_DATE_AMOUNTS d
509: set d.SETTLEMENT_ACTIONED = 'Y',
510: d.SETTLEMENT_ACTIONED_FILE = l_file_name

Line 538: IF xtr_risk_debug_pkg.g_Debug THEN

534:
535: --
536: -- spool into file
537: --
538: IF xtr_risk_debug_pkg.g_Debug THEN
539: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN MTS_REC');
540: END IF;
541: OPEN MTS_REC;
542: Fetch MTS_REC into mts_details, mts_file_name;

Line 539: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN MTS_REC');

535: --
536: -- spool into file
537: --
538: IF xtr_risk_debug_pkg.g_Debug THEN
539: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN MTS_REC');
540: END IF;
541: OPEN MTS_REC;
542: Fetch MTS_REC into mts_details, mts_file_name;
543: IF xtr_risk_debug_pkg.g_Debug THEN

Line 543: IF xtr_risk_debug_pkg.g_Debug THEN

539: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>OPEN MTS_REC');
540: END IF;
541: OPEN MTS_REC;
542: Fetch MTS_REC into mts_details, mts_file_name;
543: IF xtr_risk_debug_pkg.g_Debug THEN
544: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> mts_details = '||mts_details||
545: ' mts_file_name = '||mts_file_name);
546: END IF;
547:

Line 544: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> mts_details = '||mts_details||

540: END IF;
541: OPEN MTS_REC;
542: Fetch MTS_REC into mts_details, mts_file_name;
543: IF xtr_risk_debug_pkg.g_Debug THEN
544: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> mts_details = '||mts_details||
545: ' mts_file_name = '||mts_file_name);
546: END IF;
547:
548: WHILE MTS_REC%FOUND LOOP

Line 549: IF xtr_risk_debug_pkg.g_Debug THEN

545: ' mts_file_name = '||mts_file_name);
546: END IF;
547:
548: WHILE MTS_REC%FOUND LOOP
549: IF xtr_risk_debug_pkg.g_Debug THEN
550: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> LOOP...');
551: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> mts_details = '||mts_details||
552: ' mts_file_name = '||mts_file_name);
553: END IF;

Line 550: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> LOOP...');

546: END IF;
547:
548: WHILE MTS_REC%FOUND LOOP
549: IF xtr_risk_debug_pkg.g_Debug THEN
550: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> LOOP...');
551: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> mts_details = '||mts_details||
552: ' mts_file_name = '||mts_file_name);
553: END IF;
554:

Line 551: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> mts_details = '||mts_details||

547:
548: WHILE MTS_REC%FOUND LOOP
549: IF xtr_risk_debug_pkg.g_Debug THEN
550: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> LOOP...');
551: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '> mts_details = '||mts_details||
552: ' mts_file_name = '||mts_file_name);
553: END IF;
554:
555: --FND_FILE.put_names ('eft.log', 'eft.out', '/tmp/');

Line 565: IF xtr_risk_debug_pkg.g_Debug THEN

561: DELETE from XTR_MTS_RECORDS
562: WHERE file_name = mts_file_name
563: AND transfer_details = mts_details;
564:
565: IF xtr_risk_debug_pkg.g_Debug THEN
566: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>fetch MTS_REC');
567: END IF;
568: Fetch MTS_REC into mts_details, mts_file_name;
569: END LOOP;

Line 566: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>fetch MTS_REC');

562: WHERE file_name = mts_file_name
563: AND transfer_details = mts_details;
564:
565: IF xtr_risk_debug_pkg.g_Debug THEN
566: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || '>fetch MTS_REC');
567: END IF;
568: Fetch MTS_REC into mts_details, mts_file_name;
569: END LOOP;
570:

Line 576: IF xtr_risk_debug_pkg.g_Debug THEN

572:
573: EXCEPTION
574: WHEN OTHERS THEN
575: IF (curr=1) THEN
576: IF xtr_risk_debug_pkg.g_Debug THEN
577: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || 'EXCEPTION: Wrong Debit Account Format');
578: END IF;
579: FND_FILE.put_line(FND_FILE.LOG, 'EXCEPTION: Debit Account is in the wrong format');
580: FND_FILE.put_line(FND_FILE.LOG, 'EXCEPTION: Correct Format is XX-XXXX-XXXXXXX-XX');

Line 577: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || 'EXCEPTION: Wrong Debit Account Format');

573: EXCEPTION
574: WHEN OTHERS THEN
575: IF (curr=1) THEN
576: IF xtr_risk_debug_pkg.g_Debug THEN
577: XTR_RISK_DEBUG_PKG.dlog('BNZ_EFT: ' || 'EXCEPTION: Wrong Debit Account Format');
578: END IF;
579: FND_FILE.put_line(FND_FILE.LOG, 'EXCEPTION: Debit Account is in the wrong format');
580: FND_FILE.put_line(FND_FILE.LOG, 'EXCEPTION: Correct Format is XX-XXXX-XXXXXXX-XX');
581: RAISE;

Line 583: IF xtr_risk_debug_pkg.g_Debug THEN

579: FND_FILE.put_line(FND_FILE.LOG, 'EXCEPTION: Debit Account is in the wrong format');
580: FND_FILE.put_line(FND_FILE.LOG, 'EXCEPTION: Correct Format is XX-XXXX-XXXXXXX-XX');
581: RAISE;
582: ELSE
583: IF xtr_risk_debug_pkg.g_Debug THEN
584: XTR_RISK_DEBUG_PKG.dlog('EXCEPTION: XTR_EFT_SCRIPT_P.BNZ_EFT');
585: END IF;
586: RAISE;
587: END IF;

Line 584: XTR_RISK_DEBUG_PKG.dlog('EXCEPTION: XTR_EFT_SCRIPT_P.BNZ_EFT');

580: FND_FILE.put_line(FND_FILE.LOG, 'EXCEPTION: Correct Format is XX-XXXX-XXXXXXX-XX');
581: RAISE;
582: ELSE
583: IF xtr_risk_debug_pkg.g_Debug THEN
584: XTR_RISK_DEBUG_PKG.dlog('EXCEPTION: XTR_EFT_SCRIPT_P.BNZ_EFT');
585: END IF;
586: RAISE;
587: END IF;
588:

Line 744: IF xtr_risk_debug_pkg.g_Debug THEN

740:
741: begin
742: v_paydate := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
743:
744: IF xtr_risk_debug_pkg.g_Debug THEN
745: XTR_RISK_DEBUG_PKG.dpush('SWT_EFT');
746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);
747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);

Line 745: XTR_RISK_DEBUG_PKG.dpush('SWT_EFT');

741: begin
742: v_paydate := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
743:
744: IF xtr_risk_debug_pkg.g_Debug THEN
745: XTR_RISK_DEBUG_PKG.dpush('SWT_EFT');
746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);
747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);
749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);

Line 746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);

742: v_paydate := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
743:
744: IF xtr_risk_debug_pkg.g_Debug THEN
745: XTR_RISK_DEBUG_PKG.dpush('SWT_EFT');
746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);
747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);
749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);
750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);

Line 747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);

743:
744: IF xtr_risk_debug_pkg.g_Debug THEN
745: XTR_RISK_DEBUG_PKG.dpush('SWT_EFT');
746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);
747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);
749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);
750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);
751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));

Line 748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);

744: IF xtr_risk_debug_pkg.g_Debug THEN
745: XTR_RISK_DEBUG_PKG.dpush('SWT_EFT');
746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);
747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);
749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);
750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);
751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));
752: END IF;

Line 749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);

745: XTR_RISK_DEBUG_PKG.dpush('SWT_EFT');
746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);
747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);
749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);
750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);
751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));
752: END IF;
753:

Line 750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);

746: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: prev run is ' || sett);
747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);
749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);
750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);
751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));
752: END IF;
753:
754: IF xtr_risk_debug_pkg.g_Debug THEN

Line 751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));

747: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_company is ' || l_company);
748: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: l_cparty is' || l_cparty);
749: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: CHAR Settlement date is ' || paydate);
750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);
751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));
752: END IF;
753:
754: IF xtr_risk_debug_pkg.g_Debug THEN
755: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '>OPEN Header_Rec');

Line 754: IF xtr_risk_debug_pkg.g_Debug THEN

750: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: Settlement date is ' || v_paydate);
751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));
752: END IF;
753:
754: IF xtr_risk_debug_pkg.g_Debug THEN
755: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '>OPEN Header_Rec');
756: END IF;
757:
758: open HEADER_REC;

Line 755: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '>OPEN Header_Rec');

751: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: attempt at varchar ' || to_char( v_paydate, 'YYMMDD'));
752: END IF;
753:
754: IF xtr_risk_debug_pkg.g_Debug THEN
755: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '>OPEN Header_Rec');
756: END IF;
757:
758: open HEADER_REC;
759: fetch HEADER_REC INTO v_account_no;

Line 760: IF xtr_risk_debug_pkg.g_Debug THEN

756: END IF;
757:
758: open HEADER_REC;
759: fetch HEADER_REC INTO v_account_no;
760: IF xtr_risk_debug_pkg.g_Debug THEN
761: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '> comp_acct = '|| v_account_no);
762: END IF;
763: while HEADER_REC%FOUND LOOP
764:

Line 761: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '> comp_acct = '|| v_account_no);

757:
758: open HEADER_REC;
759: fetch HEADER_REC INTO v_account_no;
760: IF xtr_risk_debug_pkg.g_Debug THEN
761: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '> comp_acct = '|| v_account_no);
762: END IF;
763: while HEADER_REC%FOUND LOOP
764:
765:

Line 767: IF xtr_risk_debug_pkg.g_Debug THEN

763: while HEADER_REC%FOUND LOOP
764:
765:
766: open CREDIT_REC;
767: IF xtr_risk_debug_pkg.g_Debug THEN
768: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '>Fetch CREDIT_REC');
769: END IF;
770: fetch CREDIT_REC into v_settlement_number, v_settlement_date, v_currency,
771: v_settlement_amount, v_comp_name, v_comp_address1, v_comp_address2,

Line 768: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '>Fetch CREDIT_REC');

764:
765:
766: open CREDIT_REC;
767: IF xtr_risk_debug_pkg.g_Debug THEN
768: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || '>Fetch CREDIT_REC');
769: END IF;
770: fetch CREDIT_REC into v_settlement_number, v_settlement_date, v_currency,
771: v_settlement_amount, v_comp_name, v_comp_address1, v_comp_address2,
772: v_comp_address3, v_company_acct_no, v_comp_swift_id, v_comp_bank_name,

Line 815: IF xtr_risk_debug_pkg.g_Debug THEN

811:
812:
813: if v_sett_act > 0 and v_correct_cp > 0 then
814:
815: IF xtr_risk_debug_pkg.g_Debug THEN
816: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: inside credit rec settlement number ' || v_settlement_number );
817: END IF;
818: FND_FILE.put_line(FND_FILE.OUTPUT, ':20:' || v_settlement_number);
819:

Line 816: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: inside credit rec settlement number ' || v_settlement_number );

812:
813: if v_sett_act > 0 and v_correct_cp > 0 then
814:
815: IF xtr_risk_debug_pkg.g_Debug THEN
816: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: inside credit rec settlement number ' || v_settlement_number );
817: END IF;
818: FND_FILE.put_line(FND_FILE.OUTPUT, ':20:' || v_settlement_number);
819:
820: v_settlement_amount_c := replace(to_char(v_settlement_amount), '.', ',');

Line 823: IF xtr_risk_debug_pkg.g_Debug THEN

819:
820: v_settlement_amount_c := replace(to_char(v_settlement_amount), '.', ',');
821:
822: if INSTR(v_settlement_amount_c, ',') = 0 THEN
823: IF xtr_risk_debug_pkg.g_Debug THEN
824: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: adding comma' );
825: END IF;
826: v_settlement_amount_c := v_settlement_amount_c || ',';
827: end if;

Line 824: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: adding comma' );

820: v_settlement_amount_c := replace(to_char(v_settlement_amount), '.', ',');
821:
822: if INSTR(v_settlement_amount_c, ',') = 0 THEN
823: IF xtr_risk_debug_pkg.g_Debug THEN
824: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: adding comma' );
825: END IF;
826: v_settlement_amount_c := v_settlement_amount_c || ',';
827: end if;
828:

Line 833: IF xtr_risk_debug_pkg.g_Debug THEN

829:
830:
831:
832: FND_FILE.put_line(FND_FILE.OUTPUT, ':32A:' || to_char( v_settlement_date, 'YYMMDD') || v_currency || v_settlement_amount_c);
833: IF xtr_risk_debug_pkg.g_Debug THEN
834: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || ':32A:' || to_char( v_settlement_date, 'YYMMDD') || v_currency || v_settlement_amount_c);
835: END IF;
836:
837: FND_FILE.put_line(FND_FILE.OUTPUT, ':50:' || substr(v_comp_name, 1, 35));

Line 834: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || ':32A:' || to_char( v_settlement_date, 'YYMMDD') || v_currency || v_settlement_amount_c);

830:
831:
832: FND_FILE.put_line(FND_FILE.OUTPUT, ':32A:' || to_char( v_settlement_date, 'YYMMDD') || v_currency || v_settlement_amount_c);
833: IF xtr_risk_debug_pkg.g_Debug THEN
834: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' || ':32A:' || to_char( v_settlement_date, 'YYMMDD') || v_currency || v_settlement_amount_c);
835: END IF;
836:
837: FND_FILE.put_line(FND_FILE.OUTPUT, ':50:' || substr(v_comp_name, 1, 35));
838: --Bug 3195086

Line 842: IF xtr_risk_debug_pkg.g_Debug THEN

838: --Bug 3195086
839: FILTER_BLANKS(substr(v_comp_address1, 1, 35));
840: FILTER_BLANKS(substr(v_comp_address2, 1, 35));
841: FILTER_BLANKS(substr(v_comp_address3, 1, 35));
842: IF xtr_risk_debug_pkg.g_Debug THEN
843: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' ||':50:' || substr(v_comp_name, 1, 35));
844: END IF;
845:
846: --Bug 3195086: FND_FILE.put_line(FND_FILE.OUTPUT, ':53B:/' || v_company_acct_no);

Line 843: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' ||':50:' || substr(v_comp_name, 1, 35));

839: FILTER_BLANKS(substr(v_comp_address1, 1, 35));
840: FILTER_BLANKS(substr(v_comp_address2, 1, 35));
841: FILTER_BLANKS(substr(v_comp_address3, 1, 35));
842: IF xtr_risk_debug_pkg.g_Debug THEN
843: XTR_RISK_DEBUG_PKG.dlog('SWT_EFT: ' ||':50:' || substr(v_comp_name, 1, 35));
844: END IF;
845:
846: --Bug 3195086: FND_FILE.put_line(FND_FILE.OUTPUT, ':53B:/' || v_company_acct_no);
847:

Line 911: IF xtr_risk_debug_pkg.g_Debug THEN

907: fetch HEADER_REC INTO v_account_no;
908: END LOOP;
909:
910: close HEADER_REC;
911: IF xtr_risk_debug_pkg.g_Debug THEN
912: XTR_RISK_DEBUG_PKG.dpop('SWT_EFT');
913: END IF;
914:
915: commit;

Line 912: XTR_RISK_DEBUG_PKG.dpop('SWT_EFT');

908: END LOOP;
909:
910: close HEADER_REC;
911: IF xtr_risk_debug_pkg.g_Debug THEN
912: XTR_RISK_DEBUG_PKG.dpop('SWT_EFT');
913: END IF;
914:
915: commit;
916:

Line 1060: IF xtr_risk_debug_pkg.g_Debug THEN

1056:
1057:
1058: v_paydate := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
1059:
1060: IF xtr_risk_debug_pkg.g_Debug THEN
1061: XTR_RISK_DEBUG_PKG.dpush('X12_EFT');
1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);
1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);
1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);

Line 1061: XTR_RISK_DEBUG_PKG.dpush('X12_EFT');

1057:
1058: v_paydate := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
1059:
1060: IF xtr_risk_debug_pkg.g_Debug THEN
1061: XTR_RISK_DEBUG_PKG.dpush('X12_EFT');
1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);
1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);
1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);
1065: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: CHAR Settlement date is ' || paydate);

Line 1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);

1058: v_paydate := to_date(paydate, 'YYYY/MM/DD HH24:MI:SS');
1059:
1060: IF xtr_risk_debug_pkg.g_Debug THEN
1061: XTR_RISK_DEBUG_PKG.dpush('X12_EFT');
1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);
1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);
1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);
1065: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: CHAR Settlement date is ' || paydate);
1066: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: Settlement date is ' || v_paydate);

Line 1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);

1059:
1060: IF xtr_risk_debug_pkg.g_Debug THEN
1061: XTR_RISK_DEBUG_PKG.dpush('X12_EFT');
1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);
1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);
1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);
1065: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: CHAR Settlement date is ' || paydate);
1066: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: Settlement date is ' || v_paydate);
1067:

Line 1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);

1060: IF xtr_risk_debug_pkg.g_Debug THEN
1061: XTR_RISK_DEBUG_PKG.dpush('X12_EFT');
1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);
1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);
1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);
1065: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: CHAR Settlement date is ' || paydate);
1066: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: Settlement date is ' || v_paydate);
1067:
1068: END IF;

Line 1065: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: CHAR Settlement date is ' || paydate);

1061: XTR_RISK_DEBUG_PKG.dpush('X12_EFT');
1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);
1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);
1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);
1065: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: CHAR Settlement date is ' || paydate);
1066: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: Settlement date is ' || v_paydate);
1067:
1068: END IF;
1069:

Line 1066: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: Settlement date is ' || v_paydate);

1062: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: prev run is ' || sett);
1063: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_company is ' || l_company);
1064: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: l_cparty is' || l_cparty);
1065: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: CHAR Settlement date is ' || paydate);
1066: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: Settlement date is ' || v_paydate);
1067:
1068: END IF;
1069:
1070: IF xtr_risk_debug_pkg.g_Debug THEN

Line 1070: IF xtr_risk_debug_pkg.g_Debug THEN

1066: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: Settlement date is ' || v_paydate);
1067:
1068: END IF;
1069:
1070: IF xtr_risk_debug_pkg.g_Debug THEN
1071: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '>OPEN Header_Rec');
1072: END IF;
1073:
1074: open HEADER_REC;

Line 1071: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '>OPEN Header_Rec');

1067:
1068: END IF;
1069:
1070: IF xtr_risk_debug_pkg.g_Debug THEN
1071: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '>OPEN Header_Rec');
1072: END IF;
1073:
1074: open HEADER_REC;
1075: fetch HEADER_REC INTO v_account_no;

Line 1077: IF xtr_risk_debug_pkg.g_Debug THEN

1073:
1074: open HEADER_REC;
1075: fetch HEADER_REC INTO v_account_no;
1076:
1077: IF xtr_risk_debug_pkg.g_Debug THEN
1078: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '> comp_acct = '|| v_account_no);
1079: END IF;
1080: while HEADER_REC%FOUND LOOP
1081:

Line 1078: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '> comp_acct = '|| v_account_no);

1074: open HEADER_REC;
1075: fetch HEADER_REC INTO v_account_no;
1076:
1077: IF xtr_risk_debug_pkg.g_Debug THEN
1078: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '> comp_acct = '|| v_account_no);
1079: END IF;
1080: while HEADER_REC%FOUND LOOP
1081:
1082:

Line 1084: IF xtr_risk_debug_pkg.g_Debug THEN

1080: while HEADER_REC%FOUND LOOP
1081:
1082:
1083: open CREDIT_REC;
1084: IF xtr_risk_debug_pkg.g_Debug THEN
1085: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '>Fetch CREDIT_REC');
1086: END IF;
1087: fetch CREDIT_REC into v_settlement_number, v_settlement_date, v_currency,
1088: v_settlement_amount, v_comp_name, v_comp_address1, v_comp_address2,

Line 1085: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '>Fetch CREDIT_REC');

1081:
1082:
1083: open CREDIT_REC;
1084: IF xtr_risk_debug_pkg.g_Debug THEN
1085: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: ' || '>Fetch CREDIT_REC');
1086: END IF;
1087: fetch CREDIT_REC into v_settlement_number, v_settlement_date, v_currency,
1088: v_settlement_amount, v_comp_name, v_comp_address1, v_comp_address2,
1089: v_comp_address3, v_company_acct_no, v_comp_swift_id, v_comp_bank_name,

Line 1180: IF xtr_risk_debug_pkg.g_Debug THEN

1176: FND_FILE.put_line(FND_FILE.LOG, v_exc_desc);
1177:
1178: ELSE
1179:
1180: IF xtr_risk_debug_pkg.g_Debug THEN
1181: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: inside credit rec settlement number ' || v_settlement_number );
1182: END IF;
1183:
1184: FND_FILE.put_line(FND_FILE.OUTPUT, 'ST*820*' || v_settlement_number);

Line 1181: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: inside credit rec settlement number ' || v_settlement_number );

1177:
1178: ELSE
1179:
1180: IF xtr_risk_debug_pkg.g_Debug THEN
1181: XTR_RISK_DEBUG_PKG.dlog('X12_EFT: inside credit rec settlement number ' || v_settlement_number );
1182: END IF;
1183:
1184: FND_FILE.put_line(FND_FILE.OUTPUT, 'ST*820*' || v_settlement_number);
1185: FND_FILE.put_line(FND_FILE.OUTPUT, 'BPR*D*'|| v_settlement_amount ||

Line 1236: IF xtr_risk_debug_pkg.g_Debug THEN

1232: fetch HEADER_REC INTO v_account_no;
1233: END LOOP;
1234:
1235: close HEADER_REC;
1236: IF xtr_risk_debug_pkg.g_Debug THEN
1237: XTR_RISK_DEBUG_PKG.dpop('X12_EFT');
1238: END IF;
1239:
1240: commit;

Line 1237: XTR_RISK_DEBUG_PKG.dpop('X12_EFT');

1233: END LOOP;
1234:
1235: close HEADER_REC;
1236: IF xtr_risk_debug_pkg.g_Debug THEN
1237: XTR_RISK_DEBUG_PKG.dpop('X12_EFT');
1238: END IF;
1239:
1240: commit;
1241: