[Home] [Help]
5:
6: --
7: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.' || g_pkg_name || '.';
8:
9: g_debug_stmt BOOLEAN := PO_DEBUG.is_debug_stmt_on;
10:
11: g_debug_unexp BOOLEAN := PO_DEBUG.is_debug_unexp_on;
12: --
13: g_root_invoking_module VARCHAR2(30); --
7: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.' || g_pkg_name || '.';
8:
9: g_debug_stmt BOOLEAN := PO_DEBUG.is_debug_stmt_on;
10:
11: g_debug_unexp BOOLEAN := PO_DEBUG.is_debug_unexp_on;
12: --
13: g_root_invoking_module VARCHAR2(30); --
14: -------------------------------------------------------------------------------
15: --Start of Comments
131: l_log_head CONSTANT VARCHAR2(100) := g_log_head||'autosource';
132: BEGIN
133:
134: IF g_debug_stmt THEN
135: PO_DEBUG.debug_begin(l_log_head);
136: PO_DEBUG.debug_var(l_log_head,l_progress,'x_mode', x_mode);
137: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
138: PO_DEBUG.debug_var(l_log_head,l_progress,'x_commodity_id', x_commodity_id);
139: PO_DEBUG.debug_var(l_log_head,l_progress,'x_dest_organization_id', x_dest_organization_id);
132: BEGIN
133:
134: IF g_debug_stmt THEN
135: PO_DEBUG.debug_begin(l_log_head);
136: PO_DEBUG.debug_var(l_log_head,l_progress,'x_mode', x_mode);
137: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
138: PO_DEBUG.debug_var(l_log_head,l_progress,'x_commodity_id', x_commodity_id);
139: PO_DEBUG.debug_var(l_log_head,l_progress,'x_dest_organization_id', x_dest_organization_id);
140: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
133:
134: IF g_debug_stmt THEN
135: PO_DEBUG.debug_begin(l_log_head);
136: PO_DEBUG.debug_var(l_log_head,l_progress,'x_mode', x_mode);
137: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
138: PO_DEBUG.debug_var(l_log_head,l_progress,'x_commodity_id', x_commodity_id);
139: PO_DEBUG.debug_var(l_log_head,l_progress,'x_dest_organization_id', x_dest_organization_id);
140: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
141: END IF;
134: IF g_debug_stmt THEN
135: PO_DEBUG.debug_begin(l_log_head);
136: PO_DEBUG.debug_var(l_log_head,l_progress,'x_mode', x_mode);
137: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
138: PO_DEBUG.debug_var(l_log_head,l_progress,'x_commodity_id', x_commodity_id);
139: PO_DEBUG.debug_var(l_log_head,l_progress,'x_dest_organization_id', x_dest_organization_id);
140: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
141: END IF;
142:
135: PO_DEBUG.debug_begin(l_log_head);
136: PO_DEBUG.debug_var(l_log_head,l_progress,'x_mode', x_mode);
137: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
138: PO_DEBUG.debug_var(l_log_head,l_progress,'x_commodity_id', x_commodity_id);
139: PO_DEBUG.debug_var(l_log_head,l_progress,'x_dest_organization_id', x_dest_organization_id);
140: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
141: END IF;
142:
143: l_progress := '001';
136: PO_DEBUG.debug_var(l_log_head,l_progress,'x_mode', x_mode);
137: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
138: PO_DEBUG.debug_var(l_log_head,l_progress,'x_commodity_id', x_commodity_id);
139: PO_DEBUG.debug_var(l_log_head,l_progress,'x_dest_organization_id', x_dest_organization_id);
140: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
141: END IF;
142:
143: l_progress := '001';
144:
186:
187: x_item_buyer_id := x_buyer_id; -- FPI GA
188:
189: IF g_debug_stmt THEN
190: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_buyer_id', x_item_buyer_id);
191: END IF;
192:
193: EXCEPTION
194: WHEN NO_DATA_FOUND THEN
228: IF (x_mode IN ('VENDOR', 'INVENTORY', 'BOTH')) THEN
229:
230: l_progress := '030';
231: IF g_debug_stmt THEN
232: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling MRP Sourcing API');
233: END IF;
234:
235: --
236: --
270: --
271:
272: l_progress := '040';
273: IF g_debug_stmt THEN
274: --PO_DEBUG.debug_var(l_log_head,l_progress,'MRP API return status', l_return_status);
275: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
276: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_code', l_vendor_site_code);
277: PO_DEBUG.debug_var(l_log_head,l_progress,'x_source_organization_id', x_source_organization_id);
278: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sourcing_rule_id', x_sourcing_rule_id);
271:
272: l_progress := '040';
273: IF g_debug_stmt THEN
274: --PO_DEBUG.debug_var(l_log_head,l_progress,'MRP API return status', l_return_status);
275: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
276: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_code', l_vendor_site_code);
277: PO_DEBUG.debug_var(l_log_head,l_progress,'x_source_organization_id', x_source_organization_id);
278: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sourcing_rule_id', x_sourcing_rule_id);
279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_error_message', x_error_message);
272: l_progress := '040';
273: IF g_debug_stmt THEN
274: --PO_DEBUG.debug_var(l_log_head,l_progress,'MRP API return status', l_return_status);
275: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
276: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_code', l_vendor_site_code);
277: PO_DEBUG.debug_var(l_log_head,l_progress,'x_source_organization_id', x_source_organization_id);
278: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sourcing_rule_id', x_sourcing_rule_id);
279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_error_message', x_error_message);
280: END IF;
273: IF g_debug_stmt THEN
274: --PO_DEBUG.debug_var(l_log_head,l_progress,'MRP API return status', l_return_status);
275: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
276: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_code', l_vendor_site_code);
277: PO_DEBUG.debug_var(l_log_head,l_progress,'x_source_organization_id', x_source_organization_id);
278: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sourcing_rule_id', x_sourcing_rule_id);
279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_error_message', x_error_message);
280: END IF;
281:
274: --PO_DEBUG.debug_var(l_log_head,l_progress,'MRP API return status', l_return_status);
275: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
276: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_code', l_vendor_site_code);
277: PO_DEBUG.debug_var(l_log_head,l_progress,'x_source_organization_id', x_source_organization_id);
278: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sourcing_rule_id', x_sourcing_rule_id);
279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_error_message', x_error_message);
280: END IF;
281:
282: l_progress := '045';
275: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
276: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_code', l_vendor_site_code);
277: PO_DEBUG.debug_var(l_log_head,l_progress,'x_source_organization_id', x_source_organization_id);
278: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sourcing_rule_id', x_sourcing_rule_id);
279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_error_message', x_error_message);
280: END IF;
281:
282: l_progress := '045';
283: IF NOT l_return_code THEN
282: l_progress := '045';
283: IF NOT l_return_code THEN
284: x_error_message := FND_MESSAGE.get;
285: IF g_debug_stmt THEN
286: PO_DEBUG.debug_var(l_log_head,l_progress,'x_error_message', x_error_message);
287: END IF;
288: END IF;
289:
290: --
292: IF (l_return_code
293: AND x_mode IN ('VENDOR', 'BOTH')) THEN
294:
295: IF g_debug_stmt THEN
296: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Document Sourcing');
297: END IF;
298:
299: --
300: --The document sourcing will also do vendor site_id sourcing
333: --
334: );
335: l_progress := '050';
336: IF g_debug_stmt THEN
337: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
338: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
339: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
340: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
341: END IF;
334: );
335: l_progress := '050';
336: IF g_debug_stmt THEN
337: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
338: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
339: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
340: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
341: END IF;
342:
335: l_progress := '050';
336: IF g_debug_stmt THEN
337: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
338: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
339: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
340: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
341: END IF;
342:
343:
336: IF g_debug_stmt THEN
337: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
338: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
339: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
340: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
341: END IF;
342:
343:
344: IF l_vendor_site_code is NOT NULL
344: IF l_vendor_site_code is NOT NULL
345: AND x_vendor_site_id is NULL THEN
346:
347: IF g_debug_stmt THEN
348: PO_DEBUG.debug_stmt(l_log_head,l_progress,
349: 'No Source Doc found, getting site from current OU');
350: END IF;
351:
352: BEGIN
372: ELSIF x_mode = 'DOCUMENT' THEN
373:
374: l_progress := '070';
375: IF g_debug_stmt THEN
376: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Document Sourcing');
377: END IF;
378: --
379: --In DOCUMENT mode we do not need to vendor site sourcing.
380: --It is assumed that vendor_site_id is valid. The vendor_site_sourcing_flag is set to N
413: p_style_id => p_style_id
414: --
415: );
416: IF g_debug_stmt THEN
417: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
421: END IF;
414: --
415: );
416: IF g_debug_stmt THEN
417: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
421: END IF;
422: --
415: );
416: IF g_debug_stmt THEN
417: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
421: END IF;
422: --
423:
416: IF g_debug_stmt THEN
417: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document Sourcing Returned');
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
421: END IF;
422: --
423:
424: l_progress := '080';
453: END IF;
454: /* FPI GA end */
455: l_progress := '110';
456: IF g_debug_stmt THEN
457: PO_DEBUG.debug_end(l_log_head);
458: END IF;
459: -- Bug 2836540 START
460: EXCEPTION
461: WHEN OTHERS THEN
459: -- Bug 2836540 START
460: EXCEPTION
461: WHEN OTHERS THEN
462: IF g_debug_unexp THEN
463: PO_DEBUG.debug_exc(l_log_head,l_progress);
464: END IF;
465: PO_MESSAGE_S.SQL_ERROR('AUTOSOURCE', l_progress, sqlcode);
466: -- Bug 2836540 END
467: END autosource;
788:
789: --
790: -- Get the item-based ASL if item_id exists
791: IF g_debug_stmt THEN
792: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
793: p_token => l_progress,
794: p_message => 'Look for item-based ASL first...');
795: END IF;
796:
813: END IF;
814:
815: l_progress := '020';
816: IF g_debug_stmt THEN
817: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
818: p_token => l_progress,
819: p_message => 'Item-based asl id: '||x_asl_id);
820: END IF;
821:
825: l_item_based_asl := 'N';
826:
827: l_progress := '025';
828: IF g_debug_stmt THEN
829: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
830: p_token => l_progress,
831: p_message => 'Look for category-based asl');
832: END IF;
833:
849: END IF;
850:
851: l_progress := '030';
852: IF g_debug_stmt THEN
853: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
854: p_token => l_progress,
855: p_message => 'Category-based asl_id: '||x_asl_id);
856: END IF;
857: --
1080: BEGIN
1081: l_progress := '010';
1082:
1083: IF g_debug_stmt THEN
1084: PO_DEBUG.debug_begin(l_log_head);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1081: l_progress := '010';
1082:
1083: IF g_debug_stmt THEN
1084: PO_DEBUG.debug_begin(l_log_head);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1082:
1083: IF g_debug_stmt THEN
1084: PO_DEBUG.debug_begin(l_log_head);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1083: IF g_debug_stmt THEN
1084: PO_DEBUG.debug_begin(l_log_head);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1084: PO_DEBUG.debug_begin(l_log_head);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1093:
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1093:
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1093:
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1089: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1093:
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1093:
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1093:
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1093:
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1093:
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1102:
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1102:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1102:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1098: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1102:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1102:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1102:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1102:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1102:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1111: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1111: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1112: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1111: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1112: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1113: END IF;
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1111: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1112: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1113: END IF;
1114:
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1111: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1112: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1113: END IF;
1114:
1115:
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1111: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1112: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1113: END IF;
1114:
1115:
1116:
1188: IF p_vendor_site_code is NOT NULL
1189: AND x_vendor_site_id is NULL THEN
1190:
1191: IF g_debug_stmt THEN
1192: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Doing Local Doc Sourcing');
1193: END IF;
1194:
1195: BEGIN
1196: SELECT vendor_site_id
1227: END IF;
1228: END IF;
1229:
1230: IF g_debug_stmt THEN
1231: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
1232: p_token => l_progress,
1233: p_message => 'Return Contract? '||l_return_contract);
1234: END IF;
1235: --
1240: fnd_profile.get('PO_AUTO_SOURCE_DOC', x_auto_source_doc);
1241: IF nvl(x_auto_source_doc, 'N') = 'N' THEN
1242: l_progress := '060';
1243: IF g_debug_stmt THEN
1244: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Looking at ASLs for Sourcing');
1245: END IF;
1246:
1247: Get_document_from_asl(
1248: x_item_id =>x_item_id,
1279: l_progress := '070';
1280: ELSE
1281: l_progress := '080';
1282: IF g_debug_stmt THEN
1283: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Looking at Latest Documents for Sourcing');
1284: END IF;
1285:
1286: Get_latest_document(
1287: x_item_id =>x_item_id,
1340: --
1341: l_progress := '110';
1342:
1343: IF g_debug_stmt THEN
1344: PO_DEBUG.debug_end(l_log_head);
1345: END IF;
1346:
1347: EXCEPTION
1348: WHEN OTHERS THEN
1346:
1347: EXCEPTION
1348: WHEN OTHERS THEN
1349: IF g_debug_unexp THEN
1350: PO_DEBUG.debug_exc(l_log_head,l_progress);
1351: END IF;
1352:
1353: PO_MESSAGE_S.SQL_ERROR('Document_sourcing', l_progress, sqlcode);
1354: END document_sourcing;
1823: IF p_vendor_site_sourcing_flag = 'N' THEN
1824: l_progress := '020';
1825:
1826: IF g_debug_stmt THEN
1827: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling get_asl_info');
1828: END IF;
1829: --This call does not require vendor site sourcing
1830: --so do existing call to get local_asl_id
1831: get_asl_info(x_item_id => x_item_id,
1838: p_category_id => p_category_id --
1839: );
1840:
1841: IF g_debug_stmt THEN
1842: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
1843: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1844: END IF;
1845:
1846: ELSE
1839: );
1840:
1841: IF g_debug_stmt THEN
1842: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
1843: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1844: END IF;
1845:
1846: ELSE
1847: l_progress := '030';
1846: ELSE
1847: l_progress := '030';
1848:
1849: IF g_debug_stmt THEN
1850: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling asl_sourcing');
1851: END IF;
1852: --This procedure does the sourcing of document based on ASL
1853: --This returns asl_id to use. Optionally it returns sequence_number
1854: --of GA to be used if the ASL is from different OU
1871: p_category_id => p_category_id --
1872: );
1873:
1874: IF g_debug_stmt THEN
1875: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1876: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1877: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1878: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1879: END IF;
1872: );
1873:
1874: IF g_debug_stmt THEN
1875: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1876: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1877: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1878: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1879: END IF;
1880:
1873:
1874: IF g_debug_stmt THEN
1875: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1876: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1877: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1878: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1879: END IF;
1880:
1881: IF (x_local_asl_id IS NULL
1874: IF g_debug_stmt THEN
1875: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1876: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1877: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1878: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1879: END IF;
1880:
1881: IF (x_local_asl_id IS NULL
1882: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
1882: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
1883:
1884: l_progress := '040';
1885: IF g_debug_stmt THEN
1886: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling asl_sourcing with sysdate');
1887: END IF;
1888: --Call ASL_SOURCING again this time passing SYSDATE as SOURCING_DATE
1889: x_sourcing_date := trunc(sysdate);
1890: asl_sourcing(
1906: p_category_id => p_category_id --
1907: );
1908:
1909: IF g_debug_stmt THEN
1910: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1911: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1912: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1913: l_using_organization_id);
1914: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1907: );
1908:
1909: IF g_debug_stmt THEN
1910: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1911: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1912: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1913: l_using_organization_id);
1914: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1915: END IF;
1908:
1909: IF g_debug_stmt THEN
1910: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1911: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1912: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1913: l_using_organization_id);
1914: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1915: END IF;
1916: END IF;
1910: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1911: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1912: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1913: l_using_organization_id);
1914: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1915: END IF;
1916: END IF;
1917: END IF;
1918: else
2004:
2005: --
2006: -- Validate whether the Sourced Docuemnt is Style Compatible
2007: IF g_debug_stmt THEN
2008: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2009: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2010: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2011: END IF;
2012:
2005: --
2006: -- Validate whether the Sourced Docuemnt is Style Compatible
2007: IF g_debug_stmt THEN
2008: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2009: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2010: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2011: END IF;
2012:
2013: l_eligible_doc_flag := TRUE;
2006: -- Validate whether the Sourced Docuemnt is Style Compatible
2007: IF g_debug_stmt THEN
2008: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2009: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2010: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2011: END IF;
2012:
2013: l_eligible_doc_flag := TRUE;
2014:
2021: AND p_style_id IS NULL then
2022:
2023: l_eligible_doc_flag := TRUE;
2024: IF g_debug_stmt THEN
2025: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
2026: END IF;
2027:
2028: else --if attributes are passed then do style validation checks
2029:
2027:
2028: else --if attributes are passed then do style validation checks
2029:
2030: IF g_debug_stmt THEN
2031: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
2032: END IF;
2033:
2034: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
2035: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
2049:
2050: if l_return_status <> FND_API.g_ret_sts_success THEN
2051: l_eligible_doc_flag := FALSE;
2052: IF g_debug_stmt THEN
2053: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation failed');
2054: END IF;
2055: end if;
2056: end if;
2057:
2067:
2068: --
2069: if l_eligible_doc_flag then --
2070: IF g_debug_stmt THEN
2071: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation passed 1');
2072: END IF;
2073: --
2074: --For category-based ASL, the only valid document type is contract
2075: IF l_item_based_asl = 'N' THEN
2089: END IF;
2090: END IF; --vendor_site_sourcing_flag check
2091: END IF; --global flag check
2092: IF g_debug_stmt THEN
2093: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2094: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2097: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2090: END IF; --vendor_site_sourcing_flag check
2091: END IF; --global flag check
2092: IF g_debug_stmt THEN
2093: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2094: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2097: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2098: END IF;
2091: END IF; --global flag check
2092: IF g_debug_stmt THEN
2093: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2094: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2097: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2098: END IF;
2099: --
2092: IF g_debug_stmt THEN
2093: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2094: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2097: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2098: END IF;
2099: --
2100: EXIT;
2093: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2094: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2097: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2098: END IF;
2099: --
2100: EXIT;
2101: END IF; --doc type checkc
2116:
2117: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2118: l_progress := '070';
2119: IF g_debug_stmt THEN
2120: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2121: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2122: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2123: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2124: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2117: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2118: l_progress := '070';
2119: IF g_debug_stmt THEN
2120: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2121: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2122: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2123: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2124: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2125: END IF;
2118: l_progress := '070';
2119: IF g_debug_stmt THEN
2120: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2121: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2122: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2123: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2124: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2125: END IF;
2126:
2119: IF g_debug_stmt THEN
2120: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2121: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2122: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2123: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2124: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2125: END IF;
2126:
2127: exit;
2120: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2121: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2122: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2123: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2124: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2125: END IF;
2126:
2127: exit;
2128: END IF;
2204:
2205: --
2206: -- Validate whether the Sourced Docuemnt is Style Compatible
2207: IF g_debug_stmt THEN
2208: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2209: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2210: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2211: END IF;
2212: l_eligible_doc_flag := TRUE;
2205: --
2206: -- Validate whether the Sourced Docuemnt is Style Compatible
2207: IF g_debug_stmt THEN
2208: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2209: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2210: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2211: END IF;
2212: l_eligible_doc_flag := TRUE;
2213:
2206: -- Validate whether the Sourced Docuemnt is Style Compatible
2207: IF g_debug_stmt THEN
2208: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2209: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2210: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2211: END IF;
2212: l_eligible_doc_flag := TRUE;
2213:
2214: --in case the sourcing is happening without passing any attributes as in pricing only mode
2220: AND p_style_id IS NULL then
2221:
2222: l_eligible_doc_flag := TRUE;
2223: IF g_debug_stmt THEN
2224: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
2225: END IF;
2226:
2227: else --if attributes are passed then do style validation checks
2228:
2226:
2227: else --if attributes are passed then do style validation checks
2228:
2229: IF g_debug_stmt THEN
2230: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
2231: END IF;
2232: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
2233: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
2234: PO_DOC_STYLE_PVT.style_validate_req_attrs(p_api_version => 1.0,
2246:
2247: if l_return_status <> FND_API.g_ret_sts_success THEN
2248: l_eligible_doc_flag := FALSE;
2249: IF g_debug_stmt THEN
2250: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation failed');
2251: END IF;
2252: end if;
2253: end if;
2254:
2264: --
2265:
2266: if l_eligible_doc_flag then --
2267: IF g_debug_stmt THEN
2268: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation passed 2');
2269: END IF;
2270: --
2271: --For category-based ASL, the only valid document type is contract
2272: IF l_item_based_asl = 'N' THEN
2286: END IF;
2287: END IF; --vendor_site_sourcing_flag check
2288: END IF; --global flag check
2289: IF g_debug_stmt THEN
2290: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2291: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2292: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2293: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2294: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2287: END IF; --vendor_site_sourcing_flag check
2288: END IF; --global flag check
2289: IF g_debug_stmt THEN
2290: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2291: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2292: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2293: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2294: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2295: END IF;
2288: END IF; --global flag check
2289: IF g_debug_stmt THEN
2290: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2291: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2292: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2293: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2294: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2295: END IF;
2296: --
2289: IF g_debug_stmt THEN
2290: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2291: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2292: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2293: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2294: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2295: END IF;
2296: --
2297: EXIT;
2290: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2291: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2292: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2293: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2294: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2295: END IF;
2296: --
2297: EXIT;
2298: END IF; --doc_type_code check
2312:
2313: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2314: l_progress := '090';
2315: IF g_debug_stmt THEN
2316: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2317: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2318: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2319: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2320: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2313: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2314: l_progress := '090';
2315: IF g_debug_stmt THEN
2316: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2317: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2318: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2319: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2320: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2321: END IF;
2314: l_progress := '090';
2315: IF g_debug_stmt THEN
2316: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2317: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2318: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2319: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2320: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2321: END IF;
2322: exit;
2315: IF g_debug_stmt THEN
2316: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2317: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2318: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2319: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2320: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2321: END IF;
2322: exit;
2323: END IF;
2316: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2317: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2318: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2319: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2320: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2321: END IF;
2322: exit;
2323: END IF;
2324: END IF; -- l_item_based_asl check
2356: -- Get_document_from_asl procedure.
2357: x_asl_id := x_local_asl_id;
2358: --
2359: IF g_debug_stmt THEN
2360: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
2361: END IF;
2362: l_progress := '100';
2363: EXCEPTION
2364: WHEN OTHERS THEN
2362: l_progress := '100';
2363: EXCEPTION
2364: WHEN OTHERS THEN
2365: IF g_debug_unexp THEN
2366: PO_DEBUG.debug_exc(l_log_head,l_progress);
2367: END IF;
2368:
2369: PO_MESSAGE_S.SQL_ERROR('Get_Document_FROM_ASL', l_progress, sqlcode);
2370: END get_document_from_asl;
2928:
2929: l_progress := '010';
2930: l_using_organization_id := p_using_organization_id;
2931: IF g_debug_stmt THEN
2932: PO_DEBUG.debug_var(l_log_head,l_progress,'g_root_invoking_module', g_root_invoking_module);
2933: END IF;
2934:
2935: IF p_vendor_site_sourcing_flag = 'N' THEN
2936:
2947: );
2948:
2949: l_progress := '012';
2950: IF g_debug_stmt THEN
2951: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
2952: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2953: END IF;
2954:
2955: --Changed the order here. Giving preference to UOM passed in
2948:
2949: l_progress := '012';
2950: IF g_debug_stmt THEN
2951: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
2952: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2953: END IF;
2954:
2955: --Changed the order here. Giving preference to UOM passed in
2956: --over the ASL UOM as the profile says not to look at ASLs
2992: p_category_id => l_dummy_category_id);
2993:
2994: l_progress := '014';
2995: IF g_debug_stmt THEN
2996: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
2997: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2998: END IF;
2999: IF (x_local_asl_id IS NULL
3000: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
2993:
2994: l_progress := '014';
2995: IF g_debug_stmt THEN
2996: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
2997: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2998: END IF;
2999: IF (x_local_asl_id IS NULL
3000: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
3001:
3021: p_category_id => l_dummy_category_id);
3022:
3023: l_progress := '016';
3024: IF g_debug_stmt THEN
3025: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing with passing SYSDATE as SOURCING_DATE returned:');
3026: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
3027: END IF;
3028:
3029: END IF;
3022:
3023: l_progress := '016';
3024: IF g_debug_stmt THEN
3025: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing with passing SYSDATE as SOURCING_DATE returned:');
3026: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
3027: END IF;
3028:
3029: END IF;
3030: --
3034: IF g_root_invoking_module = 'REQIMPORT' THEN
3035: x_asl_id := x_local_asl_id;
3036: END IF;
3037: IF g_debug_stmt THEN
3038: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id being returned', x_asl_id);
3039: END IF;
3040:
3041: --
3042:
3099:
3100: --
3101: -- Validate whether the Sourced Docuemnt is Style Compatible
3102: IF g_debug_stmt THEN
3103: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3105: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3106: END IF;
3107: l_eligible_doc_flag := TRUE;
3100: --
3101: -- Validate whether the Sourced Docuemnt is Style Compatible
3102: IF g_debug_stmt THEN
3103: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3105: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3106: END IF;
3107: l_eligible_doc_flag := TRUE;
3108: --in case the sourcing is happening without passing any attributes as in pricing only mode
3101: -- Validate whether the Sourced Docuemnt is Style Compatible
3102: IF g_debug_stmt THEN
3103: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3104: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3105: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3106: END IF;
3107: l_eligible_doc_flag := TRUE;
3108: --in case the sourcing is happening without passing any attributes as in pricing only mode
3109: --check if all the attributes are NULL
3114: AND p_style_id IS NULL then
3115:
3116: l_eligible_doc_flag := TRUE;
3117: IF g_debug_stmt THEN
3118: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
3119: END IF;
3120:
3121: else --if attributes are passed then do style validation checks
3122:
3120:
3121: else --if attributes are passed then do style validation checks
3122:
3123: IF g_debug_stmt THEN
3124: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
3125: END IF;
3126:
3127: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
3128: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
3175:
3176: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3177: l_progress := '040';
3178: IF g_debug_stmt THEN
3179: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3180: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3181: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3182: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3183: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3176: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3177: l_progress := '040';
3178: IF g_debug_stmt THEN
3179: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3180: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3181: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3182: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3183: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3184: END IF;
3177: l_progress := '040';
3178: IF g_debug_stmt THEN
3179: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3180: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3181: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3182: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3183: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3184: END IF;
3185: exit;
3178: IF g_debug_stmt THEN
3179: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3180: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3181: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3182: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3183: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3184: END IF;
3185: exit;
3186: END IF;
3179: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3180: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3181: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3182: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3183: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3184: END IF;
3185: exit;
3186: END IF;
3187: end if; -- if l_eligible_doc_flag --
3266: if x_document_header_id is not null then
3267: --
3268: -- Validate whether the Sourced Docuemnt is Style Compatible
3269: IF g_debug_stmt THEN
3270: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3271: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3272: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3273: END IF;
3274: l_eligible_doc_flag := TRUE;
3267: --
3268: -- Validate whether the Sourced Docuemnt is Style Compatible
3269: IF g_debug_stmt THEN
3270: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3271: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3272: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3273: END IF;
3274: l_eligible_doc_flag := TRUE;
3275:
3268: -- Validate whether the Sourced Docuemnt is Style Compatible
3269: IF g_debug_stmt THEN
3270: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3271: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3272: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3273: END IF;
3274: l_eligible_doc_flag := TRUE;
3275:
3276: --in case the sourcing is happening without passing any attributes as in pricing only mode
3282: AND p_style_id IS NULL then
3283:
3284: l_eligible_doc_flag := TRUE;
3285: IF g_debug_stmt THEN
3286: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
3287: END IF;
3288:
3289: else --if attributes are passed then do style validation checks
3290:
3288:
3289: else --if attributes are passed then do style validation checks
3290:
3291: IF g_debug_stmt THEN
3292: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
3293: END IF;
3294:
3295: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
3296: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
3342:
3343: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3344: l_progress := '080';
3345: IF g_debug_stmt THEN
3346: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3347: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3348: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3349: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3343: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3344: l_progress := '080';
3345: IF g_debug_stmt THEN
3346: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3347: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3348: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3349: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3351: END IF;
3344: l_progress := '080';
3345: IF g_debug_stmt THEN
3346: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3347: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3348: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3349: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3351: END IF;
3352: exit;
3345: IF g_debug_stmt THEN
3346: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3347: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3348: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3349: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3351: END IF;
3352: exit;
3353: END IF;
3346: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3347: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3348: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3349: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3351: END IF;
3352: exit;
3353: END IF;
3354: end if; -- if l_eligible_doc_flag --
3386:
3387: EXCEPTION
3388: WHEN OTHERS THEN
3389: IF g_debug_unexp THEN
3390: PO_DEBUG.debug_exc(l_log_head,l_progress);
3391: END IF;
3392:
3393: PO_MESSAGE_S.SQL_ERROR('GET_LATEST_DOCUMENT', l_progress, sqlcode);
3394: END get_latest_document;
3670: );
3671:
3672: IF x_asl_id IS NOT NULL THEN
3673: IF g_debug_stmt THEN
3674: PO_DEBUG.debug_stmt(l_log_head,l_progress,'item_based_asl_sourcing returned:');
3675: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3676: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3677: END IF;
3678: RETURN;
3671:
3672: IF x_asl_id IS NOT NULL THEN
3673: IF g_debug_stmt THEN
3674: PO_DEBUG.debug_stmt(l_log_head,l_progress,'item_based_asl_sourcing returned:');
3675: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3676: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3677: END IF;
3678: RETURN;
3679: END IF;
3672: IF x_asl_id IS NOT NULL THEN
3673: IF g_debug_stmt THEN
3674: PO_DEBUG.debug_stmt(l_log_head,l_progress,'item_based_asl_sourcing returned:');
3675: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3676: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3677: END IF;
3678: RETURN;
3679: END IF;
3680: END IF;
3702: );
3703:
3704: IF x_asl_id IS NOT NULL THEN
3705: IF g_debug_stmt THEN
3706: PO_DEBUG.debug_stmt(l_log_head,l_progress,'category_based_asl_sourcing returned:');
3707: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3708: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3709: END IF;
3710: RETURN;
3703:
3704: IF x_asl_id IS NOT NULL THEN
3705: IF g_debug_stmt THEN
3706: PO_DEBUG.debug_stmt(l_log_head,l_progress,'category_based_asl_sourcing returned:');
3707: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3708: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3709: END IF;
3710: RETURN;
3711: END IF;
3704: IF x_asl_id IS NOT NULL THEN
3705: IF g_debug_stmt THEN
3706: PO_DEBUG.debug_stmt(l_log_head,l_progress,'category_based_asl_sourcing returned:');
3707: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3708: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3709: END IF;
3710: RETURN;
3711: END IF;
3712: END IF; --category_id is NOT NULL
3713: --
3714:
3715: l_progress := '030';
3716: IF g_debug_stmt THEN
3717: PO_DEBUG.debug_stmt(l_log_head,l_progress,'No matching ASL not found');
3718: END IF;
3719:
3720: EXCEPTION
3721: WHEN OTHERS THEN
3719:
3720: EXCEPTION
3721: WHEN OTHERS THEN
3722: IF g_debug_unexp THEN
3723: PO_DEBUG.debug_exc(l_log_head,l_progress);
3724: END IF;
3725:
3726: PO_MESSAGE_S.SQL_ERROR('ASL_SOURCING', l_progress, sqlcode);
3727: END ASL_SOURCING;
3945: --
3946: --Look for item-based ASLs
3947: IF g_debug_stmt THEN
3948: --
3949: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local item-based ASLs in current OU');
3950: END IF;
3951:
3952: --First look for local ASLs in current operating unit
3953: --Local ASL: p_using_organization_id = p_using_organization_id
3970: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
3971: x_sequence_num := NULL;
3972: l_progress := '020';
3973: IF g_debug_stmt THEN
3974: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
3975: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
3976: END IF;
3977: RETURN;
3978: END IF;
3971: x_sequence_num := NULL;
3972: l_progress := '020';
3973: IF g_debug_stmt THEN
3974: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
3975: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
3976: END IF;
3977: RETURN;
3978: END IF;
3979:
3980: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
3981:
3982: IF g_debug_stmt THEN
3983: --
3984: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local item-based ASLs in other OUs');
3985: END IF;
3986:
3987: --Try to find local ASLs in other operating units
3988: --Local ASL: p_using_organization_id = p_using_organization_id
4002: THEN
4003: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
4004: l_progress := '030';
4005: IF g_debug_stmt THEN
4006: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4007: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4008: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4009: END IF;
4010: RETURN;
4003: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
4004: l_progress := '030';
4005: IF g_debug_stmt THEN
4006: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4007: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4008: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4009: END IF;
4010: RETURN;
4011: END IF;
4004: l_progress := '030';
4005: IF g_debug_stmt THEN
4006: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4007: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4008: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4009: END IF;
4010: RETURN;
4011: END IF;
4012:
4013: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
4014:
4015: IF g_debug_stmt THEN
4016: --
4017: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global item-based ASLs in current OU');
4018: END IF;
4019:
4020: --Now look for global ASLs in current operating unit
4021: --Global ASL: p_using_organization_id = -1
4036: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
4037: x_sequence_num := NULL;
4038: l_progress := '040';
4039: IF g_debug_stmt THEN
4040: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4041: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4042: END IF;
4043: RETURN;
4044: END IF;
4037: x_sequence_num := NULL;
4038: l_progress := '040';
4039: IF g_debug_stmt THEN
4040: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4041: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4042: END IF;
4043: RETURN;
4044: END IF;
4045:
4046: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
4047:
4048: IF g_debug_stmt THEN
4049: --
4050: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global item-based ASLs in other OUs');
4051:
4052: END IF;
4053:
4054: --Try to find Global ASLs in other operating units
4069: THEN
4070: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
4071: l_progress := '050';
4072: IF g_debug_stmt THEN
4073: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4074: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4075: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4076: END IF;
4077: RETURN;
4070: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
4071: l_progress := '050';
4072: IF g_debug_stmt THEN
4073: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4074: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4075: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4076: END IF;
4077: RETURN;
4078: END IF;
4071: l_progress := '050';
4072: IF g_debug_stmt THEN
4073: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4074: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4075: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4076: END IF;
4077: RETURN;
4078: END IF;
4079:
4087: l_progress := '060';
4088:
4089: IF g_debug_stmt THEN
4090: --
4091: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Matching Item-based ASL not found');
4092: END IF;
4093:
4094: EXCEPTION
4095: WHEN OTHERS THEN
4093:
4094: EXCEPTION
4095: WHEN OTHERS THEN
4096: IF g_debug_unexp THEN
4097: PO_DEBUG.debug_exc(l_log_head,l_progress);
4098: END IF;
4099:
4100: PO_MESSAGE_S.SQL_ERROR('ITEM_BASED_ASL_SOURCING', l_progress, sqlcode);
4101: END ITEM_BASED_ASL_SOURCING;
4319: --Look for category-based ASLs
4320:
4321: IF g_debug_stmt THEN
4322: --
4323: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local category-based ASLs in current OU');
4324: END IF;
4325:
4326: --First look for local ASLs in current operating unit
4327: --Local ASL: p_using_organization_id = p_using_organization_id
4344: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4345: x_sequence_num := NULL;
4346: l_progress := '020';
4347: IF g_debug_stmt THEN
4348: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4349: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4350: END IF;
4351: RETURN;
4352: END IF;
4345: x_sequence_num := NULL;
4346: l_progress := '020';
4347: IF g_debug_stmt THEN
4348: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4349: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4350: END IF;
4351: RETURN;
4352: END IF;
4353:
4354: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4355:
4356: IF g_debug_stmt THEN
4357: --
4358: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local category-based ASLs in other OUs');
4359: END IF;
4360:
4361: --Try to find local ASLs in other operating units
4362: --Local ASL: p_using_organization_id = p_using_organization_id
4376: THEN
4377: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4378: l_progress := '030';
4379: IF g_debug_stmt THEN
4380: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4381: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4382: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4383: END IF;
4384: RETURN;
4377: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4378: l_progress := '030';
4379: IF g_debug_stmt THEN
4380: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4381: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4382: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4383: END IF;
4384: RETURN;
4385: END IF;
4378: l_progress := '030';
4379: IF g_debug_stmt THEN
4380: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4381: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4382: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4383: END IF;
4384: RETURN;
4385: END IF;
4386:
4387: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4388:
4389: IF g_debug_stmt THEN
4390: --
4391: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global category-based ASLs in current OU');
4392: END IF;
4393:
4394: --Now look for global ASLs in current operating unit
4395: --Global ASL: p_using_organization_id = -1
4410: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4411: x_sequence_num := NULL;
4412: l_progress := '040';
4413: IF g_debug_stmt THEN
4414: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4415: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4416: END IF;
4417: RETURN;
4418: END IF;
4411: x_sequence_num := NULL;
4412: l_progress := '040';
4413: IF g_debug_stmt THEN
4414: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4415: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4416: END IF;
4417: RETURN;
4418: END IF;
4419:
4420: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4421:
4422: IF g_debug_stmt THEN
4423: --
4424: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global category-based ASLs in other OUs');
4425: END IF;
4426:
4427: --Try to find Global ASLs in other operating units
4428: --Global ASL: p_using_organization_id = -1
4442: THEN
4443: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4444: l_progress := '050';
4445: IF g_debug_stmt THEN
4446: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4447: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4448: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4449: END IF;
4450: RETURN;
4443: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4444: l_progress := '050';
4445: IF g_debug_stmt THEN
4446: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4447: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4448: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4449: END IF;
4450: RETURN;
4451: END IF;
4444: l_progress := '050';
4445: IF g_debug_stmt THEN
4446: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4447: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4448: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4449: END IF;
4450: RETURN;
4451: END IF;
4452:
4460: l_progress := '060';
4461:
4462: IF g_debug_stmt THEN
4463: --
4464: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Matching Category-based ASL not found');
4465: END IF;
4466:
4467: EXCEPTION
4468: WHEN OTHERS THEN
4466:
4467: EXCEPTION
4468: WHEN OTHERS THEN
4469: IF g_debug_unexp THEN
4470: PO_DEBUG.debug_exc(l_log_head,l_progress);
4471: END IF;
4472:
4473: PO_MESSAGE_S.SQL_ERROR('CATEGORY_BASED_ASL_SOURCING', l_progress, sqlcode);
4474: END CATEGORY_BASED_ASL_SOURCING;
4570: BEGIN
4571: l_progress := '001';
4572:
4573: IF g_debug_stmt THEN
4574: PO_DEBUG.debug_begin(l_log_head);
4575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4571: l_progress := '001';
4572:
4573: IF g_debug_stmt THEN
4574: PO_DEBUG.debug_begin(l_log_head);
4575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4572:
4573: IF g_debug_stmt THEN
4574: PO_DEBUG.debug_begin(l_log_head);
4575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4580: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4573: IF g_debug_stmt THEN
4574: PO_DEBUG.debug_begin(l_log_head);
4575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4580: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4581: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4574: PO_DEBUG.debug_begin(l_log_head);
4575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4580: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4581: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4582: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4580: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4581: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4582: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4583: END IF;
4576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4580: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4581: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4582: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4583: END IF;
4584:
4577: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4580: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4581: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4582: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4583: END IF;
4584:
4585: --* Converting the Line level Quantity according to the change in the UOM
4578: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4579: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4580: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4581: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4582: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4583: END IF;
4584:
4585: --* Converting the Line level Quantity according to the change in the UOM
4586: -- using the p_uom_conversion_rate
4594:
4595: l_progress := '010';
4596:
4597: IF g_debug_stmt THEN
4598: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After UOM Conversion');
4599: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4600: END IF;
4601:
4602: -- Keeping the requisition quantity in a temporary variable
4595: l_progress := '010';
4596:
4597: IF g_debug_stmt THEN
4598: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After UOM Conversion');
4599: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4600: END IF;
4601:
4602: -- Keeping the requisition quantity in a temporary variable
4603: -- to determine the change in the quantity due to application
4607:
4608: l_progress := '020';
4609:
4610: IF g_debug_stmt THEN
4611: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After storing the quantity to temporary variable');
4612: END IF;
4613:
4614:
4615: -- Applying the 'Minimum Order Quantity' order Modifier. If the quantity on the req
4624:
4625: l_progress := '030';
4626:
4627: IF g_debug_stmt THEN
4628: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After applying the minimum Order quantity');
4629: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4630: END IF;
4631:
4632: -- Applying the 'Fixed Lot Multiple' order Modifier. If the quantity on the req
4625: l_progress := '030';
4626:
4627: IF g_debug_stmt THEN
4628: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After applying the minimum Order quantity');
4629: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4630: END IF;
4631:
4632: -- Applying the 'Fixed Lot Multiple' order Modifier. If the quantity on the req
4633: -- line is not an integral multiple of Fixed Lot Multiple increase the requisition
4640:
4641: l_progress := '040';
4642:
4643: IF g_debug_stmt THEN
4644: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After Applying the Fixed Lot Multiple Order Modifiers');
4645: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4646: END IF;
4647:
4648: --* Distribution table is only updated if Multi_dist_flag is 'Y'
4641: l_progress := '040';
4642:
4643: IF g_debug_stmt THEN
4644: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After Applying the Fixed Lot Multiple Order Modifiers');
4645: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4646: END IF;
4647:
4648: --* Distribution table is only updated if Multi_dist_flag is 'Y'
4649:
4673:
4674: l_progress := '060';
4675:
4676: IF g_debug_stmt THEN
4677: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After making the changed to distributions');
4678: END IF;
4679:
4680: -- Applying the rounding factor to the requisition line level quantity
4681: -- Rounding Factor for Internal Requisition is only applied if
4698: l_adjust := -l_remainder;
4699: END IF;
4700:
4701: IF g_debug_stmt THEN
4702: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Before applying the change in quantity due to rounding');
4703: PO_DEBUG.debug_var(l_log_head, l_progress, 'l_adjust', l_adjust);
4704: END IF;
4705:
4706: --* If rounding results in change of quantity we reflect the quantity change in the
4699: END IF;
4700:
4701: IF g_debug_stmt THEN
4702: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Before applying the change in quantity due to rounding');
4703: PO_DEBUG.debug_var(l_log_head, l_progress, 'l_adjust', l_adjust);
4704: END IF;
4705:
4706: --* If rounding results in change of quantity we reflect the quantity change in the
4707: -- distribution with the max distribution_number.
4722:
4723: END IF;
4724: l_progress := '070';
4725: IF g_debug_stmt THEN
4726: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After applying the change in quantity due to rounding');
4727: END IF;
4728:
4729: END IF;
4730: l_progress := '080';
4729: END IF;
4730: l_progress := '080';
4731:
4732: IF g_debug_stmt THEN
4733: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After quantity rounding');
4734: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4735: PO_DEBUG.debug_end(l_log_head);
4736: END IF;
4737:
4730: l_progress := '080';
4731:
4732: IF g_debug_stmt THEN
4733: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After quantity rounding');
4734: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4735: PO_DEBUG.debug_end(l_log_head);
4736: END IF;
4737:
4738: EXCEPTION
4731:
4732: IF g_debug_stmt THEN
4733: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After quantity rounding');
4734: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4735: PO_DEBUG.debug_end(l_log_head);
4736: END IF;
4737:
4738: EXCEPTION
4739: WHEN OTHERS THEN
4738: EXCEPTION
4739: WHEN OTHERS THEN
4740: FND_MSG_PUB.add_exc_msg (g_pkg_name,'process_req_qty');
4741: IF g_debug_unexp THEN
4742: PO_DEBUG.debug_exc (l_log_head ,l_progress);
4743: END IF;
4744: RAISE;
4745: END process_req_qty;
4746: --
6167: l_found_dup_null_site VARCHAR2(1);
6168: BEGIN
6169:
6170: IF g_debug_stmt THEN
6171: PO_DEBUG.debug_begin(l_log_head);
6172: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6173: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6168: BEGIN
6169:
6170: IF g_debug_stmt THEN
6171: PO_DEBUG.debug_begin(l_log_head);
6172: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6173: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6169:
6170: IF g_debug_stmt THEN
6171: PO_DEBUG.debug_begin(l_log_head);
6172: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6173: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6170: IF g_debug_stmt THEN
6171: PO_DEBUG.debug_begin(l_log_head);
6172: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6173: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6171: PO_DEBUG.debug_begin(l_log_head);
6172: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6173: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6179: END IF;
6172: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6173: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6179: END IF;
6180:
6173: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6179: END IF;
6180:
6181: -- Initialize the out parameter tables
6174: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6179: END IF;
6180:
6181: -- Initialize the out parameter tables
6182: x_vendor_id := po_tbl_number(); -- Bug# 3379053: Initialize x_vendor_id and
6357: IF (nvl(fnd_profile.value('PO_AUTO_SOURCE_DOC'),'N') = 'N') THEN
6358:
6359: l_progress := '040';
6360: IF g_debug_stmt THEN
6361: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Open Cursor l_get_docs_on_asl_csr');
6362: END IF;
6363:
6364: OPEN l_get_docs_on_asl_csr (l_org_id,
6365: x_vendor_site_id(i),
6381: */
6382:
6383: l_progress := '050';
6384: IF g_debug_stmt THEN
6385: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Open Cursor l_get_latest_docs_csr');
6386: END IF;
6387:
6388: OPEN l_get_latest_docs_csr (l_org_id,
6389: --x_vendor_id(i),
6466:
6467: l_progress := '130';
6468:
6469: IF g_debug_stmt THEN
6470: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6471: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6472: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6467: l_progress := '130';
6468:
6469: IF g_debug_stmt THEN
6470: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6471: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6472: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6468:
6469: IF g_debug_stmt THEN
6470: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6471: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6472: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6469: IF g_debug_stmt THEN
6470: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6471: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6472: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6470: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6471: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6472: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6478: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6471: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6472: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6478: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6479: END IF;
6472: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6478: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6479: END IF;
6480:
6473: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6478: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6479: END IF;
6480:
6481: l_progress := '140';
6474: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6478: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6479: END IF;
6480:
6481: l_progress := '140';
6482:
6487:
6488: l_progress := '150';
6489:
6490: IF g_debug_stmt THEN
6491: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Call PO_PRICE_BREAK_GRP.get_price_break');
6492: END IF;
6493:
6494: -- Bug 3282423 - Passing sysdate for p_need_by_date instead of start date
6495:
6515:
6516: l_progress := '160';
6517:
6518: IF g_debug_stmt THEN
6519: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After Call PO_PRICE_BREAK_GRP.get_price_break');
6520: END IF;
6521:
6522: -- Set the source of the pricing (line or price break)
6523: l_progress := '170';
6598:
6599: l_progress := '200';
6600:
6601: IF g_debug_stmt THEN
6602: PO_DEBUG.debug_end(l_log_head);
6603: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6604: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6599: l_progress := '200';
6600:
6601: IF g_debug_stmt THEN
6602: PO_DEBUG.debug_end(l_log_head);
6603: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6604: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6600:
6601: IF g_debug_stmt THEN
6602: PO_DEBUG.debug_end(l_log_head);
6603: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6604: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6601: IF g_debug_stmt THEN
6602: PO_DEBUG.debug_end(l_log_head);
6603: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6604: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6602: PO_DEBUG.debug_end(l_log_head);
6603: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6604: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6603: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6604: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6604: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6605: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6606: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6607: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6610: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6611: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6619: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6612: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6619: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6620: END IF;
6613: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6619: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6620: END IF;
6621: EXCEPTION
6614: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6619: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6620: END IF;
6621: EXCEPTION
6622: -- Bug# 3404477: Return msg count and data
6615: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6619: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6620: END IF;
6621: EXCEPTION
6622: -- Bug# 3404477: Return msg count and data
6623: WHEN FND_API.G_EXC_ERROR THEN
6637: , p_data => x_msg_data);
6638:
6639: --
6640: IF g_debug_unexp THEN
6641: PO_DEBUG.debug_exc(l_log_head,l_progress);
6642: END IF;
6643: END get_services_asl_list;
6644:
6645:
6942: x_return_status := FND_API.g_ret_sts_success;
6943: x_return_contract := 'N';
6944:
6945: IF g_debug_stmt THEN
6946: PO_DEBUG.debug_stmt (p_log_head => l_log_head,
6947: p_token => l_progress,
6948: p_message => 'Destination Doc Type: '||p_destination_doc_type ||
6949: ' Document Type Code: '||p_document_type_code ||
6950: ' Document Subtype: '||p_document_subtype
6968: AND org_id = FND_GLOBAL.ORG_ID;
6969:
6970: l_progress := '020';
6971: IF g_debug_stmt THEN
6972: PO_DEBUG.debug_stmt (p_log_head => l_log_head,
6973: p_token => l_progress,
6974: p_message => 'Use contract for sourcing? '||l_use_contract_for_sourcing||
6975: ' Include noncatalog request? '||l_include_noncatalog_flag);
6976: END IF;
6983: END IF;
6984:
6985: l_progress := '030';
6986: IF g_debug_stmt THEN
6987: PO_DEBUG.debug_stmt (p_log_head => l_log_head,
6988: p_token => l_progress,
6989: p_message => 'Should return contract? '||x_return_contract);
6990: END IF;
6991:
6995: FND_MSG_PUB.add_exc_msg (p_pkg_name => g_pkg_name,
6996: p_procedure_name => 'should_return_contract',
6997: p_error_text => 'Progress: '||l_progress||' Error: '||SUBSTRB(SQLERRM,1,215));
6998: IF g_debug_unexp THEN
6999: PO_DEBUG.debug_exc (p_log_head => l_log_head ||'should_return_contract',
7000: p_progress => l_progress);
7001: END IF;
7002:
7003: END should_return_contract;