[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;
784:
785: --
786: -- Get the item-based ASL if item_id exists
787: IF g_debug_stmt THEN
788: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
789: p_token => l_progress,
790: p_message => 'Look for item-based ASL first...');
791: END IF;
792:
809: END IF;
810:
811: l_progress := '020';
812: IF g_debug_stmt THEN
813: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
814: p_token => l_progress,
815: p_message => 'Item-based asl id: '||x_asl_id);
816: END IF;
817:
821: l_item_based_asl := 'N';
822:
823: l_progress := '025';
824: IF g_debug_stmt THEN
825: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
826: p_token => l_progress,
827: p_message => 'Look for category-based asl');
828: END IF;
829:
845: END IF;
846:
847: l_progress := '030';
848: IF g_debug_stmt THEN
849: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
850: p_token => l_progress,
851: p_message => 'Category-based asl_id: '||x_asl_id);
852: END IF;
853: --
1076: BEGIN
1077: l_progress := '010';
1078:
1079: IF g_debug_stmt THEN
1080: PO_DEBUG.debug_begin(l_log_head);
1081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1077: l_progress := '010';
1078:
1079: IF g_debug_stmt THEN
1080: PO_DEBUG.debug_begin(l_log_head);
1081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1078:
1079: IF g_debug_stmt THEN
1080: PO_DEBUG.debug_begin(l_log_head);
1081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1079: IF g_debug_stmt THEN
1080: PO_DEBUG.debug_begin(l_log_head);
1081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1080: PO_DEBUG.debug_begin(l_log_head);
1081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_id', x_item_id);
1082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1089:
1082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id', x_vendor_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1089:
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1089:
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1084: PO_DEBUG.debug_var(l_log_head,l_progress,'x_organization_id', x_organization_id);
1085: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_code', x_currency_code);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1089:
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1086: PO_DEBUG.debug_var(l_log_head,l_progress,'x_item_rev', x_item_rev);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1089:
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1087: PO_DEBUG.debug_var(l_log_head,l_progress,'x_autosource_date', x_autosource_date);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1089:
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id', x_vendor_site_id);
1089:
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1089:
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1090: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1098:
1091: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1098:
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_num', x_document_line_num);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1098:
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
1094: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id', x_vendor_contact_id);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1098:
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1095: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_product_num', x_vendor_product_num);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1098:
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1096: PO_DEBUG.debug_var(l_log_head,l_progress,'x_buyer_id', x_buyer_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1098:
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1097: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
1098:
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1098:
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1099: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1100: PO_DEBUG.debug_var(l_log_head,l_progress,'x_multi_org', x_multi_org);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1109: END IF;
1102: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_sourcing_flag', p_vendor_site_sourcing_flag);
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1109: END IF;
1110:
1103: PO_DEBUG.debug_var(l_log_head,l_progress,'p_vendor_site_code', p_vendor_site_code);
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1109: END IF;
1110:
1111:
1104: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id', p_category_id);
1105: PO_DEBUG.debug_var(l_log_head,l_progress,'p_purchase_basis', p_purchase_basis);
1106: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id', p_line_type_id);
1107: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_type', p_destination_type);
1108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_style_id', p_style_id);
1109: END IF;
1110:
1111:
1112:
1184: IF p_vendor_site_code is NOT NULL
1185: AND x_vendor_site_id is NULL THEN
1186:
1187: IF g_debug_stmt THEN
1188: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Doing Local Doc Sourcing');
1189: END IF;
1190:
1191: BEGIN
1192: SELECT vendor_site_id
1223: END IF;
1224: END IF;
1225:
1226: IF g_debug_stmt THEN
1227: PO_DEBUG.debug_stmt(p_log_head => l_log_head,
1228: p_token => l_progress,
1229: p_message => 'Return Contract? '||l_return_contract);
1230: END IF;
1231: --
1236: fnd_profile.get('PO_AUTO_SOURCE_DOC', x_auto_source_doc);
1237: IF nvl(x_auto_source_doc, 'N') = 'N' THEN
1238: l_progress := '060';
1239: IF g_debug_stmt THEN
1240: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Looking at ASLs for Sourcing');
1241: END IF;
1242:
1243: Get_document_from_asl(
1244: x_item_id =>x_item_id,
1275: l_progress := '070';
1276: ELSE
1277: l_progress := '080';
1278: IF g_debug_stmt THEN
1279: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Looking at Latest Documents for Sourcing');
1280: END IF;
1281:
1282: Get_latest_document(
1283: x_item_id =>x_item_id,
1336: --
1337: l_progress := '110';
1338:
1339: IF g_debug_stmt THEN
1340: PO_DEBUG.debug_end(l_log_head);
1341: END IF;
1342:
1343: EXCEPTION
1344: WHEN OTHERS THEN
1342:
1343: EXCEPTION
1344: WHEN OTHERS THEN
1345: IF g_debug_unexp THEN
1346: PO_DEBUG.debug_exc(l_log_head,l_progress);
1347: END IF;
1348:
1349: PO_MESSAGE_S.SQL_ERROR('Document_sourcing', l_progress, sqlcode);
1350: END document_sourcing;
1810: IF p_vendor_site_sourcing_flag = 'N' THEN
1811: l_progress := '020';
1812:
1813: IF g_debug_stmt THEN
1814: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling get_asl_info');
1815: END IF;
1816: --This call does not require vendor site sourcing
1817: --so do existing call to get local_asl_id
1818: get_asl_info(x_item_id => x_item_id,
1825: p_category_id => p_category_id --
1826: );
1827:
1828: IF g_debug_stmt THEN
1829: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
1830: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1831: END IF;
1832:
1833: ELSE
1826: );
1827:
1828: IF g_debug_stmt THEN
1829: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
1830: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1831: END IF;
1832:
1833: ELSE
1834: l_progress := '030';
1833: ELSE
1834: l_progress := '030';
1835:
1836: IF g_debug_stmt THEN
1837: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling asl_sourcing');
1838: END IF;
1839: --This procedure does the sourcing of document based on ASL
1840: --This returns asl_id to use. Optionally it returns sequence_number
1841: --of GA to be used if the ASL is from different OU
1858: p_category_id => p_category_id --
1859: );
1860:
1861: IF g_debug_stmt THEN
1862: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1865: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1866: END IF;
1859: );
1860:
1861: IF g_debug_stmt THEN
1862: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1865: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1866: END IF;
1867:
1860:
1861: IF g_debug_stmt THEN
1862: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1865: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1866: END IF;
1867:
1868: IF (x_local_asl_id IS NULL
1861: IF g_debug_stmt THEN
1862: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ', l_using_organization_id);
1865: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1866: END IF;
1867:
1868: IF (x_local_asl_id IS NULL
1869: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
1869: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
1870:
1871: l_progress := '040';
1872: IF g_debug_stmt THEN
1873: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling asl_sourcing with sysdate');
1874: END IF;
1875: --Call ASL_SOURCING again this time passing SYSDATE as SOURCING_DATE
1876: x_sourcing_date := trunc(sysdate);
1877: asl_sourcing(
1893: p_category_id => p_category_id --
1894: );
1895:
1896: IF g_debug_stmt THEN
1897: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1898: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1899: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1900: l_using_organization_id);
1901: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1894: );
1895:
1896: IF g_debug_stmt THEN
1897: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1898: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1899: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1900: l_using_organization_id);
1901: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1902: END IF;
1895:
1896: IF g_debug_stmt THEN
1897: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1898: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1899: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1900: l_using_organization_id);
1901: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1902: END IF;
1903: END IF;
1897: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
1898: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
1899: PO_DEBUG.debug_var(l_log_head,l_progress,'using organization is ',
1900: l_using_organization_id);
1901: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', l_sequence_number);
1902: END IF;
1903: END IF;
1904: END IF;
1905: else
1991:
1992: --
1993: -- Validate whether the Sourced Docuemnt is Style Compatible
1994: IF g_debug_stmt THEN
1995: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
1996: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1997: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1998: END IF;
1999:
1992: --
1993: -- Validate whether the Sourced Docuemnt is Style Compatible
1994: IF g_debug_stmt THEN
1995: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
1996: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1997: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1998: END IF;
1999:
2000: l_eligible_doc_flag := TRUE;
1993: -- Validate whether the Sourced Docuemnt is Style Compatible
1994: IF g_debug_stmt THEN
1995: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
1996: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
1997: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
1998: END IF;
1999:
2000: l_eligible_doc_flag := TRUE;
2001:
2008: AND p_style_id IS NULL then
2009:
2010: l_eligible_doc_flag := TRUE;
2011: IF g_debug_stmt THEN
2012: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
2013: END IF;
2014:
2015: else --if attributes are passed then do style validation checks
2016:
2014:
2015: else --if attributes are passed then do style validation checks
2016:
2017: IF g_debug_stmt THEN
2018: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
2019: END IF;
2020:
2021: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
2022: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
2036:
2037: if l_return_status <> FND_API.g_ret_sts_success THEN
2038: l_eligible_doc_flag := FALSE;
2039: IF g_debug_stmt THEN
2040: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation failed');
2041: END IF;
2042: end if;
2043: end if;
2044:
2054:
2055: --
2056: if l_eligible_doc_flag then --
2057: IF g_debug_stmt THEN
2058: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation passed 1');
2059: END IF;
2060: --
2061: --For category-based ASL, the only valid document type is contract
2062: IF l_item_based_asl = 'N' THEN
2076: END IF;
2077: END IF; --vendor_site_sourcing_flag check
2078: END IF; --global flag check
2079: IF g_debug_stmt THEN
2080: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2081: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2084: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2077: END IF; --vendor_site_sourcing_flag check
2078: END IF; --global flag check
2079: IF g_debug_stmt THEN
2080: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2081: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2084: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2085: END IF;
2078: END IF; --global flag check
2079: IF g_debug_stmt THEN
2080: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2081: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2084: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2085: END IF;
2086: --
2079: IF g_debug_stmt THEN
2080: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2081: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2084: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2085: END IF;
2086: --
2087: EXIT;
2080: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2081: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2082: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2083: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2084: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2085: END IF;
2086: --
2087: EXIT;
2088: END IF; --doc type checkc
2103:
2104: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2105: l_progress := '070';
2106: IF g_debug_stmt THEN
2107: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2108: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2109: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2110: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2111: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2104: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2105: l_progress := '070';
2106: IF g_debug_stmt THEN
2107: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2108: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2109: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2110: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2111: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2112: END IF;
2105: l_progress := '070';
2106: IF g_debug_stmt THEN
2107: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2108: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2109: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2110: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2111: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2112: END IF;
2113:
2106: IF g_debug_stmt THEN
2107: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2108: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2109: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2110: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2111: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2112: END IF;
2113:
2114: exit;
2107: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2108: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2109: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2110: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2111: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2112: END IF;
2113:
2114: exit;
2115: END IF;
2191:
2192: --
2193: -- Validate whether the Sourced Docuemnt is Style Compatible
2194: IF g_debug_stmt THEN
2195: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2196: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2197: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2198: END IF;
2199: l_eligible_doc_flag := TRUE;
2192: --
2193: -- Validate whether the Sourced Docuemnt is Style Compatible
2194: IF g_debug_stmt THEN
2195: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2196: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2197: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2198: END IF;
2199: l_eligible_doc_flag := TRUE;
2200:
2193: -- Validate whether the Sourced Docuemnt is Style Compatible
2194: IF g_debug_stmt THEN
2195: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
2196: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
2197: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
2198: END IF;
2199: l_eligible_doc_flag := TRUE;
2200:
2201: --in case the sourcing is happening without passing any attributes as in pricing only mode
2207: AND p_style_id IS NULL then
2208:
2209: l_eligible_doc_flag := TRUE;
2210: IF g_debug_stmt THEN
2211: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
2212: END IF;
2213:
2214: else --if attributes are passed then do style validation checks
2215:
2213:
2214: else --if attributes are passed then do style validation checks
2215:
2216: IF g_debug_stmt THEN
2217: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
2218: END IF;
2219: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
2220: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
2221: PO_DOC_STYLE_PVT.style_validate_req_attrs(p_api_version => 1.0,
2233:
2234: if l_return_status <> FND_API.g_ret_sts_success THEN
2235: l_eligible_doc_flag := FALSE;
2236: IF g_debug_stmt THEN
2237: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation failed');
2238: END IF;
2239: end if;
2240: end if;
2241:
2251: --
2252:
2253: if l_eligible_doc_flag then --
2254: IF g_debug_stmt THEN
2255: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validation passed 2');
2256: END IF;
2257: --
2258: --For category-based ASL, the only valid document type is contract
2259: IF l_item_based_asl = 'N' THEN
2273: END IF;
2274: END IF; --vendor_site_sourcing_flag check
2275: END IF; --global flag check
2276: IF g_debug_stmt THEN
2277: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2278: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2280: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2281: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2274: END IF; --vendor_site_sourcing_flag check
2275: END IF; --global flag check
2276: IF g_debug_stmt THEN
2277: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2278: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2280: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2281: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2282: END IF;
2275: END IF; --global flag check
2276: IF g_debug_stmt THEN
2277: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2278: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2280: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2281: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2282: END IF;
2283: --
2276: IF g_debug_stmt THEN
2277: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2278: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2280: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2281: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2282: END IF;
2283: --
2284: EXIT;
2277: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL:');
2278: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2279: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2280: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2281: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2282: END IF;
2283: --
2284: EXIT;
2285: END IF; --doc_type_code check
2299:
2300: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2301: l_progress := '090';
2302: IF g_debug_stmt THEN
2303: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2304: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2305: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2306: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2307: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2300: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
2301: l_progress := '090';
2302: IF g_debug_stmt THEN
2303: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2304: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2305: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2306: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2307: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2308: END IF;
2301: l_progress := '090';
2302: IF g_debug_stmt THEN
2303: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2304: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2305: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2306: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2307: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2308: END IF;
2309: exit;
2302: IF g_debug_stmt THEN
2303: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2304: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2305: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2306: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2307: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2308: END IF;
2309: exit;
2310: END IF;
2303: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document from ASL with sysdate:');
2304: PO_DEBUG.debug_var(l_log_head,l_progress,'Total DOcuments looked at', L_GET_DOCS_ON_ASL_CSR%ROWCOUNT);
2305: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
2306: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
2307: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
2308: END IF;
2309: exit;
2310: END IF;
2311: END IF; -- l_item_based_asl check
2343: -- Get_document_from_asl procedure.
2344: x_asl_id := x_local_asl_id;
2345: --
2346: IF g_debug_stmt THEN
2347: PO_DEBUG.debug_var(l_log_head,l_progress,'x_purchasing_uom', x_purchasing_uom);
2348: END IF;
2349: l_progress := '100';
2350: EXCEPTION
2351: WHEN OTHERS THEN
2349: l_progress := '100';
2350: EXCEPTION
2351: WHEN OTHERS THEN
2352: IF g_debug_unexp THEN
2353: PO_DEBUG.debug_exc(l_log_head,l_progress);
2354: END IF;
2355:
2356: PO_MESSAGE_S.SQL_ERROR('Get_Document_FROM_ASL', l_progress, sqlcode);
2357: END get_document_from_asl;
2905:
2906: l_progress := '010';
2907: l_using_organization_id := p_using_organization_id;
2908: IF g_debug_stmt THEN
2909: PO_DEBUG.debug_var(l_log_head,l_progress,'g_root_invoking_module', g_root_invoking_module);
2910: END IF;
2911:
2912: IF p_vendor_site_sourcing_flag = 'N' THEN
2913:
2924: );
2925:
2926: l_progress := '012';
2927: IF g_debug_stmt THEN
2928: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
2929: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2930: END IF;
2931:
2932: --Changed the order here. Giving preference to UOM passed in
2925:
2926: l_progress := '012';
2927: IF g_debug_stmt THEN
2928: PO_DEBUG.debug_stmt(l_log_head,l_progress,'get_asl_info returned:');
2929: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2930: END IF;
2931:
2932: --Changed the order here. Giving preference to UOM passed in
2933: --over the ASL UOM as the profile says not to look at ASLs
2969: p_category_id => l_dummy_category_id);
2970:
2971: l_progress := '014';
2972: IF g_debug_stmt THEN
2973: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
2974: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2975: END IF;
2976: IF (x_local_asl_id IS NULL
2977: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
2970:
2971: l_progress := '014';
2972: IF g_debug_stmt THEN
2973: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing returned:');
2974: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
2975: END IF;
2976: IF (x_local_asl_id IS NULL
2977: AND trunc(x_sourcing_date) <> trunc(sysdate)) THEN
2978:
2998: p_category_id => l_dummy_category_id);
2999:
3000: l_progress := '016';
3001: IF g_debug_stmt THEN
3002: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing with passing SYSDATE as SOURCING_DATE returned:');
3003: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
3004: END IF;
3005:
3006: END IF;
2999:
3000: l_progress := '016';
3001: IF g_debug_stmt THEN
3002: PO_DEBUG.debug_stmt(l_log_head,l_progress,'asl_sourcing with passing SYSDATE as SOURCING_DATE returned:');
3003: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_local_asl_id);
3004: END IF;
3005:
3006: END IF;
3007: --
3011: IF g_root_invoking_module = 'REQIMPORT' THEN
3012: x_asl_id := x_local_asl_id;
3013: END IF;
3014: IF g_debug_stmt THEN
3015: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id being returned', x_asl_id);
3016: END IF;
3017:
3018: --
3019:
3075:
3076: --
3077: -- Validate whether the Sourced Docuemnt is Style Compatible
3078: IF g_debug_stmt THEN
3079: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3080: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3082: END IF;
3083: l_eligible_doc_flag := TRUE;
3076: --
3077: -- Validate whether the Sourced Docuemnt is Style Compatible
3078: IF g_debug_stmt THEN
3079: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3080: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3082: END IF;
3083: l_eligible_doc_flag := TRUE;
3084: --in case the sourcing is happening without passing any attributes as in pricing only mode
3077: -- Validate whether the Sourced Docuemnt is Style Compatible
3078: IF g_debug_stmt THEN
3079: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3080: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3081: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3082: END IF;
3083: l_eligible_doc_flag := TRUE;
3084: --in case the sourcing is happening without passing any attributes as in pricing only mode
3085: --check if all the attributes are NULL
3090: AND p_style_id IS NULL then
3091:
3092: l_eligible_doc_flag := TRUE;
3093: IF g_debug_stmt THEN
3094: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
3095: END IF;
3096:
3097: else --if attributes are passed then do style validation checks
3098:
3096:
3097: else --if attributes are passed then do style validation checks
3098:
3099: IF g_debug_stmt THEN
3100: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
3101: END IF;
3102:
3103: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
3104: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
3151:
3152: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3153: l_progress := '040';
3154: IF g_debug_stmt THEN
3155: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3156: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3157: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3158: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3159: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3152: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3153: l_progress := '040';
3154: IF g_debug_stmt THEN
3155: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3156: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3157: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3158: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3159: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3160: END IF;
3153: l_progress := '040';
3154: IF g_debug_stmt THEN
3155: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3156: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3157: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3158: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3159: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3160: END IF;
3161: exit;
3154: IF g_debug_stmt THEN
3155: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3156: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3157: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3158: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3159: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3160: END IF;
3161: exit;
3162: END IF;
3155: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document:');
3156: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3157: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3158: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3159: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3160: END IF;
3161: exit;
3162: END IF;
3163: end if; -- if l_eligible_doc_flag --
3241: if x_document_header_id is not null then
3242: --
3243: -- Validate whether the Sourced Docuemnt is Style Compatible
3244: IF g_debug_stmt THEN
3245: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3246: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3247: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3248: END IF;
3249: l_eligible_doc_flag := TRUE;
3242: --
3243: -- Validate whether the Sourced Docuemnt is Style Compatible
3244: IF g_debug_stmt THEN
3245: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3246: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3247: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3248: END IF;
3249: l_eligible_doc_flag := TRUE;
3250:
3243: -- Validate whether the Sourced Docuemnt is Style Compatible
3244: IF g_debug_stmt THEN
3245: PO_DEBUG.debug_stmt(l_log_head,l_progress,'style validate source doc');
3246: PO_DEBUG.debug_var(l_log_head,l_progress,'x_destination_doc_type', x_destination_doc_type);
3247: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_type_code', x_document_type_code);
3248: END IF;
3249: l_eligible_doc_flag := TRUE;
3250:
3251: --in case the sourcing is happening without passing any attributes as in pricing only mode
3257: AND p_style_id IS NULL then
3258:
3259: l_eligible_doc_flag := TRUE;
3260: IF g_debug_stmt THEN
3261: PO_DEBUG.debug_stmt(l_log_head,l_progress,'bypass style validations');
3262: END IF;
3263:
3264: else --if attributes are passed then do style validation checks
3265:
3263:
3264: else --if attributes are passed then do style validation checks
3265:
3266: IF g_debug_stmt THEN
3267: PO_DEBUG.debug_stmt(l_log_head,l_progress,'do style validations');
3268: END IF;
3269:
3270: if x_destination_doc_type IN ('REQ','REQ_NONCATALOG') then
3271: if (x_document_type_code IN ('BLANKET', 'CONTRACT')) then
3317:
3318: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3319: l_progress := '080';
3320: IF g_debug_stmt THEN
3321: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3322: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3323: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3324: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3325: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3318: IF x_return_status = FND_API.G_RET_STS_SUCCESS then
3319: l_progress := '080';
3320: IF g_debug_stmt THEN
3321: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3322: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3323: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3324: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3325: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3326: END IF;
3319: l_progress := '080';
3320: IF g_debug_stmt THEN
3321: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3322: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3323: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3324: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3325: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3326: END IF;
3327: exit;
3320: IF g_debug_stmt THEN
3321: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3322: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3323: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3324: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3325: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3326: END IF;
3327: exit;
3328: END IF;
3321: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found a document with sysdate:');
3322: PO_DEBUG.debug_var(l_log_head,l_progress,'Total Documents looked at', L_GET_LATEST_DOCS_CSR%ROWCOUNT);
3323: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_header_id', x_document_header_id);
3324: PO_DEBUG.debug_var(l_log_head,l_progress,'x_document_line_id', x_document_line_id);
3325: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', x_vendor_site_id);
3326: END IF;
3327: exit;
3328: END IF;
3329: end if; -- if l_eligible_doc_flag --
3361:
3362: EXCEPTION
3363: WHEN OTHERS THEN
3364: IF g_debug_unexp THEN
3365: PO_DEBUG.debug_exc(l_log_head,l_progress);
3366: END IF;
3367:
3368: PO_MESSAGE_S.SQL_ERROR('GET_LATEST_DOCUMENT', l_progress, sqlcode);
3369: END get_latest_document;
3644: );
3645:
3646: IF x_asl_id IS NOT NULL THEN
3647: IF g_debug_stmt THEN
3648: PO_DEBUG.debug_stmt(l_log_head,l_progress,'item_based_asl_sourcing returned:');
3649: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3650: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3651: END IF;
3652: RETURN;
3645:
3646: IF x_asl_id IS NOT NULL THEN
3647: IF g_debug_stmt THEN
3648: PO_DEBUG.debug_stmt(l_log_head,l_progress,'item_based_asl_sourcing returned:');
3649: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3650: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3651: END IF;
3652: RETURN;
3653: END IF;
3646: IF x_asl_id IS NOT NULL THEN
3647: IF g_debug_stmt THEN
3648: PO_DEBUG.debug_stmt(l_log_head,l_progress,'item_based_asl_sourcing returned:');
3649: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3650: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3651: END IF;
3652: RETURN;
3653: END IF;
3654: END IF;
3676: );
3677:
3678: IF x_asl_id IS NOT NULL THEN
3679: IF g_debug_stmt THEN
3680: PO_DEBUG.debug_stmt(l_log_head,l_progress,'category_based_asl_sourcing returned:');
3681: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3682: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3683: END IF;
3684: RETURN;
3677:
3678: IF x_asl_id IS NOT NULL THEN
3679: IF g_debug_stmt THEN
3680: PO_DEBUG.debug_stmt(l_log_head,l_progress,'category_based_asl_sourcing returned:');
3681: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3682: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3683: END IF;
3684: RETURN;
3685: END IF;
3678: IF x_asl_id IS NOT NULL THEN
3679: IF g_debug_stmt THEN
3680: PO_DEBUG.debug_stmt(l_log_head,l_progress,'category_based_asl_sourcing returned:');
3681: PO_DEBUG.debug_var(l_log_head,l_progress,'asl_id obtained', x_asl_id);
3682: PO_DEBUG.debug_var(l_log_head,l_progress,'sequence num obtained', x_sequence_num);
3683: END IF;
3684: RETURN;
3685: END IF;
3686: END IF; --category_id is NOT NULL
3687: --
3688:
3689: l_progress := '030';
3690: IF g_debug_stmt THEN
3691: PO_DEBUG.debug_stmt(l_log_head,l_progress,'No matching ASL not found');
3692: END IF;
3693:
3694: EXCEPTION
3695: WHEN OTHERS THEN
3693:
3694: EXCEPTION
3695: WHEN OTHERS THEN
3696: IF g_debug_unexp THEN
3697: PO_DEBUG.debug_exc(l_log_head,l_progress);
3698: END IF;
3699:
3700: PO_MESSAGE_S.SQL_ERROR('ASL_SOURCING', l_progress, sqlcode);
3701: END ASL_SOURCING;
3917: --
3918: --Look for item-based ASLs
3919: IF g_debug_stmt THEN
3920: --
3921: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local item-based ASLs in current OU');
3922: END IF;
3923:
3924: --First look for local ASLs in current operating unit
3925: --Local ASL: p_using_organization_id = p_using_organization_id
3942: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
3943: x_sequence_num := NULL;
3944: l_progress := '020';
3945: IF g_debug_stmt THEN
3946: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
3947: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
3948: END IF;
3949: RETURN;
3950: END IF;
3943: x_sequence_num := NULL;
3944: l_progress := '020';
3945: IF g_debug_stmt THEN
3946: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
3947: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
3948: END IF;
3949: RETURN;
3950: END IF;
3951:
3952: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
3953:
3954: IF g_debug_stmt THEN
3955: --
3956: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local item-based ASLs in other OUs');
3957: END IF;
3958:
3959: --Try to find local ASLs in other operating units
3960: --Local ASL: p_using_organization_id = p_using_organization_id
3974: THEN
3975: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
3976: l_progress := '030';
3977: IF g_debug_stmt THEN
3978: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
3979: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
3980: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
3981: END IF;
3982: RETURN;
3975: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
3976: l_progress := '030';
3977: IF g_debug_stmt THEN
3978: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
3979: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
3980: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
3981: END IF;
3982: RETURN;
3983: END IF;
3976: l_progress := '030';
3977: IF g_debug_stmt THEN
3978: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
3979: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
3980: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
3981: END IF;
3982: RETURN;
3983: END IF;
3984:
3985: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
3986:
3987: IF g_debug_stmt THEN
3988: --
3989: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global item-based ASLs in current OU');
3990: END IF;
3991:
3992: --Now look for global ASLs in current operating unit
3993: --Global ASL: p_using_organization_id = -1
4008: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
4009: x_sequence_num := NULL;
4010: l_progress := '040';
4011: IF g_debug_stmt THEN
4012: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4013: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4014: END IF;
4015: RETURN;
4016: END IF;
4009: x_sequence_num := NULL;
4010: l_progress := '040';
4011: IF g_debug_stmt THEN
4012: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4013: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4014: END IF;
4015: RETURN;
4016: END IF;
4017:
4018: CLOSE L_ITEM_ASL_IN_CUR_OU_CSR;
4019:
4020: IF g_debug_stmt THEN
4021: --
4022: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global item-based ASLs in other OUs');
4023:
4024: END IF;
4025:
4026: --Try to find Global ASLs in other operating units
4041: THEN
4042: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
4043: l_progress := '050';
4044: IF g_debug_stmt THEN
4045: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4047: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4048: END IF;
4049: RETURN;
4042: CLOSE L_ITEM_ASL_DOCUMENTS_CSR;
4043: l_progress := '050';
4044: IF g_debug_stmt THEN
4045: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4047: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4048: END IF;
4049: RETURN;
4050: END IF;
4043: l_progress := '050';
4044: IF g_debug_stmt THEN
4045: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4047: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4048: END IF;
4049: RETURN;
4050: END IF;
4051:
4059: l_progress := '060';
4060:
4061: IF g_debug_stmt THEN
4062: --
4063: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Matching Item-based ASL not found');
4064: END IF;
4065:
4066: EXCEPTION
4067: WHEN OTHERS THEN
4065:
4066: EXCEPTION
4067: WHEN OTHERS THEN
4068: IF g_debug_unexp THEN
4069: PO_DEBUG.debug_exc(l_log_head,l_progress);
4070: END IF;
4071:
4072: PO_MESSAGE_S.SQL_ERROR('ITEM_BASED_ASL_SOURCING', l_progress, sqlcode);
4073: END ITEM_BASED_ASL_SOURCING;
4291: --Look for category-based ASLs
4292:
4293: IF g_debug_stmt THEN
4294: --
4295: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local category-based ASLs in current OU');
4296: END IF;
4297:
4298: --First look for local ASLs in current operating unit
4299: --Local ASL: p_using_organization_id = p_using_organization_id
4316: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4317: x_sequence_num := NULL;
4318: l_progress := '020';
4319: IF g_debug_stmt THEN
4320: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4321: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4322: END IF;
4323: RETURN;
4324: END IF;
4317: x_sequence_num := NULL;
4318: l_progress := '020';
4319: IF g_debug_stmt THEN
4320: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4321: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4322: END IF;
4323: RETURN;
4324: END IF;
4325:
4326: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4327:
4328: IF g_debug_stmt THEN
4329: --
4330: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Local category-based ASLs in other OUs');
4331: END IF;
4332:
4333: --Try to find local ASLs in other operating units
4334: --Local ASL: p_using_organization_id = p_using_organization_id
4348: THEN
4349: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4350: l_progress := '030';
4351: IF g_debug_stmt THEN
4352: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4353: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4354: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4355: END IF;
4356: RETURN;
4349: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4350: l_progress := '030';
4351: IF g_debug_stmt THEN
4352: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4353: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4354: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4355: END IF;
4356: RETURN;
4357: END IF;
4350: l_progress := '030';
4351: IF g_debug_stmt THEN
4352: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4353: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4354: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4355: END IF;
4356: RETURN;
4357: END IF;
4358:
4359: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4360:
4361: IF g_debug_stmt THEN
4362: --
4363: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global category-based ASLs in current OU');
4364: END IF;
4365:
4366: --Now look for global ASLs in current operating unit
4367: --Global ASL: p_using_organization_id = -1
4382: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4383: x_sequence_num := NULL;
4384: l_progress := '040';
4385: IF g_debug_stmt THEN
4386: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4387: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4388: END IF;
4389: RETURN;
4390: END IF;
4383: x_sequence_num := NULL;
4384: l_progress := '040';
4385: IF g_debug_stmt THEN
4386: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4387: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4388: END IF;
4389: RETURN;
4390: END IF;
4391:
4392: CLOSE L_CATEGORY_ASL_IN_CUR_OU_CSR;
4393:
4394: IF g_debug_stmt THEN
4395: --
4396: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Look in Global category-based ASLs in other OUs');
4397: END IF;
4398:
4399: --Try to find Global ASLs in other operating units
4400: --Global ASL: p_using_organization_id = -1
4414: THEN
4415: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4416: l_progress := '050';
4417: IF g_debug_stmt THEN
4418: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4421: END IF;
4422: RETURN;
4415: CLOSE L_CATEGORY_ASL_DOCUMENTS_CSR;
4416: l_progress := '050';
4417: IF g_debug_stmt THEN
4418: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4421: END IF;
4422: RETURN;
4423: END IF;
4416: l_progress := '050';
4417: IF g_debug_stmt THEN
4418: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Found:');
4419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_asl_id', x_asl_id);
4420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_sequence_num', x_sequence_num);
4421: END IF;
4422: RETURN;
4423: END IF;
4424:
4432: l_progress := '060';
4433:
4434: IF g_debug_stmt THEN
4435: --
4436: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Matching Category-based ASL not found');
4437: END IF;
4438:
4439: EXCEPTION
4440: WHEN OTHERS THEN
4438:
4439: EXCEPTION
4440: WHEN OTHERS THEN
4441: IF g_debug_unexp THEN
4442: PO_DEBUG.debug_exc(l_log_head,l_progress);
4443: END IF;
4444:
4445: PO_MESSAGE_S.SQL_ERROR('CATEGORY_BASED_ASL_SOURCING', l_progress, sqlcode);
4446: END CATEGORY_BASED_ASL_SOURCING;
4542: BEGIN
4543: l_progress := '001';
4544:
4545: IF g_debug_stmt THEN
4546: PO_DEBUG.debug_begin(l_log_head);
4547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4543: l_progress := '001';
4544:
4545: IF g_debug_stmt THEN
4546: PO_DEBUG.debug_begin(l_log_head);
4547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4544:
4545: IF g_debug_stmt THEN
4546: PO_DEBUG.debug_begin(l_log_head);
4547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4545: IF g_debug_stmt THEN
4546: PO_DEBUG.debug_begin(l_log_head);
4547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4546: PO_DEBUG.debug_begin(l_log_head);
4547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4554: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_request_id',p_request_id);
4548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4554: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4555: END IF;
4548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_multi_dist_flag',p_multi_dist_flag);
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4554: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4555: END IF;
4556:
4549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_min_order_qty',p_min_order_qty);
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4554: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4555: END IF;
4556:
4557: --* Converting the Line level Quantity according to the change in the UOM
4550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_fixed_lot_multiple',p_fixed_lot_multiple);
4551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_dist_sequence_id',p_req_dist_sequence_id);
4552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_uom_conversion_rate',p_uom_conversion_rate);
4553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_rounding_factor',p_rounding_factor);
4554: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4555: END IF;
4556:
4557: --* Converting the Line level Quantity according to the change in the UOM
4558: -- using the p_uom_conversion_rate
4562:
4563: l_progress := '010';
4564:
4565: IF g_debug_stmt THEN
4566: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After UOM Conversion');
4567: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4568: END IF;
4569:
4570: -- Keeping the requisition quantity in a temporary variable
4563: l_progress := '010';
4564:
4565: IF g_debug_stmt THEN
4566: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After UOM Conversion');
4567: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4568: END IF;
4569:
4570: -- Keeping the requisition quantity in a temporary variable
4571: -- to determine the change in the quantity due to application
4575:
4576: l_progress := '020';
4577:
4578: IF g_debug_stmt THEN
4579: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After storing the quantity to temporary variable');
4580: END IF;
4581:
4582:
4583: -- Applying the 'Minimum Order Quantity' order Modifier. If the quantity on the req
4590:
4591: l_progress := '030';
4592:
4593: IF g_debug_stmt THEN
4594: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After applying the minimum Order quantity');
4595: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4596: END IF;
4597:
4598: -- Applying the 'Fixed Lot Multiple' order Modifier. If the quantity on the req
4591: l_progress := '030';
4592:
4593: IF g_debug_stmt THEN
4594: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After applying the minimum Order quantity');
4595: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4596: END IF;
4597:
4598: -- Applying the 'Fixed Lot Multiple' order Modifier. If the quantity on the req
4599: -- line is not an integral multiple of Fixed Lot Multiple increase the requisition
4606:
4607: l_progress := '040';
4608:
4609: IF g_debug_stmt THEN
4610: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After Applying the Fixed Lot Multiple Order Modifiers');
4611: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4612: END IF;
4613:
4614: --* Distribution table is only updated if Multi_dist_flag is 'Y'
4607: l_progress := '040';
4608:
4609: IF g_debug_stmt THEN
4610: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After Applying the Fixed Lot Multiple Order Modifiers');
4611: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4612: END IF;
4613:
4614: --* Distribution table is only updated if Multi_dist_flag is 'Y'
4615:
4635:
4636: l_progress := '060';
4637:
4638: IF g_debug_stmt THEN
4639: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After making the changed to distributions');
4640: END IF;
4641:
4642: -- Applying the rounding factor to the requisition line level quantity
4643: -- Rounding Factor for Internal Requisition is only applied if
4660: l_adjust := -l_remainder;
4661: END IF;
4662:
4663: IF g_debug_stmt THEN
4664: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Before applying the change in quantity due to rounding');
4665: PO_DEBUG.debug_var(l_log_head, l_progress, 'l_adjust', l_adjust);
4666: END IF;
4667:
4668: --* If rounding results in change of quantity we reflect the quantity change in the
4661: END IF;
4662:
4663: IF g_debug_stmt THEN
4664: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Before applying the change in quantity due to rounding');
4665: PO_DEBUG.debug_var(l_log_head, l_progress, 'l_adjust', l_adjust);
4666: END IF;
4667:
4668: --* If rounding results in change of quantity we reflect the quantity change in the
4669: -- distribution with the max distribution_number.
4684:
4685: END IF;
4686: l_progress := '070';
4687: IF g_debug_stmt THEN
4688: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After applying the change in quantity due to rounding');
4689: END IF;
4690:
4691: END IF;
4692: l_progress := '080';
4691: END IF;
4692: l_progress := '080';
4693:
4694: IF g_debug_stmt THEN
4695: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After quantity rounding');
4696: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4697: PO_DEBUG.debug_end(l_log_head);
4698: END IF;
4699:
4692: l_progress := '080';
4693:
4694: IF g_debug_stmt THEN
4695: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After quantity rounding');
4696: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4697: PO_DEBUG.debug_end(l_log_head);
4698: END IF;
4699:
4700: EXCEPTION
4693:
4694: IF g_debug_stmt THEN
4695: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After quantity rounding');
4696: PO_DEBUG.debug_var(l_log_head, l_progress, 'x_quantity', x_quantity);
4697: PO_DEBUG.debug_end(l_log_head);
4698: END IF;
4699:
4700: EXCEPTION
4701: WHEN OTHERS THEN
4700: EXCEPTION
4701: WHEN OTHERS THEN
4702: FND_MSG_PUB.add_exc_msg (g_pkg_name,'process_req_qty');
4703: IF g_debug_unexp THEN
4704: PO_DEBUG.debug_exc (l_log_head ,l_progress);
4705: END IF;
4706: RAISE;
4707: END process_req_qty;
4708: --
6090: l_found_dup_null_site VARCHAR2(1);
6091: BEGIN
6092:
6093: IF g_debug_stmt THEN
6094: PO_DEBUG.debug_begin(l_log_head);
6095: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6096: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6091: BEGIN
6092:
6093: IF g_debug_stmt THEN
6094: PO_DEBUG.debug_begin(l_log_head);
6095: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6096: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6099: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6092:
6093: IF g_debug_stmt THEN
6094: PO_DEBUG.debug_begin(l_log_head);
6095: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6096: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6099: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6100: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6093: IF g_debug_stmt THEN
6094: PO_DEBUG.debug_begin(l_log_head);
6095: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6096: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6099: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6100: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6094: PO_DEBUG.debug_begin(l_log_head);
6095: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6096: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6099: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6100: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6102: END IF;
6095: PO_DEBUG.debug_var(l_log_head,l_progress,'p_job_id',p_job_id);
6096: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6099: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6100: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6102: END IF;
6103:
6096: PO_DEBUG.debug_var(l_log_head,l_progress,'p_category_id',p_category_id);
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6099: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6100: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6102: END IF;
6103:
6104: -- Initialize the out parameter tables
6097: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_type_id',p_line_type_id);
6098: PO_DEBUG.debug_var(l_log_head,l_progress,'p_start_date',p_start_date);
6099: PO_DEBUG.debug_var(l_log_head,l_progress,'p_deliver_to_loc_id',p_deliver_to_loc_id);
6100: PO_DEBUG.debug_var(l_log_head,l_progress,'p_destination_org_id',p_destination_org_id);
6101: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
6102: END IF;
6103:
6104: -- Initialize the out parameter tables
6105: x_vendor_id := po_tbl_number(); -- Bug# 3379053: Initialize x_vendor_id and
6280: IF (nvl(fnd_profile.value('PO_AUTO_SOURCE_DOC'),'N') = 'N') THEN
6281:
6282: l_progress := '040';
6283: IF g_debug_stmt THEN
6284: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Open Cursor l_get_docs_on_asl_csr');
6285: END IF;
6286:
6287: OPEN l_get_docs_on_asl_csr (l_org_id,
6288: x_vendor_site_id(i),
6304: */
6305:
6306: l_progress := '050';
6307: IF g_debug_stmt THEN
6308: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Open Cursor l_get_latest_docs_csr');
6309: END IF;
6310:
6311: OPEN l_get_latest_docs_csr (l_org_id,
6312: --x_vendor_id(i),
6389:
6390: l_progress := '130';
6391:
6392: IF g_debug_stmt THEN
6393: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6390: l_progress := '130';
6391:
6392: IF g_debug_stmt THEN
6393: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6391:
6392: IF g_debug_stmt THEN
6393: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6399: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6392: IF g_debug_stmt THEN
6393: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6399: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6400: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6393: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6399: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6400: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6401: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6399: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6400: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6401: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6402: END IF;
6395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6399: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6400: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6401: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6402: END IF;
6403:
6396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6399: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6400: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6401: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6402: END IF;
6403:
6404: l_progress := '140';
6397: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6398: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6399: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6400: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6401: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6402: END IF;
6403:
6404: l_progress := '140';
6405:
6410:
6411: l_progress := '150';
6412:
6413: IF g_debug_stmt THEN
6414: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Call PO_PRICE_BREAK_GRP.get_price_break');
6415: END IF;
6416:
6417: -- Bug 3282423 - Passing sysdate for p_need_by_date instead of start date
6418:
6438:
6439: l_progress := '160';
6440:
6441: IF g_debug_stmt THEN
6442: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After Call PO_PRICE_BREAK_GRP.get_price_break');
6443: END IF;
6444:
6445: -- Set the source of the pricing (line or price break)
6446: l_progress := '170';
6521:
6522: l_progress := '200';
6523:
6524: IF g_debug_stmt THEN
6525: PO_DEBUG.debug_end(l_log_head);
6526: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6527: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6522: l_progress := '200';
6523:
6524: IF g_debug_stmt THEN
6525: PO_DEBUG.debug_end(l_log_head);
6526: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6527: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6523:
6524: IF g_debug_stmt THEN
6525: PO_DEBUG.debug_end(l_log_head);
6526: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6527: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6524: IF g_debug_stmt THEN
6525: PO_DEBUG.debug_end(l_log_head);
6526: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6527: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6525: PO_DEBUG.debug_end(l_log_head);
6526: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6527: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6526: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
6527: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6527: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_id',x_vendor_id);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6528: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_site_id',x_vendor_site_id);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6529: PO_DEBUG.debug_var(l_log_head,l_progress,'x_vendor_contact_id',x_vendor_contact_id);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6530: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_header_id',x_src_doc_header_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_id',x_src_doc_line_id);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_line_num',x_src_doc_line_num);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6540: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6533: PO_DEBUG.debug_var(l_log_head,l_progress,'x_src_doc_type_code',x_src_doc_type_code);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6540: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6541: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6534: PO_DEBUG.debug_var(l_log_head,l_progress,'x_base_price',x_base_price);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6540: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6541: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6542: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6535: PO_DEBUG.debug_var(l_log_head,l_progress,'x_currency_price',x_currency_price);
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6540: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6541: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6542: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6543: END IF;
6536: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_override_flag',x_price_override_flag);
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6540: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6541: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6542: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6543: END IF;
6544: EXCEPTION
6537: PO_DEBUG.debug_var(l_log_head,l_progress,'x_not_to_exceed_price',x_not_to_exceed_price);
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6540: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6541: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6542: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6543: END IF;
6544: EXCEPTION
6545: -- Bug# 3404477: Return msg count and data
6538: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_break_id',x_price_break_id);
6539: PO_DEBUG.debug_var(l_log_head,l_progress,'x_price_differential_flag',x_price_differential_flag);
6540: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_type',x_rate_type);
6541: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate_date',x_rate_date);
6542: PO_DEBUG.debug_var(l_log_head,l_progress,'x_rate',x_rate);
6543: END IF;
6544: EXCEPTION
6545: -- Bug# 3404477: Return msg count and data
6546: WHEN FND_API.G_EXC_ERROR THEN
6560: , p_data => x_msg_data);
6561:
6562: --
6563: IF g_debug_unexp THEN
6564: PO_DEBUG.debug_exc(l_log_head,l_progress);
6565: END IF;
6566: END get_services_asl_list;
6567:
6568:
6865: x_return_status := FND_API.g_ret_sts_success;
6866: x_return_contract := 'N';
6867:
6868: IF g_debug_stmt THEN
6869: PO_DEBUG.debug_stmt (p_log_head => l_log_head,
6870: p_token => l_progress,
6871: p_message => 'Destination Doc Type: '||p_destination_doc_type ||
6872: ' Document Type Code: '||p_document_type_code ||
6873: ' Document Subtype: '||p_document_subtype
6883: AND document_subtype = p_document_subtype;
6884:
6885: l_progress := '020';
6886: IF g_debug_stmt THEN
6887: PO_DEBUG.debug_stmt (p_log_head => l_log_head,
6888: p_token => l_progress,
6889: p_message => 'Use contract for sourcing? '||l_use_contract_for_sourcing||
6890: ' Include noncatalog request? '||l_include_noncatalog_flag);
6891: END IF;
6898: END IF;
6899:
6900: l_progress := '030';
6901: IF g_debug_stmt THEN
6902: PO_DEBUG.debug_stmt (p_log_head => l_log_head,
6903: p_token => l_progress,
6904: p_message => 'Should return contract? '||x_return_contract);
6905: END IF;
6906:
6910: FND_MSG_PUB.add_exc_msg (p_pkg_name => g_pkg_name,
6911: p_procedure_name => 'should_return_contract',
6912: p_error_text => 'Progress: '||l_progress||' Error: '||SUBSTRB(SQLERRM,1,215));
6913: IF g_debug_unexp THEN
6914: PO_DEBUG.debug_exc (p_log_head => l_log_head ||'should_return_contract',
6915: p_progress => l_progress);
6916: END IF;
6917:
6918: END should_return_contract;