[Home] [Help]
45: ORDER BY line_id;
46:
47: BEGIN
48: xProgress := 'POO-10-1000';
49: ec_debug.enable_debug(v_debug_mode);
50: if ec_debug.G_debug_level >= 2 then
51: ec_debug.push('ECE_POO.Extract_POO_Outbound');
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
46:
47: BEGIN
48: xProgress := 'POO-10-1000';
49: ec_debug.enable_debug(v_debug_mode);
50: if ec_debug.G_debug_level >= 2 then
51: ec_debug.push('ECE_POO.Extract_POO_Outbound');
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
47: BEGIN
48: xProgress := 'POO-10-1000';
49: ec_debug.enable_debug(v_debug_mode);
50: if ec_debug.G_debug_level >= 2 then
51: ec_debug.push('ECE_POO.Extract_POO_Outbound');
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
48: xProgress := 'POO-10-1000';
49: ec_debug.enable_debug(v_debug_mode);
50: if ec_debug.G_debug_level >= 2 then
51: ec_debug.push('ECE_POO.Extract_POO_Outbound');
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
49: ec_debug.enable_debug(v_debug_mode);
50: if ec_debug.G_debug_level >= 2 then
51: ec_debug.push('ECE_POO.Extract_POO_Outbound');
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
50: if ec_debug.G_debug_level >= 2 then
51: ec_debug.push('ECE_POO.Extract_POO_Outbound');
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
51: ec_debug.push('ECE_POO.Extract_POO_Outbound');
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
59: ec_debug.pl(3,'cVendor_Name: ' ,cVendor_Name);
52: ec_debug.pl(3,'cOutput_Path: ' ,cOutput_Path);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
59: ec_debug.pl(3,'cVendor_Name: ' ,cVendor_Name);
60: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code);
53: ec_debug.pl(3,'cOutput_Filename: ' ,cOutput_Filename);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
59: ec_debug.pl(3,'cVendor_Name: ' ,cVendor_Name);
60: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code);
61: ec_debug.pl(3,'v_debug_mode: ' ,v_debug_mode);
54: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
59: ec_debug.pl(3,'cVendor_Name: ' ,cVendor_Name);
60: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code);
61: ec_debug.pl(3,'v_debug_mode: ' ,v_debug_mode);
62: end if;
55: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
59: ec_debug.pl(3,'cVendor_Name: ' ,cVendor_Name);
60: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code);
61: ec_debug.pl(3,'v_debug_mode: ' ,v_debug_mode);
62: end if;
63: /* Check to see if the transaction is enabled. If not, abort */
56: ec_debug.pl(3,'cCDate_From: ' ,cCDate_From);
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
59: ec_debug.pl(3,'cVendor_Name: ' ,cVendor_Name);
60: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code);
61: ec_debug.pl(3,'v_debug_mode: ' ,v_debug_mode);
62: end if;
63: /* Check to see if the transaction is enabled. If not, abort */
64: xProgress := 'POO-10-1005';
57: ec_debug.pl(3,'cCDate_To: ' ,cCDate_To);
58: ec_debug.pl(3,'cPC_Type: ' ,cPC_Type);
59: ec_debug.pl(3,'cVendor_Name: ' ,cVendor_Name);
60: ec_debug.pl(3,'cVendor_Site_Code: ',cVendor_Site_Code);
61: ec_debug.pl(3,'v_debug_mode: ' ,v_debug_mode);
62: end if;
63: /* Check to see if the transaction is enabled. If not, abort */
64: xProgress := 'POO-10-1005';
65: fnd_profile.get('ECE_' || cTransaction_Type || '_ENABLED',cEnabled);
77: FROM DUAL;
78:
79: EXCEPTION
80: WHEN NO_DATA_FOUND THEN
81: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_OUTPUT_RUNS_S');
82:
83: END;
84:
85: xProgress := 'POO-10-1025';
82:
83: END;
84:
85: xProgress := 'POO-10-1025';
86: if ec_debug.G_debug_level >= 1 then
87: ec_debug.pl(3,'iRun_id: ',iRun_id);
88: ec_debug.pl(1,'EC','ECE_POO_START',NULL);
89: ec_debug.pl(1,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
90: end if;
83: END;
84:
85: xProgress := 'POO-10-1025';
86: if ec_debug.G_debug_level >= 1 then
87: ec_debug.pl(3,'iRun_id: ',iRun_id);
88: ec_debug.pl(1,'EC','ECE_POO_START',NULL);
89: ec_debug.pl(1,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
90: end if;
91:
84:
85: xProgress := 'POO-10-1025';
86: if ec_debug.G_debug_level >= 1 then
87: ec_debug.pl(3,'iRun_id: ',iRun_id);
88: ec_debug.pl(1,'EC','ECE_POO_START',NULL);
89: ec_debug.pl(1,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
90: end if;
91:
92:
85: xProgress := 'POO-10-1025';
86: if ec_debug.G_debug_level >= 1 then
87: ec_debug.pl(3,'iRun_id: ',iRun_id);
88: ec_debug.pl(1,'EC','ECE_POO_START',NULL);
89: ec_debug.pl(1,'EC','ECE_RUN_ID','RUN_ID',iRun_id);
90: end if;
91:
92:
93: xProgress := 'POO-10-1026';
101: END IF;
102:
103: -- Open the file for write.
104: xProgress := 'POO-10-1030';
105: if ec_debug.G_debug_level = 1 then
106: ec_debug.pl(1,'Output File:',cFilename);
107: ec_debug.pl(1,'Open Output file'); --Bug 2034376
108: end if;
109: i_path := cOutput_Path;
102:
103: -- Open the file for write.
104: xProgress := 'POO-10-1030';
105: if ec_debug.G_debug_level = 1 then
106: ec_debug.pl(1,'Output File:',cFilename);
107: ec_debug.pl(1,'Open Output file'); --Bug 2034376
108: end if;
109: i_path := cOutput_Path;
110: i_filename := cFilename;
103: -- Open the file for write.
104: xProgress := 'POO-10-1030';
105: if ec_debug.G_debug_level = 1 then
106: ec_debug.pl(1,'Output File:',cFilename);
107: ec_debug.pl(1,'Open Output file'); --Bug 2034376
108: end if;
109: i_path := cOutput_Path;
110: i_filename := cFilename;
111: -- ece_poo_transaction.uFile_type := utl_file.fopen(cOutput_Path,cFilename,'W',32767); --Bug 2887790
110: i_filename := cFilename;
111: -- ece_poo_transaction.uFile_type := utl_file.fopen(cOutput_Path,cFilename,'W',32767); --Bug 2887790
112:
113: xProgress := 'POO-10-1040';
114: if ec_debug.G_debug_level = 1 then
115: ec_debug.pl(1,'Call Populate Poo Trx procedure'); --Bug 2034376
116: end if;
117:
118: ece_poo_transaction.populate_poo_trx(
111: -- ece_poo_transaction.uFile_type := utl_file.fopen(cOutput_Path,cFilename,'W',32767); --Bug 2887790
112:
113: xProgress := 'POO-10-1040';
114: if ec_debug.G_debug_level = 1 then
115: ec_debug.pl(1,'Call Populate Poo Trx procedure'); --Bug 2034376
116: end if;
117:
118: ece_poo_transaction.populate_poo_trx(
119: cCommunication_Method,
133: cPO_Number_From,
134: cPO_Number_To);
135:
136: /* xProgress := 'POO-10-1035';
137: if ec_debug.G_debug_level = 1 then
138: ec_debug.pl(1,'Call Put To Output Table procedure'); --Bug 2034376
139: end if;
140:
141: select count(*)
134: cPO_Number_To);
135:
136: /* xProgress := 'POO-10-1035';
137: if ec_debug.G_debug_level = 1 then
138: ec_debug.pl(1,'Call Put To Output Table procedure'); --Bug 2034376
139: end if;
140:
141: select count(*)
142: into xHeaderCount
142: into xHeaderCount
143: from ECE_PO_INTERFACE_HEADERS
144: where run_id = iRun_id;
145: */
146: if ec_debug.G_debug_level = 1 then
147: ec_debug.pl(1,'NUMBER OF RECORDS PROCESSED IS ',xHeaderCount);
148: end if;
149:
150:
143: from ECE_PO_INTERFACE_HEADERS
144: where run_id = iRun_id;
145: */
146: if ec_debug.G_debug_level = 1 then
147: ec_debug.pl(1,'NUMBER OF RECORDS PROCESSED IS ',xHeaderCount);
148: end if;
149:
150:
151:
170: utl_file.fclose(ece_poo_transaction.uFile_type);
171: end if;
172:
173: IF ec_mapping_utils.ec_get_trans_upgrade_status(cTransaction_Type) = 'U' THEN
174: ec_debug.pl(0,'EC','ECE_REC_TRANS_PENDING',NULL);
175: retcode := 1;
176: END IF;
177:
178: if ec_debug.G_debug_level >= 2 then
174: ec_debug.pl(0,'EC','ECE_REC_TRANS_PENDING',NULL);
175: retcode := 1;
176: END IF;
177:
178: if ec_debug.G_debug_level >= 2 then
179: ec_debug.pop('ECE_POO.Extract_POO_Outbound');
180: end if;
181:
182: ec_debug.disable_debug;
175: retcode := 1;
176: END IF;
177:
178: if ec_debug.G_debug_level >= 2 then
179: ec_debug.pop('ECE_POO.Extract_POO_Outbound');
180: end if;
181:
182: ec_debug.disable_debug;
183:
178: if ec_debug.G_debug_level >= 2 then
179: ec_debug.pop('ECE_POO.Extract_POO_Outbound');
180: end if;
181:
182: ec_debug.disable_debug;
183:
184: COMMIT;
185:
186:
185:
186:
187: EXCEPTION
188: WHEN ece_transaction_disabled THEN
189: ec_debug.pl(0,'EC','ECE_TRANSACTION_DISABLED','TRANSACTION',cTransaction_type);
190: retcode := 1;
191: ec_debug.disable_debug;
192: ROLLBACK;
193:
187: EXCEPTION
188: WHEN ece_transaction_disabled THEN
189: ec_debug.pl(0,'EC','ECE_TRANSACTION_DISABLED','TRANSACTION',cTransaction_type);
190: retcode := 1;
191: ec_debug.disable_debug;
192: ROLLBACK;
193:
194: WHEN utl_file.write_error THEN
195: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
191: ec_debug.disable_debug;
192: ROLLBACK;
193:
194: WHEN utl_file.write_error THEN
195: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
196: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
197:
198: retcode := 2;
199: ec_debug.disable_debug;
192: ROLLBACK;
193:
194: WHEN utl_file.write_error THEN
195: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
196: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
197:
198: retcode := 2;
199: ec_debug.disable_debug;
200: if (utl_file.is_open(ece_poo_transaction.uFile_type))
195: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
196: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
197:
198: retcode := 2;
199: ec_debug.disable_debug;
200: if (utl_file.is_open(ece_poo_transaction.uFile_type))
201: then
202: utl_file.fclose(ece_poo_transaction.uFile_type);
203: end if;
205: utl_file.fclose(ece_poo_transaction.uFile_type);
206: ROLLBACK;
207:
208: WHEN utl_file.invalid_path THEN
209: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
210: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
211:
212: retcode := 2;
213: ec_debug.disable_debug;
206: ROLLBACK;
207:
208: WHEN utl_file.invalid_path THEN
209: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
210: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
211:
212: retcode := 2;
213: ec_debug.disable_debug;
214: ROLLBACK;
209: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
210: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
211:
212: retcode := 2;
213: ec_debug.disable_debug;
214: ROLLBACK;
215:
216: WHEN utl_file.invalid_operation THEN
217: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
213: ec_debug.disable_debug;
214: ROLLBACK;
215:
216: WHEN utl_file.invalid_operation THEN
217: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
218: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
219:
220: retcode := 2;
221: ec_debug.disable_debug;
214: ROLLBACK;
215:
216: WHEN utl_file.invalid_operation THEN
217: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
218: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
219:
220: retcode := 2;
221: ec_debug.disable_debug;
222: if (utl_file.is_open(ece_poo_transaction.uFile_type))
217: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
218: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
219:
220: retcode := 2;
221: ec_debug.disable_debug;
222: if (utl_file.is_open(ece_poo_transaction.uFile_type))
223: then
224: utl_file.fclose(ece_poo_transaction.uFile_type);
225: end if;
227: utl_file.fclose(ece_poo_transaction.uFile_type);
228: ROLLBACK;
229:
230: WHEN OTHERS THEN
231: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
232: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
233:
234: retcode := 2;
235: ec_debug.disable_debug;
228: ROLLBACK;
229:
230: WHEN OTHERS THEN
231: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
232: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
233:
234: retcode := 2;
235: ec_debug.disable_debug;
236: if (utl_file.is_open(ece_poo_transaction.uFile_type))
231: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
232: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
233:
234: retcode := 2;
235: ec_debug.disable_debug;
236: if (utl_file.is_open(ece_poo_transaction.uFile_type))
237: then
238: utl_file.fclose(ece_poo_transaction.uFile_type);
239: end if;
497: FROM po_line_locations
498: WHERE po_line_id = p_line_id;
499:
500: BEGIN
501: if ec_debug.G_debug_level >= 2 then
502: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
503: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
498: WHERE po_line_id = p_line_id;
499:
500: BEGIN
501: if ec_debug.G_debug_level >= 2 then
502: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
503: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
499:
500: BEGIN
501: if ec_debug.G_debug_level >= 2 then
502: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
503: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
500: BEGIN
501: if ec_debug.G_debug_level >= 2 then
502: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
503: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
501: if ec_debug.G_debug_level >= 2 then
502: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
503: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
502: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
503: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
503: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
504: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
505: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
506: ec_debug.pl(3,'dTransaction_date: ' ,dTransaction_date);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
507: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
508: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
516: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
509: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
516: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
517: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
510: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
516: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
517: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
518: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
511: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
516: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
517: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
518: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
519: end if;
512: ec_debug.pl(3,'cCreate_Date_From: ' ,cCreate_Date_From);
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
516: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
517: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
518: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
519: end if;
520:
513: ec_debug.pl(3,'cCreate_Date_To: ' ,cCreate_Date_To);
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
516: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
517: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
518: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
519: end if;
520:
521: xProgress := 'POOB-10-1000';
514: ec_debug.pl(3,'cSupplier_Name: ' ,cSupplier_Name);
515: ec_debug.pl(3,'cSupplier_Site: ' ,cSupplier_Site);
516: ec_debug.pl(3,'cDocument_Type: ' ,cDocument_Type);
517: ec_debug.pl(3,'cPO_Number_From: ' ,cPO_Number_From);
518: ec_debug.pl(3,'cPO_Number_To: ' ,cPO_Number_To);
519: end if;
520:
521: xProgress := 'POOB-10-1000';
522: BEGIN
525: FROM financials_system_parameters;
526:
527: EXCEPTION
528: WHEN NO_DATA_FOUND THEN
529: ec_debug.pl(0,
530: 'EC',
531: 'ECE_NO_ROW_SELECTED',
532: 'PROGRESS_LEVEL',
533: xProgress,
535: 'INVENTORY ORGANIZATION ID',
536: 'TABLE_NAME',
537: 'FINANCIALS_SYSTEM_PARAMETERS');
538: END;
539: if ec_debug.G_debug_level = 3 then
540: ec_debug.pl(3,'norganization_id: ',norganization_id);
541: end if;
542: --Bug 1891291 begin
543: -- Let's See if Project Accounting is Installed
536: 'TABLE_NAME',
537: 'FINANCIALS_SYSTEM_PARAMETERS');
538: END;
539: if ec_debug.G_debug_level = 3 then
540: ec_debug.pl(3,'norganization_id: ',norganization_id);
541: end if;
542: --Bug 1891291 begin
543: -- Let's See if Project Accounting is Installed
544: xProgress := 'POOB-10-1001';
548: v_project_acct_industry,
549: v_project_acct_schema);
550:
551: v_project_acct_status := NVL(v_project_acct_status,'X');
552: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
553: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
554: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
555: */
556: --Bug 1891291 end
549: v_project_acct_schema);
550:
551: v_project_acct_status := NVL(v_project_acct_status,'X');
552: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
553: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
554: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
555: */
556: --Bug 1891291 end
557: -- Get Profile Option Values for Attachments
550:
551: v_project_acct_status := NVL(v_project_acct_status,'X');
552: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
553: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
554: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
555: */
556: --Bug 1891291 end
557: -- Get Profile Option Values for Attachments
558: xProgress := 'POOB-10-1002';
579: END IF;
580:
581: EXCEPTION
582: WHEN value_error OR invalid_number THEN
583: ec_debug.pl(0,'EC','ECE_INVALID_SEGMENT_NUM','SEGMENT_VALUE',n_att_seg_size,'SEGMENT_DEFAULT',G_DEFAULT_ATT_SEG_SIZE);
584: n_att_seg_size := G_DEFAULT_ATT_SEG_SIZE;
585: END;
586: END IF;
587: if ec_debug.G_debug_level = 3 then
583: ec_debug.pl(0,'EC','ECE_INVALID_SEGMENT_NUM','SEGMENT_VALUE',n_att_seg_size,'SEGMENT_DEFAULT',G_DEFAULT_ATT_SEG_SIZE);
584: n_att_seg_size := G_DEFAULT_ATT_SEG_SIZE;
585: END;
586: END IF;
587: if ec_debug.G_debug_level = 3 then
588: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
589: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
584: n_att_seg_size := G_DEFAULT_ATT_SEG_SIZE;
585: END;
586: END IF;
587: if ec_debug.G_debug_level = 3 then
588: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
589: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
592: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
585: END;
586: END IF;
587: if ec_debug.G_debug_level = 3 then
588: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
589: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
592: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
593: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
586: END IF;
587: if ec_debug.G_debug_level = 3 then
588: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
589: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
592: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
593: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
594: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
587: if ec_debug.G_debug_level = 3 then
588: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
589: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
592: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
593: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
594: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
595: end if;
588: ec_debug.pl(3,'v_header_att_enabled: ',v_header_att_enabled);
589: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
592: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
593: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
594: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
595: end if;
596:
589: ec_debug.pl(3,'v_line_att_enabled: ' ,v_line_att_enabled);
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
592: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
593: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
594: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
595: end if;
596:
597: xProgress := 'POOB-10-1010';
590: ec_debug.pl(3,'v_mitem_att_enabled: ' ,v_mitem_att_enabled);
591: ec_debug.pl(3,'v_iitem_att_enabled: ' ,v_iitem_att_enabled);
592: ec_debug.pl(3,'v_ship_att_enabled: ' ,v_ship_att_enabled);
593: ec_debug.pl(3,'v_att_enabled: ' ,v_att_enabled);
594: ec_debug.pl(3,'n_att_seg_size: ' ,n_att_seg_size);
595: end if;
596:
597: xProgress := 'POOB-10-1010';
598: ece_flatfile_pvt.init_table(cTransaction_Type,cHeader_Interface,NULL,FALSE,l_header_tbl,l_key_tbl);
601: l_key_tbl := l_header_tbl;
602:
603: xProgress := 'POOB-10-1025';
604: --iKey_count := l_header_tbl.COUNT;
605: --ec_debug.pl(3,'iKey_count: ',iKey_count );
606:
607: xProgress := 'POOB-10-1030';
608: ece_flatfile_pvt.init_table(cTransaction_Type,cLine_Interface,NULL,TRUE,l_line_tbl,l_key_tbl);
609:
823:
824: cShipment_select := cShipment_select ||
825: cShipment_from ||
826: cShipment_where;
827: if ec_debug.G_debug_level = 3 then
828: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
829: ec_debug.pl(3,'cLine_select: ',cLine_select);
830: ec_debug.pl(3,'cShipment_select: ',cShipment_select);
831: end if;
824: cShipment_select := cShipment_select ||
825: cShipment_from ||
826: cShipment_where;
827: if ec_debug.G_debug_level = 3 then
828: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
829: ec_debug.pl(3,'cLine_select: ',cLine_select);
830: ec_debug.pl(3,'cShipment_select: ',cShipment_select);
831: end if;
832: -- ***************************************************
825: cShipment_from ||
826: cShipment_where;
827: if ec_debug.G_debug_level = 3 then
828: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
829: ec_debug.pl(3,'cLine_select: ',cLine_select);
830: ec_debug.pl(3,'cShipment_select: ',cShipment_select);
831: end if;
832: -- ***************************************************
833: -- *** Get data setup for the dynamic SQL call.
826: cShipment_where;
827: if ec_debug.G_debug_level = 3 then
828: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
829: ec_debug.pl(3,'cLine_select: ',cLine_select);
830: ec_debug.pl(3,'cShipment_select: ',cShipment_select);
831: end if;
832: -- ***************************************************
833: -- *** Get data setup for the dynamic SQL call.
834: -- *** Open a cursor for each of the SELECT call
899:
900:
901: xProgress := 'POOB-10-1280';
902: iShipment_count := l_shipment_tbl.COUNT;
903: if ec_debug.G_debug_level = 3 then
904: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
905: ec_debug.pl(3,'iLine_count: ',iLine_count);
906: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
907: end if;
900:
901: xProgress := 'POOB-10-1280';
902: iShipment_count := l_shipment_tbl.COUNT;
903: if ec_debug.G_debug_level = 3 then
904: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
905: ec_debug.pl(3,'iLine_count: ',iLine_count);
906: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
907: end if;
908:
901: xProgress := 'POOB-10-1280';
902: iShipment_count := l_shipment_tbl.COUNT;
903: if ec_debug.G_debug_level = 3 then
904: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
905: ec_debug.pl(3,'iLine_count: ',iLine_count);
906: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
907: end if;
908:
909: -- ******************************************************
902: iShipment_count := l_shipment_tbl.COUNT;
903: if ec_debug.G_debug_level = 3 then
904: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
905: ec_debug.pl(3,'iLine_count: ',iLine_count);
906: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
907: end if;
908:
909: -- ******************************************************
910: -- Define TYPE for every columns in the SELECT statement
1107:
1108: xProgress := 'POOB-10-1449';
1109: ece_flatfile_pvt.find_pos(l_line_tbl,'UOM_CODE',nLine_uom_pos);
1110:
1111: if ec_debug.G_debug_level = 3 then
1112: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
1113: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1108: xProgress := 'POOB-10-1449';
1109: ece_flatfile_pvt.find_pos(l_line_tbl,'UOM_CODE',nLine_uom_pos);
1110:
1111: if ec_debug.G_debug_level = 3 then
1112: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
1113: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1109: ece_flatfile_pvt.find_pos(l_line_tbl,'UOM_CODE',nLine_uom_pos);
1110:
1111: if ec_debug.G_debug_level = 3 then
1112: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
1113: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1110:
1111: if ec_debug.G_debug_level = 3 then
1112: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
1113: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1111: if ec_debug.G_debug_level = 3 then
1112: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
1113: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1112: ec_debug.pl(3,'n_trx_date_pos: ',n_trx_date_pos);
1113: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1113: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1121: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
1114: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1121: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
1122: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
1115: ec_debug.pl(3,'nPO_Number_pos: ',nPO_Number_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1121: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
1122: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
1123: ec_debug.pl(3,'nShip_Line_Location_ID_pos: ',nShip_Line_Location_ID_pos);
1116: ec_debug.pl(3,'nPO_Type_pos: ',nPO_Type_pos);
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1121: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
1122: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
1123: ec_debug.pl(3,'nShip_Line_Location_ID_pos: ',nShip_Line_Location_ID_pos);
1124: end if;
1117: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1121: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
1122: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
1123: ec_debug.pl(3,'nShip_Line_Location_ID_pos: ',nShip_Line_Location_ID_pos);
1124: end if;
1125:
1118: ec_debug.pl(3,'nRelease_id_pos: ',nRelease_id_pos);
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1121: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
1122: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
1123: ec_debug.pl(3,'nShip_Line_Location_ID_pos: ',nShip_Line_Location_ID_pos);
1124: end if;
1125:
1126: -- Timezone enhancement
1119: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
1120: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
1121: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
1122: ec_debug.pl(3,'nItem_id_pos: ',nItem_id_pos);
1123: ec_debug.pl(3,'nShip_Line_Location_ID_pos: ',nShip_Line_Location_ID_pos);
1124: end if;
1125:
1126: -- Timezone enhancement
1127: xProgress := 'POOB-TZ-1000';
1302:
1303: -- dbms_sql.bind_variable(line_sel_c,'l_nOrganization_ID',nOrganization_ID);
1304:
1305: iKey_count := 0;
1306: if ec_debug.G_debug_level = 3 then
1307: ec_debug.pl(3,'iKey_count: ',iKey_count);
1308: end if;
1309:
1310: -- EXECUTE the SELECT statement
1303: -- dbms_sql.bind_variable(line_sel_c,'l_nOrganization_ID',nOrganization_ID);
1304:
1305: iKey_count := 0;
1306: if ec_debug.G_debug_level = 3 then
1307: ec_debug.pl(3,'iKey_count: ',iKey_count);
1308: end if;
1309:
1310: -- EXECUTE the SELECT statement
1311: xProgress := 'POOB-10-1408';
1353: FROM DUAL;
1354:
1355: EXCEPTION
1356: WHEN NO_DATA_FOUND THEN
1357: ec_debug.pl(0,
1358: 'EC',
1359: 'ECE_DECODE_FAILED',
1360: 'PROGRESS_LEVEL',
1361: xProgress,
1361: xProgress,
1362: 'CODE',
1363: l_header_tbl(nDocument_type_pos).value);
1364: END;
1365: if ec_debug.G_debug_level = 3 then
1366: ec_debug.pl(3, 'l_document_type: ',l_document_type);
1367: end if;
1368: xProgress := 'POOB-10-1450';
1369:
1362: 'CODE',
1363: l_header_tbl(nDocument_type_pos).value);
1364: END;
1365: if ec_debug.G_debug_level = 3 then
1366: ec_debug.pl(3, 'l_document_type: ',l_document_type);
1367: end if;
1368: xProgress := 'POOB-10-1450';
1369:
1370:
1453: FROM DUAL;
1454:
1455: EXCEPTION
1456: WHEN NO_DATA_FOUND THEN
1457: ec_debug.pl(0,
1458: 'EC',
1459: 'ECE_GET_NEXT_SEQ_FAILED',
1460: 'PROGRESS_LEVEL',
1461: xProgress,
1462: 'SEQ',
1463: 'ECE_POO_HEADER_S');
1464:
1465: END;
1466: ec_debug.pl(3,'l_header_fkey: ',l_header_fkey);
1467: --2823215
1468: xProgress := 'POOB-10-1490';
1469:
1470: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value,' '),1,25),25);
1472: xProgress := 'POOB-10-1491';
1473: c_file_common_key := c_file_common_key ||
1474: RPAD(SUBSTRB(NVL(l_header_tbl(n_header_common_key_pos).value,' '),1,22),22) || RPAD(' ',22) || RPAD(' ',22);
1475:
1476: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
1477:
1478:
1479: /* ece_extract_utils_pub.insert_into_interface_tbl(iRun_id,
1480: cTransaction_Type,
1509: IF l_document_type = 'NR' THEN -- If this is a Release PO.
1510: xProgress := 'POOB-10-1503';
1511: v_entity_name := 'PO_RELEASES';
1512: v_pk1_value := l_header_tbl(nRelease_id_pos).value;
1513: if ec_debug.G_debug_level = 3 then
1514: ec_debug.pl(3,'release_id: ',l_header_tbl(nRelease_id_pos).value);
1515: end if;
1516: ELSE -- If this is a non-Release PO.
1517: xProgress := 'POOB-10-1504';
1510: xProgress := 'POOB-10-1503';
1511: v_entity_name := 'PO_RELEASES';
1512: v_pk1_value := l_header_tbl(nRelease_id_pos).value;
1513: if ec_debug.G_debug_level = 3 then
1514: ec_debug.pl(3,'release_id: ',l_header_tbl(nRelease_id_pos).value);
1515: end if;
1516: ELSE -- If this is a non-Release PO.
1517: xProgress := 'POOB-10-1504';
1518: v_entity_name := 'PO_HEADERS';
1516: ELSE -- If this is a non-Release PO.
1517: xProgress := 'POOB-10-1504';
1518: v_entity_name := 'PO_HEADERS';
1519: v_pk1_value := l_header_tbl(nHeader_key_pos).value;
1520: if ec_debug.G_debug_level = 3 then
1521: ec_debug.pl(3,'po_header_id: ',l_header_tbl(nHeader_key_pos).value);
1522: end if;
1523: END IF;
1524:
1517: xProgress := 'POOB-10-1504';
1518: v_entity_name := 'PO_HEADERS';
1519: v_pk1_value := l_header_tbl(nHeader_key_pos).value;
1520: if ec_debug.G_debug_level = 3 then
1521: ec_debug.pl(3,'po_header_id: ',l_header_tbl(nHeader_key_pos).value);
1522: end if;
1523: END IF;
1524:
1525: xProgress := 'POOB-10-1505';
1651: FROM DUAL;
1652:
1653: EXCEPTION
1654: WHEN NO_DATA_FOUND THEN
1655: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POO_LINE_S');
1656:
1657: END;
1658: ec_debug.pl(3,'l_line_fkey: ',l_line_fkey);
1659:
1654: WHEN NO_DATA_FOUND THEN
1655: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POO_LINE_S');
1656:
1657: END;
1658: ec_debug.pl(3,'l_line_fkey: ',l_line_fkey);
1659:
1660: if ec_debug.G_debug_level = 3 then
1661: ec_debug.pl(3,'line_part_number: ' ,line_part_number);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1656:
1657: END;
1658: ec_debug.pl(3,'l_line_fkey: ',l_line_fkey);
1659:
1660: if ec_debug.G_debug_level = 3 then
1661: ec_debug.pl(3,'line_part_number: ' ,line_part_number);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1657: END;
1658: ec_debug.pl(3,'l_line_fkey: ',l_line_fkey);
1659:
1660: if ec_debug.G_debug_level = 3 then
1661: ec_debug.pl(3,'line_part_number: ' ,line_part_number);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1658: ec_debug.pl(3,'l_line_fkey: ',l_line_fkey);
1659:
1660: if ec_debug.G_debug_level = 3 then
1661: ec_debug.pl(3,'line_part_number: ' ,line_part_number);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1659:
1660: if ec_debug.G_debug_level = 3 then
1661: ec_debug.pl(3,'line_part_number: ' ,line_part_number);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1660: if ec_debug.G_debug_level = 3 then
1661: ec_debug.pl(3,'line_part_number: ' ,line_part_number);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1661: ec_debug.pl(3,'line_part_number: ' ,line_part_number);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1662: ec_debug.pl(3,'line_part_attrib_category: ',line_part_attrib_category);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1663: ec_debug.pl(3,'line_part_attribute1: ' ,line_part_attribute1);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1664: ec_debug.pl(3,'line_part_attribute2: ' ,line_part_attribute2);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1665: ec_debug.pl(3,'line_part_attribute3: ' ,line_part_attribute3);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1666: ec_debug.pl(3,'line_part_attribute4: ' ,line_part_attribute4);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1667: ec_debug.pl(3,'line_part_attribute5: ' ,line_part_attribute5);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1675: ec_debug.pl(3,'line_part_attribute13: ' ,line_part_attribute13);
1668: ec_debug.pl(3,'line_part_attribute6: ' ,line_part_attribute6);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1675: ec_debug.pl(3,'line_part_attribute13: ' ,line_part_attribute13);
1676: ec_debug.pl(3,'line_part_attribute14: ' ,line_part_attribute14);
1669: ec_debug.pl(3,'line_part_attribute7: ' ,line_part_attribute7);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1675: ec_debug.pl(3,'line_part_attribute13: ' ,line_part_attribute13);
1676: ec_debug.pl(3,'line_part_attribute14: ' ,line_part_attribute14);
1677: ec_debug.pl(3,'line_part_attribute15: ' ,line_part_attribute15);
1670: ec_debug.pl(3,'line_part_attribute8: ' ,line_part_attribute8);
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1675: ec_debug.pl(3,'line_part_attribute13: ' ,line_part_attribute13);
1676: ec_debug.pl(3,'line_part_attribute14: ' ,line_part_attribute14);
1677: ec_debug.pl(3,'line_part_attribute15: ' ,line_part_attribute15);
1678: end if;
1671: ec_debug.pl(3,'line_part_attribute9: ' ,line_part_attribute9);
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1675: ec_debug.pl(3,'line_part_attribute13: ' ,line_part_attribute13);
1676: ec_debug.pl(3,'line_part_attribute14: ' ,line_part_attribute14);
1677: ec_debug.pl(3,'line_part_attribute15: ' ,line_part_attribute15);
1678: end if;
1679:
1672: ec_debug.pl(3,'line_part_attribute10: ' ,line_part_attribute10);
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1675: ec_debug.pl(3,'line_part_attribute13: ' ,line_part_attribute13);
1676: ec_debug.pl(3,'line_part_attribute14: ' ,line_part_attribute14);
1677: ec_debug.pl(3,'line_part_attribute15: ' ,line_part_attribute15);
1678: end if;
1679:
1680: xProgress := 'POOB-10-1591';
1673: ec_debug.pl(3,'line_part_attribute11: ' ,line_part_attribute11);
1674: ec_debug.pl(3,'line_part_attribute12: ' ,line_part_attribute12);
1675: ec_debug.pl(3,'line_part_attribute13: ' ,line_part_attribute13);
1676: ec_debug.pl(3,'line_part_attribute14: ' ,line_part_attribute14);
1677: ec_debug.pl(3,'line_part_attribute15: ' ,line_part_attribute15);
1678: end if;
1679:
1680: xProgress := 'POOB-10-1591';
1681: l_line_tbl(nLp_att_cat_pos).value := line_part_attrib_category;
1709: 1,
1710: 22),22) ||
1711: RPAD(' ',22);
1712:
1713: if ec_debug.G_debug_level = 3 then
1714: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
1715: end if;
1716:
1717: xProgress := 'POOB-10-1620';
1710: 22),22) ||
1711: RPAD(' ',22);
1712:
1713: if ec_debug.G_debug_level = 3 then
1714: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
1715: end if;
1716:
1717: xProgress := 'POOB-10-1620';
1718: ece_poo_x.populate_ext_line(l_line_fkey,l_line_tbl);
1742: /* IF l_document_type = 'NR' THEN -- If this is a Release PO.
1743: xProgress := 'POOB-10-1622';
1744: v_entity_name := 'PO_SHIPMENTS';
1745: v_pk1_value := l_line_tbl(nLine_Location_ID_pos).value; -- LINE_LOCATION_ID
1746: if ec_debug.G_debug_level = 3 then
1747: ec_debug.pl(3,'PO_LINE_LOCATION_ID: ',l_line_tbl(nLine_Location_ID_pos).value);
1748: end if;
1749: ELSE -- If this is a non-Release PO. */ --Bug 2187958
1750: xProgress := 'POOB-10-1623';
1743: xProgress := 'POOB-10-1622';
1744: v_entity_name := 'PO_SHIPMENTS';
1745: v_pk1_value := l_line_tbl(nLine_Location_ID_pos).value; -- LINE_LOCATION_ID
1746: if ec_debug.G_debug_level = 3 then
1747: ec_debug.pl(3,'PO_LINE_LOCATION_ID: ',l_line_tbl(nLine_Location_ID_pos).value);
1748: end if;
1749: ELSE -- If this is a non-Release PO. */ --Bug 2187958
1750: xProgress := 'POOB-10-1623';
1751: v_entity_name := 'PO_LINES';
1749: ELSE -- If this is a non-Release PO. */ --Bug 2187958
1750: xProgress := 'POOB-10-1623';
1751: v_entity_name := 'PO_LINES';
1752: v_pk1_value := l_line_tbl(nLine_key_pos).value; -- LINE_ID
1753: if ec_debug.G_debug_level = 3 then
1754: ec_debug.pl(3,'PO_LINE_ID: ',l_line_tbl(nLine_key_pos).value);
1755: -- end if;
1756: END IF;
1757:
1750: xProgress := 'POOB-10-1623';
1751: v_entity_name := 'PO_LINES';
1752: v_pk1_value := l_line_tbl(nLine_key_pos).value; -- LINE_ID
1753: if ec_debug.G_debug_level = 3 then
1754: ec_debug.pl(3,'PO_LINE_ID: ',l_line_tbl(nLine_key_pos).value);
1755: -- end if;
1756: END IF;
1757:
1758: xProgress := 'POOB-10-1624';
1787: v_entity_name := 'MTL_SYSTEM_ITEMS';
1788: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
1789:
1790: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1791: if ec_debug.G_debug_level = 3 then
1792: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
1793: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1794: end if;
1795:
1788: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
1789:
1790: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1791: if ec_debug.G_debug_level = 3 then
1792: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
1793: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1794: end if;
1795:
1796: xProgress := 'POOB-10-1626';
1789:
1790: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1791: if ec_debug.G_debug_level = 3 then
1792: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
1793: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1794: end if;
1795:
1796: xProgress := 'POOB-10-1626';
1797: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
1823: IF v_iitem_att_enabled = 'Y' THEN
1824: xProgress := 'POOB-10-1627';
1825: v_entity_name := 'MTL_SYSTEM_ITEMS';
1826: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1827: if ec_debug.G_debug_level = 3 then
1828: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1829: end if;
1830:
1831: xProgress := 'POOB-10-1628';
1824: xProgress := 'POOB-10-1627';
1825: v_entity_name := 'MTL_SYSTEM_ITEMS';
1826: v_pk2_value := l_line_tbl(nitem_id_pos).value; -- Item ID
1827: if ec_debug.G_debug_level = 3 then
1828: ec_debug.pl(3,'Item ID: ',v_pk2_value);
1829: end if;
1830:
1831: xProgress := 'POOB-10-1628';
1832: FOR v_org_id IN c_org_id(l_line_tbl(nLine_key_pos).value) LOOP -- Value passed is the Line ID
1831: xProgress := 'POOB-10-1628';
1832: FOR v_org_id IN c_org_id(l_line_tbl(nLine_key_pos).value) LOOP -- Value passed is the Line ID
1833: 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
1834: v_pk1_value := v_org_id.ship_to_organization_id;
1835: if ec_debug.G_debug_level = 3 then
1836: ec_debug.pl(3,'Inventory Org ID: ',v_pk1_value);
1837: end if;
1838:
1839: xProgress := 'POOB-10-1626';
1832: FOR v_org_id IN c_org_id(l_line_tbl(nLine_key_pos).value) LOOP -- Value passed is the Line ID
1833: 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
1834: v_pk1_value := v_org_id.ship_to_organization_id;
1835: if ec_debug.G_debug_level = 3 then
1836: ec_debug.pl(3,'Inventory Org ID: ',v_pk1_value);
1837: end if;
1838:
1839: xProgress := 'POOB-10-1626';
1840: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
1893: FROM DUAL;
1894:
1895: EXCEPTION
1896: WHEN NO_DATA_FOUND THEN
1897: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POO_SHIPMENT_S');
1898: END;
1899: if ec_debug.G_debug_level = 3 then
1900: ec_debug.pl(3, 'l_shipment_fkey: ',l_shipment_fkey);
1901: end if;
1895: EXCEPTION
1896: WHEN NO_DATA_FOUND THEN
1897: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POO_SHIPMENT_S');
1898: END;
1899: if ec_debug.G_debug_level = 3 then
1900: ec_debug.pl(3, 'l_shipment_fkey: ',l_shipment_fkey);
1901: end if;
1902:
1903: l_shipment_tbl(nLine_Location_uom_pos).value := l_line_tbl(nLine_uom_code_pos).value; -- bug 2823215
1896: WHEN NO_DATA_FOUND THEN
1897: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_POO_SHIPMENT_S');
1898: END;
1899: if ec_debug.G_debug_level = 3 then
1900: ec_debug.pl(3, 'l_shipment_fkey: ',l_shipment_fkey);
1901: end if;
1902:
1903: l_shipment_tbl(nLine_Location_uom_pos).value := l_line_tbl(nLine_uom_code_pos).value; -- bug 2823215
1904:
1974: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value ,' '),1,25),25) ||
1975: RPAD(SUBSTRB(NVL(l_header_tbl(n_header_common_key_pos).value ,' '),1,22),22) ||
1976: RPAD(SUBSTRB(NVL(l_line_tbl(n_line_common_key_pos).value ,' '),1,22),22) ||
1977: RPAD(SUBSTRB(NVL(l_shipment_tbl(n_ship_common_key_pos).value,' '),1,22),22);
1978: if ec_debug.G_debug_level = 3 then
1979: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
1980: end if;
1981:
1982:
1975: RPAD(SUBSTRB(NVL(l_header_tbl(n_header_common_key_pos).value ,' '),1,22),22) ||
1976: RPAD(SUBSTRB(NVL(l_line_tbl(n_line_common_key_pos).value ,' '),1,22),22) ||
1977: RPAD(SUBSTRB(NVL(l_shipment_tbl(n_ship_common_key_pos).value,' '),1,22),22);
1978: if ec_debug.G_debug_level = 3 then
1979: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
1980: end if;
1981:
1982:
1983: xProgress := 'POOB-10-1700';
1988: xProgress := 'POOB-10-1691';
1989: v_drop_ship_flag := OE_DROP_SHIP_GRP.PO_Line_Location_Is_Drop_Ship(l_shipment_tbl(nShip_Line_Location_ID_pos).value);
1990: xProgress := 'POOB-10-1692';
1991:
1992: if ec_debug.G_debug_level = 3 then
1993: ec_debug.pl(3, 'Drop Ship Flag:',v_drop_ship_flag);
1994: end if;
1995:
1996: IF (v_drop_ship_flag is NOT NULL) THEN
1989: v_drop_ship_flag := OE_DROP_SHIP_GRP.PO_Line_Location_Is_Drop_Ship(l_shipment_tbl(nShip_Line_Location_ID_pos).value);
1990: xProgress := 'POOB-10-1692';
1991:
1992: if ec_debug.G_debug_level = 3 then
1993: ec_debug.pl(3, 'Drop Ship Flag:',v_drop_ship_flag);
1994: end if;
1995:
1996: IF (v_drop_ship_flag is NOT NULL) THEN
1997:
1998: v_header_cancel_flag := l_header_tbl(nHeader_Cancel_Flag_pos).value;
1999: v_line_cancel_flag := l_line_tbl(nLine_Cancel_Flag_pos).value;
2000: v_shipment_cancel_flag := l_shipment_tbl(nShipment_Cancel_Flag_pos).value;
2001:
2002: if ec_debug.G_debug_level = 3 then
2003: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2004: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2005: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2006: END IF;
1999: v_line_cancel_flag := l_line_tbl(nLine_Cancel_Flag_pos).value;
2000: v_shipment_cancel_flag := l_shipment_tbl(nShipment_Cancel_Flag_pos).value;
2001:
2002: if ec_debug.G_debug_level = 3 then
2003: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2004: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2005: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2006: END IF;
2007:
2000: v_shipment_cancel_flag := l_shipment_tbl(nShipment_Cancel_Flag_pos).value;
2001:
2002: if ec_debug.G_debug_level = 3 then
2003: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2004: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2005: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2006: END IF;
2007:
2008: if ((nvl(v_header_cancel_flag,'N') <> 'Y')
2001:
2002: if ec_debug.G_debug_level = 3 then
2003: ec_debug.pl(3,'v_header_cancel_flag:',v_header_cancel_flag);
2004: ec_debug.pl(3,'v_line_cancel_flag:',v_line_cancel_flag);
2005: ec_debug.pl(3,'v_shipment_cancel_flag:',v_shipment_cancel_flag);
2006: END IF;
2007:
2008: if ((nvl(v_header_cancel_flag,'N') <> 'Y')
2009: and (nvl(v_line_cancel_flag,'N') <> 'Y')
2022: return_status
2023: );
2024: xProgress := 'POOB-10-1670';
2025:
2026: if ec_debug.G_debug_level = 3 then
2027: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2028: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2023: );
2024: xProgress := 'POOB-10-1670';
2025:
2026: if ec_debug.G_debug_level = 3 then
2027: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2028: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2024: xProgress := 'POOB-10-1670';
2025:
2026: if ec_debug.G_debug_level = 3 then
2027: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2028: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2025:
2026: if ec_debug.G_debug_level = 3 then
2027: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2028: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2026: if ec_debug.G_debug_level = 3 then
2027: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2028: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2027: ec_debug.pl(3,'Ship to Customer Name:',rec_order_line_info.ship_to_customer_name);
2028: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2028: ec_debug.pl(3,'Ship to Contact Name:',rec_order_line_info.ship_to_contact_name);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2029: ec_debug.pl(3,'Ship to Contact Phone:',rec_order_line_info.ship_to_contact_phone);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2030: ec_debug.pl(3,'Ship to Contact Fax:',rec_order_line_info.ship_to_contact_fax);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2031: ec_debug.pl(3,'Ship to Contact Email:',rec_order_line_info.ship_to_contact_email);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2032: ec_debug.pl(3,'Shipping Instructions:',rec_order_line_info.shipping_instructions);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2033: ec_debug.pl(3,'Packing Instructions:',rec_order_line_info.packing_instructions);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2034: ec_debug.pl(3,'Shipping Method:',rec_order_line_info.shipping_method);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2035: ec_debug.pl(3,'Customer PO Number:',rec_order_line_info.customer_po_number);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2043: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2036: ec_debug.pl(3,'Customer PO Line Number:',rec_order_line_info.customer_po_line_number);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2043: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2044: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2037: ec_debug.pl(3,'Customer PO Shipment Num:',rec_order_line_info.customer_po_shipment_number);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2043: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2044: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2045: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2038: ec_debug.pl(3,'Customer Item Description:',rec_order_line_info.customer_product_description);
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2043: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2044: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2045: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2046: end if;
2039: ec_debug.pl(3,'Deliver to Location:',rec_order_line_info.deliver_to_customer_location);
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2043: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2044: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2045: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2046: end if;
2047:
2040: ec_debug.pl(3,'Deliver to Customer Name:',rec_order_line_info.deliver_to_customer_name);
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2043: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2044: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2045: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2046: end if;
2047:
2048: -- 2823215
2041: ec_debug.pl(3,'Deliver to Contact Name:',rec_order_line_info.deliver_to_customer_name);
2042: ec_debug.pl(3,'Deliver to Contact Phone:',rec_order_line_info.deliver_to_contact_phone);
2043: ec_debug.pl(3,'Deliver to Contact Fax:',rec_order_line_info.deliver_to_contact_fax);
2044: ec_debug.pl(3,'Deliver to Customer Address:',rec_order_line_info.deliver_to_customer_address);
2045: ec_debug.pl(3,'Deliver to Contact Email:', rec_order_line_info.deliver_to_contact_email);
2046: end if;
2047:
2048: -- 2823215
2049: l_shipment_tbl(nSt_cust_name_pos).value := rec_order_line_info.ship_to_customer_name;
2090: xProgress := 'POOB-10-1710';
2091: IF v_ship_att_enabled = 'Y' THEN
2092: v_entity_name := 'PO_SHIPMENTS';
2093: v_pk1_value := l_shipment_tbl(nShip_Line_Location_ID_pos).value;
2094: if ec_debug.G_debug_level = 3 then
2095: ec_debug.pl(3,'Ship Level Line Location ID: ',l_shipment_tbl(nShip_Line_Location_ID_pos).value);
2096: end if;
2097:
2098: xProgress := 'POOB-10-1720';
2091: IF v_ship_att_enabled = 'Y' THEN
2092: v_entity_name := 'PO_SHIPMENTS';
2093: v_pk1_value := l_shipment_tbl(nShip_Line_Location_ID_pos).value;
2094: if ec_debug.G_debug_level = 3 then
2095: ec_debug.pl(3,'Ship Level Line Location ID: ',l_shipment_tbl(nShip_Line_Location_ID_pos).value);
2096: end if;
2097:
2098: xProgress := 'POOB-10-1720';
2099: ece_poo_transaction.populate_text_attachment(cCommunication_Method,
2141:
2142: xProgress := 'POOB-10-1740';
2143: IF dbms_sql.last_row_count = 0 THEN
2144: v_LevelProcessed := 'SHIPMENT';
2145: ec_debug.pl(0,
2146: 'EC',
2147: 'ECE_NO_DB_ROW_PROCESSED',
2148: 'PROGRESS_LEVEL',
2149: xProgress,
2157:
2158: xProgress := 'POOB-10-1750';
2159: IF(dbms_sql.last_row_count = 0) THEN
2160: v_LevelProcessed := 'LINE';
2161: ec_debug.pl(0,
2162: 'EC',
2163: 'ECE_NO_DB_ROW_PROCESSED',
2164: 'PROGRESS_LEVEL',
2165: xProgress,
2175:
2176: xProgress := 'POOB-10-1760';
2177: IF(dbms_sql.last_row_count = 0) THEN
2178: v_LevelProcessed := 'HEADER';
2179: ec_debug.pl(0,
2180: 'EC',
2181: 'ECE_NO_DB_ROW_PROCESSED',
2182: 'LEVEL_PROCESSED',
2183: v_LevelProcessed,
2198: dbms_sql.close_cursor(line_sel_c);
2199:
2200: xProgress := 'POOB-10-1800';
2201: dbms_sql.close_cursor(header_sel_c);
2202: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
2203:
2204: EXCEPTION
2205: WHEN OTHERS THEN
2206: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
2202: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_POO_TRX');
2203:
2204: EXCEPTION
2205: WHEN OTHERS THEN
2206: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
2207: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2208:
2209: app_exception.raise_exception;
2210:
2203:
2204: EXCEPTION
2205: WHEN OTHERS THEN
2206: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
2207: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2208:
2209: app_exception.raise_exception;
2210:
2211: END populate_poo_trx;
2328: FROM po_line_locations
2329: WHERE po_line_id = p_line_id;
2330:
2331: BEGIN
2332: if ec_debug.G_debug_level = 3 then
2333: ec_debug.push('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2334: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2329: WHERE po_line_id = p_line_id;
2330:
2331: BEGIN
2332: if ec_debug.G_debug_level = 3 then
2333: ec_debug.push('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2334: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2330:
2331: BEGIN
2332: if ec_debug.G_debug_level = 3 then
2333: ec_debug.push('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2334: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2338: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2331: BEGIN
2332: if ec_debug.G_debug_level = 3 then
2333: ec_debug.push('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2334: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2338: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2339: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2332: if ec_debug.G_debug_level = 3 then
2333: ec_debug.push('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2334: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2338: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2339: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2340: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2333: ec_debug.push('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
2334: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2338: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2339: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2340: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2341: end if;
2334: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2338: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2339: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2340: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2341: end if;
2342:
2335: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2338: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2339: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2340: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2341: end if;
2342:
2343: BEGIN
2336: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
2337: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
2338: ec_debug.pl(3,'cHeader_Interface: ' ,cHeader_Interface);
2339: ec_debug.pl(3,'cLine_Interface: ' ,cLine_Interface);
2340: ec_debug.pl(3,'cShipment_Interface: ' ,cShipment_Interface);
2341: end if;
2342:
2343: BEGIN
2344: SELECT inventory_organization_id
2346: FROM financials_system_parameters;
2347:
2348: EXCEPTION
2349: WHEN NO_DATA_FOUND THEN
2350: ec_debug.pl(0,
2351: 'EC',
2352: 'ECE_NO_ROW_SELECTED',
2353: 'PROGRESS_LEVEL',
2354: xProgress,
2356: 'INVENTORY ORGANIZATION ID',
2357: 'TABLE_NAME',
2358: 'FINANCIALS_SYSTEM_PARAMETERS');
2359: END;
2360: if ec_debug.G_debug_level = 3 then
2361: ec_debug.pl(3,'norganization_id: ',norganization_id);
2362: end if;
2363:
2364: -- Let's See if Project Accounting is Installed
2357: 'TABLE_NAME',
2358: 'FINANCIALS_SYSTEM_PARAMETERS');
2359: END;
2360: if ec_debug.G_debug_level = 3 then
2361: ec_debug.pl(3,'norganization_id: ',norganization_id);
2362: end if;
2363:
2364: -- Let's See if Project Accounting is Installed
2365: /* xProgress := 'POOB-20-1000';
2369: v_project_acct_industry,
2370: v_project_acct_schema);
2371:
2372: v_project_acct_status := NVL(v_project_acct_status,'X');
2373: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
2374: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
2375: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
2376: */
2377: xProgress := 'POOB-20-1005';
2370: v_project_acct_schema);
2371:
2372: v_project_acct_status := NVL(v_project_acct_status,'X');
2373: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
2374: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
2375: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
2376: */
2377: xProgress := 'POOB-20-1005';
2378: ece_flatfile_pvt.select_clause(cTransaction_Type,
2371:
2372: v_project_acct_status := NVL(v_project_acct_status,'X');
2373: ec_debug.pl(3,'v_project_acct_status: ' ,v_project_acct_status);
2374: ec_debug.pl(3,'v_project_acct_industry: ',v_project_acct_industry);
2375: ec_debug.pl(3,'v_project_acct_schema: ' ,v_project_acct_schema);
2376: */
2377: xProgress := 'POOB-20-1005';
2378: ece_flatfile_pvt.select_clause(cTransaction_Type,
2379: cCommunication_Method,
2442: ece_flatfile_pvt.find_pos(l_shipment_tbl,'LINE_LOCATION_ID',nLine_Location_ID_pos);
2443:
2444: xProgress := 'POOB-20-1032';
2445: ece_flatfile_pvt.find_pos(l_shipment_tbl,c_shipment_key_name,nShipment_key_pos);
2446: if ec_debug.G_debug_level = 3 then
2447: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2448: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2443:
2444: xProgress := 'POOB-20-1032';
2445: ece_flatfile_pvt.find_pos(l_shipment_tbl,c_shipment_key_name,nShipment_key_pos);
2446: if ec_debug.G_debug_level = 3 then
2447: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2448: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2444: xProgress := 'POOB-20-1032';
2445: ece_flatfile_pvt.find_pos(l_shipment_tbl,c_shipment_key_name,nShipment_key_pos);
2446: if ec_debug.G_debug_level = 3 then
2447: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2448: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2445: ece_flatfile_pvt.find_pos(l_shipment_tbl,c_shipment_key_name,nShipment_key_pos);
2446: if ec_debug.G_debug_level = 3 then
2447: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2448: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2446: if ec_debug.G_debug_level = 3 then
2447: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2448: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2447: ec_debug.pl(3,'nTrans_code_pos: ',nTrans_code_pos);
2448: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2455: ec_debug.pl(3,'nItem_ID_pos: ',nItem_ID_pos);
2448: ec_debug.pl(3,'nHeader_key_pos: ',nHeader_key_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2455: ec_debug.pl(3,'nItem_ID_pos: ',nItem_ID_pos);
2456: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2449: ec_debug.pl(3,'nRelease_num_pos: ',nRelease_num_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2455: ec_debug.pl(3,'nItem_ID_pos: ',nItem_ID_pos);
2456: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2457: ec_debug.pl(3,'nShipment_key_pos: ',nShipment_key_pos);
2450: ec_debug.pl(3,'nRelease_ID_pos: ',nRelease_ID_pos);
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2455: ec_debug.pl(3,'nItem_ID_pos: ',nItem_ID_pos);
2456: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2457: ec_debug.pl(3,'nShipment_key_pos: ',nShipment_key_pos);
2458: end if;
2451: ec_debug.pl(3,'nDocument_type_pos: ',nDocument_type_pos);
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2455: ec_debug.pl(3,'nItem_ID_pos: ',nItem_ID_pos);
2456: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2457: ec_debug.pl(3,'nShipment_key_pos: ',nShipment_key_pos);
2458: end if;
2459: -- Build SELECT Statement
2452: ec_debug.pl(3,'nLine_key_pos: ',nLine_key_pos);
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2455: ec_debug.pl(3,'nItem_ID_pos: ',nItem_ID_pos);
2456: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2457: ec_debug.pl(3,'nShipment_key_pos: ',nShipment_key_pos);
2458: end if;
2459: -- Build SELECT Statement
2460: xProgress := 'POOB-20-1035';
2453: ec_debug.pl(3,'nLine_num_pos: ',nLine_num_pos);
2454: ec_debug.pl(3,'nPO_Line_Location_ID_pos: ',nPO_Line_Location_ID_pos);
2455: ec_debug.pl(3,'nItem_ID_pos: ',nItem_ID_pos);
2456: ec_debug.pl(3,'nLine_Location_ID_pos: ',nLine_Location_ID_pos);
2457: ec_debug.pl(3,'nShipment_key_pos: ',nShipment_key_pos);
2458: end if;
2459: -- Build SELECT Statement
2460: xProgress := 'POOB-20-1035';
2461: cHeader_where := cHeader_where ||
2535: '.po_header_id,' ||
2536: cHeader_Interface ||
2537: '.release_number ' ||
2538: ' FOR UPDATE';
2539: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
2540:
2541: cLine_select := cLine_select ||
2542: cLine_from ||
2543: cLine_where ||
2544: ' ORDER BY ' ||
2545: cLine_Interface ||
2546: '.line_number ' ||
2547: ' FOR UPDATE';
2548: ec_debug.pl(3, 'cLine_select: ',cLine_select);
2549:
2550: cShipment_select := cShipment_select ||
2551: cShipment_from ||
2552: cShipment_where ||
2553: ' ORDER BY ' ||
2554: cShipment_Interface ||
2555: '.shipment_number ' ||
2556: ' FOR UPDATE';
2557: ec_debug.pl(3, 'cShipment_select: ',cShipment_select);
2558:
2559: xProgress := 'POOB-20-1060';
2560: cHeader_delete1 := 'DELETE FROM ' || cHeader_Interface || ' WHERE rowid = :col_rowid';
2561:
2568:
2569: cLine_delete2 := 'DELETE FROM ' || cLine_X_Interface || ' WHERE rowid = :col_rowid';
2570:
2571: cShipment_delete2 := 'DELETE FROM ' || cShipment_X_Interface || ' WHERE rowid = :col_rowid';
2572: if ec_debug.G_debug_level = 3 then
2573: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2574: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2575: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2576: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2569: cLine_delete2 := 'DELETE FROM ' || cLine_X_Interface || ' WHERE rowid = :col_rowid';
2570:
2571: cShipment_delete2 := 'DELETE FROM ' || cShipment_X_Interface || ' WHERE rowid = :col_rowid';
2572: if ec_debug.G_debug_level = 3 then
2573: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2574: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2575: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2576: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2577: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2570:
2571: cShipment_delete2 := 'DELETE FROM ' || cShipment_X_Interface || ' WHERE rowid = :col_rowid';
2572: if ec_debug.G_debug_level = 3 then
2573: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2574: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2575: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2576: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2577: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2578: ec_debug.pl(3,'cShipment_delete2: ',cShipment_delete2);
2571: cShipment_delete2 := 'DELETE FROM ' || cShipment_X_Interface || ' WHERE rowid = :col_rowid';
2572: if ec_debug.G_debug_level = 3 then
2573: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2574: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2575: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2576: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2577: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2578: ec_debug.pl(3,'cShipment_delete2: ',cShipment_delete2);
2579: end if;
2572: if ec_debug.G_debug_level = 3 then
2573: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2574: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2575: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2576: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2577: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2578: ec_debug.pl(3,'cShipment_delete2: ',cShipment_delete2);
2579: end if;
2580:
2573: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
2574: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2575: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2576: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2577: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2578: ec_debug.pl(3,'cShipment_delete2: ',cShipment_delete2);
2579: end if;
2580:
2581: -- ***************************************************
2574: ec_debug.pl(3,'cLine_delete1: ',cLine_delete1);
2575: ec_debug.pl(3,'cShipment_delete1: ',cShipment_delete1);
2576: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
2577: ec_debug.pl(3,'cLine_delete2: ',cLine_delete2);
2578: ec_debug.pl(3,'cShipment_delete2: ',cShipment_delete2);
2579: end if;
2580:
2581: -- ***************************************************
2582: -- *** Get data setup for the dynamic SQL call.
2721: iHeader_count := l_header_tbl.COUNT;
2722: iLine_count := l_line_tbl.COUNT;
2723: iShipment_count := l_shipment_tbl.COUNT;
2724:
2725: if ec_debug.G_debug_level = 3 then
2726: ec_debug.pl(3,'iHeader_count: ' ,iHeader_count);
2727: ec_debug.pl(3,'iLine_count: ' ,iLine_count);
2728: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
2729: end if;
2722: iLine_count := l_line_tbl.COUNT;
2723: iShipment_count := l_shipment_tbl.COUNT;
2724:
2725: if ec_debug.G_debug_level = 3 then
2726: ec_debug.pl(3,'iHeader_count: ' ,iHeader_count);
2727: ec_debug.pl(3,'iLine_count: ' ,iLine_count);
2728: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
2729: end if;
2730:
2723: iShipment_count := l_shipment_tbl.COUNT;
2724:
2725: if ec_debug.G_debug_level = 3 then
2726: ec_debug.pl(3,'iHeader_count: ' ,iHeader_count);
2727: ec_debug.pl(3,'iLine_count: ' ,iLine_count);
2728: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
2729: end if;
2730:
2731: -- ******************************************************
2724:
2725: if ec_debug.G_debug_level = 3 then
2726: ec_debug.pl(3,'iHeader_count: ' ,iHeader_count);
2727: ec_debug.pl(3,'iLine_count: ' ,iLine_count);
2728: ec_debug.pl(3,'iShipment_count: ',iShipment_count);
2729: end if;
2730:
2731: -- ******************************************************
2732: -- Define TYPE for every columns in the SELECT statement
2828: nRelease_num := l_header_tbl(nRelease_num_pos).value;
2829:
2830: xProgress := 'POOB-20-1450';
2831: nRelease_ID := l_header_tbl(nRelease_id_pos).value;
2832: if ec_debug.G_debug_level = 3 then
2833: ec_debug.pl(3,'nRelease_num: ',nRelease_num);
2834: ec_debug.pl(3,'nRelease_ID: ',nRelease_ID);
2835: end if;
2836:
2829:
2830: xProgress := 'POOB-20-1450';
2831: nRelease_ID := l_header_tbl(nRelease_id_pos).value;
2832: if ec_debug.G_debug_level = 3 then
2833: ec_debug.pl(3,'nRelease_num: ',nRelease_num);
2834: ec_debug.pl(3,'nRelease_ID: ',nRelease_ID);
2835: end if;
2836:
2837: BEGIN
2830: xProgress := 'POOB-20-1450';
2831: nRelease_ID := l_header_tbl(nRelease_id_pos).value;
2832: if ec_debug.G_debug_level = 3 then
2833: ec_debug.pl(3,'nRelease_num: ',nRelease_num);
2834: ec_debug.pl(3,'nRelease_ID: ',nRelease_ID);
2835: end if;
2836:
2837: BEGIN
2838: xProgress := 'POOB-20-1455';
2850: FROM DUAL;
2851:
2852: EXCEPTION
2853: WHEN NO_DATA_FOUND THEN
2854: ec_debug.pl(0,
2855: 'EC',
2856: 'ECE_DECODE_FAILED',
2857: 'PROGRESS_LEVEL',
2858: xProgress,
2858: xProgress,
2859: 'CODE',
2860: l_header_tbl(nDocument_type_pos).value);
2861: END;
2862: ec_debug.pl(3,'l_document_type: ',l_document_type);
2863:
2864: xProgress := 'POOB-20-1460';
2865: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value,' '),1,25),25);
2866:
2867: xProgress := 'POOB-20-1470';
2868: c_file_common_key := c_file_common_key ||
2869: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value,' '),1,22),22) || RPAD(' ',22) || RPAD(' ',22);
2870:
2871: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
2872:
2873: xProgress := 'POOB-20-1480';
2874: ece_poo_transaction.write_to_file(cTransaction_Type,
2875: cCommunication_Method,
2883: IF l_document_type = 'NR' THEN -- If this is a Release PO.
2884: xProgress := 'POOB-20-1481';
2885: v_entity_name := 'PO_RELEASES';
2886: v_pk1_value := nRelease_ID;
2887: if ec_debug.G_debug_level = 3 then
2888: ec_debug.pl(3,'release_id: ',nRelease_ID);
2889: end if;
2890: ELSE -- If this is a non-Release PO.
2891: xProgress := 'POOB-20-1482';
2884: xProgress := 'POOB-20-1481';
2885: v_entity_name := 'PO_RELEASES';
2886: v_pk1_value := nRelease_ID;
2887: if ec_debug.G_debug_level = 3 then
2888: ec_debug.pl(3,'release_id: ',nRelease_ID);
2889: end if;
2890: ELSE -- If this is a non-Release PO.
2891: xProgress := 'POOB-20-1482';
2892: v_entity_name := 'PO_HEADERS';
2890: ELSE -- If this is a non-Release PO.
2891: xProgress := 'POOB-20-1482';
2892: v_entity_name := 'PO_HEADERS';
2893: v_pk1_value := n_po_header_id;
2894: if ec_debug.G_debug_level = 3 then
2895: ec_debug.pl(3,'po_header_id: ',n_po_header_id);
2896: end if;
2897: END IF;
2898:
2891: xProgress := 'POOB-20-1482';
2892: v_entity_name := 'PO_HEADERS';
2893: v_pk1_value := n_po_header_id;
2894: if ec_debug.G_debug_level = 3 then
2895: ec_debug.pl(3,'po_header_id: ',n_po_header_id);
2896: end if;
2897: END IF;
2898:
2899: xProgress := 'POOB-20-1483';
2965: nPO_Line_Location_ID := l_line_tbl(nPO_Line_Location_ID_pos).value;
2966:
2967: xProgress := 'POOB-20-1545';
2968: nItem_ID := l_line_tbl(nItem_id_pos).value;
2969: if ec_debug.G_debug_level = 3 then
2970: ec_debug.pl(3,'n_po_line_id: ',n_po_line_id);
2971: ec_debug.pl(3,'nLine_num: ',nLine_num);
2972: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2973: ec_debug.pl(3,'nItem_ID: ',nItem_ID);
2966:
2967: xProgress := 'POOB-20-1545';
2968: nItem_ID := l_line_tbl(nItem_id_pos).value;
2969: if ec_debug.G_debug_level = 3 then
2970: ec_debug.pl(3,'n_po_line_id: ',n_po_line_id);
2971: ec_debug.pl(3,'nLine_num: ',nLine_num);
2972: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2973: ec_debug.pl(3,'nItem_ID: ',nItem_ID);
2974: end if;
2967: xProgress := 'POOB-20-1545';
2968: nItem_ID := l_line_tbl(nItem_id_pos).value;
2969: if ec_debug.G_debug_level = 3 then
2970: ec_debug.pl(3,'n_po_line_id: ',n_po_line_id);
2971: ec_debug.pl(3,'nLine_num: ',nLine_num);
2972: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2973: ec_debug.pl(3,'nItem_ID: ',nItem_ID);
2974: end if;
2975:
2968: nItem_ID := l_line_tbl(nItem_id_pos).value;
2969: if ec_debug.G_debug_level = 3 then
2970: ec_debug.pl(3,'n_po_line_id: ',n_po_line_id);
2971: ec_debug.pl(3,'nLine_num: ',nLine_num);
2972: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2973: ec_debug.pl(3,'nItem_ID: ',nItem_ID);
2974: end if;
2975:
2976: xProgress := 'POOB-20-1550';
2969: if ec_debug.G_debug_level = 3 then
2970: ec_debug.pl(3,'n_po_line_id: ',n_po_line_id);
2971: ec_debug.pl(3,'nLine_num: ',nLine_num);
2972: ec_debug.pl(3,'nPO_Line_Location_ID: ',nPO_Line_Location_ID);
2973: ec_debug.pl(3,'nItem_ID: ',nItem_ID);
2974: end if;
2975:
2976: xProgress := 'POOB-20-1550';
2977: c_file_common_key := RPAD(SUBSTRB(NVL
2986: (l_line_tbl(nLine_key_pos).value,' '),
2987: 1,
2988: 22),22) ||
2989: RPAD(' ',22);
2990: if ec_debug.G_debug_level = 3 then
2991: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
2992: end if;
2993:
2994: xProgress := 'POOB-20-1551';
2987: 1,
2988: 22),22) ||
2989: RPAD(' ',22);
2990: if ec_debug.G_debug_level = 3 then
2991: ec_debug.pl(3,'c_file_common_key: ',c_file_common_key);
2992: end if;
2993:
2994: xProgress := 'POOB-20-1551';
2995: ece_poo_transaction.write_to_file(cTransaction_Type,
3037: v_entity_name := 'MTL_SYSTEM_ITEMS';
3038: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
3039:
3040: v_pk2_value := nItem_ID; -- Item ID
3041: if ec_debug.G_debug_level = 3 then
3042: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
3043: ec_debug.pl(3,'Item ID: ',v_pk2_value);
3044: end if;
3045:
3038: v_pk1_value := nOrganization_ID; -- Master Inventory Org ID
3039:
3040: v_pk2_value := nItem_ID; -- Item ID
3041: if ec_debug.G_debug_level = 3 then
3042: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
3043: ec_debug.pl(3,'Item ID: ',v_pk2_value);
3044: end if;
3045:
3046: xProgress := 'POOB-20-1556';
3039:
3040: v_pk2_value := nItem_ID; -- Item ID
3041: if ec_debug.G_debug_level = 3 then
3042: ec_debug.pl(3,'Master Org ID: ',v_pk1_value);
3043: ec_debug.pl(3,'Item ID: ',v_pk2_value);
3044: end if;
3045:
3046: xProgress := 'POOB-20-1556';
3047: put_att_to_output_table(cCommunication_Method,
3067: FOR v_org_id IN c_org_id(n_po_line_id) LOOP -- Value passed is the Line ID
3068: 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
3069: v_pk1_value := v_org_id.ship_to_organization_id;
3070:
3071: if ec_debug.G_debug_level = 3 then
3072: ec_debug.pl(3,'Inventory Org ID: ',v_pk1_value);
3073: end if;
3074:
3075: xProgress := 'POOB-20-1558';
3068: 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
3069: v_pk1_value := v_org_id.ship_to_organization_id;
3070:
3071: if ec_debug.G_debug_level = 3 then
3072: ec_debug.pl(3,'Inventory Org ID: ',v_pk1_value);
3073: end if;
3074:
3075: xProgress := 'POOB-20-1558';
3076: put_att_to_output_table(cCommunication_Method,
3124: dbms_sql.column_value(shipment_sel_c,iShipment_count + 2,rShipment_X_rowid);
3125:
3126: xProgress := 'POCOB-10-1610';
3127: nLine_Location_ID := l_shipment_tbl(nLine_Location_ID_pos).value;
3128: if ec_debug.G_debug_level = 3 then
3129: ec_debug.pl(3,'Ship Level Line Location ID: ',nLine_Location_ID);
3130: end if;
3131:
3132: xProgress := 'POCOB-10-1620';
3125:
3126: xProgress := 'POCOB-10-1610';
3127: nLine_Location_ID := l_shipment_tbl(nLine_Location_ID_pos).value;
3128: if ec_debug.G_debug_level = 3 then
3129: ec_debug.pl(3,'Ship Level Line Location ID: ',nLine_Location_ID);
3130: end if;
3131:
3132: xProgress := 'POCOB-10-1620';
3133: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value ,' '),1,25),25) ||
3133: c_file_common_key := RPAD(SUBSTRB(NVL(l_header_tbl(nTrans_code_pos).value ,' '),1,25),25) ||
3134: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value ,' '),1,22),22) ||
3135: RPAD(SUBSTRB(NVL(l_line_tbl(nLine_key_pos).value ,' '),1,22),22) ||
3136: RPAD(SUBSTRB(NVL(l_shipment_tbl(nShipment_key_pos).value,' '),1,22),22);
3137: if ec_debug.G_debug_level = 3 then
3138: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
3139: end if;
3140:
3141: xProgress := 'POOB-20-1630';
3134: RPAD(SUBSTRB(NVL(l_header_tbl(nHeader_key_pos).value ,' '),1,22),22) ||
3135: RPAD(SUBSTRB(NVL(l_line_tbl(nLine_key_pos).value ,' '),1,22),22) ||
3136: RPAD(SUBSTRB(NVL(l_shipment_tbl(nShipment_key_pos).value,' '),1,22),22);
3137: if ec_debug.G_debug_level = 3 then
3138: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
3139: end if;
3140:
3141: xProgress := 'POOB-20-1630';
3142: ece_poo_transaction.write_to_file(cTransaction_Type,
3202:
3203: xProgress := 'POOB-20-1674';
3204: IF dbms_sql.last_row_count = 0 THEN
3205: v_LevelProcessed := 'SHIPMENT';
3206: ec_debug.pl(0,
3207: 'EC',
3208: 'ECE_NO_DB_ROW_PROCESSED',
3209: 'PROGRESS_LEVEL',
3210: xProgress,
3233:
3234: xProgress := 'POOB-20-1714';
3235: IF dbms_sql.last_row_count = 0 THEN
3236: v_LevelProcessed := 'LINE';
3237: ec_debug.pl(0,
3238: 'EC',
3239: 'ECE_NO_DB_ROW_PROCESSED',
3240: 'PROGRESS_LEVEL',
3241: xProgress,
3261:
3262: xProgress := 'POOB-20-1754';
3263: IF dbms_sql.last_row_count = 0 THEN
3264: v_LevelProcessed := 'HEADER';
3265: ec_debug.pl(0,
3266: 'EC',
3267: 'ECE_NO_DB_ROW_PROCESSED',
3268: 'PROGRESS_LEVEL',
3269: xProgress,
3312: dbms_sql.close_cursor(ece_poo_transaction.project_del_c2);
3313: end if;
3314:
3315: xProgress := 'POOB-20-1820';
3316: if ec_debug.G_debug_level >= 2 then
3317: ec_debug.pop('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
3318: end if;
3319:
3320: EXCEPTION
3313: end if;
3314:
3315: xProgress := 'POOB-20-1820';
3316: if ec_debug.G_debug_level >= 2 then
3317: ec_debug.pop('ECE_POO_TRANSACTION.PUT_DATA_TO_OUTPUT_TABLE');
3318: end if;
3319:
3320: EXCEPTION
3321: WHEN OTHERS THEN
3318: end if;
3319:
3320: EXCEPTION
3321: WHEN OTHERS THEN
3322: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3323: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3324:
3325: app_exception.raise_exception;
3326:
3319:
3320: EXCEPTION
3321: WHEN OTHERS THEN
3322: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3323: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3324:
3325: app_exception.raise_exception;
3326:
3327: END put_data_to_output_table;
3343: l_error_buf VARCHAR2(1000);
3344: l_error_stack VARCHAR2(2000);
3345:
3346: BEGIN
3347: if ec_debug.G_debug_level >= 2 then
3348: ec_debug.push('ECE_POO_TRANSACTION.UPDATE_PO');
3349: ec_debug.pl(3,'document_type: ', document_type);
3350: ec_debug.pl(3,'po_number: ', po_number);
3351: ec_debug.pl(3,'po_type: ', po_type);
3344: l_error_stack VARCHAR2(2000);
3345:
3346: BEGIN
3347: if ec_debug.G_debug_level >= 2 then
3348: ec_debug.push('ECE_POO_TRANSACTION.UPDATE_PO');
3349: ec_debug.pl(3,'document_type: ', document_type);
3350: ec_debug.pl(3,'po_number: ', po_number);
3351: ec_debug.pl(3,'po_type: ', po_type);
3352: ec_debug.pl(3,'release_number: ',release_number);
3345:
3346: BEGIN
3347: if ec_debug.G_debug_level >= 2 then
3348: ec_debug.push('ECE_POO_TRANSACTION.UPDATE_PO');
3349: ec_debug.pl(3,'document_type: ', document_type);
3350: ec_debug.pl(3,'po_number: ', po_number);
3351: ec_debug.pl(3,'po_type: ', po_type);
3352: ec_debug.pl(3,'release_number: ',release_number);
3353: end if;
3346: BEGIN
3347: if ec_debug.G_debug_level >= 2 then
3348: ec_debug.push('ECE_POO_TRANSACTION.UPDATE_PO');
3349: ec_debug.pl(3,'document_type: ', document_type);
3350: ec_debug.pl(3,'po_number: ', po_number);
3351: ec_debug.pl(3,'po_type: ', po_type);
3352: ec_debug.pl(3,'release_number: ',release_number);
3353: end if;
3354:
3347: if ec_debug.G_debug_level >= 2 then
3348: ec_debug.push('ECE_POO_TRANSACTION.UPDATE_PO');
3349: ec_debug.pl(3,'document_type: ', document_type);
3350: ec_debug.pl(3,'po_number: ', po_number);
3351: ec_debug.pl(3,'po_type: ', po_type);
3352: ec_debug.pl(3,'release_number: ',release_number);
3353: end if;
3354:
3355: xProgress := 'POOB-30-1000';
3348: ec_debug.push('ECE_POO_TRANSACTION.UPDATE_PO');
3349: ec_debug.pl(3,'document_type: ', document_type);
3350: ec_debug.pl(3,'po_number: ', po_number);
3351: ec_debug.pl(3,'po_type: ', po_type);
3352: ec_debug.pl(3,'release_number: ',release_number);
3353: end if;
3354:
3355: xProgress := 'POOB-30-1000';
3356: BEGIN
3361: type_lookup_code = po_type;
3362:
3363: EXCEPTION
3364: WHEN NO_DATA_FOUND THEN
3365: ec_debug.pl(0,'EC','ECE_NO_ROW_SELECTED','PROGRESS_LEVEL',xProgress,'INFO','PO HEADER ID','TABLE_NAME','PO_HEADERS');
3366:
3367: END;
3368: if ec_debug.G_debug_level = 3 then
3369: ec_debug.pl(3,'l_header_id: ',l_header_id);
3364: WHEN NO_DATA_FOUND THEN
3365: ec_debug.pl(0,'EC','ECE_NO_ROW_SELECTED','PROGRESS_LEVEL',xProgress,'INFO','PO HEADER ID','TABLE_NAME','PO_HEADERS');
3366:
3367: END;
3368: if ec_debug.G_debug_level = 3 then
3369: ec_debug.pl(3,'l_header_id: ',l_header_id);
3370: end if;
3371:
3372: -- Perform the first update if this is a Standard or Blanket PO
3365: ec_debug.pl(0,'EC','ECE_NO_ROW_SELECTED','PROGRESS_LEVEL',xProgress,'INFO','PO HEADER ID','TABLE_NAME','PO_HEADERS');
3366:
3367: END;
3368: if ec_debug.G_debug_level = 3 then
3369: ec_debug.pl(3,'l_header_id: ',l_header_id);
3370: end if;
3371:
3372: -- Perform the first update if this is a Standard or Blanket PO
3373: xProgress := 'POOB-30-1010';
3380: edi_processed_flag = 'Y'
3381: WHERE po_header_id = l_header_id;
3382:
3383: IF SQL%NOTFOUND THEN
3384: ec_debug.pl(0,'EC','ECE_NO_ROW_UPDATED','PROGRESS_LEVEL',xProgress,'INFO','EDI PROCESSED','TABLE_NAME','PO_HEADERS');
3385: END IF;
3386:
3387: -- Perform the same update for the Archive Table.
3388: xProgress := 'POOB-30-1022';
3394: WHERE po_header_id = l_header_id AND
3395: latest_external_flag = 'Y';
3396:
3397: IF SQL%NOTFOUND THEN
3398: ec_debug.pl(0,'EC','ECE_NO_ROW_UPDATED','PROGRESS_LEVEL',xProgress,'INFO','EDI PROCESSED','TABLE_NAME','PO_HEADERS_ARCHIVE');
3399: END IF;
3400:
3401: ELSE
3402: -- Get the po_release_id, as it is needed here for the update and
3409: po_header_id = l_header_id;
3410:
3411: EXCEPTION
3412: WHEN NO_DATA_FOUND THEN
3413: ec_debug.pl(0,'EC','ECE_NO_ROW_SELECTED','PROGRESS_LEVEL',xProgress,'INFO','PO RELEASE ID','TABLE_NAME','PO_RELEASES');
3414:
3415: END;
3416: if ec_debug.G_debug_level = 3 then
3417: ec_debug.pl(3, 'l_release_id: ',l_release_id);
3412: WHEN NO_DATA_FOUND THEN
3413: ec_debug.pl(0,'EC','ECE_NO_ROW_SELECTED','PROGRESS_LEVEL',xProgress,'INFO','PO RELEASE ID','TABLE_NAME','PO_RELEASES');
3414:
3415: END;
3416: if ec_debug.G_debug_level = 3 then
3417: ec_debug.pl(3, 'l_release_id: ',l_release_id);
3418: end if;
3419:
3420: -- Perform this update if this is a Release PO
3413: ec_debug.pl(0,'EC','ECE_NO_ROW_SELECTED','PROGRESS_LEVEL',xProgress,'INFO','PO RELEASE ID','TABLE_NAME','PO_RELEASES');
3414:
3415: END;
3416: if ec_debug.G_debug_level = 3 then
3417: ec_debug.pl(3, 'l_release_id: ',l_release_id);
3418: end if;
3419:
3420: -- Perform this update if this is a Release PO
3421: xProgress := 'POOB-30-1030';
3426: edi_processed_flag = 'Y'
3427: WHERE po_release_id = l_release_id;
3428:
3429: IF SQL%NOTFOUND THEN
3430: ec_debug.pl(0,'EC','ECE_NO_ROW_UPDATED','PROGRESS_LEVEL',xProgress,'INFO','EDI PROCESSED','TABLE_NAME','PO_RELEASES');
3431: END IF;
3432:
3433: -- Perform the same update for the Archive Table.
3434: xProgress := 'POOB-30-1040';
3440: WHERE po_release_id = l_release_id AND
3441: latest_external_flag = 'Y';
3442:
3443: IF SQL%NOTFOUND THEN
3444: ec_debug.pl(0,'EC','ECE_NO_ROW_UPDATED','PROGRESS_LEVEL',xProgress,'INFO','EDI PROCESSED','TABLE_NAME','PO_RELEASES_ARCHIVE');
3445: END IF;
3446: END IF;
3447:
3448: -- Perform archiving by calling the archive proceedure.
3474: FROM DUAL;
3475:
3476: EXCEPTION
3477: WHEN NO_DATA_FOUND THEN
3478: ec_debug.pl(0,'EC','ECE_DECODE_FAILED','PROGRESS_LEVEL',xProgress,'CODE',document_type);
3479:
3480: END;
3481:
3482: if ec_debug.G_debug_level = 3 then
3478: ec_debug.pl(0,'EC','ECE_DECODE_FAILED','PROGRESS_LEVEL',xProgress,'CODE',document_type);
3479:
3480: END;
3481:
3482: if ec_debug.G_debug_level = 3 then
3483: ec_debug.pl(3,'l_document_type: ', l_document_type);
3484: ec_debug.pl(3,'l_document_subtype: ',l_document_subtype);
3485: end if;
3486:
3479:
3480: END;
3481:
3482: if ec_debug.G_debug_level = 3 then
3483: ec_debug.pl(3,'l_document_type: ', l_document_type);
3484: ec_debug.pl(3,'l_document_subtype: ',l_document_subtype);
3485: end if;
3486:
3487: xProgress := 'POOB-30-1060';
3480: END;
3481:
3482: if ec_debug.G_debug_level = 3 then
3483: ec_debug.pl(3,'l_document_type: ', l_document_type);
3484: ec_debug.pl(3,'l_document_subtype: ',l_document_subtype);
3485: end if;
3486:
3487: xProgress := 'POOB-30-1060';
3488: IF document_type NOT IN ('NR','CR') THEN
3505: -- IF l_error_code <> 0 THEN
3506: -- raise_application_error(-20000,l_error_buf || l_error_stack);
3507: -- END IF;
3508:
3509: if ec_debug.G_debug_level = 3 then
3510: ec_debug.pop('ECE_POO_TRANSACTION.UPDATE_PO');
3511: end if;
3512:
3513: EXCEPTION
3506: -- raise_application_error(-20000,l_error_buf || l_error_stack);
3507: -- END IF;
3508:
3509: if ec_debug.G_debug_level = 3 then
3510: ec_debug.pop('ECE_POO_TRANSACTION.UPDATE_PO');
3511: end if;
3512:
3513: EXCEPTION
3514: WHEN OTHERS THEN
3511: end if;
3512:
3513: EXCEPTION
3514: WHEN OTHERS THEN
3515: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3516: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3517:
3518: app_exception.raise_exception;
3519: END update_po;
3512:
3513: EXCEPTION
3514: WHEN OTHERS THEN
3515: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3516: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3517:
3518: app_exception.raise_exception;
3519: END update_po;
3520:
3576: nConv_dt_pos pls_integer;
3577: nConv_tz_pos pls_integer;
3578: nConv_off_pos pls_integer;
3579: BEGIN
3580: if ec_debug.G_debug_level = 3 then
3581: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3582: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3577: nConv_tz_pos pls_integer;
3578: nConv_off_pos pls_integer;
3579: BEGIN
3580: if ec_debug.G_debug_level = 3 then
3581: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3582: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3578: nConv_off_pos pls_integer;
3579: BEGIN
3580: if ec_debug.G_debug_level = 3 then
3581: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3582: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3579: BEGIN
3580: if ec_debug.G_debug_level = 3 then
3581: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3582: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3587: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3580: if ec_debug.G_debug_level = 3 then
3581: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3582: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3587: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3588: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3581: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3582: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3587: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3588: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3589: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3582: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3587: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3588: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3589: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3590: end if;
3583: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3587: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3588: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3589: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3590: end if;
3591:
3584: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3587: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3588: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3589: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3590: end if;
3591:
3592: -- Initialize the PL/SQL Table
3585: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3586: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3587: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3588: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3589: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3590: end if;
3591:
3592: -- Initialize the PL/SQL Table
3593:
3608: if ece_poo_transaction.project_sel_c <0 then --Bug 2490109
3609:
3610: xProgress := 'POOB-40-1000';
3611: iKey_count := l_key_tbl.COUNT;
3612: if ec_debug.G_debug_level = 3 then
3613: ec_debug.pl(3,'iKey_count: ',iKey_count);
3614: END if;
3615: ece_flatfile_pvt.init_table(cTransaction_Type,cDistribution_Interface,iProject_output_level,TRUE,l_project_tbl,l_key_tbl);
3616:
3609:
3610: xProgress := 'POOB-40-1000';
3611: iKey_count := l_key_tbl.COUNT;
3612: if ec_debug.G_debug_level = 3 then
3613: ec_debug.pl(3,'iKey_count: ',iKey_count);
3614: END if;
3615: ece_flatfile_pvt.init_table(cTransaction_Type,cDistribution_Interface,iProject_output_level,TRUE,l_project_tbl,l_key_tbl);
3616:
3617: xProgress := 'POOB-40-1010';
3645: cProject_select := cProject_select ||
3646: cProject_from ||
3647: cProject_where;
3648:
3649: if ec_debug.G_debug_level = 3 then
3650: ec_debug.pl(3,'cProject_select: ',cProject_select);
3651: end if;
3652:
3653: -- Open the Cursor
3646: cProject_from ||
3647: cProject_where;
3648:
3649: if ec_debug.G_debug_level = 3 then
3650: ec_debug.pl(3,'cProject_select: ',cProject_select);
3651: end if;
3652:
3653: -- Open the Cursor
3654: xProgress := 'POOB-40-1050';
3669:
3670: -- Set Counter
3671: xProgress := 'POOB-40-1070';
3672: iProject_count := l_project_tbl.COUNT;
3673: ec_debug.pl(3,'iProject_count: ',iProject_count);
3674:
3675: xProgress := 'POOB-40-1080';
3676: --iKey_count := l_key_tbl.COUNT;
3677: --ec_debug.pl(3,'iKey_count: ',iKey_count);
3673: ec_debug.pl(3,'iProject_count: ',iProject_count);
3674:
3675: xProgress := 'POOB-40-1080';
3676: --iKey_count := l_key_tbl.COUNT;
3677: --ec_debug.pl(3,'iKey_count: ',iKey_count);
3678:
3679: -- Define Column Types
3680: xProgress := 'POOB-40-1090';
3681: ece_flatfile_pvt.define_interface_column_type(project_sel_c,cProject_select,ece_extract_utils_PUB.G_MaxColWidth,l_project_tbl);
3751: FROM DUAL;
3752:
3753: EXCEPTION
3754: WHEN NO_DATA_FOUND THEN
3755: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_PO_PROJECT_INFO_S');
3756:
3757: END;
3758: if ec_debug.G_debug_level = 3 then
3759: ec_debug.pl(3,'l_project_fkey: ',l_project_fkey);
3754: WHEN NO_DATA_FOUND THEN
3755: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_PO_PROJECT_INFO_S');
3756:
3757: END;
3758: if ec_debug.G_debug_level = 3 then
3759: ec_debug.pl(3,'l_project_fkey: ',l_project_fkey);
3760: end if;
3761:
3762: -- Insert into Interface Table
3755: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_PO_PROJECT_INFO_S');
3756:
3757: END;
3758: if ec_debug.G_debug_level = 3 then
3759: ec_debug.pl(3,'l_project_fkey: ',l_project_fkey);
3760: end if;
3761:
3762: -- Insert into Interface Table
3763: /* xProgress := 'POOB-40-1230';
3859: -- Check to see if anything was processed
3860: xProgress := 'POOB-40-1250';
3861: IF(dbms_sql.last_row_count = 0) THEN
3862: v_LevelProcessed := 'PROJECT';
3863: ec_debug.pl(0,'EC','ECE_NO_DB_ROW_PROCESSED','LEVEL_PROCESSED',v_LevelProcessed,'PROGRESS_LEVEL',xProgress,'TRANSACTION_TYPE',cTransaction_Type);
3864: END IF;
3865:
3866: end if; --Bug 2490109
3867:
3869: -- xProgress := 'POOB-40-1260';
3870: -- dbms_sql.close_cursor(project_sel_c);
3871:
3872: -- Tell Debug that this Procedure is Done
3873: if ec_debug.G_debug_level = 3 then
3874: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3875: end if;
3876:
3877: EXCEPTION
3870: -- dbms_sql.close_cursor(project_sel_c);
3871:
3872: -- Tell Debug that this Procedure is Done
3873: if ec_debug.G_debug_level = 3 then
3874: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_PROJECT_INFO');
3875: end if;
3876:
3877: EXCEPTION
3878: WHEN OTHERS THEN
3875: end if;
3876:
3877: EXCEPTION
3878: WHEN OTHERS THEN
3879: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3880: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3881:
3882: app_exception.raise_exception;
3883:
3876:
3877: EXCEPTION
3878: WHEN OTHERS THEN
3879: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
3880: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3881:
3882: app_exception.raise_exception;
3883:
3884: END POPULATE_DISTRIBUTION_INFO;
3926: iProject_start_num INTEGER;
3927: dummy INTEGER;
3928:
3929: BEGIN
3930: if ec_debug.G_debug_level >= 2 then
3931: ec_debug.push('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
3932: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3927: dummy INTEGER;
3928:
3929: BEGIN
3930: if ec_debug.G_debug_level >= 2 then
3931: ec_debug.push('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
3932: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3928:
3929: BEGIN
3930: if ec_debug.G_debug_level >= 2 then
3931: ec_debug.push('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
3932: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3929: BEGIN
3930: if ec_debug.G_debug_level >= 2 then
3931: ec_debug.push('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
3932: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3930: if ec_debug.G_debug_level >= 2 then
3931: ec_debug.push('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
3932: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3931: ec_debug.push('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
3932: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3939: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3932: ec_debug.pl(3,'cCommunication_Method: ',cCommunication_Method);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3939: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3940: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3933: ec_debug.pl(3,'cTransaction_Type: ' ,cTransaction_Type);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3939: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3940: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3941: ec_debug.pl(3,'cFile_Common_Key: ' ,cFile_Common_Key);
3934: ec_debug.pl(3,'iOutput_width: ' ,iOutput_width);
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3939: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3940: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3941: ec_debug.pl(3,'cFile_Common_Key: ' ,cFile_Common_Key);
3942: end if;
3935: ec_debug.pl(3,'iRun_id: ' ,iRun_id);
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3939: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3940: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3941: ec_debug.pl(3,'cFile_Common_Key: ' ,cFile_Common_Key);
3942: end if;
3943:
3936: ec_debug.pl(3,'cDistribution_Interface: ' ,cDistribution_Interface);
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3939: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3940: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3941: ec_debug.pl(3,'cFile_Common_Key: ' ,cFile_Common_Key);
3942: end if;
3943:
3944:
3937: ec_debug.pl(3,'cPO_Header_ID: ' ,cPO_Header_ID);
3938: ec_debug.pl(3,'cPO_Release_ID: ' ,cPO_Release_ID);
3939: ec_debug.pl(3,'cPO_Line_ID: ' ,cPO_Line_ID);
3940: ec_debug.pl(3,'cPO_Line_Location_ID: ' ,cPO_Line_Location_ID);
3941: ec_debug.pl(3,'cFile_Common_Key: ' ,cFile_Common_Key);
3942: end if;
3943:
3944:
3945: if ece_poo_transaction.project_sel_c = 0 then -- Bug 2490109
3991: cProject_select := cProject_select ||
3992: cProject_from ||
3993: cProject_where ||
3994: ' FOR UPDATE';
3995: ec_debug.pl(3,'cProject_select: ',cProject_select);
3996:
3997: -- Build First DELETE SQL Statement
3998: cProject_delete1 := 'DELETE FROM ' || cDistribution_Interface || ' WHERE rowid = :col_rowid';
3999:
3999:
4000: -- Build Second DELETE SQL Statement
4001: cProject_delete2 := 'DELETE FROM ' || cProject_X_Interface || ' WHERE rowid = :col_rowid';
4002:
4003: if ec_debug.G_debug_level = 3 then
4004: ec_debug.pl(3,'cProject_delete1: ',cProject_delete1);
4005: ec_debug.pl(3,'cProject_delete2: ',cProject_delete2);
4006: end if;
4007:
4000: -- Build Second DELETE SQL Statement
4001: cProject_delete2 := 'DELETE FROM ' || cProject_X_Interface || ' WHERE rowid = :col_rowid';
4002:
4003: if ec_debug.G_debug_level = 3 then
4004: ec_debug.pl(3,'cProject_delete1: ',cProject_delete1);
4005: ec_debug.pl(3,'cProject_delete2: ',cProject_delete2);
4006: end if;
4007:
4008: -- Open the Cursors
4001: cProject_delete2 := 'DELETE FROM ' || cProject_X_Interface || ' WHERE rowid = :col_rowid';
4002:
4003: if ec_debug.G_debug_level = 3 then
4004: ec_debug.pl(3,'cProject_delete1: ',cProject_delete1);
4005: ec_debug.pl(3,'cProject_delete2: ',cProject_delete2);
4006: end if;
4007:
4008: -- Open the Cursors
4009: xProgress := 'POOB-50-1020';
4058:
4059: -- Set the Counter Variables
4060: xProgress := 'POOB-50-1110';
4061: iProject_count := l_project_tbl.COUNT;
4062: if ec_debug.G_debug_level = 3 then
4063: ec_debug.pl(3,'iProject_count: ',iProject_count);
4064: end if;
4065:
4066: -- Define Column Types
4059: -- Set the Counter Variables
4060: xProgress := 'POOB-50-1110';
4061: iProject_count := l_project_tbl.COUNT;
4062: if ec_debug.G_debug_level = 3 then
4063: ec_debug.pl(3,'iProject_count: ',iProject_count);
4064: end if;
4065:
4066: -- Define Column Types
4067: xProgress := 'POOB-50-1120';
4141: xProgress := 'POOB-50-1300';
4142: IF dbms_sql.last_row_count = 0 THEN
4143: xProgress := 'POOB-50-1310';
4144: v_LevelProcessed := 'PROJECT';
4145: ec_debug.pl(0,
4146: 'EC',
4147: 'ECE_NO_DB_ROW_PROCESSED',
4148: 'PROGRESS_LEVEL',
4149: xProgress,
4167: dbms_sql.close_cursor(project_del_c2);
4168: */
4169:
4170: xProgress := 'POOB-50-1350';
4171: if ec_debug.G_debug_level >= 2 then
4172: ec_debug.pop('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
4173: end if;
4174:
4175: EXCEPTION
4168: */
4169:
4170: xProgress := 'POOB-50-1350';
4171: if ec_debug.G_debug_level >= 2 then
4172: ec_debug.pop('ECE_POO_TRANSACTION.PUT_PROJECT_DATA_TO_OUTPUT_TBL');
4173: end if;
4174:
4175: EXCEPTION
4176: WHEN OTHERS THEN
4173: end if;
4174:
4175: EXCEPTION
4176: WHEN OTHERS THEN
4177: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
4178: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
4179:
4180: app_exception.raise_exception;
4181:
4174:
4175: EXCEPTION
4176: WHEN OTHERS THEN
4177: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
4178: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
4179:
4180: app_exception.raise_exception;
4181:
4182: END PUT_DISTDATA_TO_OUT_TBL;
4221: n_att_seq_num_pos NUMBER;
4222: n_att_doc_id_pos NUMBER; --Bug 2187958
4223: n_att_hdr_count NUMBER;
4224: BEGIN
4225: if ec_debug.G_debug_level >= 2 then
4226: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4227: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4222: n_att_doc_id_pos NUMBER; --Bug 2187958
4223: n_att_hdr_count NUMBER;
4224: BEGIN
4225: if ec_debug.G_debug_level >= 2 then
4226: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4227: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4223: n_att_hdr_count NUMBER;
4224: BEGIN
4225: if ec_debug.G_debug_level >= 2 then
4226: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4227: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4224: BEGIN
4225: if ec_debug.G_debug_level >= 2 then
4226: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4227: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4232: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
4225: if ec_debug.G_debug_level >= 2 then
4226: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4227: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4232: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
4233: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
4226: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4227: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4232: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
4233: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
4234: ec_debug.pl(3,'cSegment_Size: ',cSegment_Size);
4227: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4232: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
4233: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
4234: ec_debug.pl(3,'cSegment_Size: ',cSegment_Size);
4235: end if;
4228: ec_debug.pl(3,'cName: ', cName);
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4232: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
4233: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
4234: ec_debug.pl(3,'cSegment_Size: ',cSegment_Size);
4235: end if;
4236:
4229: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4232: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
4233: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
4234: ec_debug.pl(3,'cSegment_Size: ',cSegment_Size);
4235: end if;
4236:
4237: xProgress := 'POOB-60-1000';
4230: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
4231: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
4232: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
4233: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
4234: ec_debug.pl(3,'cSegment_Size: ',cSegment_Size);
4235: end if;
4236:
4237: xProgress := 'POOB-60-1000';
4238: if ( l_att_header_tbl.count = 0) then
4244: l_att_header_tbl,
4245: l_key_tbl);
4246: end if;
4247:
4248: if ec_debug.G_debug_level >= 3 then
4249: ec_debug.pl(3,'l_key_count: ', l_key_count);
4250: end if;
4251:
4252: xProgress := 'POOB-60-1005';
4245: l_key_tbl);
4246: end if;
4247:
4248: if ec_debug.G_debug_level >= 3 then
4249: ec_debug.pl(3,'l_key_count: ', l_key_count);
4250: end if;
4251:
4252: xProgress := 'POOB-60-1005';
4253: -- Build the SELECT Clause.
4370: xProgress := 'POOB-60-1090';
4371: -- Now we put all the clauses together.
4372: v_att_header_select := v_att_header_select || v_att_header_from || v_att_header_where;
4373:
4374: if ec_debug.G_debug_level = 3 then
4375: ec_debug.pl(3,'v_att_header_select: ',v_att_header_select);
4376: end if;
4377:
4378: xProgress := 'POOB-60-1092';
4371: -- Now we put all the clauses together.
4372: v_att_header_select := v_att_header_select || v_att_header_from || v_att_header_where;
4373:
4374: if ec_debug.G_debug_level = 3 then
4375: ec_debug.pl(3,'v_att_header_select: ',v_att_header_select);
4376: end if;
4377:
4378: xProgress := 'POOB-60-1092';
4379: ece_extract_utils_pub.find_pos(l_att_header_tbl,'DATATYPE_ID',n_datatype_id_pos);
4379: ece_extract_utils_pub.find_pos(l_att_header_tbl,'DATATYPE_ID',n_datatype_id_pos);
4380:
4381: xProgress := 'POOB-60-1094';
4382: ece_extract_utils_pub.find_pos(l_att_header_tbl,'ATT_SEQ_NUM',n_att_seq_num_pos);
4383: if ec_debug.G_debug_level = 3 then
4384: ec_debug.pl(3,'n_datatype_id_pos: ',n_datatype_id_pos);
4385: ec_debug.pl(3,'n_att_seq_num_pos: ',n_att_seq_num_pos);
4386: end if;
4387:
4380:
4381: xProgress := 'POOB-60-1094';
4382: ece_extract_utils_pub.find_pos(l_att_header_tbl,'ATT_SEQ_NUM',n_att_seq_num_pos);
4383: if ec_debug.G_debug_level = 3 then
4384: ec_debug.pl(3,'n_datatype_id_pos: ',n_datatype_id_pos);
4385: ec_debug.pl(3,'n_att_seq_num_pos: ',n_att_seq_num_pos);
4386: end if;
4387:
4388: xProgress := 'POOB-60-1096';
4381: xProgress := 'POOB-60-1094';
4382: ece_extract_utils_pub.find_pos(l_att_header_tbl,'ATT_SEQ_NUM',n_att_seq_num_pos);
4383: if ec_debug.G_debug_level = 3 then
4384: ec_debug.pl(3,'n_datatype_id_pos: ',n_datatype_id_pos);
4385: ec_debug.pl(3,'n_att_seq_num_pos: ',n_att_seq_num_pos);
4386: end if;
4387:
4388: xProgress := 'POOB-60-1096';
4389: ece_extract_utils_pub.find_pos(l_att_header_tbl,'ATTACHED_DOCUMENT_ID',n_att_doc_id_pos); --Bug 2187958
4386: end if;
4387:
4388: xProgress := 'POOB-60-1096';
4389: ece_extract_utils_pub.find_pos(l_att_header_tbl,'ATTACHED_DOCUMENT_ID',n_att_doc_id_pos); --Bug 2187958
4390: if ec_debug.G_debug_level = 3 then
4391: ec_debug.pl(3,'n_att_doc_id_pos: ',n_att_doc_id_pos);
4392: end if;
4393:
4394: -- Open Cursor.
4387:
4388: xProgress := 'POOB-60-1096';
4389: ece_extract_utils_pub.find_pos(l_att_header_tbl,'ATTACHED_DOCUMENT_ID',n_att_doc_id_pos); --Bug 2187958
4390: if ec_debug.G_debug_level = 3 then
4391: ec_debug.pl(3,'n_att_doc_id_pos: ',n_att_doc_id_pos);
4392: end if;
4393:
4394: -- Open Cursor.
4395: xProgress := 'POOB-60-1100';
4409:
4410: -- Set Counter
4411: xProgress := 'POOB-60-1120';
4412: n_header_count := l_att_header_tbl.COUNT;
4413: if ec_debug.G_debug_level = 3 then
4414: ec_debug.pl(3,'n_header_count: ',n_header_count);
4415: end if;
4416:
4417: xProgress := 'POOB-60-1130';
4410: -- Set Counter
4411: xProgress := 'POOB-60-1120';
4412: n_header_count := l_att_header_tbl.COUNT;
4413: if ec_debug.G_debug_level = 3 then
4414: ec_debug.pl(3,'n_header_count: ',n_header_count);
4415: end if;
4416:
4417: xProgress := 'POOB-60-1130';
4418: ece_flatfile_pvt.define_interface_column_type(n_att_header_sel_c,
4470: FROM DUAL;
4471:
4472: EXCEPTION
4473: WHEN NO_DATA_FOUND THEN
4474: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_ATTACHMENT_HEADERS_S');
4475: END; */
4476:
4477: xProgress := 'POOB-60-1180';
4478: /* ece_extract_utils_pub.insert_into_interface_tbl(iRun_id,
4520: END LOOP;
4521:
4522: xProgress := 'POOB-60-1210';
4523: dbms_sql.close_cursor(n_att_header_sel_c);
4524: if ec_debug.G_debug_level >= 2 then
4525: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4526: end if;
4527:
4528: EXCEPTION
4521:
4522: xProgress := 'POOB-60-1210';
4523: dbms_sql.close_cursor(n_att_header_sel_c);
4524: if ec_debug.G_debug_level >= 2 then
4525: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_TEXT_ATTACHMENT');
4526: end if;
4527:
4528: EXCEPTION
4529: WHEN OTHERS THEN
4526: end if;
4527:
4528: EXCEPTION
4529: WHEN OTHERS THEN
4530: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
4531: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
4532:
4533: app_exception.raise_exception;
4534: END populate_text_attachment;
4527:
4528: EXCEPTION
4529: WHEN OTHERS THEN
4530: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
4531: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
4532:
4533: app_exception.raise_exception;
4534: END populate_text_attachment;
4535:
4603: n_transaction_record_id_pos NUMBER;
4604: n_pr_pos NUMBER; -- 3618073
4605:
4606: BEGIN
4607: if ec_debug.G_debug_level = 3 then
4608: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
4609: ec_debug.pl(3,'cDetail_Output_Level: ' ,cDetail_Output_Level);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4604: n_pr_pos NUMBER; -- 3618073
4605:
4606: BEGIN
4607: if ec_debug.G_debug_level = 3 then
4608: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
4609: ec_debug.pl(3,'cDetail_Output_Level: ' ,cDetail_Output_Level);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4605:
4606: BEGIN
4607: if ec_debug.G_debug_level = 3 then
4608: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
4609: ec_debug.pl(3,'cDetail_Output_Level: ' ,cDetail_Output_Level);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4606: BEGIN
4607: if ec_debug.G_debug_level = 3 then
4608: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
4609: ec_debug.pl(3,'cDetail_Output_Level: ' ,cDetail_Output_Level);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4607: if ec_debug.G_debug_level = 3 then
4608: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
4609: ec_debug.pl(3,'cDetail_Output_Level: ' ,cDetail_Output_Level);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4608: ec_debug.push('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
4609: ec_debug.pl(3,'cDetail_Output_Level: ' ,cDetail_Output_Level);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4609: ec_debug.pl(3,'cDetail_Output_Level: ' ,cDetail_Output_Level);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4610: ec_debug.pl(3,'cAtt_Detail_Interface: ',cAtt_Detail_Interface);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4611: ec_debug.pl(3,'cAtt_Seq_Num: ' ,cAtt_Seq_Num);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4619: ec_debug.pl(3,'cData_Type_ID: ' ,cData_Type_ID);
4612: ec_debug.pl(3,'cEntity_Name: ' ,cEntity_Name);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4619: ec_debug.pl(3,'cData_Type_ID: ' ,cData_Type_ID);
4620: ec_debug.pl(3,'cSegment_Size: ' ,cSegment_Size);
4613: ec_debug.pl(3,'cName: ' ,cName);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4619: ec_debug.pl(3,'cData_Type_ID: ' ,cData_Type_ID);
4620: ec_debug.pl(3,'cSegment_Size: ' ,cSegment_Size);
4621: ec_debug.pl(3,'cAtt_doc_id: ' ,cAtt_doc_id);
4614: ec_debug.pl(3,'cPK1_Value: ' ,cPK1_Value);
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4619: ec_debug.pl(3,'cData_Type_ID: ' ,cData_Type_ID);
4620: ec_debug.pl(3,'cSegment_Size: ' ,cSegment_Size);
4621: ec_debug.pl(3,'cAtt_doc_id: ' ,cAtt_doc_id);
4622: end if;
4615: ec_debug.pl(3,'cPK2_Value: ' ,cPK2_Value);
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4619: ec_debug.pl(3,'cData_Type_ID: ' ,cData_Type_ID);
4620: ec_debug.pl(3,'cSegment_Size: ' ,cSegment_Size);
4621: ec_debug.pl(3,'cAtt_doc_id: ' ,cAtt_doc_id);
4622: end if;
4623:
4616: ec_debug.pl(3,'cPK3_Value: ' ,cPK3_Value);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4619: ec_debug.pl(3,'cData_Type_ID: ' ,cData_Type_ID);
4620: ec_debug.pl(3,'cSegment_Size: ' ,cSegment_Size);
4621: ec_debug.pl(3,'cAtt_doc_id: ' ,cAtt_doc_id);
4622: end if;
4623:
4624: fnd_profile.get('ECE_ATT_SPLIT_WORD_ALLOWED',v_split_word);
4617: ec_debug.pl(3,'cPK4_Value: ' ,cPK4_Value);
4618: ec_debug.pl(3,'cPK5_Value: ' ,cPK5_Value);
4619: ec_debug.pl(3,'cData_Type_ID: ' ,cData_Type_ID);
4620: ec_debug.pl(3,'cSegment_Size: ' ,cSegment_Size);
4621: ec_debug.pl(3,'cAtt_doc_id: ' ,cAtt_doc_id);
4622: end if;
4623:
4624: fnd_profile.get('ECE_ATT_SPLIT_WORD_ALLOWED',v_split_word);
4625: v_split_word := NVL(v_split_word,'Y');
4622: end if;
4623:
4624: fnd_profile.get('ECE_ATT_SPLIT_WORD_ALLOWED',v_split_word);
4625: v_split_word := NVL(v_split_word,'Y');
4626: ec_debug.pl(3,'v_split_word: ',v_split_word);
4627:
4628: xProgress := 'POOB-70-1000';
4629: if (l_att_detail_tbl.count = 0) then
4630: ece_flatfile_pvt.init_table(cTransaction_Type,cAtt_Detail_Interface,cDetail_Output_Level,TRUE,l_att_detail_tbl,l_key_tbl);
4796:
4797: -- Now we put all the clauses together.
4798: xProgress := 'POOB-70-1200';
4799: v_att_detail_select := v_att_detail_select || v_att_detail_from || v_att_detail_where;
4800: if ec_debug.G_debug_level = 3 then
4801: ec_debug.pl(3,'v_att_detail_select: ',v_att_detail_select);
4802: end if;
4803:
4804: -- Open Cursor.
4797: -- Now we put all the clauses together.
4798: xProgress := 'POOB-70-1200';
4799: v_att_detail_select := v_att_detail_select || v_att_detail_from || v_att_detail_where;
4800: if ec_debug.G_debug_level = 3 then
4801: ec_debug.pl(3,'v_att_detail_select: ',v_att_detail_select);
4802: end if;
4803:
4804: -- Open Cursor.
4805: xProgress := 'POOB-70-1210';
4861:
4862: -- Set Counter
4863: xProgress := 'POOB-70-1310';
4864: n_detail_count := l_att_detail_tbl.COUNT;
4865: if ec_debug.G_debug_level = 3 then
4866: ec_debug.pl(3,'n_detail_count: ',n_detail_count);
4867: end if;
4868:
4869: -- Define Columns
4862: -- Set Counter
4863: xProgress := 'POOB-70-1310';
4864: n_detail_count := l_att_detail_tbl.COUNT;
4865: if ec_debug.G_debug_level = 3 then
4866: ec_debug.pl(3,'n_detail_count: ',n_detail_count);
4867: end if;
4868:
4869: -- Define Columns
4870: xProgress := 'POOB-70-1320';
4891:
4892: xProgress := 'POOB-70-1360';
4893: WHILE dbms_sql.fetch_rows(n_att_detail_sel_c) > 0 LOOP
4894: xProgress := 'POOB-70-1370';
4895: ec_debug.pl(3,'xProgress: ',xProgress);
4896:
4897: ece_flatfile_pvt.assign_column_value_to_tbl(n_att_detail_sel_c,l_att_detail_tbl);
4898:
4899: n_segment_number := 1;
4900: n_cur_pos := 1;
4901: n_new_chunk_size := 0;
4902:
4903: xProgress := 'POOB-70-1380';
4904: if ec_debug.G_debug_level = 3 then
4905: ec_debug.pl(3,'xProgress: ',xProgress);
4906: end if;
4907:
4908: IF cData_Type_ID = 1 THEN -- Short Text
4901: n_new_chunk_size := 0;
4902:
4903: xProgress := 'POOB-70-1380';
4904: if ec_debug.G_debug_level = 3 then
4905: ec_debug.pl(3,'xProgress: ',xProgress);
4906: end if;
4907:
4908: IF cData_Type_ID = 1 THEN -- Short Text
4909: xProgress := 'POOB-70-1390';
4906: end if;
4907:
4908: IF cData_Type_ID = 1 THEN -- Short Text
4909: xProgress := 'POOB-70-1390';
4910: if ec_debug.G_debug_level = 3 then
4911: ec_debug.pl(3,'xProgress: ',xProgress);
4912: end if;
4913:
4914: dbms_sql.column_value(n_att_detail_sel_c,n_detail_count + 1,l_short_text);
4907:
4908: IF cData_Type_ID = 1 THEN -- Short Text
4909: xProgress := 'POOB-70-1390';
4910: if ec_debug.G_debug_level = 3 then
4911: ec_debug.pl(3,'xProgress: ',xProgress);
4912: end if;
4913:
4914: dbms_sql.column_value(n_att_detail_sel_c,n_detail_count + 1,l_short_text);
4915: -- l_short_text := LTRIM(RTRIM(l_short_text)); -- Not using this one because white spaces at front may be intentional
4916: l_short_text := RTRIM(l_short_text);
4917: END IF;
4918:
4919: xProgress := 'POOB-70-1400';
4920: ec_debug.pl(3,'xProgress: ',xProgress);
4921: LOOP
4922: xProgress := 'POOB-70-1410';
4923: if ec_debug.G_debug_level = 3 then
4924: ec_debug.pl(3,'xProgress: ',xProgress);
4919: xProgress := 'POOB-70-1400';
4920: ec_debug.pl(3,'xProgress: ',xProgress);
4921: LOOP
4922: xProgress := 'POOB-70-1410';
4923: if ec_debug.G_debug_level = 3 then
4924: ec_debug.pl(3,'xProgress: ',xProgress);
4925: end if;
4926: n_pr_pos := 0; -- 3618073
4927: IF cData_Type_ID = 1 THEN -- Short Text
4920: ec_debug.pl(3,'xProgress: ',xProgress);
4921: LOOP
4922: xProgress := 'POOB-70-1410';
4923: if ec_debug.G_debug_level = 3 then
4924: ec_debug.pl(3,'xProgress: ',xProgress);
4925: end if;
4926: n_pr_pos := 0; -- 3618073
4927: IF cData_Type_ID = 1 THEN -- Short Text
4928: xProgress := 'POOB-70-1420';
4925: end if;
4926: n_pr_pos := 0; -- 3618073
4927: IF cData_Type_ID = 1 THEN -- Short Text
4928: xProgress := 'POOB-70-1420';
4929: if ec_debug.G_debug_level = 3 then
4930: ec_debug.pl(3,'xProgress: ',xProgress);
4931: end if;
4932:
4933: l_short_text := SUBSTRB(l_short_text,n_cur_pos);
4926: n_pr_pos := 0; -- 3618073
4927: IF cData_Type_ID = 1 THEN -- Short Text
4928: xProgress := 'POOB-70-1420';
4929: if ec_debug.G_debug_level = 3 then
4930: ec_debug.pl(3,'xProgress: ',xProgress);
4931: end if;
4932:
4933: l_short_text := SUBSTRB(l_short_text,n_cur_pos);
4934: n_short_text_length := LENGTH(l_short_text); -- bug 3310412
4936: l_data_chunk := SUBSTRB(l_short_text,1,cSegment_Size);
4937:
4938: n_return_size := LENGTH(l_data_chunk);
4939:
4940: if ec_debug.G_debug_level = 3 then
4941: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4942: ec_debug.pl(3,'n_return_size: ',n_return_size);
4943: ec_debug.pl(3,'l_short_text: ',l_short_text);
4944: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4937:
4938: n_return_size := LENGTH(l_data_chunk);
4939:
4940: if ec_debug.G_debug_level = 3 then
4941: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4942: ec_debug.pl(3,'n_return_size: ',n_return_size);
4943: ec_debug.pl(3,'l_short_text: ',l_short_text);
4944: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4945: end if;
4938: n_return_size := LENGTH(l_data_chunk);
4939:
4940: if ec_debug.G_debug_level = 3 then
4941: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4942: ec_debug.pl(3,'n_return_size: ',n_return_size);
4943: ec_debug.pl(3,'l_short_text: ',l_short_text);
4944: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4945: end if;
4946: ELSIF cData_Type_ID = 2 THEN -- Long Text
4939:
4940: if ec_debug.G_debug_level = 3 then
4941: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4942: ec_debug.pl(3,'n_return_size: ',n_return_size);
4943: ec_debug.pl(3,'l_short_text: ',l_short_text);
4944: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4945: end if;
4946: ELSIF cData_Type_ID = 2 THEN -- Long Text
4947: xProgress := 'POOB-70-1430';
4940: if ec_debug.G_debug_level = 3 then
4941: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4942: ec_debug.pl(3,'n_return_size: ',n_return_size);
4943: ec_debug.pl(3,'l_short_text: ',l_short_text);
4944: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4945: end if;
4946: ELSIF cData_Type_ID = 2 THEN -- Long Text
4947: xProgress := 'POOB-70-1430';
4948: if ec_debug.G_debug_level = 3 then
4944: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4945: end if;
4946: ELSIF cData_Type_ID = 2 THEN -- Long Text
4947: xProgress := 'POOB-70-1430';
4948: if ec_debug.G_debug_level = 3 then
4949: ec_debug.pl(3,'xProgress: ',xProgress);
4950: end if;
4951:
4952: -- Cursor(I) ,Pos(I) ,Len(I) ,Offset(I) ,Value(O) ,Value Len(O)
4945: end if;
4946: ELSIF cData_Type_ID = 2 THEN -- Long Text
4947: xProgress := 'POOB-70-1430';
4948: if ec_debug.G_debug_level = 3 then
4949: ec_debug.pl(3,'xProgress: ',xProgress);
4950: end if;
4951:
4952: -- Cursor(I) ,Pos(I) ,Len(I) ,Offset(I) ,Value(O) ,Value Len(O)
4953: dbms_sql.column_value_long(n_att_detail_sel_c,n_detail_count + 1,cSegment_Size,n_cur_pos - 1,l_data_chunk,n_return_size);
4950: end if;
4951:
4952: -- Cursor(I) ,Pos(I) ,Len(I) ,Offset(I) ,Value(O) ,Value Len(O)
4953: dbms_sql.column_value_long(n_att_detail_sel_c,n_detail_count + 1,cSegment_Size,n_cur_pos - 1,l_data_chunk,n_return_size);
4954: if ec_debug.G_debug_level = 3 then
4955: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4956: ec_debug.pl(3,'n_return_size: ',n_return_size);
4957: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4958: end if;
4951:
4952: -- Cursor(I) ,Pos(I) ,Len(I) ,Offset(I) ,Value(O) ,Value Len(O)
4953: dbms_sql.column_value_long(n_att_detail_sel_c,n_detail_count + 1,cSegment_Size,n_cur_pos - 1,l_data_chunk,n_return_size);
4954: if ec_debug.G_debug_level = 3 then
4955: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4956: ec_debug.pl(3,'n_return_size: ',n_return_size);
4957: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4958: end if;
4959: END IF;
4952: -- Cursor(I) ,Pos(I) ,Len(I) ,Offset(I) ,Value(O) ,Value Len(O)
4953: dbms_sql.column_value_long(n_att_detail_sel_c,n_detail_count + 1,cSegment_Size,n_cur_pos - 1,l_data_chunk,n_return_size);
4954: if ec_debug.G_debug_level = 3 then
4955: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4956: ec_debug.pl(3,'n_return_size: ',n_return_size);
4957: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4958: end if;
4959: END IF;
4960:
4953: dbms_sql.column_value_long(n_att_detail_sel_c,n_detail_count + 1,cSegment_Size,n_cur_pos - 1,l_data_chunk,n_return_size);
4954: if ec_debug.G_debug_level = 3 then
4955: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
4956: ec_debug.pl(3,'n_return_size: ',n_return_size);
4957: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
4958: end if;
4959: END IF;
4960:
4961: xProgress := 'POOB-70-1440';
4958: end if;
4959: END IF;
4960:
4961: xProgress := 'POOB-70-1440';
4962: if ec_debug.G_debug_level = 3 then
4963: ec_debug.pl(3,'xProgress: ',xProgress);
4964: end if;
4965: EXIT WHEN (n_return_size = 0 AND cData_Type_ID = 2) OR (l_short_text IS NULL AND cData_Type_ID = 1);
4966:
4959: END IF;
4960:
4961: xProgress := 'POOB-70-1440';
4962: if ec_debug.G_debug_level = 3 then
4963: ec_debug.pl(3,'xProgress: ',xProgress);
4964: end if;
4965: EXIT WHEN (n_return_size = 0 AND cData_Type_ID = 2) OR (l_short_text IS NULL AND cData_Type_ID = 1);
4966:
4967: xProgress := 'POOB-70-1450';
4964: end if;
4965: EXIT WHEN (n_return_size = 0 AND cData_Type_ID = 2) OR (l_short_text IS NULL AND cData_Type_ID = 1);
4966:
4967: xProgress := 'POOB-70-1450';
4968: if ec_debug.G_debug_level = 3 then
4969: ec_debug.pl(3,'xProgress: ',xProgress);
4970: end if;
4971:
4972: v_continue_flag := 'Y';
4965: EXIT WHEN (n_return_size = 0 AND cData_Type_ID = 2) OR (l_short_text IS NULL AND cData_Type_ID = 1);
4966:
4967: xProgress := 'POOB-70-1450';
4968: if ec_debug.G_debug_level = 3 then
4969: ec_debug.pl(3,'xProgress: ',xProgress);
4970: end if;
4971:
4972: v_continue_flag := 'Y';
4973: n_cr_pos := INSTR(l_data_chunk,c_local_chr_13);
4972: v_continue_flag := 'Y';
4973: n_cr_pos := INSTR(l_data_chunk,c_local_chr_13);
4974: n_lf_pos := INSTR(l_data_chunk,c_local_chr_10);
4975:
4976: if ec_debug.G_debug_level = 3 then
4977: ec_debug.pl(3,'n_cr_pos: ',n_cr_pos);
4978: ec_debug.pl(3,'n_lf_pos: ',n_lf_pos);
4979: end if;
4980:
4973: n_cr_pos := INSTR(l_data_chunk,c_local_chr_13);
4974: n_lf_pos := INSTR(l_data_chunk,c_local_chr_10);
4975:
4976: if ec_debug.G_debug_level = 3 then
4977: ec_debug.pl(3,'n_cr_pos: ',n_cr_pos);
4978: ec_debug.pl(3,'n_lf_pos: ',n_lf_pos);
4979: end if;
4980:
4981: IF n_cr_pos = 0 AND n_lf_pos = 0 THEN -- There are no CR or CRLF in the chunk...
4974: n_lf_pos := INSTR(l_data_chunk,c_local_chr_10);
4975:
4976: if ec_debug.G_debug_level = 3 then
4977: ec_debug.pl(3,'n_cr_pos: ',n_cr_pos);
4978: ec_debug.pl(3,'n_lf_pos: ',n_lf_pos);
4979: end if;
4980:
4981: IF n_cr_pos = 0 AND n_lf_pos = 0 THEN -- There are no CR or CRLF in the chunk...
4982: xProgress := 'POOB-70-1460';
4979: end if;
4980:
4981: IF n_cr_pos = 0 AND n_lf_pos = 0 THEN -- There are no CR or CRLF in the chunk...
4982: xProgress := 'POOB-70-1460';
4983: if ec_debug.G_debug_level = 3 then
4984: ec_debug.pl(3,'xProgress: ',xProgress);
4985: end if;
4986:
4987: IF v_split_word = 'N' THEN -- No I am not allowed to split a word.
4980:
4981: IF n_cr_pos = 0 AND n_lf_pos = 0 THEN -- There are no CR or CRLF in the chunk...
4982: xProgress := 'POOB-70-1460';
4983: if ec_debug.G_debug_level = 3 then
4984: ec_debug.pl(3,'xProgress: ',xProgress);
4985: end if;
4986:
4987: IF v_split_word = 'N' THEN -- No I am not allowed to split a word.
4988: xProgress := 'POOB-70-1470';
4985: end if;
4986:
4987: IF v_split_word = 'N' THEN -- No I am not allowed to split a word.
4988: xProgress := 'POOB-70-1470';
4989: if ec_debug.G_debug_level = 3 then
4990: ec_debug.pl(3,'xProgress: ',xProgress);
4991: end if;
4992:
4993: v_last_char := SUBSTRB(l_data_chunk,n_return_size,1);
4986:
4987: IF v_split_word = 'N' THEN -- No I am not allowed to split a word.
4988: xProgress := 'POOB-70-1470';
4989: if ec_debug.G_debug_level = 3 then
4990: ec_debug.pl(3,'xProgress: ',xProgress);
4991: end if;
4992:
4993: v_last_char := SUBSTRB(l_data_chunk,n_return_size,1);
4994:
4993: v_last_char := SUBSTRB(l_data_chunk,n_return_size,1);
4994:
4995: IF v_last_char NOT IN ('.',',',';','-',' ') THEN
4996: xProgress := 'POOB-70-1480';
4997: if ec_debug.G_debug_level = 3 then
4998: ec_debug.pl(3,'xProgress: ',xProgress);
4999: end if;
5000:
5001: n_space_pos := INSTR(l_data_chunk,' ',-1,1);
4994:
4995: IF v_last_char NOT IN ('.',',',';','-',' ') THEN
4996: xProgress := 'POOB-70-1480';
4997: if ec_debug.G_debug_level = 3 then
4998: ec_debug.pl(3,'xProgress: ',xProgress);
4999: end if;
5000:
5001: n_space_pos := INSTR(l_data_chunk,' ',-1,1);
5002:
5021: end if;
5022: -- bug 3310412
5023: l_data_chunk := SUBSTRB(l_data_chunk,1,n_new_chunk_size);
5024:
5025: if ec_debug.G_debug_level = 3 then
5026: ec_debug.pl(3,'xProgress: ',xProgress);
5027: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5028: end if;
5029: ELSE --Space Chacter Not Found
5022: -- bug 3310412
5023: l_data_chunk := SUBSTRB(l_data_chunk,1,n_new_chunk_size);
5024:
5025: if ec_debug.G_debug_level = 3 then
5026: ec_debug.pl(3,'xProgress: ',xProgress);
5027: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5028: end if;
5029: ELSE --Space Chacter Not Found
5030: xProgress := 'POOB-70-1492';
5023: l_data_chunk := SUBSTRB(l_data_chunk,1,n_new_chunk_size);
5024:
5025: if ec_debug.G_debug_level = 3 then
5026: ec_debug.pl(3,'xProgress: ',xProgress);
5027: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5028: end if;
5029: ELSE --Space Chacter Not Found
5030: xProgress := 'POOB-70-1492';
5031: n_new_chunk_size := n_return_size;
5028: end if;
5029: ELSE --Space Chacter Not Found
5030: xProgress := 'POOB-70-1492';
5031: n_new_chunk_size := n_return_size;
5032: if ec_debug.G_debug_level = 3 then
5033: ec_debug.pl(3,'xProgress: ',xProgress);
5034: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5035: end if;
5036: END IF;
5029: ELSE --Space Chacter Not Found
5030: xProgress := 'POOB-70-1492';
5031: n_new_chunk_size := n_return_size;
5032: if ec_debug.G_debug_level = 3 then
5033: ec_debug.pl(3,'xProgress: ',xProgress);
5034: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5035: end if;
5036: END IF;
5037: ELSE -- Whew, last character is a breakable character...
5030: xProgress := 'POOB-70-1492';
5031: n_new_chunk_size := n_return_size;
5032: if ec_debug.G_debug_level = 3 then
5033: ec_debug.pl(3,'xProgress: ',xProgress);
5034: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5035: end if;
5036: END IF;
5037: ELSE -- Whew, last character is a breakable character...
5038: xProgress := 'POOB-70-1494';
5037: ELSE -- Whew, last character is a breakable character...
5038: xProgress := 'POOB-70-1494';
5039:
5040: n_new_chunk_size := n_return_size;
5041: if ec_debug.G_debug_level = 3 then
5042: ec_debug.pl(3,'xProgress: ',xProgress);
5043: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5044: end if;
5045: END IF;
5038: xProgress := 'POOB-70-1494';
5039:
5040: n_new_chunk_size := n_return_size;
5041: if ec_debug.G_debug_level = 3 then
5042: ec_debug.pl(3,'xProgress: ',xProgress);
5043: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5044: end if;
5045: END IF;
5046: ELSE -- Yes I am allowed to split a word.
5039:
5040: n_new_chunk_size := n_return_size;
5041: if ec_debug.G_debug_level = 3 then
5042: ec_debug.pl(3,'xProgress: ',xProgress);
5043: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5044: end if;
5045: END IF;
5046: ELSE -- Yes I am allowed to split a word.
5047: xProgress := 'POOB-70-1496';
5046: ELSE -- Yes I am allowed to split a word.
5047: xProgress := 'POOB-70-1496';
5048:
5049: n_new_chunk_size := n_return_size;
5050: if ec_debug.G_debug_level = 3 then
5051: ec_debug.pl(3,'xProgress: ',xProgress);
5052: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5053: end if;
5054: END IF;
5047: xProgress := 'POOB-70-1496';
5048:
5049: n_new_chunk_size := n_return_size;
5050: if ec_debug.G_debug_level = 3 then
5051: ec_debug.pl(3,'xProgress: ',xProgress);
5052: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5053: end if;
5054: END IF;
5055:
5048:
5049: n_new_chunk_size := n_return_size;
5050: if ec_debug.G_debug_level = 3 then
5051: ec_debug.pl(3,'xProgress: ',xProgress);
5052: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5053: end if;
5054: END IF;
5055:
5056: ELSIF n_cr_pos = 1 OR n_lf_pos = 1 THEN -- This is a blank line...
5054: END IF;
5055:
5056: ELSIF n_cr_pos = 1 OR n_lf_pos = 1 THEN -- This is a blank line...
5057: xProgress := 'POOB-70-1500';
5058: if ec_debug.G_debug_level = 3 then
5059: ec_debug.pl(3,'xProgress: ',xProgress);
5060: end if;
5061:
5062: IF n_cr_pos = 1 AND n_lf_pos = 2 THEN
5055:
5056: ELSIF n_cr_pos = 1 OR n_lf_pos = 1 THEN -- This is a blank line...
5057: xProgress := 'POOB-70-1500';
5058: if ec_debug.G_debug_level = 3 then
5059: ec_debug.pl(3,'xProgress: ',xProgress);
5060: end if;
5061:
5062: IF n_cr_pos = 1 AND n_lf_pos = 2 THEN
5063: xProgress := 'POOB-70-1510';
5060: end if;
5061:
5062: IF n_cr_pos = 1 AND n_lf_pos = 2 THEN
5063: xProgress := 'POOB-70-1510';
5064: if ec_debug.G_debug_level = 3 then
5065: ec_debug.pl(3,'xProgress: ',xProgress);
5066: end if;
5067:
5068: n_new_chunk_size := 2;
5061:
5062: IF n_cr_pos = 1 AND n_lf_pos = 2 THEN
5063: xProgress := 'POOB-70-1510';
5064: if ec_debug.G_debug_level = 3 then
5065: ec_debug.pl(3,'xProgress: ',xProgress);
5066: end if;
5067:
5068: n_new_chunk_size := 2;
5069: n_pr_pos := 0; -- 3618073
5068: n_new_chunk_size := 2;
5069: n_pr_pos := 0; -- 3618073
5070: ELSE
5071: xProgress := 'POOB-70-1520';
5072: if ec_debug.G_debug_level = 3 then
5073: ec_debug.pl(3,'xProgress: ',xProgress);
5074: end if;
5075: n_new_chunk_size := 1;
5076: n_pr_pos := 0; -- 3618073
5069: n_pr_pos := 0; -- 3618073
5070: ELSE
5071: xProgress := 'POOB-70-1520';
5072: if ec_debug.G_debug_level = 3 then
5073: ec_debug.pl(3,'xProgress: ',xProgress);
5074: end if;
5075: n_new_chunk_size := 1;
5076: n_pr_pos := 0; -- 3618073
5077: END IF;
5076: n_pr_pos := 0; -- 3618073
5077: END IF;
5078:
5079: xProgress := 'POOB-70-1530';
5080: if ec_debug.G_debug_level = 3 then
5081: ec_debug.pl(3,'xProgress: ',xProgress);
5082: end if;
5083: l_data_chunk := '';
5084:
5077: END IF;
5078:
5079: xProgress := 'POOB-70-1530';
5080: if ec_debug.G_debug_level = 3 then
5081: ec_debug.pl(3,'xProgress: ',xProgress);
5082: end if;
5083: l_data_chunk := '';
5084:
5085: ELSIF n_cr_pos > 1 OR n_lf_pos > 1 THEN -- There is a CR or LF in the chunk...
5083: l_data_chunk := '';
5084:
5085: ELSIF n_cr_pos > 1 OR n_lf_pos > 1 THEN -- There is a CR or LF in the chunk...
5086: xProgress := 'POOB-70-1540';
5087: if ec_debug.G_debug_level = 3 then
5088: ec_debug.pl(3,'xProgress: ',xProgress);
5089: end if;
5090:
5091: IF n_cr_pos > 1 THEN
5084:
5085: ELSIF n_cr_pos > 1 OR n_lf_pos > 1 THEN -- There is a CR or LF in the chunk...
5086: xProgress := 'POOB-70-1540';
5087: if ec_debug.G_debug_level = 3 then
5088: ec_debug.pl(3,'xProgress: ',xProgress);
5089: end if;
5090:
5091: IF n_cr_pos > 1 THEN
5092: xProgress := 'POOB-70-1550';
5089: end if;
5090:
5091: IF n_cr_pos > 1 THEN
5092: xProgress := 'POOB-70-1550';
5093: if ec_debug.G_debug_level = 3 then
5094: ec_debug.pl(3,'xProgress: ',xProgress);
5095: end if;
5096:
5097: IF n_lf_pos = n_cr_pos + 1 THEN -- This is a CRLF combo...
5090:
5091: IF n_cr_pos > 1 THEN
5092: xProgress := 'POOB-70-1550';
5093: if ec_debug.G_debug_level = 3 then
5094: ec_debug.pl(3,'xProgress: ',xProgress);
5095: end if;
5096:
5097: IF n_lf_pos = n_cr_pos + 1 THEN -- This is a CRLF combo...
5098: xProgress := 'POOB-70-1560';
5095: end if;
5096:
5097: IF n_lf_pos = n_cr_pos + 1 THEN -- This is a CRLF combo...
5098: xProgress := 'POOB-70-1560';
5099: if ec_debug.G_debug_level = 3 then
5100: ec_debug.pl(3,'xProgress: ',xProgress);
5101: end if;
5102: n_new_chunk_size := n_lf_pos;
5103: n_pr_pos := 2; -- 3618073
5096:
5097: IF n_lf_pos = n_cr_pos + 1 THEN -- This is a CRLF combo...
5098: xProgress := 'POOB-70-1560';
5099: if ec_debug.G_debug_level = 3 then
5100: ec_debug.pl(3,'xProgress: ',xProgress);
5101: end if;
5102: n_new_chunk_size := n_lf_pos;
5103: n_pr_pos := 2; -- 3618073
5104: ELSE -- This is CR only...
5102: n_new_chunk_size := n_lf_pos;
5103: n_pr_pos := 2; -- 3618073
5104: ELSE -- This is CR only...
5105: xProgress := 'POOB-70-1570';
5106: if ec_debug.G_debug_level = 3 then
5107: ec_debug.pl(3,'xProgress: ',xProgress);
5108: end if;
5109:
5110: n_new_chunk_size := n_cr_pos;
5103: n_pr_pos := 2; -- 3618073
5104: ELSE -- This is CR only...
5105: xProgress := 'POOB-70-1570';
5106: if ec_debug.G_debug_level = 3 then
5107: ec_debug.pl(3,'xProgress: ',xProgress);
5108: end if;
5109:
5110: n_new_chunk_size := n_cr_pos;
5111: n_pr_pos := 1; --3618073
5111: n_pr_pos := 1; --3618073
5112: END IF;
5113: ELSE -- This is LF only
5114: xProgress := 'POOB-70-1580';
5115: if ec_debug.G_debug_level = 3 then
5116: ec_debug.pl(3,'xProgress: ',xProgress);
5117: end if;
5118: n_new_chunk_size := n_lf_pos;
5119: n_pr_pos := 1;
5112: END IF;
5113: ELSE -- This is LF only
5114: xProgress := 'POOB-70-1580';
5115: if ec_debug.G_debug_level = 3 then
5116: ec_debug.pl(3,'xProgress: ',xProgress);
5117: end if;
5118: n_new_chunk_size := n_lf_pos;
5119: n_pr_pos := 1;
5120: END IF;
5122: xProgress := 'POOB-70-1590';
5123:
5124: l_data_chunk := SUBSTRB(l_data_chunk,1,n_new_chunk_size-n_pr_pos); -- 3618073
5125:
5126: if ec_debug.G_debug_level = 3 then
5127: ec_debug.pl(3,'xProgress: ',xProgress);
5128: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5129: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5130: end if;
5123:
5124: l_data_chunk := SUBSTRB(l_data_chunk,1,n_new_chunk_size-n_pr_pos); -- 3618073
5125:
5126: if ec_debug.G_debug_level = 3 then
5127: ec_debug.pl(3,'xProgress: ',xProgress);
5128: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5129: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5130: end if;
5131: END IF;
5124: l_data_chunk := SUBSTRB(l_data_chunk,1,n_new_chunk_size-n_pr_pos); -- 3618073
5125:
5126: if ec_debug.G_debug_level = 3 then
5127: ec_debug.pl(3,'xProgress: ',xProgress);
5128: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5129: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5130: end if;
5131: END IF;
5132:
5125:
5126: if ec_debug.G_debug_level = 3 then
5127: ec_debug.pl(3,'xProgress: ',xProgress);
5128: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5129: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5130: end if;
5131: END IF;
5132:
5133: xProgress := 'POOB-70-1600';
5135: l_att_detail_tbl(n_att_seg_pos).value := l_data_chunk;
5136:
5137: l_att_detail_tbl(n_seg_num_pos).value := n_segment_number;
5138:
5139: if ec_debug.G_debug_level = 3 then
5140: ec_debug.pl(3,'xProgress: ',xProgress);
5141: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5142: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5143: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5136:
5137: l_att_detail_tbl(n_seg_num_pos).value := n_segment_number;
5138:
5139: if ec_debug.G_debug_level = 3 then
5140: ec_debug.pl(3,'xProgress: ',xProgress);
5141: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5142: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5143: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5144: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
5137: l_att_detail_tbl(n_seg_num_pos).value := n_segment_number;
5138:
5139: if ec_debug.G_debug_level = 3 then
5140: ec_debug.pl(3,'xProgress: ',xProgress);
5141: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5142: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5143: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5144: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
5145: end if;
5138:
5139: if ec_debug.G_debug_level = 3 then
5140: ec_debug.pl(3,'xProgress: ',xProgress);
5141: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5142: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5143: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5144: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
5145: end if;
5146:
5139: if ec_debug.G_debug_level = 3 then
5140: ec_debug.pl(3,'xProgress: ',xProgress);
5141: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5142: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5143: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5144: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
5145: end if;
5146:
5147: xProgress := 'POOB-70-1610';
5140: ec_debug.pl(3,'xProgress: ',xProgress);
5141: ec_debug.pl(3,'l_data_chunk: ',l_data_chunk);
5142: ec_debug.pl(3,'n_new_chunk_size: ',n_new_chunk_size);
5143: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5144: ec_debug.pl(3,'n_cur_pos: ',n_cur_pos);
5145: end if;
5146:
5147: xProgress := 'POOB-70-1610';
5148:
5152: n_cur_pos := n_cur_pos + n_new_chunk_size;
5153: END IF;
5154:
5155: n_segment_number := n_segment_number + 1;
5156: if ec_debug.G_debug_level = 3 then
5157: ec_debug.pl(3,'New n_cur_pos: ',n_cur_pos);
5158: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5159: end if;
5160:
5153: END IF;
5154:
5155: n_segment_number := n_segment_number + 1;
5156: if ec_debug.G_debug_level = 3 then
5157: ec_debug.pl(3,'New n_cur_pos: ',n_cur_pos);
5158: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5159: end if;
5160:
5161: BEGIN
5154:
5155: n_segment_number := n_segment_number + 1;
5156: if ec_debug.G_debug_level = 3 then
5157: ec_debug.pl(3,'New n_cur_pos: ',n_cur_pos);
5158: ec_debug.pl(3,'n_segment_number: ',n_segment_number);
5159: end if;
5160:
5161: BEGIN
5162: xProgress := 'POOB-70-1620';
5159: end if;
5160:
5161: BEGIN
5162: xProgress := 'POOB-70-1620';
5163: ec_debug.pl(3,'xProgress: ',xProgress);
5164:
5165: SELECT ece_attachment_details_s.NEXTVAL INTO n_detail_fkey
5166: FROM DUAL;
5167: if ec_debug.G_debug_level = 3 then
5163: ec_debug.pl(3,'xProgress: ',xProgress);
5164:
5165: SELECT ece_attachment_details_s.NEXTVAL INTO n_detail_fkey
5166: FROM DUAL;
5167: if ec_debug.G_debug_level = 3 then
5168: ec_debug.pl(3,'n_detail_fkey: ',n_detail_fkey);
5169: end if;
5170: EXCEPTION
5171: WHEN NO_DATA_FOUND THEN
5164:
5165: SELECT ece_attachment_details_s.NEXTVAL INTO n_detail_fkey
5166: FROM DUAL;
5167: if ec_debug.G_debug_level = 3 then
5168: ec_debug.pl(3,'n_detail_fkey: ',n_detail_fkey);
5169: end if;
5170: EXCEPTION
5171: WHEN NO_DATA_FOUND THEN
5172: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_ATTACHMENT_DETAILS_S');
5168: ec_debug.pl(3,'n_detail_fkey: ',n_detail_fkey);
5169: end if;
5170: EXCEPTION
5171: WHEN NO_DATA_FOUND THEN
5172: ec_debug.pl(0,'EC','ECE_GET_NEXT_SEQ_FAILED','PROGRESS_LEVEL',xProgress,'SEQ','ECE_ATTACHMENT_DETAILS_S');
5173: END;
5174:
5175: -- I have to execute the following few lines of code because, I have no way of knowing at this point
5176: -- whether to set the Continue Flag 'Y' or 'N' until I loop around to the top again. This is how I find
5176: -- whether to set the Continue Flag 'Y' or 'N' until I loop around to the top again. This is how I find
5177: -- out ahead of time what the answer will be.
5178: IF cData_Type_ID = 1 THEN -- Short Text
5179: xProgress := 'POOB-70-1622';
5180: if ec_debug.G_debug_level = 3 then
5181: ec_debug.pl(3,'xProgress: ',xProgress);
5182: end if;
5183: l_temp_text := SUBSTRB(l_short_text,n_cur_pos);
5184: ELSIF cData_Type_ID = 2 THEN -- Long Text
5177: -- out ahead of time what the answer will be.
5178: IF cData_Type_ID = 1 THEN -- Short Text
5179: xProgress := 'POOB-70-1622';
5180: if ec_debug.G_debug_level = 3 then
5181: ec_debug.pl(3,'xProgress: ',xProgress);
5182: end if;
5183: l_temp_text := SUBSTRB(l_short_text,n_cur_pos);
5184: ELSIF cData_Type_ID = 2 THEN -- Long Text
5185: xProgress := 'POOB-70-1623';
5182: end if;
5183: l_temp_text := SUBSTRB(l_short_text,n_cur_pos);
5184: ELSIF cData_Type_ID = 2 THEN -- Long Text
5185: xProgress := 'POOB-70-1623';
5186: if ec_debug.G_debug_level = 3 then
5187: ec_debug.pl(3,'xProgress: ',xProgress);
5188: end if;
5189:
5190: dbms_sql.column_value_long(n_att_detail_sel_c,n_detail_count + 1,cSegment_Size,n_cur_pos - 1,l_temp_text,n_temp_return_size);
5183: l_temp_text := SUBSTRB(l_short_text,n_cur_pos);
5184: ELSIF cData_Type_ID = 2 THEN -- Long Text
5185: xProgress := 'POOB-70-1623';
5186: if ec_debug.G_debug_level = 3 then
5187: ec_debug.pl(3,'xProgress: ',xProgress);
5188: end if;
5189:
5190: dbms_sql.column_value_long(n_att_detail_sel_c,n_detail_count + 1,cSegment_Size,n_cur_pos - 1,l_temp_text,n_temp_return_size);
5191: END IF;
5191: END IF;
5192:
5193: IF (n_temp_return_size = 0 AND cData_Type_ID = 2) OR (l_temp_text IS NULL AND cData_Type_ID = 1) THEN
5194: xProgress := 'POOB-70-1624';
5195: if ec_debug.G_debug_level = 3 then
5196: ec_debug.pl(3,'xProgress: ',xProgress);
5197: end if;
5198: v_continue_flag := 'N';
5199: END IF;
5192:
5193: IF (n_temp_return_size = 0 AND cData_Type_ID = 2) OR (l_temp_text IS NULL AND cData_Type_ID = 1) THEN
5194: xProgress := 'POOB-70-1624';
5195: if ec_debug.G_debug_level = 3 then
5196: ec_debug.pl(3,'xProgress: ',xProgress);
5197: end if;
5198: v_continue_flag := 'N';
5199: END IF;
5200:
5198: v_continue_flag := 'N';
5199: END IF;
5200:
5201: l_att_detail_tbl(n_cont_flag_pos).value := v_continue_flag;
5202: if ec_debug.G_debug_level = 3 then
5203: ec_debug.pl(3,'v_continue_flag: ',v_continue_flag);
5204: end if;
5205:
5206: xProgress := 'POOB-70-1625';
5199: END IF;
5200:
5201: l_att_detail_tbl(n_cont_flag_pos).value := v_continue_flag;
5202: if ec_debug.G_debug_level = 3 then
5203: ec_debug.pl(3,'v_continue_flag: ',v_continue_flag);
5204: end if;
5205:
5206: xProgress := 'POOB-70-1625';
5207: ec_debug.pl(3,'xProgress: ',xProgress);
5203: ec_debug.pl(3,'v_continue_flag: ',v_continue_flag);
5204: end if;
5205:
5206: xProgress := 'POOB-70-1625';
5207: ec_debug.pl(3,'xProgress: ',xProgress);
5208: l_att_detail_tbl(n_att_seq_num_pos).value := cAtt_Seq_Num;
5209: l_att_detail_tbl(n_entity_name_pos).value := cEntity_name;
5210: l_att_detail_tbl(n_name_pos).value := cName;
5211: l_att_detail_tbl(n_pk1_value_pos).value := cPK1_Value;
5215: l_att_detail_tbl(n_pk5_value_pos).value := cPK5_Value;
5216: l_att_detail_tbl(n_run_id_pos).value := iRun_id;
5217: l_att_detail_tbl(n_att_doc_id_pos).value := cAtt_doc_id; --Bug 2187958
5218: xProgress := 'POOB-70-1630';
5219: ec_debug.pl(3,'xProgress: ',xProgress);
5220: /* ece_extract_utils_pub.insert_into_interface_tbl(
5221: iRun_id,
5222: cTransaction_Type,
5223: cCommunication_Method,
5242:
5243: xProgress := 'POOB-70-1640';
5244: dbms_sql.close_cursor(n_att_detail_sel_c);
5245:
5246: if ec_debug.G_debug_level >= 2 then
5247: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
5248: end if;
5249: EXCEPTION
5250: WHEN OTHERS THEN
5243: xProgress := 'POOB-70-1640';
5244: dbms_sql.close_cursor(n_att_detail_sel_c);
5245:
5246: if ec_debug.G_debug_level >= 2 then
5247: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
5248: end if;
5249: EXCEPTION
5250: WHEN OTHERS THEN
5251: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
5247: ec_debug.pop('ECE_POO_TRANSACTION.POPULATE_TEXT_ATT_DETAIL');
5248: end if;
5249: EXCEPTION
5250: WHEN OTHERS THEN
5251: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
5252: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
5253:
5254: app_exception.raise_exception;
5255:
5248: end if;
5249: EXCEPTION
5250: WHEN OTHERS THEN
5251: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
5252: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
5253:
5254: app_exception.raise_exception;
5255:
5256: END populate_text_att_detail;
5302: rHeader_X_rowid ROWID;
5303: get_no_rows INTEGER;
5304: get_no_lrows INTEGER;
5305: BEGIN
5306: if ec_debug.G_debug_level >= 2 then
5307: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5308: ec_debug.pl(3,'cEntity_Name: ',cEntity_Name);
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5303: get_no_rows INTEGER;
5304: get_no_lrows INTEGER;
5305: BEGIN
5306: if ec_debug.G_debug_level >= 2 then
5307: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5308: ec_debug.pl(3,'cEntity_Name: ',cEntity_Name);
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5304: get_no_lrows INTEGER;
5305: BEGIN
5306: if ec_debug.G_debug_level >= 2 then
5307: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5308: ec_debug.pl(3,'cEntity_Name: ',cEntity_Name);
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5312: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5305: BEGIN
5306: if ec_debug.G_debug_level >= 2 then
5307: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5308: ec_debug.pl(3,'cEntity_Name: ',cEntity_Name);
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5312: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5313: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5306: if ec_debug.G_debug_level >= 2 then
5307: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5308: ec_debug.pl(3,'cEntity_Name: ',cEntity_Name);
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5312: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5313: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5314: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5307: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5308: ec_debug.pl(3,'cEntity_Name: ',cEntity_Name);
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5312: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5313: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5314: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5315: end if;
5308: ec_debug.pl(3,'cEntity_Name: ',cEntity_Name);
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5312: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5313: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5314: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5315: end if;
5316:
5309: ec_debug.pl(3,'cName: ', cName);
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5312: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5313: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5314: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5315: end if;
5316:
5317: xProgress := 'POOB-80-1000';
5310: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5311: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5312: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5313: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5314: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5315: end if;
5316:
5317: xProgress := 'POOB-80-1000';
5318: ece_flatfile_pvt.select_clause(cTransaction_Type,
5450: cHeader_X_Interface || '.rowid ';
5451:
5452: -- Now form the complete SELECT SQL...
5453: cHeader_select := cHeader_select || cHeader_from || cHeader_where || ' FOR UPDATE';
5454: ec_debug.pl(3,'cHeader_select: ',cHeader_select);
5455:
5456: -- Form DELETE SQL...
5457: cHeader_delete1 := 'DELETE FROM ' || cHeader_Interface || ' WHERE rowid = :col_rowid';
5458:
5457: cHeader_delete1 := 'DELETE FROM ' || cHeader_Interface || ' WHERE rowid = :col_rowid';
5458:
5459: -- Form DELETE SQL for the Extension Table...
5460: cHeader_delete2 := 'DELETE FROM ' || cHeader_X_Interface || ' WHERE rowid = :col_rowid';
5461: if ec_debug.G_debug_level = 3 then
5462: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
5463: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
5464: end if;
5465:
5458:
5459: -- Form DELETE SQL for the Extension Table...
5460: cHeader_delete2 := 'DELETE FROM ' || cHeader_X_Interface || ' WHERE rowid = :col_rowid';
5461: if ec_debug.G_debug_level = 3 then
5462: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
5463: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
5464: end if;
5465:
5466: -- Open Cursors
5459: -- Form DELETE SQL for the Extension Table...
5460: cHeader_delete2 := 'DELETE FROM ' || cHeader_X_Interface || ' WHERE rowid = :col_rowid';
5461: if ec_debug.G_debug_level = 3 then
5462: ec_debug.pl(3,'cHeader_delete1: ',cHeader_delete1);
5463: ec_debug.pl(3,'cHeader_delete2: ',cHeader_delete2);
5464: end if;
5465:
5466: -- Open Cursors
5467: xProgress := 'POOB-80-1090';
5509:
5510: --Set Counter
5511: xProgress := 'POOB-80-1150';
5512: iHeader_count := l_header_tbl.COUNT;
5513: if ec_debug.G_debug_level = 3 then
5514: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
5515: end if;
5516:
5517: xProgress := 'POOB-80-1160';
5510: --Set Counter
5511: xProgress := 'POOB-80-1150';
5512: iHeader_count := l_header_tbl.COUNT;
5513: if ec_debug.G_debug_level = 3 then
5514: ec_debug.pl(3,'iHeader_count: ',iHeader_count);
5515: end if;
5516:
5517: xProgress := 'POOB-80-1160';
5518: ece_flatfile_pvt.define_interface_column_type(Header_sel_c,
5572: ece_flatfile_pvt.find_pos(l_header_tbl,'ATTACHED_DOCUMENT_ID',nAtt_Doc_ID);
5573: -- Get the Attachment Document ID
5574: nAtt_Doc_ID := l_header_tbl(nAtt_Doc_ID).value;
5575:
5576: if ec_debug.G_debug_level = 3 then
5577: ec_debug.pl(3,'nDoc_ID_pos: ',nDoc_ID_pos);
5578: ec_debug.pl(3,'nDoc_ID: ' ,nDoc_ID);
5579: ec_debug.pl(3,'nSeq_Num: ',nSeq_Num);
5580: ec_debug.pl(3,'nAtt_Doc_ID: ',nAtt_Doc_ID);
5573: -- Get the Attachment Document ID
5574: nAtt_Doc_ID := l_header_tbl(nAtt_Doc_ID).value;
5575:
5576: if ec_debug.G_debug_level = 3 then
5577: ec_debug.pl(3,'nDoc_ID_pos: ',nDoc_ID_pos);
5578: ec_debug.pl(3,'nDoc_ID: ' ,nDoc_ID);
5579: ec_debug.pl(3,'nSeq_Num: ',nSeq_Num);
5580: ec_debug.pl(3,'nAtt_Doc_ID: ',nAtt_Doc_ID);
5581: end if;
5574: nAtt_Doc_ID := l_header_tbl(nAtt_Doc_ID).value;
5575:
5576: if ec_debug.G_debug_level = 3 then
5577: ec_debug.pl(3,'nDoc_ID_pos: ',nDoc_ID_pos);
5578: ec_debug.pl(3,'nDoc_ID: ' ,nDoc_ID);
5579: ec_debug.pl(3,'nSeq_Num: ',nSeq_Num);
5580: ec_debug.pl(3,'nAtt_Doc_ID: ',nAtt_Doc_ID);
5581: end if;
5582:
5575:
5576: if ec_debug.G_debug_level = 3 then
5577: ec_debug.pl(3,'nDoc_ID_pos: ',nDoc_ID_pos);
5578: ec_debug.pl(3,'nDoc_ID: ' ,nDoc_ID);
5579: ec_debug.pl(3,'nSeq_Num: ',nSeq_Num);
5580: ec_debug.pl(3,'nAtt_Doc_ID: ',nAtt_Doc_ID);
5581: end if;
5582:
5583: xProgress := 'POOB-80-1250';
5576: if ec_debug.G_debug_level = 3 then
5577: ec_debug.pl(3,'nDoc_ID_pos: ',nDoc_ID_pos);
5578: ec_debug.pl(3,'nDoc_ID: ' ,nDoc_ID);
5579: ec_debug.pl(3,'nSeq_Num: ',nSeq_Num);
5580: ec_debug.pl(3,'nAtt_Doc_ID: ',nAtt_Doc_ID);
5581: end if;
5582:
5583: xProgress := 'POOB-80-1250';
5584: ece_poo_transaction.write_to_file(cTransaction_Type,
5628: xProgress := 'POOB-80-1310';
5629: dbms_sql.close_cursor(Header_sel_c);
5630: dbms_sql.close_cursor(Header_del_c1);
5631: dbms_sql.close_cursor(Header_del_c2);
5632: if ec_debug.G_debug_level >= 2 then
5633: ec_debug.pop ('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5634: end if;
5635: EXCEPTION
5636: WHEN OTHERS THEN
5629: dbms_sql.close_cursor(Header_sel_c);
5630: dbms_sql.close_cursor(Header_del_c1);
5631: dbms_sql.close_cursor(Header_del_c2);
5632: if ec_debug.G_debug_level >= 2 then
5633: ec_debug.pop ('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5634: end if;
5635: EXCEPTION
5636: WHEN OTHERS THEN
5637: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
5633: ec_debug.pop ('ECE_POO_TRANSACTION.PUT_ATT_TO_OUTPUT_TABLE');
5634: end if;
5635: EXCEPTION
5636: WHEN OTHERS THEN
5637: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
5638: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
5639:
5640: app_exception.raise_exception;
5641:
5634: end if;
5635: EXCEPTION
5636: WHEN OTHERS THEN
5637: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
5638: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
5639:
5640: app_exception.raise_exception;
5641:
5642: END put_att_to_output_table;
5683: rDetail_X_rowid ROWID;
5684: get_no_rows INTEGER; -- Bug 1892253
5685: get_no_lrows INTEGER;
5686: BEGIN
5687: if ec_debug.G_debug_level >= 2 then
5688: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
5689: ec_debug.pl(3,'cDetail_Output_Level: ',cDetail_Output_Level);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5684: get_no_rows INTEGER; -- Bug 1892253
5685: get_no_lrows INTEGER;
5686: BEGIN
5687: if ec_debug.G_debug_level >= 2 then
5688: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
5689: ec_debug.pl(3,'cDetail_Output_Level: ',cDetail_Output_Level);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5685: get_no_lrows INTEGER;
5686: BEGIN
5687: if ec_debug.G_debug_level >= 2 then
5688: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
5689: ec_debug.pl(3,'cDetail_Output_Level: ',cDetail_Output_Level);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5686: BEGIN
5687: if ec_debug.G_debug_level >= 2 then
5688: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
5689: ec_debug.pl(3,'cDetail_Output_Level: ',cDetail_Output_Level);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5687: if ec_debug.G_debug_level >= 2 then
5688: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
5689: ec_debug.pl(3,'cDetail_Output_Level: ',cDetail_Output_Level);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5688: ec_debug.push('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
5689: ec_debug.pl(3,'cDetail_Output_Level: ',cDetail_Output_Level);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5689: ec_debug.pl(3,'cDetail_Output_Level: ',cDetail_Output_Level);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5697: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5690: ec_debug.pl(3,'cAtt_Seq_Num: ', cAtt_Seq_Num);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5697: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5698: ec_debug.pl(3,'cFile_Common_Key: ', cFile_Common_Key);
5691: ec_debug.pl(3,'cEntity_Name: ', cEntity_Name);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5697: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5698: ec_debug.pl(3,'cFile_Common_Key: ', cFile_Common_Key);
5699: ec_debug.pl(3,'cAtt_Doc_ID: ' ,cAtt_Doc_ID);
5692: ec_debug.pl(3,'cName: ', cName);
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5697: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5698: ec_debug.pl(3,'cFile_Common_Key: ', cFile_Common_Key);
5699: ec_debug.pl(3,'cAtt_Doc_ID: ' ,cAtt_Doc_ID);
5700: end if;
5693: ec_debug.pl(3,'cPK1_Value: ', cPK1_Value);
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5697: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5698: ec_debug.pl(3,'cFile_Common_Key: ', cFile_Common_Key);
5699: ec_debug.pl(3,'cAtt_Doc_ID: ' ,cAtt_Doc_ID);
5700: end if;
5701:
5694: ec_debug.pl(3,'cPK2_Value: ', cPK2_Value);
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5697: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5698: ec_debug.pl(3,'cFile_Common_Key: ', cFile_Common_Key);
5699: ec_debug.pl(3,'cAtt_Doc_ID: ' ,cAtt_Doc_ID);
5700: end if;
5701:
5702: xProgress := 'POOB-90-1000';
5695: ec_debug.pl(3,'cPK3_Value: ', cPK3_Value);
5696: ec_debug.pl(3,'cPK4_Value: ', cPK4_Value);
5697: ec_debug.pl(3,'cPK5_Value: ', cPK5_Value);
5698: ec_debug.pl(3,'cFile_Common_Key: ', cFile_Common_Key);
5699: ec_debug.pl(3,'cAtt_Doc_ID: ' ,cAtt_Doc_ID);
5700: end if;
5701:
5702: xProgress := 'POOB-90-1000';
5703: ece_flatfile_pvt.select_clause(cTransaction_Type,
5851: cDetail_delete1 := 'DELETE FROM ' || cDetail_Interface || ' WHERE rowid = :col_rowid';
5852:
5853: -- Form DELETE SQL for the Extension Table...
5854: cDetail_delete2 := 'DELETE FROM ' || cDetail_X_Interface || ' WHERE rowid = :col_rowid';
5855: if ec_debug.G_debug_level = 3 then
5856: ec_debug.pl(3,'cDetail_select: ',cDetail_select);
5857: ec_debug.pl(3,'cDetail_delete1: ',cDetail_delete1);
5858: ec_debug.pl(3,'cDetail_delete2: ',cDetail_delete2);
5859: end if;
5852:
5853: -- Form DELETE SQL for the Extension Table...
5854: cDetail_delete2 := 'DELETE FROM ' || cDetail_X_Interface || ' WHERE rowid = :col_rowid';
5855: if ec_debug.G_debug_level = 3 then
5856: ec_debug.pl(3,'cDetail_select: ',cDetail_select);
5857: ec_debug.pl(3,'cDetail_delete1: ',cDetail_delete1);
5858: ec_debug.pl(3,'cDetail_delete2: ',cDetail_delete2);
5859: end if;
5860:
5853: -- Form DELETE SQL for the Extension Table...
5854: cDetail_delete2 := 'DELETE FROM ' || cDetail_X_Interface || ' WHERE rowid = :col_rowid';
5855: if ec_debug.G_debug_level = 3 then
5856: ec_debug.pl(3,'cDetail_select: ',cDetail_select);
5857: ec_debug.pl(3,'cDetail_delete1: ',cDetail_delete1);
5858: ec_debug.pl(3,'cDetail_delete2: ',cDetail_delete2);
5859: end if;
5860:
5861: -- Open Cursors
5854: cDetail_delete2 := 'DELETE FROM ' || cDetail_X_Interface || ' WHERE rowid = :col_rowid';
5855: if ec_debug.G_debug_level = 3 then
5856: ec_debug.pl(3,'cDetail_select: ',cDetail_select);
5857: ec_debug.pl(3,'cDetail_delete1: ',cDetail_delete1);
5858: ec_debug.pl(3,'cDetail_delete2: ',cDetail_delete2);
5859: end if;
5860:
5861: -- Open Cursors
5862: xProgress := 'POOB-90-1110';
5903:
5904: --Set Counter
5905: xProgress := 'POOB-90-1170';
5906: iDetail_count := l_detail_tbl.COUNT;
5907: if ec_debug.G_debug_level = 3 then
5908: ec_debug.pl(3,'iDetail_count: ',iDetail_count);
5909: end if;
5910:
5911: xProgress := 'POOB-90-1180';
5904: --Set Counter
5905: xProgress := 'POOB-90-1170';
5906: iDetail_count := l_detail_tbl.COUNT;
5907: if ec_debug.G_debug_level = 3 then
5908: ec_debug.pl(3,'iDetail_count: ',iDetail_count);
5909: end if;
5910:
5911: xProgress := 'POOB-90-1180';
5912: ece_flatfile_pvt.define_interface_column_type(Detail_sel_c,
6003: xProgress := 'POOB-90-1310';
6004: dbms_sql.close_cursor(Detail_sel_c);
6005: dbms_sql.close_cursor(Detail_del_c1);
6006: dbms_sql.close_cursor(Detail_del_c2);
6007: if ec_debug.G_debug_level >= 2 then
6008: ec_debug.pop ('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
6009: end if;
6010: EXCEPTION
6011: WHEN OTHERS THEN
6004: dbms_sql.close_cursor(Detail_sel_c);
6005: dbms_sql.close_cursor(Detail_del_c1);
6006: dbms_sql.close_cursor(Detail_del_c2);
6007: if ec_debug.G_debug_level >= 2 then
6008: ec_debug.pop ('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
6009: end if;
6010: EXCEPTION
6011: WHEN OTHERS THEN
6012: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6008: ec_debug.pop ('ECE_POO_TRANSACTION.PUT_ATT_DETAIL_TO_OUTPUT_TABLE');
6009: end if;
6010: EXCEPTION
6011: WHEN OTHERS THEN
6012: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6013: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6014:
6015: app_exception.raise_exception;
6016:
6009: end if;
6010: EXCEPTION
6011: WHEN OTHERS THEN
6012: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6013: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6014:
6015: app_exception.raise_exception;
6016:
6017: END put_att_detail_to_output_table;
6045: c_local_chr_9 VARCHAR2(1) := fnd_global.local_chr(9);
6046:
6047:
6048: BEGIN
6049: if EC_DEBUG.G_debug_level >= 2 then
6050: ec_debug.push('ECE_POO_TRANSACTION.WRITE_TO_FILE');
6051: end if;
6052: xProgress := 'POOB-WR-1020';
6053: FOR i IN 1..iData_count LOOP
6046:
6047:
6048: BEGIN
6049: if EC_DEBUG.G_debug_level >= 2 then
6050: ec_debug.push('ECE_POO_TRANSACTION.WRITE_TO_FILE');
6051: end if;
6052: xProgress := 'POOB-WR-1020';
6053: FOR i IN 1..iData_count LOOP
6054: xProgress := 'POOB-WR-1030';
6058: p_Interface_tbl(i).position IS NOT NULL AND
6059: p_Interface_tbl(i).data_length IS NOT NULL THEN
6060: xProgress := 'POOB-WR-1050';
6061: iRow_num := i;
6062: if EC_DEBUG.G_debug_level >= 3 then
6063: ec_debug.pl(3,'iRow_num : ',iRow_num);
6064: end if;
6065: xProgress := 'POOB-WR-1060';
6066: IF p_Interface_tbl(i).interface_column_name = 'RUN_ID' THEN
6059: p_Interface_tbl(i).data_length IS NOT NULL THEN
6060: xProgress := 'POOB-WR-1050';
6061: iRow_num := i;
6062: if EC_DEBUG.G_debug_level >= 3 then
6063: ec_debug.pl(3,'iRow_num : ',iRow_num);
6064: end if;
6065: xProgress := 'POOB-WR-1060';
6066: IF p_Interface_tbl(i).interface_column_name = 'RUN_ID' THEN
6067: cValue := iRun_id;
6120: END IF;
6121: END IF;
6122: END LOOP;
6123:
6124: if EC_DEBUG.G_debug_level >= 2 then
6125: ec_debug.pop('ECE_POO_TRANSACTION.WRITE_TO_FILE');
6126: end if;
6127:
6128: EXCEPTION
6121: END IF;
6122: END LOOP;
6123:
6124: if EC_DEBUG.G_debug_level >= 2 then
6125: ec_debug.pop('ECE_POO_TRANSACTION.WRITE_TO_FILE');
6126: end if;
6127:
6128: EXCEPTION
6129: WHEN utl_file.write_error THEN
6126: end if;
6127:
6128: EXCEPTION
6129: WHEN utl_file.write_error THEN
6130: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
6131: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6132: app_exception.raise_exception;
6133:
6134: WHEN utl_file.invalid_path THEN
6127:
6128: EXCEPTION
6129: WHEN utl_file.write_error THEN
6130: ec_debug.pl(0,'EC','ECE_UTL_WRITE_ERROR',NULL);
6131: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6132: app_exception.raise_exception;
6133:
6134: WHEN utl_file.invalid_path THEN
6135: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
6131: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6132: app_exception.raise_exception;
6133:
6134: WHEN utl_file.invalid_path THEN
6135: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
6136: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6137: app_exception.raise_exception;
6138:
6139: WHEN utl_file.invalid_operation THEN
6132: app_exception.raise_exception;
6133:
6134: WHEN utl_file.invalid_path THEN
6135: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_PATH',NULL);
6136: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6137: app_exception.raise_exception;
6138:
6139: WHEN utl_file.invalid_operation THEN
6140: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
6136: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6137: app_exception.raise_exception;
6138:
6139: WHEN utl_file.invalid_operation THEN
6140: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
6141: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6142: app_exception.raise_exception;
6143:
6144: WHEN OTHERS THEN
6137: app_exception.raise_exception;
6138:
6139: WHEN utl_file.invalid_operation THEN
6140: ec_debug.pl(0,'EC','ECE_UTIL_INVALID_OPERATION',NULL);
6141: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6142: app_exception.raise_exception;
6143:
6144: WHEN OTHERS THEN
6145: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_POO_TRANSACTION.WRITE_TO_FILE');
6141: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6142: app_exception.raise_exception;
6143:
6144: WHEN OTHERS THEN
6145: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_POO_TRANSACTION.WRITE_TO_FILE');
6146: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6147: ec_debug.pl(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
6148: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6149:
6142: app_exception.raise_exception;
6143:
6144: WHEN OTHERS THEN
6145: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_POO_TRANSACTION.WRITE_TO_FILE');
6146: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6147: ec_debug.pl(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
6148: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6149:
6150: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME', 'to_char(l_count)');
6143:
6144: WHEN OTHERS THEN
6145: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_POO_TRANSACTION.WRITE_TO_FILE');
6146: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6147: ec_debug.pl(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
6148: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6149:
6150: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME', 'to_char(l_count)');
6151: ec_debug.pl(0,'EC','ECE_PLSQL_VALUE','COLUMN_NAME', 'p_interface_tbl(l_count).value');
6144: WHEN OTHERS THEN
6145: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_POO_TRANSACTION.WRITE_TO_FILE');
6146: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6147: ec_debug.pl(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
6148: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6149:
6150: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME', 'to_char(l_count)');
6151: ec_debug.pl(0,'EC','ECE_PLSQL_VALUE','COLUMN_NAME', 'p_interface_tbl(l_count).value');
6152: ec_debug.pl(0,'EC','ECE_PLSQL_DATA_TYPE','COLUMN_NAME', 'p_interface_tbl(l_count).data_type');
6146: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
6147: ec_debug.pl(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
6148: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6149:
6150: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME', 'to_char(l_count)');
6151: ec_debug.pl(0,'EC','ECE_PLSQL_VALUE','COLUMN_NAME', 'p_interface_tbl(l_count).value');
6152: ec_debug.pl(0,'EC','ECE_PLSQL_DATA_TYPE','COLUMN_NAME', 'p_interface_tbl(l_count).data_type');
6153: ec_debug.pl(0,'EC','ECE_PLSQL_COLUMN_NAME','COLUMN_NAME', 'p_interface_tbl(l_count).base_column');
6154: app_exception.raise_exception;
6147: ec_debug.pl(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
6148: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6149:
6150: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME', 'to_char(l_count)');
6151: ec_debug.pl(0,'EC','ECE_PLSQL_VALUE','COLUMN_NAME', 'p_interface_tbl(l_count).value');
6152: ec_debug.pl(0,'EC','ECE_PLSQL_DATA_TYPE','COLUMN_NAME', 'p_interface_tbl(l_count).data_type');
6153: ec_debug.pl(0,'EC','ECE_PLSQL_COLUMN_NAME','COLUMN_NAME', 'p_interface_tbl(l_count).base_column');
6154: app_exception.raise_exception;
6155:
6148: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
6149:
6150: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME', 'to_char(l_count)');
6151: ec_debug.pl(0,'EC','ECE_PLSQL_VALUE','COLUMN_NAME', 'p_interface_tbl(l_count).value');
6152: ec_debug.pl(0,'EC','ECE_PLSQL_DATA_TYPE','COLUMN_NAME', 'p_interface_tbl(l_count).data_type');
6153: ec_debug.pl(0,'EC','ECE_PLSQL_COLUMN_NAME','COLUMN_NAME', 'p_interface_tbl(l_count).base_column');
6154: app_exception.raise_exception;
6155:
6156: END write_to_file;
6149:
6150: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME', 'to_char(l_count)');
6151: ec_debug.pl(0,'EC','ECE_PLSQL_VALUE','COLUMN_NAME', 'p_interface_tbl(l_count).value');
6152: ec_debug.pl(0,'EC','ECE_PLSQL_DATA_TYPE','COLUMN_NAME', 'p_interface_tbl(l_count).data_type');
6153: ec_debug.pl(0,'EC','ECE_PLSQL_COLUMN_NAME','COLUMN_NAME', 'p_interface_tbl(l_count).base_column');
6154: app_exception.raise_exception;
6155:
6156: END write_to_file;
6157: