603: IF (l_return_code = po_approvallist_s1.E_SUCCESS) THEN
604: p_return_code := 1;
605:
606: select to_char(last_update_date, g_date_format_mask) into p_last_update_date
607: from po_approval_list_headers
608: where approval_list_header_id = p_approval_list_header_id;
609: ELSE
610: -- Deal with the specific error codes if needed
611: -- Handle the error stack
842:
843: --------------------------------------------------------------------------------
844: --Start of Comments
845: --Function:
846: -- Find the latest records in po_approval_list_headers and
847: -- po_approval_list_lines for p_existing_requisition_id and
848: -- copy into p_new_requisition_id
849: -- the attributes are not duplicated as they are currently not used in iP approval list
850: -- note, the approval list is re-sequenced if necessary
894: if (p_new_requisition_id is null or p_existing_requisition_id is null) then
895: return;
896: end if;
897:
898: SELECT po_approval_list_headers_s.nextval
899: INTO l_new_approval_list_header_id
900: FROM sys.dual;
901:
902: SELECT approval_list_header_id, current_sequence_num
900: FROM sys.dual;
901:
902: SELECT approval_list_header_id, current_sequence_num
903: INTO l_old_approval_list_header_id, l_old_current_sequence_num
904: FROM po_approval_list_headers
905: WHERE document_id = p_existing_requisition_id
906: AND document_type = 'REQUISITION'
907: AND latest_revision = 'Y';
908:
908:
909: DELETE FROM po_approval_list_lines
910: WHERE approval_list_header_id in
911: (select approval_list_header_id
912: FROM po_approval_list_headers
913: WHERE document_id = p_new_requisition_id
914: AND document_type = 'REQUISITION');
915:
916: DELETE FROM po_approval_list_headers
912: FROM po_approval_list_headers
913: WHERE document_id = p_new_requisition_id
914: AND document_type = 'REQUISITION');
915:
916: DELETE FROM po_approval_list_headers
917: WHERE document_id = p_new_requisition_id
918: AND document_type = 'REQUISITION';
919:
920: l_progress := '002:'||l_old_approval_list_header_id ||';'|| l_old_current_sequence_num;
926: approval_list_header_id = l_old_approval_list_header_id;
927:
928: l_progress := '003:'|| l_new_current_sequence_num;
929:
930: INSERT INTO po_approval_list_headers (
931: approval_list_header_id,
932: document_id,
933: document_type,
934: document_subtype,
959: SYSDATE,
960: fnd_global.login_id,
961: fnd_global.user_id,
962: SYSDATE
963: FROM po_approval_list_headers
964: WHERE document_id = p_existing_requisition_id
965: AND document_type = 'REQUISITION'
966: AND latest_revision = 'Y';
967:
1032: l_approver_id number;
1033:
1034: cursor adhoc_approver_c IS
1035: select pal.approver_id
1036: from po_approval_list_lines pal, po_approval_list_headers pah,
1037: po_requisition_headers_all prh
1038: where pal.approval_list_header_id = pah.approval_list_header_id
1039: and pah.latest_revision = 'Y'
1040: and pal.mandatory_flag = 'N'