72: ORDER BY line_id;
73:
74: BEGIN
75:
76: ec_debug.enable_debug ( p_debug_mode );
77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
73:
74: BEGIN
75:
76: ec_debug.enable_debug ( p_debug_mode );
77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
74: BEGIN
75:
76: ec_debug.enable_debug ( p_debug_mode );
77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
75:
76: ec_debug.enable_debug ( p_debug_mode );
77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
76: ec_debug.enable_debug ( p_debug_mode );
77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
84: ec_debug.pl ( 3, 'p_OutputPath: ', p_OutputPath );
77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
84: ec_debug.pl ( 3, 'p_OutputPath: ', p_OutputPath );
85: ec_debug.pl ( 3, 'p_Filename: ', p_Filename );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
84: ec_debug.pl ( 3, 'p_OutputPath: ', p_OutputPath );
85: ec_debug.pl ( 3, 'p_Filename: ', p_Filename );
86: ec_debug.pl ( 3, 'p_debug_mode: ', p_debug_mode );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
84: ec_debug.pl ( 3, 'p_OutputPath: ', p_OutputPath );
85: ec_debug.pl ( 3, 'p_Filename: ', p_Filename );
86: ec_debug.pl ( 3, 'p_debug_mode: ', p_debug_mode );
87:
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
84: ec_debug.pl ( 3, 'p_OutputPath: ', p_OutputPath );
85: ec_debug.pl ( 3, 'p_Filename: ', p_Filename );
86: ec_debug.pl ( 3, 'p_debug_mode: ', p_debug_mode );
87:
88: xProgress := 'GASNO-10-1005';
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
84: ec_debug.pl ( 3, 'p_OutputPath: ', p_OutputPath );
85: ec_debug.pl ( 3, 'p_Filename: ', p_Filename );
86: ec_debug.pl ( 3, 'p_debug_mode: ', p_debug_mode );
87:
88: xProgress := 'GASNO-10-1005';
89: BEGIN
82: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
83: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
84: ec_debug.pl ( 3, 'p_OutputPath: ', p_OutputPath );
85: ec_debug.pl ( 3, 'p_Filename: ', p_Filename );
86: ec_debug.pl ( 3, 'p_debug_mode: ', p_debug_mode );
87:
88: xProgress := 'GASNO-10-1005';
89: BEGIN
90: SELECT ece_output_runs_s.NEXTVAL
91: INTO p_RunID
92: FROM sys.dual;
93: EXCEPTION
94: WHEN NO_DATA_FOUND THEN
95: ec_debug.pl ( 0,
96: 'EC',
97: 'GML_GET_NEXT_SEQ_FAILED',
98: 'PROGRESS_LEVEL',
99: xProgress,
99: xProgress,
100: 'SEQ',
101: 'ECE_OUTPUT_RUNS_S' );
102: END;
103: ec_debug.pl(3, 'p_RunID: ',p_RunID);
104:
105: xProgress := 'GASNO-10-1015';
106: ec_debug.pl ( 0, 'EC', 'GML_GASNO_START', NULL );
107:
102: END;
103: ec_debug.pl(3, 'p_RunID: ',p_RunID);
104:
105: xProgress := 'GASNO-10-1015';
106: ec_debug.pl ( 0, 'EC', 'GML_GASNO_START', NULL );
107:
108: xProgress := 'GASNO-10-1020';
109: ec_debug.pl ( 0, 'EC', 'ECE_RUN_ID', 'RUN_ID', p_RunID );
110:
105: xProgress := 'GASNO-10-1015';
106: ec_debug.pl ( 0, 'EC', 'GML_GASNO_START', NULL );
107:
108: xProgress := 'GASNO-10-1020';
109: ec_debug.pl ( 0, 'EC', 'ECE_RUN_ID', 'RUN_ID', p_RunID );
110:
111: xProgress := 'GASNO-10-1030';
112: GML_GASNO.Populate_Interface_Tables( p_CommunicationMethod,
113: p_TransactionType,
156: FROM ece_output
157: WHERE run_id = p_RunID;
158: EXCEPTION
159: WHEN NO_DATA_FOUND THEN
160: ec_debug.pl ( 0,
161: 'EC',
162: 'ECE_GET_COUNT_FAILED',
163: 'PROGRESS_LEVEL',
164: xProgress,
164: xProgress,
165: 'TABLE_NAME',
166: 'ECE_OUTPUT' );
167: END;
168: ec_debug.pl ( 3, 'v_OutputRecordCount: ', v_OutputRecordCount );
169:
170: xProgress := 'GASNO-10-1060';
171: IF v_OutputRecordCount > 0
172: THEN
181: LOOP
182: xProgress := 'GASNO-10-1000';
183: FETCH c_OutputSource
184: INTO v_OutputLine;
185: ec_debug.pl ( 3, 'v_OutputLine: ', v_OutputLine );
186:
187: xProgress := 'GASNO-10-1100';
188: EXIT WHEN c_OutputSource%NOTFOUND;
189:
200:
201: END IF;
202:
203: xProgress := 'GASNO-10-1170';
204: ec_debug.pl ( 0, 'EC', 'GML_GASNO_COMPLETE', NULL );
205:
206: xProgress := 'GASNO-10-1180';
207: DELETE FROM ece_output
208: WHERE run_id = p_RunID;
208: WHERE run_id = p_RunID;
209:
210: IF SQL%NOTFOUND
211: THEN
212: ec_debug.pl ( 0,
213: 'EC',
214: 'ECE_NO_ROW_DELETED',
215: 'PROGRESS_LEVEL',
216: xProgress,
217: 'TABLE_NAME',
218: 'ECE_OUTPUT' );
219: END IF;
220:
221: ec_debug.pop ( 'GML_GASNO.Extract_GASNO_Outbound' );
222: ec_debug.disable_debug;
223: COMMIT;
224:
225: EXCEPTION
218: 'ECE_OUTPUT' );
219: END IF;
220:
221: ec_debug.pop ( 'GML_GASNO.Extract_GASNO_Outbound' );
222: ec_debug.disable_debug;
223: COMMIT;
224:
225: EXCEPTION
226: WHEN utl_file.write_error THEN
224:
225: EXCEPTION
226: WHEN utl_file.write_error THEN
227:
228: ec_debug.pl ( 0,
229: 'EC',
230: 'ECE_UTL_WRITE_ERROR',
231: NULL );
232:
229: 'EC',
230: 'ECE_UTL_WRITE_ERROR',
231: NULL );
232:
233: ec_debug.pl ( 0,
234: 'EC',
235: 'ECE_ERROR_MESSAGE',
236: 'ERROR_MESSAGE',
237: SQLERRM );
236: 'ERROR_MESSAGE',
237: SQLERRM );
238:
239: retcode := 2;
240: ec_debug.disable_debug;
241: ROLLBACK;
242: RAISE;
243:
244: WHEN utl_file.invalid_path THEN
242: RAISE;
243:
244: WHEN utl_file.invalid_path THEN
245:
246: ec_debug.pl ( 0,
247: 'EC',
248: 'ECE_UTIL_INVALID_PATH',
249: NULL );
250:
247: 'EC',
248: 'ECE_UTIL_INVALID_PATH',
249: NULL );
250:
251: ec_debug.pl ( 0,
252: 'EC',
253: 'ECE_ERROR_MESSAGE',
254: 'ERROR_MESSAGE',
255: SQLERRM );
254: 'ERROR_MESSAGE',
255: SQLERRM );
256:
257: retcode := 2;
258: ec_debug.disable_debug;
259: ROLLBACK;
260: RAISE;
261:
262: WHEN utl_file.invalid_operation THEN
260: RAISE;
261:
262: WHEN utl_file.invalid_operation THEN
263:
264: ec_debug.pl ( 0,
265: 'EC',
266: 'ECE_UTIL_INVALID_OPERATION',
267: NULL );
268:
265: 'EC',
266: 'ECE_UTIL_INVALID_OPERATION',
267: NULL );
268:
269: ec_debug.pl ( 0,
270: 'EC',
271: 'ECE_ERROR_MESSAGE',
272: 'ERROR_MESSAGE',
273: SQLERRM );
272: 'ERROR_MESSAGE',
273: SQLERRM );
274:
275: retcode := 2;
276: ec_debug.disable_debug;
277: ROLLBACK;
278: RAISE;
279:
280: WHEN others then
278: RAISE;
279:
280: WHEN others then
281:
282: ec_debug.pl ( 0,
283: 'EC',
284: 'ECE_PROGRAM_ERROR',
285: 'PROGRESS_LEVEL',
286: xProgress );
284: 'ECE_PROGRAM_ERROR',
285: 'PROGRESS_LEVEL',
286: xProgress );
287:
288: ec_debug.pl ( 0,
289: 'EC',
290: 'ECE_ERROR_MESSAGE',
291: 'ERROR_MESSAGE',
292: SQLERRM );
291: 'ERROR_MESSAGE',
292: SQLERRM );
293:
294: retcode := 2;
295: ec_debug.disable_debug;
296: ROLLBACK;
297: RAISE;
298:
299: END Extract_GASNO_Outbound;
472: Debug statements for the parameter values.
473:
474: */
475:
476: ec_debug.push ( 'GML_GASNO.Populate_Interface_Tables' );
477: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
473:
474: */
475:
476: ec_debug.push ( 'GML_GASNO.Populate_Interface_Tables' );
477: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
474: */
475:
476: ec_debug.push ( 'GML_GASNO.Populate_Interface_Tables' );
477: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
475:
476: ec_debug.push ( 'GML_GASNO.Populate_Interface_Tables' );
477: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
476: ec_debug.push ( 'GML_GASNO.Populate_Interface_Tables' );
477: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
477: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
481: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
482: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
483: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
484: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
492: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
485: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
492: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
493: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
486: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
492: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
493: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
494: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
487: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
492: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
493: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
494: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
495:
488: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
492: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
493: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
494: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
495:
496: /*
489: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
492: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
493: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
494: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
495:
496: /*
497: Load each PL/SQL table. The FOR loop implicitly handles all
490: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
491: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
492: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
493: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
494: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
495:
496: /*
497: Load each PL/SQL table. The FOR loop implicitly handles all
498: cursor processing.
497: Load each PL/SQL table. The FOR loop implicitly handles all
498: cursor processing.
499: */
500: v_Orgn_Code := p_Orgn_Code;
501: ec_debug.pl ( 3, 'v_Orgn_Code: ', v_Orgn_Code );
502: v_BOL_No_From := p_BOL_No_From;
503: ec_debug.pl ( 3, 'v_BOL_No_From: ', v_BOL_No_From );
504: v_BOL_No_To := p_BOL_No_To;
505: ec_debug.pl ( 3, 'v_BOL_No_To: ', v_BOL_No_To );
499: */
500: v_Orgn_Code := p_Orgn_Code;
501: ec_debug.pl ( 3, 'v_Orgn_Code: ', v_Orgn_Code );
502: v_BOL_No_From := p_BOL_No_From;
503: ec_debug.pl ( 3, 'v_BOL_No_From: ', v_BOL_No_From );
504: v_BOL_No_To := p_BOL_No_To;
505: ec_debug.pl ( 3, 'v_BOL_No_To: ', v_BOL_No_To );
506: /* SFeinstein 10/27/99 B911176: removed code for format change above
507: v_Creation_Date_From := p_Creation_Date_From;
501: ec_debug.pl ( 3, 'v_Orgn_Code: ', v_Orgn_Code );
502: v_BOL_No_From := p_BOL_No_From;
503: ec_debug.pl ( 3, 'v_BOL_No_From: ', v_BOL_No_From );
504: v_BOL_No_To := p_BOL_No_To;
505: ec_debug.pl ( 3, 'v_BOL_No_To: ', v_BOL_No_To );
506: /* SFeinstein 10/27/99 B911176: removed code for format change above
507: v_Creation_Date_From := p_Creation_Date_From;
508: v_Creation_Date_To := p_Creation_Date_To;
509: */
506: /* SFeinstein 10/27/99 B911176: removed code for format change above
507: v_Creation_Date_From := p_Creation_Date_From;
508: v_Creation_Date_To := p_Creation_Date_To;
509: */
510: ec_debug.pl ( 3, 'v_Creation_Date_From: ', v_Creation_Date_From );
511: ec_debug.pl ( 3, 'v_Creation_Date_To: ', v_Creation_Date_To );
512: v_Customer_Name := p_Customer_Name;
513: ec_debug.pl ( 3, 'v_Customer_Name: ', v_Customer_Name );
514:
507: v_Creation_Date_From := p_Creation_Date_From;
508: v_Creation_Date_To := p_Creation_Date_To;
509: */
510: ec_debug.pl ( 3, 'v_Creation_Date_From: ', v_Creation_Date_From );
511: ec_debug.pl ( 3, 'v_Creation_Date_To: ', v_Creation_Date_To );
512: v_Customer_Name := p_Customer_Name;
513: ec_debug.pl ( 3, 'v_Customer_Name: ', v_Customer_Name );
514:
515:
509: */
510: ec_debug.pl ( 3, 'v_Creation_Date_From: ', v_Creation_Date_From );
511: ec_debug.pl ( 3, 'v_Creation_Date_To: ', v_Creation_Date_To );
512: v_Customer_Name := p_Customer_Name;
513: ec_debug.pl ( 3, 'v_Customer_Name: ', v_Customer_Name );
514:
515:
516: /*
517: Pad right charactors before querying numbers.
516: /*
517: Pad right charactors before querying numbers.
518: */
519: xProgress := 'GPOAOB-10-0010';
520: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From);
521: /* Get doc numbering info to properlly format doc numbers entered */
522: SELECT
523: assignment_type,
524: format_size,
533: orgn_code=v_Orgn_Code AND
534: doc_type='OPSP'
535: ;
536:
537: ec_debug.pl ( 3, 'v_assignment_type: ',v_assignment_type);
538: If ( v_assignment_type = 2 ) Then /* If automatic document numbering */
539: If ( p_BOL_No_From is NOT NULL ) Then
540: v_BOL_No_From := lpad(p_BOL_No_From, v_format_size, v_pad_char);
541: ec_debug.pl ( 3, 'v_BOL_No_From : ', v_BOL_No_From);
537: ec_debug.pl ( 3, 'v_assignment_type: ',v_assignment_type);
538: If ( v_assignment_type = 2 ) Then /* If automatic document numbering */
539: If ( p_BOL_No_From is NOT NULL ) Then
540: v_BOL_No_From := lpad(p_BOL_No_From, v_format_size, v_pad_char);
541: ec_debug.pl ( 3, 'v_BOL_No_From : ', v_BOL_No_From);
542: SELECT
543: lpad(p_BOL_No_From, v_format_size, v_pad_char)
544: INTO
545: v_BOL_No_From
548: ;
549: End If;
550: If ( p_BOL_No_To is NOT NULL ) Then
551: v_BOL_No_To := lpad(p_BOL_No_To, v_format_size, v_pad_char);
552: ec_debug.pl ( 3, 'v_BOL_No_To : ',v_BOL_No_To );
553: SELECT
554: lpad(p_BOL_No_To, v_format_size, v_pad_char)
555: INTO
556: v_BOL_No_To
559: ;
560: End If;
561: End If;
562:
563: ec_debug.pl ( 3, 'v_BOL_No_From : ',v_BOL_No_From );
564: ec_debug.pl ( 3, 'v_BOL_No_To : ',v_BOL_No_To );
565:
566: xProgress := 'GASNOB-10-1000';
567: ece_flatfile_pvt.init_table(p_TransactionType,p_SHP_Interface,NULL,FALSE,v_SHP_Table,v_CrossRefTable);
560: End If;
561: End If;
562:
563: ec_debug.pl ( 3, 'v_BOL_No_From : ',v_BOL_No_From );
564: ec_debug.pl ( 3, 'v_BOL_No_To : ',v_BOL_No_To );
565:
566: xProgress := 'GASNOB-10-1000';
567: ece_flatfile_pvt.init_table(p_TransactionType,p_SHP_Interface,NULL,FALSE,v_SHP_Table,v_CrossRefTable);
568:
573:
574: v_CrossRefTable := v_SHP_Table;
575: xProgress := 'GASNOB-10-1020';
576: v_CrossRefCount := v_SHP_Table.COUNT;
577: ec_debug.pl ( 3, 'v_CrossRefCount: ', v_CrossRefCount );
578:
579: xProgress := 'GASNOB-10-1030';
580: ece_flatfile_pvt.init_table(p_TransactionType,p_STX_Interface,NULL,TRUE,v_STX_Table,v_CrossRefTable);
581:
776: xProgress := 'GASNOB-10-1360';
777: v_SHP_Select := v_SHP_Select ||
778: v_SHP_From ||
779: v_SHP_Where;
780: ec_debug.pl ( 3, 'v_SHP_Select: ', v_SHP_Select );
781:
782: v_STX_Select := v_STX_Select ||
783: v_STX_From ||
784: v_STX_Where;
781:
782: v_STX_Select := v_STX_Select ||
783: v_STX_From ||
784: v_STX_Where;
785: ec_debug.pl ( 3, 'v_STX_Select: ', v_STX_Select );
786:
787: v_ORD_Select := v_ORD_Select ||
788: v_ORD_From ||
789: v_ORD_Where;
786:
787: v_ORD_Select := v_ORD_Select ||
788: v_ORD_From ||
789: v_ORD_Where;
790: ec_debug.pl ( 3, 'v_ORD_Select: ', v_ORD_Select );
791:
792: v_OAC_Select := v_OAC_Select ||
793: v_OAC_From ||
794: v_OAC_Where;
791:
792: v_OAC_Select := v_OAC_Select ||
793: v_OAC_From ||
794: v_OAC_Where;
795: ec_debug.pl ( 3, 'v_OAC_Select: ', v_OAC_Select );
796:
797: v_OTX_Select := v_OTX_Select ||
798: v_OTX_From ||
799: v_OTX_Where;
796:
797: v_OTX_Select := v_OTX_Select ||
798: v_OTX_From ||
799: v_OTX_Where;
800: ec_debug.pl ( 3, 'v_OTX_Select: ', v_OTX_Select );
801:
802: v_DTL_Select := v_DTL_Select ||
803: v_DTL_From ||
804: v_DTL_Where;
801:
802: v_DTL_Select := v_DTL_Select ||
803: v_DTL_From ||
804: v_DTL_Where;
805: ec_debug.pl ( 3, 'v_DTL_Select: ', v_DTL_Select );
806:
807: v_DAC_Select := v_DAC_Select ||
808: v_DAC_From ||
809: v_DAC_Where;
806:
807: v_DAC_Select := v_DAC_Select ||
808: v_DAC_From ||
809: v_DAC_Where;
810: ec_debug.pl ( 3, 'v_DAC_Select: ', v_DAC_Select );
811:
812: v_DTX_Select := v_DTX_Select ||
813: v_DTX_From ||
814: v_DTX_Where;
811:
812: v_DTX_Select := v_DTX_Select ||
813: v_DTX_From ||
814: v_DTX_Where;
815: ec_debug.pl ( 3, 'v_DTX_Select: ', v_DTX_Select );
816:
817: v_ALL_Select := v_ALL_Select ||
818: v_ALL_From ||
819: v_ALL_Where;
1003:
1004: /* set counters */
1005: xProgress := 'GASNOB-10-1453';
1006: v_SHP_Count := v_SHP_table.COUNT;
1007: ec_debug.pl (3, 'v_SHP_Count: ', v_SHP_Count);
1008:
1009: xProgress := 'GASNOB-10-1454';
1010: v_STX_Count := v_STX_table.COUNT;
1011: ec_debug.pl (3, 'v_STX_Count: ', v_STX_Count);
1007: ec_debug.pl (3, 'v_SHP_Count: ', v_SHP_Count);
1008:
1009: xProgress := 'GASNOB-10-1454';
1010: v_STX_Count := v_STX_table.COUNT;
1011: ec_debug.pl (3, 'v_STX_Count: ', v_STX_Count);
1012:
1013: xProgress := 'GASNOB-10-1455';
1014: v_ORD_Count := v_ORD_table.COUNT;
1015: ec_debug.pl (3, 'v_ORD_Count: ', v_ORD_Count);
1011: ec_debug.pl (3, 'v_STX_Count: ', v_STX_Count);
1012:
1013: xProgress := 'GASNOB-10-1455';
1014: v_ORD_Count := v_ORD_table.COUNT;
1015: ec_debug.pl (3, 'v_ORD_Count: ', v_ORD_Count);
1016:
1017: xProgress := 'GASNOB-10-1456';
1018: v_OAC_Count := v_OAC_table.COUNT;
1019: ec_debug.pl (3, 'v_OAC_Count: ', v_OAC_Count);
1015: ec_debug.pl (3, 'v_ORD_Count: ', v_ORD_Count);
1016:
1017: xProgress := 'GASNOB-10-1456';
1018: v_OAC_Count := v_OAC_table.COUNT;
1019: ec_debug.pl (3, 'v_OAC_Count: ', v_OAC_Count);
1020:
1021: xProgress := 'GASNOB-10-1457';
1022: v_OTX_Count := v_OTX_table.COUNT;
1023: ec_debug.pl (3, 'v_OTX_Count: ', v_OTX_Count);
1019: ec_debug.pl (3, 'v_OAC_Count: ', v_OAC_Count);
1020:
1021: xProgress := 'GASNOB-10-1457';
1022: v_OTX_Count := v_OTX_table.COUNT;
1023: ec_debug.pl (3, 'v_OTX_Count: ', v_OTX_Count);
1024:
1025: xProgress := 'GASNOB-10-1458';
1026: v_DTL_Count := v_DTL_table.COUNT;
1027: ec_debug.pl (3, 'v_DTL_Count: ', v_DTL_Count);
1023: ec_debug.pl (3, 'v_OTX_Count: ', v_OTX_Count);
1024:
1025: xProgress := 'GASNOB-10-1458';
1026: v_DTL_Count := v_DTL_table.COUNT;
1027: ec_debug.pl (3, 'v_DTL_Count: ', v_DTL_Count);
1028:
1029: xProgress := 'GASNOB-10-1459';
1030: v_DAC_Count := v_DAC_table.COUNT;
1031: ec_debug.pl (3, 'v_DAC_Count: ', v_DAC_Count);
1027: ec_debug.pl (3, 'v_DTL_Count: ', v_DTL_Count);
1028:
1029: xProgress := 'GASNOB-10-1459';
1030: v_DAC_Count := v_DAC_table.COUNT;
1031: ec_debug.pl (3, 'v_DAC_Count: ', v_DAC_Count);
1032:
1033: xProgress := 'GASNOB-10-1460';
1034: v_DTX_Count := v_DTX_table.COUNT;
1035: ec_debug.pl (3, 'v_DTX_Count: ', v_DTX_Count);
1031: ec_debug.pl (3, 'v_DAC_Count: ', v_DAC_Count);
1032:
1033: xProgress := 'GASNOB-10-1460';
1034: v_DTX_Count := v_DTX_table.COUNT;
1035: ec_debug.pl (3, 'v_DTX_Count: ', v_DTX_Count);
1036:
1037: xProgress := 'GASNOB-10-1461';
1038: v_ALL_Count := v_ALL_table.COUNT;
1039: ec_debug.pl (3, 'v_ALL_Count: ', v_ALL_Count);
1035: ec_debug.pl (3, 'v_DTX_Count: ', v_DTX_Count);
1036:
1037: xProgress := 'GASNOB-10-1461';
1038: v_ALL_Count := v_ALL_table.COUNT;
1039: ec_debug.pl (3, 'v_ALL_Count: ', v_ALL_Count);
1040:
1041: /* */
1042: /* Define the data type for every column in each SELECT statement */
1043: /* so the database understands how to populate it. Using the */
1222: /* */
1223:
1224: xProgress := 'GASNOB-10-1660';
1225: v_BOL_ID := TO_NUMBER ( v_SHP_Table(v_BOL_ID_Position).value );
1226: ec_debug.pl ( 3, 'v_BOL_ID: ', v_BOL_ID );
1227:
1228: /* */
1229: /* Cross-reference all necessary columns in the PL/SQL table. */
1230: /* */
1248: INTO v_SHP_Key
1249: FROM sys.dual;
1250: EXCEPTION
1251: WHEN NO_DATA_FOUND THEN
1252: ec_debug.pl ( 0,
1253: 'EC',
1254: 'ECE_GET_NEXT_SEQ_FAILED',
1255: 'PROGRESS_LEVEL',
1256: xProgress,
1256: xProgress,
1257: 'SEQ',
1258: 'GML_GASNO_SHIPMENTS_S' );
1259: END;
1260: ec_debug.pl ( 3, 'v_SHP_Key: ', v_SHP_Key );
1261:
1262: xProgress := 'GASNOB-10-1820';
1263: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1264: p_TransactionType,
1326: /* the Ship Text table. */
1327: /* */
1328:
1329: v_STX_Key := v_SHP_Key;
1330: ec_debug.pl ( 3, 'v_STX_Key: ', v_STX_Key );
1331:
1332: xProgress := 'GASNOB-10-1890';
1333: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1334: p_TransactionType,
1391: 'Order_ID',
1392: V_Order_ID_Position );
1393:
1394: v_Order_ID := TO_NUMBER(v_ORD_Table(v_Order_ID_Position).value);
1395: ec_debug.pl ( 3, 'v_Order_ID: ', v_Order_ID );
1396:
1397: /* */
1398: /* Cross-reference all necessary columns in the PL/SQL table. */
1399: /* */
1417: INTO v_ORD_Key
1418: FROM sys.dual;
1419: EXCEPTION
1420: WHEN NO_DATA_FOUND THEN
1421: ec_debug.pl ( 0,
1422: 'EC',
1423: 'ECE_GET_NEXT_SEQ_FAILED',
1424: 'PROGRESS_LEVEL',
1425: xProgress,
1425: xProgress,
1426: 'SEQ',
1427: 'GML_GASNO_ORDERS_S' );
1428: END;
1429: ec_debug.pl ( 3, 'v_ORD_Key: ', v_ORD_Key );
1430:
1431: xProgress := 'GASNOB-10-1960';
1432: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1433: p_TransactionType,
1492: /* Use the same key value for Order DAC as for the Order table */
1493: /* */
1494:
1495: v_OAC_Key := v_ORD_Key;
1496: ec_debug.pl ( 3, 'v_OAC_Key: ', v_OAC_Key );
1497:
1498: xProgress := 'GASNOB-10-2040';
1499: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1500: p_TransactionType,
1558: /* Use the same key value for Order Text as for the Order table */
1559: /* */
1560:
1561: v_OTX_Key := v_ORD_Key;
1562: ec_debug.pl ( 3, 'v_OTX_Key: ', v_OTX_Key );
1563:
1564: xProgress := 'GASNOB-10-2120';
1565: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1566: p_TransactionType,
1623: 'Line_ID',
1624: V_Line_ID_Position );
1625:
1626: v_Line_ID := TO_NUMBER(v_DTL_Table(v_Line_ID_Position).value);
1627: ec_debug.pl ( 3, 'v_Line_ID: ', v_Line_ID );
1628:
1629: /* */
1630: /* Cross-reference all necessary columns in the PL/SQL table. */
1631: /* */
1649: INTO v_DTL_Key
1650: FROM sys.dual;
1651: EXCEPTION
1652: WHEN NO_DATA_FOUND THEN
1653: ec_debug.pl ( 0,
1654: 'EC',
1655: 'ECE_GET_NEXT_SEQ_FAILED',
1656: 'PROGRESS_LEVEL',
1657: xProgress,
1657: xProgress,
1658: 'SEQ',
1659: 'GML_GASNO_DETAILS_S' );
1660: END;
1661: ec_debug.pl ( 3, 'v_DTL_Key: ', v_DTL_Key );
1662:
1663: xProgress := 'GASNOB-10-2200';
1664: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1665: p_TransactionType,
1726: /* Use the same key value for Detail DAC as for the Detail table */
1727: /* */
1728:
1729: v_DAC_Key := v_DTL_Key;
1730: ec_debug.pl ( 3, 'v_DAC_Key: ', v_DAC_Key );
1731:
1732:
1733: xProgress := 'GASNOB-10-2280';
1734: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1797: /* Use the same key value for Detail Text as for the Detail table */
1798: /* */
1799:
1800: v_DTX_Key := v_DTL_Key;
1801: ec_debug.pl ( 3, 'v_DTX_Key: ', v_DTX_Key );
1802:
1803:
1804: xProgress := 'GASNOB-10-2360';
1805: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1869: /* Use the same key value for Allocations as for the Detail table */
1870: /* */
1871:
1872: v_ALL_Key := v_DTL_Key;
1873: ec_debug.pl ( 3, 'v_ALL_Key: ', v_ALL_Key );
1874:
1875:
1876: xProgress := 'GASNOB-10-2440';
1877: ece_extract_utils_pub.insert_into_interface_tbl ( p_RunID,
1925: dbms_sql.close_cursor ( v_DTX_Cursor );
1926: xProgress := 'GASNOB-10-2324';
1927: dbms_sql.close_cursor ( v_ALL_Cursor );
1928:
1929: ec_debug.pop ( 'GML_GASNO.Populate_Interface_Tables' );
1930:
1931: EXCEPTION
1932: WHEN OTHERS THEN
1933:
1930:
1931: EXCEPTION
1932: WHEN OTHERS THEN
1933:
1934: ec_debug.pl ( 0,
1935: 'EC',
1936: 'ECE_PROGRAM_ERROR',
1937: 'PROGRESS_LEVEL',
1938: xProgress );
1936: 'ECE_PROGRAM_ERROR',
1937: 'PROGRESS_LEVEL',
1938: xProgress );
1939:
1940: ec_debug.pl ( 0,
1941: 'EC',
1942: 'ECE_ERROR_MESSAGE',
1943: 'ERROR_MESSAGE',
1944: SQLERRM );
2181: Debug statements for the parameter values.
2182:
2183: */
2184:
2185: ec_debug.push ( 'GML_GASNO.Put_Data_To_Output_Table' );
2186: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2182:
2183: */
2184:
2185: ec_debug.push ( 'GML_GASNO.Put_Data_To_Output_Table' );
2186: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2183: */
2184:
2185: ec_debug.push ( 'GML_GASNO.Put_Data_To_Output_Table' );
2186: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2184:
2185: ec_debug.push ( 'GML_GASNO.Put_Data_To_Output_Table' );
2186: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2185: ec_debug.push ( 'GML_GASNO.Put_Data_To_Output_Table' );
2186: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2186: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2190: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2191: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2192: ec_debug.pl ( 3, 'p_Creation_Date_To: ', p_Creation_Date_To );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2193: ec_debug.pl ( 3, 'p_Customer_Name: ', p_Customer_Name );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2194: ec_debug.pl ( 3, 'p_RunID: ', p_RunID );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2202: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
2195: ec_debug.pl ( 3, 'p_OutputWidth: ', p_OutputWidth );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2202: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
2203: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
2196: ec_debug.pl ( 3, 'p_SHP_Interface: ', p_SHP_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2202: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
2203: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
2204: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
2197: ec_debug.pl ( 3, 'p_STX_Interface: ', p_STX_Interface );
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2202: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
2203: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
2204: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
2205:
2198: ec_debug.pl ( 3, 'p_ORD_Interface: ', p_ORD_Interface );
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2202: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
2203: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
2204: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
2205:
2206: /* */
2199: ec_debug.pl ( 3, 'p_OAC_Interface: ', p_OAC_Interface );
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2202: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
2203: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
2204: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
2205:
2206: /* */
2207: /* The Model/Option solution is handled by only including shippable */
2200: ec_debug.pl ( 3, 'p_OTX_Interface: ', p_OTX_Interface );
2201: ec_debug.pl ( 3, 'p_DTL_Interface: ', p_DTL_Interface );
2202: ec_debug.pl ( 3, 'p_DAC_Interface: ', p_DAC_Interface );
2203: ec_debug.pl ( 3, 'p_DTX_Interface: ', p_DTX_Interface );
2204: ec_debug.pl ( 3, 'p_ALL_Interface: ', p_ALL_Interface );
2205:
2206: /* */
2207: /* The Model/Option solution is handled by only including shippable */
2208: /* items in the transaction (via the view) -- no further processing */
2500: v_SHP_Select := v_SHP_Select ||
2501: v_SHP_From ||
2502: v_SHP_Where ||
2503: ' FOR UPDATE';
2504: ec_debug.pl ( 3, 'v_SHP_Select: ', v_SHP_Select );
2505:
2506: v_STX_Select := v_STX_Select ||
2507: v_STX_From ||
2508: v_STX_Where ||
2506: v_STX_Select := v_STX_Select ||
2507: v_STX_From ||
2508: v_STX_Where ||
2509: ' FOR UPDATE';
2510: ec_debug.pl ( 3, 'v_STX_Select: ', v_STX_Select );
2511:
2512:
2513: v_ORD_Select := v_ORD_Select ||
2514: v_ORD_From ||
2513: v_ORD_Select := v_ORD_Select ||
2514: v_ORD_From ||
2515: v_ORD_Where ||
2516: ' FOR UPDATE';
2517: ec_debug.pl ( 3, 'v_ORD_Select: ', v_ORD_Select );
2518:
2519: v_OAC_Select := v_OAC_Select ||
2520: v_OAC_From ||
2521: v_OAC_Where ||
2519: v_OAC_Select := v_OAC_Select ||
2520: v_OAC_From ||
2521: v_OAC_Where ||
2522: ' FOR UPDATE';
2523: ec_debug.pl ( 3, 'v_OAC_Select: ', v_OAC_Select );
2524:
2525: v_OTX_Select := v_OTX_Select ||
2526: v_OTX_From ||
2527: v_OTX_Where ||
2525: v_OTX_Select := v_OTX_Select ||
2526: v_OTX_From ||
2527: v_OTX_Where ||
2528: ' FOR UPDATE';
2529: ec_debug.pl ( 3, 'v_OTX_Select: ', v_OTX_Select );
2530:
2531: v_DTL_Select := v_DTL_Select ||
2532: v_DTL_From ||
2533: v_DTL_Where ||
2531: v_DTL_Select := v_DTL_Select ||
2532: v_DTL_From ||
2533: v_DTL_Where ||
2534: ' FOR UPDATE';
2535: ec_debug.pl ( 3, 'v_DTL_Select: ', v_DTL_Select );
2536:
2537: v_DAC_Select := v_DAC_Select ||
2538: v_DAC_From ||
2539: v_DAC_Where ||
2537: v_DAC_Select := v_DAC_Select ||
2538: v_DAC_From ||
2539: v_DAC_Where ||
2540: ' FOR UPDATE';
2541: ec_debug.pl ( 3, 'v_DAC_Select: ', v_DAC_Select );
2542:
2543: v_DTX_Select := v_DTX_Select ||
2544: v_DTX_From ||
2545: v_DTX_Where ||
2543: v_DTX_Select := v_DTX_Select ||
2544: v_DTX_From ||
2545: v_DTX_Where ||
2546: ' FOR UPDATE';
2547: ec_debug.pl ( 3, 'v_DTX_Select: ', v_DTX_Select );
2548:
2549: v_ALL_Select := v_ALL_Select ||
2550: v_ALL_From ||
2551: v_ALL_Where ||
2549: v_ALL_Select := v_ALL_Select ||
2550: v_ALL_From ||
2551: v_ALL_Where ||
2552: ' FOR UPDATE';
2553: ec_debug.pl ( 3, 'v_ALL_Select: ', v_ALL_Select );
2554:
2555: /* */
2556: /* Build the DELETE clauses for each interface and extension table. */
2557: /* */
2559: xProgress := 'GASNOB-40-1110';
2560: v_SHP_Delete := 'DELETE FROM ' ||
2561: p_SHP_Interface ||
2562: ' WHERE ROWID = :Row_ID';
2563: ec_debug.pl ( 3, 'v_SHP_Delete: ', v_SHP_Delete );
2564:
2565: v_SHP_XDelete := 'DELETE FROM ' ||
2566: v_SHP_XInterface ||
2567: ' WHERE ROWID = :Row_ID';
2564:
2565: v_SHP_XDelete := 'DELETE FROM ' ||
2566: v_SHP_XInterface ||
2567: ' WHERE ROWID = :Row_ID';
2568: ec_debug.pl ( 3, 'v_SHP_XDelete: ', v_SHP_XDelete );
2569:
2570: v_STX_Delete := 'DELETE FROM ' ||
2571: p_STX_Interface ||
2572: ' WHERE ROWID = :Row_ID';
2569:
2570: v_STX_Delete := 'DELETE FROM ' ||
2571: p_STX_Interface ||
2572: ' WHERE ROWID = :Row_ID';
2573: ec_debug.pl ( 3, 'v_STX_Delete: ', v_STX_Delete );
2574:
2575: v_STX_XDelete := 'DELETE FROM ' ||
2576: v_STX_XInterface ||
2577: ' WHERE ROWID = :Row_ID';
2574:
2575: v_STX_XDelete := 'DELETE FROM ' ||
2576: v_STX_XInterface ||
2577: ' WHERE ROWID = :Row_ID';
2578: ec_debug.pl ( 3, 'v_STX_XDelete: ', v_STX_XDelete );
2579:
2580: v_ORD_Delete := 'DELETE FROM ' ||
2581: p_ORD_Interface ||
2582: ' WHERE ROWID = :Row_ID';
2579:
2580: v_ORD_Delete := 'DELETE FROM ' ||
2581: p_ORD_Interface ||
2582: ' WHERE ROWID = :Row_ID';
2583: ec_debug.pl ( 3, 'v_ORD_Delete: ', v_ORD_Delete );
2584:
2585: v_ORD_XDelete := 'DELETE FROM ' ||
2586: v_ORD_XInterface ||
2587: ' WHERE ROWID = :Row_ID';
2584:
2585: v_ORD_XDelete := 'DELETE FROM ' ||
2586: v_ORD_XInterface ||
2587: ' WHERE ROWID = :Row_ID';
2588: ec_debug.pl ( 3, 'v_ORD_XDelete: ', v_ORD_XDelete );
2589:
2590: v_OAC_Delete := 'DELETE FROM ' ||
2591: p_OAC_Interface ||
2592: ' WHERE ROWID = :Row_ID';
2589:
2590: v_OAC_Delete := 'DELETE FROM ' ||
2591: p_OAC_Interface ||
2592: ' WHERE ROWID = :Row_ID';
2593: ec_debug.pl ( 3, 'v_OAC_Delete: ', v_OAC_Delete );
2594:
2595: v_OAC_XDelete := 'DELETE FROM ' ||
2596: v_OAC_XInterface ||
2597: ' WHERE ROWID = :Row_ID';
2594:
2595: v_OAC_XDelete := 'DELETE FROM ' ||
2596: v_OAC_XInterface ||
2597: ' WHERE ROWID = :Row_ID';
2598: ec_debug.pl ( 3, 'v_OAC_XDelete: ', v_OAC_XDelete );
2599:
2600: v_OTX_Delete := 'DELETE FROM ' ||
2601: p_OTX_Interface ||
2602: ' WHERE ROWID = :Row_ID';
2599:
2600: v_OTX_Delete := 'DELETE FROM ' ||
2601: p_OTX_Interface ||
2602: ' WHERE ROWID = :Row_ID';
2603: ec_debug.pl ( 3, 'v_OTX_Delete: ', v_OTX_Delete );
2604:
2605: v_OTX_XDelete := 'DELETE FROM ' ||
2606: v_OTX_XInterface ||
2607: ' WHERE ROWID = :Row_ID';
2604:
2605: v_OTX_XDelete := 'DELETE FROM ' ||
2606: v_OTX_XInterface ||
2607: ' WHERE ROWID = :Row_ID';
2608: ec_debug.pl ( 3, 'v_OTX_XDelete: ', v_OTX_XDelete );
2609:
2610: v_DTL_Delete := 'DELETE FROM ' ||
2611: p_DTL_Interface ||
2612: ' WHERE ROWID = :Row_ID';
2609:
2610: v_DTL_Delete := 'DELETE FROM ' ||
2611: p_DTL_Interface ||
2612: ' WHERE ROWID = :Row_ID';
2613: ec_debug.pl ( 3, 'v_DTL_Delete: ', v_DTL_Delete );
2614:
2615: v_DTL_XDelete := 'DELETE FROM ' ||
2616: v_DTL_XInterface ||
2617: ' WHERE ROWID = :Row_ID';
2614:
2615: v_DTL_XDelete := 'DELETE FROM ' ||
2616: v_DTL_XInterface ||
2617: ' WHERE ROWID = :Row_ID';
2618: ec_debug.pl ( 3, 'v_DTL_XDelete: ', v_DTL_XDelete );
2619:
2620: v_DAC_Delete := 'DELETE FROM ' ||
2621: p_DAC_Interface ||
2622: ' WHERE ROWID = :Row_ID';
2619:
2620: v_DAC_Delete := 'DELETE FROM ' ||
2621: p_DAC_Interface ||
2622: ' WHERE ROWID = :Row_ID';
2623: ec_debug.pl ( 3, 'v_DAC_Delete: ', v_DAC_Delete );
2624:
2625: v_DAC_XDelete := 'DELETE FROM ' ||
2626: v_DAC_XInterface ||
2627: ' WHERE ROWID = :Row_ID';
2624:
2625: v_DAC_XDelete := 'DELETE FROM ' ||
2626: v_DAC_XInterface ||
2627: ' WHERE ROWID = :Row_ID';
2628: ec_debug.pl ( 3, 'v_DAC_XDelete: ', v_DAC_XDelete );
2629:
2630: v_DTX_Delete := 'DELETE FROM ' ||
2631: p_DTX_Interface ||
2632: ' WHERE ROWID = :Row_ID';
2629:
2630: v_DTX_Delete := 'DELETE FROM ' ||
2631: p_DTX_Interface ||
2632: ' WHERE ROWID = :Row_ID';
2633: ec_debug.pl ( 3, 'v_DTX_Delete: ', v_DTX_Delete );
2634:
2635: v_DTX_XDelete := 'DELETE FROM ' ||
2636: v_DTX_XInterface ||
2637: ' WHERE ROWID = :Row_ID';
2634:
2635: v_DTX_XDelete := 'DELETE FROM ' ||
2636: v_DTX_XInterface ||
2637: ' WHERE ROWID = :Row_ID';
2638: ec_debug.pl ( 3, 'v_DTX_XDelete: ', v_DTX_XDelete );
2639:
2640: v_ALL_Delete := 'DELETE FROM ' ||
2641: p_ALL_Interface ||
2642: ' WHERE ROWID = :Row_ID';
2639:
2640: v_ALL_Delete := 'DELETE FROM ' ||
2641: p_ALL_Interface ||
2642: ' WHERE ROWID = :Row_ID';
2643: ec_debug.pl ( 3, 'v_ALL_Delete: ', v_ALL_Delete );
2644:
2645: v_ALL_XDelete := 'DELETE FROM ' ||
2646: v_ALL_XInterface ||
2647: ' WHERE ROWID = :Row_ID';
2644:
2645: v_ALL_XDelete := 'DELETE FROM ' ||
2646: v_ALL_XInterface ||
2647: ' WHERE ROWID = :Row_ID';
2648: ec_debug.pl ( 3, 'v_ALL_XDelete: ', v_ALL_XDelete );
2649:
2650: /* */
2651: /* Open a cursor for each SELECT and DELETE call. This tells */
2652: /* the database to reserve space for the data returned by the */
3044: /* */
3045:
3046: xProgress := 'GASNOB-40-1410';
3047: v_SHP_Count := v_SHP_Table.COUNT;
3048: ec_debug.pl ( 3, 'v_SHP_Count: ', v_SHP_Count );
3049:
3050: xProgress := 'GASNOB-40-1412';
3051: v_STX_Count :=v_STX_Table.COUNT;
3052: ec_debug.pl ( 3, 'v_STX_Count: ', v_STX_Count );
3048: ec_debug.pl ( 3, 'v_SHP_Count: ', v_SHP_Count );
3049:
3050: xProgress := 'GASNOB-40-1412';
3051: v_STX_Count :=v_STX_Table.COUNT;
3052: ec_debug.pl ( 3, 'v_STX_Count: ', v_STX_Count );
3053:
3054: xProgress := 'GASNOB-40-1414';
3055: v_ORD_Count := v_ORD_Table.COUNT;
3056: ec_debug.pl ( 3, 'v_ORD_Count: ', v_ORD_Count );
3052: ec_debug.pl ( 3, 'v_STX_Count: ', v_STX_Count );
3053:
3054: xProgress := 'GASNOB-40-1414';
3055: v_ORD_Count := v_ORD_Table.COUNT;
3056: ec_debug.pl ( 3, 'v_ORD_Count: ', v_ORD_Count );
3057:
3058: xProgress := 'GASNOB-40-1416';
3059: v_OAC_Count := v_OAC_Table.COUNT;
3060: ec_debug.pl ( 3, 'v_OAC_Count: ', v_OAC_Count );
3056: ec_debug.pl ( 3, 'v_ORD_Count: ', v_ORD_Count );
3057:
3058: xProgress := 'GASNOB-40-1416';
3059: v_OAC_Count := v_OAC_Table.COUNT;
3060: ec_debug.pl ( 3, 'v_OAC_Count: ', v_OAC_Count );
3061:
3062: xProgress := 'GASNOB-40-1418';
3063: v_OTX_Count := v_OTX_Table.COUNT;
3064: ec_debug.pl ( 3, 'v_OTX_Count: ', v_OTX_Count );
3060: ec_debug.pl ( 3, 'v_OAC_Count: ', v_OAC_Count );
3061:
3062: xProgress := 'GASNOB-40-1418';
3063: v_OTX_Count := v_OTX_Table.COUNT;
3064: ec_debug.pl ( 3, 'v_OTX_Count: ', v_OTX_Count );
3065:
3066: xProgress := 'GASNOB-40-1420';
3067: v_DTL_Count := v_DTL_Table.COUNT;
3068: ec_debug.pl ( 3, 'v_DTL_Count: ', v_DTL_Count );
3064: ec_debug.pl ( 3, 'v_OTX_Count: ', v_OTX_Count );
3065:
3066: xProgress := 'GASNOB-40-1420';
3067: v_DTL_Count := v_DTL_Table.COUNT;
3068: ec_debug.pl ( 3, 'v_DTL_Count: ', v_DTL_Count );
3069:
3070: xProgress := 'GASNOB-40-1422';
3071: v_DAC_Count := v_DAC_Table.COUNT;
3072: ec_debug.pl ( 3, 'v_DAC_Count: ', v_DAC_Count );
3068: ec_debug.pl ( 3, 'v_DTL_Count: ', v_DTL_Count );
3069:
3070: xProgress := 'GASNOB-40-1422';
3071: v_DAC_Count := v_DAC_Table.COUNT;
3072: ec_debug.pl ( 3, 'v_DAC_Count: ', v_DAC_Count );
3073:
3074: xProgress := 'GASNOB-40-1424';
3075: v_DTX_Count := v_DTX_Table.COUNT;
3076: ec_debug.pl ( 3, 'v_DTX_Count: ', v_DTX_Count );
3072: ec_debug.pl ( 3, 'v_DAC_Count: ', v_DAC_Count );
3073:
3074: xProgress := 'GASNOB-40-1424';
3075: v_DTX_Count := v_DTX_Table.COUNT;
3076: ec_debug.pl ( 3, 'v_DTX_Count: ', v_DTX_Count );
3077:
3078: xProgress := 'GASNOB-40-1424';
3079: v_ALL_Count := v_ALL_Table.COUNT;
3080: ec_debug.pl ( 3, 'v_ALL_Count: ', v_ALL_Count );
3076: ec_debug.pl ( 3, 'v_DTX_Count: ', v_DTX_Count );
3077:
3078: xProgress := 'GASNOB-40-1424';
3079: v_ALL_Count := v_ALL_Table.COUNT;
3080: ec_debug.pl ( 3, 'v_ALL_Count: ', v_ALL_Count );
3081:
3082: /* */
3083: /* Define the data type for every column in each SELECT statement */
3084: /* so the database understands how to populate it. Using the */
3753: v_FileCommonKey := v_RecordCommonKey0 ||
3754: v_RecordCommonKey1 ||
3755: v_RecordCommonKey2 ||
3756: v_RecordCommonKey3;
3757: ec_debug.pl ( 3, 'v_FileCommonKey: ',v_FileCommonKey );
3758:
3759: /* */
3760: /* Write the record to the output table. */
3761: /* */
3942: v_FileCommonKey := v_RecordCommonKey0 ||
3943: v_RecordCommonKey1 ||
3944: v_RecordCommonKey2 ||
3945: v_RecordCommonKey3;
3946: ec_debug.pl ( 3, 'v_FileCommonKey: ',v_FileCommonKey );
3947:
3948: /* */
3949: /* Write the record to the output table. */
3950: /* */
3987: v_Line_ID_Position );
3988:
3989: xProgress := 'GASNOB-40-2660';
3990: v_Line_Id := TO_NUMBER ( v_DTL_Table(v_Line_Id_Position).value );
3991: ec_debug.pl ( 3, 'v_Line_Id: ', v_Line_Id );
3992:
3993: xProgress := 'GASNOB-40-2670';
3994: dbms_sql.bind_variable ( v_DAC_SelectCursor,
3995: 'RUN_ID',
4037: v_FileCommonKey := v_RecordCommonKey0 ||
4038: v_RecordCommonKey1 ||
4039: v_RecordCommonKey2 ||
4040: v_RecordCommonKey3;
4041: ec_debug.pl ( 3, 'v_FileCommonKey: ', v_FileCommonKey );
4042:
4043: /* */
4044: /* Write the record to the output table. */
4045: /* */
4117: v_FileCommonKey := v_RecordCommonKey0 ||
4118: v_RecordCommonKey1 ||
4119: v_RecordCommonKey2 ||
4120: v_RecordCommonKey3;
4121: ec_debug.pl ( 3, 'v_FileCommonKey: ', v_FileCommonKey );
4122:
4123: /* */
4124: /* Write the record to the output table. */
4125: /* */
4197: v_FileCommonKey := v_RecordCommonKey0 ||
4198: v_RecordCommonKey1 ||
4199: v_RecordCommonKey2 ||
4200: v_RecordCommonKey3;
4201: ec_debug.pl ( 3, 'v_FileCommonKey: ', v_FileCommonKey );
4202:
4203: /* */
4204: /* Write the record to the output table. */
4205: /* */
4318:
4319: EXCEPTION
4320: WHEN OTHERS THEN
4321:
4322: ec_debug.pl ( 0,
4323: 'EC',
4324: 'ECE_PROGRAM_ERROR',
4325: 'PROGRESS_LEVEL',
4326: xProgress );
4324: 'ECE_PROGRAM_ERROR',
4325: 'PROGRESS_LEVEL',
4326: xProgress );
4327:
4328: ec_debug.pl ( 0,
4329: 'EC',
4330: 'ECE_ERROR_MESSAGE',
4331: 'ERROR_MESSAGE',
4332: SQLERRM );