[Home] [Help]
64: l_default_doc_number_exception EXCEPTION;
65:
66: l_is_ord_off_idv VARCHAR2(2);
67: l_print_doc_type VARCHAR2(2000);
68: l_standard_form VARCHAR2(200);
69: l_document_format VARCHAR2(200);
70: l_authorization_status po_headers_all.AUTHORIZATION_STATUS%TYPE; /*bug 12611018*/
71: l_clm_default_dist VARCHAR2(1);
72: l_clm_mipr_type VARCHAR2(15);
223: THEN
224: IF po_autocreate_params.g_sys.user_defined_po_num_code =
225: 'AUTOMATIC'
226: AND ( po_autocreate_params.g_document_subtype = 'BLANKET'
227: OR po_autocreate_params.g_document_subtype = 'STANDARD'
228: )
229: AND
230: /* If emergency po number is mentioned then the interface document number
231: will have that value and it can be alphanumeric though the po num code
382:
383: l_create_doc_from_draft := create_doc_from_draft_check(l_doc_row.po_header_id);
384:
385:
386: -- Getting CLM Standard Form and CLM Document Format
387: IF po_autocreate_params.g_mode = 'ADD' AND
388: l_create_doc_from_draft = 'N' AND
389: NOT PO_AUTOCREATE_PARAMS.g_is_mod_exists -- New Mod
390: THEN
427:
428: IF l_is_ord_off_idv = 'Y' THEN
429: l_print_doc_type := 'PO_DEL_ORD_STD_FORM';
430: ELSE
431: IF PO_AUTOCREATE_PARAMS.g_document_subtype = 'STANDARD' THEN
432: l_print_doc_type := 'PO_AWARD_STD_FORM';
433: ELSIF PO_AUTOCREATE_PARAMS.g_document_subtype = 'BLANKET' THEN
434: l_print_doc_type := 'PO_IDV_STD_FORM';
435: ELSIF PO_AUTOCREATE_PARAMS.g_document_subtype = 'CONTRACT' THEN
438: END IF; -- IF l_is_ord_off_idv = 'Y'
439:
440: END IF; -- IF po_autocreate_params.g_mode = 'NEW' OR l_create_doc_from_draft = 'Y'
441:
442: -- Getting Standard Form and Document Format of the output document
443: BEGIN
444: --Validating the standard_form and document_format in interface
445: SELECT standard_form,
446: document_format
440: END IF; -- IF po_autocreate_params.g_mode = 'NEW' OR l_create_doc_from_draft = 'Y'
441:
442: -- Getting Standard Form and Document Format of the output document
443: BEGIN
444: --Validating the standard_form and document_format in interface
445: SELECT standard_form,
446: document_format
447: INTO l_standard_form,
448: l_document_format
441:
442: -- Getting Standard Form and Document Format of the output document
443: BEGIN
444: --Validating the standard_form and document_format in interface
445: SELECT standard_form,
446: document_format
447: INTO l_standard_form,
448: l_document_format
449: FROM po_print_form_formats
443: BEGIN
444: --Validating the standard_form and document_format in interface
445: SELECT standard_form,
446: document_format
447: INTO l_standard_form,
448: l_document_format
449: FROM po_print_form_formats
450: WHERE NVL(inactive_date, SYSDATE+1) > SYSDATE
451: AND standard_form = x_headers.clm_standard_form
447: INTO l_standard_form,
448: l_document_format
449: FROM po_print_form_formats
450: WHERE NVL(inactive_date, SYSDATE+1) > SYSDATE
451: AND standard_form = x_headers.clm_standard_form
452: AND document_format = x_headers.clm_document_format;
453:
454: EXCEPTION
455: WHEN No_Data_Found THEN
453:
454: EXCEPTION
455: WHEN No_Data_Found THEN
456: BEGIN
457: --Defaulting standard_form and document_format
458: SELECT standard_form,
459: document_format
460: INTO l_standard_form,
461: l_document_format
454: EXCEPTION
455: WHEN No_Data_Found THEN
456: BEGIN
457: --Defaulting standard_form and document_format
458: SELECT standard_form,
459: document_format
460: INTO l_standard_form,
461: l_document_format
462: FROM po_print_form_formats
456: BEGIN
457: --Defaulting standard_form and document_format
458: SELECT standard_form,
459: document_format
460: INTO l_standard_form,
461: l_document_format
462: FROM po_print_form_formats
463: WHERE NVL(inactive_date, SYSDATE+1) > SYSDATE
464: AND default_flag = 'Y'
466: AND document_type = l_print_doc_type;
467:
468: EXCEPTION
469: WHEN No_Data_Found THEN
470: l_standard_form := NULL;
471: l_document_format := NULL;
472: WHEN OTHERS THEN
473: l_standard_form := NULL;
474: l_document_format := NULL;
469: WHEN No_Data_Found THEN
470: l_standard_form := NULL;
471: l_document_format := NULL;
472: WHEN OTHERS THEN
473: l_standard_form := NULL;
474: l_document_format := NULL;
475: END;
476: WHEN OTHERS THEN
477: l_standard_form := NULL;
473: l_standard_form := NULL;
474: l_document_format := NULL;
475: END;
476: WHEN OTHERS THEN
477: l_standard_form := NULL;
478: l_document_format := NULL;
479: END;
480:
481:
479: END;
480:
481:
482: -- New PO case
483: -- Default the value of clm_standard_form and clm_standard_form in Award
484: -- CLM-LnSc: Default clm_default_dist_flag for New PO
485: IF po_autocreate_params.g_mode = 'NEW' THEN
486:
487: --
492: p_doc_sub_type => PO_AUTOCREATE_PARAMS.g_document_subtype);
493: --
494:
495: UPDATE po_headers_draft_all
496: SET clm_standard_form = l_standard_form,
497: clm_document_format = l_document_format,
498: clm_default_dist_flag = l_clm_default_dist
499: WHERE po_header_id = l_doc_row.po_header_id;
500:
501: END IF;
502:
503:
504: -- Add to PO case
505: -- Default the value of clm_standard_form and clm_standard_form in Modification
506: IF po_autocreate_params.g_mode = 'ADD'
507: -- AND create_doc_from_draft_check (l_doc_row.po_header_id) = 'N'
508: AND l_create_doc_from_draft = 'N'
509: AND NOT PO_AUTOCREATE_PARAMS.g_is_mod_exists -- New Mod
511: UPDATE po_drafts
512: SET draft_type = 'MOD'
513: ,modification_number = x_doc_number
514: ,mod_effective_date = sysdate
515: ,clm_standard_form = l_standard_form
516: ,clm_document_format = l_document_format
517: WHERE draft_id = po_autocreate_params.g_draft_id;
518:
519: SELECT po_ame_approvals_s.nextval
716: -- Document specific actions
717: IF po_autocreate_params.g_document_subtype = 'BLANKET'
718: THEN
719: create_blanket (l_doc_row);
720: ELSIF po_autocreate_params.g_document_subtype = 'STANDARD'
721: THEN
722: create_standard_po (l_doc_row);
723: END IF;
724:
718: THEN
719: create_blanket (l_doc_row);
720: ELSIF po_autocreate_params.g_document_subtype = 'STANDARD'
721: THEN
722: create_standard_po (l_doc_row);
723: END IF;
724:
725: l_progress := '090';
726: -- Copy Attachments
827:
828: /* Update the terms after the successful completion of PO */
829: l_progress := '140';
830:
831: IF (po_autocreate_params.g_document_subtype = 'STANDARD')
832: AND (po_autocreate_params.g_interface_source_code <>
833: 'CONSUMPTION_ADVICE'
834: )
835: THEN -- CONSIGNED FPI
1029:
1030:
1031:
1032: /* ============================================================================
1033: NAME: create_standard_po
1034: DESC: Performs necessary post processing action to create a standard po.
1035:
1036: - Get the document num
1037: - Transfer data from draft to base
1030:
1031:
1032: /* ============================================================================
1033: NAME: create_standard_po
1034: DESC: Performs necessary post processing action to create a standard po.
1035:
1036: - Get the document num
1037: - Transfer data from draft to base
1038: - Calculate Tax
1041:
1042: NOTE: This procedure is called from process()
1043:
1044: ==============================================================================*/
1045: PROCEDURE create_standard_po (p_doc_rec IN doc_row_type)
1046: IS
1047: l_api_name VARCHAR2 (30) := 'create_standard_po';
1048: l_progress VARCHAR2 (3) := '000';
1049: BEGIN
1043:
1044: ==============================================================================*/
1045: PROCEDURE create_standard_po (p_doc_rec IN doc_row_type)
1046: IS
1047: l_api_name VARCHAR2 (30) := 'create_standard_po';
1048: l_progress VARCHAR2 (3) := '000';
1049: BEGIN
1050: IF g_debug_stmt
1051: THEN
1076:
1077: --CLM Phase 2 changes : error handling
1078: PO_AUTOCREATE_PVT.report_error('PO_AUTO_POST_CREATEPO_ERR',x_token1_value => sqlerrm);
1079:
1080: po_message_s.sql_error ('CREATE_STANDARD_PO', l_progress, SQLCODE);
1081: po_autocreate_pvt.wrapup ();
1082: RAISE;
1083: END;
1084:
1409: --
1410: IF (l_job_long_description IS NOT NULL)
1411: THEN
1412: l_progress := '030';
1413: -- Initialize Standard WHO Columns.
1414: --
1415: l_who_rec.created_by := intf_rec.created_by;
1416: l_who_rec.creation_date := intf_rec.creation_date;
1417: l_who_rec.last_update_login := intf_rec.last_update_login;
1500:
1501: --copy attachments/notes from negotiation/bid to po/blanket line
1502: IF po_autocreate_params.g_interface_source_code = 'SOURCING'
1503: THEN
1504: IF po_autocreate_params.g_document_subtype = 'STANDARD'
1505: THEN
1506: IF intf_rec.requisition_line_id IS NOT NULL
1507: THEN
1508: x_column1 := 'NEGREQ';
1515: ELSE
1516: x_column1 := 'NEG';
1517: END IF; -- attach_rec.requisition_line_id is not null
1518: ELSIF po_autocreate_params.g_document_subtype = 'BLANKET'
1519: THEN --po_autocreate_params.g_document_subtype = 'STANDARD'
1520: x_column1 := 'NEG';
1521: END IF;
1522:
1523: IF ( po_autocreate_params.g_document_subtype IN
1520: x_column1 := 'NEG';
1521: END IF;
1522:
1523: IF ( po_autocreate_params.g_document_subtype IN
1524: ('BLANKET', 'STANDARD')
1525: /*AND NVL (intf_rec.clm_info_flag, 'N') <> 'Y'*/ AND Nvl(intf_rec.shipment_type, 'NONE') <> 'PRICE BREAK'
1526: )
1527: THEN
1528: l_progress := '100';
1555:
1556: -- If autocreating a SPO or PPO, and the requisition line has a one-time
1557: -- location, move the attachment from the PO line to the PO shipment
1558: IF (po_autocreate_params.g_document_subtype IN
1559: ('STANDARD', 'PLANNED')
1560: )
1561: AND (po_autocreate_mainproc_pvt.has_one_time_location
1562: (intf_rec.requisition_line_id)
1563: )
2123: -- that we need to get the req line number from.
2124: -- We need to update the shipment number to 1.
2125: l_progress := '030';
2126:
2127: IF (x_document_subtype IN ('STANDARD', 'PLANNED'))
2128: THEN
2129: -- For Standard and Planned POs, the line number
2130: -- will be the same as the req line number if the profile
2131: -- is set to 'Y' otherwise use sequential numbers
2125: l_progress := '030';
2126:
2127: IF (x_document_subtype IN ('STANDARD', 'PLANNED'))
2128: THEN
2129: -- For Standard and Planned POs, the line number
2130: -- will be the same as the req line number if the profile
2131: -- is set to 'Y' otherwise use sequential numbers
2132: IF (fnd_profile.VALUE ('PO_USE_REQ_NUM_IN_AUTOCREATE') = 'Y')
2133: THEN
2188: l_clin_num :=
2189: pon_clo_renumber_pkg.increment_clin_number (l_clin_num);
2190: END LOOP;
2191: END IF; -- if fnd_profile.value(PO_USE_REQ_NUM...) = 'Y'
2192: END IF; -- x_document_subtype IN ('STANDARD', 'PLANNED')
2193: ELSE
2194: -- mode = 'ADD'
2195: -- add to a po with the same order as on the req.
2196: IF (x_document_subtype IN ('STANDARD', 'PLANNED'))
2192: END IF; -- x_document_subtype IN ('STANDARD', 'PLANNED')
2193: ELSE
2194: -- mode = 'ADD'
2195: -- add to a po with the same order as on the req.
2196: IF (x_document_subtype IN ('STANDARD', 'PLANNED'))
2197: THEN
2198: -- The inteface table will hold the requisition line id that we
2199: -- will use to get the line number. Select the maximum line number
2200: -- that exists on the purchase order. Update the line number in
2254: (l_priced_slin_num);
2255: END LOOP;
2256: END IF;
2257: END LOOP;
2258: END IF; -- x_document_subtype IN ('STANDARD', 'PLANNED')
2259: END IF; -- mode is NEW/ADD
2260: ELSE
2261: -- g_group_code = 'DEFAULT'
2262: IF (x_document_subtype IN ('STANDARD', 'PLANNED', 'BLANKET'))
2258: END IF; -- x_document_subtype IN ('STANDARD', 'PLANNED')
2259: END IF; -- mode is NEW/ADD
2260: ELSE
2261: -- g_group_code = 'DEFAULT'
2262: IF (x_document_subtype IN ('STANDARD', 'PLANNED', 'BLANKET'))
2263: THEN
2264: l_progress := '230';
2265:
2266: IF g_debug_stmt
2313: END LOOP;
2314: END IF;
2315: END LOOP;
2316: END IF;
2317: -- IF (x_document_subtype IN ('STANDARD', 'PLANNED', 'BLANKET'))
2318: END IF; -- g_group_code = 'DEFAULT'
2319:
2320: -- If there is a mismatch is between clin number/SLIn number. Correct It.
2321: FOR mis_rec IN c_mismatch