[Home] [Help]
62: WHERE run_id = iRun_id
63: ORDER BY line_id;
64:
65: BEGIN
66: ec_debug.enable_debug(cdebug_mode);
67: ec_debug.push('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
68: ec_debug.pl(3,'cOutputPath: ' ,cOutputPath);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
63: ORDER BY line_id;
64:
65: BEGIN
66: ec_debug.enable_debug(cdebug_mode);
67: ec_debug.push('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
68: ec_debug.pl(3,'cOutputPath: ' ,cOutputPath);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
64:
65: BEGIN
66: ec_debug.enable_debug(cdebug_mode);
67: ec_debug.push('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
68: ec_debug.pl(3,'cOutputPath: ' ,cOutputPath);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
65: BEGIN
66: ec_debug.enable_debug(cdebug_mode);
67: ec_debug.push('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
68: ec_debug.pl(3,'cOutputPath: ' ,cOutputPath);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
66: ec_debug.enable_debug(cdebug_mode);
67: ec_debug.push('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
68: ec_debug.pl(3,'cOutputPath: ' ,cOutputPath);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
74: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
67: ec_debug.push('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
68: ec_debug.pl(3,'cOutputPath: ' ,cOutputPath);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
74: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
75: ec_debug.pl(3,'cTransaction_Number: ',cTransaction_Number);
68: ec_debug.pl(3,'cOutputPath: ' ,cOutputPath);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
74: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
75: ec_debug.pl(3,'cTransaction_Number: ',cTransaction_Number);
76: ec_debug.pl(3,'cdebug_mode: ' ,cdebug_mode);
69: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
74: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
75: ec_debug.pl(3,'cTransaction_Number: ',cTransaction_Number);
76: ec_debug.pl(3,'cdebug_mode: ' ,cdebug_mode);
77:
70: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
74: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
75: ec_debug.pl(3,'cTransaction_Number: ',cTransaction_Number);
76: ec_debug.pl(3,'cdebug_mode: ' ,cdebug_mode);
77:
78: /* Check to see if the transaction is enabled. If not, abort */
71: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
74: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
75: ec_debug.pl(3,'cTransaction_Number: ',cTransaction_Number);
76: ec_debug.pl(3,'cdebug_mode: ' ,cdebug_mode);
77:
78: /* Check to see if the transaction is enabled. If not, abort */
79: xProgress := 'INO-10-1000';
72: ec_debug.pl(3,'cCustomer_Name: ' ,cCustomer_Name);
73: ec_debug.pl(3,'cSite_Use_Code: ' ,cSite_Use_Code);
74: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
75: ec_debug.pl(3,'cTransaction_Number: ',cTransaction_Number);
76: ec_debug.pl(3,'cdebug_mode: ' ,cdebug_mode);
77:
78: /* Check to see if the transaction is enabled. If not, abort */
79: xProgress := 'INO-10-1000';
80: fnd_profile.get('ECE_' || cTransaction_Type || '_ENABLED',cEnabled);
91: FROM DUAL;
92:
93: EXCEPTION
94: WHEN NO_DATA_FOUND THEN
95: ec_debug.pl(1,
96: 'EC',
97: 'ECE_GET_NEXT_SEQ_FAILED',
98: 'PROGRESS_LEVEL',
99: xProgress,
100: 'SEQ',
101: 'ECE_OUTPUT_RUNS_S');
102:
103: END;
104: ec_debug.pl(3,'iRun_id: ',iRun_id);
105:
106: xProgress := 'INO-10-1020';
107: ec_debug.pl(0,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
108:
103: END;
104: ec_debug.pl(3,'iRun_id: ',iRun_id);
105:
106: xProgress := 'INO-10-1020';
107: ec_debug.pl(0,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
108:
109: xProgress := 'INO-10-1030';
110: BEGIN
111: SELECT SYSDATE INTO dTransaction_date
112: FROM DUAL;
113:
114: EXCEPTION
115: WHEN NO_DATA_FOUND THEN
116: ec_debug.pl(1,
117: 'EC',
118: 'ECE_GET_SYSDATE_FAILED',
119: 'PROGRESS_LEVEL',
120: xProgress,
121: 'TABLE_NAME',
122: 'DUAL');
123:
124: END;
125: ec_debug.pl(3,'dTransaction_date: ',dTransaction_date);
126:
127: xProgress := 'INO-10-1040';
128: ece_ar_transaction.populate_ar_trx(
129: cCommunication_Method,
150: WHERE run_id = iRun_id;
151:
152: EXCEPTION
153: WHEN NO_DATA_FOUND THEN
154: ec_debug.pl(1,
155: 'EC',
156: 'ECE_GET_COUNT_FAILED',
157: 'PROGRESS_LEVEL',
158: xProgress,
159: 'TABLE_NAME',
160: 'ECE_OUTPUT');
161:
162: END;
163: ec_debug.pl(3,'xHeaderCount: ',xHeaderCount);
164:
165: xProgress := 'INO-10-1045';
166: ec_debug.pl(0,'EC','ECE_TRANSACTIONS_PROCESSED','NUMBER_OF_TRX',xHeaderCount);
167:
162: END;
163: ec_debug.pl(3,'xHeaderCount: ',xHeaderCount);
164:
165: xProgress := 'INO-10-1045';
166: ec_debug.pl(0,'EC','ECE_TRANSACTIONS_PROCESSED','NUMBER_OF_TRX',xHeaderCount);
167:
168: xProgress := 'INO-10-1050';
169: ece_ar_transaction.put_data_to_output_table(
170: cCommunication_Method,
194: xProgress := 'INO-10-1070';
195: OPEN c_output;
196: LOOP
197: FETCH c_output INTO l_line_text;
198: ec_debug.pl(3,'l_line_text: ',l_line_text);
199: if (c_output%ROWCOUNT > 0) then
200: if (NOT utl_file.is_open(uFile_type)) then
201: uFile_type := utl_file.fopen(cOutputPath,
202: cFilename,
225: DELETE FROM ece_output
226: WHERE run_id = iRun_id;
227:
228: IF SQL%NOTFOUND THEN
229: ec_debug.pl(1,
230: 'EC',
231: 'ECE_NO_ROW_DELETED',
232: 'PROGRESS_LEVEL',
233: xProgress,
242: l_status,
243: l_industry,
244: l_schema);
245: l_automotive_status := l_status;
246: ec_debug.pl(3,'l_automotive_status: ',l_automotive_status);
247:
248: IF l_automotive_status = 'I' THEN
249: xProgress := 'INO-10-1120';
250: iRequestID := fnd_request.submit_request(Application => 'VEH',
257: Argument3 => cFilename );
258: END IF;
259:
260: IF ec_mapping_utils.ec_get_trans_upgrade_status(cTransaction_Type) = 'U' THEN
261: ec_debug.pl(0,'EC','ECE_REC_TRANS_PENDING',NULL);
262: retcode := 1;
263: END IF;
264:
265: ec_debug.pop('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
261: ec_debug.pl(0,'EC','ECE_REC_TRANS_PENDING',NULL);
262: retcode := 1;
263: END IF;
264:
265: ec_debug.pop('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
266: ec_debug.disable_debug;
267:
268: COMMIT;
269:
262: retcode := 1;
263: END IF;
264:
265: ec_debug.pop('ECE_AR_TRANSACTION.EXTRACT_INO_OUTBOUND');
266: ec_debug.disable_debug;
267:
268: COMMIT;
269:
270: EXCEPTION
268: COMMIT;
269:
270: EXCEPTION
271: WHEN ece_transaction_disabled THEN
272: ec_debug.pl(0,'EC','ECE_TRANSACTION_DISABLED','TRANSACTION',cTransaction_type);
273: retcode := '1';
274: ec_debug.disable_debug;
275: ROLLBACK;
276:
270: EXCEPTION
271: WHEN ece_transaction_disabled THEN
272: ec_debug.pl(0,'EC','ECE_TRANSACTION_DISABLED','TRANSACTION',cTransaction_type);
273: retcode := '1';
274: ec_debug.disable_debug;
275: ROLLBACK;
276:
277: WHEN utl_file.write_error THEN
278: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
274: ec_debug.disable_debug;
275: ROLLBACK;
276:
277: WHEN utl_file.write_error THEN
278: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
279: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
280:
281: retcode := 2;
282: ec_debug.disable_debug;
275: ROLLBACK;
276:
277: WHEN utl_file.write_error THEN
278: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
279: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
280:
281: retcode := 2;
282: ec_debug.disable_debug;
283: ROLLBACK;
278: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
279: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
280:
281: retcode := 2;
282: ec_debug.disable_debug;
283: ROLLBACK;
284:
285: WHEN utl_file.invalid_path THEN
286: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
282: ec_debug.disable_debug;
283: ROLLBACK;
284:
285: WHEN utl_file.invalid_path THEN
286: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
287: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
288:
289: retcode := 2;
290: ec_debug.disable_debug;
283: ROLLBACK;
284:
285: WHEN utl_file.invalid_path THEN
286: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
287: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
288:
289: retcode := 2;
290: ec_debug.disable_debug;
291: ROLLBACK;
286: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
287: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
288:
289: retcode := 2;
290: ec_debug.disable_debug;
291: ROLLBACK;
292:
293: WHEN utl_file.invalid_operation THEN
294: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
290: ec_debug.disable_debug;
291: ROLLBACK;
292:
293: WHEN utl_file.invalid_operation THEN
294: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
295: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
296:
297: retcode := 2;
298: ec_debug.disable_debug;
291: ROLLBACK;
292:
293: WHEN utl_file.invalid_operation THEN
294: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
295: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
296:
297: retcode := 2;
298: ec_debug.disable_debug;
299: ROLLBACK;
294: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
295: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
296:
297: retcode := 2;
298: ec_debug.disable_debug;
299: ROLLBACK;
300:
301: WHEN OTHERS THEN
302: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
298: ec_debug.disable_debug;
299: ROLLBACK;
300:
301: WHEN OTHERS THEN
302: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
303: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
304:
305: retcode := 2;
306: ec_debug.disable_debug;
299: ROLLBACK;
300:
301: WHEN OTHERS THEN
302: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
303: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
304:
305: retcode := 2;
306: ec_debug.disable_debug;
307: ROLLBACK;
302: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
303: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
304:
305: retcode := 2;
306: ec_debug.disable_debug;
307: ROLLBACK;
308:
309: END extract_ino_outbound;
310:
317: i INTEGER := 0;
318:
319: BEGIN
320:
321: ec_debug.push ( 'ECE_AR_TRANSACTION.DEFINE_INTERFACE_COLUMN' );
322: ec_debug.pl ( 3, 'c: ', c );
323: ec_debug.pl ( 3, 'col: ',col );
324: ec_debug.pl ( 3, 'col_size: ',col_size );
325:
318:
319: BEGIN
320:
321: ec_debug.push ( 'ECE_AR_TRANSACTION.DEFINE_INTERFACE_COLUMN' );
322: ec_debug.pl ( 3, 'c: ', c );
323: ec_debug.pl ( 3, 'col: ',col );
324: ec_debug.pl ( 3, 'col_size: ',col_size );
325:
326: xProgress := '2000-10';
319: BEGIN
320:
321: ec_debug.push ( 'ECE_AR_TRANSACTION.DEFINE_INTERFACE_COLUMN' );
322: ec_debug.pl ( 3, 'c: ', c );
323: ec_debug.pl ( 3, 'col: ',col );
324: ec_debug.pl ( 3, 'col_size: ',col_size );
325:
326: xProgress := '2000-10';
327: FOR k IN 1..tbl.count
320:
321: ec_debug.push ( 'ECE_AR_TRANSACTION.DEFINE_INTERFACE_COLUMN' );
322: ec_debug.pl ( 3, 'c: ', c );
323: ec_debug.pl ( 3, 'col: ',col );
324: ec_debug.pl ( 3, 'col_size: ',col_size );
325:
326: xProgress := '2000-10';
327: FOR k IN 1..tbl.count
328: LOOP
331: col,
332: col_size );
333: END LOOP;
334:
335: ec_debug.pop('ECE_AR_TRANSACTION.DEFINE_INTERFACE_COLUMN');
336:
337: EXCEPTION
338: WHEN OTHERS THEN
339:
336:
337: EXCEPTION
338: WHEN OTHERS THEN
339:
340: ec_debug.pl ( 0,
341: 'EC',
342: 'ECE_PROGRAM_ERROR',
343: 'PROGRESS_LEVEL',
344: xProgress );
342: 'ECE_PROGRAM_ERROR',
343: 'PROGRESS_LEVEL',
344: xProgress );
345:
346: ec_debug.pl ( 0,
347: 'EC',
348: 'ECE_ERROR_MESSAGE',
349: 'ERROR_MESSAGE',
350: SQLERRM );
367: l_Print_Flag VARCHAR2(1);
368:
369: BEGIN
370:
371: ec_debug.push('ECE_AR_TRANSACTION.UPDATE_AR');
372: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
373: ec_debug.pl ( 3, 'Transaction_ID: ', Transaction_ID );
374: ec_debug.pl ( 3, 'Installment_Number: ', Installment_Number );
375: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ',Multiple_Installments_Flag );
368:
369: BEGIN
370:
371: ec_debug.push('ECE_AR_TRANSACTION.UPDATE_AR');
372: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
373: ec_debug.pl ( 3, 'Transaction_ID: ', Transaction_ID );
374: ec_debug.pl ( 3, 'Installment_Number: ', Installment_Number );
375: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ',Multiple_Installments_Flag );
376: ec_debug.pl ( 3, 'Maximum_Installment_Number: ',Maximum_Installment_Number );
369: BEGIN
370:
371: ec_debug.push('ECE_AR_TRANSACTION.UPDATE_AR');
372: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
373: ec_debug.pl ( 3, 'Transaction_ID: ', Transaction_ID );
374: ec_debug.pl ( 3, 'Installment_Number: ', Installment_Number );
375: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ',Multiple_Installments_Flag );
376: ec_debug.pl ( 3, 'Maximum_Installment_Number: ',Maximum_Installment_Number );
377: ec_debug.pl ( 3, 'Update_Date: ',Update_Date );
370:
371: ec_debug.push('ECE_AR_TRANSACTION.UPDATE_AR');
372: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
373: ec_debug.pl ( 3, 'Transaction_ID: ', Transaction_ID );
374: ec_debug.pl ( 3, 'Installment_Number: ', Installment_Number );
375: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ',Multiple_Installments_Flag );
376: ec_debug.pl ( 3, 'Maximum_Installment_Number: ',Maximum_Installment_Number );
377: ec_debug.pl ( 3, 'Update_Date: ',Update_Date );
378:
371: ec_debug.push('ECE_AR_TRANSACTION.UPDATE_AR');
372: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
373: ec_debug.pl ( 3, 'Transaction_ID: ', Transaction_ID );
374: ec_debug.pl ( 3, 'Installment_Number: ', Installment_Number );
375: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ',Multiple_Installments_Flag );
376: ec_debug.pl ( 3, 'Maximum_Installment_Number: ',Maximum_Installment_Number );
377: ec_debug.pl ( 3, 'Update_Date: ',Update_Date );
378:
379: xProgress := '2000-20';
372: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
373: ec_debug.pl ( 3, 'Transaction_ID: ', Transaction_ID );
374: ec_debug.pl ( 3, 'Installment_Number: ', Installment_Number );
375: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ',Multiple_Installments_Flag );
376: ec_debug.pl ( 3, 'Maximum_Installment_Number: ',Maximum_Installment_Number );
377: ec_debug.pl ( 3, 'Update_Date: ',Update_Date );
378:
379: xProgress := '2000-20';
380: BEGIN /*2945057*/
373: ec_debug.pl ( 3, 'Transaction_ID: ', Transaction_ID );
374: ec_debug.pl ( 3, 'Installment_Number: ', Installment_Number );
375: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ',Multiple_Installments_Flag );
376: ec_debug.pl ( 3, 'Maximum_Installment_Number: ',Maximum_Installment_Number );
377: ec_debug.pl ( 3, 'Update_Date: ',Update_Date );
378:
379: xProgress := '2000-20';
380: BEGIN /*2945057*/
381: SELECT edi_flag,
392: AND etd.document_type = Update_AR.Document_Type
393: AND rct.customer_trx_id = Update_AR.Transaction_ID;
394: EXCEPTION
395: WHEN NO_DATA_FOUND THEN
396: ec_debug.pl ( 1,
397: 'EC',
398: 'ECE_NO_ROW_SELECTED',
399: 'PROGRESS_LEVEL',
400: xProgress,
421: THEN
422: l_Update_Value := 'PR';
423: END IF;
424:
425: ec_debug.pl ( 3, 'L_UPDATE_VALUE: ',l_Update_Value );
426:
427: xProgress := '2010-20';
428: UPDATE ra_customer_trx
429: SET last_update_date = SYSDATE,
449: WHERE customer_trx_id = Update_AR.Transaction_ID;
450:
451: IF SQL%NOTFOUND
452: THEN
453: ec_debug.pl (0,
454: 'EC',
455: 'ECE_NO_ROW_UPDATED',
456: 'PROGRESS_LEVEL',
457: xProgress,
477: RAISE_APPLICATION_ERROR(-20000,'Record changed by another user.');
478: END IF;
479: */
480:
481: ec_debug.pop('ECE_AR_TRANSACTION.UPDATE_AR');
482: EXCEPTION
483: WHEN OTHERS THEN
484:
485: ec_debug.pl ( 0,
481: ec_debug.pop('ECE_AR_TRANSACTION.UPDATE_AR');
482: EXCEPTION
483: WHEN OTHERS THEN
484:
485: ec_debug.pl ( 0,
486: 'EC',
487: 'ECE_PROGRAM_ERROR',
488: 'PROGRESS_LEVEL',
489: xProgress );
487: 'ECE_PROGRAM_ERROR',
488: 'PROGRESS_LEVEL',
489: xProgress );
490:
491: ec_debug.pl ( 0,
492: 'EC',
493: 'ECE_ERROR_MESSAGE',
494: 'ERROR_MESSAGE',
495: SQLERRM );
517: dummy NUMBER;
518:
519: BEGIN
520:
521: ec_debug.push('ECE_AR_TRANSACTION.GET_REMIT_ADDRESS');
522: ec_debug.pl ( 3, 'customer_trx_id: ', Customer_Trx_ID );
523:
524: xProgress := '2000-30';
525: BEGIN
518:
519: BEGIN
520:
521: ec_debug.push('ECE_AR_TRANSACTION.GET_REMIT_ADDRESS');
522: ec_debug.pl ( 3, 'customer_trx_id: ', Customer_Trx_ID );
523:
524: xProgress := '2000-30';
525: BEGIN
526: SELECT remit_to_address_id INTO l_Remit_To_Address_ID
527: FROM RA_CUSTOMER_TRX
528: WHERE CUSTOMER_TRX_ID = Get_Remit_Address.Customer_Trx_ID;
529: EXCEPTION
530: WHEN NO_DATA_FOUND THEN
531: ec_debug.pl ( 1,
532: 'EC',
533: 'ECE_NO_ROW_SELECTED',
534: 'PROGRESS_LEVEL',
535: xProgress,
538: 'TABLE_NAME',
539: 'RA_CUSTOMER_TRX' );
540: END;
541:
542: ec_debug.pl ( 3, 'l_Remit_To_Address_ID: ', l_Remit_To_Address_ID );
543:
544: IF l_Remit_To_Address_ID IS NULL
545: THEN
546:
592: xProgress := '2010-30';
593: OPEN remit_cur;
594:
595: FETCH remit_cur INTO l_Remit_To_Address_ID;
596: ec_debug.pl (3, 'l_Remit_To_Address_ID: ', l_Remit_To_Address_ID);
597:
598: IF remit_cur%NOTFOUND THEN
599: l_Remit_To_Address_ID := NULL;
600: END IF;
616: AND state = 'DEFAULT'
617: AND country = 'DEFAULT';
618: EXCEPTION
619: WHEN NO_DATA_FOUND THEN
620: ec_debug.pl ( 1,
621: 'EC',
622: 'ECE_NO_ROW_SELECTED',
623: 'PROGRESS_LEVEL',
624: xProgress,
627: 'TABLE_NAME',
628: 'RA_REMIT_TOS' );
629: END;
630:
631: ec_debug.pl ( 3, 'l_Remit_To_Address_ID: ', l_Remit_To_Address_ID );
632:
633: END IF;
634:
635: xProgress := '2030-30';
668: AND hcas.cust_acct_site_id = l_Remit_To_Address_ID;
669: -- bug 4718847
670: EXCEPTION
671: WHEN NO_DATA_FOUND THEN
672: ec_debug.pl ( 1,
673: 'EC',
674: 'ECE_NO_ROW_SELECTED',
675: 'PROGRESS_LEVEL',
676: xProgress,
679: 'TABLE_NAME',
680: 'HZ_CUST_ACCT_SITES' );
681: END;
682:
683: ec_debug.pop('ECE_AR_TRANSACTION.GET_REMIT_ADDRESS');
684:
685: EXCEPTION
686: WHEN OTHERS THEN
687:
684:
685: EXCEPTION
686: WHEN OTHERS THEN
687:
688: ec_debug.pl ( 0,
689: 'EC',
690: 'ECE_PROGRAM_ERROR',
691: 'PROGRESS_LEVEL',
692: xProgress );
690: 'ECE_PROGRAM_ERROR',
691: 'PROGRESS_LEVEL',
692: xProgress );
693:
694: ec_debug.pl ( 0,
695: 'EC',
696: 'ECE_ERROR_MESSAGE',
697: 'ERROR_MESSAGE',
698: SQLERRM );
730: -- of an Invoice or Credit Memo (or any of the related documents)
731:
732: BEGIN
733:
734: ec_debug.push ( 'ece_ar_transaction.Get_Payment' );
735: ec_debug.pl ( 3, 'Customer_Trx_ID: ', Customer_Trx_ID );
736:
737: -- This select statement is used to determine whether this transaction
738: -- has a payment_schedule. If it does we can get all of the information
731:
732: BEGIN
733:
734: ec_debug.push ( 'ece_ar_transaction.Get_Payment' );
735: ec_debug.pl ( 3, 'Customer_Trx_ID: ', Customer_Trx_ID );
736:
737: -- This select statement is used to determine whether this transaction
738: -- has a payment_schedule. If it does we can get all of the information
739: -- we need directly from the payment_schedule, else we need to derive it
779: rctt.type,
780: rt.first_installment_code;
781: EXCEPTION
782: WHEN NO_DATA_FOUND THEN
783: ec_debug.pl ( 1,
784: 'EC',
785: 'ECE_NO_ROW_SELECTED',
786: 'PROGRESS_LEVEL',
787: xProgress,
790: 'TABLE_NAME',
791: 'RA_CUSTOMER_TRX, RA_CUST_TRX_TYPES, RA_TERMS_LINES, RA_TERMS, FND_CURRENCIES' );
792: END;
793:
794: ec_debug.pl ( 3, 'l_Term_ID: ', l_Term_ID );
795: ec_debug.pl ( 3, 'l_Currency_Precision: ', l_Currency_Precision );
796: ec_debug.pl ( 3, 'l_Payment_Schedule_Exists: ', l_Payment_Schedule_Exists );
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
791: 'RA_CUSTOMER_TRX, RA_CUST_TRX_TYPES, RA_TERMS_LINES, RA_TERMS, FND_CURRENCIES' );
792: END;
793:
794: ec_debug.pl ( 3, 'l_Term_ID: ', l_Term_ID );
795: ec_debug.pl ( 3, 'l_Currency_Precision: ', l_Currency_Precision );
796: ec_debug.pl ( 3, 'l_Payment_Schedule_Exists: ', l_Payment_Schedule_Exists );
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
799: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ', Multiple_Installments_Flag );
792: END;
793:
794: ec_debug.pl ( 3, 'l_Term_ID: ', l_Term_ID );
795: ec_debug.pl ( 3, 'l_Currency_Precision: ', l_Currency_Precision );
796: ec_debug.pl ( 3, 'l_Payment_Schedule_Exists: ', l_Payment_Schedule_Exists );
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
799: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ', Multiple_Installments_Flag );
800: ec_debug.pl ( 3, 'Maximum_Installment_Number: ', Maximum_Installment_Number );
793:
794: ec_debug.pl ( 3, 'l_Term_ID: ', l_Term_ID );
795: ec_debug.pl ( 3, 'l_Currency_Precision: ', l_Currency_Precision );
796: ec_debug.pl ( 3, 'l_Payment_Schedule_Exists: ', l_Payment_Schedule_Exists );
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
799: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ', Multiple_Installments_Flag );
800: ec_debug.pl ( 3, 'Maximum_Installment_Number: ', Maximum_Installment_Number );
801: ec_debug.pl ( 3, 'l_Minimum_Installment_Number: ', l_Minimum_Installment_Number );
794: ec_debug.pl ( 3, 'l_Term_ID: ', l_Term_ID );
795: ec_debug.pl ( 3, 'l_Currency_Precision: ', l_Currency_Precision );
796: ec_debug.pl ( 3, 'l_Payment_Schedule_Exists: ', l_Payment_Schedule_Exists );
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
799: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ', Multiple_Installments_Flag );
800: ec_debug.pl ( 3, 'Maximum_Installment_Number: ', Maximum_Installment_Number );
801: ec_debug.pl ( 3, 'l_Minimum_Installment_Number: ', l_Minimum_Installment_Number );
802:
795: ec_debug.pl ( 3, 'l_Currency_Precision: ', l_Currency_Precision );
796: ec_debug.pl ( 3, 'l_Payment_Schedule_Exists: ', l_Payment_Schedule_Exists );
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
799: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ', Multiple_Installments_Flag );
800: ec_debug.pl ( 3, 'Maximum_Installment_Number: ', Maximum_Installment_Number );
801: ec_debug.pl ( 3, 'l_Minimum_Installment_Number: ', l_Minimum_Installment_Number );
802:
803: xProgress := '2010-40';
796: ec_debug.pl ( 3, 'l_Payment_Schedule_Exists: ', l_Payment_Schedule_Exists );
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
799: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ', Multiple_Installments_Flag );
800: ec_debug.pl ( 3, 'Maximum_Installment_Number: ', Maximum_Installment_Number );
801: ec_debug.pl ( 3, 'l_Minimum_Installment_Number: ', l_Minimum_Installment_Number );
802:
803: xProgress := '2010-40';
804: BEGIN
797: ec_debug.pl ( 3, 'l_Type: ', l_Type );
798: ec_debug.pl ( 3, 'l_First_Installment_Code: ', l_First_Installment_Code );
799: ec_debug.pl ( 3, 'Multiple_Installments_Flag: ', Multiple_Installments_Flag );
800: ec_debug.pl ( 3, 'Maximum_Installment_Number: ', Maximum_Installment_Number );
801: ec_debug.pl ( 3, 'l_Minimum_Installment_Number: ', l_Minimum_Installment_Number );
802:
803: xProgress := '2010-40';
804: BEGIN
805: SELECT NVL(MIN(rtl.relative_amount),1),
812: AND rt.term_id = rtl.term_id
813: AND rtl.sequence_num = Get_Payment.Installment_Number;
814: EXCEPTION
815: WHEN NO_DATA_FOUND THEN
816: ec_debug.pl ( 1,
817: 'EC',
818: 'ECE_NO_ROW_SELECTED',
819: 'PROGRESS_LEVEL',
820: xProgress,
823: 'TABLE_NAME',
824: 'RA_TERMS, RA_TERMS_LINES' );
825: END;
826:
827: ec_debug.pl ( 3, 'l_Term_Relative_Amount: ', l_Term_Relative_Amount );
828: ec_debug.pl ( 3, 'l_Term_Base_Amount: ', l_Term_Base_Amount );
829:
830: IF l_Payment_Schedule_Exists = 'Y'
831: THEN
824: 'RA_TERMS, RA_TERMS_LINES' );
825: END;
826:
827: ec_debug.pl ( 3, 'l_Term_Relative_Amount: ', l_Term_Relative_Amount );
828: ec_debug.pl ( 3, 'l_Term_Base_Amount: ', l_Term_Base_Amount );
829:
830: IF l_Payment_Schedule_Exists = 'Y'
831: THEN
832: xProgress := '2020-40';
847: NVL(terms_sequence_number,
848: Get_Payment.Installment_Number)) = Get_Payment.Installment_Number;
849: EXCEPTION
850: WHEN NO_DATA_FOUND THEN
851: ec_debug.pl ( 1,
852: 'EC',
853: 'ECE_NO_ROW_SELECTED',
854: 'PROGRESS_LEVEL',
855: xProgress,
858: 'TABLE_NAME',
859: 'AR_PAYMENT_SCHEDULES' );
860: END;
861:
862: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
863: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
864: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
865: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
866:
859: 'AR_PAYMENT_SCHEDULES' );
860: END;
861:
862: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
863: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
864: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
865: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
866:
867: xProgress := '2030-40';
860: END;
861:
862: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
863: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
864: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
865: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
866:
867: xProgress := '2030-40';
868: BEGIN
861:
862: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
863: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
864: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
865: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
866:
867: xProgress := '2030-40';
868: BEGIN
869: SELECT NVL(SUM((NVL(rctl.quantity_invoiced,
877: WHERE rctl.customer_trx_id = Get_Payment.Customer_Trx_ID
878: AND rctl.line_type = 'CHARGES';
879: EXCEPTION
880: WHEN NO_DATA_FOUND THEN
881: ec_debug.pl ( 1,
882: 'EC',
883: 'ECE_NO_ROW_SELECTED',
884: 'PROGRESS_LEVEL',
885: xProgress,
888: 'TABLE_NAME',
889: 'RA_CUSTOMER_TRX_LINES' );
890: END;
891:
892: ec_debug.pl ( 3, 'Amount_Charges_Due: ', Amount_Charges_Due );
893:
894: ELSE
895:
896: -- There isn't any payment_schedule, so we need to get the information by
908: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
909: AND line_type NOT IN ('TAX','FREIGHT','CHARGES');
910: EXCEPTION
911: WHEN NO_DATA_FOUND THEN
912: ec_debug.pl ( 1,
913: 'EC',
914: 'ECE_NO_ROW_SELECTED',
915: 'PROGRESS_LEVEL',
916: xProgress,
919: 'TABLE_NAME',
920: 'RA_CUSTOMER_TRX_LINES' );
921: END;
922:
923: ec_debug.pl ( 3, 'l_Amount_Line_Items_Due: ', l_Amount_Line_Items_Due );
924:
925: xProgress := '2050-40';
926: BEGIN
927: SELECT ROUND(SUM(extended_amount *
933: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
934: AND line_type = 'CHARGES';
935: EXCEPTION
936: WHEN NO_DATA_FOUND THEN
937: ec_debug.pl ( 1,
938: 'EC',
939: 'ECE_NO_ROW_SELECTED',
940: 'PROGRESS_LEVEL',
941: xProgress,
944: 'TABLE_NAME',
945: 'RA_CUSTOMER_TRX_LINES' );
946: END;
947:
948: ec_debug.pl ( 3, 'l_Amount_Charges_Due: ', l_Amount_Charges_Due );
949:
950: -- Check to see if the tax/freight are prorated across installments
951: -- or if they are simply included on the first installment.
952:
965: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
966: AND line_type = 'TAX';
967: EXCEPTION
968: WHEN NO_DATA_FOUND THEN
969: ec_debug.pl ( 1,
970: 'EC',
971: 'ECE_NO_ROW_SELECTED',
972: 'PROGRESS_LEVEL',
973: xProgress,
976: 'TABLE_NAME',
977: 'RA_CUSTOMER_TRX_LINES' );
978: END;
979:
980: ec_debug.pl (3, 'l_Amount_Tax_Due: ', l_Amount_Tax_Due);
981:
982: xProgress := '2090-40';
983: BEGIN
984: SELECT SUM(extended_amount)
987: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
988: AND line_type = 'FREIGHT';
989: EXCEPTION
990: WHEN NO_DATA_FOUND THEN
991: ec_debug.pl ( 1,
992: 'EC',
993: 'ECE_NO_ROW_SELECTED',
994: 'PROGRESS_LEVEL',
995: xProgress,
998: 'TABLE_NAME',
999: 'RA_CUSTOMER_TRX_LINES' );
1000: END;
1001:
1002: ec_debug.pl (3, 'l_Amount_Freight_Due: ', l_Amount_Freight_Due);
1003:
1004: ELSE
1005:
1006: l_Amount_Tax_Due := 0;
1021: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
1022: AND line_type = 'TAX';
1023: EXCEPTION
1024: WHEN NO_DATA_FOUND THEN
1025: ec_debug.pl ( 1,
1026: 'EC',
1027: 'ECE_NO_ROW_SELECTED',
1028: 'PROGRESS_LEVEL',
1029: xProgress,
1032: 'TABLE_NAME',
1033: 'RA_CUSTOMER_TRX_LINES' );
1034: END;
1035:
1036: ec_debug.pl ( 3, 'l_Amount_Tax_Due: ', l_Amount_Tax_Due );
1037:
1038: xProgress := '2110-40';
1039: BEGIN
1040: SELECT ROUND(SUM(extended_amount *
1046: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
1047: AND line_type = 'FREIGHT';
1048: EXCEPTION
1049: WHEN NO_DATA_FOUND THEN
1050: ec_debug.pl ( 1,
1051: 'EC',
1052: 'ECE_NO_ROW_SELECTED',
1053: 'PROGRESS_LEVEL',
1054: xProgress,
1057: 'TABLE_NAME',
1058: 'RA_CUSTOMER_TRX_LINES' );
1059: END;
1060:
1061: ec_debug.pl ( 3, 'l_Amount_Freight_Due: ', l_Amount_Freight_Due );
1062:
1063: END IF;
1064:
1065: -- Total up the values and assign them to the out parameters.
1073: Amount_Charges_Due := NVL(l_Amount_Charges_Due,0);
1074: Amount_Freight_Due := NVL(l_Amount_Freight_Due,0);
1075: Amount_Line_Items_Due := NVL(l_Amount_Line_Items_Due,0);
1076:
1077: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
1078: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
1079: ec_debug.pl ( 3, 'Amount_Charges_Due: ', Amount_Charges_Due );
1080: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
1081: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
1074: Amount_Freight_Due := NVL(l_Amount_Freight_Due,0);
1075: Amount_Line_Items_Due := NVL(l_Amount_Line_Items_Due,0);
1076:
1077: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
1078: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
1079: ec_debug.pl ( 3, 'Amount_Charges_Due: ', Amount_Charges_Due );
1080: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
1081: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
1082:
1075: Amount_Line_Items_Due := NVL(l_Amount_Line_Items_Due,0);
1076:
1077: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
1078: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
1079: ec_debug.pl ( 3, 'Amount_Charges_Due: ', Amount_Charges_Due );
1080: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
1081: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
1082:
1083: END IF;
1076:
1077: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
1078: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
1079: ec_debug.pl ( 3, 'Amount_Charges_Due: ', Amount_Charges_Due );
1080: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
1081: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
1082:
1083: END IF;
1084:
1077: ec_debug.pl ( 3, 'Total_Amount_Due: ', Total_Amount_Due );
1078: ec_debug.pl ( 3, 'Amount_Tax_Due: ', Amount_Tax_Due );
1079: ec_debug.pl ( 3, 'Amount_Charges_Due: ', Amount_Charges_Due );
1080: ec_debug.pl ( 3, 'Amount_Freight_Due: ', Amount_Freight_Due );
1081: ec_debug.pl ( 3, 'Amount_Line_Items_Due: ', Amount_Line_Items_Due );
1082:
1083: END IF;
1084:
1085:
1082:
1083: END IF;
1084:
1085:
1086: ec_debug.pop ( 'ece_ar_transaction.Get_Payment' );
1087:
1088: EXCEPTION
1089: WHEN OTHERS THEN
1090:
1087:
1088: EXCEPTION
1089: WHEN OTHERS THEN
1090:
1091: ec_debug.pl ( 0,
1092: 'EC',
1093: 'ECE_PROGRAM_ERROR',
1094: 'PROGRESS_LEVEL',
1095: xProgress );
1093: 'ECE_PROGRAM_ERROR',
1094: 'PROGRESS_LEVEL',
1095: xProgress );
1096:
1097: ec_debug.pl ( 0,
1098: 'EC',
1099: 'ECE_ERROR_MESSAGE',
1100: 'ERROR_MESSAGE',
1101: SQLERRM );
1155:
1156:
1157: BEGIN
1158:
1159: ec_debug.push ( 'ece_ar_transaction.Get_Term_Discount' );
1160: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
1161: ec_debug.pl ( 3, 'Term_ID: ',Term_ID );
1162: ec_debug.pl ( 3, 'Term_Sequence_Number: ',Term_Sequence_Number );
1163:
1156:
1157: BEGIN
1158:
1159: ec_debug.push ( 'ece_ar_transaction.Get_Term_Discount' );
1160: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
1161: ec_debug.pl ( 3, 'Term_ID: ',Term_ID );
1162: ec_debug.pl ( 3, 'Term_Sequence_Number: ',Term_Sequence_Number );
1163:
1164: xProgress := '2000-50';
1157: BEGIN
1158:
1159: ec_debug.push ( 'ece_ar_transaction.Get_Term_Discount' );
1160: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
1161: ec_debug.pl ( 3, 'Term_ID: ',Term_ID );
1162: ec_debug.pl ( 3, 'Term_Sequence_Number: ',Term_Sequence_Number );
1163:
1164: xProgress := '2000-50';
1165: IF get_term_discount.Document_Type IN ('CM','OACM')
1158:
1159: ec_debug.push ( 'ece_ar_transaction.Get_Term_Discount' );
1160: ec_debug.pl ( 3, 'Document_Type: ', Document_Type );
1161: ec_debug.pl ( 3, 'Term_ID: ',Term_ID );
1162: ec_debug.pl ( 3, 'Term_Sequence_Number: ',Term_Sequence_Number );
1163:
1164: xProgress := '2000-50';
1165: IF get_term_discount.Document_Type IN ('CM','OACM')
1166: THEN
1195: l_Discount_Months_Forward;
1196:
1197: EXIT WHEN discount%NOTFOUND;
1198:
1199: ec_debug.pl ( 3, 'l_Discount_Percent: ',l_Discount_Percent );
1200: ec_debug.pl ( 3, 'l_Discount_Days: ',l_Discount_Days );
1201: ec_debug.pl ( 3, 'l_Discount_Date: ',l_Discount_Date );
1202: ec_debug.pl ( 3, 'l_Discount_Day_Of_Month: ',l_Discount_Day_Of_Month );
1203: ec_debug.pl ( 3, 'l_Discount_Months_Forward: ',l_Discount_Months_Forward );
1196:
1197: EXIT WHEN discount%NOTFOUND;
1198:
1199: ec_debug.pl ( 3, 'l_Discount_Percent: ',l_Discount_Percent );
1200: ec_debug.pl ( 3, 'l_Discount_Days: ',l_Discount_Days );
1201: ec_debug.pl ( 3, 'l_Discount_Date: ',l_Discount_Date );
1202: ec_debug.pl ( 3, 'l_Discount_Day_Of_Month: ',l_Discount_Day_Of_Month );
1203: ec_debug.pl ( 3, 'l_Discount_Months_Forward: ',l_Discount_Months_Forward );
1204:
1197: EXIT WHEN discount%NOTFOUND;
1198:
1199: ec_debug.pl ( 3, 'l_Discount_Percent: ',l_Discount_Percent );
1200: ec_debug.pl ( 3, 'l_Discount_Days: ',l_Discount_Days );
1201: ec_debug.pl ( 3, 'l_Discount_Date: ',l_Discount_Date );
1202: ec_debug.pl ( 3, 'l_Discount_Day_Of_Month: ',l_Discount_Day_Of_Month );
1203: ec_debug.pl ( 3, 'l_Discount_Months_Forward: ',l_Discount_Months_Forward );
1204:
1205: xProgress := '2030-50';
1198:
1199: ec_debug.pl ( 3, 'l_Discount_Percent: ',l_Discount_Percent );
1200: ec_debug.pl ( 3, 'l_Discount_Days: ',l_Discount_Days );
1201: ec_debug.pl ( 3, 'l_Discount_Date: ',l_Discount_Date );
1202: ec_debug.pl ( 3, 'l_Discount_Day_Of_Month: ',l_Discount_Day_Of_Month );
1203: ec_debug.pl ( 3, 'l_Discount_Months_Forward: ',l_Discount_Months_Forward );
1204:
1205: xProgress := '2030-50';
1206: IF l_counter = 1 THEN
1199: ec_debug.pl ( 3, 'l_Discount_Percent: ',l_Discount_Percent );
1200: ec_debug.pl ( 3, 'l_Discount_Days: ',l_Discount_Days );
1201: ec_debug.pl ( 3, 'l_Discount_Date: ',l_Discount_Date );
1202: ec_debug.pl ( 3, 'l_Discount_Day_Of_Month: ',l_Discount_Day_Of_Month );
1203: ec_debug.pl ( 3, 'l_Discount_Months_Forward: ',l_Discount_Months_Forward );
1204:
1205: xProgress := '2030-50';
1206: IF l_counter = 1 THEN
1207: Discount_Percent1 := l_Discount_Percent;
1209: Discount_Date1 := l_Discount_Date;
1210: Discount_Day_Of_Month1 := l_Discount_Day_Of_Month;
1211: Discount_Months_Forward1 := l_Discount_Months_Forward;
1212:
1213: ec_debug.pl (3, 'Discount_Percent1: ',Discount_Percent1 );
1214: ec_debug.pl (3, 'Discount_Days1: ',Discount_Days1 );
1215: ec_debug.pl (3, 'Discount_Date1: ',Discount_Date1 );
1216: ec_debug.pl (3, 'Discount_Day_Of_Month1: ',Discount_Day_Of_Month1 );
1217: ec_debug.pl (3, 'Discount_Months_Forward1: ',Discount_Months_Forward1 );
1210: Discount_Day_Of_Month1 := l_Discount_Day_Of_Month;
1211: Discount_Months_Forward1 := l_Discount_Months_Forward;
1212:
1213: ec_debug.pl (3, 'Discount_Percent1: ',Discount_Percent1 );
1214: ec_debug.pl (3, 'Discount_Days1: ',Discount_Days1 );
1215: ec_debug.pl (3, 'Discount_Date1: ',Discount_Date1 );
1216: ec_debug.pl (3, 'Discount_Day_Of_Month1: ',Discount_Day_Of_Month1 );
1217: ec_debug.pl (3, 'Discount_Months_Forward1: ',Discount_Months_Forward1 );
1218: END IF;
1211: Discount_Months_Forward1 := l_Discount_Months_Forward;
1212:
1213: ec_debug.pl (3, 'Discount_Percent1: ',Discount_Percent1 );
1214: ec_debug.pl (3, 'Discount_Days1: ',Discount_Days1 );
1215: ec_debug.pl (3, 'Discount_Date1: ',Discount_Date1 );
1216: ec_debug.pl (3, 'Discount_Day_Of_Month1: ',Discount_Day_Of_Month1 );
1217: ec_debug.pl (3, 'Discount_Months_Forward1: ',Discount_Months_Forward1 );
1218: END IF;
1219:
1212:
1213: ec_debug.pl (3, 'Discount_Percent1: ',Discount_Percent1 );
1214: ec_debug.pl (3, 'Discount_Days1: ',Discount_Days1 );
1215: ec_debug.pl (3, 'Discount_Date1: ',Discount_Date1 );
1216: ec_debug.pl (3, 'Discount_Day_Of_Month1: ',Discount_Day_Of_Month1 );
1217: ec_debug.pl (3, 'Discount_Months_Forward1: ',Discount_Months_Forward1 );
1218: END IF;
1219:
1220: xProgress := '2040-50';
1213: ec_debug.pl (3, 'Discount_Percent1: ',Discount_Percent1 );
1214: ec_debug.pl (3, 'Discount_Days1: ',Discount_Days1 );
1215: ec_debug.pl (3, 'Discount_Date1: ',Discount_Date1 );
1216: ec_debug.pl (3, 'Discount_Day_Of_Month1: ',Discount_Day_Of_Month1 );
1217: ec_debug.pl (3, 'Discount_Months_Forward1: ',Discount_Months_Forward1 );
1218: END IF;
1219:
1220: xProgress := '2040-50';
1221: IF l_counter = 2 THEN
1224: Discount_Date2 := l_Discount_Date;
1225: Discount_Day_Of_Month2 := l_Discount_Day_Of_Month;
1226: Discount_Months_Forward2 := l_Discount_Months_Forward;
1227:
1228: ec_debug.pl (3, 'Discount_Percent2: ',Discount_Percent2 );
1229: ec_debug.pl (3, 'Discount_Days2: ',Discount_Days2 );
1230: ec_debug.pl (3, 'Discount_Date2: ',Discount_Date2 );
1231: ec_debug.pl (3, 'Discount_Day_Of_Month2: ',Discount_Day_Of_Month2 );
1232: ec_debug.pl (3, 'Discount_Months_Forward2: ',Discount_Months_Forward2 );
1225: Discount_Day_Of_Month2 := l_Discount_Day_Of_Month;
1226: Discount_Months_Forward2 := l_Discount_Months_Forward;
1227:
1228: ec_debug.pl (3, 'Discount_Percent2: ',Discount_Percent2 );
1229: ec_debug.pl (3, 'Discount_Days2: ',Discount_Days2 );
1230: ec_debug.pl (3, 'Discount_Date2: ',Discount_Date2 );
1231: ec_debug.pl (3, 'Discount_Day_Of_Month2: ',Discount_Day_Of_Month2 );
1232: ec_debug.pl (3, 'Discount_Months_Forward2: ',Discount_Months_Forward2 );
1233: END IF;
1226: Discount_Months_Forward2 := l_Discount_Months_Forward;
1227:
1228: ec_debug.pl (3, 'Discount_Percent2: ',Discount_Percent2 );
1229: ec_debug.pl (3, 'Discount_Days2: ',Discount_Days2 );
1230: ec_debug.pl (3, 'Discount_Date2: ',Discount_Date2 );
1231: ec_debug.pl (3, 'Discount_Day_Of_Month2: ',Discount_Day_Of_Month2 );
1232: ec_debug.pl (3, 'Discount_Months_Forward2: ',Discount_Months_Forward2 );
1233: END IF;
1234:
1227:
1228: ec_debug.pl (3, 'Discount_Percent2: ',Discount_Percent2 );
1229: ec_debug.pl (3, 'Discount_Days2: ',Discount_Days2 );
1230: ec_debug.pl (3, 'Discount_Date2: ',Discount_Date2 );
1231: ec_debug.pl (3, 'Discount_Day_Of_Month2: ',Discount_Day_Of_Month2 );
1232: ec_debug.pl (3, 'Discount_Months_Forward2: ',Discount_Months_Forward2 );
1233: END IF;
1234:
1235: xProgress := '2050-50';
1228: ec_debug.pl (3, 'Discount_Percent2: ',Discount_Percent2 );
1229: ec_debug.pl (3, 'Discount_Days2: ',Discount_Days2 );
1230: ec_debug.pl (3, 'Discount_Date2: ',Discount_Date2 );
1231: ec_debug.pl (3, 'Discount_Day_Of_Month2: ',Discount_Day_Of_Month2 );
1232: ec_debug.pl (3, 'Discount_Months_Forward2: ',Discount_Months_Forward2 );
1233: END IF;
1234:
1235: xProgress := '2050-50';
1236: IF l_counter = 3 THEN
1239: Discount_Date3 := l_Discount_Date;
1240: Discount_Day_Of_Month3 := l_Discount_Day_Of_Month;
1241: Discount_Months_Forward3 := l_Discount_Months_Forward;
1242:
1243: ec_debug.pl (3, 'Discount_Percent3: ',Discount_Percent3 );
1244: ec_debug.pl (3, 'Discount_Days3: ',Discount_Days3 );
1245: ec_debug.pl (3, 'Discount_Date3: ',Discount_Date3 );
1246: ec_debug.pl (3, 'Discount_Day_Of_Month3: ',Discount_Day_Of_Month3 );
1247: ec_debug.pl (3, 'Discount_Months_Forward3: ',Discount_Months_Forward3 );
1240: Discount_Day_Of_Month3 := l_Discount_Day_Of_Month;
1241: Discount_Months_Forward3 := l_Discount_Months_Forward;
1242:
1243: ec_debug.pl (3, 'Discount_Percent3: ',Discount_Percent3 );
1244: ec_debug.pl (3, 'Discount_Days3: ',Discount_Days3 );
1245: ec_debug.pl (3, 'Discount_Date3: ',Discount_Date3 );
1246: ec_debug.pl (3, 'Discount_Day_Of_Month3: ',Discount_Day_Of_Month3 );
1247: ec_debug.pl (3, 'Discount_Months_Forward3: ',Discount_Months_Forward3 );
1248: END IF;
1241: Discount_Months_Forward3 := l_Discount_Months_Forward;
1242:
1243: ec_debug.pl (3, 'Discount_Percent3: ',Discount_Percent3 );
1244: ec_debug.pl (3, 'Discount_Days3: ',Discount_Days3 );
1245: ec_debug.pl (3, 'Discount_Date3: ',Discount_Date3 );
1246: ec_debug.pl (3, 'Discount_Day_Of_Month3: ',Discount_Day_Of_Month3 );
1247: ec_debug.pl (3, 'Discount_Months_Forward3: ',Discount_Months_Forward3 );
1248: END IF;
1249:
1242:
1243: ec_debug.pl (3, 'Discount_Percent3: ',Discount_Percent3 );
1244: ec_debug.pl (3, 'Discount_Days3: ',Discount_Days3 );
1245: ec_debug.pl (3, 'Discount_Date3: ',Discount_Date3 );
1246: ec_debug.pl (3, 'Discount_Day_Of_Month3: ',Discount_Day_Of_Month3 );
1247: ec_debug.pl (3, 'Discount_Months_Forward3: ',Discount_Months_Forward3 );
1248: END IF;
1249:
1250: l_counter := l_counter + 1;
1243: ec_debug.pl (3, 'Discount_Percent3: ',Discount_Percent3 );
1244: ec_debug.pl (3, 'Discount_Days3: ',Discount_Days3 );
1245: ec_debug.pl (3, 'Discount_Date3: ',Discount_Date3 );
1246: ec_debug.pl (3, 'Discount_Day_Of_Month3: ',Discount_Day_Of_Month3 );
1247: ec_debug.pl (3, 'Discount_Months_Forward3: ',Discount_Months_Forward3 );
1248: END IF;
1249:
1250: l_counter := l_counter + 1;
1251:
1253:
1254: xProgress := '2060-50';
1255: IF ( dbms_sql.last_row_count = 0 )
1256: THEN
1257: ec_debug.pl (1,
1258: 'EC',
1259: 'ECE_NO_ROW_SELECTED',
1260: 'PROGRESS_LEVEL',
1261: xProgress,
1266: END IF;
1267:
1268: END IF;
1269:
1270: ec_debug.pop ( 'ece_ar_transaction.Get_Term_Discount' );
1271:
1272: EXCEPTION
1273: WHEN OTHERS THEN
1274:
1271:
1272: EXCEPTION
1273: WHEN OTHERS THEN
1274:
1275: ec_debug.pl ( 0,
1276: 'EC',
1277: 'ECE_PROGRAM_ERROR',
1278: 'PROGRESS_LEVEL',
1279: xProgress );
1277: 'ECE_PROGRAM_ERROR',
1278: 'PROGRESS_LEVEL',
1279: xProgress );
1280:
1281: ec_debug.pl ( 0,
1282: 'EC',
1283: 'ECE_ERROR_MESSAGE',
1284: 'ERROR_MESSAGE',
1285: SQLERRM );
1293: function get_currency_code
1294: return varchar2
1295: IS
1296: Begin
1297: ec_debug.push('ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1298: If base_currency_code is null Then
1299: select GLB.CURRENCY_CODE Base_Currency_Code
1300: into base_currency_code
1301: from AR_SYSTEM_PARAMETERS ASP, GL_SETS_OF_BOOKS GLB
1300: into base_currency_code
1301: from AR_SYSTEM_PARAMETERS ASP, GL_SETS_OF_BOOKS GLB
1302: where ASP.SET_OF_BOOKS_ID = GLB.SET_OF_BOOKS_ID ;
1303: End If;
1304: ec_debug.pop('ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1305: return base_currency_code;
1306: EXCEPTION
1307: WHEN EC_UTILS.PROGRAM_EXIT then
1308: raise;
1306: EXCEPTION
1307: WHEN EC_UTILS.PROGRAM_EXIT then
1308: raise;
1309: WHEN OTHERS THEN
1310: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',
1311: 'ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1312: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1313: ec_debug.pop('ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1314: return base_currency_code;
1308: raise;
1309: WHEN OTHERS THEN
1310: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',
1311: 'ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1312: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1313: ec_debug.pop('ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1314: return base_currency_code;
1315: End;
1316:
1309: WHEN OTHERS THEN
1310: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',
1311: 'ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1312: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1313: ec_debug.pop('ECE_AR_TRANSACTION.GET_CURRENCY_CODE');
1314: return base_currency_code;
1315: End;
1316:
1317: -- PROCEDURE Put_Data_To_Output_Table
1454: v_LevelProcessed VARCHAR2(40);
1455:
1456: BEGIN
1457:
1458: ec_debug.push ( 'ece_ar_transaction.Put_Data_To_Output_Table' );
1459: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
1460: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1455:
1456: BEGIN
1457:
1458: ec_debug.push ( 'ece_ar_transaction.Put_Data_To_Output_Table' );
1459: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
1460: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1456: BEGIN
1457:
1458: ec_debug.push ( 'ece_ar_transaction.Put_Data_To_Output_Table' );
1459: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
1460: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1464: ec_debug.pl ( 3, 'cAlw_chg_Interface: ',cAlw_chg_Interface );
1457:
1458: ec_debug.push ( 'ece_ar_transaction.Put_Data_To_Output_Table' );
1459: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
1460: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1464: ec_debug.pl ( 3, 'cAlw_chg_Interface: ',cAlw_chg_Interface );
1465: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
1458: ec_debug.push ( 'ece_ar_transaction.Put_Data_To_Output_Table' );
1459: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
1460: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1464: ec_debug.pl ( 3, 'cAlw_chg_Interface: ',cAlw_chg_Interface );
1465: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
1466: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
1459: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
1460: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1464: ec_debug.pl ( 3, 'cAlw_chg_Interface: ',cAlw_chg_Interface );
1465: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
1466: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
1467:
1460: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1464: ec_debug.pl ( 3, 'cAlw_chg_Interface: ',cAlw_chg_Interface );
1465: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
1466: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
1467:
1468: -- **************************************************************************
1461: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1464: ec_debug.pl ( 3, 'cAlw_chg_Interface: ',cAlw_chg_Interface );
1465: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
1466: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
1467:
1468: -- **************************************************************************
1469: -- Here, I am building the SELECT, FROM, and WHERE clauses for the dynamic
1462: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
1463: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
1464: ec_debug.pl ( 3, 'cAlw_chg_Interface: ',cAlw_chg_Interface );
1465: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
1466: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
1467:
1468: -- **************************************************************************
1469: -- Here, I am building the SELECT, FROM, and WHERE clauses for the dynamic
1470: -- SQL call
1497: FROM ece_mappings em1
1498: WHERE em1.map_code like 'EC_'||RTRIM(LTRIM(NVL(cTransaction_type,'%')))||'_FF');
1499: EXCEPTION
1500: WHEN NO_DATA_FOUND THEN
1501: ec_debug.pl ( 1,
1502: 'EC',
1503: 'ECE_NO_ROW_SELECTED',
1504: 'PROGRESS_LEVEL',
1505: xProgress,
1508: 'TABLE_NAME',
1509: 'ECE_INTERFACE_TABLES' );
1510: END;
1511:
1512: ec_debug.pl ( 3, 'cAlw_chg_h_output_level: ',cAlw_chg_h_output_level );
1513:
1514: xProgress := '2010-60';
1515: BEGIN
1516: SELECT MAX(eel.external_level)
1526: FROM ece_mappings em1
1527: WHERE em1.map_code like 'EC_'||RTRIM(LTRIM(NVL(cTransaction_type,'%')))||'_FF');
1528: EXCEPTION
1529: WHEN NO_DATA_FOUND THEN
1530: ec_debug.pl ( 1,
1531: 'EC',
1532: 'ECE_NO_ROW_SELECTED',
1533: 'PROGRESS_LEVEL',
1534: xProgress,
1537: 'TABLE_NAME',
1538: 'ECE_INTERFACE_TABLES' );
1539: END;
1540:
1541: ec_debug.pl ( 3, 'cAlw_chg_l_output_level: ',cAlw_chg_l_output_level );
1542:
1543: xProgress := '2020-60';
1544: ece_flatfile_pvt.select_clause ( cTransaction_Type,
1545: cCommunication_Method,
1653: ' AND ' ||
1654: cHeader_Interface ||
1655: '.RUN_ID =' ||
1656: ':b1' ;
1657: ec_debug.pl ( 3, 'cHeader_where: ',cHeader_where );
1658:
1659: xProgress := '2090-60';
1660: cHeader_1_where := cHeader_1_where ||
1661: ' AND ' ||
1664: ':b2' ||
1665: ' AND ' ||
1666: cHeader_1_Interface ||
1667: '.TRANSACTION_ID = :transaction_id';
1668: ec_debug.pl ( 3, 'cHeader_1_where: ',cHeader_1_where );
1669:
1670: xProgress := '2100-60';
1671: cAlw_chg_h_where := cAlw_chg_h_where ||
1672: ' AND ' ||
1678: '.TRANSACTION_ID = :transaction_id' ||
1679: ' AND ' ||
1680: cAlw_chg_Interface ||
1681: '.HEADER_DETAIL_INDICATOR = ''H''';
1682: ec_debug.pl ( 3, 'cAlw_chg_h_where: ',cAlw_chg_h_where );
1683:
1684: xProgress := '2110-60';
1685: cLine_where := cLine_where ||
1686: ' AND ' ||
1692: '.TRANSACTION_ID = :transaction_id' ||
1693: ' ORDER BY ' ||
1694: cLine_Interface ||
1695: '.LINE_NUMBER';
1696: ec_debug.pl ( 3, 'cLine_where: ',cLine_where );
1697:
1698: xProgress := '2120-60';
1699: cLine_t_where := cLine_t_where ||
1700: ' AND ' ||
1706: '.TRANSACTION_ID = :transaction_id' ||
1707: ' AND ' ||
1708: cLine_t_Interface ||
1709: '.LINE_NUMBER = :line_number';
1710: ec_debug.pl ( 3, 'cLine_t_where: ',cLine_t_where );
1711:
1712: xProgress := '2130-60';
1713: cAlw_chg_l_where := cAlw_chg_l_where ||
1714: ' AND ' ||
1723: '.HEADER_DETAIL_INDICATOR = ''D''' ||
1724: ' AND ' ||
1725: cAlw_chg_Interface ||
1726: '.LINE_NUMBER = :line_number';
1727: ec_debug.pl ( 3, 'cAlw_chg_l_where: ',cAlw_chg_l_where );
1728:
1729: xProgress := '2140-60';
1730: cHeader_select := cHeader_select ||
1731: ',' ||
1734: cHeader_X_Interface ||
1735: '.ROWID, ' ||
1736: cHeader_Interface ||
1737: '.TRANSACTION_ID';
1738: ec_debug.pl ( 3, 'cHeader_select: ',cHeader_select );
1739:
1740: xProgress := '2150-60';
1741: cHeader_1_select := cHeader_1_select ||
1742: ',' ||
1745: cHeader_1_X_Interface ||
1746: '.ROWID, ' ||
1747: cHeader_1_Interface ||
1748: '.TRANSACTION_ID';
1749: ec_debug.pl ( 3, 'cHeader_1_select: ',cHeader_1_select );
1750:
1751: xProgress := '2160-60';
1752: cAlw_chg_h_select := cAlw_chg_h_select ||
1753: ',' ||
1754: cAlw_chg_Interface ||
1755: '.ROWID, ' ||
1756: cAlw_chg_X_Interface ||
1757: '.ROWID';
1758: ec_debug.pl ( 3, 'cAlw_chg_h_select: ',cAlw_chg_h_select );
1759:
1760: xProgress := '2170-60';
1761: cLine_select := cLine_select ||
1762: ',' ||
1763: cLine_Interface ||
1764: '.ROWID,' ||
1765: cLine_X_Interface ||
1766: '.ROWID';
1767: ec_debug.pl ( 3, 'cLine_select: ',cLine_select );
1768:
1769: xProgress := '2170-60';
1770: cLine_t_select := cLine_t_select ||
1771: ',' ||
1772: cLine_t_Interface ||
1773: '.ROWID,' ||
1774: cLine_t_X_Interface ||
1775: '.ROWID';
1776: ec_debug.pl ( 3, 'cLine_t_select: ',cLine_t_select );
1777:
1778: xProgress := '2180-60';
1779: cAlw_chg_l_select := cAlw_chg_l_select ||
1780: ',' ||
1781: cAlw_chg_Interface ||
1782: '.ROWID, ' ||
1783: cAlw_chg_X_Interface ||
1784: '.ROWID';
1785: ec_debug.pl ( 3, 'cAlw_chg_l_select: ',cAlw_chg_l_select );
1786:
1787:
1788: xProgress := '2190-60';
1789: cHeader_select := cHeader_select ||
1791: cHeader_where ||
1792: ' ORDER BY ' || cHeader_Interface || '.BILL_TO_CUSTOMER_NAME,' || /*Bug 2464584*/
1793: cHeader_Interface || '.BILL_TO_CUSTOMER_LOCATION ' ||
1794: ' FOR UPDATE';
1795: ec_debug.pl ( 3, 'cHeader_select: ',cHeader_select );
1796:
1797: cHeader_1_select := cHeader_1_select ||
1798: cHeader_1_from ||
1799: cHeader_1_where ||
1797: cHeader_1_select := cHeader_1_select ||
1798: cHeader_1_from ||
1799: cHeader_1_where ||
1800: ' FOR UPDATE';
1801: ec_debug.pl ( 3, 'cHeader_1_select: ',cHeader_1_select );
1802:
1803: cAlw_chg_h_select := cAlw_chg_h_select ||
1804: cAlw_chg_h_from ||
1805: cAlw_chg_h_where ||
1803: cAlw_chg_h_select := cAlw_chg_h_select ||
1804: cAlw_chg_h_from ||
1805: cAlw_chg_h_where ||
1806: ' FOR UPDATE';
1807: ec_debug.pl ( 3, 'cAlw_chg_h_select: ',cAlw_chg_h_select );
1808:
1809: cLine_select := cLine_select ||
1810: cLine_from ||
1811: cLine_where ||
1809: cLine_select := cLine_select ||
1810: cLine_from ||
1811: cLine_where ||
1812: ' FOR UPDATE';
1813: ec_debug.pl ( 3, 'cLine_select: ',cLine_select );
1814:
1815: cLine_t_select := cLine_t_select ||
1816: cLine_t_from ||
1817: cLine_t_where ||
1815: cLine_t_select := cLine_t_select ||
1816: cLine_t_from ||
1817: cLine_t_where ||
1818: ' FOR UPDATE';
1819: ec_debug.pl ( 3, 'cLine_t_select: ',cLine_t_select );
1820:
1821: cAlw_chg_l_select := cAlw_chg_l_select ||
1822: cAlw_chg_l_from ||
1823: cAlw_chg_l_where ||
1821: cAlw_chg_l_select := cAlw_chg_l_select ||
1822: cAlw_chg_l_from ||
1823: cAlw_chg_l_where ||
1824: ' FOR UPDATE';
1825: ec_debug.pl ( 3, 'cAlw_chg_l_select: ',cAlw_chg_l_select );
1826:
1827: xProgress := '2200-60';
1828: cHeader_delete1 := 'DELETE FROM ' ||
1829: cHeader_Interface ||
1827: xProgress := '2200-60';
1828: cHeader_delete1 := 'DELETE FROM ' ||
1829: cHeader_Interface ||
1830: ' WHERE ROWID = :col_rowid';
1831: ec_debug.pl ( 3, 'cHeader_delete1: ',cHeader_delete1 );
1832:
1833: xProgress := '2201-60';
1834: cHeader_1_delete1 := 'DELETE FROM ' ||
1835: cHeader_1_Interface ||
1833: xProgress := '2201-60';
1834: cHeader_1_delete1 := 'DELETE FROM ' ||
1835: cHeader_1_Interface ||
1836: ' WHERE ROWID = :col_rowid';
1837: ec_debug.pl ( 3, 'cHeader_1_delete1: ',cHeader_1_delete1 );
1838:
1839: xProgress := '2202-60';
1840: cAlw_chg_h_delete1 := 'DELETE FROM ' ||
1841: cAlw_chg_Interface ||
1839: xProgress := '2202-60';
1840: cAlw_chg_h_delete1 := 'DELETE FROM ' ||
1841: cAlw_chg_Interface ||
1842: ' WHERE ROWID = :col_rowid';
1843: ec_debug.pl ( 3, 'cAlw_chg_h_delete1: ',cAlw_chg_h_delete1 );
1844:
1845: xProgress := '2203-60';
1846: cLine_delete1 := 'DELETE FROM ' ||
1847: cLine_Interface ||
1845: xProgress := '2203-60';
1846: cLine_delete1 := 'DELETE FROM ' ||
1847: cLine_Interface ||
1848: ' WHERE ROWID = :col_rowid';
1849: ec_debug.pl ( 3, 'cLine_delete1: ',cLine_delete1 );
1850:
1851: xProgress := '2204-60';
1852: cLine_t_delete1 := 'DELETE FROM ' ||
1853: cLine_t_Interface ||
1851: xProgress := '2204-60';
1852: cLine_t_delete1 := 'DELETE FROM ' ||
1853: cLine_t_Interface ||
1854: ' WHERE ROWID = :col_rowid';
1855: ec_debug.pl ( 3, 'cLine_t_delete1: ',cLine_t_delete1 );
1856:
1857: xProgress := '2205-60';
1858: cAlw_chg_l_delete1 := 'DELETE FROM ' ||
1859: cAlw_chg_Interface ||
1857: xProgress := '2205-60';
1858: cAlw_chg_l_delete1 := 'DELETE FROM ' ||
1859: cAlw_chg_Interface ||
1860: ' WHERE ROWID = :col_rowid';
1861: ec_debug.pl ( 3, 'cAlw_chg_l_delete1: ',cAlw_chg_l_delete1 );
1862:
1863: xProgress := '2206-60';
1864: cHeader_delete2 := 'DELETE FROM ' ||
1865: cHeader_X_Interface ||
1863: xProgress := '2206-60';
1864: cHeader_delete2 := 'DELETE FROM ' ||
1865: cHeader_X_Interface ||
1866: ' WHERE ROWID = :col_rowid';
1867: ec_debug.pl ( 3, 'cHeader_delete2: ',cHeader_delete2 );
1868:
1869: xProgress := '2207-60';
1870: cHeader_1_delete2 := 'DELETE FROM ' ||
1871: cHeader_1_X_Interface ||
1869: xProgress := '2207-60';
1870: cHeader_1_delete2 := 'DELETE FROM ' ||
1871: cHeader_1_X_Interface ||
1872: ' WHERE ROWID = :col_rowid';
1873: ec_debug.pl ( 3, 'cHeader_1_delete2: ',cHeader_1_delete2 );
1874:
1875: xProgress := '2208-60';
1876: cAlw_chg_h_delete2 := 'DELETE FROM ' ||
1877: cAlw_chg_X_Interface ||
1875: xProgress := '2208-60';
1876: cAlw_chg_h_delete2 := 'DELETE FROM ' ||
1877: cAlw_chg_X_Interface ||
1878: ' WHERE ROWID = :col_rowid';
1879: ec_debug.pl ( 3, 'cAlw_chg_h_delete2: ',cAlw_chg_h_delete2 );
1880:
1881: xProgress := '2209-60';
1882: cLine_delete2 := 'DELETE FROM ' ||
1883: cLine_X_Interface ||
1881: xProgress := '2209-60';
1882: cLine_delete2 := 'DELETE FROM ' ||
1883: cLine_X_Interface ||
1884: ' WHERE ROWID = :col_rowid';
1885: ec_debug.pl ( 3, 'cLine_delete2: ',cLine_delete2 );
1886:
1887: xProgress := '2210-60';
1888: cLine_t_delete2 := 'DELETE FROM ' ||
1889: cLine_t_X_Interface ||
1887: xProgress := '2210-60';
1888: cLine_t_delete2 := 'DELETE FROM ' ||
1889: cLine_t_X_Interface ||
1890: ' WHERE ROWID = :col_rowid';
1891: ec_debug.pl ( 3, 'cLine_t_delete2: ',cLine_t_delete2 );
1892:
1893: xProgress := '2211-60';
1894: cAlw_chg_l_delete2 := 'DELETE FROM ' ||
1895: cAlw_chg_X_Interface ||
1893: xProgress := '2211-60';
1894: cAlw_chg_l_delete2 := 'DELETE FROM ' ||
1895: cAlw_chg_X_Interface ||
1896: ' WHERE ROWID = :col_rowid';
1897: ec_debug.pl ( 3, 'cAlw_chg_l_delete2: ',cAlw_chg_l_delete2 );
1898:
1899: /***
1900: *** Get data setup for the dynamic SQL call.
1901: ***
2182:
2183:
2184: xProgress := '2250-60';
2185: iHeader_count := l_Header_tbl.count;
2186: ec_debug.pl ( 3, 'iHeader_count: ',iHeader_count );
2187:
2188: xProgress := '2252-60';
2189: iHeader_1_count := l_Header_1_tbl.count;
2190: ec_debug.pl ( 3, 'iHeader_1_count: ',iHeader_1_count );
2186: ec_debug.pl ( 3, 'iHeader_count: ',iHeader_count );
2187:
2188: xProgress := '2252-60';
2189: iHeader_1_count := l_Header_1_tbl.count;
2190: ec_debug.pl ( 3, 'iHeader_1_count: ',iHeader_1_count );
2191:
2192: xProgress := '2254-60';
2193: iAlw_chg_h_count := l_alw_chg_h_tbl.count;
2194: ec_debug.pl ( 3, 'iAlw_chg_h_count: ',iAlw_chg_h_count );
2190: ec_debug.pl ( 3, 'iHeader_1_count: ',iHeader_1_count );
2191:
2192: xProgress := '2254-60';
2193: iAlw_chg_h_count := l_alw_chg_h_tbl.count;
2194: ec_debug.pl ( 3, 'iAlw_chg_h_count: ',iAlw_chg_h_count );
2195:
2196: xProgress := '2256-60';
2197: iLine_count := l_Line_tbl.count;
2198: ec_debug.pl ( 3, 'iLine_count: ',iLine_count );
2194: ec_debug.pl ( 3, 'iAlw_chg_h_count: ',iAlw_chg_h_count );
2195:
2196: xProgress := '2256-60';
2197: iLine_count := l_Line_tbl.count;
2198: ec_debug.pl ( 3, 'iLine_count: ',iLine_count );
2199:
2200: xProgress := '2258-60';
2201: iLine_t_count := l_Line_t_tbl.count;
2202: ec_debug.pl ( 3, 'iLine_t_count: ',iLine_t_count );
2198: ec_debug.pl ( 3, 'iLine_count: ',iLine_count );
2199:
2200: xProgress := '2258-60';
2201: iLine_t_count := l_Line_t_tbl.count;
2202: ec_debug.pl ( 3, 'iLine_t_count: ',iLine_t_count );
2203:
2204: xProgress := '2260-60';
2205: iAlw_chg_l_count := l_alw_chg_l_tbl.count;
2206: ec_debug.pl ( 3, 'iAlw_chg_l_count: ',iAlw_chg_l_count );
2202: ec_debug.pl ( 3, 'iLine_t_count: ',iLine_t_count );
2203:
2204: xProgress := '2260-60';
2205: iAlw_chg_l_count := l_alw_chg_l_tbl.count;
2206: ec_debug.pl ( 3, 'iAlw_chg_l_count: ',iAlw_chg_l_count );
2207:
2208: /***
2209: *** Define TYPE for every columns in the SELECT statement
2210: ***/
2367: xProgress := '2380-60';
2368: ece_flatfile_pvt.Find_pos ( l_Line_tbl,
2369: 'LINE_NUMBER',
2370: nPos1 );
2371: ec_debug.pl ( 3, 'nPos1: ',nPos1 );
2372:
2373: -- EXECUTE the SELECT statement
2374:
2375: dbms_sql.bind_variable ( Header_sel_c, 'b1', iRun_id );
2423: xProgress := '2430-60';
2424: ece_flatfile_pvt.Find_pos ( l_Header_tbl,
2425: ece_flatfile_pvt.G_Translator_Code,
2426: nTrans_code_pos );
2427: ec_debug.pl ( 3, 'nTrans_code_pos: ',nTrans_code_pos );
2428:
2429: xProgress := '2432-60';
2430: ece_flatfile_pvt.Find_pos ( l_Header_tbl,
2431: c_header_common_key_name,
2429: xProgress := '2432-60';
2430: ece_flatfile_pvt.Find_pos ( l_Header_tbl,
2431: c_header_common_key_name,
2432: nHeader_key_pos );
2433: ec_debug.pl ( 3, 'nHeader_key_pos: ',nHeader_key_pos );
2434:
2435: xProgress := '2440-60';
2436: c_file_common_key := RPAD(SUBSTRB(NVL(l_Header_tbl(nTrans_code_pos).value,' '),
2437: 1, 25),
2435: xProgress := '2440-60';
2436: c_file_common_key := RPAD(SUBSTRB(NVL(l_Header_tbl(nTrans_code_pos).value,' '),
2437: 1, 25),
2438: 25);
2439: ec_debug.pl ( 3, 'c_file_common_key: ',c_file_common_key );
2440:
2441: xProgress := '2442-60';
2442: c_file_common_key := c_file_common_key ||
2443: RPAD(SUBSTRB(NVL(l_Header_tbl(nHeader_key_pos).value,' '),
2444: 1, 22),
2445: 22) ||
2446: RPAD(' ',22) ||
2447: RPAD(' ',22);
2448: ec_debug.pl ( 3, 'c_file_common_key: ',c_file_common_key );
2449:
2450:
2451: xProgress := '2450-60';
2452: ece_flatfile_pvt.write_to_ece_output ( cTransaction_Type,
2553:
2554: xProgress := '2536-60';
2555: IF ( dbms_sql.last_row_count = 0 ) THEN
2556: v_LevelProcessed := 'HEADER 1';
2557: ec_debug.pl ( 1,
2558: 'EC',
2559: 'ECE_NO_DB_ROW_PROCESSED',
2560: 'PROGRESS_LEVEL',
2561: xProgress,
2637: xProgress := '2594-60';
2638: IF ( dbms_sql.last_row_count = 0 )
2639: THEN
2640: v_LevelProcessed := 'ALLOWANCE CHARGES HEADER';
2641: ec_debug.pl ( 1,
2642: 'EC',
2643: 'ECE_NO_DB_ROW_PROCESSED',
2644: 'PROGRESS_LEVEL',
2645: xProgress,
2685: xProgress := '2640-60';
2686: ece_flatfile_pvt.Find_pos ( l_Line_tbl,
2687: c_line_common_key_name,
2688: nLine_key_pos );
2689: ec_debug.pl ( 3, 'nLine_key_pos: ',nLine_key_pos );
2690:
2691: xProgress := '2650-60';
2692: c_file_common_key := RPAD(SUBSTRB(NVL(l_Header_tbl(nTrans_code_pos).value,' '),
2693: 1, 25),
2698: RPAD(SUBSTRB(NVL(l_Line_tbl(nLine_key_pos).value,' '),
2699: 1, 22),
2700: 22) ||
2701: RPAD(' ',22);
2702: ec_debug.pl ( 3, 'c_file_common_key: ',c_file_common_key );
2703:
2704: xProgress := '2660-60';
2705: ece_flatfile_pvt.write_to_ece_output ( cTransaction_Type,
2706: cCommunication_Method,
2760: xProgress := '2720-60';
2761: ece_flatfile_pvt.Find_pos (l_Line_t_tbl,
2762: c_Line_t_common_key_name,
2763: nLine_t_key_pos );
2764: ec_debug.pl ( 3, 'nLine_t_key_pos: ',nLine_t_key_pos );
2765:
2766: xProgress := '2730-60';
2767: c_file_common_key := RPAD(SUBSTRB(NVL(l_Header_tbl(nTrans_code_pos).value,' '),
2768: 1, 25),
2775: 22) ||
2776: RPAD(SUBSTRB(NVL(l_Line_t_tbl(nLine_t_key_pos).value,' '),
2777: 1, 22),
2778: 22);
2779: ec_debug.pl ( 3, 'c_file_common_key: ',c_file_common_key );
2780:
2781: xProgress := '2740-60';
2782: ece_flatfile_pvt.write_to_ece_output ( cTransaction_Type,
2783: cCommunication_Method,
2810: xProgress := '2764-60';
2811: IF ( dbms_sql.last_row_count = 0 )
2812: THEN
2813: v_LevelProcessed := 'LINE TAX';
2814: ec_debug.pl ( 1,
2815: 'EC',
2816: 'ECE_NO_DB_ROW_PROCESSED',
2817: 'PROGRESS_LEVEL',
2818: xProgress,
2896:
2897: xProgress := '2838-60';
2898: IF ( dbms_sql.last_row_count = 0 ) THEN
2899: v_LevelProcessed := 'ALLOWANCE CHARAGES LINE';
2900: ec_debug.pl ( 1,
2901: 'EC',
2902: 'ECE_NO_DB_ROW_PROCESSED',
2903: 'PROGRESS_LEVEL',
2904: xProgress,
2933: xProgress := '2854-60';
2934: IF ( dbms_sql.last_row_count = 0 )
2935: THEN
2936: v_LevelProcessed := 'LINE';
2937: ec_debug.pl ( 1,
2938: 'EC',
2939: 'ECE_NO_DB_ROW_PROCESSED',
2940: 'PROGRESS_LEVEL',
2941: xProgress,
2974:
2975: xProgress := '2874-60';
2976: IF ( dbms_sql.last_row_count = 0 ) THEN
2977: v_LevelProcessed := 'HEADER 1';
2978: ec_debug.pl ( 1,
2979: 'EC',
2980: 'ECE_NO_DB_ROW_PROCESSED',
2981: 'PROGRESS_LEVEL',
2982: xProgress,
3011:
3012: xProgress := '2894-60';
3013: IF ( dbms_sql.last_row_count = 0 ) THEN
3014: v_LevelProcessed := 'HEADER';
3015: ec_debug.pl ( 1,
3016: 'EC',
3017: 'ECE_NO_DB_ROW_PROCESSED',
3018: 'PROGRESS_LEVEL',
3019: xProgress,
3071:
3072: xProgress := '2921-60';
3073: dbms_sql.close_cursor ( Alw_chg_l_del_c1 );
3074:
3075: ec_debug.pop('ece_ar_transaction.Put_Data_To_Output_Table');
3076:
3077: EXCEPTION
3078: WHEN OTHERS THEN
3079:
3076:
3077: EXCEPTION
3078: WHEN OTHERS THEN
3079:
3080: ec_debug.pl ( 0,
3081: 'EC',
3082: 'ECE_PROGRAM_ERROR',
3083: 'PROGRESS_LEVEL',
3084: xProgress );
3082: 'ECE_PROGRAM_ERROR',
3083: 'PROGRESS_LEVEL',
3084: xProgress );
3085:
3086: ec_debug.pl ( 0,
3087: 'EC',
3088: 'ECE_ERROR_MESSAGE',
3089: 'ERROR_MESSAGE',
3090: SQLERRM );
3368: AND ROWNUM = 1;
3369:
3370: BEGIN
3371:
3372: ec_debug.push ( 'ece_ar_transaction.Populate_AR_Trx' );
3373: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
3374: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3369:
3370: BEGIN
3371:
3372: ec_debug.push ( 'ece_ar_transaction.Populate_AR_Trx' );
3373: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
3374: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3370: BEGIN
3371:
3372: ec_debug.push ( 'ece_ar_transaction.Populate_AR_Trx' );
3373: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
3374: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3371:
3372: ec_debug.push ( 'ece_ar_transaction.Populate_AR_Trx' );
3373: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
3374: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3372: ec_debug.push ( 'ece_ar_transaction.Populate_AR_Trx' );
3373: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
3374: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3373: ec_debug.pl ( 3, 'cCommunication_Method: ', cCommunication_Method );
3374: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3374: ec_debug.pl ( 3, 'cTransaction_Type: ',cTransaction_Type );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3375: ec_debug.pl ( 3, 'iOutput_width: ',iOutput_width );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3376: ec_debug.pl ( 3, 'dTransaction_date: ',dTransaction_date );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3377: ec_debug.pl ( 3, 'iRun_id: ',iRun_id );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3378: ec_debug.pl ( 3, 'cHeader_Interface: ',cHeader_Interface );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3386: ec_debug.pl ( 3, 'cSite_Use_Code: ',cSite_Use_Code );
3379: ec_debug.pl ( 3, 'cHeader_1_Interface: ',cHeader_1_Interface );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3386: ec_debug.pl ( 3, 'cSite_Use_Code: ',cSite_Use_Code );
3387: ec_debug.pl ( 3, 'cDocument_Type: ',cDocument_Type );
3380: ec_debug.pl ( 3, 'cAlw_Chg_Interface: ',cAlw_Chg_Interface );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3386: ec_debug.pl ( 3, 'cSite_Use_Code: ',cSite_Use_Code );
3387: ec_debug.pl ( 3, 'cDocument_Type: ',cDocument_Type );
3388: ec_debug.pl ( 3, 'cTransaction_Number: ',cTransaction_Number );
3381: ec_debug.pl ( 3, 'cLine_Interface: ',cLine_Interface );
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3386: ec_debug.pl ( 3, 'cSite_Use_Code: ',cSite_Use_Code );
3387: ec_debug.pl ( 3, 'cDocument_Type: ',cDocument_Type );
3388: ec_debug.pl ( 3, 'cTransaction_Number: ',cTransaction_Number );
3389:
3382: ec_debug.pl ( 3, 'cLine_t_Interface: ',cLine_t_Interface );
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3386: ec_debug.pl ( 3, 'cSite_Use_Code: ',cSite_Use_Code );
3387: ec_debug.pl ( 3, 'cDocument_Type: ',cDocument_Type );
3388: ec_debug.pl ( 3, 'cTransaction_Number: ',cTransaction_Number );
3389:
3390: xProgress := '2000-70';
3383: ec_debug.pl ( 3, 'cCreate_Date_From: ',cCreate_Date_From );
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3386: ec_debug.pl ( 3, 'cSite_Use_Code: ',cSite_Use_Code );
3387: ec_debug.pl ( 3, 'cDocument_Type: ',cDocument_Type );
3388: ec_debug.pl ( 3, 'cTransaction_Number: ',cTransaction_Number );
3389:
3390: xProgress := '2000-70';
3391: ece_flatfile_pvt.init_table(cTransaction_Type,cHeader_Interface,NULL,FALSE,l_header_tbl,l_key_tbl);
3384: ec_debug.pl ( 3, 'cCreate_Date_To: ',cCreate_Date_To );
3385: ec_debug.pl ( 3, 'cCustomer_Name: ',cCustomer_Name );
3386: ec_debug.pl ( 3, 'cSite_Use_Code: ',cSite_Use_Code );
3387: ec_debug.pl ( 3, 'cDocument_Type: ',cDocument_Type );
3388: ec_debug.pl ( 3, 'cTransaction_Number: ',cTransaction_Number );
3389:
3390: xProgress := '2000-70';
3391: ece_flatfile_pvt.init_table(cTransaction_Type,cHeader_Interface,NULL,FALSE,l_header_tbl,l_key_tbl);
3392:
3421: FROM ece_mappings em1
3422: WHERE em1.map_code like 'EC_'||RTRIM(LTRIM(NVL(cTransaction_type,'%')))||'_FF');
3423: EXCEPTION
3424: WHEN NO_DATA_FOUND THEN
3425: ec_debug.pl ( 1,
3426: 'EC',
3427: 'ECE_NO_ROW_SELECTED',
3428: 'PROGRESS_LEVEL',
3429: xProgress,
3431: 'MINIMUM OUTPUT LEVEL',
3432: 'TABLE_NAME',
3433: 'ECE_INTERFACE_TABLES' );
3434: END;
3435: ec_debug.pl ( 3, 'l_alw_chg_output_level: ',l_alw_chg_output_level );
3436:
3437:
3438: xProgress := '2070-70';
3439: ece_flatfile_pvt.init_table(cTransaction_Type,cAlw_chg_Interface,l_alw_chg_output_level,TRUE,l_alw_chg_tbl,l_key_tbl);
3603: ' AND ' ||
3604: 'ECE_INO_HEADER_V.TRANSACTION_NUMBER =' ||
3605: ':l_cTransaction_Number';
3606: END IF;
3607: ec_debug.pl ( 3, 'cHeader_where: ',cHeader_where );
3608:
3609: xProgress := '2280-70';
3610: cHeader_1_where := cHeader_1_where ||
3611: 'ECE_INO_HEADER_1_V.TRANSACTION_ID = :transaction_id AND ROWNUM = 1';
3608:
3609: xProgress := '2280-70';
3610: cHeader_1_where := cHeader_1_where ||
3611: 'ECE_INO_HEADER_1_V.TRANSACTION_ID = :transaction_id AND ROWNUM = 1';
3612: ec_debug.pl ( 3, 'cHeader_1_where: ',cHeader_1_where );
3613:
3614: xProgress := '2290-70';
3615: cAlw_chg_where := cAlw_chg_where ||
3616: 'ECE_INO_ALLOWANCE_CHARGES_V.TRANSACTION_ID = :transaction_id';
3613:
3614: xProgress := '2290-70';
3615: cAlw_chg_where := cAlw_chg_where ||
3616: 'ECE_INO_ALLOWANCE_CHARGES_V.TRANSACTION_ID = :transaction_id';
3617: ec_debug.pl ( 3, 'cAlw_chg_where: ',cAlw_chg_where );
3618:
3619: xProgress := '2300-70';
3620: cLine_where := cLine_where ||
3621: 'ECE_INO_LINE_V.TRANSACTION_ID = :transaction_id';
3618:
3619: xProgress := '2300-70';
3620: cLine_where := cLine_where ||
3621: 'ECE_INO_LINE_V.TRANSACTION_ID = :transaction_id';
3622: ec_debug.pl ( 3, 'cLine_where: ',cLine_where );
3623:
3624: xProgress := '2310-70';
3625: cLine_t_where := cLine_t_where ||
3626: 'ECE_INO_LINE_TAX_V.TRANSACTION_ID = :transaction_id' ||
3625: cLine_t_where := cLine_t_where ||
3626: 'ECE_INO_LINE_TAX_V.TRANSACTION_ID = :transaction_id' ||
3627: ' AND ' ||
3628: 'ECE_INO_LINE_TAX_V.LINE_NUMBER = :line_number';
3629: ec_debug.pl ( 3, 'cLine_t_where: ',cLine_t_where );
3630:
3631: -- **********************************************************************************
3632: -- If Allowance and Charges functionality becomes part of Standard EDI Gateway then
3633: -- remove check on automotive product being installed without modifying the where
3639: xProgress := '2330-70';
3640: cLine_t_where := cLine_t_where ||
3641: ' AND ' ||
3642: 'ECE_INO_LINE_TAX_V.LINE_TYPE <>''FREIGHT''';
3643: ec_debug.pl ( 3, 'cLine_t_where: ',cLine_t_where );
3644: END IF;
3645:
3646: xProgress := '2340-70';
3647: cHeader_select := cHeader_select ||
3664: cLine_t_select := cLine_t_select ||
3665: cLine_t_from ||
3666: cLine_t_where;
3667:
3668: ec_debug.pl ( 3, 'cHeader_select: ',cHeader_select );
3669: ec_debug.pl ( 3, 'cHeader_1_select: ',cHeader_1_select );
3670: ec_debug.pl ( 3, 'cAlw_chg_select: ',cAlw_chg_select );
3671: ec_debug.pl ( 3, 'cLine_select: ',cLine_select );
3672: ec_debug.pl ( 3, 'cLine_t_select: ',cLine_t_select );
3665: cLine_t_from ||
3666: cLine_t_where;
3667:
3668: ec_debug.pl ( 3, 'cHeader_select: ',cHeader_select );
3669: ec_debug.pl ( 3, 'cHeader_1_select: ',cHeader_1_select );
3670: ec_debug.pl ( 3, 'cAlw_chg_select: ',cAlw_chg_select );
3671: ec_debug.pl ( 3, 'cLine_select: ',cLine_select );
3672: ec_debug.pl ( 3, 'cLine_t_select: ',cLine_t_select );
3673:
3666: cLine_t_where;
3667:
3668: ec_debug.pl ( 3, 'cHeader_select: ',cHeader_select );
3669: ec_debug.pl ( 3, 'cHeader_1_select: ',cHeader_1_select );
3670: ec_debug.pl ( 3, 'cAlw_chg_select: ',cAlw_chg_select );
3671: ec_debug.pl ( 3, 'cLine_select: ',cLine_select );
3672: ec_debug.pl ( 3, 'cLine_t_select: ',cLine_t_select );
3673:
3674:
3667:
3668: ec_debug.pl ( 3, 'cHeader_select: ',cHeader_select );
3669: ec_debug.pl ( 3, 'cHeader_1_select: ',cHeader_1_select );
3670: ec_debug.pl ( 3, 'cAlw_chg_select: ',cAlw_chg_select );
3671: ec_debug.pl ( 3, 'cLine_select: ',cLine_select );
3672: ec_debug.pl ( 3, 'cLine_t_select: ',cLine_t_select );
3673:
3674:
3675:
3668: ec_debug.pl ( 3, 'cHeader_select: ',cHeader_select );
3669: ec_debug.pl ( 3, 'cHeader_1_select: ',cHeader_1_select );
3670: ec_debug.pl ( 3, 'cAlw_chg_select: ',cAlw_chg_select );
3671: ec_debug.pl ( 3, 'cLine_select: ',cLine_select );
3672: ec_debug.pl ( 3, 'cLine_t_select: ',cLine_t_select );
3673:
3674:
3675:
3676: -- ***************************************************
3770: -- *************************************************
3771:
3772: xProgress := '2370-70';
3773: iHeader_count := l_header_tbl.count;
3774: ec_debug.pl ( 3, 'iHeader_count: ',iHeader_count );
3775:
3776: xProgress := '2372-70';
3777: iHeader_1_count := l_header_1_tbl.count;
3778: ec_debug.pl ( 3, 'iHeader_1_count: ',iHeader_1_count );
3774: ec_debug.pl ( 3, 'iHeader_count: ',iHeader_count );
3775:
3776: xProgress := '2372-70';
3777: iHeader_1_count := l_header_1_tbl.count;
3778: ec_debug.pl ( 3, 'iHeader_1_count: ',iHeader_1_count );
3779:
3780: xProgress := '2374-70';
3781: iAlw_chg_count := l_alw_chg_tbl.count;
3782: ec_debug.pl ( 3, 'iAlw_chg_count: ',iAlw_chg_count );
3778: ec_debug.pl ( 3, 'iHeader_1_count: ',iHeader_1_count );
3779:
3780: xProgress := '2374-70';
3781: iAlw_chg_count := l_alw_chg_tbl.count;
3782: ec_debug.pl ( 3, 'iAlw_chg_count: ',iAlw_chg_count );
3783:
3784: xProgress := '2376-70';
3785: iLine_count := l_line_tbl.count;
3786: ec_debug.pl ( 3, 'iLine_count: ',iLine_count );
3782: ec_debug.pl ( 3, 'iAlw_chg_count: ',iAlw_chg_count );
3783:
3784: xProgress := '2376-70';
3785: iLine_count := l_line_tbl.count;
3786: ec_debug.pl ( 3, 'iLine_count: ',iLine_count );
3787:
3788: xProgress := '2378-70';
3789: iLine_t_count := l_line_t_tbl.count;
3790: ec_debug.pl ( 3, 'iLine_t_count: ',iLine_t_count );
3786: ec_debug.pl ( 3, 'iLine_count: ',iLine_count );
3787:
3788: xProgress := '2378-70';
3789: iLine_t_count := l_line_t_tbl.count;
3790: ec_debug.pl ( 3, 'iLine_t_count: ',iLine_t_count );
3791:
3792: -- ***************************************************
3793: --
3794: -- Define TYPE for every columns in the SELECT statement
3932: xProgress := '2420-70';
3933: ece_extract_utils_pub.Find_pos ( l_header_tbl,
3934: 'TRANSACTION_ID',
3935: nPos1 );
3936: ec_debug.pl ( 3, 'nPos1: ',nPos1 );
3937:
3938: xProgress := '2422-70';
3939: ece_extract_utils_pub.Find_pos ( l_header_tbl,
3940: 'INSTALLMENT_NUMBER',
3938: xProgress := '2422-70';
3939: ece_extract_utils_pub.Find_pos ( l_header_tbl,
3940: 'INSTALLMENT_NUMBER',
3941: nPos2 );
3942: ec_debug.pl ( 3, 'nPos2: ',nPos2 );
3943:
3944: xProgress := '2424-70';
3945: ece_extract_utils_pub.Find_pos ( l_header_tbl,
3946: 'DOCUMENT_TYPE',
3944: xProgress := '2424-70';
3945: ece_extract_utils_pub.Find_pos ( l_header_tbl,
3946: 'DOCUMENT_TYPE',
3947: nPos3 );
3948: ec_debug.pl ( 3, 'nPos3: ',nPos3 );
3949:
3950: xProgress := '2426-70';
3951: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3952: 'PAYMENT_TERM_ID',
3950: xProgress := '2426-70';
3951: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3952: 'PAYMENT_TERM_ID',
3953: nPos4 );
3954: ec_debug.pl ( 3, 'nPos4: ',nPos4 );
3955:
3956: xProgress := '2428-70';
3957: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3958: 'SHIP_TO_ADDRESS_ID',
3956: xProgress := '2428-70';
3957: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3958: 'SHIP_TO_ADDRESS_ID',
3959: nPos5 );
3960: ec_debug.pl ( 3, 'nPos5: ',nPos5 );
3961:
3962: xProgress := '2430-70';
3963: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3964: 'SOLD_TO_ADDRESS_ID',
3962: xProgress := '2430-70';
3963: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3964: 'SOLD_TO_ADDRESS_ID',
3965: nPos6 );
3966: ec_debug.pl ( 3, 'nPos6: ',nPos6 );
3967:
3968: xProgress := '2431-70';
3969: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3970: 'BILL_TO_ADDRESS_ID',
3968: xProgress := '2431-70';
3969: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3970: 'BILL_TO_ADDRESS_ID',
3971: nPos8 );
3972: ec_debug.pl ( 3, 'nPos8: ',nPos8 );
3973:
3974: xProgress := '2432-70';
3975: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3976: 'TP_LOCATION_CODE_EXT',
3974: xProgress := '2432-70';
3975: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3976: 'TP_LOCATION_CODE_EXT',
3977: nPos7 );
3978: ec_debug.pl ( 3, 'nPos7: ',nPos7 );
3979:
3980: xProgress := '2434-70';
3981: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3982: 'REMIT_TO_ADDRESS1',
3980: xProgress := '2434-70';
3981: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3982: 'REMIT_TO_ADDRESS1',
3983: nPos10 );
3984: ec_debug.pl ( 3, 'nPos10: ',nPos10 );
3985:
3986: xProgress := '2436-70';
3987: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3988: 'REMIT_TO_ADDRESS2',
3986: xProgress := '2436-70';
3987: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3988: 'REMIT_TO_ADDRESS2',
3989: nPos11 );
3990: ec_debug.pl ( 3, 'nPos11: ',nPos11 );
3991:
3992: xProgress := '2438-70';
3993: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3994: 'REMIT_TO_ADDRESS3',
3992: xProgress := '2438-70';
3993: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
3994: 'REMIT_TO_ADDRESS3',
3995: nPos12 );
3996: ec_debug.pl ( 3, 'nPos12: ',nPos12 );
3997:
3998: xProgress := '2440-70';
3999: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4000: 'REMIT_TO_ADDRESS4',
3998: xProgress := '2440-70';
3999: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4000: 'REMIT_TO_ADDRESS4',
4001: nPos13 );
4002: ec_debug.pl ( 3, 'nPos13: ',nPos13 );
4003:
4004: xProgress := '2442-70';
4005: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4006: 'REMIT_TO_CITY',
4004: xProgress := '2442-70';
4005: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4006: 'REMIT_TO_CITY',
4007: nPos14 );
4008: ec_debug.pl ( 3, 'nPos14: ',nPos14 );
4009:
4010: xProgress := '2444-70';
4011: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4012: 'REMIT_TO_COUNTY',
4010: xProgress := '2444-70';
4011: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4012: 'REMIT_TO_COUNTY',
4013: nPos15 );
4014: ec_debug.pl ( 3, 'nPos15: ',nPos15 );
4015:
4016: xProgress := '2446-70';
4017: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4018: 'REMIT_TO_STATE',
4016: xProgress := '2446-70';
4017: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4018: 'REMIT_TO_STATE',
4019: nPos16 );
4020: ec_debug.pl ( 3, 'nPos16: ',nPos16 );
4021:
4022: xProgress := '2448-70';
4023: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4024: 'REMIT_TO_PROVINCE',
4022: xProgress := '2448-70';
4023: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4024: 'REMIT_TO_PROVINCE',
4025: nPos17 );
4026: ec_debug.pl ( 3, 'nPos17: ',nPos17 );
4027:
4028: xProgress := '2450-70';
4029: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4030: 'REMIT_TO_COUNTRY',
4028: xProgress := '2450-70';
4029: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4030: 'REMIT_TO_COUNTRY',
4031: nPos18 );
4032: ec_debug.pl ( 3, 'nPos18: ',nPos18 );
4033:
4034: xProgress := '2452-70';
4035: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4036: 'REMIT_TO_POSTAL_CODE',
4034: xProgress := '2452-70';
4035: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4036: 'REMIT_TO_POSTAL_CODE',
4037: nPos19 );
4038: ec_debug.pl ( 3, 'nPos19: ',nPos19 );
4039:
4040: xProgress := '2452-71'; --Bug 2389231
4041: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4042: 'INV_TRANSACTION_DATE',
4040: xProgress := '2452-71'; --Bug 2389231
4041: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4042: 'INV_TRANSACTION_DATE',
4043: nPos28 );
4044: ec_debug.pl ( 3, 'nPos28: ',nPos28 );
4045: ec_debug.pl(3, 'l_header_tbl(nPos28).value',l_header_tbl(nPos28).value);
4046:
4047: -- ***************************************************
4048: --
4041: ece_extract_utils_pub.Find_pos ( l_header_tbl ,
4042: 'INV_TRANSACTION_DATE',
4043: nPos28 );
4044: ec_debug.pl ( 3, 'nPos28: ',nPos28 );
4045: ec_debug.pl(3, 'l_header_tbl(nPos28).value',l_header_tbl(nPos28).value);
4046:
4047: -- ***************************************************
4048: --
4049: -- also need to populate transaction_date and run_id
4056: n_trx_date_pos );
4057:
4058: xProgress := '2470-70';
4059: l_header_tbl(n_trx_date_pos).value := TO_CHAR(dTransaction_date,'YYYYMMDD HH24MISS');
4060: ec_debug.pl ( 3, 'lheader_tbl(n_trx_date_pos).value: ',l_header_tbl(n_trx_date_pos).value );
4061:
4062: xProgress := '2475-70';
4063:
4064: /* 2945057*/
4094: from ra_contacts
4095: where contact_id=l_bill_to_contact_id; */
4096: exception
4097: when others then
4098: ec_debug.pl ( 3, 'EC', 'ECE_PROGRAM_ERROR', 'PROGRESS_LEVEL', xProgress );
4099: end;
4100: End If;
4101:
4102: If (l_ship_to_contact_id is not null) then
4129: from ra_contacts
4130: where contact_id=l_ship_to_contact_id; */
4131: exception
4132: when others then
4133: ec_debug.pl ( 3, 'EC', 'ECE_PROGRAM_ERROR', 'PROGRESS_LEVEL', xProgress );
4134: end;
4135: End If;
4136:
4137: If (l_sold_to_contact_id is not null) then
4163: from ra_contacts
4164: where contact_id=l_sold_to_contact_id; */
4165: exception
4166: when others then
4167: ec_debug.pl ( 3, 'EC', 'ECE_PROGRAM_ERROR', 'PROGRESS_LEVEL', xProgress );
4168: end;
4169: End If;
4170: /*2945057*/
4171:
4204: -- a procedure.
4205:
4206: xProgress := '2500-70';
4207: l_header_tbl(nPos10).value := l_remit_to_address1;
4208: ec_debug.pl ( 3, 'lheader_tbl(nPos10).value: ',l_header_tbl(nPos10).value );
4209: xProgress := '2501-70';
4210: l_header_tbl(nPos11).value := l_remit_to_address2;
4211: ec_debug.pl ( 3, 'lheader_tbl(nPos11).value: ',l_header_tbl(nPos11).value );
4212: xProgress := '2502-70';
4207: l_header_tbl(nPos10).value := l_remit_to_address1;
4208: ec_debug.pl ( 3, 'lheader_tbl(nPos10).value: ',l_header_tbl(nPos10).value );
4209: xProgress := '2501-70';
4210: l_header_tbl(nPos11).value := l_remit_to_address2;
4211: ec_debug.pl ( 3, 'lheader_tbl(nPos11).value: ',l_header_tbl(nPos11).value );
4212: xProgress := '2502-70';
4213: l_header_tbl(nPos12).value := l_remit_to_address3;
4214: ec_debug.pl ( 3, 'lheader_tbl(nPos12).value: ',l_header_tbl(nPos12).value );
4215: xProgress := '2503-70';
4210: l_header_tbl(nPos11).value := l_remit_to_address2;
4211: ec_debug.pl ( 3, 'lheader_tbl(nPos11).value: ',l_header_tbl(nPos11).value );
4212: xProgress := '2502-70';
4213: l_header_tbl(nPos12).value := l_remit_to_address3;
4214: ec_debug.pl ( 3, 'lheader_tbl(nPos12).value: ',l_header_tbl(nPos12).value );
4215: xProgress := '2503-70';
4216: l_header_tbl(nPos13).value := l_remit_to_address4;
4217: ec_debug.pl ( 3, 'lheader_tbl(nPos13).value: ',l_header_tbl(nPos13).value );
4218: xProgress := '2504-70';
4213: l_header_tbl(nPos12).value := l_remit_to_address3;
4214: ec_debug.pl ( 3, 'lheader_tbl(nPos12).value: ',l_header_tbl(nPos12).value );
4215: xProgress := '2503-70';
4216: l_header_tbl(nPos13).value := l_remit_to_address4;
4217: ec_debug.pl ( 3, 'lheader_tbl(nPos13).value: ',l_header_tbl(nPos13).value );
4218: xProgress := '2504-70';
4219: l_header_tbl(nPos14).value := l_remit_to_city;
4220: ec_debug.pl ( 3, 'lheader_tbl(nPos14).value: ',l_header_tbl(nPos14).value );
4221: xProgress := '2505-70';
4216: l_header_tbl(nPos13).value := l_remit_to_address4;
4217: ec_debug.pl ( 3, 'lheader_tbl(nPos13).value: ',l_header_tbl(nPos13).value );
4218: xProgress := '2504-70';
4219: l_header_tbl(nPos14).value := l_remit_to_city;
4220: ec_debug.pl ( 3, 'lheader_tbl(nPos14).value: ',l_header_tbl(nPos14).value );
4221: xProgress := '2505-70';
4222: l_header_tbl(nPos15).value := l_remit_to_county;
4223: ec_debug.pl ( 3, 'lheader_tbl(nPos15).value: ',l_header_tbl(nPos15).value );
4224: xProgress := '2506-70';
4219: l_header_tbl(nPos14).value := l_remit_to_city;
4220: ec_debug.pl ( 3, 'lheader_tbl(nPos14).value: ',l_header_tbl(nPos14).value );
4221: xProgress := '2505-70';
4222: l_header_tbl(nPos15).value := l_remit_to_county;
4223: ec_debug.pl ( 3, 'lheader_tbl(nPos15).value: ',l_header_tbl(nPos15).value );
4224: xProgress := '2506-70';
4225: l_header_tbl(nPos16).value := l_remit_to_state;
4226: ec_debug.pl ( 3, 'lheader_tbl(nPos16).value: ',l_header_tbl(nPos16).value );
4227: xProgress := '2507-70';
4222: l_header_tbl(nPos15).value := l_remit_to_county;
4223: ec_debug.pl ( 3, 'lheader_tbl(nPos15).value: ',l_header_tbl(nPos15).value );
4224: xProgress := '2506-70';
4225: l_header_tbl(nPos16).value := l_remit_to_state;
4226: ec_debug.pl ( 3, 'lheader_tbl(nPos16).value: ',l_header_tbl(nPos16).value );
4227: xProgress := '2507-70';
4228: l_header_tbl(nPos17).value := l_remit_to_province;
4229: ec_debug.pl ( 3, 'lheader_tbl(nPos17).value: ',l_header_tbl(nPos17).value );
4230: xProgress := '2508-70';
4225: l_header_tbl(nPos16).value := l_remit_to_state;
4226: ec_debug.pl ( 3, 'lheader_tbl(nPos16).value: ',l_header_tbl(nPos16).value );
4227: xProgress := '2507-70';
4228: l_header_tbl(nPos17).value := l_remit_to_province;
4229: ec_debug.pl ( 3, 'lheader_tbl(nPos17).value: ',l_header_tbl(nPos17).value );
4230: xProgress := '2508-70';
4231: l_header_tbl(nPos18).value := l_remit_to_country;
4232: ec_debug.pl ( 3, 'lheader_tbl(nPos18).value: ',l_header_tbl(nPos18).value );
4233: xProgress := '2509-70';
4228: l_header_tbl(nPos17).value := l_remit_to_province;
4229: ec_debug.pl ( 3, 'lheader_tbl(nPos17).value: ',l_header_tbl(nPos17).value );
4230: xProgress := '2508-70';
4231: l_header_tbl(nPos18).value := l_remit_to_country;
4232: ec_debug.pl ( 3, 'lheader_tbl(nPos18).value: ',l_header_tbl(nPos18).value );
4233: xProgress := '2509-70';
4234: l_header_tbl(nPos19).value := l_remit_to_postal_code;
4235: ec_debug.pl ( 3, 'lheader_tbl(nPos19).value: ',l_header_tbl(nPos19).value );
4236:
4231: l_header_tbl(nPos18).value := l_remit_to_country;
4232: ec_debug.pl ( 3, 'lheader_tbl(nPos18).value: ',l_header_tbl(nPos18).value );
4233: xProgress := '2509-70';
4234: l_header_tbl(nPos19).value := l_remit_to_postal_code;
4235: ec_debug.pl ( 3, 'lheader_tbl(nPos19).value: ',l_header_tbl(nPos19).value );
4236:
4237: -- The following procedure gets the discount information
4238: -- for the term being used. The discount info is a sub-table
4239: -- off of terms, this procedure will get the first three
4368: INTO l_header_fkey
4369: FROM sys.dual;
4370: EXCEPTION
4371: WHEN NO_DATA_FOUND THEN
4372: ec_debug.pl ( 1,
4373: 'EC',
4374: 'ECE_GET_NEXT_SEQ_FAILED',
4375: 'PROGRESS_LEVEL',
4376: xProgress,
4439: WHERE transaction_record_id = l_header_fkey;
4440:
4441: IF SQL%NOTFOUND
4442: THEN
4443: ec_debug.pl ( 0,
4444: 'EC',
4445: 'ECE_NO_ROW_UPDATED',
4446: 'PROGRESS_LEVEL',
4447: xProgress,
4536: xProgress := '2650-70';
4537: ece_extract_utils_pub.Find_pos ( l_header_1_tbl,
4538: 'PACKING_SLIP_NUMBER',
4539: nPos4 );
4540: ec_debug.pl ( 3, 'nPos4: ',nPos4 );
4541: xProgress := '2660-70';
4542: ece_extract_utils_pub.Find_pos ( l_header_1_tbl,
4543: 'SHIP_FROM_CODE_INT',
4544: nPos5 );
4541: xProgress := '2660-70';
4542: ece_extract_utils_pub.Find_pos ( l_header_1_tbl,
4543: 'SHIP_FROM_CODE_INT',
4544: nPos5 );
4545: ec_debug.pl ( 3, 'nPos5: ',nPos5 );
4546:
4547: xProgress := '2664-70';
4548: ece_extract_utils_pub.Find_pos ( l_header_1_tbl,
4549: 'INTERFACE_ATTRIBUTE3',
4547: xProgress := '2664-70';
4548: ece_extract_utils_pub.Find_pos ( l_header_1_tbl,
4549: 'INTERFACE_ATTRIBUTE3',
4550: pos_1 );
4551: ec_debug.pl ( 3, 'pos_1: ',pos_1 );
4552:
4553: xProgress := '2665-70';
4554: ece_extract_utils_pub.Find_pos ( l_header_1_tbl,
4555: 'EQUIPMENT_PREFIX',
4585:
4586:
4587: xProgress := '2668-70';
4588: l_delivery_name := l_header_1_tbl(pos_1).value;
4589: ec_debug.pl ( 3, 'l_delivery_name: ',l_delivery_name );
4590:
4591: xProgress := '2670-70';
4592: IF ( l_delivery_name IS NOT NULL )
4593: THEN
4607: l_delivery_id := NULL;
4608:
4609: END IF;
4610:
4611: ec_debug.pl ( 3, 'l_delivery_id: ',l_delivery_id );
4612:
4613: xProgress := '2680-70';
4614: ec_code_Conversion_pvt.populate_plsql_tbl_with_extval ( p_api_version_number => 1.0,
4615: p_init_msg_list => init_msg_list,
4628: INTO l_header_1_fkey
4629: FROM sys.dual;
4630: EXCEPTION
4631: WHEN NO_DATA_FOUND THEN
4632: ec_debug.pl ( 1,
4633: 'EC',
4634: 'ECE_GET_NEXT_SEQ_FAILED',
4635: 'PROGRESS_LEVEL',
4636: xProgress,
4636: xProgress,
4637: 'SEQ',
4638: 'ECE_AR_TRX_HEADERS_1_S' );
4639: END;
4640: ec_debug.pl ( 3, 'l_header_1_fkey: ',l_header_1_fkey );
4641:
4642: xProgress := '2700-70';
4643: ece_Extract_Utils_PUB.insert_into_interface_tbl ( iRun_id,
4644: cTransaction_Type,
4650: -- Now update Ship_From_Code_Int, Ship_From_Code_Ext columns on ECE_AR_TRX_HEADERS
4651: -- using the values obtained the Header 1 Select.
4652:
4653: xProgress := '2710-70';
4654: ec_debug.pl ( 3, 'l_header_1_tbl(nPos5).value: ',l_header_1_tbl(nPos5).value );
4655: ec_debug.pl ( 3, 'l_header_1_tbl(nPos5).ext_val1: ',l_header_1_tbl(nPos5).ext_val1 );
4656:
4657: -- Bug 1992730 : Modified the SHIP_FROM_CODE_EXT to SHIP_FROM_CODE_EXT1 in sql below.
4658: -- Bug 1979725. Also update ship_from_code_ext1..ext5
4651: -- using the values obtained the Header 1 Select.
4652:
4653: xProgress := '2710-70';
4654: ec_debug.pl ( 3, 'l_header_1_tbl(nPos5).value: ',l_header_1_tbl(nPos5).value );
4655: ec_debug.pl ( 3, 'l_header_1_tbl(nPos5).ext_val1: ',l_header_1_tbl(nPos5).ext_val1 );
4656:
4657: -- Bug 1992730 : Modified the SHIP_FROM_CODE_EXT to SHIP_FROM_CODE_EXT1 in sql below.
4658: -- Bug 1979725. Also update ship_from_code_ext1..ext5
4659: UPDATE ECE_AR_TRX_HEADERS
4666: WHERE transaction_record_id = l_header_fkey;
4667:
4668: IF SQL%NOTFOUND
4669: THEN
4670: ec_debug.pl ( 0,
4671: 'EC',
4672: 'ECE_NO_ROW_UPDATED',
4673: 'PROGRESS_LEVEL',
4674: xProgress,
4695:
4696: xProgress := '2722-70';
4697: IF ( dbms_sql.last_row_count = 0 ) THEN
4698: v_LevelProcessed := 'HEADER 1';
4699: ec_debug.pl ( 1,
4700: 'EC',
4701: 'ECE_NO_DB_ROW_PROCESSED',
4702: 'PROGRESS_LEVEL',
4703: xProgress,
4745: xProgress := '2760-70';
4746: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4747: 'TRANSACTION_ID',
4748: nPos1 );
4749: ec_debug.pl ( 3, 'nPos1: ',nPos1 );
4750:
4751: xProgress := '2761-70';
4752: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4753: 'CUSTOMER_TRX_LINE_ID',
4751: xProgress := '2761-70';
4752: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4753: 'CUSTOMER_TRX_LINE_ID',
4754: nPos2 );
4755: ec_debug.pl ( 3, 'nPos2: ',nPos2 );
4756:
4757: xProgress := '2762-70';
4758: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4759: 'LINK_TO_CUST_TRX_LINE_ID',
4757: xProgress := '2762-70';
4758: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4759: 'LINK_TO_CUST_TRX_LINE_ID',
4760: nPos3 );
4761: ec_debug.pl ( 3, 'nPos3: ',nPos3 );
4762:
4763: xProgress := '2763-70';
4764: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4765: 'LINE_NUMBER',
4763: xProgress := '2763-70';
4764: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4765: 'LINE_NUMBER',
4766: nPos5 );
4767: ec_debug.pl ( 3, 'nPos5: ',nPos5 );
4768:
4769: xProgress := '2764-70';
4770: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4771: 'ALLOWANCE_CHARGE_INDICATOR',
4769: xProgress := '2764-70';
4770: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4771: 'ALLOWANCE_CHARGE_INDICATOR',
4772: nPos6 );
4773: ec_debug.pl ( 3, 'nPos6: ',nPos6 );
4774:
4775: xProgress := '2765-70';
4776: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4777: 'ALLOWANCE_CHARGE_AMOUNT',
4775: xProgress := '2765-70';
4776: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4777: 'ALLOWANCE_CHARGE_AMOUNT',
4778: nPos7 );
4779: ec_debug.pl ( 3, 'nPos7: ',nPos7 );
4780:
4781: xProgress := '2766-70';
4782: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4783: 'SPECIAL_SERVICES_CODE',
4781: xProgress := '2766-70';
4782: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4783: 'SPECIAL_SERVICES_CODE',
4784: nPos8 );
4785: ec_debug.pl ( 3, 'nPos8: ',nPos8 );
4786:
4787: xProgress := '2767-70';
4788: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4789: 'METHOD_HANDLING_CODE',
4787: xProgress := '2767-70';
4788: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4789: 'METHOD_HANDLING_CODE',
4790: nPos9 );
4791: ec_debug.pl ( 3, 'nPos9: ',nPos9 );
4792:
4793: xProgress := '2768-70';
4794: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4795: 'SPECIAL_CHARGES_CODE',
4793: xProgress := '2768-70';
4794: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4795: 'SPECIAL_CHARGES_CODE',
4796: nPos10 );
4797: ec_debug.pl ( 3, 'nPos10: ',nPos10 );
4798:
4799: xProgress := '2769-70';
4800: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4801: 'ALLOWANCE_CHARGE_DESC',
4799: xProgress := '2769-70';
4800: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4801: 'ALLOWANCE_CHARGE_DESC',
4802: nPos11 );
4803: ec_debug.pl ( 3, 'nPos11: ',nPos11 );
4804:
4805: xProgress := '2770-70';
4806: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4807: 'AGENCY_QUALIFIER_CODE',
4805: xProgress := '2770-70';
4806: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4807: 'AGENCY_QUALIFIER_CODE',
4808: nPos12 );
4809: ec_debug.pl ( 3, 'nPos12: ',nPos12 );
4810:
4811: xProgress := '2771-70';
4812: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4813: 'ALLOWANCE_CHARGE_RATE',
4811: xProgress := '2771-70';
4812: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4813: 'ALLOWANCE_CHARGE_RATE',
4814: nPos13 );
4815: ec_debug.pl ( 3, 'nPos13: ',nPos13 );
4816:
4817: xProgress := '2772-70';
4818: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4819: 'ALLOWANCE_CHARGE_PCT_QUALIFIER',
4817: xProgress := '2772-70';
4818: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4819: 'ALLOWANCE_CHARGE_PCT_QUALIFIER',
4820: nPos14 );
4821: ec_debug.pl ( 3, 'nPos14: ',nPos14 );
4822:
4823: xProgress := '2773-70';
4824: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4825: 'ALLOWANCE_CHARGE_PCT',
4823: xProgress := '2773-70';
4824: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4825: 'ALLOWANCE_CHARGE_PCT',
4826: nPos15 );
4827: ec_debug.pl ( 3, 'nPos15: ',nPos15 );
4828:
4829: xProgress := '2774-70';
4830: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4831: 'ALLOWANCE_CHARGE_UOM_CODE',
4829: xProgress := '2774-70';
4830: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4831: 'ALLOWANCE_CHARGE_UOM_CODE',
4832: nPos16 );
4833: ec_debug.pl ( 3, 'nPos16: ',nPos16 );
4834:
4835: xProgress := '2775-70';
4836: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4837: 'ALLOWANCE_CHARGE_QUANTITY',
4835: xProgress := '2775-70';
4836: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4837: 'ALLOWANCE_CHARGE_QUANTITY',
4838: nPos17 );
4839: ec_debug.pl ( 3, 'nPos17: ',nPos17 );
4840:
4841: xProgress := '2776-70';
4842: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4843: 'HEADER_DETAIL_INDICATOR',
4841: xProgress := '2776-70';
4842: ece_extract_utils_pub.Find_pos ( l_alw_chg_tbl,
4843: 'HEADER_DETAIL_INDICATOR',
4844: nPos18 );
4845: ec_debug.pl ( 3, 'nPos18: ',nPos18 );
4846:
4847: -- Check for automotive installation and call the procedure get_allownace_charge.
4848: -- Both the header and detail level charges are populated here
4849: -- If the allowances and charges are incorporated as part of the standard product
4859: l_alw_chg_tbl(nPos5).value := 0;
4860: ELSE
4861: l_alw_chg_tbl(nPos18).value := 'D';
4862: END IF;
4863: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos18).value: ',l_alw_chg_tbl(nPos18).value );
4864:
4865: xProgress := '2790-70';
4866: IF l_Automotive_Installed
4867: THEN
4881: LOOP
4882:
4883: xProgress := '2811-70';
4884: l_alw_chg_tbl(nPos6).value := l_veh_alw_chg_tbl(i).charge_type;
4885: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos6).value: ',l_alw_chg_tbl(nPos6).value );
4886:
4887: xProgress := '2812-70';
4888: l_alw_chg_tbl(nPos7).value := ABS(l_veh_alw_chg_tbl(i).amount);
4889: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos7).value: ',l_alw_chg_tbl(nPos7).value );
4885: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos6).value: ',l_alw_chg_tbl(nPos6).value );
4886:
4887: xProgress := '2812-70';
4888: l_alw_chg_tbl(nPos7).value := ABS(l_veh_alw_chg_tbl(i).amount);
4889: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos7).value: ',l_alw_chg_tbl(nPos7).value );
4890:
4891: xProgress := '2813-70';
4892: l_alw_chg_tbl(nPos8).value := l_veh_alw_chg_tbl(i).special_services_code;
4893: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos8).value: ',l_alw_chg_tbl(nPos8).value );
4889: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos7).value: ',l_alw_chg_tbl(nPos7).value );
4890:
4891: xProgress := '2813-70';
4892: l_alw_chg_tbl(nPos8).value := l_veh_alw_chg_tbl(i).special_services_code;
4893: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos8).value: ',l_alw_chg_tbl(nPos8).value );
4894:
4895: xProgress := '2814-70';
4896: l_alw_chg_tbl(nPos9).value := l_veh_alw_chg_tbl(i).method_handling_code;
4897: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos9).value: ',l_alw_chg_tbl(nPos9).value );
4893: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos8).value: ',l_alw_chg_tbl(nPos8).value );
4894:
4895: xProgress := '2814-70';
4896: l_alw_chg_tbl(nPos9).value := l_veh_alw_chg_tbl(i).method_handling_code;
4897: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos9).value: ',l_alw_chg_tbl(nPos9).value );
4898:
4899: xProgress := '2815-70';
4900: l_alw_chg_tbl(nPos10).value := l_veh_alw_chg_tbl(i).special_charge_code;
4901: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos10).value: ',l_alw_chg_tbl(nPos10).value );
4897: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos9).value: ',l_alw_chg_tbl(nPos9).value );
4898:
4899: xProgress := '2815-70';
4900: l_alw_chg_tbl(nPos10).value := l_veh_alw_chg_tbl(i).special_charge_code;
4901: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos10).value: ',l_alw_chg_tbl(nPos10).value );
4902:
4903: xProgress := '2816-70';
4904: l_alw_chg_tbl(nPos11).value := l_veh_alw_chg_tbl(i).description;
4905: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos11).value: ',l_alw_chg_tbl(nPos11).value );
4901: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos10).value: ',l_alw_chg_tbl(nPos10).value );
4902:
4903: xProgress := '2816-70';
4904: l_alw_chg_tbl(nPos11).value := l_veh_alw_chg_tbl(i).description;
4905: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos11).value: ',l_alw_chg_tbl(nPos11).value );
4906:
4907: xProgress := '2817-70';
4908: l_alw_chg_tbl(nPos12).value := l_veh_alw_chg_tbl(i).agency_qualifier_code;
4909: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos12).value: ',l_alw_chg_tbl(nPos12).value );
4905: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos11).value: ',l_alw_chg_tbl(nPos11).value );
4906:
4907: xProgress := '2817-70';
4908: l_alw_chg_tbl(nPos12).value := l_veh_alw_chg_tbl(i).agency_qualifier_code;
4909: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos12).value: ',l_alw_chg_tbl(nPos12).value );
4910:
4911: xProgress := '2818-70';
4912: l_alw_chg_tbl(nPos13).value := NVL(l_veh_alw_chg_tbl(i).allowance_charge_rate,0);
4913: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos13).value: ',l_alw_chg_tbl(nPos13).value );
4909: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos12).value: ',l_alw_chg_tbl(nPos12).value );
4910:
4911: xProgress := '2818-70';
4912: l_alw_chg_tbl(nPos13).value := NVL(l_veh_alw_chg_tbl(i).allowance_charge_rate,0);
4913: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos13).value: ',l_alw_chg_tbl(nPos13).value );
4914:
4915: xProgress := '2819-70';
4916: l_alw_chg_tbl(nPos14).value := l_veh_alw_chg_tbl(i).allowance_charge_pct_qualifier;
4917: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos14).value: ',l_alw_chg_tbl(nPos14).value );
4913: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos13).value: ',l_alw_chg_tbl(nPos13).value );
4914:
4915: xProgress := '2819-70';
4916: l_alw_chg_tbl(nPos14).value := l_veh_alw_chg_tbl(i).allowance_charge_pct_qualifier;
4917: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos14).value: ',l_alw_chg_tbl(nPos14).value );
4918:
4919: xProgress := '2820-70';
4920: l_alw_chg_tbl(nPos15).value := NVL(l_veh_alw_chg_tbl(i).allowance_charge_pct,0);
4921: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos15).value: ',l_alw_chg_tbl(nPos15).value );
4917: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos14).value: ',l_alw_chg_tbl(nPos14).value );
4918:
4919: xProgress := '2820-70';
4920: l_alw_chg_tbl(nPos15).value := NVL(l_veh_alw_chg_tbl(i).allowance_charge_pct,0);
4921: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos15).value: ',l_alw_chg_tbl(nPos15).value );
4922:
4923: xProgress := '2821-70';
4924: l_alw_chg_tbl(nPos16).value := l_veh_alw_chg_tbl(i).unit_of_measure_code;
4925: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos16).value: ',l_alw_chg_tbl(nPos16).value );
4921: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos15).value: ',l_alw_chg_tbl(nPos15).value );
4922:
4923: xProgress := '2821-70';
4924: l_alw_chg_tbl(nPos16).value := l_veh_alw_chg_tbl(i).unit_of_measure_code;
4925: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos16).value: ',l_alw_chg_tbl(nPos16).value );
4926:
4927: xProgress := '2822-70';
4928: l_alw_chg_tbl(nPos17).value := NVL(l_veh_alw_chg_tbl(i).quantity,0);
4929: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos17).value: ',l_alw_chg_tbl(nPos17).value );
4925: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos16).value: ',l_alw_chg_tbl(nPos16).value );
4926:
4927: xProgress := '2822-70';
4928: l_alw_chg_tbl(nPos17).value := NVL(l_veh_alw_chg_tbl(i).quantity,0);
4929: ec_debug.pl ( 3, 'l_alw_chg_tbl(nPos17).value: ',l_alw_chg_tbl(nPos17).value );
4930:
4931: xProgress := '2830-70';
4932: ec_code_Conversion_pvt.populate_plsql_tbl_with_extval ( p_api_version_number => 1.0,
4933: p_init_msg_list => init_msg_list,
4946: INTO l_alw_chg_fkey
4947: FROM sys.dual;
4948: EXCEPTION
4949: WHEN NO_DATA_FOUND THEN
4950: ec_debug.pl ( 1,
4951: 'EC',
4952: 'ECE_GET_NEXT_SEQ_FAILED',
4953: 'PROGRESS_LEVEL',
4954: xProgress,
4954: xProgress,
4955: 'SEQ',
4956: 'ECE_AR_TRX_ALLOWANCE_CHARGES_S' );
4957: END;
4958: ec_debug.pl ( 3, 'l_alw_chg_fkey: ',l_alw_chg_fkey );
4959:
4960: xProgress := '2850-70';
4961: ece_Extract_Utils_PUB.insert_into_interface_tbl ( iRun_id,
4962: cTransaction_Type,
4981:
4982: xProgress := '2854-70';
4983: IF ( dbms_sql.last_row_count = 0 ) THEN
4984: v_LevelProcessed := 'ALLOWANCE CHARGES';
4985: ec_debug.pl ( 1,
4986: 'EC',
4987: 'ECE_NO_DB_ROW_PROCESSED',
4988: 'PROGRESS_LEVEL',
4989: xProgress,
5031: xProgress := '2890-70';
5032: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5033: 'ITEM_ID',
5034: nPos1 );
5035: ec_debug.pl ( 3, 'nPos1: ',nPos1 );
5036:
5037: xProgress := '2891-70';
5038: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5039: 'LINE_NUMBER',
5037: xProgress := '2891-70';
5038: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5039: 'LINE_NUMBER',
5040: nPos9 );
5041: ec_debug.pl ( 3, 'nPos9: ',nPos9 );
5042:
5043: xProgress := '2900-70';
5044: ece_inventory.get_item_number ( l_line_tbl(nPos1).value,
5045: l_Organization_ID,
5083: INTO l_line_fkey
5084: FROM sys.dual;
5085: EXCEPTION
5086: WHEN NO_DATA_FOUND THEN
5087: ec_debug.pl ( 1,
5088: 'EC',
5089: 'ECE_GET_NEXT_SEQ_FAILED',
5090: 'PROGRESS_LEVEL',
5091: xProgress,
5091: xProgress,
5092: 'SEQ',
5093: 'ECE_AR_TRX_LINES_S' );
5094: END;
5095: ec_debug.pl ( 3, 'l_line_fkey: ',l_line_fkey );
5096:
5097: xProgress := '2930-70';
5098: ece_Extract_Utils_PUB.insert_into_interface_tbl ( iRun_id,
5099: cTransaction_Type,
5127: WHERE transaction_record_id = l_line_fkey;
5128:
5129: IF SQL%NOTFOUND
5130: THEN
5131: ec_debug.pl ( 1,
5132: 'EC',
5133: 'ECE_NO_ROW_UPDATED',
5134: 'PROGRESS_LEVEL',
5135: xProgress,
5143: xProgress := '2941-70';
5144: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5145: 'NET_WEIGHT',
5146: nPos20 );
5147: ec_debug.pl ( 3, 'nPos20: ',nPos20);
5148:
5149: xProgress := '2942-70';
5150: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5151: 'GROSS_WEIGHT',
5149: xProgress := '2942-70';
5150: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5151: 'GROSS_WEIGHT',
5152: nPos21 );
5153: ec_debug.pl ( 3, 'nPos21: ',nPos21);
5154:
5155: xProgress := '2943-70';
5156: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5157: 'VOLUME',
5155: xProgress := '2943-70';
5156: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5157: 'VOLUME',
5158: nPos23 );
5159: ec_debug.pl ( 3, 'nPos23: ',nPos23);
5160:
5161: xProgress := '2944-70';
5162: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5163: 'WEIGHT_UOM_CODE_INT',
5161: xProgress := '2944-70';
5162: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5163: 'WEIGHT_UOM_CODE_INT',
5164: nPos24 );
5165: ec_debug.pl ( 3, 'nPos24: ',nPos24);
5166:
5167: xProgress := '2945-70';
5168: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5169: 'VOLUME_UOM_CODE_INT',
5167: xProgress := '2945-70';
5168: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5169: 'VOLUME_UOM_CODE_INT',
5170: nPos25 );
5171: ec_debug.pl ( 3, 'nPos25: ',nPos25);
5172:
5173: xProgress := '2946-70';
5174: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5175: 'SHIPMENT_NUMBER',
5173: xProgress := '2946-70';
5174: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5175: 'SHIPMENT_NUMBER',
5176: nPos26 );
5177: ec_debug.pl ( 3, 'nPos26: ',nPos26);
5178:
5179: xProgress := '2947-70';
5180: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5181: 'BOOKING_NUMBER',
5179: xProgress := '2947-70';
5180: ece_extract_utils_pub.Find_pos ( l_line_tbl,
5181: 'BOOKING_NUMBER',
5182: nPos27 );
5183: ec_debug.pl ( 3, 'nPos27: ',nPos27);
5184:
5185: l_net_weight := nvl(l_line_tbl(nPos20).value,0) + l_net_weight;
5186: l_gross_weight := nvl(l_line_tbl(nPos21).value,0) + l_gross_weight;
5187: l_volume := nvl(l_line_tbl(nPos23).value,0) + l_volume;
5189: l_volume_uom_code := nvl(l_line_tbl(nPos25).value,null);
5190: l_shipment_number := nvl(l_line_tbl(nPos26).value,0);
5191: l_booking_number := nvl(l_line_tbl(nPos27).value,null);
5192:
5193: ec_debug.pl ( 3, 'l_line_tbl(nPos20).value: ',l_line_tbl(nPos20).value );
5194: ec_debug.pl ( 3, 'l_line_tbl(nPos21).value: ',l_line_tbl(nPos21).value );
5195: ec_debug.pl ( 3, 'l_line_tbl(nPos23).value: ',l_line_tbl(nPos23).value );
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5190: l_shipment_number := nvl(l_line_tbl(nPos26).value,0);
5191: l_booking_number := nvl(l_line_tbl(nPos27).value,null);
5192:
5193: ec_debug.pl ( 3, 'l_line_tbl(nPos20).value: ',l_line_tbl(nPos20).value );
5194: ec_debug.pl ( 3, 'l_line_tbl(nPos21).value: ',l_line_tbl(nPos21).value );
5195: ec_debug.pl ( 3, 'l_line_tbl(nPos23).value: ',l_line_tbl(nPos23).value );
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5191: l_booking_number := nvl(l_line_tbl(nPos27).value,null);
5192:
5193: ec_debug.pl ( 3, 'l_line_tbl(nPos20).value: ',l_line_tbl(nPos20).value );
5194: ec_debug.pl ( 3, 'l_line_tbl(nPos21).value: ',l_line_tbl(nPos21).value );
5195: ec_debug.pl ( 3, 'l_line_tbl(nPos23).value: ',l_line_tbl(nPos23).value );
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5192:
5193: ec_debug.pl ( 3, 'l_line_tbl(nPos20).value: ',l_line_tbl(nPos20).value );
5194: ec_debug.pl ( 3, 'l_line_tbl(nPos21).value: ',l_line_tbl(nPos21).value );
5195: ec_debug.pl ( 3, 'l_line_tbl(nPos23).value: ',l_line_tbl(nPos23).value );
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5200: ec_debug.pl ( 3, 'Volume UOM Code:',l_volume_uom_code);
5193: ec_debug.pl ( 3, 'l_line_tbl(nPos20).value: ',l_line_tbl(nPos20).value );
5194: ec_debug.pl ( 3, 'l_line_tbl(nPos21).value: ',l_line_tbl(nPos21).value );
5195: ec_debug.pl ( 3, 'l_line_tbl(nPos23).value: ',l_line_tbl(nPos23).value );
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5200: ec_debug.pl ( 3, 'Volume UOM Code:',l_volume_uom_code);
5201: ec_debug.pl ( 3, 'Shipment Number:',l_shipment_number);
5194: ec_debug.pl ( 3, 'l_line_tbl(nPos21).value: ',l_line_tbl(nPos21).value );
5195: ec_debug.pl ( 3, 'l_line_tbl(nPos23).value: ',l_line_tbl(nPos23).value );
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5200: ec_debug.pl ( 3, 'Volume UOM Code:',l_volume_uom_code);
5201: ec_debug.pl ( 3, 'Shipment Number:',l_shipment_number);
5202: ec_debug.pl ( 3, 'Booking Number:',l_booking_number);
5195: ec_debug.pl ( 3, 'l_line_tbl(nPos23).value: ',l_line_tbl(nPos23).value );
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5200: ec_debug.pl ( 3, 'Volume UOM Code:',l_volume_uom_code);
5201: ec_debug.pl ( 3, 'Shipment Number:',l_shipment_number);
5202: ec_debug.pl ( 3, 'Booking Number:',l_booking_number);
5203:
5196: ec_debug.pl ( 3, 'Net Weight:', l_net_weight);
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5200: ec_debug.pl ( 3, 'Volume UOM Code:',l_volume_uom_code);
5201: ec_debug.pl ( 3, 'Shipment Number:',l_shipment_number);
5202: ec_debug.pl ( 3, 'Booking Number:',l_booking_number);
5203:
5204:
5197: ec_debug.pl ( 3, 'Gross Weight:',l_gross_weight);
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5200: ec_debug.pl ( 3, 'Volume UOM Code:',l_volume_uom_code);
5201: ec_debug.pl ( 3, 'Shipment Number:',l_shipment_number);
5202: ec_debug.pl ( 3, 'Booking Number:',l_booking_number);
5203:
5204:
5205: -- ******************************************
5198: ec_debug.pl ( 3, 'Weight UOM Code:',l_weight_uom_code);
5199: ec_debug.pl ( 3, 'Volume:',l_volume);
5200: ec_debug.pl ( 3, 'Volume UOM Code:',l_volume_uom_code);
5201: ec_debug.pl ( 3, 'Shipment Number:',l_shipment_number);
5202: ec_debug.pl ( 3, 'Booking Number:',l_booking_number);
5203:
5204:
5205: -- ******************************************
5206: --
5262: xProgress := '3000-70';
5263: ece_extract_utils_pub.Find_pos ( l_line_t_tbl,
5264: 'LINE_TYPE',
5265: nPos1 );
5266: ec_debug.pl ( 3, 'nPos1: ',nPos1 );
5267:
5268: xProgress := '3002-70';
5269: ece_extract_utils_pub.Find_pos ( l_line_t_tbl,
5270: 'LINK_TO_CUST_TRX_LINE_ID',
5268: xProgress := '3002-70';
5269: ece_extract_utils_pub.Find_pos ( l_line_t_tbl,
5270: 'LINK_TO_CUST_TRX_LINE_ID',
5271: nPos2 );
5272: ec_debug.pl ( 3, 'nPos2: ',nPos2 );
5273:
5274: xProgress := '3004-70';
5275: ece_extract_utils_pub.Find_pos ( l_line_t_tbl,
5276: 'CUSTOMER_TRX_LINE_ID',
5274: xProgress := '3004-70';
5275: ece_extract_utils_pub.Find_pos ( l_line_t_tbl,
5276: 'CUSTOMER_TRX_LINE_ID',
5277: nPos3 );
5278: ec_debug.pl ( 3, 'nPos3: ',nPos3 );
5279:
5280: xProgress := '3006-70';
5281: ece_extract_utils_pub.Find_pos ( l_line_t_tbl,
5282: 'TAX_AMOUNT',
5280: xProgress := '3006-70';
5281: ece_extract_utils_pub.Find_pos ( l_line_t_tbl,
5282: 'TAX_AMOUNT',
5283: nPos4 );
5284: ec_debug.pl ( 3, 'nPos4: ',nPos4 );
5285:
5286:
5287: xProgress := '3010-70';
5288: BEGIN
5290: INTO l_line_t_fkey
5291: FROM sys.dual;
5292: EXCEPTION
5293: WHEN NO_DATA_FOUND THEN
5294: ec_debug.pl ( 1,
5295: 'EC',
5296: 'ECE_GET_NEXT_SEQ_FAILED',
5297: 'PROGRESS_LEVEL',
5298: xProgress,
5299: 'SEQ',
5300: 'ECE_AR_TRX_LINE_TAX_S' );
5301: END;
5302:
5303: ec_debug.pl ( 3, 'l_line_t_fkey: ',l_line_t_fkey );
5304:
5305: -- ******************************************
5306: -- pass the pl/sql table in for xref
5307: -- ******************************************
5342: xProgress := '3042-70';
5343: IF ( dbms_sql.last_row_count = 0 )
5344: THEN
5345: v_LevelProcessed := 'LINE TAX';
5346: ec_debug.pl ( 1,
5347: 'EC',
5348: 'ECE_NO_DB_ROW_PROCESSED',
5349: 'PROGRESS_LEVEL',
5350: xProgress,
5359: xProgress := '3044-70';
5360: IF ( dbms_sql.last_row_count = 0 )
5361: THEN
5362: v_LevelProcessed := 'LINE';
5363: ec_debug.pl ( 1,
5364: 'EC',
5365: 'ECE_NO_DB_ROW_PROCESSED',
5366: 'PROGRESS_LEVEL',
5367: xProgress,
5407: and rownum < 2;
5408:
5409: exception
5410: when no_data_found then
5411: ec_debug.pl(1,'no data found',xprogress);
5412: when others then
5413: ec_debug.pl(1,xprogress);
5414: end;
5415:
5409: exception
5410: when no_data_found then
5411: ec_debug.pl(1,'no data found',xprogress);
5412: when others then
5413: ec_debug.pl(1,xprogress);
5414: end;
5415:
5416:
5417:
5434: and rownum < 2;
5435:
5436: exception
5437: when no_data_found then
5438: ec_debug.pl(1,'no data found',xprogress);
5439: when others then
5440: ec_debug.pl(1,xprogress);
5441: end;
5442:
5436: exception
5437: when no_data_found then
5438: ec_debug.pl(1,'no data found',xprogress);
5439: when others then
5440: ec_debug.pl(1,xprogress);
5441: end;
5442:
5443:
5444: xProgress := '3044-70.3';
5460:
5461:
5462: exception
5463: when no_data_found then
5464: ec_debug.pl(1,'no data found',xprogress);
5465: when others then
5466: ec_debug.pl(1,xprogress);
5467: end;
5468: /* Bug 1979925 end */
5462: exception
5463: when no_data_found then
5464: ec_debug.pl(1,'no data found',xprogress);
5465: when others then
5466: ec_debug.pl(1,xprogress);
5467: end;
5468: /* Bug 1979925 end */
5469:
5470:
5476:
5477: xProgress := '3046-70';
5478: IF ( dbms_sql.last_row_count = 0 ) THEN
5479: v_LevelProcessed := 'HEADER 1';
5480: ec_debug.pl ( 1,
5481: 'EC',
5482: 'ECE_NO_DB_ROW_PROCESSED',
5483: 'PROGRESS_LEVEL',
5484: xProgress,
5492:
5493: xProgress := '3048-70';
5494: IF ( dbms_sql.last_row_count = 0 ) THEN
5495: v_LevelProcessed := 'HEADER';
5496: ec_debug.pl ( 1,
5497: 'EC',
5498: 'ECE_NO_DB_ROW_PROCESSED',
5499: 'PROGRESS_LEVEL',
5500: xProgress,
5521:
5522: xProgress := '3068-70';
5523: dbms_sql.close_cursor ( Line_t_sel_c );
5524:
5525: ec_debug.pop ( 'ece_ar_transaction.Populate_AR_Trx' );
5526:
5527: EXCEPTION
5528: WHEN OTHERS THEN
5529:
5526:
5527: EXCEPTION
5528: WHEN OTHERS THEN
5529:
5530: ec_debug.pl ( 0,
5531: 'EC',
5532: 'ECE_PROGRAM_ERROR',
5533: 'PROGRESS_LEVEL',
5534: xProgress );
5532: 'ECE_PROGRAM_ERROR',
5533: 'PROGRESS_LEVEL',
5534: xProgress );
5535:
5536: ec_debug.pl ( 0,
5537: 'EC',
5538: 'ECE_ERROR_MESSAGE',
5539: 'ERROR_MESSAGE',
5540: SQLERRM );
5552: IF (l_Automotive_Status IS NULL) THEN
5553: xProgress := '2020-80';
5554: l_Automotive_Installed := fnd_installation.get_app_info('VEH',l_Status,l_Industry,l_Schema);
5555: l_Automotive_Status := l_Status;
5556: ec_debug.pl(3,'l_Automotive_Status: ',l_Automotive_Status);
5557: END IF;
5558:
5559: xProgress := '2030-80';
5560: IF ( l_Automotive_Status = 'I' )
5566:
5567: EXCEPTION
5568: WHEN OTHERS THEN
5569:
5570: ec_debug.pl ( 0,
5571: 'EC',
5572: 'ECE_PROGRAM_ERROR',
5573: 'PROGRESS_LEVEL',
5574: xProgress );
5572: 'ECE_PROGRAM_ERROR',
5573: 'PROGRESS_LEVEL',
5574: xProgress );
5575:
5576: ec_debug.pl ( 0,
5577: 'EC',
5578: 'ECE_ERROR_MESSAGE',
5579: 'ERROR_MESSAGE',
5580: SQLERRM );