662:
663: -- Cursor to get unique Requisition_Header_ID
664: CURSOR req_header_id_cur IS
665: SELECT po_requisition_headers_s.nextval
666: FROM sys.dual;
667:
668: -- Cursor to get unique Requisition_Line_ID
669: CURSOR req_line_id_cur IS
670: SELECT po_requisition_lines_s.nextval
667:
668: -- Cursor to get unique Requisition_Line_ID
669: CURSOR req_line_id_cur IS
670: SELECT po_requisition_lines_s.nextval
671: FROM sys.dual;
672:
673: -- Cursor to get unique Distribution_id
674: CURSOR dist_line_id_cur IS
675: SELECT po_req_distributions_s.nextval
672:
673: -- Cursor to get unique Distribution_id
674: CURSOR dist_line_id_cur IS
675: SELECT po_req_distributions_s.nextval
676: FROM sys.dual;
677:
678: -- Cursor to get Accrual Account ID and Variance Account ID
679: -- For Destination Type Code INVENTORY get accrual account id
680: -- from MTL_PARAMETERS
799: l_header_rec := px_header_rec;
800: l_line_tbl := px_line_table;
801:
802: -- get all the values required to insert into po_requisition_header table
803: SELECT Sysdate INTO l_today FROM dual;
804:
805: l_user_id := fnd_global.user_id;
806: l_login_id := fnd_global.login_id;
807:
820: -- check for uniqueness of requisition_number
821: BEGIN
822:
823: SELECT 'X' INTO l_dummy
824: FROM DUAL
825: WHERE NOT EXISTS
826: ( SELECT 'X'
827: FROM po_requisition_headers
828: WHERE Segment1 = l_header_rec.segment1);