[Home] [Help]
PACKAGE BODY: APPS.AMS_DM_IMP_ATTRIBUTE_PKG
Source
1 PACKAGE BODY AMS_Dm_Imp_Attribute_PKG as
2 /* $Header: amstdiab.pls 115.2 2002/12/09 11:05:02 choang noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_Dm_Imp_Attribute_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_Dm_Imp_Attribute_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstdiab.pls';
19
20
21
22
23 -- ========================================================
24 --
25 -- NAME
26 -- Insert_Row
27 --
28 -- PURPOSE
29 --
30 -- NOTES
31 --
32 -- HISTORY
33 --
34 -- ========================================================
35 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
36 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
37 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
38
39 PROCEDURE Insert_Row(
40 px_Dm_Imp_Attribute_id IN OUT NOCOPY NUMBER,
41 p_last_update_date DATE,
42 p_last_updated_by NUMBER,
43 p_creation_date DATE,
44 p_created_by NUMBER,
45 p_last_update_login NUMBER,
46 px_object_version_number IN OUT NOCOPY NUMBER,
47 p_model_id NUMBER,
48 p_source_field_id NUMBER,
49 p_rank NUMBER,
50 p_value NUMBER)
51 IS
52 x_rowid VARCHAR2(30);
53
54
55 BEGIN
56
57
58 px_object_version_number := nvl(px_object_version_number, 1);
59
60
61 INSERT INTO ams_dm_imp_attributes(
62 imp_attribute_id,
63 last_update_date,
64 last_updated_by,
65 creation_date,
66 created_by,
67 last_update_login,
68 object_version_number,
69 model_id,
70 source_field_id,
71 rank,
72 value
73 ) VALUES (
74 DECODE( px_Dm_Imp_Attribute_id, FND_API.G_MISS_NUM, NULL, px_Dm_Imp_Attribute_id),
75 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
76 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
77 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
78 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
79 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
80 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
81 DECODE( p_model_id, FND_API.G_MISS_NUM, NULL, p_model_id),
82 DECODE( p_source_field_id, FND_API.G_MISS_NUM, NULL, p_source_field_id),
83 DECODE( p_rank, FND_API.G_MISS_NUM, NULL, p_rank),
84 DECODE( p_value, FND_API.G_MISS_NUM, NULL, p_value));
85
86 END Insert_Row;
87
88
89
90
91 -- ========================================================
92 --
93 -- NAME
94 -- Update_Row
95 --
96 -- PURPOSE
97 --
98 -- NOTES
99 --
100 -- HISTORY
101 --
102 -- ========================================================
103 PROCEDURE Update_Row(
104 p_Dm_Imp_Attribute_id NUMBER,
105 p_last_update_date DATE,
106 p_last_updated_by NUMBER,
107 p_last_update_login NUMBER,
108 px_object_version_number IN OUT NOCOPY NUMBER,
109 p_model_id NUMBER,
110 p_source_field_id NUMBER,
111 p_rank NUMBER,
112 p_value NUMBER
113 )
114 IS
115 BEGIN
116 Update ams_dm_imp_attributes
117 SET
118 imp_attribute_id = DECODE( p_Dm_Imp_Attribute_id, null, imp_attribute_id, FND_API.G_MISS_NUM, null, p_Dm_Imp_Attribute_id),
119 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
120 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
121 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
122 object_version_number = object_version_number + 1,
123 model_id = DECODE( p_model_id, null, model_id, FND_API.G_MISS_NUM, null, p_model_id),
124 source_field_id = DECODE( p_source_field_id, null, source_field_id, FND_API.G_MISS_NUM, null, p_source_field_id),
125 rank = DECODE( p_rank, null, rank, FND_API.G_MISS_NUM, null, p_rank),
126 value = DECODE( p_value, null, value, FND_API.G_MISS_NUM, null, p_value)
127 WHERE imp_attribute_id = p_Dm_Imp_Attribute_id
128 AND object_version_number = px_object_version_number;
129
130
131 IF (SQL%NOTFOUND) THEN
132 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133 END IF;
134
135 px_object_version_number := nvl(px_object_version_number,0) + 1;
136
137 END Update_Row;
138
139
140
141
142 -- ========================================================
143 --
144 -- NAME
145 -- Delete_Row
146 --
147 -- PURPOSE
148 --
149 -- NOTES
150 --
151 -- HISTORY
152 --
153 -- ========================================================
154 PROCEDURE Delete_Row(
155 p_Dm_Imp_Attribute_id NUMBER,
156 p_object_version_number NUMBER)
157 IS
158 BEGIN
159 DELETE FROM ams_dm_imp_attributes
160 WHERE imp_attribute_id = p_Dm_Imp_Attribute_id
161 AND object_version_number = p_object_version_number;
162 If (SQL%NOTFOUND) then
163 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164 End If;
165 END Delete_Row ;
166
167
168
169
170
171 -- ========================================================
172 --
173 -- NAME
174 -- Lock_Row
175 --
176 -- PURPOSE
177 --
178 -- NOTES
179 --
180 -- HISTORY
181 --
182 -- ========================================================
183 PROCEDURE Lock_Row(
184 p_Dm_Imp_Attribute_id NUMBER)
185 IS
186 CURSOR C IS
187 SELECT *
188 FROM ams_dm_imp_attributes
189 WHERE imp_attribute_id = p_Dm_Imp_Attribute_id
190 FOR UPDATE OF imp_attribute_id NOWAIT;
191 Recinfo C%ROWTYPE;
192 BEGIN
193 OPEN c;
194 FETCH c INTO Recinfo;
195 IF (c%NOTFOUND) THEN
196 CLOSE c;
197 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
198 APP_EXCEPTION.RAISE_EXCEPTION;
199 END IF;
200 CLOSE C;
201 END Lock_Row;
202
203 END AMS_Dm_Imp_Attribute_PKG;