1: PACKAGE BODY PO_OTM_INTEGRATION_PVT AS
2: /* $Header: POXVOTMB.pls 120.7 2010/11/01 21:49:00 yawang noship $ */
3:
4: -- Debugging booleans used to bypass logging when turned off
5: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
6: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
7: g_po_wf_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
8:
9: -- Logging constants
2: /* $Header: POXVOTMB.pls 120.7 2010/11/01 21:49:00 yawang noship $ */
3:
4: -- Debugging booleans used to bypass logging when turned off
5: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
6: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
7: g_po_wf_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
8:
9: -- Logging constants
10: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_OTM_INTEGRATION_PVT';
152:
153: d_progress := '000';
154:
155: IF (g_debug_stmt) THEN
156: PO_DEBUG.debug_begin(d_module);
157: END IF;
158:
159: d_progress := '100';
160:
168:
169: d_progress := '130';
170:
171: IF (g_debug_stmt) THEN
172: PO_DEBUG.debug_var(d_module, d_progress, 'l_is_otm_installed', l_is_otm_installed);
173: PO_DEBUG.debug_end(d_module);
174: END IF;
175:
176: RETURN l_is_otm_installed;
169: d_progress := '130';
170:
171: IF (g_debug_stmt) THEN
172: PO_DEBUG.debug_var(d_module, d_progress, 'l_is_otm_installed', l_is_otm_installed);
173: PO_DEBUG.debug_end(d_module);
174: END IF;
175:
176: RETURN l_is_otm_installed;
177:
177:
178: EXCEPTION
179: WHEN OTHERS THEN
180: IF (g_debug_unexp) THEN
181: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected error');
182: END IF;
183:
184: END is_otm_installed;
185:
196:
197: d_progress := '000';
198:
199: IF (g_debug_stmt) THEN
200: PO_DEBUG.debug_begin(d_module);
201: END IF;
202:
203: d_progress := '100';
204:
213:
214: d_progress := '130';
215:
216: IF (g_debug_stmt) THEN
217: PO_DEBUG.debug_var(d_module, d_progress, 'l_is_logistics_enabled', l_is_logistics_enabled);
218: PO_DEBUG.debug_end(d_module);
219: END IF;
220:
221: RETURN l_is_logistics_enabled;
214: d_progress := '130';
215:
216: IF (g_debug_stmt) THEN
217: PO_DEBUG.debug_var(d_module, d_progress, 'l_is_logistics_enabled', l_is_logistics_enabled);
218: PO_DEBUG.debug_end(d_module);
219: END IF;
220:
221: RETURN l_is_logistics_enabled;
222:
222:
223: EXCEPTION
224: WHEN OTHERS THEN
225: IF (g_debug_unexp) THEN
226: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected error');
227: END IF;
228:
229: END is_inbound_logistics_enabled;
230:
259:
260: d_progress := '000';
261:
262: IF (g_debug_stmt) THEN
263: PO_DEBUG.debug_begin(d_module);
264: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
265: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
266: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
267: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
260: d_progress := '000';
261:
262: IF (g_debug_stmt) THEN
263: PO_DEBUG.debug_begin(d_module);
264: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
265: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
266: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
267: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
268: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
261:
262: IF (g_debug_stmt) THEN
263: PO_DEBUG.debug_begin(d_module);
264: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
265: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
266: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
267: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
268: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
269: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
262: IF (g_debug_stmt) THEN
263: PO_DEBUG.debug_begin(d_module);
264: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
265: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
266: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
267: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
268: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
269: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
270: END IF;
263: PO_DEBUG.debug_begin(d_module);
264: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
265: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
266: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
267: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
268: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
269: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
270: END IF;
271:
264: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
265: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
266: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
267: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
268: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
269: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
270: END IF;
271:
272: d_progress := '010';
265: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
266: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
267: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
268: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
269: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
270: END IF;
271:
272: d_progress := '010';
273:
282: -- We do not want to communicate Complex Work Purchase Orders to OTM.
283: IF(p_doc_type = 'PO' AND PO_COMPLEX_WORK_PVT.is_complex_work_po(p_doc_id)) THEN
284: d_progress := '040';
285: IF (g_debug_stmt) THEN
286: PO_DEBUG.debug_stmt(d_module, d_progress, 'Not initiating OTM integration because PO: ' || p_doc_id || ' is a Complex Work Purchase Order.');
287: END IF;
288: RETURN;
289: END IF; --IF complex work PO
290:
339: l_command := '';
340: END IF;
341:
342: IF (g_debug_stmt) THEN
343: PO_DEBUG.debug_var(d_module, d_progress, 'l_command', l_command);
344: END IF;
345:
346: d_progress := '200';
347:
519:
520: ELSE
521: d_progress := '395';
522: IF (g_debug_stmt) THEN
523: PO_DEBUG.debug_stmt(d_module, d_progress, 'Not initiating OTM integration because SHIPPING_CONTROL (Transporation Arranged By) is NULL or it has not been approved.');
524: END IF;
525:
526: END IF; -- IF (l_shipping_control IN ('BUYER', 'SUPPLIER')) THEN
527:
527:
528: ELSE
529: d_progress := '400';
530: IF (g_debug_stmt) THEN
531: PO_DEBUG.debug_stmt(d_module, d_progress, 'Ignoring doc action: ' || l_command);
532: END IF;
533:
534: END IF; -- IF (l_command IN ('APPROVE', 'CANCEL', 'HOLD', 'UNHOLD')) THEN
535:
535:
536: d_progress := '500';
537:
538: IF (g_debug_stmt) THEN
539: PO_DEBUG.debug_end(d_module);
540: END IF;
541:
542: EXCEPTION
543: WHEN NO_DATA_FOUND THEN
541:
542: EXCEPTION
543: WHEN NO_DATA_FOUND THEN
544: IF (g_debug_unexp) THEN
545: PO_DEBUG.debug_unexp(d_module, d_progress, 'No data found for document');
546: END IF;
547: RAISE;
548:
549: WHEN OTHERS THEN
547: RAISE;
548:
549: WHEN OTHERS THEN
550: IF (g_debug_unexp) THEN
551: PO_DEBUG.debug_unexp(d_module, d_progress, d_log_msg);
552: END IF;
553: RAISE;
554:
555: END handle_doc_update;
574:
575: d_progress := '000';
576:
577: IF (g_debug_stmt) THEN
578: PO_DEBUG.debug_begin(d_module);
579: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
580: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
575: d_progress := '000';
576:
577: IF (g_debug_stmt) THEN
578: PO_DEBUG.debug_begin(d_module);
579: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
580: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
583: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
576:
577: IF (g_debug_stmt) THEN
578: PO_DEBUG.debug_begin(d_module);
579: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
580: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
583: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
584: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
577: IF (g_debug_stmt) THEN
578: PO_DEBUG.debug_begin(d_module);
579: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
580: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
583: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
584: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
585: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
578: PO_DEBUG.debug_begin(d_module);
579: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
580: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
583: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
584: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
585: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
586: END IF;
579: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
580: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
583: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
584: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
585: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
586: END IF;
587:
580: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
583: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
584: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
585: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
586: END IF;
587:
588:
581: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
582: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
583: PO_DEBUG.debug_var(d_module, d_progress, 'p_action', p_action);
584: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
585: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
586: END IF;
587:
588:
589: d_progress := '100';
723: RAISE g_OTM_INTEGRATION_EXC;
724: END IF;
725:
726: IF (g_debug_stmt) THEN
727: PO_DEBUG.debug_end(d_module);
728: END IF;
729:
730: EXCEPTION
731: WHEN OTHERS THEN
729:
730: EXCEPTION
731: WHEN OTHERS THEN
732: IF (g_debug_stmt) THEN
733: PO_DEBUG.debug_unexp(d_module, d_progress, d_log_msg);
734: END IF;
735:
736: RAISE;
737: END get_otm_document;
749:
750: d_progress := '000';
751:
752: IF (g_debug_stmt) THEN
753: PO_DEBUG.debug_begin(d_module);
754: END IF;
755:
756: x_otm_doc.otm_domain := FND_PROFILE.value('WSH_OTM_DOMAIN_NAME');
757: x_otm_doc.otm_user := FND_PROFILE.value('WSH_OTM_USER_ID');
767:
768: d_progress := '100';
769:
770: IF (g_debug_stmt) THEN
771: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.otm_domain', x_otm_doc.otm_domain);
772: PO_DEBUG.debug_end(d_module);
773: END IF;
774:
775: EXCEPTION
768: d_progress := '100';
769:
770: IF (g_debug_stmt) THEN
771: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.otm_domain', x_otm_doc.otm_domain);
772: PO_DEBUG.debug_end(d_module);
773: END IF;
774:
775: EXCEPTION
776: WHEN OTHERS THEN
774:
775: EXCEPTION
776: WHEN OTHERS THEN
777: IF (g_debug_stmt) THEN
778: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected exception');
779: END IF;
780: RAISE;
781:
782: END populate_otm_info;
878:
879: d_progress := '000';
880:
881: IF (g_debug_stmt) THEN
882: PO_DEBUG.debug_begin(d_module);
883: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
884: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
885: END IF;
886:
879: d_progress := '000';
880:
881: IF (g_debug_stmt) THEN
882: PO_DEBUG.debug_begin(d_module);
883: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
884: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
885: END IF;
886:
887: d_progress := '010';
880:
881: IF (g_debug_stmt) THEN
882: PO_DEBUG.debug_begin(d_module);
883: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
884: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
885: END IF;
886:
887: d_progress := '010';
888:
1131:
1132: d_progress := '120';
1133:
1134: IF (g_debug_stmt) THEN
1135: PO_DEBUG.debug_stmt(d_module, d_progress, 'Got schedule line. line_location_id='
1136: || TO_CHAR(l_otm_schedule_line.line_location_id));
1137: END IF;
1138:
1139: -- Populate ship-to address info (including drop-ship info)
1159:
1160: d_progress := '070';
1161:
1162: IF (g_debug_stmt) THEN
1163: PO_DEBUG.debug_end(d_module);
1164: END IF;
1165:
1166: EXCEPTION
1167: WHEN NO_DATA_FOUND THEN
1165:
1166: EXCEPTION
1167: WHEN NO_DATA_FOUND THEN
1168: IF (g_debug_stmt) THEN
1169: PO_DEBUG.debug_unexp(d_module, d_progress, 'No document header found. This probably means that archive-on-approval is not set');
1170: END IF;
1171: RAISE;
1172: WHEN OTHERS THEN
1173: IF (g_debug_stmt) THEN
1170: END IF;
1171: RAISE;
1172: WHEN OTHERS THEN
1173: IF (g_debug_stmt) THEN
1174: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1175: END IF;
1176: RAISE;
1177:
1178: END get_approved_po;
1193:
1194: d_progress := '000';
1195:
1196: IF (g_debug_stmt) THEN
1197: PO_DEBUG.debug_begin(d_module);
1198: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1199: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1200: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1201: END IF;
1194: d_progress := '000';
1195:
1196: IF (g_debug_stmt) THEN
1197: PO_DEBUG.debug_begin(d_module);
1198: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1199: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1200: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1201: END IF;
1202:
1195:
1196: IF (g_debug_stmt) THEN
1197: PO_DEBUG.debug_begin(d_module);
1198: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1199: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1200: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1201: END IF;
1202:
1203: d_progress := '020';
1196: IF (g_debug_stmt) THEN
1197: PO_DEBUG.debug_begin(d_module);
1198: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1199: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1200: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1201: END IF;
1202:
1203: d_progress := '020';
1204:
1211:
1212: d_progress := '030';
1213:
1214: IF (g_debug_stmt) THEN
1215: PO_DEBUG.debug_end(d_module);
1216: END IF;
1217:
1218: EXCEPTION
1219: WHEN OTHERS THEN
1217:
1218: EXCEPTION
1219: WHEN OTHERS THEN
1220: IF (g_debug_stmt) THEN
1221: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1222: END IF;
1223: RAISE;
1224:
1225: END get_canceled_po;
1240:
1241: d_progress := '000';
1242:
1243: IF (g_debug_stmt) THEN
1244: PO_DEBUG.debug_begin(d_module);
1245: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1246: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1247: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1248: END IF;
1241: d_progress := '000';
1242:
1243: IF (g_debug_stmt) THEN
1244: PO_DEBUG.debug_begin(d_module);
1245: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1246: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1247: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1248: END IF;
1249:
1242:
1243: IF (g_debug_stmt) THEN
1244: PO_DEBUG.debug_begin(d_module);
1245: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1246: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1247: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1248: END IF;
1249:
1250: d_progress := '020';
1243: IF (g_debug_stmt) THEN
1244: PO_DEBUG.debug_begin(d_module);
1245: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1246: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1247: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1248: END IF;
1249:
1250: d_progress := '020';
1251:
1258:
1259: d_progress := '030';
1260:
1261: IF (g_debug_stmt) THEN
1262: PO_DEBUG.debug_end(d_module);
1263: END IF;
1264:
1265: EXCEPTION
1266: WHEN OTHERS THEN
1264:
1265: EXCEPTION
1266: WHEN OTHERS THEN
1267: IF (g_debug_stmt) THEN
1268: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1269: END IF;
1270: RAISE;
1271:
1272: END get_closed_po;
1287:
1288: d_progress := '000';
1289:
1290: IF (g_debug_stmt) THEN
1291: PO_DEBUG.debug_begin(d_module);
1292: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1293: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1294: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1295: END IF;
1288: d_progress := '000';
1289:
1290: IF (g_debug_stmt) THEN
1291: PO_DEBUG.debug_begin(d_module);
1292: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1293: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1294: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1295: END IF;
1296:
1289:
1290: IF (g_debug_stmt) THEN
1291: PO_DEBUG.debug_begin(d_module);
1292: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1293: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1294: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1295: END IF;
1296:
1297: d_progress := '020';
1290: IF (g_debug_stmt) THEN
1291: PO_DEBUG.debug_begin(d_module);
1292: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1293: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1294: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1295: END IF;
1296:
1297: d_progress := '020';
1298:
1305:
1306: d_progress := '030';
1307:
1308: IF (g_debug_stmt) THEN
1309: PO_DEBUG.debug_end(d_module);
1310: END IF;
1311:
1312: EXCEPTION
1313: WHEN OTHERS THEN
1311:
1312: EXCEPTION
1313: WHEN OTHERS THEN
1314: IF (g_debug_stmt) THEN
1315: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1316: END IF;
1317: RAISE;
1318:
1319: END get_opened_po;
1377:
1378: d_progress := '000';
1379:
1380: IF (g_debug_stmt) THEN
1381: PO_DEBUG.debug_begin(d_module);
1382: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1383: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1384: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1385: END IF;
1378: d_progress := '000';
1379:
1380: IF (g_debug_stmt) THEN
1381: PO_DEBUG.debug_begin(d_module);
1382: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1383: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1384: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1385: END IF;
1386:
1379:
1380: IF (g_debug_stmt) THEN
1381: PO_DEBUG.debug_begin(d_module);
1382: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1383: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1384: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1385: END IF;
1386:
1387: d_progress := '020';
1380: IF (g_debug_stmt) THEN
1381: PO_DEBUG.debug_begin(d_module);
1382: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1383: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_id', p_line_id);
1384: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1385: END IF;
1386:
1387: d_progress := '020';
1388:
1440:
1441: d_progress := '120';
1442:
1443: IF (g_debug_stmt) THEN
1444: PO_DEBUG.debug_stmt(d_module, d_progress, 'Got schedule line. line_location_id=' || TO_CHAR(l_otm_schedule_line.line_location_id));
1445: END IF;
1446:
1447: x_otm_doc.schedule_lines.extend;
1448: x_otm_doc.schedule_lines(l_count) := l_otm_schedule_line;
1459:
1460: d_progress := '070';
1461:
1462: IF (g_debug_stmt) THEN
1463: PO_DEBUG.debug_end(d_module);
1464: END IF;
1465:
1466: EXCEPTION
1467: WHEN OTHERS THEN
1465:
1466: EXCEPTION
1467: WHEN OTHERS THEN
1468: IF (g_debug_stmt) THEN
1469: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1470: END IF;
1471: RAISE;
1472:
1473: END get_po_for_status_change;
1489:
1490: d_progress := '000';
1491:
1492: IF (g_debug_stmt) THEN
1493: PO_DEBUG.debug_begin(d_module);
1494: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1495: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
1496: END IF;
1497:
1490: d_progress := '000';
1491:
1492: IF (g_debug_stmt) THEN
1493: PO_DEBUG.debug_begin(d_module);
1494: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1495: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
1496: END IF;
1497:
1498: d_progress := '020';
1491:
1492: IF (g_debug_stmt) THEN
1493: PO_DEBUG.debug_begin(d_module);
1494: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1495: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
1496: END IF;
1497:
1498: d_progress := '020';
1499:
1514:
1515: d_progress := '030';
1516:
1517: IF (g_debug_stmt) THEN
1518: PO_DEBUG.debug_end(d_module);
1519: END IF;
1520:
1521: EXCEPTION
1522: WHEN NO_DATA_FOUND THEN
1520:
1521: EXCEPTION
1522: WHEN NO_DATA_FOUND THEN
1523: IF (g_debug_stmt) THEN
1524: PO_DEBUG.debug_unexp(d_module, d_progress, 'No data found. This probably means that archive-on-approve is off.');
1525: END IF;
1526: RAISE;
1527:
1528: WHEN OTHERS THEN
1526: RAISE;
1527:
1528: WHEN OTHERS THEN
1529: IF (g_debug_stmt) THEN
1530: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1531: END IF;
1532: RAISE;
1533:
1534: END get_held_po;
1637:
1638: d_progress := '000';
1639:
1640: IF (g_debug_stmt) THEN
1641: PO_DEBUG.debug_begin(d_module);
1642: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1643: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
1644: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1645: END IF;
1638: d_progress := '000';
1639:
1640: IF (g_debug_stmt) THEN
1641: PO_DEBUG.debug_begin(d_module);
1642: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1643: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
1644: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1645: END IF;
1646:
1639:
1640: IF (g_debug_stmt) THEN
1641: PO_DEBUG.debug_begin(d_module);
1642: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1643: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
1644: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1645: END IF;
1646:
1647: d_progress := '010';
1640: IF (g_debug_stmt) THEN
1641: PO_DEBUG.debug_begin(d_module);
1642: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1643: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
1644: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1645: END IF;
1646:
1647: d_progress := '010';
1648:
1898:
1899: d_progress := '120';
1900:
1901: IF (g_debug_stmt) THEN
1902: PO_DEBUG.debug_stmt(d_module, d_progress, 'Got schedule line. line_location_id=' || TO_CHAR(l_otm_schedule_line.line_location_id));
1903: END IF;
1904:
1905: -- populate shipment address info
1906: d_progress := '150';
1925:
1926: d_progress := '070';
1927:
1928: IF (g_debug_stmt) THEN
1929: PO_DEBUG.debug_end(d_module);
1930: END IF;
1931:
1932: EXCEPTION
1933: WHEN NO_DATA_FOUND THEN
1931:
1932: EXCEPTION
1933: WHEN NO_DATA_FOUND THEN
1934: IF (g_debug_stmt) THEN
1935: PO_DEBUG.debug_unexp(d_module, d_progress, 'No document header found. This probably means that archive-on-approval is not set');
1936: END IF;
1937: RAISE;
1938: WHEN OTHERS THEN
1939: IF (g_debug_stmt) THEN
1936: END IF;
1937: RAISE;
1938: WHEN OTHERS THEN
1939: IF (g_debug_stmt) THEN
1940: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1941: END IF;
1942: RAISE;
1943:
1944: END get_approved_release;
1959:
1960: d_progress := '000';
1961:
1962: IF (g_debug_stmt) THEN
1963: PO_DEBUG.debug_begin(d_module);
1964: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1965: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1966: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1967: END IF;
1960: d_progress := '000';
1961:
1962: IF (g_debug_stmt) THEN
1963: PO_DEBUG.debug_begin(d_module);
1964: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1965: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1966: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1967: END IF;
1968:
1961:
1962: IF (g_debug_stmt) THEN
1963: PO_DEBUG.debug_begin(d_module);
1964: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1965: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1966: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1967: END IF;
1968:
1969: d_progress := '020';
1962: IF (g_debug_stmt) THEN
1963: PO_DEBUG.debug_begin(d_module);
1964: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
1965: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
1966: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
1967: END IF;
1968:
1969: d_progress := '020';
1970:
1977:
1978: d_progress := '030';
1979:
1980: IF (g_debug_stmt) THEN
1981: PO_DEBUG.debug_end(d_module);
1982: END IF;
1983:
1984: EXCEPTION
1985: WHEN OTHERS THEN
1983:
1984: EXCEPTION
1985: WHEN OTHERS THEN
1986: IF (g_debug_stmt) THEN
1987: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
1988: END IF;
1989: RAISE;
1990:
1991: END get_canceled_release;
2006:
2007: d_progress := '000';
2008:
2009: IF (g_debug_stmt) THEN
2010: PO_DEBUG.debug_begin(d_module);
2011: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2012: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2013: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2014: END IF;
2007: d_progress := '000';
2008:
2009: IF (g_debug_stmt) THEN
2010: PO_DEBUG.debug_begin(d_module);
2011: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2012: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2013: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2014: END IF;
2015:
2008:
2009: IF (g_debug_stmt) THEN
2010: PO_DEBUG.debug_begin(d_module);
2011: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2012: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2013: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2014: END IF;
2015:
2016: d_progress := '020';
2009: IF (g_debug_stmt) THEN
2010: PO_DEBUG.debug_begin(d_module);
2011: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2012: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2013: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2014: END IF;
2015:
2016: d_progress := '020';
2017:
2024:
2025: d_progress := '030';
2026:
2027: IF (g_debug_stmt) THEN
2028: PO_DEBUG.debug_end(d_module);
2029: END IF;
2030:
2031: EXCEPTION
2032: WHEN OTHERS THEN
2030:
2031: EXCEPTION
2032: WHEN OTHERS THEN
2033: IF (g_debug_stmt) THEN
2034: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
2035: END IF;
2036: RAISE;
2037:
2038: END get_closed_release;
2053:
2054: d_progress := '000';
2055:
2056: IF (g_debug_stmt) THEN
2057: PO_DEBUG.debug_begin(d_module);
2058: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2059: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2060: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2061: END IF;
2054: d_progress := '000';
2055:
2056: IF (g_debug_stmt) THEN
2057: PO_DEBUG.debug_begin(d_module);
2058: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2059: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2060: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2061: END IF;
2062:
2055:
2056: IF (g_debug_stmt) THEN
2057: PO_DEBUG.debug_begin(d_module);
2058: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2059: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2060: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2061: END IF;
2062:
2063: d_progress := '020';
2056: IF (g_debug_stmt) THEN
2057: PO_DEBUG.debug_begin(d_module);
2058: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2059: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2060: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2061: END IF;
2062:
2063: d_progress := '020';
2064:
2071:
2072: d_progress := '030';
2073:
2074: IF (g_debug_stmt) THEN
2075: PO_DEBUG.debug_end(d_module);
2076: END IF;
2077:
2078: EXCEPTION
2079: WHEN OTHERS THEN
2077:
2078: EXCEPTION
2079: WHEN OTHERS THEN
2080: IF (g_debug_stmt) THEN
2081: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
2082: END IF;
2083: RAISE;
2084:
2085: END get_opened_release;
2148:
2149: d_progress := '000';
2150:
2151: IF (g_debug_stmt) THEN
2152: PO_DEBUG.debug_begin(d_module);
2153: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2154: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2155: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2156: END IF;
2149: d_progress := '000';
2150:
2151: IF (g_debug_stmt) THEN
2152: PO_DEBUG.debug_begin(d_module);
2153: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2154: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2155: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2156: END IF;
2157:
2150:
2151: IF (g_debug_stmt) THEN
2152: PO_DEBUG.debug_begin(d_module);
2153: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2154: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2155: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2156: END IF;
2157:
2158: d_progress := '020';
2151: IF (g_debug_stmt) THEN
2152: PO_DEBUG.debug_begin(d_module);
2153: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2154: PO_DEBUG.debug_var(d_module, d_progress, 'p_line_loc_id', p_line_loc_id);
2155: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2156: END IF;
2157:
2158: d_progress := '020';
2159:
2215:
2216: d_progress := '120';
2217:
2218: IF (g_debug_stmt) THEN
2219: PO_DEBUG.debug_stmt(d_module, d_progress, 'Got schedule line. line_location_id=' || TO_CHAR(l_otm_schedule_line.line_location_id));
2220: END IF;
2221:
2222: x_otm_doc.schedule_lines.extend;
2223: x_otm_doc.schedule_lines(l_count) := l_otm_schedule_line;
2235:
2236: d_progress := '070';
2237:
2238: IF (g_debug_stmt) THEN
2239: PO_DEBUG.debug_end(d_module);
2240: END IF;
2241:
2242: EXCEPTION
2243: WHEN OTHERS THEN
2241:
2242: EXCEPTION
2243: WHEN OTHERS THEN
2244: IF (g_debug_stmt) THEN
2245: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
2246: END IF;
2247: RAISE;
2248:
2249: END get_release_for_status_change;
2264:
2265: d_progress := '000';
2266:
2267: IF (g_debug_stmt) THEN
2268: PO_DEBUG.debug_begin(d_module);
2269: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2270: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
2271: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2272: END IF;
2265: d_progress := '000';
2266:
2267: IF (g_debug_stmt) THEN
2268: PO_DEBUG.debug_begin(d_module);
2269: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2270: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
2271: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2272: END IF;
2273:
2266:
2267: IF (g_debug_stmt) THEN
2268: PO_DEBUG.debug_begin(d_module);
2269: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2270: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
2271: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2272: END IF;
2273:
2274: d_progress := '020';
2267: IF (g_debug_stmt) THEN
2268: PO_DEBUG.debug_begin(d_module);
2269: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
2270: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_revision', p_doc_revision);
2271: PO_DEBUG.debug_var(d_module, d_progress, 'p_blanket_revision', p_blanket_revision);
2272: END IF;
2273:
2274: d_progress := '020';
2275:
2296:
2297: d_progress := '030';
2298:
2299: IF (g_debug_stmt) THEN
2300: PO_DEBUG.debug_end(d_module);
2301: END IF;
2302:
2303: EXCEPTION
2304: WHEN NO_DATA_FOUND THEN
2302:
2303: EXCEPTION
2304: WHEN NO_DATA_FOUND THEN
2305: IF (g_debug_stmt) THEN
2306: PO_DEBUG.debug_unexp(d_module, d_progress, 'No data found. This probably means that archive-on-approve is off.');
2307: END IF;
2308: RAISE;
2309:
2310: WHEN OTHERS THEN
2308: RAISE;
2309:
2310: WHEN OTHERS THEN
2311: IF (g_debug_stmt) THEN
2312: PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception retrieving document');
2313: END IF;
2314: RAISE;
2315:
2316: END get_held_release;
2329:
2330: d_progress := '000';
2331:
2332: IF (g_debug_stmt) THEN
2333: PO_DEBUG.debug_begin(d_module);
2334: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2335: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.org_location_id', x_otm_doc.org_location_id);
2336: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.bill_to_location_id', x_otm_doc.bill_to_location_id);
2337: END IF;
2330: d_progress := '000';
2331:
2332: IF (g_debug_stmt) THEN
2333: PO_DEBUG.debug_begin(d_module);
2334: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2335: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.org_location_id', x_otm_doc.org_location_id);
2336: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.bill_to_location_id', x_otm_doc.bill_to_location_id);
2337: END IF;
2338:
2331:
2332: IF (g_debug_stmt) THEN
2333: PO_DEBUG.debug_begin(d_module);
2334: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2335: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.org_location_id', x_otm_doc.org_location_id);
2336: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.bill_to_location_id', x_otm_doc.bill_to_location_id);
2337: END IF;
2338:
2339: d_progress := '100';
2332: IF (g_debug_stmt) THEN
2333: PO_DEBUG.debug_begin(d_module);
2334: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2335: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.org_location_id', x_otm_doc.org_location_id);
2336: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.bill_to_location_id', x_otm_doc.bill_to_location_id);
2337: END IF;
2338:
2339: d_progress := '100';
2340:
2386:
2387: d_progress := '200';
2388:
2389: IF (g_debug_stmt) THEN
2390: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.org_loc_addr_line_1', x_otm_doc.org_loc_addr_line_1);
2391: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.bill_to_addr_line_1', x_otm_doc.bill_to_addr_line_1);
2392: PO_DEBUG.debug_end(d_module);
2393: END IF;
2394:
2387: d_progress := '200';
2388:
2389: IF (g_debug_stmt) THEN
2390: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.org_loc_addr_line_1', x_otm_doc.org_loc_addr_line_1);
2391: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.bill_to_addr_line_1', x_otm_doc.bill_to_addr_line_1);
2392: PO_DEBUG.debug_end(d_module);
2393: END IF;
2394:
2395: EXCEPTION
2388:
2389: IF (g_debug_stmt) THEN
2390: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.org_loc_addr_line_1', x_otm_doc.org_loc_addr_line_1);
2391: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.bill_to_addr_line_1', x_otm_doc.bill_to_addr_line_1);
2392: PO_DEBUG.debug_end(d_module);
2393: END IF;
2394:
2395: EXCEPTION
2396: WHEN OTHERS THEN
2394:
2395: EXCEPTION
2396: WHEN OTHERS THEN
2397: IF (g_debug_stmt) THEN
2398: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected exception');
2399: END IF;
2400:
2401: END populate_address_info;
2402:
2415:
2416: d_progress := '000';
2417:
2418: IF (g_debug_stmt) THEN
2419: PO_DEBUG.debug_begin(d_module);
2420: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2421: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.line_location_id', x_otm_sched_line.line_location_id);
2422: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_id', x_otm_sched_line.ship_to_location_id);
2423: END IF;
2416: d_progress := '000';
2417:
2418: IF (g_debug_stmt) THEN
2419: PO_DEBUG.debug_begin(d_module);
2420: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2421: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.line_location_id', x_otm_sched_line.line_location_id);
2422: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_id', x_otm_sched_line.ship_to_location_id);
2423: END IF;
2424:
2417:
2418: IF (g_debug_stmt) THEN
2419: PO_DEBUG.debug_begin(d_module);
2420: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2421: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.line_location_id', x_otm_sched_line.line_location_id);
2422: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_id', x_otm_sched_line.ship_to_location_id);
2423: END IF;
2424:
2425: d_progress := '100';
2418: IF (g_debug_stmt) THEN
2419: PO_DEBUG.debug_begin(d_module);
2420: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_doc.po_header_id', x_otm_doc.po_header_id);
2421: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.line_location_id', x_otm_sched_line.line_location_id);
2422: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_id', x_otm_sched_line.ship_to_location_id);
2423: END IF;
2424:
2425: d_progress := '100';
2426:
2482: d_progress := '220';
2483: END IF;
2484:
2485: IF (g_debug_stmt) THEN
2486: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_loc_addr_line_1',
2487: x_otm_sched_line.ship_to_loc_addr_line_1);
2488: PO_DEBUG.debug_end(d_module);
2489: END IF;
2490:
2484:
2485: IF (g_debug_stmt) THEN
2486: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_loc_addr_line_1',
2487: x_otm_sched_line.ship_to_loc_addr_line_1);
2488: PO_DEBUG.debug_end(d_module);
2489: END IF;
2490:
2491: EXCEPTION
2492: WHEN OTHERS THEN
2490:
2491: EXCEPTION
2492: WHEN OTHERS THEN
2493: IF (g_debug_stmt) THEN
2494: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected exception');
2495: END IF;
2496:
2497: END populate_address_info;
2498:
2514:
2515: d_progress := '000';
2516:
2517: IF (g_debug_stmt) THEN
2518: PO_DEBUG.debug_begin(d_module);
2519: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.line_location_id', x_otm_sched_line.line_location_id);
2520: END IF;
2521:
2522: d_progress := '010';
2515: d_progress := '000';
2516:
2517: IF (g_debug_stmt) THEN
2518: PO_DEBUG.debug_begin(d_module);
2519: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.line_location_id', x_otm_sched_line.line_location_id);
2520: END IF;
2521:
2522: d_progress := '010';
2523:
2555:
2556: d_progress := '130';
2557:
2558: IF (g_debug_stmt) THEN
2559: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_code', x_otm_sched_line.ship_to_location_code);
2560: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_name', x_otm_sched_line.ship_to_contact_name);
2561: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_email', x_otm_sched_line.ship_to_contact_email);
2562: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_phone', x_otm_sched_line.ship_to_contact_phone);
2563: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_fax', x_otm_sched_line.ship_to_contact_fax);
2556: d_progress := '130';
2557:
2558: IF (g_debug_stmt) THEN
2559: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_code', x_otm_sched_line.ship_to_location_code);
2560: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_name', x_otm_sched_line.ship_to_contact_name);
2561: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_email', x_otm_sched_line.ship_to_contact_email);
2562: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_phone', x_otm_sched_line.ship_to_contact_phone);
2563: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_fax', x_otm_sched_line.ship_to_contact_fax);
2564: PO_DEBUG.debug_end(d_module);
2557:
2558: IF (g_debug_stmt) THEN
2559: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_code', x_otm_sched_line.ship_to_location_code);
2560: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_name', x_otm_sched_line.ship_to_contact_name);
2561: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_email', x_otm_sched_line.ship_to_contact_email);
2562: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_phone', x_otm_sched_line.ship_to_contact_phone);
2563: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_fax', x_otm_sched_line.ship_to_contact_fax);
2564: PO_DEBUG.debug_end(d_module);
2565: END IF;
2558: IF (g_debug_stmt) THEN
2559: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_code', x_otm_sched_line.ship_to_location_code);
2560: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_name', x_otm_sched_line.ship_to_contact_name);
2561: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_email', x_otm_sched_line.ship_to_contact_email);
2562: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_phone', x_otm_sched_line.ship_to_contact_phone);
2563: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_fax', x_otm_sched_line.ship_to_contact_fax);
2564: PO_DEBUG.debug_end(d_module);
2565: END IF;
2566:
2559: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_location_code', x_otm_sched_line.ship_to_location_code);
2560: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_name', x_otm_sched_line.ship_to_contact_name);
2561: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_email', x_otm_sched_line.ship_to_contact_email);
2562: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_phone', x_otm_sched_line.ship_to_contact_phone);
2563: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_fax', x_otm_sched_line.ship_to_contact_fax);
2564: PO_DEBUG.debug_end(d_module);
2565: END IF;
2566:
2567:
2560: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_name', x_otm_sched_line.ship_to_contact_name);
2561: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_email', x_otm_sched_line.ship_to_contact_email);
2562: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_phone', x_otm_sched_line.ship_to_contact_phone);
2563: PO_DEBUG.debug_var(d_module, d_progress, 'x_otm_sched_line.ship_to_contact_fax', x_otm_sched_line.ship_to_contact_fax);
2564: PO_DEBUG.debug_end(d_module);
2565: END IF;
2566:
2567:
2568: d_progress := '140';
2569:
2570: EXCEPTION
2571: WHEN OTHERS THEN
2572: IF (g_debug_stmt) THEN
2573: PO_DEBUG.debug_unexp(d_module, d_progress, d_log_msg);
2574: END IF;
2575: RAISE;
2576:
2577: END populate_drop_ship_info;
2601:
2602: d_progress := '000';
2603:
2604: IF (g_debug_stmt) THEN
2605: PO_DEBUG.debug_begin(d_module);
2606: END IF;
2607:
2608: -- Process POs
2609:
2617:
2618: d_progress := '010';
2619:
2620: IF (g_debug_stmt) THEN
2621: PO_DEBUG.debug_var(d_module, d_progress, 'failed order count', l_failed_doc_tbl.COUNT);
2622: END IF;
2623:
2624:
2625: FOR i IN 1..l_failed_doc_tbl.COUNT LOOP
2626:
2627: d_progress := '015';
2628:
2629: IF (g_debug_stmt) THEN
2630: PO_DEBUG.debug_stmt(d_module, d_progress, 'processing headerid = ' || l_failed_doc_tbl(i));
2631: END IF;
2632:
2633: -- Reset the recovery status
2634: update_order_otm_status
2673:
2674: CLOSE c_get_failed_releases;
2675:
2676: IF (g_debug_stmt) THEN
2677: PO_DEBUG.debug_var(d_module, d_progress, 'failed release count', l_failed_doc_tbl.COUNT);
2678: END IF;
2679:
2680: FOR i IN 1..l_failed_doc_tbl.COUNT LOOP
2681:
2681:
2682: d_progress := '060';
2683:
2684: IF (g_debug_stmt) THEN
2685: PO_DEBUG.debug_stmt(d_module, d_progress, 'processing releaseid = ' || l_failed_doc_tbl(i));
2686: END IF;
2687:
2688: -- Reset recovery status
2689: update_order_otm_status
2718:
2719: COMMIT;
2720:
2721: IF (g_debug_stmt) THEN
2722: PO_DEBUG.debug_end(d_module);
2723: END IF;
2724:
2725: EXCEPTION
2726: WHEN OTHERS THEN
2724:
2725: EXCEPTION
2726: WHEN OTHERS THEN
2727: IF (g_debug_stmt) THEN
2728: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected error: ' || SQLERRM);
2729: END IF;
2730: RAISE;
2731:
2732: END recover_failed_docs;
2774:
2775: d_progress := '000';
2776:
2777: IF (g_debug_stmt) THEN
2778: PO_DEBUG.debug_begin(d_module);
2779: END IF;
2780:
2781: SELECT POH.po_header_id,
2782: POH.segment1,
2814: x_otm_doc.recovery_action := 'OPEN';
2815: END IF;
2816:
2817: IF (g_debug_stmt) THEN
2818: PO_DEBUG.debug_var(d_module, d_progress, 'header recovery action', x_otm_doc.recovery_action);
2819: END IF;
2820:
2821:
2822: d_progress := '020';
2852:
2853: d_progress := '040';
2854:
2855: IF (g_debug_stmt) THEN
2856: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
2857: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
2858: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
2859: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
2860: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
2853: d_progress := '040';
2854:
2855: IF (g_debug_stmt) THEN
2856: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
2857: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
2858: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
2859: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
2860: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
2861: END IF;
2854:
2855: IF (g_debug_stmt) THEN
2856: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
2857: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
2858: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
2859: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
2860: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
2861: END IF;
2862:
2855: IF (g_debug_stmt) THEN
2856: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
2857: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
2858: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
2859: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
2860: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
2861: END IF;
2862:
2863: d_progress := '050';
2856: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
2857: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
2858: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
2859: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
2860: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
2861: END IF;
2862:
2863: d_progress := '050';
2864: x_otm_doc.schedule_lines.extend;
2873:
2874: d_progress := '060';
2875:
2876: IF (g_debug_stmt) THEN
2877: PO_DEBUG.debug_begin(d_module);
2878: END IF;
2879:
2880: EXCEPTION
2881: WHEN OTHERS THEN
2879:
2880: EXCEPTION
2881: WHEN OTHERS THEN
2882: IF (g_debug_stmt) THEN
2883: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected error: ' || SQLERRM);
2884: END IF;
2885: RAISE;
2886:
2887: END get_recovering_order;
2932:
2933: d_progress := '000';
2934:
2935: IF (g_debug_stmt) THEN
2936: PO_DEBUG.debug_begin(d_module);
2937: END IF;
2938:
2939: SELECT POH.po_header_id,
2940: POR.po_release_id,
2978: x_otm_doc.recovery_action := 'OPEN';
2979: END IF;
2980:
2981: IF (g_debug_stmt) THEN
2982: PO_DEBUG.debug_var(d_module, d_progress, 'header recovery action', x_otm_doc.recovery_action);
2983: END IF;
2984:
2985: d_progress := '020';
2986:
3016:
3017: d_progress := '040';
3018:
3019: IF (g_debug_stmt) THEN
3020: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
3021: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
3022: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
3023: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
3024: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
3017: d_progress := '040';
3018:
3019: IF (g_debug_stmt) THEN
3020: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
3021: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
3022: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
3023: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
3024: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
3025: END IF;
3018:
3019: IF (g_debug_stmt) THEN
3020: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
3021: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
3022: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
3023: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
3024: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
3025: END IF;
3026:
3019: IF (g_debug_stmt) THEN
3020: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
3021: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
3022: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
3023: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
3024: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
3025: END IF;
3026:
3027: d_progress := '050';
3020: PO_DEBUG.debug_stmt(d_module, d_progress, 'Adding line information');
3021: PO_DEBUG.debug_var(d_module, d_progress, 'otm line', l_count);
3022: PO_DEBUG.debug_var(d_module, d_progress, 'line_recovery_action',l_otm_schedule_line.recovery_action);
3023: PO_DEBUG.debug_var(d_module, d_progress, 'po_line_id', l_otm_schedule_line.po_line_id);
3024: PO_DEBUG.debug_var(d_module, d_progress, 'line_location_id', l_otm_schedule_line.line_location_id);
3025: END IF;
3026:
3027: d_progress := '050';
3028: x_otm_doc.schedule_lines.extend;
3035:
3036: d_progress := '060';
3037:
3038: IF (g_debug_stmt) THEN
3039: PO_DEBUG.debug_begin(d_module);
3040: END IF;
3041:
3042: EXCEPTION
3043: WHEN OTHERS THEN
3041:
3042: EXCEPTION
3043: WHEN OTHERS THEN
3044: IF (g_debug_stmt) THEN
3045: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected error: ' || SQLERRM);
3046: END IF;
3047: RAISE;
3048:
3049: END get_recovering_release;
3063:
3064: d_progress := '000';
3065:
3066: IF (g_debug_stmt) THEN
3067: PO_DEBUG.debug_begin(d_module);
3068: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
3069: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
3070: PO_DEBUG.debug_var(d_module, d_progress, 'p_order_otm_status', p_order_otm_status);
3071: PO_DEBUG.debug_var(d_module, d_progress, 'p_otm_recovery_flag', p_otm_recovery_flag);
3064: d_progress := '000';
3065:
3066: IF (g_debug_stmt) THEN
3067: PO_DEBUG.debug_begin(d_module);
3068: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
3069: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
3070: PO_DEBUG.debug_var(d_module, d_progress, 'p_order_otm_status', p_order_otm_status);
3071: PO_DEBUG.debug_var(d_module, d_progress, 'p_otm_recovery_flag', p_otm_recovery_flag);
3072: END IF;
3065:
3066: IF (g_debug_stmt) THEN
3067: PO_DEBUG.debug_begin(d_module);
3068: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
3069: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
3070: PO_DEBUG.debug_var(d_module, d_progress, 'p_order_otm_status', p_order_otm_status);
3071: PO_DEBUG.debug_var(d_module, d_progress, 'p_otm_recovery_flag', p_otm_recovery_flag);
3072: END IF;
3073:
3066: IF (g_debug_stmt) THEN
3067: PO_DEBUG.debug_begin(d_module);
3068: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
3069: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
3070: PO_DEBUG.debug_var(d_module, d_progress, 'p_order_otm_status', p_order_otm_status);
3071: PO_DEBUG.debug_var(d_module, d_progress, 'p_otm_recovery_flag', p_otm_recovery_flag);
3072: END IF;
3073:
3074: -- For p_otm_recovery_flag, we accept the following statuses
3067: PO_DEBUG.debug_begin(d_module);
3068: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_id', p_doc_id);
3069: PO_DEBUG.debug_var(d_module, d_progress, 'p_doc_type', p_doc_type);
3070: PO_DEBUG.debug_var(d_module, d_progress, 'p_order_otm_status', p_order_otm_status);
3071: PO_DEBUG.debug_var(d_module, d_progress, 'p_otm_recovery_flag', p_otm_recovery_flag);
3072: END IF;
3073:
3074: -- For p_otm_recovery_flag, we accept the following statuses
3075: -- 'Y': Set the flag to 'Y'
3096:
3097: d_progress := '010';
3098:
3099: IF (g_debug_stmt) THEN
3100: PO_DEBUG.debug_begin(d_module);
3101: END IF;
3102:
3103: EXCEPTION
3104: WHEN OTHERS THEN
3102:
3103: EXCEPTION
3104: WHEN OTHERS THEN
3105: IF (g_debug_stmt) THEN
3106: PO_DEBUG.debug_unexp(d_module, d_progress, 'Unexpected error: ' || SQLERRM);
3107: END IF;
3108: RAISE;
3109:
3110: END update_order_otm_status;