66: END IF;
67:
68: IF l_display_debug = 'Y' THEN
69: -- cep_standard.enable_debug;
70: xtr_debug_pkg.enable_file_debug;
71: END IF;
72: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
73: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>XTR_SETTLEMENT.settlement_script');
74: END IF;
68: IF l_display_debug = 'Y' THEN
69: -- cep_standard.enable_debug;
70: xtr_debug_pkg.enable_file_debug;
71: END IF;
72: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
73: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>XTR_SETTLEMENT.settlement_script');
74: END IF;
75: settlement_date := to_date(l_paydate, 'YYYY/MM/DD HH24:MI:SS');
76:
69: -- cep_standard.enable_debug;
70: xtr_debug_pkg.enable_file_debug;
71: END IF;
72: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
73: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>XTR_SETTLEMENT.settlement_script');
74: END IF;
75: settlement_date := to_date(l_paydate, 'YYYY/MM/DD HH24:MI:SS');
76:
77: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
73: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>XTR_SETTLEMENT.settlement_script');
74: END IF;
75: settlement_date := to_date(l_paydate, 'YYYY/MM/DD HH24:MI:SS');
76:
77: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
78: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>OPEN Header_Rec');
79: END IF;
80: OPEN HEADER_REC;
81: FETCH HEADER_REC INTO script_name, script_type, package_name;
74: END IF;
75: settlement_date := to_date(l_paydate, 'YYYY/MM/DD HH24:MI:SS');
76:
77: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
78: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>OPEN Header_Rec');
79: END IF;
80: OPEN HEADER_REC;
81: FETCH HEADER_REC INTO script_name, script_type, package_name;
82: WHILE HEADER_REC%FOUND LOOP
80: OPEN HEADER_REC;
81: FETCH HEADER_REC INTO script_name, script_type, package_name;
82: WHILE HEADER_REC%FOUND LOOP
83:
84: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
85: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> Inside Loop... ');
86: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> script_name = '|| script_name
87: || ' script_type = '||script_type
88: || ' package_name = ' || package_name );
81: FETCH HEADER_REC INTO script_name, script_type, package_name;
82: WHILE HEADER_REC%FOUND LOOP
83:
84: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
85: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> Inside Loop... ');
86: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> script_name = '|| script_name
87: || ' script_type = '||script_type
88: || ' package_name = ' || package_name );
89: END IF;
82: WHILE HEADER_REC%FOUND LOOP
83:
84: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
85: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> Inside Loop... ');
86: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> script_name = '|| script_name
87: || ' script_type = '||script_type
88: || ' package_name = ' || package_name );
89: END IF;
90: --
95: -- if script type is report then run report
96: -- else run script
97: --
98: IF (script_type = 'REPORT') THEN
99: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
100: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> REPORT');
101: END IF;
102: --
103: -- Get original request id
96: -- else run script
97: --
98: IF (script_type = 'REPORT') THEN
99: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
100: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> REPORT');
101: END IF;
102: --
103: -- Get original request id
104: --
117: --* number_of_copies,
118: --* print_style,
119: --* printer,
120: --* save_output_flag))THEN
121: --* IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
122: --* xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'Message: get print options failed');
123: --* END IF;
124: --* ELSE
125: --* IF (save_output_flag = 'Y') THEN
118: --* print_style,
119: --* printer,
120: --* save_output_flag))THEN
121: --* IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
122: --* xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'Message: get print options failed');
123: --* END IF;
124: --* ELSE
125: --* IF (save_output_flag = 'Y') THEN
126: --* save_output_bool := TRUE;
129: --* END IF;
130: --
131: -- Set print options
132: --
133: --* xtr_debug_pkg.debug('values ='||number_of_copies||' - '||print_style||' - '||printer||' - '||save_output_flag);
134: --* IF (NOT FND_REQUEST.set_print_options(printer,
135: --* print_style,
136: --* number_of_copies,
137: --* save_output_bool)) THEN
134: --* IF (NOT FND_REQUEST.set_print_options(printer,
135: --* print_style,
136: --* number_of_copies,
137: --* save_output_bool)) THEN
138: --* IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
139: --* xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'Set print options failed');
140: --* END IF;
141: --* END IF;
142: --* END IF;
135: --* print_style,
136: --* number_of_copies,
137: --* save_output_bool)) THEN
138: --* IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
139: --* xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'Set print options failed');
140: --* END IF;
141: --* END IF;
142: --* END IF;
143: req_id := FND_REQUEST.SUBMIT_REQUEST('XTR',
155:
156: COMMIT;
157:
158: IF (req_id = 0) THEN
159: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
160: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'ERROR submitting concurrent request');
161: END IF;
162: ELSE
163: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
156: COMMIT;
157:
158: IF (req_id = 0) THEN
159: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
160: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'ERROR submitting concurrent request');
161: END IF;
162: ELSE
163: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
164: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'EXECUTION REPORT SUBMITTED');
159: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
160: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'ERROR submitting concurrent request');
161: END IF;
162: ELSE
163: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
164: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'EXECUTION REPORT SUBMITTED');
165: END IF;
166: END IF;
167:
160: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'ERROR submitting concurrent request');
161: END IF;
162: ELSE
163: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
164: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || 'EXECUTION REPORT SUBMITTED');
165: END IF;
166: END IF;
167:
168: ELSIF (script_type = 'SCRIPT') THEN -- if it is EFT script
165: END IF;
166: END IF;
167:
168: ELSIF (script_type = 'SCRIPT') THEN -- if it is EFT script
169: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
170: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> EFT Script');
171: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> l_company = '|| l_company
172: || ' package_name = '|| package_name
173: || ' Settlement_date = '|| Settlement_date
166: END IF;
167:
168: ELSIF (script_type = 'SCRIPT') THEN -- if it is EFT script
169: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
170: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> EFT Script');
171: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> l_company = '|| l_company
172: || ' package_name = '|| package_name
173: || ' Settlement_date = '|| Settlement_date
174: || ' l_paydate = ' || l_paydate);
167:
168: ELSIF (script_type = 'SCRIPT') THEN -- if it is EFT script
169: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
170: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> EFT Script');
171: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '>> l_company = '|| l_company
172: || ' package_name = '|| package_name
173: || ' Settlement_date = '|| Settlement_date
174: || ' l_paydate = ' || l_paydate);
175: END IF;
195:
196: FETCH HEADER_REC INTO script_name, script_type, package_name;
197:
198: END LOOP; -- end header_rec loop thru scripts
199: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
200: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '> END LOOP ');
201: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '> Close Cursor XTR_SETTLEMENT HEADER_REC ');
202: END IF;
203: close HEADER_REC; -- close cursor
196: FETCH HEADER_REC INTO script_name, script_type, package_name;
197:
198: END LOOP; -- end header_rec loop thru scripts
199: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
200: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '> END LOOP ');
201: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '> Close Cursor XTR_SETTLEMENT HEADER_REC ');
202: END IF;
203: close HEADER_REC; -- close cursor
204:
197:
198: END LOOP; -- end header_rec loop thru scripts
199: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
200: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '> END LOOP ');
201: xtr_debug_pkg.debug('SETTLEMENT_SCRIPTS: ' || '> Close Cursor XTR_SETTLEMENT HEADER_REC ');
202: END IF;
203: close HEADER_REC; -- close cursor
204:
205: IF (l_display_debug = 'Y') THEN
203: close HEADER_REC; -- close cursor
204:
205: IF (l_display_debug = 'Y') THEN
206: --cep_standard.disable_debug;
207: xtr_debug_pkg.disable_file_debug;
208: END IF;
209:
210: IF xtr_risk_debug_pkg.g_Debug THEN
211: XTR_RISK_DEBUG_PKG.dpop('SELTTLEMENT_SCRIPTS: ' || 'Settlement scripts');