PACKAGE BODY: APPS.JA_ZZ_SYS_OPTIONS_PKG

Source

1 PACKAGE BODY JA_ZZ_SYS_OPTIONS_PKG AS
2 /* $Header: jazzsopb.pls 120.2 2005/10/30 01:48:16 appldev ship $ */
3 
4 
5 /* ===============================================================*
6  | Fetches the value of Requisition Auto Accounting Flag          |
7  * ===============================================================*/
8 
9         FUNCTION get_auto_accounting_flag
10         (
11 	p_org_id IN NUMBER
12 	) RETURN    VARCHAR2 IS
13 
14         x_auto_acct_flag   po_system_parameters_all.global_attribute3%type;
15 
16         BEGIN
17 
18           BEGIN
19 
20             /* Y-Yes; N-No */
21             Select global_attribute3
22               Into   x_auto_acct_flag
23               From   po_system_parameters_all
24               Where  nvl(org_id,-99) = nvl(p_org_id,-99);
25           Exception
26             when others THEN
27               x_auto_acct_flag := NULL;
28           END;
29 
30           return(x_auto_acct_flag);
31 
32         END get_auto_accounting_flag;
33 
34 /* ================================================================*
35  | Fetches the value of Australian Requisition Import Flag         |
36  * ================================================================*/
37 
38         FUNCTION get_po_import_req_flag
39         (
40 	p_org_id IN NUMBER
41 	) RETURN    VARCHAR2 IS
42 
43         x_po_import_req_flag   po_system_parameters_all.global_attribute4%type;
44 
45         BEGIN
46 
47           BEGIN
48 
49             /* Y-Yes; N-No */
50             Select global_attribute4
51               Into   x_po_import_req_flag
52               From   po_system_parameters_all
53               Where  nvl(org_id,-99) = nvl(p_org_id,-99);
54           Exception
55             when others THEN
56               x_po_import_req_flag := NULL;
57           END;
58 
59           return(x_po_import_req_flag);
60 
61          END get_po_import_req_flag;
62 
63 
64 END JA_ZZ_SYS_OPTIONS_PKG;