[Home] [Help]
PACKAGE BODY: APPS.CN_MODEL_RESOURCES_PKG
Source
1 PACKAGE BODY cn_model_resources_pkg AS
2 /*$Header: cntmlrsb.pls 115.2 2002/01/28 20:04:51 pkm ship $*/
3
4 PROCEDURE insert_row
5 (P_MODEL_RESOURCE_ID IN NUMBER := FND_API.G_MISS_NUM,
6 P_RESOURCE_ID IN NUMBER,
7 P_NAME IN VARCHAR2,
8 P_SRP_ID IN NUMBER,
9 P_ATTRIBUTE_CATEGORY IN VARCHAR2 := FND_API.G_MISS_CHAR,
10 P_ATTRIBUTE1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
11 P_ATTRIBUTE2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
12 P_ATTRIBUTE3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
13 P_ATTRIBUTE4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
14 P_ATTRIBUTE5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
15 P_ATTRIBUTE6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
16 P_ATTRIBUTE7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
17 P_ATTRIBUTE8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
18 P_ATTRIBUTE9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
19 P_ATTRIBUTE10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
20 P_ATTRIBUTE11 IN VARCHAR2 := FND_API.G_MISS_CHAR,
21 P_ATTRIBUTE12 IN VARCHAR2 := FND_API.G_MISS_CHAR,
22 P_ATTRIBUTE13 IN VARCHAR2 := FND_API.G_MISS_CHAR,
23 P_ATTRIBUTE14 IN VARCHAR2 := FND_API.G_MISS_CHAR,
24 P_ATTRIBUTE15 IN VARCHAR2 := FND_API.G_MISS_CHAR)
25 IS
26 MN NUMBER := FND_API.G_MISS_NUM;
27 MC VARCHAR2(150) := FND_API.G_MISS_CHAR;
28 MD DATE := FND_API.G_MISS_DATE;
29
30 BEGIN
31
32 INSERT INTO cn_model_resources(
33 model_resource_id,
34 resource_id,
35 name,
36 srp_id,
37 attribute_category,
38 attribute1,
39 attribute2,
40 attribute3,
41 attribute4,
42 attribute5,
43 attribute6,
44 attribute7,
45 attribute8,
46 attribute9,
47 attribute10,
48 attribute11,
49 attribute12,
50 attribute13,
51 attribute14,
52 attribute15,
53 object_version_number,
54 LAST_UPDATE_DATE,
55 LAST_UPDATED_BY,
56 LAST_UPDATE_LOGIN,
57 CREATION_DATE,
58 CREATED_BY
59 )
60 SELECT
61 decode(p_model_resource_id, mn, cn_model_resources_s.nextval,
62 p_model_resource_id),
63 p_resource_id,
64 p_name,
65 p_srp_id,
66 decode(p_attribute_category, mc, null, p_attribute_category),
67 decode(p_attribute1, mc, null, p_attribute1),
68 decode(p_attribute2, mc, null, p_attribute2),
69 decode(p_attribute3, mc, null, p_attribute3),
70 decode(p_attribute4, mc, null, p_attribute4),
71 decode(p_attribute5, mc, null, p_attribute5),
72 decode(p_attribute6, mc, null, p_attribute6),
73 decode(p_attribute7, mc, null, p_attribute7),
74 decode(p_attribute8, mc, null, p_attribute8),
75 decode(p_attribute9, mc, null, p_attribute9),
76 decode(p_attribute10, mc, null, p_attribute10),
77 decode(p_attribute11, mc, null, p_attribute11),
78 decode(p_attribute12, mc, null, p_attribute12),
79 decode(p_attribute13, mc, null, p_attribute13),
80 decode(p_attribute14, mc, null, p_attribute14),
81 decode(p_attribute15, mc, null, p_attribute15),
82 1,
83 sysdate,
84 fnd_global.user_id,
85 fnd_global.login_id,
86 sysdate,
87 fnd_global.user_id
88 FROM dual
89 ;
90
91 END Insert_Row;
92
93
94 PROCEDURE Update_Row
95 (P_MODEL_RESOURCE_ID IN NUMBER,
96 P_RESOURCE_ID IN NUMBER := FND_API.G_MISS_NUM,
97 P_NAME IN VARCHAR2 := FND_API.G_MISS_CHAR,
98 P_SRP_ID IN NUMBER := FND_API.G_MISS_NUM,
99 P_ATTRIBUTE_CATEGORY IN VARCHAR2 := FND_API.G_MISS_CHAR,
100 P_ATTRIBUTE1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
101 P_ATTRIBUTE2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
102 P_ATTRIBUTE3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
103 P_ATTRIBUTE4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
104 P_ATTRIBUTE5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
105 P_ATTRIBUTE6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
106 P_ATTRIBUTE7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
107 P_ATTRIBUTE8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
108 P_ATTRIBUTE9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
109 P_ATTRIBUTE10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
110 P_ATTRIBUTE11 IN VARCHAR2 := FND_API.G_MISS_CHAR,
111 P_ATTRIBUTE12 IN VARCHAR2 := FND_API.G_MISS_CHAR,
112 P_ATTRIBUTE13 IN VARCHAR2 := FND_API.G_MISS_CHAR,
113 P_ATTRIBUTE14 IN VARCHAR2 := FND_API.G_MISS_CHAR,
114 P_ATTRIBUTE15 IN VARCHAR2 := FND_API.G_MISS_CHAR,
115 P_OBJECT_VERSION_NUMBER IN NUMBER := FND_API.G_MISS_NUM )
116 IS
117
118 CURSOR l_old_csr IS
119 SELECT *
120 FROM cn_model_resources
121 WHERE model_resource_id = p_model_resource_id;
122
123 l_old_rec l_old_csr%ROWTYPE;
124
125 MN NUMBER := FND_API.G_MISS_NUM;
126 MC VARCHAR2(150) := FND_API.G_MISS_CHAR;
127 MD DATE := FND_API.G_MISS_DATE;
128
129 l_object_version_number NUMBER;
130
131 BEGIN
132 OPEN l_old_csr;
133 FETCH l_old_csr INTO l_old_rec;
134 CLOSE l_old_csr;
135
136 SELECT decode(p_object_version_number, mn,
137 l_old_rec.object_version_number, p_object_version_number)
138 INTO l_object_version_number
139 FROM dual
140 ;
141
142 -- check object version number
143 IF l_object_version_number <> l_old_rec.object_version_number THEN
144 fnd_message.set_name('CN', 'CN_RECORD_CHANGED');
145 fnd_msg_pub.add;
146 raise fnd_api.g_exc_error;
147 END IF;
148
149 UPDATE cn_model_resources SET
150 (resource_id,
151 name,
152 srp_id,
153 attribute_category,
154 attribute1,
155 attribute2,
156 attribute3,
157 attribute4,
158 attribute5,
159 attribute6,
160 attribute7,
161 attribute8,
162 attribute9,
163 attribute10,
164 attribute11,
165 attribute12,
166 attribute13,
167 attribute14,
168 attribute15,
169 object_version_number,
170 LAST_UPDATE_DATE,
171 LAST_UPDATED_BY,
172 LAST_UPDATE_LOGIN
173 ) =
174 (
175 SELECT
176 decode(p_resource_id, mn, l_old_rec.resource_id, p_resource_id),
177 decode(p_name, mc, l_old_rec.name, p_name),
178 decode(p_srp_id, mn, l_old_rec.srp_id, p_srp_id),
179 decode(p_attribute_category, mc, l_old_rec.attribute_category,
180 p_attribute_category),
181 decode(p_attribute1, mc, l_old_rec.attribute1, p_attribute1),
182 decode(p_attribute2, mc, l_old_rec.attribute2, p_attribute2),
183 decode(p_attribute3, mc, l_old_rec.attribute3, p_attribute3),
184 decode(p_attribute4, mc, l_old_rec.attribute4, p_attribute4),
185 decode(p_attribute5, mc, l_old_rec.attribute5, p_attribute5),
186 decode(p_attribute6, mc, l_old_rec.attribute6, p_attribute6),
187 decode(p_attribute7, mc, l_old_rec.attribute7, p_attribute7),
188 decode(p_attribute8, mc, l_old_rec.attribute8, p_attribute8),
189 decode(p_attribute9, mc, l_old_rec.attribute9, p_attribute9),
190 decode(p_attribute10, mc, l_old_rec.attribute10, p_attribute10),
191 decode(p_attribute11, mc, l_old_rec.attribute11, p_attribute11),
192 decode(p_attribute12, mc, l_old_rec.attribute12, p_attribute12),
193 decode(p_attribute13, mc, l_old_rec.attribute13, p_attribute13),
194 decode(p_attribute14, mc, l_old_rec.attribute14, p_attribute14),
195 decode(p_attribute15, mc, l_old_rec.attribute15, p_attribute15),
196 l_old_rec.object_version_number+1,
197 sysdate,
198 fnd_global.user_id,
199 fnd_global.login_id
200 FROM dual)
201 WHERE model_resource_id = p_model_resource_id;
202
203 END Update_Row;
204
205
206 PROCEDURE Delete_Row
207 (P_MODEL_RESOURCE_ID IN NUMBER) IS
208 BEGIN
209 DELETE FROM cn_model_resources
210 WHERE model_resource_id = p_model_resource_id;
211
212 END Delete_Row;
213
214 END cn_model_resources_pkg;