PACKAGE BODY: APPS.PO_RCOTOLERANCE_GRP

Source

1 PACKAGE BODY PO_RCOTOLERANCE_GRP AS
2 /* $Header: POXGRTWB.pls 120.1.12010000.2 2008/11/03 10:27:05 rojain ship $*/
3 
4 
5 /**
6 * Public PROCEDURE set_approval_required_flag
7 * Requires: Change Request Group Id
8 * Modifies: Updates po_change_requests with the result of the tolerance check.
9 * Returns:
10 *  approval_required_flag: Y if user cannot auto approve
11 *                        : N if he/she can auto approve
12 */
13 
14 PROCEDURE set_approval_required_flag(
15   p_chreqgrp_id IN NUMBER
16 , x_appr_status OUT NOCOPY VARCHAR2
17 , p_source_type_code  IN VARCHAR2 DEFAULT NULL
18 )
19 IS
20 BEGIN
21    po_rcotolerance_pvt.set_approval_required_flag(p_chreqgrp_id,
22 			    x_appr_status,
23 		                              p_source_type_code);
24 EXCEPTION WHEN OTHERS THEN
25   -- do not raise exception. if something wrong, just assume owner needs approval
26   x_appr_status := 'Y';
27 END;
28 
29 
30 END po_rcotolerance_grp;
31