[Home] [Help]
45: cCommunication_Method VARCHAR2(120) := 'EDI';
46: cHeader_Interface VARCHAR2(120) := 'ECE_AR_TRX_HEADERS';
47: cHeader_1_Interface VARCHAR2(120) := 'ECE_AR_TRX_HEADER_1';
48: cAlw_chg_Interface VARCHAR2(120) := 'ECE_AR_TRX_ALLOWANCE_CHARGES';
49: cLine_Interface VARCHAR2(120) := 'ECE_AR_TRX_LINES';
50: cLine_t_Interface VARCHAR2(120) := 'ECE_AR_TRX_LINE_TAX';
51: l_line_text VARCHAR2(2000);
52: uFile_type utl_file.file_type;
53: cCreate_Date_From DATE := TO_DATE(cCDate_From,'YYYY/MM/DD HH24:MI:SS');
5078: p_tbl => l_line_tbl );
5079:
5080: xProgress := '2920-70';
5081: BEGIN
5082: SELECT ece_ar_trx_lines_s.nextval
5083: INTO l_line_fkey
5084: FROM sys.dual;
5085: EXCEPTION
5086: WHEN NO_DATA_FOUND THEN
5089: 'ECE_GET_NEXT_SEQ_FAILED',
5090: 'PROGRESS_LEVEL',
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';
5105: -- Now update the columns values of which have been obtained thru the procedure
5106: -- calls.
5107:
5108: xProgress := '2940-70';
5109: UPDATE ece_ar_trx_lines
5110: SET line_item_number = l_line_item_number,
5111: line_item_attrib_category = l_line_item_attrib_category,
5112: line_item_attribute1 = l_line_item_attribute1,
5113: line_item_attribute2 = l_line_item_attribute2,
5135: xProgress,
5136: 'INFO',
5137: 'LINE ITEM',
5138: 'TABLE_NAME',
5139: 'ECE_AR_TRX_LINES' );
5140: END IF;
5141:
5142:
5143: xProgress := '2941-70';
5401: l_weight_uom_code_ext3,
5402: l_weight_uom_code_ext4,
5403: l_weight_uom_code_ext5
5404: from
5405: ece_ar_trx_lines
5406: where weight_uom_code_int = l_weight_uom_code
5407: and rownum < 2;
5408:
5409: exception
5428: l_volume_uom_code_ext3,
5429: l_volume_uom_code_ext4,
5430: l_volume_uom_code_ext5
5431: from
5432: ece_ar_trx_lines
5433: where volume_uom_code_int = l_volume_uom_code
5434: and rownum < 2;
5435:
5436: exception