DBA Data[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;