[Home] [Help]
PACKAGE BODY: APPS.GMF_AR_GET_WAREHOUSES
Source
1 PACKAGE BODY GMF_AR_GET_WAREHOUSES as
2 /* $Header: gmfwarhb.pls 115.1 99/10/27 12:04:39 porting ship $ */
3 cursor cur_ar_get_warehouses(warehouse_id number,
4 warehouse_code varchar2) is
5 select OOD.ORGANIZATION_ID, OOD.ORGANIZATION_CODE,
6 OOD.ORGANIZATION_NAME, OOD.USER_DEFINITION_ENABLE_DATE,
7 OOD.DISABLE_DATE, OOD.SET_OF_BOOKS_ID,
8 OOD.CHART_OF_ACCOUNTS_ID, OOD.INVENTORY_ENABLED_FLAG,
9 HOU.INTERNAL_EXTERNAL_FLAG, HOU.INTERNAL_ADDRESS_LINE,
10 HOU.TYPE, MPA.MASTER_ORGANIZATION_ID,
11 MPA.ATTRIBUTE_CATEGORY, MPA.ATTRIBUTE1,
12 MPA.ATTRIBUTE2, MPA.ATTRIBUTE3,
13 MPA.ATTRIBUTE4, MPA.ATTRIBUTE5,
14 MPA.ATTRIBUTE6, MPA.ATTRIBUTE7,
15 MPA.ATTRIBUTE8, MPA.ATTRIBUTE9,
16 MPA.ATTRIBUTE10, MPA.ATTRIBUTE11,
17 MPA.ATTRIBUTE12, MPA.ATTRIBUTE13,
18 MPA.ATTRIBUTE14, MPA.ATTRIBUTE15,
19 MPA.CREATED_BY, MPA.CREATION_DATE,
20 MPA.LAST_UPDATE_DATE, MPA.LAST_UPDATED_BY
21 from ORG_ORGANIZATION_DEFINITIONS OOD,
22 HR_ORGANIZATION_UNITS HOU,
23 MTL_PARAMETERS MPA
24 where OOD.organization_id =
25 nvl(warehouse_id, OOD.organization_id)
26 and lower(OOD.organization_code) like
27 lower(nvl(warehouse_code, OOD.organization_code));
28 procedure AR_GET_WAREHOUSES (warehouse_id in out number,
29 warehouse_code in out varchar2,
30 name out varchar2,
31 date_from out date,
32 date_to out date,
33 sob_id out number,
34 coa_id out number,
35 inv_enabled_flg out varchar2,
36 int_ext_flag out varchar2,
37 int_addr_line out varchar2,
38 type out varchar2,
39 master_orgid out number,
40 attr_category out varchar2,
41 att1 out varchar2,
42 att2 out varchar2,
43 att3 out varchar2,
44 att4 out varchar2,
45 att5 out varchar2,
46 att6 out varchar2,
47 att7 out varchar2,
48 att8 out varchar2,
49 att9 out varchar2,
50 att10 out varchar2,
51 att11 out varchar2,
52 att12 out varchar2,
53 att13 out varchar2,
54 att14 out varchar2,
55 att15 out varchar2,
56 created_by out number,
57 creation_date out date,
58 last_update_date out date,
59 last_updated_by out number,
60 row_to_fetch in out number,
61 error_status out number) is
62 /* createdby number;*/
63 /* modifiedby number;*/
64 begin
65 if NOT cur_ar_get_warehouses%ISOPEN then
66 open cur_ar_get_warehouses(warehouse_id, warehouse_code);
67 end if;
68 fetch cur_ar_get_warehouses
69 into warehouse_id, warehouse_code, name,
70 date_from, date_to, sob_id,
71 coa_id, inv_enabled_flg, int_ext_flag,
72 int_addr_line, type, master_orgid,
73 attr_category, att1, att2,
74 att3, att4, att5,
75 att6, att7, att8,
76 att9, att10, att11,
77 att12, att13, att14,
78 att15, created_by, creation_date,
79 last_update_date, last_updated_by;
80 if cur_ar_get_warehouses%NOTFOUND then
81 error_status := 100;
82 close cur_ar_get_warehouses;
83 /* else
84 created_by := pkg_fnd_get_users.fnd_get_users(createdby);
85 last_updated_by := pkg_fnd_get_users.fnd_get_users(modifiedby); */
86 end if;
87 if row_to_fetch = 1 and cur_ar_get_warehouses%ISOPEN then
88 close cur_ar_get_warehouses;
89 end if;
90 exception
91 when others then
92 error_status := SQLCODE;
93 end AR_GET_WAREHOUSES;
94 END GMF_AR_GET_WAREHOUSES;