[Home] [Help]
PACKAGE BODY: APPS.ITA_SETUP_APPLICATION_EXT_PKG
Source
1 package body ITA_SETUP_APPLICATION_EXT_PKG as
2 /* $Header: itatapxb.pls 120.0 2005/06/15 18:06:09 appldev noship $ */
3
4
5 procedure INSERT_ROW (
6 X_APPLICATION_ID in NUMBER,
7 X_MIN_HIERARCHY_LEVEL in VARCHAR2,
8 X_SECURITY_GROUP_ID in NUMBER,
9 X_OBJECT_VERSION_NUMBER in NUMBER,
10 X_CREATION_DATE in DATE,
11 X_CREATED_BY in NUMBER,
12 X_LAST_UPDATE_DATE in DATE,
13 X_LAST_UPDATED_BY in NUMBER,
14 X_LAST_UPDATE_LOGIN in NUMBER
15 ) is
16 begin
17 insert into ITA_SETUP_APPLICATION_EXT (
18 APPLICATION_ID,
19 MIN_HIERARCHY_LEVEL,
20 SECURITY_GROUP_ID,
21 OBJECT_VERSION_NUMBER,
22 CREATION_DATE,
23 CREATED_BY,
24 LAST_UPDATE_DATE,
25 LAST_UPDATED_BY,
26 LAST_UPDATE_LOGIN
27 ) values (
28 X_APPLICATION_ID,
29 X_MIN_HIERARCHY_LEVEL,
30 X_SECURITY_GROUP_ID,
31 X_OBJECT_VERSION_NUMBER,
32 X_CREATION_DATE,
33 X_CREATED_BY,
34 X_LAST_UPDATE_DATE,
35 X_LAST_UPDATED_BY,
36 X_LAST_UPDATE_LOGIN
37 );
38 end INSERT_ROW;
39
40
41 procedure LOCK_ROW (
42 X_APPLICATION_ID in NUMBER,
43 X_MIN_HIERARCHY_LEVEL in VARCHAR2,
44 X_SECURITY_GROUP_ID in NUMBER,
45 X_OBJECT_VERSION_NUMBER in NUMBER
46 ) is
47 cursor c is select
48 MIN_HIERARCHY_LEVEL,
49 SECURITY_GROUP_ID,
50 OBJECT_VERSION_NUMBER
51 from ITA_SETUP_APPLICATION_EXT
52 where APPLICATION_ID = X_APPLICATION_ID
53 for update of APPLICATION_ID nowait;
54 recinfo c%rowtype;
55
56 begin
57 open c;
58 fetch c into recinfo;
59 if (c%notfound) then
60 close c;
61 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
62 app_exception.raise_exception;
63 end if;
64 close c;
65 if ( (recinfo.MIN_HIERARCHY_LEVEL = X_MIN_HIERARCHY_LEVEL
66 OR (recinfo.MIN_HIERARCHY_LEVEL is null AND X_MIN_HIERARCHY_LEVEL is null))
67 AND (recinfo.SECURITY_GROUP_ID = X_SECURITY_GROUP_ID
68 OR (recinfo.SECURITY_GROUP_ID is null AND X_SECURITY_GROUP_ID is null))
69 AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
70 OR (recinfo.OBJECT_VERSION_NUMBER is null AND X_OBJECT_VERSION_NUMBER is null))
71 ) then
72 null;
73
74 else
75 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
76 app_exception.raise_exception;
77 end if;
78
79 return;
80 end LOCK_ROW;
81
82
83 procedure UPDATE_ROW (
84 X_APPLICATION_ID in NUMBER,
85 X_MIN_HIERARCHY_LEVEL in VARCHAR2,
86 X_SECURITY_GROUP_ID in NUMBER,
87 X_OBJECT_VERSION_NUMBER in NUMBER,
88 X_LAST_UPDATE_DATE in DATE,
89 X_LAST_UPDATED_BY in NUMBER,
90 X_LAST_UPDATE_LOGIN in NUMBER
91 ) is
92 begin
93 update ITA_SETUP_APPLICATION_EXT set
94 APPLICATION_ID = X_APPLICATION_ID,
95 MIN_HIERARCHY_LEVEL = X_MIN_HIERARCHY_LEVEL,
96 SECURITY_GROUP_ID = X_SECURITY_GROUP_ID,
97 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
98 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
99 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
100 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
101 where APPLICATION_ID = X_APPLICATION_ID;
102
103 if (sql%notfound) then
104 raise no_data_found;
105 end if;
106 end UPDATE_ROW;
107
108
109 procedure DELETE_ROW (
110 X_APPLICATION_ID in NUMBER
111 ) is
112 begin
113 delete from ITA_SETUP_APPLICATION_EXT
114 where APPLICATION_ID = X_APPLICATION_ID;
115
116 if (sql%notfound) then
117 raise no_data_found;
118 end if;
119 end DELETE_ROW;
120
121
122 procedure LOAD_ROW(
123 X_APPLICATION_ID in NUMBER,
124 X_MIN_HIERARCHY_LEVEL in VARCHAR2,
125 X_LAST_UPDATE_DATE in VARCHAR2,
126 X_OWNER in VARCHAR2,
127 X_CUSTOM_MODE in VARCHAR2
128 ) is
129
130 f_luby number; -- entity owner in file
131 f_ludate date; -- entity update date in file
132 db_luby number; -- entity owner in db
133 db_ludate date; -- entity update date in db
134
135 begin
136 -- Translate owner to file_last_updated_by
137 f_luby := fnd_load_util.owner_id(X_OWNER);
138
139 -- Translate char last_update_date to date
140 f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
141
142 select last_updated_by, last_update_date into db_luby, db_ludate
143 from ITA_SETUP_APPLICATION_EXT
144 where application_id = X_APPLICATION_ID;
145
146 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, X_CUSTOM_MODE))
147 then ITA_SETUP_APPLICATION_EXT_PKG.UPDATE_ROW(
148 X_APPLICATION_ID => X_APPLICATION_ID,
149 X_MIN_HIERARCHY_LEVEL => X_MIN_HIERARCHY_LEVEL,
150 X_SECURITY_GROUP_ID => null,
151 X_OBJECT_VERSION_NUMBER => 1,
152 X_LAST_UPDATE_DATE => f_ludate,
153 X_LAST_UPDATED_BY => f_luby,
154 X_LAST_UPDATE_LOGIN => 0);
155 end if;
156 exception when NO_DATA_FOUND
157 then ITA_SETUP_APPLICATION_EXT_PKG.INSERT_ROW(
158 X_APPLICATION_ID => X_APPLICATION_ID,
159 X_MIN_HIERARCHY_LEVEL => X_MIN_HIERARCHY_LEVEL,
160 X_SECURITY_GROUP_ID => null,
161 X_OBJECT_VERSION_NUMBER => 1,
162 X_CREATION_DATE => f_ludate,
163 X_CREATED_BY => f_luby,
164 X_LAST_UPDATE_DATE => f_ludate,
165 X_LAST_UPDATED_BY => f_luby,
166 X_LAST_UPDATE_LOGIN => 0);
167 end LOAD_ROW;
168
169
170 end ITA_SETUP_APPLICATION_EXT_PKG;