[Home] [Help]
9: l_proc_name CONSTANT VARCHAR2(50) := 'sbcr_source_doc_default';
10: l_api_name CONSTANT VARCHAR2(100):= g_pkg_name ||'.'||l_proc_name;
11:
12: l_line_amount NUMBER := 0;
13: l_currency_code po_headers_draft_all.currency_code%type;
14: l_precision gl_currencies.precision%TYPE;
15: l_ext_precision gl_currencies.extended_precision%TYPE;
16: l_min_unit gl_currencies.minimum_accountable_unit%TYPE;
17:
24: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_api_name, 'Input Parameter p_po_draft_id: ' || p_po_draft_id);
25: END IF;
26:
27: SELECT currency_code INTO l_currency_code
28: FROM po_headers_draft_all
29: WHERE po_header_id = p_po_header_id AND draft_id = p_po_draft_id;
30:
31: fnd_currency.get_info(l_currency_code, l_precision, l_ext_precision, l_min_unit);
32:
152: WHERE auction_header_id = p_source_doc_id;
153: ELSE --for doc types PO_STANDARD_MOD, PA_BLANKET_MOD, PA_CONTRACT_MOD
154: SELECT PO_UDA_PUB.get_address_attr_value(uda_template_id, NULL, po_header_id, draft_id, NULL, NULL, NULL, NULL, 'addresses', NULL, 'contact', 'ISSUING_OFFICE', 'DISPLAY_VALUE')
155: INTO x_buyer_name
156: FROM po_headers_draft_all
157: WHERE draft_id = p_source_doc_id;
158: END IF;
159:
160: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
190: WHERE auction_header_id = p_source_doc_id;
191: ELSE --for doc types PO_STANDARD_MOD, PA_BLANKET_MOD, PA_CONTRACT_MOD
192: SELECT PO_UDA_PUB.get_address_attr_value(uda_template_id, NULL, po_header_id, draft_id, NULL, NULL, NULL, NULL, 'addresses', NULL, 'addresscode', 'ISSUING_OFFICE', 'DISPLAY_VALUE')
193: INTO x_issuing_off_symbol
194: FROM po_headers_draft_all
195: WHERE draft_id = p_source_doc_id;
196: END IF;
197:
198: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
262: FROM pon_auction_headers_all
263: WHERE auction_header_id = p_source_doc_id;
264: ELSE --for doc types PO_STANDARD_MOD, PA_BLANKET_MOD, PA_CONTRACT_MOD
265: SELECT currency_code INTO x_currency
266: FROM po_headers_draft_all
267: WHERE draft_id = p_source_doc_id;
268: END IF;
269:
270: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
303: ELSIF p_source_doc_type = 'PA_CONTRACT_MOD' THEN
304: --for IDV without lines document, there will nto be lines, getting the value from header
305: SELECT PO_UDA_PUB.get_single_attr_value(uda_template_id, NULL, po_header_id, draft_id, NULL, NULL, NULL, NULL, 'SET_ASIDE_INFO', NULL, 'NAICS', 'INTERNAL_VALUE' )
306: INTO x_naics_code
307: FROM po_headers_draft_all
308: WHERE draft_id = p_source_doc_id;
309:
310: ELSE -- for doc types PO_STANDARD_MOD, PA_BLANKET_MOD
311: x_naics_code := PO_UDA_PUB.get_single_attr_value(p_entity_code => 'PO_LINE_EXT_ATTRS',
348: WHERE auction_header_id = p_source_doc_id;
349: ELSE --for doc types PO_STANDARD_MOD, PA_BLANKET_MOD, PA_CONTRACT_MOD
350: SELECT PO_UDA_PUB.get_single_attr_value(uda_template_id, NULL, po_header_id, draft_id, NULL, NULL, NULL, NULL, 'SET_ASIDE_INFO', NULL, 'SIZE_STANDARD', 'INTERNAL_VALUE')
351: INTO x_size_standard
352: FROM po_headers_draft_all
353: WHERE draft_id = p_source_doc_id;
354: END IF;
355:
356: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: ELSIF p_source_doc_type = 'PA_CONTRACT_MOD' THEN
390: --for IDV without lines document, there will nto be lines, getting the value from header
391: SELECT PO_UDA_PUB.get_multi_attr_value(uda_template_id, NULL, po_header_id, draft_id, NULL, NULL, NULL, NULL, 'FSC_PSC', NULL, 'FSC_PSC', NULL, 'INTERNAL_VALUE')
392: INTO l_fsc_svc_codes
393: FROM po_headers_draft_all
394: WHERE draft_id = p_source_doc_id;
395:
396: IF l_fsc_svc_codes IS NOT NULL AND l_fsc_svc_codes.COUNT > 0 THEN
397: x_fsc_svc_code := l_fsc_svc_codes(1);