[Home] [Help]
PACKAGE BODY: APPS.PO_SETUP_S2
Source
1 PACKAGE BODY PO_SETUP_S2 as
2 /* $Header: POXSES3B.pls 120.0.12010000.2 2008/11/11 11:27:15 bisdas ship $*/
3 /*==========================================================================
4 PROCEDURE NAME: get_combined_startup_values()
5
6 ===========================================================================*/
7
8 PROCEDURE get_combined_startup_values
9 (x_sob_id IN OUT NOCOPY NUMBER,
10 x_inv_org_id IN OUT NOCOPY NUMBER,
11 x_ussgl_value OUT NOCOPY VARCHAR2 ,
12 x_flex_value OUT NOCOPY VARCHAR2,
13 x_inverse_rate_value OUT NOCOPY VARCHAR2,
14 x_period_name OUT NOCOPY VARCHAR2,
15 x_gl_date OUT NOCOPY DATE,
16 x_category_set_id OUT NOCOPY NUMBER,
17 x_structure_id OUT NOCOPY NUMBER,
18 x_user_id OUT NOCOPY NUMBER,
19 x_logon_id OUT NOCOPY NUMBER,
20 x_creation_date OUT NOCOPY DATE,
21 x_update_date OUT NOCOPY DATE,
22 x_currency_code OUT NOCOPY VARCHAR2,
23 x_coa_id OUT NOCOPY NUMBER,
24 x_po_encumberance_flag OUT NOCOPY VARCHAR2,
25 x_req_encumberance_flag OUT NOCOPY VARCHAR2,
26 x_ship_to_location_id IN OUT NOCOPY NUMBER,
27 x_bill_to_location_id IN OUT NOCOPY NUMBER,
28 x_fob_lookup_code IN OUT NOCOPY VARCHAR2,
29 x_freight_terms_lookup_code IN OUT NOCOPY VARCHAR2,
30 x_terms_id IN OUT NOCOPY NUMBER,
31 x_default_rate_type IN OUT NOCOPY VARCHAR2,
32 x_taxable_flag OUT NOCOPY VARCHAR2,
33 x_receiving_flag OUT NOCOPY VARCHAR2,
34 x_enforce_buyer_name_flag OUT NOCOPY VARCHAR2,
35 x_enforce_buyer_auth_flag OUT NOCOPY VARCHAR2,
36 x_line_type_id IN OUT NOCOPY NUMBER,
37 x_manual_po_num_type OUT NOCOPY VARCHAR2,
38 x_po_num_code OUT NOCOPY VARCHAR2,
39 x_price_lookup_code OUT NOCOPY VARCHAR2,
40 x_invoice_close_tolerance OUT NOCOPY NUMBER,
41 x_receive_close_tolerance OUT NOCOPY NUMBER,
42 x_security_structure_id OUT NOCOPY NUMBER,
43 x_expense_accrual_code OUT NOCOPY VARCHAR2,
44 x_rev_sort_ordering OUT NOCOPY NUMBER,
45 x_min_rel_amount OUT NOCOPY NUMBER,
46 x_notify_blanket_flag OUT NOCOPY VARCHAR2,
47 x_budgetary_control_flag OUT NOCOPY VARCHAR2,
48 x_user_defined_req_num_code OUT NOCOPY VARCHAR2,
49 x_rfq_required_flag OUT NOCOPY VARCHAR2,
50 x_manual_req_num_type OUT NOCOPY VARCHAR2,
51 x_enforce_full_lot_qty OUT NOCOPY VARCHAR2,
52 x_disposition_warning_flag OUT NOCOPY VARCHAR2,
53 x_reserve_at_completion_flag OUT NOCOPY VARCHAR2,
54 x_user_defined_rcpt_num_code OUT NOCOPY VARCHAR2,
55 x_manual_rcpt_num_type OUT NOCOPY VARCHAR2,
56 x_use_positions_flag OUT NOCOPY VARCHAR2,
57 x_default_quote_warning_delay OUT NOCOPY NUMBER,
58 x_inspection_required_flag OUT NOCOPY VARCHAR2,
59 x_user_defined_quote_num_code OUT NOCOPY VARCHAR2,
60 x_manual_quote_num_type OUT NOCOPY VARCHAR2,
61 x_user_defined_rfq_num_code OUT NOCOPY VARCHAR2,
62 x_manual_rfq_num_type OUT NOCOPY VARCHAR2,
63 x_ship_via_lookup_code IN OUT NOCOPY VARCHAR2,
64 x_qty_rcv_tolerance OUT NOCOPY NUMBER,
65 x_line_type OUT NOCOPY VARCHAR2,
66 x_item_tax_override_popup OUT NOCOPY VARCHAR2,
67 x_item_account_override_popup OUT NOCOPY VARCHAR2,
68 x_curr_tax_override_popup OUT NOCOPY VARCHAR2,
69 x_curr_account_override_popup OUT NOCOPY VARCHAR2,
70 x_use_ap_accrual_account OUT NOCOPY VARCHAR2,
71 x_destination_expense OUT NOCOPY VARCHAR2,
72 x_destination_shop_floor OUT NOCOPY VARCHAR2,
73 x_legal_requisition_type OUT NOCOPY VARCHAR2,
74 x_req_source_internal OUT NOCOPY VARCHAR2,
75 x_req_source_purchase OUT NOCOPY VARCHAR2,
76 x_req_incomplete OUT NOCOPY VARCHAR2,
77 x_fob_disp OUT NOCOPY VARCHAR2,
78 x_freight_terms_disp OUT NOCOPY VARCHAR2,
79 x_internal_access OUT NOCOPY VARCHAR2,
80 x_purchase_access OUT NOCOPY VARCHAR2,
81 x_internal_security OUT NOCOPY VARCHAR2,
82 x_purchase_security OUT NOCOPY VARCHAR2,
83 x_employee_id OUT NOCOPY NUMBER,
84 x_employee_name OUT NOCOPY VARCHAR2,
85 x_employee_is_buyer_flag OUT NOCOPY VARCHAR2,
86 x_requestor_location_id IN OUT NOCOPY NUMBER,
87 x_bill_to_location IN OUT NOCOPY VARCHAR2,
88 x_ship_to_location IN OUT NOCOPY VARCHAR2,
89 x_ship_org_code IN OUT NOCOPY VARCHAR2,
90 x_ship_org_name IN OUT NOCOPY VARCHAR2,
91 x_default_rate_type_disp IN OUT NOCOPY VARCHAR2,
92 x_requestor_location IN OUT NOCOPY VARCHAR2,
93 x_requestor_org_id IN OUT NOCOPY NUMBER,
94 x_requestor_org IN OUT NOCOPY VARCHAR2,
95 x_requestor_org_code IN OUT NOCOPY VARCHAR2,
96 x_destination_inventory OUT NOCOPY VARCHAR2,
97 x_gl_set_of_bks_id OUT NOCOPY VARCHAR2,
98 x_combined_install_statuses OUT NOCOPY VARCHAR2,
99 x_payment_terms IN OUT NOCOPY VARCHAR2,
100 x_acceptance_required_flag OUT NOCOPY VARCHAR2) IS /* Bug 7518967 : Default Acceptance Required Check ER */
101
102
103 x_progress VARCHAR2 (3) := NULL;
104 x_inv_status VARCHAR2 (1);
105 x_po_status VARCHAR2 (1);
106 x_qa_status VARCHAR2 (1);
107 x_wip_status VARCHAR2 (1);
108 x_oe_status VARCHAR2 (1);
109 x_pa_status VARCHAR2 (1);
110
111 BEGIN
112
113 x_progress := '10';
114
115 PO_SETUP_S.GET_STARTUP_VALUES (x_sob_id,
116 x_inv_org_id,
117 x_ussgl_value,
118 x_flex_value,
119 x_inverse_rate_value,
120 x_period_name,
121 x_gl_date,
122 x_category_set_id,
123 x_structure_id,
124 x_user_id,
125 x_logon_id,
126 x_creation_date,
127 x_update_date,
128 x_currency_code,
129 x_coa_id ,
130 x_po_encumberance_flag ,
131 x_req_encumberance_flag ,
132 x_ship_to_location_id ,
133 x_bill_to_location_id ,
134 x_fob_lookup_code ,
135 x_freight_terms_lookup_code,
136 x_terms_id ,
137 x_default_rate_type ,
138 x_taxable_flag ,
139 x_receiving_flag ,
140 x_enforce_buyer_name_flag,
141 x_enforce_buyer_auth_flag,
142 x_line_type_id ,
143 x_manual_po_num_type ,
144 x_po_num_code ,
145 x_price_lookup_code ,
146 x_invoice_close_tolerance,
147 x_receive_close_tolerance,
148 x_security_structure_id,
149 x_expense_accrual_code,
150 x_rev_sort_ordering,
151 x_min_rel_amount ,
152 x_notify_blanket_flag,
153 x_budgetary_control_flag,
154 x_user_defined_req_num_code,
155 x_rfq_required_flag,
156 x_manual_req_num_type,
157 x_enforce_full_lot_qty,
158 x_disposition_warning_flag,
159 x_reserve_at_completion_flag,
160 x_user_defined_rcpt_num_code,
161 x_manual_rcpt_num_type,
162 x_use_positions_flag,
163 x_default_quote_warning_delay,
164 x_inspection_required_flag,
165 x_user_defined_quote_num_code,
166 x_manual_quote_num_type,
167 x_user_defined_rfq_num_code,
168 x_manual_rfq_num_type,
169 x_ship_via_lookup_code,
170 x_qty_rcv_tolerance,
171 x_line_type,
172 x_item_tax_override_popup,
173 x_item_account_override_popup,
174 x_curr_tax_override_popup,
175 x_curr_account_override_popup,
176 x_use_ap_accrual_account,
177 x_destination_expense,
178 x_destination_shop_floor,
179 x_legal_requisition_type,
180 x_req_source_internal,
181 x_req_source_purchase,
182 x_req_incomplete,
183 x_fob_disp,
184 x_freight_terms_disp,
185 x_internal_access,
186 x_purchase_access,
187 x_internal_security,
188 x_purchase_security,
189 x_employee_id,
190 x_employee_name,
191 x_employee_is_buyer_flag,
192 x_requestor_location_id,
193 x_bill_to_location,
194 x_ship_to_location,
195 x_ship_org_code ,
196 x_ship_org_name,
197 x_default_rate_type_disp,
198 x_requestor_location,
199 x_requestor_org_id,
200 x_requestor_org,
201 x_requestor_org_code,
202 x_destination_inventory,
203 x_gl_set_of_bks_id,
204 x_acceptance_required_flag); /* Bug 7518967 : Default Acceptance Required Check ER */
205
206 x_progress := '15';
207
208 PO_SETUP_S1.GET_INSTALL_STATUS(x_inv_status,
209 x_po_status,
210 x_qa_status,
211 x_wip_status,
212 x_oe_status,
213 x_pa_status);
214
215 --
216 -- Concatentate all other products install status into one combined parameter.
217 -- The receiving procedure should use substring function to parse the return
218 -- status by the relative position.
219 --
220
221 x_combined_install_statuses := NVL(x_inv_status,'N') ||
222 NVL(x_po_status,'N') ||
223 NVL(x_qa_status,'N') ||
224 NVL(x_wip_status,'N') ||
225 NVL(x_oe_status,'N') ||
226 NVL(x_pa_status,'N');
227
228 x_progress := '20';
229 PO_TERMS_SV.GET_TERMS_NAME (x_terms_id,
230 x_payment_terms);
231
232 EXCEPTION
233 WHEN OTHERS THEN
234 dbms_output.put_line('After Prog ' || X_progress );
235 po_message_s.sql_error('po_setup_s.get_startup_values', x_progress, sqlcode);
236 raise;
237
238 END get_combined_startup_values;
239
240
241 END PO_SETUP_S2;