1 PACKAGE BODY arh_arxcudci_pkg AS
2 /* $Header: ARHSTDB.pls 120.2 2005/06/16 21:16:05 jhuang ship $*/
3 --
4 -- PROCEDURE
5 -- initialize
6 --
7 -- DESCRIPTION
8 -- This procedure returns all the defaults ans system options the form
9 -- requires.
10 -- SCOPE -
11 --
12 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
13 --
14 -- ARGUMENTS : IN:
15 --
16 -- OUT:
17 -- None
18 --
19 -- RETURNS : NONE
20 --
21 -- NOTES
22 --
23 -- MODIFICATION HISTORY - Created by Kevin Hudson
24 --
25 --
26 procedure initialize ( customer_type in out NOCOPY varchar2,
27 tax_printing_option in out NOCOPY varchar2,
28 grouping_rule in out NOCOPY varchar2,
29 create_reciprocal in out NOCOPY varchar2,
30 auto_cust_numbering in out NOCOPY varchar2,
31 auto_site_numbering in out NOCOPY varchar2,
32 profile_class in out NOCOPY varchar2,
33 change_cust_name in out NOCOPY varchar2,
34 use_customer_keys_flag in out NOCOPY varchar2,
35 so_organization_id in out NOCOPY number,
36 address_validation in out NOCOPY varchar2,
40 home_country_code in out NOCOPY varchar2,
37 location_structure_id in out NOCOPY number,
38 from_postal_code in out NOCOPY varchar2,
39 to_postal_code in out NOCOPY varchar2,
41 default_country_code in out NOCOPY varchar2,
42 default_country_disp in out NOCOPY varchar2,
43 address_style in out NOCOPY varchar2,
44 functional_currency in out NOCOPY varchar2
45 ) is
46
47 begin
48 customer_type := arp_standard.ar_lookup('CUSTOMER_TYPE','R');
49
50 tax_printing_option := arp_standard.sysparm.tax_invoice_print;
51
52 begin
53 select gr.name
54 into grouping_rule
55 from ra_grouping_rules gr
56 where gr.grouping_rule_id = arp_standard.sysparm.default_grouping_rule_id
57 and trunc(sysdate) BETWEEN gr.start_date AND nvl(gr.end_date, trunc(sysdate));
58 exception
59 when NO_DATA_FOUND then
60 null;
61 end;
62
63 --l_sob_id := arp_standard.sysparm.set_of_books_id;
64 --
65 BEGIN
66 SELECT currency_code
67 INTO functional_currency
68 FROM gl_sets_of_books
69 WHERE set_of_books_id = arp_standard.sysparm.set_of_books_id;
70 EXCEPTION
71 when NO_DATA_FOUND then
72 arp_standard.fnd_message( 'ARTA_SET_OF_BOOKS_ID_NOT_FOUND' );
73 END;
74 --
75 create_reciprocal := arp_standard.sysparm.create_reciprocal_flag;
76 auto_cust_numbering := arp_standard.sysparm.generate_customer_number;
77 auto_site_numbering := arp_standard.sysparm.auto_site_numbering;
78 address_validation := arp_standard.sysparm.address_validation;
79 location_structure_id := arp_standard.sysparm.location_structure_id;
80 from_postal_code := arp_standard.sysparm.from_postal_code;
81 to_postal_code := arp_standard.sysparm.to_postal_code;
82 home_country_code := arp_standard.sysparm.default_country;
83 fnd_profile.get('DEFAULT_COUNTRY',default_country_code);
84 --
85 if ( default_country_code is null ) then
86 default_country_code := home_country_code;
87 end if;
88 --
89 -- To avoid exception NO_DATA_FOUND "if" clause is used
90 --
91 if default_country_code is not null then
92 select territory_short_name,address_style
93 into default_country_disp,address_style
94 from fnd_territories_vl
95 where territory_code = default_country_code;
96 end if;
97 --
98 --
99 fnd_profile.get('AR_CHANGE_CUST_NAME',change_cust_name);
100 fnd_profile.get('AS_USE_CUSTOMER_KEYS_FLAG',use_customer_keys_flag);
101
102 -- OE/OM Change
103 --
104 -- fnd_profile.get('SO_ORGANIZATION_ID',so_organization_id);
105 --
106 oe_profile.get('SO_ORGANIZATION_ID',so_organization_id);
107
108 begin
109 select cpc.name
110 into profile_class
111 from hz_cust_profile_classes cpc
112 WHERE cpc.status = 'A'
113 AND cpc.profile_class_id = 0;
114 exception
115 when NO_DATA_FOUND then
116 null;
117 end;
118
119 end initialize;
120
121 end arh_arxcudci_pkg;