[Home] [Help]
263: -- None.
264: --Locks:
265: -- None.
266: --Function:
267: -- 1. Create a record in PO_DRAFTS with a newly generated DRAFT_ID
268: -- 2. Call PO_HEADERS_DRAFT_PKG.sync_draft_from_txn to create a record in Po Draft Header Table.
269: --Parameters:
270: --IN:
271: --p_po_header_id
297: PO_LOG.proc_begin(d_module,'p_po_header_id',p_po_header_id);
298: END IF;
299:
300: d_position := 10;
301: debug(d_module, d_position, 'Create row in PO_DRAFTS for the new Mod', FND_API.G_TRUE);
302:
303: -- Fetch the new DraftId from sequence
304: l_draft_id:= PO_DRAFTS_PVT.draft_id_nextval;
305:
300: d_position := 10;
301: debug(d_module, d_position, 'Create row in PO_DRAFTS for the new Mod', FND_API.G_TRUE);
302:
303: -- Fetch the new DraftId from sequence
304: l_draft_id:= PO_DRAFTS_PVT.draft_id_nextval;
305:
306: INSERT INTO po_drafts(
307: draft_id,
308: document_id,
302:
303: -- Fetch the new DraftId from sequence
304: l_draft_id:= PO_DRAFTS_PVT.draft_id_nextval;
305:
306: INSERT INTO po_drafts(
307: draft_id,
308: document_id,
309: owner_user_id,
310: owner_role,
328: SYSDATE,
329: FND_GLOBAL.user_id);
330:
331: d_position := 20;
332: debug(d_module, d_position, 'Row created into PO_DRAFTS');
333:
334: d_position := 30;
335: debug(d_module, d_position, 'Create row into PO_HEADERS_DRAFT_ALL for the new Mod', FND_API.G_TRUE);
336:
376: -- 2. Copy Multi-Mod UDA Data from Base document to the new Mod
377: -- 3. Default Document Number for the newly created Mod
378: -- 4. Default Standard Doc/Standard Form fields
379: -- 5. Default AME Data
380: -- 6. Update PO_DRAFTS/ PO_DRAFT_HEADERS_ALL with the Multi-Mod data and other defaults
381: -- 7. Copy Contract terms to the new Mod
382: --Parameters:
383: --IN:
384: --p_multi_mod_request_record
430: l_print_doc_type VARCHAR2(2000);
431:
432: l_record_already_exists VARCHAR2(1);
433: l_clm_source_document_id NUMBER;
434: l_doc_number po_drafts.modification_number%TYPE;
435: l_standard_form po_headers_all.clm_standard_form%TYPE;
436: l_document_format po_headers_all.clm_document_format%TYPE;
437: l_ame_transaction_type po_headers_all.ame_transaction_type%TYPE;
438: l_ame_approval_id po_headers_all.ame_approval_id%TYPE;
648: p_doc_sub_type => p_doc_subtype);
649: --
650:
651: d_position := 60;
652: debug(d_module, d_position, 'Update PO_DRAFTS with the Mod-specific defaults and Multi-mod fields', FND_API.G_TRUE);
653:
654: UPDATE po_drafts
655: SET modification_number = l_doc_number,
656: clm_standard_form = l_standard_form,
650:
651: d_position := 60;
652: debug(d_module, d_position, 'Update PO_DRAFTS with the Mod-specific defaults and Multi-mod fields', FND_API.G_TRUE);
653:
654: UPDATE po_drafts
655: SET modification_number = l_doc_number,
656: clm_standard_form = l_standard_form,
657: clm_document_format = l_document_format,
658: mod_effective_date = p_multi_mod_request_record.mod_effective_date,
2629: SELECT 'Y'
2630: INTO l_mod_exists
2631: FROM dual
2632: WHERE EXISTS (SELECT 'Mod Exists'
2633: FROM po_drafts
2634: WHERE document_id = p_po_header_id
2635: AND status IN ('DRAFT', 'IN PROCESS', 'REJECTED', 'SUPPLIER SIGN', 'PRE-APPROVED'));
2636: EXCEPTION
2637: WHEN NO_DATA_FOUND THEN
2771: l_entity_pk4(l_cntr) := null;
2772: END IF;
2773: END LOOP;
2774:
2775: PO_DRAFTS_PVT.lock_entities(p_entity_name_tbl => l_entity_names_tbl,
2776: p_draft_id => l_draft_id,
2777: p_pk1_tbl => l_entity_pk1,
2778: p_pk2_tbl => l_edited_entity_pk2,
2779: p_pk3_tbl => l_entity_pk3,