89:
90: i BINARY_INTEGER;
91:
92: l_fully_res_flag financials_system_parameters.req_encumbrance_flag%TYPE;
93: l_auth_status po_releases.authorization_status%TYPE;
94: l_head_closed po_releases.closed_code%TYPE;
95:
96: l_user_hold_flag po_releases.hold_flag%TYPE;
97: l_ship_closed po_line_locations.closed_code%TYPE;
90: i BINARY_INTEGER;
91:
92: l_fully_res_flag financials_system_parameters.req_encumbrance_flag%TYPE;
93: l_auth_status po_releases.authorization_status%TYPE;
94: l_head_closed po_releases.closed_code%TYPE;
95:
96: l_user_hold_flag po_releases.hold_flag%TYPE;
97: l_ship_closed po_line_locations.closed_code%TYPE;
98: l_line_closed po_lines.closed_code%TYPE;
92: l_fully_res_flag financials_system_parameters.req_encumbrance_flag%TYPE;
93: l_auth_status po_releases.authorization_status%TYPE;
94: l_head_closed po_releases.closed_code%TYPE;
95:
96: l_user_hold_flag po_releases.hold_flag%TYPE;
97: l_ship_closed po_line_locations.closed_code%TYPE;
98: l_line_closed po_lines.closed_code%TYPE;
99: l_closed_code VARCHAR2(26);
100: l_frozen_flag po_releases.frozen_flag%TYPE;
96: l_user_hold_flag po_releases.hold_flag%TYPE;
97: l_ship_closed po_line_locations.closed_code%TYPE;
98: l_line_closed po_lines.closed_code%TYPE;
99: l_closed_code VARCHAR2(26);
100: l_frozen_flag po_releases.frozen_flag%TYPE;
101:
102: l_state_found BOOLEAN;
103:
104: d_progress NUMBER;
111: SELECT nvl(por.authorization_status, 'INCOMPLETE'),
112: nvl(por.closed_code, 'OPEN'),
113: nvl(por.frozen_flag, 'N'),
114: nvl(por.hold_flag, 'N')
115: FROM po_releases por
116: WHERE por.po_release_id = docid;
117:
118: CURSOR state_po(docid NUMBER) IS
119: SELECT nvl(poh.authorization_status, 'INCOMPLETE'),
512: d_progress := 20;
513:
514: SELECT por.agent_id
515: INTO x_preparer_id
516: FROM po_releases_all por
517: WHERE por.po_release_id = p_document_id;
518:
519: d_progress := 30;
520: IF (PO_LOG.d_stmt) THEN
930: por.revision_num
931: INTO l_old_status,
932: l_creation_date,
933: l_revision_num
934: FROM PO_RELEASES por
935: WHERE por.po_release_id = p_document_id; --
936:
937: ELSE
938:
1811: THEN
1812:
1813: d_progress := 110;
1814:
1815: UPDATE PO_RELEASES por
1816: SET por.authorization_status = p_new_status,
1817: por.approved_flag = DECODE(p_new_status,
1818: PO_DOCUMENT_ACTION_PVT.g_doc_status_APPROVED, 'Y',
1819: PO_DOCUMENT_ACTION_PVT.g_doc_status_REAPPROVAL, 'R',