118: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
119: RAISE FND_API.g_exc_unexpected_error;
120: END IF;
121:
122: PO_Document_Control_PVT.control_document
123: (p_api_version => 1.0,
124: p_init_msg_list => FND_API.G_FALSE,
125: p_commit => FND_API.G_FALSE,
126: x_return_status => x_return_status,
261: END IF;
262:
263: -- Call private level validation. If the agent ID is not NULL, then user
264: -- authority and document access levels will be validated as well.
265: PO_Document_Control_PVT.val_control_action
266: (p_api_version => 1.0,
267: p_init_msg_list => FND_API.G_FALSE,
268: x_return_status => x_return_status,
269: p_doc_type => p_doc_type,
574:
575: -- Find level of control action
576: IF (p_doc_line_loc_id IS NOT NULL) OR (p_doc_shipment_num IS NOT NULL)
577: THEN
578: l_control_level := PO_Document_Control_PVT.g_shipment_level;
579: ELSIF (p_doc_line_id IS NOT NULL) OR (p_doc_line_num IS NOT NULL) THEN
580: l_control_level := PO_Document_Control_PVT.g_line_level;
581: ELSE
582: l_control_level := PO_Document_Control_PVT.g_header_level;
576: IF (p_doc_line_loc_id IS NOT NULL) OR (p_doc_shipment_num IS NOT NULL)
577: THEN
578: l_control_level := PO_Document_Control_PVT.g_shipment_level;
579: ELSIF (p_doc_line_id IS NOT NULL) OR (p_doc_line_num IS NOT NULL) THEN
580: l_control_level := PO_Document_Control_PVT.g_line_level;
581: ELSE
582: l_control_level := PO_Document_Control_PVT.g_header_level;
583: END IF; --
584:
578: l_control_level := PO_Document_Control_PVT.g_shipment_level;
579: ELSIF (p_doc_line_id IS NOT NULL) OR (p_doc_line_num IS NOT NULL) THEN
580: l_control_level := PO_Document_Control_PVT.g_line_level;
581: ELSE
582: l_control_level := PO_Document_Control_PVT.g_header_level;
583: END IF; --
584:
585: -- Derive header
586: IF (p_doc_id IS NULL) THEN
602: '.validated_header', 'ID: ' || NVL(TO_CHAR(x_doc_id),'null'));
603: END IF;
604: END IF;
605:
606: IF (l_control_level <> PO_Document_Control_PVT.g_header_level) THEN
607:
608: IF (p_doc_line_id IS NULL) THEN
609: SELECT pol.po_line_id
610: INTO x_doc_line_id
627: END IF;
628: END IF;
629:
630: -- Derive shipment if at shipment level and doc is PO
631: IF (l_control_level = PO_Document_Control_PVT.g_shipment_level) THEN
632:
633: IF (p_doc_type = 'PO') THEN
634:
635: IF (p_doc_line_loc_id IS NULL) THEN
765:
766: -- Find level of control action
767: IF (p_doc_line_loc_id IS NOT NULL) OR (p_doc_shipment_num IS NOT NULL)
768: THEN
769: l_control_level := PO_Document_Control_PVT.g_rel_shipment_level;
770: ELSE
771: l_control_level := PO_Document_Control_PVT.g_rel_header_level;
772: END IF; --
773:
767: IF (p_doc_line_loc_id IS NOT NULL) OR (p_doc_shipment_num IS NOT NULL)
768: THEN
769: l_control_level := PO_Document_Control_PVT.g_rel_shipment_level;
770: ELSE
771: l_control_level := PO_Document_Control_PVT.g_rel_header_level;
772: END IF; --
773:
774: -- Derive release header
775: IF (p_release_id IS NULL) THEN
820: END IF;
821: END IF;
822:
823: -- Derive release shipment if at shipment level
824: IF (l_control_level = PO_Document_Control_PVT.g_rel_shipment_level) THEN
825:
826: IF (p_doc_line_loc_id IS NULL) THEN
827: -- SQL What: Query to find the line_location_id
828: -- SQL Why: Need to derive the missing unique line_location_id