DBA Data[Home] [Help]

PACKAGE BODY: APPS.XLA_AMB_INQUIRY_PKG

Source


1 PACKAGE BODY xla_amb_inquiry_pkg AS
2 /* $Header: xlaaminq.pkb 120.1 2003/05/29 17:30:19 wychan ship $ */
3 /*======================================================================+
4 |               Copyrighuc) 1995-2002 Oracle Corporation                |
5 |                       Redwood Shores, CA, USA                         |
6 |                         All rights reserved.                          |
7 +=======================================================================+
8 | PACKAGE NAME                                                          |
9 |    xla_amb_inquiry_pkg                                                |
10 |                                                                       |
11 | DESCRIPTION                                                           |
12 |    XLA AMB Inquiry package                                            |
13 |                                                                       |
14 | HISTORY                                                               |
15 |    01-May-01 Wynne Chan     Created                                   |
16 |                                                                       |
17 +======================================================================*/
18 
19 /*======================================================================+
20 |                                                                       |
21 | Public Procedure                                                      |
22 |                                                                       |
23 | set_check_AF                                                          |
24 |                                                                       |
25 | Set the check_AF variable to 1                                        |
26 |                                                                       |
27 +======================================================================*/
28 
29 PROCEDURE set_check_AF
30 IS
31 BEGIN
32   XLA_AMB_INQUIRY_PKG.check_AF := 1;
33 END;
34 
35 /*======================================================================+
36 |                                                                       |
37 | Public Procedure                                                      |
38 |                                                                       |
39 | unset_check_AF                                                        |
40 |                                                                       |
41 | Set the check_AF variable to 0                                        |
42 |                                                                       |
43 +======================================================================*/
44 
45 PROCEDURE unset_check_AF
46 IS
47 BEGIN
48   XLA_AMB_INQUIRY_PKG.check_AF := 0;
49 END;
50 
51 /*======================================================================+
52 |                                                                       |
53 | Public Procedure                                                      |
54 |                                                                       |
55 | set_check_SS                                                          |
56 |                                                                       |
57 | Set the check_SS variable to 1                                        |
58 |                                                                       |
59 +======================================================================*/
60 
61 PROCEDURE set_check_SS
62 IS
63 BEGIN
64   XLA_AMB_INQUIRY_PKG.check_SS := 1;
65 END;
66 
67 /*======================================================================+
68 |                                                                       |
69 | Public Procedure                                                      |
70 |                                                                       |
71 | unset_check_SS                                                        |
72 |                                                                       |
73 | Set the check_SS variable to 0                                        |
74 |                                                                       |
75 +======================================================================*/
76 
77 PROCEDURE unset_check_SS
78 IS
79 BEGIN
80   XLA_AMB_INQUIRY_PKG.check_SS := 0;
81 END;
82 
83 /*======================================================================+
84 |                                                                       |
85 | Public Procedure                                                      |
86 |                                                                       |
87 | set_check_SD                                                          |
88 |                                                                       |
89 | Set the check_SD variable to 1                                        |
90 |                                                                       |
91 +======================================================================*/
92 
93 PROCEDURE set_check_SD
94 IS
95 BEGIN
96   XLA_AMB_INQUIRY_PKG.check_SD := 1;
97 END;
98 
99 /*======================================================================+
100 |                                                                       |
101 | Public Procedure                                                      |
102 |                                                                       |
103 | unset_check_SD                                                        |
104 |                                                                       |
105 | Set the check_SD variable to 0                                        |
106 |                                                                       |
107 +======================================================================*/
108 
109 PROCEDURE unset_check_SD
110 IS
111 BEGIN
112   XLA_AMB_INQUIRY_PKG.check_SD := 0;
113 END;
114 
115 /*======================================================================+
116 |                                                                       |
117 | Public Procedure                                                      |
118 |                                                                       |
119 | unset_check_all                                                       |
120 |                                                                       |
121 | Unset all check_XX variable                                           |
122 |                                                                       |
123 +======================================================================*/
124 
125 PROCEDURE unset_check_all
126 IS
127 BEGIN
128   XLA_AMB_INQUIRY_PKG.check_AF := 0;
129   XLA_AMB_INQUIRY_PKG.check_SS := 0;
130   XLA_AMB_INQUIRY_PKG.check_SD := 0;
131 END;
132 
133 /*======================================================================+
134 |                                                                       |
135 | Public Procedure                                                      |
136 |                                                                       |
137 | set_check_summary                                                     |
138 |                                                                       |
139 | Set the summary level checking to 1 (AF and SS)                       |
140 |                                                                       |
141 +======================================================================*/
142 
143 PROCEDURE set_check_summary
144 IS
145 BEGIN
146   XLA_AMB_INQUIRY_PKG.check_AF := 1;
147   XLA_AMB_INQUIRY_PKG.check_SS := 1;
148   XLA_AMB_INQUIRY_PKG.check_SD := 0;
149 END;
150 
151 
152 /*======================================================================+
153 |                                                                       |
154 | Public Function                                                       |
155 |                                                                       |
156 | get_check_AF                                                          |
157 |                                                                       |
158 | Return the value of the check_AF variable                             |
159 |                                                                       |
160 +======================================================================*/
161 
162 FUNCTION get_check_AF RETURN NUMBER
163 IS
164 BEGIN
165   RETURN XLA_AMB_INQUIRY_PKG.check_AF;
166 END;
167 
168 /*======================================================================+
169 |                                                                       |
170 | Public Function                                                       |
171 |                                                                       |
172 | get_check_SS                                                          |
173 |                                                                       |
174 | Return the value of the check_SS variable                             |
175 |                                                                       |
176 +======================================================================*/
177 
178 FUNCTION get_check_SS RETURN NUMBER
179 IS
180 BEGIN
181   RETURN XLA_AMB_INQUIRY_PKG.check_SS;
182 END;
183 
184 /*======================================================================+
185 |                                                                       |
186 | Public Function                                                       |
187 |                                                                       |
188 | get_check_SD                                                          |
189 |                                                                       |
190 | Return the value of the check_SD variable                             |
191 |                                                                       |
192 +======================================================================*/
193 
194 FUNCTION get_check_SD RETURN NUMBER
195 IS
196 BEGIN
197   RETURN XLA_AMB_INQUIRY_PKG.check_SD;
198 END;
199 
200 
201 END xla_amb_inquiry_pkg;