[Home] [Help]
42: ORDER BY line_id;
43:
44: BEGIN
45: xProgress := 'POCO-10-1000';
46: ec_debug.enable_debug(v_debug_mode);
47: ec_debug.push('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND' );
48: ec_debug.pl(3,'cOutput_Path: ', cOutput_Path );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
43:
44: BEGIN
45: xProgress := 'POCO-10-1000';
46: ec_debug.enable_debug(v_debug_mode);
47: ec_debug.push('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND' );
48: ec_debug.pl(3,'cOutput_Path: ', cOutput_Path );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
44: BEGIN
45: xProgress := 'POCO-10-1000';
46: ec_debug.enable_debug(v_debug_mode);
47: ec_debug.push('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND' );
48: ec_debug.pl(3,'cOutput_Path: ', cOutput_Path );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
45: xProgress := 'POCO-10-1000';
46: ec_debug.enable_debug(v_debug_mode);
47: ec_debug.push('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND' );
48: ec_debug.pl(3,'cOutput_Path: ', cOutput_Path );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
46: ec_debug.enable_debug(v_debug_mode);
47: ec_debug.push('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND' );
48: ec_debug.pl(3,'cOutput_Path: ', cOutput_Path );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
47: ec_debug.push('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND' );
48: ec_debug.pl(3,'cOutput_Path: ', cOutput_Path );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
55: ec_debug.pl(3,'cVendor_Name: ', cVendor_Name );
48: ec_debug.pl(3,'cOutput_Path: ', cOutput_Path );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
55: ec_debug.pl(3,'cVendor_Name: ', cVendor_Name );
56: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code );
49: ec_debug.pl(3,'cOutput_Filename: ', cOutput_Filename );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
55: ec_debug.pl(3,'cVendor_Name: ', cVendor_Name );
56: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code );
57: ec_debug.pl(3,'v_debug_mode: ', v_debug_mode );
50: ec_debug.pl(3,'cPO_Number_From: ', cPO_Number_From );
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
55: ec_debug.pl(3,'cVendor_Name: ', cVendor_Name );
56: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code );
57: ec_debug.pl(3,'v_debug_mode: ', v_debug_mode );
58:
51: ec_debug.pl(3,'cPO_Number_To: ', cPO_Number_To );
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
55: ec_debug.pl(3,'cVendor_Name: ', cVendor_Name );
56: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code );
57: ec_debug.pl(3,'v_debug_mode: ', v_debug_mode );
58:
59: /* Check to see if the transaction is enabled. If not, abort */
52: ec_debug.pl(3,'cRDate_From: ', cRDate_From );
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
55: ec_debug.pl(3,'cVendor_Name: ', cVendor_Name );
56: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code );
57: ec_debug.pl(3,'v_debug_mode: ', v_debug_mode );
58:
59: /* Check to see if the transaction is enabled. If not, abort */
60: xProgress := 'POCO-10-1001';
53: ec_debug.pl(3,'cRDate_To: ', cRDate_To );
54: ec_debug.pl(3,'cPC_Type: ', cPC_Type );
55: ec_debug.pl(3,'cVendor_Name: ', cVendor_Name );
56: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code );
57: ec_debug.pl(3,'v_debug_mode: ', v_debug_mode );
58:
59: /* Check to see if the transaction is enabled. If not, abort */
60: xProgress := 'POCO-10-1001';
61: fnd_profile.get('ECE_' || cTransaction_Type || '_ENABLED',cEnabled);
73: FROM DUAL;
74:
75: EXCEPTION
76: WHEN NO_DATA_FOUND THEN
77: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_OUTPUT_RUNS_S');
78:
79: END;
80:
81: ec_debug.pl(3,'iRun_id: ',iRun_id);
77: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_OUTPUT_RUNS_S');
78:
79: END;
80:
81: ec_debug.pl(3,'iRun_id: ',iRun_id);
82:
83: xProgress := 'POCO-10-1005';
84: ec_debug.pl(0,'EC','ECE_POCO_START',NULL);
85:
80:
81: ec_debug.pl(3,'iRun_id: ',iRun_id);
82:
83: xProgress := 'POCO-10-1005';
84: ec_debug.pl(0,'EC','ECE_POCO_START',NULL);
85:
86: xProgress := 'POCO-10-1010';
87: ec_debug.pl(0,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
88:
83: xProgress := 'POCO-10-1005';
84: ec_debug.pl(0,'EC','ECE_POCO_START',NULL);
85:
86: xProgress := 'POCO-10-1010';
87: ec_debug.pl(0,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
88:
89: ece_poo_transaction.project_sel_c:=0; --Bug 2490109
90:
91: IF cOutput_Filename IS NULL THEN --Bug 2430822
95: END IF;
96:
97: -- Open the file for write.
98: xProgress := 'POO-10-1040';
99: if ec_debug.G_debug_level = 1 then
100: ec_debug.pl(1,'Output File:',cFilename);
101: ec_debug.pl(1,'path --> ', cOutput_Path);
102: -- ec_debug.pl(1,'Open Output file'); --Bug 2034376
103: end if;
96:
97: -- Open the file for write.
98: xProgress := 'POO-10-1040';
99: if ec_debug.G_debug_level = 1 then
100: ec_debug.pl(1,'Output File:',cFilename);
101: ec_debug.pl(1,'path --> ', cOutput_Path);
102: -- ec_debug.pl(1,'Open Output file'); --Bug 2034376
103: end if;
104: i_path := cOutput_Path;
97: -- Open the file for write.
98: xProgress := 'POO-10-1040';
99: if ec_debug.G_debug_level = 1 then
100: ec_debug.pl(1,'Output File:',cFilename);
101: ec_debug.pl(1,'path --> ', cOutput_Path);
102: -- ec_debug.pl(1,'Open Output file'); --Bug 2034376
103: end if;
104: i_path := cOutput_Path;
105: i_filename := cFilename;
98: xProgress := 'POO-10-1040';
99: if ec_debug.G_debug_level = 1 then
100: ec_debug.pl(1,'Output File:',cFilename);
101: ec_debug.pl(1,'path --> ', cOutput_Path);
102: -- ec_debug.pl(1,'Open Output file'); --Bug 2034376
103: end if;
104: i_path := cOutput_Path;
105: i_filename := cFilename;
106: -- ece_poo_transaction.uFile_type := utl_file.fopen(cOutput_Path,cFilename,'W',32767); --Bug 2887790
105: i_filename := cFilename;
106: -- ece_poo_transaction.uFile_type := utl_file.fopen(cOutput_Path,cFilename,'W',32767); --Bug 2887790
107:
108: xProgress := 'POCO-10-1020';
109: ec_debug.pl(1,'Call Populate Poco Trx procedure'); --Bug 2034376
110: ece_poco_transaction.populate_poco_trx(
111: cCommunication_Method,
112: cTransaction_Type,
113: iOutput_width,
125: cPO_Number_From,
126: cPO_Number_To);
127:
128: /* xProgress := 'POCO-10-1030';
129: ec_debug.pl(1,'Call Put To Output Table procedure'); --Bug 2034376
130:
131: select count(*)
132: into xHeaderCount
133: from ECE_PO_INTERFACE_HEADERS
136:
137:
138: -- 2823215
139:
140: /* ec_debug.pl(1,'NUMBER OF RECORDS PROCESSED IS ',xHeaderCount);
141: ece_poco_transaction.put_data_to_output_table(
142: cCommunication_Method,
143: cTransaction_Type,
144: iOutput_width,
148: cShipment_Interface,
149: cProject_Interface); */
150:
151: xProgress := 'POCO-10-1090';
152: ec_debug.pl(1,'Close Output file'); --Bug 2034376
153: if (utl_file.is_open(ece_poo_transaction.uFile_type)) then
154: utl_file.fclose(ece_poo_transaction.uFile_type);
155: end if;
156:
156:
157:
158:
159: IF ec_mapping_utils.ec_get_trans_upgrade_status(cTransaction_Type) = 'U' THEN
160: ec_debug.pl(0,'EC','ECE_REC_TRANS_PENDING',NULL);
161: retcode := 1;
162: END IF;
163:
164: ec_debug.pop('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND');
160: ec_debug.pl(0,'EC','ECE_REC_TRANS_PENDING',NULL);
161: retcode := 1;
162: END IF;
163:
164: ec_debug.pop('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND');
165: ec_debug.disable_debug;
166: COMMIT;
167:
168: EXCEPTION
161: retcode := 1;
162: END IF;
163:
164: ec_debug.pop('ECE_POCO_TRANSACTION.EXTRACT_POCO_OUTBOUND');
165: ec_debug.disable_debug;
166: COMMIT;
167:
168: EXCEPTION
169: WHEN ece_transaction_disabled THEN
166: COMMIT;
167:
168: EXCEPTION
169: WHEN ece_transaction_disabled THEN
170: ec_debug.pl(0,'EC','ECE_TRANSACTION_DISABLED','TRANSACTION',cTransaction_type);
171: retcode := 1;
172: ec_debug.disable_debug;
173: ROLLBACK;
174:
168: EXCEPTION
169: WHEN ece_transaction_disabled THEN
170: ec_debug.pl(0,'EC','ECE_TRANSACTION_DISABLED','TRANSACTION',cTransaction_type);
171: retcode := 1;
172: ec_debug.disable_debug;
173: ROLLBACK;
174:
175: WHEN utl_file.write_error THEN
176: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
172: ec_debug.disable_debug;
173: ROLLBACK;
174:
175: WHEN utl_file.write_error THEN
176: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
177: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
178:
179: retcode := 2;
180: ec_debug.disable_debug;
173: ROLLBACK;
174:
175: WHEN utl_file.write_error THEN
176: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
177: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
178:
179: retcode := 2;
180: ec_debug.disable_debug;
181: if (utl_file.is_open(ece_poo_transaction.uFile_type))
176: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
177: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
178:
179: retcode := 2;
180: ec_debug.disable_debug;
181: if (utl_file.is_open(ece_poo_transaction.uFile_type))
182: then
183: utl_file.fclose(ece_poo_transaction.uFile_type);
184: end if;
186: utl_file.fclose(ece_poo_transaction.uFile_type);
187: ROLLBACK;
188:
189: WHEN utl_file.invalid_path THEN
190: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
191: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
192:
193: retcode := 2;
194: ec_debug.disable_debug;
187: ROLLBACK;
188:
189: WHEN utl_file.invalid_path THEN
190: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
191: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
192:
193: retcode := 2;
194: ec_debug.disable_debug;
195: ROLLBACK;
190: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
191: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
192:
193: retcode := 2;
194: ec_debug.disable_debug;
195: ROLLBACK;
196:
197: WHEN utl_file.invalid_operation THEN
198: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
194: ec_debug.disable_debug;
195: ROLLBACK;
196:
197: WHEN utl_file.invalid_operation THEN
198: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
199: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
200:
201: retcode := 2;
202: ec_debug.disable_debug;
195: ROLLBACK;
196:
197: WHEN utl_file.invalid_operation THEN
198: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
199: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
200:
201: retcode := 2;
202: ec_debug.disable_debug;
203: if (utl_file.is_open(ece_poo_transaction.uFile_type))
198: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
199: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
200:
201: retcode := 2;
202: ec_debug.disable_debug;
203: if (utl_file.is_open(ece_poo_transaction.uFile_type))
204: then
205: utl_file.fclose(ece_poo_transaction.uFile_type);
206: end if;
208: utl_file.fclose(ece_poo_transaction.uFile_type);
209: ROLLBACK;
210:
211: WHEN OTHERS THEN
212: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
213: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
214:
215: retcode := 2;
216: ec_debug.disable_debug;
209: ROLLBACK;
210:
211: WHEN OTHERS THEN
212: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
213: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
214:
215: retcode := 2;
216: ec_debug.disable_debug;
217: if (utl_file.is_open(ece_poo_transaction.uFile_type))
212: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
213: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
214:
215: retcode := 2;
216: ec_debug.disable_debug;
217: if (utl_file.is_open(ece_poo_transaction.uFile_type))
218: then
219: utl_file.fclose(ece_poo_transaction.uFile_type);
220: end if;
487: FROM po_line_locations
488: WHERE po_line_id = p_line_id;
489:
490: BEGIN
491: ec_debug.push('ECE_POCO_TRANSACTION.POPULATE_POCO_TRX');
492: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
493: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
488: WHERE po_line_id = p_line_id;
489:
490: BEGIN
491: ec_debug.push('ECE_POCO_TRANSACTION.POPULATE_POCO_TRX');
492: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
493: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
489:
490: BEGIN
491: ec_debug.push('ECE_POCO_TRANSACTION.POPULATE_POCO_TRX');
492: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
493: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
490: BEGIN
491: ec_debug.push('ECE_POCO_TRANSACTION.POPULATE_POCO_TRX');
492: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
493: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
491: ec_debug.push('ECE_POCO_TRANSACTION.POPULATE_POCO_TRX');
492: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
493: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
492: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
493: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
493: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
494: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
495: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
496: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
497: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
505: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
498: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
505: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
506: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
499: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
505: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
506: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
507: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
500: ec_debug.pl(3,'cProject_Interface: ' ,cProject_Interface);
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
505: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
506: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
507: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
508:
501: ec_debug.pl(3,'cRevised_Date_From: ' ,cRevised_Date_From);
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
505: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
506: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
507: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
508:
509: xProgress := 'POCOB-10-1000';
502: ec_debug.pl(3,'cRevised_Date_To: ' ,cRevised_Date_To);
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
505: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
506: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
507: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
508:
509: xProgress := 'POCOB-10-1000';
510: BEGIN
503: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
504: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
505: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
506: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
507: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
508:
509: xProgress := 'POCOB-10-1000';
510: BEGIN
511: SELECT inventory_organization_id
513: FROM financials_system_parameters;
514:
515: EXCEPTION
516: WHEN NO_DATA_FOUND THEN
517: ec_debug.pl(0,
518: 'EC',
519: 'ECE_NO_ROW_SELECTED',
520: 'PROGRESS_LEVEL',
521: xProgress,
523: 'INVENTORY ORGANIZATION ID',
524: 'TABLE_NAME',
525: 'FINANCIALS_SYSTERM_PARAMETERS');
526: END;
527: ec_debug.pl(3,'nOrganization_ID: ',nOrganization_ID);
528:
529: -- Let's See if Project Accounting is Installed
530: xProgress := 'POCOB-10-1001';
531: v_project_acct_installed := fnd_installation.get_app_info(
534: v_project_acct_industry,
535: v_project_acct_schema);
536:
537: v_project_acct_status := NVL(v_project_acct_status,'X');
538: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
539: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
540: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
541:
542: -- Get Profile Option Values for Attachments
535: v_project_acct_schema);
536:
537: v_project_acct_status := NVL(v_project_acct_status,'X');
538: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
539: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
540: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
541:
542: -- Get Profile Option Values for Attachments
543: xProgress := 'POCOB-10-1002';
536:
537: v_project_acct_status := NVL(v_project_acct_status,'X');
538: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
539: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
540: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
541:
542: -- Get Profile Option Values for Attachments
543: xProgress := 'POCOB-10-1002';
544: fnd_profile.get('ECE_' || cTransaction_Type || '_HEAD_ATT',v_header_att_enabled);
564: END IF;
565:
566: EXCEPTION
567: WHEN value_error OR invalid_number THEN
568: ec_debug.pl(0,'EC','ECE_INVALID_SEGMENT_NUM','SEGMENT_VALUE',n_att_seg_size,'SEGMENT_DEFAULT',ece_poo_transaction.G_DEFAULT_ATT_SEG_SIZE);
569: n_att_seg_size := ece_poo_transaction.G_DEFAULT_ATT_SEG_SIZE;
570: END;
571: END IF;
572:
569: n_att_seg_size := ece_poo_transaction.G_DEFAULT_ATT_SEG_SIZE;
570: END;
571: END IF;
572:
573: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
574: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
575: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
576: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
577: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
570: END;
571: END IF;
572:
573: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
574: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
575: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
576: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
577: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
578: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
571: END IF;
572:
573: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
574: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
575: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
576: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
577: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
578: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
579: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
572:
573: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
574: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
575: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
576: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
577: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
578: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
579: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
580:
573: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
574: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
575: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
576: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
577: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
578: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
579: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
580:
581: xProgress := 'POCOB-10-1010';
574: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
575: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
576: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
577: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
578: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
579: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
580:
581: xProgress := 'POCOB-10-1010';
582: ece_flatfile_pvt.init_table(cTransaction_Type,cHeader_Interface,NULL,FALSE,l_header_tbl,l_key_tbl);
575: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
576: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
577: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
578: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
579: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
580:
581: xProgress := 'POCOB-10-1010';
582: ece_flatfile_pvt.init_table(cTransaction_Type,cHeader_Interface,NULL,FALSE,l_header_tbl,l_key_tbl);
583:
585: l_key_tbl := l_header_tbl;
586:
587: xProgress := 'POCOB-10-1025';
588: --iKey_count := l_header_tbl.COUNT;
589: --ec_debug.pl(3,'iKey_count: ',iKey_count );
590:
591: xProgress := 'POCOB-10-1030';
592: ece_flatfile_pvt.init_table(cTransaction_Type,cLine_Interface,NULL,TRUE,l_line_tbl,l_key_tbl);
593:
780: xProgress := 'POCOB-10-1190';
781: cHeader_select := cHeader_select ||
782: cHeader_from ||
783: cHeader_where;
784: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
785:
786: cLine_select := cLine_select ||
787: cLine_from ||
788: cLine_where;
785:
786: cLine_select := cLine_select ||
787: cLine_from ||
788: cLine_where;
789: ec_debug.pl(3,'cLine_select: ',cLine_select);
790:
791: cShipment_select := cShipment_select ||
792: cShipment_from ||
793: cShipment_where;
790:
791: cShipment_select := cShipment_select ||
792: cShipment_from ||
793: cShipment_where;
794: ec_debug.pl(3,'cShipment_select: ',cShipment_select);
795:
796: -- ***************************************************
797: -- *** Get data setup for the dynamic SQL call.
798: -- *** Open a cursor for each of the SELECT call
846: -- set counter
847: -- ************
848: xProgress := 'POCOB-10-1260';
849: iHeader_count := l_header_tbl.COUNT;
850: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
851:
852: xProgress := 'POCOB-10-1270';
853: iLine_count := l_line_tbl.COUNT;
854: ec_debug.pl(3,'iLine_count: ',iLine_count);
850: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
851:
852: xProgress := 'POCOB-10-1270';
853: iLine_count := l_line_tbl.COUNT;
854: ec_debug.pl(3,'iLine_count: ',iLine_count);
855:
856: xProgress := 'POCOB-10-1280';
857: iShipment_count := l_shipment_tbl.COUNT;
858: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
854: ec_debug.pl(3,'iLine_count: ',iLine_count);
855:
856: xProgress := 'POCOB-10-1280';
857: iShipment_count := l_shipment_tbl.COUNT;
858: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
859:
860: -- ******************************************************
861: -- Define TYPE for every columns in the SELECT statement
862: -- For each piece of the data returns, we need to tell
885: -- ***************************************************
886: -- Header Level Positions
887: xProgress := 'POCOB-10-1320';
888: ece_extract_utils_pub.find_pos(l_header_tbl,ece_extract_utils_pub.G_TRANSACTION_DATE,n_trx_date_pos);
889: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
890:
891: xProgress := 'POCOB-10-1330';
892: ece_extract_utils_pub.find_pos(l_header_tbl,'PO_HEADER_ID',nHeader_key_pos);
893: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
889: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
890:
891: xProgress := 'POCOB-10-1330';
892: ece_extract_utils_pub.find_pos(l_header_tbl,'PO_HEADER_ID',nHeader_key_pos);
893: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
894:
895: xProgress := 'POCOB-10-1340';
896: ece_extract_utils_pub.find_pos(l_header_tbl,'DOCUMENT_TYPE',nDocument_type_pos);
897: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
893: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
894:
895: xProgress := 'POCOB-10-1340';
896: ece_extract_utils_pub.find_pos(l_header_tbl,'DOCUMENT_TYPE',nDocument_type_pos);
897: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
898:
899: xProgress := 'POCOB-10-1350';
900: ece_extract_utils_pub.find_pos(l_header_tbl,'PO_NUMBER',nPO_Number_pos);
901: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
897: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
898:
899: xProgress := 'POCOB-10-1350';
900: ece_extract_utils_pub.find_pos(l_header_tbl,'PO_NUMBER',nPO_Number_pos);
901: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
902:
903: xProgress := 'POCOB-10-1360';
904: ece_extract_utils_pub.find_pos(l_header_tbl,'PO_TYPE',nPO_Type_pos);
905: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
901: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
902:
903: xProgress := 'POCOB-10-1360';
904: ece_extract_utils_pub.find_pos(l_header_tbl,'PO_TYPE',nPO_Type_pos);
905: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
906:
907: xProgress := 'POCOB-10-1370';
908: ece_extract_utils_pub.find_pos(l_header_tbl,'POR_RELEASE_NUM',nRelease_num_pos);
909: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
905: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
906:
907: xProgress := 'POCOB-10-1370';
908: ece_extract_utils_pub.find_pos(l_header_tbl,'POR_RELEASE_NUM',nRelease_num_pos);
909: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
910:
911: xProgress := 'POCOB-10-1380';
912: ece_extract_utils_pub.find_pos(l_header_tbl,'POR_RELEASE_ID',nRelease_id_pos);
913: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
909: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
910:
911: xProgress := 'POCOB-10-1380';
912: ece_extract_utils_pub.find_pos(l_header_tbl,'POR_RELEASE_ID',nRelease_id_pos);
913: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
914:
915: xProgress := 'POCOB-10-1381';
916: ece_extract_utils_pub.find_pos(l_header_tbl,'CANCEL_FLAG',nHeader_Cancel_Flag_pos);
917:
923:
924: -- Line Level Positions
925: xProgress := 'POCOB-10-1390';
926: ece_extract_utils_pub.find_pos(l_line_tbl,'PO_LINE_LOCATION_ID',nLine_Location_ID_pos);
927: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
928:
929: xProgress := 'POCOB-10-1400';
930: ece_extract_utils_pub.find_pos(l_line_tbl,'LINE_NUM',nLine_num_pos);
931: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
927: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
928:
929: xProgress := 'POCOB-10-1400';
930: ece_extract_utils_pub.find_pos(l_line_tbl,'LINE_NUM',nLine_num_pos);
931: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
932:
933: xProgress := 'POCOB-10-1402';
934: ece_extract_utils_pub.find_pos(l_line_tbl,'PO_LINE_ID',nLine_key_pos);
935: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
931: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
932:
933: xProgress := 'POCOB-10-1402';
934: ece_extract_utils_pub.find_pos(l_line_tbl,'PO_LINE_ID',nLine_key_pos);
935: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
936:
937: xProgress := 'POCOB-10-1404';
938: ece_extract_utils_pub.find_pos(l_line_tbl,'ITEM_ID',nItem_id_pos);
939: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
935: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
936:
937: xProgress := 'POCOB-10-1404';
938: ece_extract_utils_pub.find_pos(l_line_tbl,'ITEM_ID',nItem_id_pos);
939: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
940:
941: xProgress := 'POCOB-10-1405';
942: ece_extract_utils_pub.find_pos(l_line_tbl,'CANCEL_FLAG',nLine_Cancel_Flag_pos);
943:
995:
996: -- Shipment Level Positions
997: xProgress := 'POCOB-10-1406';
998: ece_extract_utils_pub.find_pos(l_shipment_tbl,'LINE_LOCATION_ID',nShip_Line_Location_ID_pos);
999: ec_debug.pl(3,'nShip_Line_Location_ID_pos: ',nShip_Line_Location_ID_pos);
1000:
1001: xProgress := 'POCOB-10-1407';
1002: ece_extract_utils_pub.find_pos(l_Shipment_tbl,'QUANTITY_PENDING',nQuantity_pending_pos);
1003:
1081: -- 2412921 begin
1082:
1083: xProgress := 'POCOB-10-1410';
1084: ece_extract_utils_pub.find_pos(l_header_tbl,'CANCEL_DATE',nCancel_Date_pos);
1085: ec_debug.pl(3,'nCancel_Date_pos -> ', nCancel_Date_pos);
1086:
1087: xProgress := 'POCOB-10-1412';
1088: ece_extract_utils_pub.find_pos(l_line_tbl,'CANCEL_DATE',nCancel_Date_posl);
1089: ec_debug.pl(3,'nCancel_Date_posl -> ', nCancel_Date_posl);
1085: ec_debug.pl(3,'nCancel_Date_pos -> ', nCancel_Date_pos);
1086:
1087: xProgress := 'POCOB-10-1412';
1088: ece_extract_utils_pub.find_pos(l_line_tbl,'CANCEL_DATE',nCancel_Date_posl);
1089: ec_debug.pl(3,'nCancel_Date_posl -> ', nCancel_Date_posl);
1090: -- 2412921 end
1091:
1092:
1093: -- Timezone enhancement
1314: FROM DUAL;
1315:
1316: EXCEPTION
1317: WHEN NO_DATA_FOUND THEN
1318: ec_debug.pl(0,
1319: 'EC',
1320: 'ECE_DECODE_FAILED',
1321: 'PROGRESS_LEVEL',
1322: xProgress,
1322: xProgress,
1323: 'CODE',
1324: l_header_tbl(nDocument_type_pos).value);
1325: END;
1326: ec_debug.pl(3, 'l_document_type: ',l_document_type);
1327:
1328: xProgress := 'POCOB-10-1450';
1329: ece_poo_transaction.update_po(l_document_type,
1330: l_header_tbl(nPO_Number_pos).value,
1411: FROM DUAL;
1412:
1413: EXCEPTION
1414: WHEN NO_DATA_FOUND THEN
1415: ec_debug.pl(0,
1416: 'EC',
1417: 'ECE_GET_NEXT_SEQ_FAILED',
1418: 'PROGRESS_LEVEL',
1419: xProgress,
1420: 'SEQ',
1421: 'ECE_POCO_HEADER_S');
1422:
1423: END;
1424: ec_debug.pl(3,'l_header_fkey: ',l_header_fkey);
1425:
1426: xProgress := 'POOB-10-1490';
1427: --2823215
1428: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value,' '),1,25),25);
1430: xProgress := 'POOB-10-1491';
1431: c_file_common_key := c_file_common_key ||
1432: RPAD(SUBSTRB(NVL(l_header_tbl(n_header_common_key_pos).value,' '),1,22),22) || RPAD(' ',22) || RPAD(' ',22);
1433:
1434: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
1435: /* ece_extract_utils_pub.insert_into_interface_tbl(
1436: iRun_id,
1437: cTransaction_Type,
1438: cCommunication_Method,
1466: IF l_document_type = 'NR' THEN -- If this is a Release PO.
1467: xProgress := 'POCOB-10-1503';
1468: v_entity_name := 'PO_RELEASES';
1469: v_pk1_value := l_header_tbl(nRelease_id_pos).value;
1470: ec_debug.pl(3,'release_id: ',l_header_tbl(nRelease_id_pos).value);
1471: ELSE -- If this is a non-Release PO.
1472: xProgress := 'POCOB-10-1504';
1473: v_entity_name := 'PO_HEADERS';
1474: v_pk1_value := l_header_tbl(nHeader_key_pos).value;
1471: ELSE -- If this is a non-Release PO.
1472: xProgress := 'POCOB-10-1504';
1473: v_entity_name := 'PO_HEADERS';
1474: v_pk1_value := l_header_tbl(nHeader_key_pos).value;
1475: ec_debug.pl(3,'po_header_id: ',l_header_tbl(nHeader_key_pos).value);
1476: END IF;
1477:
1478: xProgress := 'POCOB-10-1505';
1479: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
1602: FROM DUAL;
1603:
1604: EXCEPTION
1605: WHEN NO_DATA_FOUND THEN
1606: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POCO_LINE_S');
1607:
1608: END;
1609: ec_debug.pl(3,'l_line_fkey: ',l_line_fkey);
1610:
1605: WHEN NO_DATA_FOUND THEN
1606: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POCO_LINE_S');
1607:
1608: END;
1609: ec_debug.pl(3,'l_line_fkey: ',l_line_fkey);
1610:
1611: -- Insert into Interface Table
1612: /* xProgress := 'POCOB-10-1600';
1613: ece_extract_utils_pub.insert_into_interface_tbl(
1617: cLine_Interface,
1618: l_line_tbl,
1619: l_line_fkey); */ -- 2823215
1620:
1621: if ec_debug.G_debug_level = 3 then
1622: ec_debug.pl(3,'cline_part_number: ' ,cline_part_number);
1623: ec_debug.pl(3,'cline_part_attrib_category: ',cline_part_attrib_category);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1618: l_line_tbl,
1619: l_line_fkey); */ -- 2823215
1620:
1621: if ec_debug.G_debug_level = 3 then
1622: ec_debug.pl(3,'cline_part_number: ' ,cline_part_number);
1623: ec_debug.pl(3,'cline_part_attrib_category: ',cline_part_attrib_category);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1619: l_line_fkey); */ -- 2823215
1620:
1621: if ec_debug.G_debug_level = 3 then
1622: ec_debug.pl(3,'cline_part_number: ' ,cline_part_number);
1623: ec_debug.pl(3,'cline_part_attrib_category: ',cline_part_attrib_category);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1620:
1621: if ec_debug.G_debug_level = 3 then
1622: ec_debug.pl(3,'cline_part_number: ' ,cline_part_number);
1623: ec_debug.pl(3,'cline_part_attrib_category: ',cline_part_attrib_category);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1621: if ec_debug.G_debug_level = 3 then
1622: ec_debug.pl(3,'cline_part_number: ' ,cline_part_number);
1623: ec_debug.pl(3,'cline_part_attrib_category: ',cline_part_attrib_category);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1622: ec_debug.pl(3,'cline_part_number: ' ,cline_part_number);
1623: ec_debug.pl(3,'cline_part_attrib_category: ',cline_part_attrib_category);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1623: ec_debug.pl(3,'cline_part_attrib_category: ',cline_part_attrib_category);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1624: ec_debug.pl(3,'cline_part_attribute1: ' ,cline_part_attribute1);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1625: ec_debug.pl(3,'cline_part_attribute2: ' ,cline_part_attribute2);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1626: ec_debug.pl(3,'cline_part_attribute3: ' ,cline_part_attribute3);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1627: ec_debug.pl(3,'cline_part_attribute4: ' ,cline_part_attribute4);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1628: ec_debug.pl(3,'cline_part_attribute5: ' ,cline_part_attribute5);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1636: ec_debug.pl(3,'cline_part_attribute13: ' ,cline_part_attribute13);
1629: ec_debug.pl(3,'cline_part_attribute6: ' ,cline_part_attribute6);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1636: ec_debug.pl(3,'cline_part_attribute13: ' ,cline_part_attribute13);
1637: ec_debug.pl(3,'cline_part_attribute14: ' ,cline_part_attribute14);
1630: ec_debug.pl(3,'cline_part_attribute7: ' ,cline_part_attribute7);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1636: ec_debug.pl(3,'cline_part_attribute13: ' ,cline_part_attribute13);
1637: ec_debug.pl(3,'cline_part_attribute14: ' ,cline_part_attribute14);
1638: ec_debug.pl(3,'cline_part_attribute15: ' ,cline_part_attribute15);
1631: ec_debug.pl(3,'cline_part_attribute8: ' ,cline_part_attribute8);
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1636: ec_debug.pl(3,'cline_part_attribute13: ' ,cline_part_attribute13);
1637: ec_debug.pl(3,'cline_part_attribute14: ' ,cline_part_attribute14);
1638: ec_debug.pl(3,'cline_part_attribute15: ' ,cline_part_attribute15);
1639: END if;
1632: ec_debug.pl(3,'cline_part_attribute9: ' ,cline_part_attribute9);
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1636: ec_debug.pl(3,'cline_part_attribute13: ' ,cline_part_attribute13);
1637: ec_debug.pl(3,'cline_part_attribute14: ' ,cline_part_attribute14);
1638: ec_debug.pl(3,'cline_part_attribute15: ' ,cline_part_attribute15);
1639: END if;
1640:
1633: ec_debug.pl(3,'cline_part_attribute10: ' ,cline_part_attribute10);
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1636: ec_debug.pl(3,'cline_part_attribute13: ' ,cline_part_attribute13);
1637: ec_debug.pl(3,'cline_part_attribute14: ' ,cline_part_attribute14);
1638: ec_debug.pl(3,'cline_part_attribute15: ' ,cline_part_attribute15);
1639: END if;
1640:
1641: xProgress := 'POOB-10-1591';
1634: ec_debug.pl(3,'cline_part_attribute11: ' ,cline_part_attribute11);
1635: ec_debug.pl(3,'cline_part_attribute12: ' ,cline_part_attribute12);
1636: ec_debug.pl(3,'cline_part_attribute13: ' ,cline_part_attribute13);
1637: ec_debug.pl(3,'cline_part_attribute14: ' ,cline_part_attribute14);
1638: ec_debug.pl(3,'cline_part_attribute15: ' ,cline_part_attribute15);
1639: END if;
1640:
1641: xProgress := 'POOB-10-1591';
1642: -- 2823215
1671: 1,
1672: 22),22) ||
1673: RPAD(' ',22);
1674:
1675: if ec_debug.G_debug_level = 3 then
1676: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
1677: end if;
1678:
1679: xProgress := 'POOB-10-1621';
1672: 22),22) ||
1673: RPAD(' ',22);
1674:
1675: if ec_debug.G_debug_level = 3 then
1676: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
1677: end if;
1678:
1679: xProgress := 'POOB-10-1621';
1680:
1702: line_part_attribute15 = cline_part_attribute15
1703: WHERE transaction_record_id = l_line_fkey; */
1704:
1705: --2412921 begin
1706: ec_debug.pl(3,'document type ',l_header_tbl(nDocument_type_pos).value);
1707: if l_header_tbl(nDocument_type_pos).value NOT IN ('RELEASE','BLANKET RELEASE') then
1708:
1709: begin
1710: cancel_flag_value := l_header_tbl(nHeader_Cancel_Flag_pos).value;
1707: if l_header_tbl(nDocument_type_pos).value NOT IN ('RELEASE','BLANKET RELEASE') then
1708:
1709: begin
1710: cancel_flag_value := l_header_tbl(nHeader_Cancel_Flag_pos).value;
1711: ec_debug.pl(3,'cancel_flag_value->' ,cancel_flag_value);
1712:
1713: if cancel_flag_value = 'Y' then
1714: cancel_date_value := to_date(l_line_tbl(nCancel_Date_posl).value,'YYYYMMDD HH24MISS');
1715: ec_debug.pl(3,'cancel_date_value->' ,l_line_tbl(nCancel_Date_posl).value);
1711: ec_debug.pl(3,'cancel_flag_value->' ,cancel_flag_value);
1712:
1713: if cancel_flag_value = 'Y' then
1714: cancel_date_value := to_date(l_line_tbl(nCancel_Date_posl).value,'YYYYMMDD HH24MISS');
1715: ec_debug.pl(3,'cancel_date_value->' ,l_line_tbl(nCancel_Date_posl).value);
1716: end if;
1717:
1718: if cancel_date_value is not null then counter := counter + 1;
1719: end if;
1717:
1718: if cancel_date_value is not null then counter := counter + 1;
1719: end if;
1720:
1721: ec_debug.pl(3,'counter -->' ,counter);
1722:
1723: /* If Header is already updated with cancel date from line, then no need
1724: to update again */
1725: if counter = 1 then
1752: -- 2823215
1753: -- 2412921 end
1754:
1755: IF SQL%NOTFOUND THEN
1756: ec_debug.pl(0,'EC','ECE_NO_ROW_UPDATED','PROGRESS_LEVEL',xProgress,'INFO','LINE PART','TABLE_NAME','ECE_PO_INTERFACE_LINES');
1757: END IF;
1758:
1759: -- ********************************************************
1760: -- Call custom program stub to populate the extension table
1768: /* Bug 2235872 IF l_document_type = 'NR' THEN -- If this is a Release PO.
1769: xProgress := 'POCOB-10-1622';
1770: v_entity_name := 'PO_SHIPMENTS';
1771: v_pk1_value := l_line_tbl(nLine_Location_ID_pos).value; -- LINE_LOCATION_ID
1772: ec_debug.pl(3,'PO_LINE_LOCATION_ID: ',l_line_tbl(nLine_Location_ID_pos).value);
1773: ELSE -- If this is a non-Release PO. */
1774: xProgress := 'POCOB-10-1623';
1775: v_entity_name := 'PO_LINES';
1776: v_pk1_value := l_line_tbl(nLine_key_pos).value; -- LINE_ID
1773: ELSE -- If this is a non-Release PO. */
1774: xProgress := 'POCOB-10-1623';
1775: v_entity_name := 'PO_LINES';
1776: v_pk1_value := l_line_tbl(nLine_key_pos).value; -- LINE_ID
1777: ec_debug.pl(3,'PO_LINE_ID: ',l_line_tbl(nLine_key_pos).value);
1778: -- END IF;
1779:
1780: xProgress := 'POCOB-10-1624';
1781: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
1807: IF v_mitem_att_enabled = 'Y' THEN
1808: xProgress := 'POCOB-10-1625';
1809: v_entity_name := 'MTL_SYSTEM_ITEMS';
1810: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
1811: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
1812:
1813: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1814: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1815:
1810: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
1811: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
1812:
1813: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1814: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1815:
1816: xProgress := 'POCOB-10-1626';
1817: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
1818: cTransaction_Type,
1842: IF v_iitem_att_enabled = 'Y' THEN
1843: xProgress := 'POCOB-10-1627';
1844: v_entity_name := 'MTL_SYSTEM_ITEMS';
1845: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1846: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1847:
1848: xProgress := 'POCOB-10-1628';
1849: FOR v_org_id IN c_org_id(l_line_tbl(nLine_key_pos).value) LOOP -- Value passed is the Line ID
1850: IF v_org_id.ship_to_organization_id <> nOrganization_ID THEN -- Only do this if it is not the same as the Master Org ID
1848: xProgress := 'POCOB-10-1628';
1849: FOR v_org_id IN c_org_id(l_line_tbl(nLine_key_pos).value) LOOP -- Value passed is the Line ID
1850: IF v_org_id.ship_to_organization_id <> nOrganization_ID THEN -- Only do this if it is not the same as the Master Org ID
1851: v_pk1_value := v_org_id.ship_to_organization_id;
1852: ec_debug.pl(3,'Inventory Org ID: ',v_pk1_value);
1853:
1854: xProgress := 'POCOB-10-1626';
1855: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
1856: cTransaction_Type,
1902:
1903: -- Calculate Pending Quantity
1904: xProgress := 'POCOB-10-1665';
1905: l_shipment_tbl(nQuantity_pending_pos).value := NVL(rcv_quantities_s.get_pending_qty(l_shipment_tbl(nShip_Line_location_id_pos).value),0);
1906: ec_debug.pl(3,'l_Shipment_tbl(nQuantity_pending_pos).value: ',l_shipment_tbl(nQuantity_pending_pos).value);
1907:
1908: xProgress := 'POCOB-10-1670';
1909: BEGIN
1910: SELECT ece_poco_shipment_s.NEXTVAL INTO l_shipment_fkey
1911: FROM DUAL;
1912:
1913: EXCEPTION
1914: WHEN NO_DATA_FOUND THEN
1915: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POCO_SHIPMENT_S');
1916: END;
1917: ec_debug.pl(3, 'l_Shipment_fkey: ',l_Shipment_fkey);
1918:
1919: l_shipment_tbl(nLine_Location_uom_pos).value := l_line_tbl(nLine_uom_code_pos).value; -- bug 2823215
1913: EXCEPTION
1914: WHEN NO_DATA_FOUND THEN
1915: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POCO_SHIPMENT_S');
1916: END;
1917: ec_debug.pl(3, 'l_Shipment_fkey: ',l_Shipment_fkey);
1918:
1919: l_shipment_tbl(nLine_Location_uom_pos).value := l_line_tbl(nLine_uom_code_pos).value; -- bug 2823215
1920:
1921: l_shipment_tbl(nShip_Release_Num_pos).value := l_header_tbl(nRelease_num_pos).value; -- bug 2823215
1996: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value ,' '),1,25),25) ||
1997: RPAD(SUBSTRB(NVL(l_header_tbl(n_header_common_key_pos).value ,' '),1,22),22) ||
1998: RPAD(SUBSTRB(NVL(l_line_tbl(n_line_common_key_pos).value ,' '),1,22),22) ||
1999: RPAD(SUBSTRB(NVL(l_shipment_tbl(n_ship_common_key_pos).value,' '),1,22),22);
2000: if ec_debug.G_debug_level = 3 then
2001: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
2002: end if;
2003:
2004:
1997: RPAD(SUBSTRB(NVL(l_header_tbl(n_header_common_key_pos).value ,' '),1,22),22) ||
1998: RPAD(SUBSTRB(NVL(l_line_tbl(n_line_common_key_pos).value ,' '),1,22),22) ||
1999: RPAD(SUBSTRB(NVL(l_shipment_tbl(n_ship_common_key_pos).value,' '),1,22),22);
2000: if ec_debug.G_debug_level = 3 then
2001: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
2002: end if;
2003:
2004:
2005: xProgress := 'POOB-10-1700';
2009: xProgress := 'POCOB-10-1701';
2010: v_drop_ship_flag := OE_DROP_SHIP_GRP.PO_Line_Location_Is_Drop_Ship(l_shipment_tbl(nShip_Line_Location_ID_pos).value);
2011: xProgress := 'POCOB-10-1702';
2012:
2013: if ec_debug.G_debug_level = 3 then
2014: ec_debug.pl(3, 'Drop Ship Flag:',v_drop_ship_flag);
2015: end if;
2016:
2017: IF (v_drop_ship_flag is NOT NULL) THEN
2010: v_drop_ship_flag := OE_DROP_SHIP_GRP.PO_Line_Location_Is_Drop_Ship(l_shipment_tbl(nShip_Line_Location_ID_pos).value);
2011: xProgress := 'POCOB-10-1702';
2012:
2013: if ec_debug.G_debug_level = 3 then
2014: ec_debug.pl(3, 'Drop Ship Flag:',v_drop_ship_flag);
2015: end if;
2016:
2017: IF (v_drop_ship_flag is NOT NULL) THEN
2018:
2019: v_header_cancel_flag := l_header_tbl(nHeader_Cancel_Flag_pos).value;
2020: v_line_cancel_flag := l_line_tbl(nLine_Cancel_Flag_pos).value;
2021: v_shipment_cancel_flag := l_shipment_tbl(nShipment_Cancel_Flag_pos).value;
2022:
2023: if ec_debug.G_debug_level = 3 then
2024: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2025: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2026: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2027: END IF;
2020: v_line_cancel_flag := l_line_tbl(nLine_Cancel_Flag_pos).value;
2021: v_shipment_cancel_flag := l_shipment_tbl(nShipment_Cancel_Flag_pos).value;
2022:
2023: if ec_debug.G_debug_level = 3 then
2024: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2025: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2026: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2027: END IF;
2028:
2021: v_shipment_cancel_flag := l_shipment_tbl(nShipment_Cancel_Flag_pos).value;
2022:
2023: if ec_debug.G_debug_level = 3 then
2024: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2025: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2026: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2027: END IF;
2028:
2029: if ((nvl(v_header_cancel_flag,'N') <> 'Y')
2022:
2023: if ec_debug.G_debug_level = 3 then
2024: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2025: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2026: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2027: END IF;
2028:
2029: if ((nvl(v_header_cancel_flag,'N') <> 'Y')
2030: and (nvl(v_line_cancel_flag,'N') <> 'Y')
2043: return_status
2044: );
2045: xProgress := 'POCOB-10-1704';
2046:
2047: if ec_debug.G_debug_level = 3 then
2048: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2049: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2044: );
2045: xProgress := 'POCOB-10-1704';
2046:
2047: if ec_debug.G_debug_level = 3 then
2048: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2049: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2045: xProgress := 'POCOB-10-1704';
2046:
2047: if ec_debug.G_debug_level = 3 then
2048: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2049: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2046:
2047: if ec_debug.G_debug_level = 3 then
2048: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2049: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2047: if ec_debug.G_debug_level = 3 then
2048: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2049: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2048: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2049: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2049: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2050: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2051: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2052: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2053: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2054: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2055: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2056: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2064: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2057: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2064: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2065: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2058: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2064: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2065: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2066: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2059: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2064: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2065: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2066: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2067: end if;
2060: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2064: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2065: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2066: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2067: end if;
2068:
2061: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2064: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2065: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2066: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2067: end if;
2068:
2069:
2062: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2063: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2064: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2065: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2066: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2067: end if;
2068:
2069:
2070: -- 2823215
2111: -- Shipment Level Attachment Handler
2112: IF v_ship_att_enabled = 'Y' THEN
2113: v_entity_name := 'PO_SHIPMENTS';
2114: v_pk1_value := l_shipment_tbl(nShip_Line_Location_ID_pos).value;
2115: ec_debug.pl(3,'Ship Level Line Location ID: ',l_shipment_tbl(nShip_Line_Location_ID_pos).value);
2116:
2117: xProgress := 'POCOB-10-1720';
2118: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
2119: cTransaction_Type,
2157:
2158: xProgress := 'POCOB-10-1740';
2159: IF dbms_sql.last_row_count = 0 THEN
2160: v_LevelProcessed := 'SHIPMENT';
2161: ec_debug.pl(0,'EC','ECE_NO_DB_ROW_PROCESSED','PROGRESS_LEVEL',xProgress,'LEVEL_PROCESSED',v_LevelProcessed,'TRANSACTION_TYPE',cTransaction_Type);
2162: END IF;
2163:
2164: END LOOP; -- LINE Level Loop
2165:
2165:
2166: xProgress := 'POCOB-10-1750';
2167: IF dbms_sql.last_row_count = 0 THEN
2168: v_LevelProcessed := 'LINE';
2169: ec_debug.pl(0,'EC','ECE_NO_DB_ROW_PROCESSED','PROGRESS_LEVEL',xProgress,'LEVEL_PROCESSED',v_LevelProcessed,'TRANSACTION_TYPE',cTransaction_Type);
2170: END IF;
2171:
2172: END LOOP; -- HEADER Level Loop
2173:
2173:
2174: xProgress := 'POCOB-10-1760';
2175: IF dbms_sql.last_row_count = 0 THEN
2176: v_LevelProcessed := 'HEADER';
2177: ec_debug.pl(0,'EC','ECE_NO_DB_ROW_PROCESSED','LEVEL_PROCESSED',v_LevelProcessed,'PROGRESS_LEVEL',xProgress,'TRANSACTION_TYPE',cTransaction_Type);
2178: END IF;
2179:
2180: xProgress := 'POCOB-10-1770';
2181:
2192:
2193: xProgress := 'POCOB-10-1800';
2194: dbms_sql.close_cursor(header_sel_c);
2195:
2196: ec_debug.pop('ECE_POCO_TRANSACTION.POPULATE_POCO_TRX');
2197:
2198: EXCEPTION
2199: WHEN OTHERS THEN
2200: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
2196: ec_debug.pop('ECE_POCO_TRANSACTION.POPULATE_POCO_TRX');
2197:
2198: EXCEPTION
2199: WHEN OTHERS THEN
2200: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
2201: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2202:
2203: app_exception.raise_exception;
2204:
2197:
2198: EXCEPTION
2199: WHEN OTHERS THEN
2200: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
2201: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2202:
2203: app_exception.raise_exception;
2204:
2205: END populate_poco_trx;
2322: FROM po_line_locations
2323: WHERE po_line_id = p_line_id;
2324:
2325: BEGIN
2326: ec_debug.push('ECE_POCO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2327: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2328: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2323: WHERE po_line_id = p_line_id;
2324:
2325: BEGIN
2326: ec_debug.push('ECE_POCO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2327: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2328: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2331: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2324:
2325: BEGIN
2326: ec_debug.push('ECE_POCO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2327: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2328: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2331: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2332: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2325: BEGIN
2326: ec_debug.push('ECE_POCO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2327: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2328: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2331: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2332: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2333: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2326: ec_debug.push('ECE_POCO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2327: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2328: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2331: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2332: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2333: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2334:
2327: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2328: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2331: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2332: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2333: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2334:
2335: BEGIN
2328: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2331: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2332: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2333: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2334:
2335: BEGIN
2336: SELECT inventory_organization_id
2329: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2330: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2331: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2332: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2333: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2334:
2335: BEGIN
2336: SELECT inventory_organization_id
2337: INTO norganization_id
2338: FROM financials_system_parameters;
2339:
2340: EXCEPTION
2341: WHEN NO_DATA_FOUND THEN
2342: ec_debug.pl(0,
2343: 'EC',
2344: 'ECE_NO_ROW_SELECTED',
2345: 'PROGRESS_LEVEL',
2346: xProgress,
2348: 'INVENTORY ORGANIZATION ID',
2349: 'TABLE_NAME',
2350: 'FINANCIALS_SYSTEM_PARAMETERS');
2351: END;
2352: ec_debug.pl(3,'norganization_id: ',norganization_id);
2353:
2354: -- Let's See if Project Accounting is Installed
2355: xProgress := 'POCOB-20-1000';
2356: v_project_acct_installed := fnd_installation.get_app_info(
2359: v_project_acct_industry,
2360: v_project_acct_schema);
2361:
2362: v_project_acct_status := NVL(v_project_acct_status,'X');
2363: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
2364: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
2365: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
2366:
2367: xProgress := 'POCOB-20-1005';
2360: v_project_acct_schema);
2361:
2362: v_project_acct_status := NVL(v_project_acct_status,'X');
2363: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
2364: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
2365: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
2366:
2367: xProgress := 'POCOB-20-1005';
2368: ece_flatfile_pvt.select_clause(cTransaction_Type,
2361:
2362: v_project_acct_status := NVL(v_project_acct_status,'X');
2363: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
2364: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
2365: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
2366:
2367: xProgress := 'POCOB-20-1005';
2368: ece_flatfile_pvt.select_clause(cTransaction_Type,
2369: cCommunication_Method,
2399:
2400: -- Header Level Find Positions
2401: xProgress := 'POCOB-20-1021';
2402: ece_flatfile_pvt.find_pos(l_header_tbl,ece_flatfile_pvt.G_Translator_Code,nTrans_code_pos);
2403: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2404:
2405: xProgress := 'POCOB-20-1022';
2406: ece_flatfile_pvt.find_pos(l_header_tbl,c_header_common_key_name,nHeader_key_pos);
2407: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2403: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2404:
2405: xProgress := 'POCOB-20-1022';
2406: ece_flatfile_pvt.find_pos(l_header_tbl,c_header_common_key_name,nHeader_key_pos);
2407: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2408:
2409: xProgress := 'POCOB-20-1023';
2410: ece_flatfile_pvt.find_pos(l_header_tbl,'RELEASE_NUMBER',nRelease_num_pos);
2411: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2407: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2408:
2409: xProgress := 'POCOB-20-1023';
2410: ece_flatfile_pvt.find_pos(l_header_tbl,'RELEASE_NUMBER',nRelease_num_pos);
2411: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2412:
2413: xProgress := 'POCOB-20-1024';
2414: ece_flatfile_pvt.find_pos(l_header_tbl,'PO_RELEASE_ID',nRelease_id_pos);
2415: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
2411: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2412:
2413: xProgress := 'POCOB-20-1024';
2414: ece_flatfile_pvt.find_pos(l_header_tbl,'PO_RELEASE_ID',nRelease_id_pos);
2415: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
2416:
2417: xProgress := 'POCOB-20-1025';
2418: ece_flatfile_pvt.find_pos(l_header_tbl,'DOCUMENT_TYPE',nDocument_type_pos);
2419: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2415: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
2416:
2417: xProgress := 'POCOB-20-1025';
2418: ece_flatfile_pvt.find_pos(l_header_tbl,'DOCUMENT_TYPE',nDocument_type_pos);
2419: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2420:
2421: -- Line Level Find Positions
2422: xProgress := 'POCOB-20-1026';
2423: ece_flatfile_pvt.find_pos(l_line_tbl,c_line_common_key_name,nLine_key_pos);
2420:
2421: -- Line Level Find Positions
2422: xProgress := 'POCOB-20-1026';
2423: ece_flatfile_pvt.find_pos(l_line_tbl,c_line_common_key_name,nLine_key_pos);
2424: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2425:
2426: xProgress := 'POCOB-20-1027';
2427: ece_flatfile_pvt.find_pos(l_line_tbl,'LINE_NUMBER',nLine_num_pos);
2428: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2424: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2425:
2426: xProgress := 'POCOB-20-1027';
2427: ece_flatfile_pvt.find_pos(l_line_tbl,'LINE_NUMBER',nLine_num_pos);
2428: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2429:
2430: xProgress := 'POCOB-20-1028';
2431: ece_flatfile_pvt.find_pos(l_line_tbl,'PO_LINE_LOCATION_ID',nPO_Line_Location_ID_pos);
2432: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2428: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2429:
2430: xProgress := 'POCOB-20-1028';
2431: ece_flatfile_pvt.find_pos(l_line_tbl,'PO_LINE_LOCATION_ID',nPO_Line_Location_ID_pos);
2432: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2433:
2434: xProgress := 'POCOB-20-1029';
2435: ece_flatfile_pvt.find_pos(l_line_tbl,'ITEM_ID',nItem_id_pos);
2436: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
2432: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2433:
2434: xProgress := 'POCOB-20-1029';
2435: ece_flatfile_pvt.find_pos(l_line_tbl,'ITEM_ID',nItem_id_pos);
2436: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
2437:
2438: -- Shipment Level Find Positions
2439: xProgress := 'POCOB-20-1030';
2440: ece_flatfile_pvt.find_pos(l_shipment_tbl,'LINE_LOCATION_ID',nLine_Location_ID_pos);
2437:
2438: -- Shipment Level Find Positions
2439: xProgress := 'POCOB-20-1030';
2440: ece_flatfile_pvt.find_pos(l_shipment_tbl,'LINE_LOCATION_ID',nLine_Location_ID_pos);
2441: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2442:
2443: xProgress := 'POCOB-20-1032';
2444: ece_flatfile_pvt.find_pos(l_shipment_tbl,c_shipment_key_name,nShipment_key_pos);
2445: ec_debug.pl(3,'nShipment_key_pos: ',nShipment_key_pos);
2441: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2442:
2443: xProgress := 'POCOB-20-1032';
2444: ece_flatfile_pvt.find_pos(l_shipment_tbl,c_shipment_key_name,nShipment_key_pos);
2445: ec_debug.pl(3,'nShipment_key_pos: ',nShipment_key_pos);
2446:
2447: -- Build SELECT Statement
2448: xProgress := 'POCOB-20-1035';
2449: cHeader_where := cHeader_where ||
2523: '.po_header_id,' ||
2524: cHeader_Interface ||
2525: '.release_number ' ||
2526: ' FOR UPDATE';
2527: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
2528:
2529: cLine_select := cLine_select ||
2530: cLine_from ||
2531: cLine_where ||
2532: ' ORDER BY ' ||
2533: cLine_Interface ||
2534: '.line_number ' ||
2535: ' FOR UPDATE';
2536: ec_debug.pl(3, 'cLine_select: ',cLine_select);
2537:
2538: cShipment_select := cShipment_select ||
2539: cShipment_from ||
2540: cShipment_where ||
2541: ' ORDER BY ' ||
2542: cShipment_Interface ||
2543: '.shipment_number ' ||
2544: ' FOR UPDATE';
2545: ec_debug.pl(3, 'cShipment_select: ',cShipment_select);
2546:
2547: xProgress := 'POCOB-20-1060';
2548: cHeader_delete1 := 'DELETE FROM ' || cHeader_Interface || ' WHERE rowid = :col_rowid';
2549: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2545: ec_debug.pl(3, 'cShipment_select: ',cShipment_select);
2546:
2547: xProgress := 'POCOB-20-1060';
2548: cHeader_delete1 := 'DELETE FROM ' || cHeader_Interface || ' WHERE rowid = :col_rowid';
2549: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2550:
2551: cLine_delete1 := 'DELETE FROM ' || cLine_Interface || ' WHERE rowid = :col_rowid';
2552: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2553:
2548: cHeader_delete1 := 'DELETE FROM ' || cHeader_Interface || ' WHERE rowid = :col_rowid';
2549: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2550:
2551: cLine_delete1 := 'DELETE FROM ' || cLine_Interface || ' WHERE rowid = :col_rowid';
2552: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2553:
2554: cShipment_delete1 := 'DELETE FROM ' || cShipment_Interface || ' WHERE rowid = :col_rowid';
2555: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2556:
2551: cLine_delete1 := 'DELETE FROM ' || cLine_Interface || ' WHERE rowid = :col_rowid';
2552: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2553:
2554: cShipment_delete1 := 'DELETE FROM ' || cShipment_Interface || ' WHERE rowid = :col_rowid';
2555: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2556:
2557: xProgress := 'POCOB-20-1070';
2558: cHeader_delete2 := 'DELETE FROM ' || cHeader_X_Interface || ' WHERE rowid = :col_rowid';
2559: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2555: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2556:
2557: xProgress := 'POCOB-20-1070';
2558: cHeader_delete2 := 'DELETE FROM ' || cHeader_X_Interface || ' WHERE rowid = :col_rowid';
2559: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2560:
2561: cLine_delete2 := 'DELETE FROM ' || cLine_X_Interface || ' WHERE rowid = :col_rowid';
2562: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2563:
2558: cHeader_delete2 := 'DELETE FROM ' || cHeader_X_Interface || ' WHERE rowid = :col_rowid';
2559: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2560:
2561: cLine_delete2 := 'DELETE FROM ' || cLine_X_Interface || ' WHERE rowid = :col_rowid';
2562: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2563:
2564: cShipment_delete2 := 'DELETE FROM ' || cShipment_X_Interface || ' WHERE rowid = :col_rowid';
2565: ec_debug.pl(3,'cShipment_delete2: ',cShipment_delete2);
2566:
2561: cLine_delete2 := 'DELETE FROM ' || cLine_X_Interface || ' WHERE rowid = :col_rowid';
2562: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2563:
2564: cShipment_delete2 := 'DELETE FROM ' || cShipment_X_Interface || ' WHERE rowid = :col_rowid';
2565: ec_debug.pl(3,'cShipment_delete2: ',cShipment_delete2);
2566:
2567: -- ***************************************************
2568: -- *** Get data setup for the dynamic SQL call.
2569: -- *** Open a cursor for each of the SELECT call
2707: iHeader_count := l_header_tbl.COUNT;
2708: iLine_count := l_line_tbl.COUNT;
2709: iShipment_count := l_shipment_tbl.COUNT;
2710:
2711: ec_debug.pl(3,'iHeader_count: ' ,iHeader_count);
2712: ec_debug.pl(3,'iLine_count: ' ,iLine_count);
2713: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
2714:
2715: -- ******************************************************
2708: iLine_count := l_line_tbl.COUNT;
2709: iShipment_count := l_shipment_tbl.COUNT;
2710:
2711: ec_debug.pl(3,'iHeader_count: ' ,iHeader_count);
2712: ec_debug.pl(3,'iLine_count: ' ,iLine_count);
2713: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
2714:
2715: -- ******************************************************
2716: -- Define TYPE for every columns in the SELECT statement
2709: iShipment_count := l_shipment_tbl.COUNT;
2710:
2711: ec_debug.pl(3,'iHeader_count: ' ,iHeader_count);
2712: ec_debug.pl(3,'iLine_count: ' ,iLine_count);
2713: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
2714:
2715: -- ******************************************************
2716: -- Define TYPE for every columns in the SELECT statement
2717: -- For each piece of the data returns, we need to tell
2801: dbms_sql.column_value(header_sel_c,iHeader_count + 3,n_po_header_id);
2802:
2803: xProgress := 'POCOB-20-1440';
2804: nRelease_num := l_header_tbl(nRelease_num_pos).value;
2805: ec_debug.pl(3,'nRelease_num: ',nRelease_num);
2806:
2807: xProgress := 'POCOB-20-1450';
2808: nRelease_ID := l_header_tbl(nRelease_id_pos).value;
2809: ec_debug.pl(3,'nRelease_ID: ',nRelease_ID);
2805: ec_debug.pl(3,'nRelease_num: ',nRelease_num);
2806:
2807: xProgress := 'POCOB-20-1450';
2808: nRelease_ID := l_header_tbl(nRelease_id_pos).value;
2809: ec_debug.pl(3,'nRelease_ID: ',nRelease_ID);
2810:
2811: BEGIN
2812: xProgress := 'POCOB-20-1455';
2813: /* Bug 2396394 Added the document type CONTRACT in SQL below */
2824: FROM DUAL;
2825:
2826: EXCEPTION
2827: WHEN NO_DATA_FOUND THEN
2828: ec_debug.pl(0,
2829: 'EC',
2830: 'ECE_DECODE_FAILED',
2831: 'PROGRESS_LEVEL',
2832: xProgress,
2832: xProgress,
2833: 'CODE',
2834: l_header_tbl(nDocument_type_pos).value);
2835: END;
2836: ec_debug.pl(3,'l_document_type: ',l_document_type);
2837:
2838: xProgress := 'POCOB-20-1460';
2839: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value,' '),1,25),25);
2840:
2841: xProgress := 'POCOB-20-1470';
2842: c_file_common_key := c_file_common_key ||
2843: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value,' '),1,22),22) || RPAD(' ',22) || RPAD(' ',22);
2844:
2845: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
2846:
2847: xProgress := 'POCOB-20-1480';
2848: ece_poo_transaction.write_to_file(cTransaction_Type,
2849: cCommunication_Method,
2857: IF l_document_type = 'NR' THEN -- If this is a Release PO.
2858: xProgress := 'POCOB-20-1481';
2859: v_entity_name := 'PO_RELEASES';
2860: v_pk1_value := nRelease_ID;
2861: ec_debug.pl(3,'release_id: ',nRelease_ID);
2862: ELSE -- If this is a non-Release PO.
2863: xProgress := 'POCOB-20-1482';
2864: v_entity_name := 'PO_HEADERS';
2865: v_pk1_value := n_po_header_id;
2862: ELSE -- If this is a non-Release PO.
2863: xProgress := 'POCOB-20-1482';
2864: v_entity_name := 'PO_HEADERS';
2865: v_pk1_value := n_po_header_id;
2866: ec_debug.pl(3,'po_header_id: ',n_po_header_id);
2867: END IF;
2868:
2869: xProgress := 'POCOB-20-1483';
2870: ece_poo_transaction.put_att_to_output_table(cCommunication_Method,
2926: dbms_sql.column_value(line_sel_c,iLine_count + 2,rLine_X_rowid);
2927:
2928: xProgress := 'POCOB-20-1537';
2929: dbms_sql.column_value(line_sel_c,iLine_count + 3,n_po_line_id);
2930: ec_debug.pl(3,'n_po_line_id: ',n_po_line_id);
2931:
2932: xProgress := 'POCOB-20-1540';
2933: nLine_num := l_line_tbl(nLine_num_pos).value;
2934: ec_debug.pl(3,'nLine_num: ',nLine_num);
2930: ec_debug.pl(3,'n_po_line_id: ',n_po_line_id);
2931:
2932: xProgress := 'POCOB-20-1540';
2933: nLine_num := l_line_tbl(nLine_num_pos).value;
2934: ec_debug.pl(3,'nLine_num: ',nLine_num);
2935:
2936: xProgress := 'POCOB-20-1544';
2937: nPO_Line_Location_ID := l_line_tbl(nPO_Line_Location_ID_pos).value;
2938: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2934: ec_debug.pl(3,'nLine_num: ',nLine_num);
2935:
2936: xProgress := 'POCOB-20-1544';
2937: nPO_Line_Location_ID := l_line_tbl(nPO_Line_Location_ID_pos).value;
2938: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2939:
2940: xProgress := 'POCOB-20-1545';
2941: nItem_ID := l_line_tbl(nItem_id_pos).value;
2942: ec_debug.pl(3,'nItem_ID: ',nItem_ID);
2938: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2939:
2940: xProgress := 'POCOB-20-1545';
2941: nItem_ID := l_line_tbl(nItem_id_pos).value;
2942: ec_debug.pl(3,'nItem_ID: ',nItem_ID);
2943:
2944: xProgress := 'POCOB-20-1550';
2945: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value,' '),1,25),25) ||
2946: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value,' '),1,22),22) ||
2945: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value,' '),1,25),25) ||
2946: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value,' '),1,22),22) ||
2947: RPAD(SUBSTRB(NVL(l_line_tbl(nLine_key_pos).value ,' '),1,22),22) ||
2948: RPAD(' ',22);
2949: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
2950:
2951: xProgress := 'POCOB-20-1551';
2952: ece_poo_transaction.write_to_file(cTransaction_Type,
2953: cCommunication_Method,
2990: -- Master Item Attachment Handler
2991: xProgress := 'POCOB-20-1555';
2992: v_entity_name := 'MTL_SYSTEM_ITEMS';
2993: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
2994: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
2995:
2996: v_pk2_value := nItem_ID; -- Item ID
2997: ec_debug.pl(3,'Item ID: ',v_pk2_value);
2998:
2993: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
2994: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
2995:
2996: v_pk2_value := nItem_ID; -- Item ID
2997: ec_debug.pl(3,'Item ID: ',v_pk2_value);
2998:
2999: xProgress := 'POCOB-20-1556';
3000: ece_poo_transaction.put_att_to_output_table(cCommunication_Method,
3001: cTransaction_Type,
3018: xProgress := 'POCOB-20-1557';
3019: FOR v_org_id IN c_org_id(n_po_line_id) LOOP -- Value passed is the Line ID
3020: IF v_org_id.ship_to_organization_id <> nOrganization_ID THEN -- Only do this if it is not the same as the Master Org ID
3021: v_pk1_value := v_org_id.ship_to_organization_id;
3022: ec_debug.pl(3,'Inventory Org ID: ',v_pk1_value);
3023:
3024: xProgress := 'POCOB-20-1558';
3025: ece_poo_transaction.put_att_to_output_table(cCommunication_Method,
3026: cTransaction_Type,
3072: dbms_sql.column_value(shipment_sel_c,iShipment_count + 2,rShipment_X_rowid);
3073:
3074: xProgress := 'POCOB-20-1610';
3075: nLine_Location_ID := l_shipment_tbl(nLine_Location_ID_pos).value;
3076: ec_debug.pl(3,'Ship Level Line Location ID: ',nLine_Location_ID);
3077:
3078: xProgress := 'POCOB-20-1620';
3079: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value ,' '),1,25),25) ||
3080: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value ,' '),1,22),22) ||
3079: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value ,' '),1,25),25) ||
3080: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value ,' '),1,22),22) ||
3081: RPAD(SUBSTRB(NVL(l_line_tbl(nLine_key_pos).value ,' '),1,22),22) ||
3082: RPAD(SUBSTRB(NVL(l_shipment_tbl(nShipment_key_pos).value,' '),1,22),22);
3083: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
3084:
3085: xProgress := 'POCOB-20-1630';
3086: ece_poo_transaction.write_to_file(cTransaction_Type,
3087: cCommunication_Method,
3146:
3147: xProgress := 'POCOB-20-1674';
3148: IF dbms_sql.last_row_count = 0 THEN
3149: v_LevelProcessed := 'SHIPMENT';
3150: ec_debug.pl(0,
3151: 'EC',
3152: 'ECE_NO_DB_ROW_PROCESSED',
3153: 'PROGRESS_LEVEL',
3154: xProgress,
3177:
3178: xProgress := 'POCOB-20-1714';
3179: IF dbms_sql.last_row_count = 0 THEN
3180: v_LevelProcessed := 'LINE';
3181: ec_debug.pl(0,
3182: 'EC',
3183: 'ECE_NO_DB_ROW_PROCESSED',
3184: 'PROGRESS_LEVEL',
3185: xProgress,
3205:
3206: xProgress := 'POCOB-20-1754';
3207: IF dbms_sql.last_row_count = 0 THEN
3208: v_LevelProcessed := 'HEADER';
3209: ec_debug.pl(0,
3210: 'EC',
3211: 'ECE_NO_DB_ROW_PROCESSED',
3212: 'PROGRESS_LEVEL',
3213: xProgress,
3256: dbms_sql.close_cursor(ece_poo_transaction.project_del_c2);
3257: end if;
3258:
3259: xProgress := 'POCOB-20-1820';
3260: ec_debug.pop('ECE_POCO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
3261:
3262: EXCEPTION
3263: WHEN OTHERS THEN
3264: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3260: ec_debug.pop('ECE_POCO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
3261:
3262: EXCEPTION
3263: WHEN OTHERS THEN
3264: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3265: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3266:
3267: app_exception.raise_exception;
3268:
3261:
3262: EXCEPTION
3263: WHEN OTHERS THEN
3264: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3265: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3266:
3267: app_exception.raise_exception;
3268:
3269: END put_data_to_output_table;