PACKAGE BODY: APPS.PO_HEADER_RK1

Source

1 PACKAGE BODY PO_HEADER_RK1 as
2 /* $Header: POWRBLB.pls 115.2 2002/11/25 19:44:33 sbull noship $*/
3 
4 
5 
6 PROCEDURE  get_combined_params_values
7                                (X_emp_id                OUT NOCOPY number,
8                                 X_emp_name              OUT NOCOPY varchar2,
9                                 X_location_id           OUT NOCOPY number,
10                                 X_location_code         OUT NOCOPY varchar2,
11 		 		X_is_buyer_int           OUT NOCOPY number,
12  		      		X_emp_flag_int	 	OUT NOCOPY number,
13        				X_fnd_user_int              OUT NOCOPY number,
14                                 X_multi_org_int         IN OUT NOCOPY number,
15                                 X_org_sob_id            IN OUT NOCOPY number,
16                                 X_org_sob_name       IN OUT NOCOPY varchar2,
17                                 X_price_lookup_code  IN OUT NOCOPY varchar2,
18                                 X_price_type         IN OUT NOCOPY varchar2,
19                                 X_multiple_disp      IN OUT NOCOPY varchar2,
20                                 X_source_inventory   IN OUT NOCOPY varchar2,
21                                 X_source_vendor      IN OUT NOCOPY varchar2)   IS
22 
23 X_is_buyer         	BOOLEAN;
24 X_emp_flag 		BOOLEAN;
25 X_fnd_user 		BOOLEAN;
26 X_multi_org 		BOOLEAN;
27 
28 begin
29 
30 X_is_buyer := true;
31 X_emp_flag := true;
32 X_fnd_user := true;
33 X_multi_org := true;
34 
35 
36 PO_SETUP_S3.get_combined_parameter_values
37                                (X_emp_id,
38                                 X_emp_name,
39                                 X_location_id,
40                                 X_location_code,
41                                 X_is_buyer,
42                                 X_emp_flag,
43                                 X_fnd_user,
44                                 X_multi_org,
45                                 X_org_sob_id,
46                                 X_org_sob_name,
47                                 X_price_lookup_code,
48                                 X_price_type,
49                                 X_multiple_disp,
50                                 X_source_inventory,
51                                 X_source_vendor);
52 
53  if (X_is_buyer) then
54 	X_is_buyer_int := 1;
55  else
56 	X_is_buyer_int := 0;
57 end if;
58 
59 if (X_emp_flag) then
60 	X_emp_flag_int := 1;
61  else
62 	X_emp_flag_int := 0;
63 end if;
64 
65 if (X_fnd_user) then
66 	X_fnd_user_int := 1;
67  else
68 	X_fnd_user_int := 0;
69 end if;
70 
71 if (X_multi_org) then
72 	X_multi_org_int := 1;
73  else
74 	X_multi_org_int := 0;
75 end if;
76 
77  end get_combined_params_values;
78 
79 END PO_HEADER_RK1;