[Home] [Help]
PACKAGE BODY: APPS.AMS_IMP_CONF_IMPORT_TYPES_PKG
Source
1 package body AMS_IMP_CONF_IMPORT_TYPES_PKG as
2 /* $Header: amsvcitb.pls 115.4 2004/04/08 16:27:49 usingh ship $ */
3 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
4 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
5 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
6
7 procedure INSERT_ROW (
8 X_ROWID in OUT NOCOPY VARCHAR2,
9 X_IMP_CONFIG_IMPORT_TYPE_ID in NUMBER,
10 X_OBJECT_VERSION_NUMBER in NUMBER,
11 X_APPLICATION_ID in NUMBER,
12 X_IMPORT_TYPE in VARCHAR2,
13 X_ACCESS_ALLOWED in VARCHAR2,
14 X_CREATION_DATE in DATE,
15 X_CREATED_BY in NUMBER,
16 X_LAST_UPDATE_DATE in DATE,
17 X_LAST_UPDATED_BY in NUMBER,
18 X_LAST_UPDATE_LOGIN in NUMBER
19 ) is
20 begin
21 insert into AMS_IMP_CONFIG_IMPORT_TYPES (
22 IMP_CONFIG_IMPORT_TYPE_ID,
23 LAST_UPDATED_BY,
24 OBJECT_VERSION_NUMBER,
25 CREATED_BY,
26 LAST_UPDATE_LOGIN,
27 LAST_UPDATE_DATE,
28 CREATION_DATE,
29 APPLICATION_ID,
30 IMPORT_TYPE,
31 ACCESS_ALLOWED
32 )
33 VALUES
34 (
35 X_IMP_CONFIG_IMPORT_TYPE_ID,
36 X_LAST_UPDATED_BY,
37 X_OBJECT_VERSION_NUMBER,
38 X_CREATED_BY,
39 X_LAST_UPDATE_LOGIN,
40 X_LAST_UPDATE_DATE,
41 X_CREATION_DATE,
42 X_APPLICATION_ID,
43 X_IMPORT_TYPE,
44 X_ACCESS_ALLOWED
45 );
46 end INSERT_ROW;
47
48 procedure LOCK_ROW (
49 X_IMP_CONFIG_IMPORT_TYPE_ID in NUMBER,
50 X_OBJECT_VERSION_NUMBER in NUMBER,
51 X_APPLICATION_ID in NUMBER,
52 X_IMPORT_TYPE in VARCHAR2,
53 X_ACCESS_ALLOWED in VARCHAR2
54 ) is
55 cursor c1 is select
56 OBJECT_VERSION_NUMBER,
57 APPLICATION_ID,
58 IMPORT_TYPE,
59 ACCESS_ALLOWED,
60 IMP_CONFIG_IMPORT_TYPE_ID
61 from AMS_IMP_CONFIG_IMPORT_TYPES
62 where IMP_CONFIG_IMPORT_TYPE_ID = X_IMP_CONFIG_IMPORT_TYPE_ID
63 for update of IMP_CONFIG_IMPORT_TYPE_ID nowait;
64 begin
65 for tlinfo in c1 loop
66 if ( (tlinfo.IMP_CONFIG_IMPORT_TYPE_ID = X_IMP_CONFIG_IMPORT_TYPE_ID)
67 AND (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
68 AND (tlinfo.APPLICATION_ID = X_APPLICATION_ID)
69 AND (tlinfo.IMPORT_TYPE = X_IMPORT_TYPE)
70 AND (tlinfo.ACCESS_ALLOWED = X_ACCESS_ALLOWED)
71 ) then
72 null;
73 else
74 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
75 app_exception.raise_exception;
76 end if;
77 end loop;
78 return;
79 end LOCK_ROW;
80
81 procedure UPDATE_ROW (
82 X_IMP_CONFIG_IMPORT_TYPE_ID in NUMBER,
83 X_OBJECT_VERSION_NUMBER in NUMBER,
84 X_APPLICATION_ID in NUMBER,
85 X_IMPORT_TYPE in VARCHAR2,
86 X_ACCESS_ALLOWED in VARCHAR2,
87 X_LAST_UPDATE_DATE in DATE,
88 X_LAST_UPDATED_BY in NUMBER,
89 X_LAST_UPDATE_LOGIN in NUMBER
90 ) is
91 begin
92 update AMS_IMP_CONFIG_IMPORT_TYPES set
93 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
94 APPLICATION_ID = X_APPLICATION_ID,
95 IMPORT_TYPE = X_IMPORT_TYPE,
96 ACCESS_ALLOWED = X_ACCESS_ALLOWED,
97 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
98 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
99 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
100 where IMP_CONFIG_IMPORT_TYPE_ID = X_IMP_CONFIG_IMPORT_TYPE_ID;
101
102 if (sql%notfound) then
103 raise no_data_found;
104 end if;
105 end UPDATE_ROW;
106
107 procedure DELETE_ROW (
108 X_IMP_CONFIG_IMPORT_TYPE_ID in NUMBER
109 ) is
110 begin
111 delete from AMS_IMP_CONFIG_IMPORT_TYPES
112 where IMP_CONFIG_IMPORT_TYPE_ID = X_IMP_CONFIG_IMPORT_TYPE_ID;
113
114 if (sql%notfound) then
115 raise no_data_found;
116 end if;
117
118 end DELETE_ROW;
119
120 procedure LOAD_ROW (
121 X_IMP_CONFIG_IMPORT_TYPE_ID in NUMBER,
122 X_APPLICATION_ID in NUMBER,
123 X_IMPORT_TYPE in VARCHAR2,
124 X_ACCESS_ALLOWED in VARCHAR2,
125 X_OWNER in VARCHAR2,
126 X_CREATION_DATE in DATE,
127 X_CREATED_BY in NUMBER,
128 X_LAST_UPDATE_DATE in DATE,
129 X_LAST_UPDATED_BY in NUMBER,
130 X_LAST_UPDATE_LOGIN in NUMBER
131 ) is
132
133 l_user_id number := 0;
134 l_concom_id number;
135 l_obj_verno number := 1;
136 l_dummy_char varchar2(1);
137 l_row_id varchar2(100);
138
139 cursor c_chk_col_exists is
140 select 'x'
141 from AMS_IMP_CONFIG_IMPORT_TYPES
142 where IMP_CONFIG_IMPORT_TYPE_ID = X_IMP_CONFIG_IMPORT_TYPE_ID;
143
144 cursor c_get_con_com_id is
145 select AMS_IMP_CONFIG_IMPORT_TYPES_S.nextval
146 from dual;
147
148 begin
149
150 if X_OWNER = 'SEED' then
151 l_user_id := 1;
152 end if;
153 open c_chk_col_exists;
154 fetch c_chk_col_exists into l_dummy_char;
155
156 if c_chk_col_exists%notfound
157 then
158 close c_chk_col_exists;
159 if X_IMP_CONFIG_IMPORT_TYPE_ID is null
160 then
161 open c_get_con_com_id;
162 fetch c_get_con_com_id into l_concom_id;
163 close c_get_con_com_id;
164 else
165 l_concom_id := X_IMP_CONFIG_IMPORT_TYPE_ID;
166 end if;
167 AMS_IMP_CONF_IMPORT_TYPES_PKG.INSERT_ROW (
168 X_ROWID => l_row_id,
169 X_IMP_CONFIG_IMPORT_TYPE_ID => X_IMP_CONFIG_IMPORT_TYPE_ID,
170 X_OBJECT_VERSION_NUMBER => l_obj_verno,
171 X_APPLICATION_ID => X_APPLICATION_ID,
172 X_IMPORT_TYPE => X_IMPORT_TYPE,
173 X_ACCESS_ALLOWED => X_ACCESS_ALLOWED,
174 X_CREATION_DATE => X_CREATION_DATE, -- sysdate,
175 X_CREATED_BY => l_user_id,
176 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE, -- sysdate,
177 X_LAST_UPDATED_BY => l_user_id,
178 X_LAST_UPDATE_LOGIN => 1);
179
180 else
181 close c_chk_col_exists;
182 l_concom_id := X_IMP_CONFIG_IMPORT_TYPE_ID;
183 AMS_IMP_CONF_IMPORT_TYPES_PKG.UPDATE_ROW (
184 X_IMP_CONFIG_IMPORT_TYPE_ID => X_IMP_CONFIG_IMPORT_TYPE_ID,
185 X_OBJECT_VERSION_NUMBER => l_obj_verno,
186 X_APPLICATION_ID => X_APPLICATION_ID,
187 X_IMPORT_TYPE => X_IMPORT_TYPE,
188 X_ACCESS_ALLOWED => X_ACCESS_ALLOWED,
189 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE, -- sysdate,
190 X_LAST_UPDATED_BY => l_user_id,
191 X_LAST_UPDATE_LOGIN => 1);
192 end if;
193 end LOAD_ROW;
194
195 end AMS_IMP_CONF_IMPORT_TYPES_PKG;