[Home] [Help]
PACKAGE BODY: APPS.RCV_SETUP_S2
Source
1 PACKAGE BODY RCV_SETUP_S2 AS
2 /* $Header: RCVSTS2B.pls 120.2 2006/06/19 07:38:40 rahujain noship $*/
3
4 --Bug 5049614: Creted function get_org_name.
5 /*===========================================================================
6
7 FUNCTION NAME: get_org_name
8
9 ===========================================================================*/
10
11 FUNCTION get_org_name(p_org_id IN NUMBER) RETURN VARCHAR2
12 IS
13 x_org_name VARCHAR2(240);
14 Begin
15 --Bug 5217526. Fetch Org Name from HR_ORGANIZATION_UNITS
16 SELECT ood.name
17 INTO x_org_name
18 FROM HR_ORGANIZATION_UNITS ood
19 WHERE ood.organization_id = p_org_id;
20
21 return (x_org_name);
22
23 EXCEPTION
24
25 WHEN OTHERS THEN
26 return (NULL);
27
28 END get_org_name;
29
30 /*===========================================================================
31
32 FUNCTION NAME: get_receiving_flags
33
34 ===========================================================================*/
35 PROCEDURE get_receiving_flags(x_org_id IN NUMBER,
36 x_blind OUT NOCOPY VARCHAR2,
37 x_express OUT NOCOPY VARCHAR2,
38 x_cascade OUT NOCOPY VARCHAR2,
39 x_unordered OUT NOCOPY VARCHAR2) IS
40
41 /*
42 ** Function will return the Receiving Parameter Value for Blind Receiving
43 ** Flag.
44 */
45
46 x_progress VARCHAR2(3) := '';
47 x_flag VARCHAR2(1);
48
49 BEGIN
50
51 x_progress := '010';
52
53 SELECT BLIND_RECEIVING_FLAG , ALLOW_EXPRESS_DELIVERY_FLAG,
54 ALLOW_CASCADE_TRANSACTIONS, ALLOW_UNORDERED_RECEIPTS_FLAG
55 INTO x_blind, x_express, x_cascade, x_unordered
56 FROM rcv_parameters
57 WHERE organization_id = x_org_id;
58
59 -- Bug 5049614 : Added the following IF condition to raise no_data_found
60 -- exception.
61 IF (SQL%NOTFOUND) THEN
62 RAISE NO_DATA_FOUND;
63 END IF;
64
65 EXCEPTION
66
67 -- Bug 5049614 : Added the no_data_found exception.
68
69 WHEN NO_DATA_FOUND THEN
70 po_message_s.app_error('RCV_NO_OPTION','ORG',get_org_name(x_org_id));
71 RAISE;
72
73 WHEN OTHERS THEN
74 po_message_s.sql_error('get_receiving_flags', x_progress,sqlcode);
75 RAISE;
76
77 END get_receiving_flags;
78
79 /*===========================================================================
80
81 PROCEDURE NAME: get_startup_values()
82
83 ===========================================================================*/
84
85 PROCEDURE get_startup_values(x_sob_id IN OUT NOCOPY NUMBER,
86 x_org_id IN OUT NOCOPY NUMBER,
87 x_org_name OUT NOCOPY VARCHAR2,
88 x_ussgl_value OUT NOCOPY VARCHAR2 ,
89 x_override_routing OUT NOCOPY VARCHAR2,
90 x_transaction_mode OUT NOCOPY VARCHAR2,
91 x_receipt_traveller OUT NOCOPY VARCHAR2,
92 x_period_name OUT NOCOPY VARCHAR2,
93 x_gl_date OUT NOCOPY DATE,
94 x_category_set_id OUT NOCOPY NUMBER,
95 x_structure_id OUT NOCOPY NUMBER,
96 x_receipt_num_code OUT NOCOPY VARCHAR2,
97 x_receipt_num_type OUT NOCOPY VARCHAR2,
98 x_po_num_type OUT NOCOPY VARCHAR2,
99 x_allow_express OUT NOCOPY VARCHAR2,
100 x_allow_cascade OUT NOCOPY VARCHAR2,
101 x_user_id OUT NOCOPY NUMBER,
102 x_logonid OUT NOCOPY NUMBER,
103 x_creation_date OUT NOCOPY DATE,
104 x_update_date OUT NOCOPY DATE,
105 x_coa_id OUT NOCOPY NUMBER,
106 x_org_locator_control OUT NOCOPY NUMBER,
107 x_negative_inv_receipt_code OUT NOCOPY NUMBER,
108 x_gl_set_of_bks_id OUT NOCOPY VARCHAR2,
109 x_blind_Receiving_flag OUT NOCOPY VARCHAR2,
110 x_allow_unordered OUT NOCOPY VARCHAR2 ) is
111
112 /*
113 ** Procedure calls the above hidden procedures within RCV_SETUP_S to get
114 ** startup values.
115 */
116
117 x_progress VARCHAR2(3) := '';
118
119 BEGIN
120 x_progress := 5;
121 /*
122 ** This call is junk. Should never be used since the org and sob id's
123 ** are passed in. Just need to get the org_name
124 */
125
126 /* po_core_s.get_org_sob(x_org_id,x_org_name,x_sob_id); */
127
128 select organization_name
129 into x_org_name
130 FROM org_organization_definitions
131 WHERE organization_id = x_org_id ;
132
133 x_progress := 10;
134 x_ussgl_value := po_core_s.get_ussgl_option;
135
136 x_progress := '015';
137 x_override_routing := RCV_SETUP_S.get_override_routing;
138
139
140 x_progress := '020';
141 x_transaction_mode := RCV_SETUP_S.get_trx_proc_mode;
142
143
144 x_progress := '030';
145 x_receipt_traveller := RCV_SETUP_S.get_print_traveller;
146
147
148 x_progress := '040';
149
150 --<R12 MOAC START>
151 /* Commented the following calls that are operating unit sensitive */
152 /*
153 RCV_SETUP_S.get_receipt_number_info(x_receipt_num_code,
154 x_receipt_num_type,
155 x_po_num_type);
156
157 x_progress := '080';
158 x_coa_id := RCV_SETUP_S.get_chart_of_accounts;
159
160 */
161 --<R12 MOAC END>
162
163 x_progress := 90;
164 PO_CORE_S.get_period_name(x_sob_id,
165 x_period_name,
166 x_gl_date );
167
168 x_progress := 100;
169 po_core_s.get_item_category_structure(x_category_set_id,x_structure_id);
170
171 x_progress := 110;
172 po_core_s.get_global_values(x_user_id,x_logonid,x_update_date,x_creation_date);
173
174 x_progress := 120;
175 RCV_SETUP_S.get_org_locator_control(x_org_id,
176 x_org_locator_control,
177 x_negative_inv_receipt_code);
178
179 x_progress := '125';
180 x_gl_set_of_bks_id := PO_CORE_S.get_gl_set_of_bks_id;
181
182 x_progress := '130';
183 RCV_SETUP_S2.get_receiving_flags (
184 x_org_id,
185 x_blind_receiving_flag,
186 x_allow_express,
187 x_allow_cascade,
188 x_allow_unordered);
189
190 EXCEPTION
191 WHEN OTHERS THEN
192 po_message_s.sql_error('get_startup_values', x_progress,sqlcode);
193 RAISE;
194
195 END get_startup_values;
196
197 END RCV_SETUP_S2;