1 PACKAGE BODY PO_SETUP_S3 as
2 /* $Header: POXSES4B.pls 115.1 2002/11/26 19:50:49 sbull ship $*/
3
4 /*==========================================================================
5 PROCEDURE NAME: get_combined_parameter_values()
6
7 ===========================================================================*/
8
9 PROCEDURE get_combined_parameter_values
10 (X_emp_id OUT NOCOPY number,
11 X_emp_name OUT NOCOPY varchar2,
12 X_location_id OUT NOCOPY number,
13 X_location_code OUT NOCOPY varchar2,
14 X_is_buyer OUT NOCOPY BOOLEAN,
15 X_emp_flag OUT NOCOPY BOOLEAN,
16 X_fnd_user OUT NOCOPY BOOLEAN,
17 X_multi_org IN OUT NOCOPY BOOLEAN,
18 X_org_sob_id IN OUT NOCOPY NUMBER,
19 X_org_sob_name IN OUT NOCOPY VARCHAR2,
20 X_price_lookup_code IN OUT NOCOPY VARCHAR2,
21 X_price_type IN OUT NOCOPY VARCHAR2,
22 X_multiple_disp IN OUT NOCOPY VARCHAR2,
23 X_source_inventory IN OUT NOCOPY VARCHAR2,
24 X_source_vendor IN OUT NOCOPY VARCHAR2) IS
25
26 x_progress VARCHAR2(3) := NULL;
27
28 BEGIN
29
30 x_progress := '05';
31 X_fnd_user := PO_EMPLOYEES_SV.GET_EMPLOYEE(X_emp_id,
32 X_emp_name,
33 X_location_id,
34 X_location_code,
35 X_is_buyer,
36 X_emp_flag);
37
38
39 x_progress := '10';
40 -- Get org code to store in parameter.org_code for window title
41 po_core_s3.get_window_org_sob (x_multi_org,
42 x_org_sob_id,
43 x_org_sob_name);
44
45 x_progress := '15';
46 -- Get the display value for lookup code of 'PRICE TYPE'
47 IF X_price_lookup_code is not null THEN
48 po_headers_sv4.get_lookup_code_dsp ('PRICE TYPE',
49 X_price_lookup_code,
50 X_price_type);
51
52 ELSE
53 X_price_type := NULL;
54 END IF ;
55
56 x_progress := '20';
57 -- Get the display value for lookup code of 'MULTIPLE'.
58 -- It is to be used in the line promised_date, need_by date and
59 -- gl_account fields.
60 --
61 po_headers_sv4.get_lookup_code_dsp ('TRANSLATE',
62 'MULTIPLE',
63 X_multiple_disp);
64
65 x_progress := '25';
66 po_reqs_sv.get_req_startup_values (x_source_inventory,
67 x_source_vendor);
68
69 EXCEPTION
70 WHEN OTHERS THEN
71 dbms_output.put_line('After Prog ' || X_progress );
72 po_message_s.sql_error('po_setup_s.get_combined_parameter_values', x_progress, sqlcode);
73 raise;
74
75 END get_combined_parameter_values;
76
77
78 END PO_SETUP_S3;