PACKAGE BODY: APPS.PO_REQS_SV2

Source

1 PACKAGE BODY PO_REQS_SV2 as
2 /* $Header: POXRQR2B.pls 115.2 2002/11/23 01:55:26 sbull ship $ */
3 /*===========================================================================
4 
5   PROCEDURE NAME:	get_reqs_auth_status
6 
7 ===========================================================================*/
8 
9  PROCEDURE get_reqs_auth_status
10                   (X_req_header_id               IN     NUMBER,
11                    X_req_header_auth_status      IN OUT NOCOPY VARCHAR2,
12                    X_req_header_auth_status_dsp  IN OUT NOCOPY VARCHAR2,
13                    X_req_control_error_rc        IN OUT NOCOPY VARCHAR2) IS
14 
15    X_progress                 VARCHAR2(3) := NULL;
16 
17  BEGIN
18        X_progress := '010';
19 
20 	-- WF change by Iali. 07/24/97 - modified 10/01/97
21 
22 	select distinct polc.DISPLAYED_FIELD,  porh.AUTHORIZATION_STATUS
23 	INTO   X_req_header_auth_status_dsp, X_req_header_auth_status
24 	from PO_LOOKUP_CODES polc, PO_REQUISITION_HEADERS_ALL porh
25 	where
26 	porh.authorization_status = polc.LOOKUP_CODE
27 	and polc.LOOKUP_TYPE = 'AUTHORIZATION STATUS'
28 	and porh.requisition_header_id = X_req_header_id;
29 
30 /*       SELECT authorization_status
31        INTO   X_req_header_auth_status
32        FROM   PO_REQUISITION_HEADERS
33        WHERE  requisition_header_id = X_req_header_id;
34 */
35 
36    EXCEPTION
37    WHEN NO_DATA_FOUND THEN
38       X_req_control_error_rc := 'Y';
39       po_message_s.sql_error('get_reqs_auth_status', X_progress, sqlcode);
40       RAISE;
41    WHEN OTHERS THEN
42       X_req_control_error_rc := 'Y';
43       po_message_s.sql_error('get_reqs_auth_status', X_progress, sqlcode);
44       RAISE;
45 
46  END get_reqs_auth_status;
47 
48 /*===========================================================================
49 
50   PROCEDURE NAME:       WF_notifications_commit
51 
52 ===========================================================================*/
53 
54 PROCEDURE WF_notifications_commit IS
55 BEGIN
56         commit;
57 END WF_notifications_commit;
58 
59 END PO_REQS_SV2;