[Home] [Help]
PACKAGE BODY: APPS.AHL_SCHEDULE_MATERIALS_PKG
Source
1 package body AHL_SCHEDULE_MATERIALS_PKG as
2 /* $Header: AHLLSMTB.pls 115.0 2003/12/18 00:12:39 ssurapan noship $ */
3 PROCEDURE INSERT_ROW (
4 X_SCHEDULED_MATERIAL_ID IN NUMBER,
5 X_OBJECT_VERSION_NUMBER IN NUMBER,
6 X_LAST_UPDATE_DATE IN DATE,
7 X_LAST_UPDATED_BY IN NUMBER,
8 X_CREATION_DATE IN DATE,
9 X_CREATED_BY IN NUMBER,
10 X_LAST_UPDATE_LOGIN IN NUMBER,
11 X_INVENTORY_ITEM_ID IN NUMBER,
12 X_SCHEDULE_DESIGNATOR IN VARCHAR2,
13 X_VISIT_ID IN NUMBER,
14 X_VISIT_START_DATE IN DATE,
15 X_VISIT_TASK_ID IN NUMBER,
16 X_ORGANIZATION_ID IN NUMBER,
17 X_SCHEDULED_DATE IN DATE,
18 X_REQUEST_ID IN NUMBER,
19 X_REQUESTED_DATE IN DATE,
20 X_SCHEDULED_QUANTITY IN NUMBER,
21 X_PROCESS_STATUS IN NUMBER,
22 X_ERROR_MESSAGE IN VARCHAR2,
23 X_TRANSACTION_ID IN NUMBER,
24 X_UOM IN VARCHAR2,
25 X_RT_OPER_MATERIAL_ID IN NUMBER,
26 X_OPERATION_CODE IN VARCHAR2,
27 X_OPERATION_SEQUENCE IN NUMBER,
28 X_ITEM_GROUP_ID IN NUMBER,
29 X_REQUESTED_QUANTITY IN NUMBER,
30 X_PROGRAM_ID IN NUMBER,
31 X_PROGRAM_UPDATE_DATE IN DATE,
32 X_LAST_UPDATED_DATE IN DATE,
33 X_WORKORDER_OPERATION_ID IN NUMBER,
34 X_POSITION_PATH_ID IN NUMBER,
35 X_RELATIONSHIP_ID IN NUMBER,
36 X_UNIT_EFFECTIVITY_ID IN NUMBER,
37 X_MR_ROUTE_ID IN NUMBER,
38 X_MATERIAL_REQUEST_TYPE IN VARCHAR2,
39 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
40 X_ATTRIBUTE1 IN VARCHAR2,
41 X_ATTRIBUTE2 IN VARCHAR2,
42 X_ATTRIBUTE3 IN VARCHAR2,
43 X_ATTRIBUTE4 IN VARCHAR2,
44 X_ATTRIBUTE5 IN VARCHAR2,
45 X_ATTRIBUTE6 IN VARCHAR2,
46 X_ATTRIBUTE7 IN VARCHAR2,
47 X_ATTRIBUTE8 IN VARCHAR2,
48 X_ATTRIBUTE9 IN VARCHAR2,
49 X_ATTRIBUTE10 IN VARCHAR2,
50 X_ATTRIBUTE11 IN VARCHAR2,
51 X_ATTRIBUTE12 IN VARCHAR2,
52 X_ATTRIBUTE13 IN VARCHAR2,
53 X_ATTRIBUTE14 IN VARCHAR2,
54 X_ATTRIBUTE15 IN VARCHAR2
55 ) IS
56
57 BEGIN
58
59 INSERT INTO AHL_SCHEDULE_MATERIALS(
60 SCHEDULED_MATERIAL_ID,
61 OBJECT_VERSION_NUMBER,
62 LAST_UPDATE_DATE,
63 LAST_UPDATED_BY,
64 CREATION_DATE,
65 CREATED_BY,
66 LAST_UPDATE_LOGIN,
67 INVENTORY_ITEM_ID,
68 SCHEDULE_DESIGNATOR,
69 VISIT_ID,
70 VISIT_START_DATE,
71 VISIT_TASK_ID,
72 ORGANIZATION_ID,
73 SCHEDULED_DATE,
74 REQUEST_ID,
75 REQUESTED_DATE,
76 SCHEDULED_QUANTITY,
77 PROCESS_STATUS,
78 ERROR_MESSAGE,
79 TRANSACTION_ID,
80 UOM,
81 RT_OPER_MATERIAL_ID,
82 OPERATION_CODE,
83 OPERATION_SEQUENCE,
84 ITEM_GROUP_ID,
85 REQUESTED_QUANTITY,
86 PROGRAM_ID,
87 PROGRAM_UPDATE_DATE,
88 LAST_UPDATED_DATE,
89 WORKORDER_OPERATION_ID,
93 MR_ROUTE_ID,
90 POSITION_PATH_ID,
91 RELATIONSHIP_ID,
92 UNIT_EFFECTIVITY_ID,
94 MATERIAL_REQUEST_TYPE,
95 ATTRIBUTE_CATEGORY,
96 ATTRIBUTE1,
97 ATTRIBUTE2,
98 ATTRIBUTE3,
99 ATTRIBUTE4,
100 ATTRIBUTE5,
101 ATTRIBUTE6,
102 ATTRIBUTE7,
103 ATTRIBUTE8,
104 ATTRIBUTE9,
105 ATTRIBUTE10,
106 ATTRIBUTE11,
107 ATTRIBUTE12,
108 ATTRIBUTE13,
109 ATTRIBUTE14,
110 ATTRIBUTE15
111 )
112 VALUES
113 (
114 AHL_SCHEDULE_MATERIALS_S.NEXTVAL,
115 X_OBJECT_VERSION_NUMBER,
116 X_LAST_UPDATE_DATE,
117 X_LAST_UPDATED_BY,
118 X_CREATION_DATE,
119 X_CREATED_BY,
120 X_LAST_UPDATE_LOGIN,
124 X_VISIT_START_DATE,
121 X_INVENTORY_ITEM_ID,
122 X_SCHEDULE_DESIGNATOR,
123 X_VISIT_ID,
125 X_VISIT_TASK_ID,
126 X_ORGANIZATION_ID,
127 X_SCHEDULED_DATE,
128 X_REQUEST_ID,
129 X_REQUESTED_DATE,
130 X_SCHEDULED_QUANTITY,
131 X_PROCESS_STATUS,
132 X_ERROR_MESSAGE,
133 X_TRANSACTION_ID,
134 X_UOM,
135 X_RT_OPER_MATERIAL_ID,
136 X_OPERATION_CODE,
137 X_OPERATION_SEQUENCE,
138 X_ITEM_GROUP_ID,
139 X_REQUESTED_QUANTITY,
140 X_PROGRAM_ID,
141 X_PROGRAM_UPDATE_DATE,
142 X_LAST_UPDATED_DATE,
143 X_WORKORDER_OPERATION_ID,
144 X_POSITION_PATH_ID,
145 X_RELATIONSHIP_ID,
146 X_UNIT_EFFECTIVITY_ID,
147 X_MR_ROUTE_ID,
148 X_MATERIAL_REQUEST_TYPE,
152 X_ATTRIBUTE3,
149 X_ATTRIBUTE_CATEGORY,
150 X_ATTRIBUTE1,
151 X_ATTRIBUTE2,
153 X_ATTRIBUTE4,
154 X_ATTRIBUTE5,
155 X_ATTRIBUTE6,
156 X_ATTRIBUTE7,
157 X_ATTRIBUTE8,
158 X_ATTRIBUTE9,
159 X_ATTRIBUTE10,
160 X_ATTRIBUTE11,
161 X_ATTRIBUTE12,
162 X_ATTRIBUTE13,
163 X_ATTRIBUTE14,
164 X_ATTRIBUTE15
165 );
166
167 END INSERT_ROW;
168
169 PROCEDURE UPDATE_ROW (
170 X_SCHEDULED_MATERIAL_ID IN NUMBER,
171 X_OBJECT_VERSION_NUMBER IN NUMBER,
172 X_LAST_UPDATE_DATE IN DATE,
173 X_LAST_UPDATED_BY IN NUMBER,
174 --X_CREATION_DATE IN DATE,
175 --X_CREATED_BY IN NUMBER,
176 X_LAST_UPDATE_LOGIN IN NUMBER,
177 X_INVENTORY_ITEM_ID IN NUMBER,
178 X_SCHEDULE_DESIGNATOR IN VARCHAR2,
179 X_VISIT_ID IN NUMBER,
180 X_VISIT_START_DATE IN DATE,
181 X_VISIT_TASK_ID IN NUMBER,
182 X_ORGANIZATION_ID IN NUMBER,
183 X_SCHEDULED_DATE IN DATE,
184 X_REQUEST_ID IN NUMBER,
185 X_REQUESTED_DATE IN DATE,
186 X_SCHEDULED_QUANTITY IN NUMBER,
187 X_PROCESS_STATUS IN NUMBER,
188 X_ERROR_MESSAGE IN VARCHAR2,
189 X_TRANSACTION_ID IN NUMBER,
190 X_UOM IN VARCHAR2,
191 X_RT_OPER_MATERIAL_ID IN NUMBER,
192 X_OPERATION_CODE IN VARCHAR2,
196 X_PROGRAM_ID IN NUMBER,
193 X_OPERATION_SEQUENCE IN NUMBER,
194 X_ITEM_GROUP_ID IN NUMBER,
195 X_REQUESTED_QUANTITY IN NUMBER,
197 X_PROGRAM_UPDATE_DATE IN DATE,
198 X_LAST_UPDATED_DATE IN DATE,
199 X_WORKORDER_OPERATION_ID IN NUMBER,
200 X_POSITION_PATH_ID IN NUMBER,
201 X_RELATIONSHIP_ID IN NUMBER,
202 X_UNIT_EFFECTIVITY_ID IN NUMBER,
203 X_MR_ROUTE_ID IN NUMBER,
204 X_MATERIAL_REQUEST_TYPE IN VARCHAR2,
205 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
206 X_ATTRIBUTE1 IN VARCHAR2,
207 X_ATTRIBUTE2 IN VARCHAR2,
208 X_ATTRIBUTE3 IN VARCHAR2,
209 X_ATTRIBUTE4 IN VARCHAR2,
210 X_ATTRIBUTE5 IN VARCHAR2,
211 X_ATTRIBUTE6 IN VARCHAR2,
212 X_ATTRIBUTE7 IN VARCHAR2,
213 X_ATTRIBUTE8 IN VARCHAR2,
214 X_ATTRIBUTE9 IN VARCHAR2,
215 X_ATTRIBUTE10 IN VARCHAR2,
216 X_ATTRIBUTE11 IN VARCHAR2,
217 X_ATTRIBUTE12 IN VARCHAR2,
218 X_ATTRIBUTE13 IN VARCHAR2,
219 X_ATTRIBUTE14 IN VARCHAR2,
220 X_ATTRIBUTE15 IN VARCHAR2
221 ) IS
222 BEGIN
223 UPDATE AHL_SCHEDULE_MATERIALS SET
224 SCHEDULED_MATERIAL_ID = X_SCHEDULED_MATERIAL_ID,
225 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1,
229 --CREATED_BY = X_CREATED_BY,
226 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
227 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
228 --CREATION_DATE = X_CREATION_DATE,
230 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
231 INVENTORY_ITEM_ID = X_INVENTORY_ITEM_ID,
232 SCHEDULE_DESIGNATOR = X_SCHEDULE_DESIGNATOR,
233 VISIT_ID = X_VISIT_ID,
234 VISIT_START_DATE = X_VISIT_START_DATE,
235 VISIT_TASK_ID = X_VISIT_TASK_ID,
236 ORGANIZATION_ID = X_ORGANIZATION_ID,
237 SCHEDULED_DATE = X_SCHEDULED_DATE,
238 REQUEST_ID = X_REQUEST_ID,
239 REQUESTED_DATE = X_REQUESTED_DATE,
240 SCHEDULED_QUANTITY = X_SCHEDULED_QUANTITY,
241 PROCESS_STATUS = X_PROCESS_STATUS,
242 ERROR_MESSAGE = X_ERROR_MESSAGE,
243 TRANSACTION_ID = X_TRANSACTION_ID,
244 UOM = X_UOM,
245 RT_OPER_MATERIAL_ID = X_RT_OPER_MATERIAL_ID,
246 OPERATION_CODE = X_OPERATION_CODE,
247 OPERATION_SEQUENCE = X_OPERATION_SEQUENCE,
248 ITEM_GROUP_ID = X_ITEM_GROUP_ID,
249 REQUESTED_QUANTITY = X_REQUESTED_QUANTITY,
250 PROGRAM_ID = X_PROGRAM_ID,
251 PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE,
252 LAST_UPDATED_DATE = X_LAST_UPDATED_DATE,
253 WORKORDER_OPERATION_ID = X_WORKORDER_OPERATION_ID,
254 POSITION_PATH_ID = X_POSITION_PATH_ID,
255 RELATIONSHIP_ID = X_RELATIONSHIP_ID,
256 UNIT_EFFECTIVITY_ID = X_UNIT_EFFECTIVITY_ID,
257 MR_ROUTE_ID = X_MR_ROUTE_ID,
258 MATERIAL_REQUEST_TYPE = X_MATERIAL_REQUEST_TYPE,
259 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
260 ATTRIBUTE1 = X_ATTRIBUTE1,
261 ATTRIBUTE2 = X_ATTRIBUTE2,
262 ATTRIBUTE3 = X_ATTRIBUTE3,
263 ATTRIBUTE4 = X_ATTRIBUTE4,
264 ATTRIBUTE5 = X_ATTRIBUTE5,
265 ATTRIBUTE6 = X_ATTRIBUTE6,
266 ATTRIBUTE7 = X_ATTRIBUTE7,
267 ATTRIBUTE8 = X_ATTRIBUTE8,
268 ATTRIBUTE9 = X_ATTRIBUTE9,
269 ATTRIBUTE10 = X_ATTRIBUTE10,
270 ATTRIBUTE11 = X_ATTRIBUTE11,
271 ATTRIBUTE12 = X_ATTRIBUTE12,
272 ATTRIBUTE13 = X_ATTRIBUTE13,
273 ATTRIBUTE14 = X_ATTRIBUTE14,
274 ATTRIBUTE15 = X_ATTRIBUTE15
275 WHERE SCHEDULED_MATERIAL_ID = X_SCHEDULED_MATERIAL_ID
276 AND OBJECT_VERSION_NUMBER=X_OBJECT_VERSION_NUMBER;
277 IF (SQL%ROWCOUNT=0)
278 THEN
279 FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
280 FND_MSG_PUB.ADD;
281 END IF;
282 END UPDATE_ROW;
283
284 PROCEDURE DELETE_ROW (
285 X_SCHEDULED_MATERIAL_ID IN NUMBER
286 ) IS
287 BEGIN
288 DELETE AHL_SCHEDULE_MATERIALS
289 WHERE SCHEDULED_MATERIAL_ID = X_SCHEDULED_MATERIAL_ID;
290
291 IF (SQL%NOTFOUND) THEN
292 RAISE NO_DATA_FOUND;
293 END IF;
294
295 END DELETE_ROW;
296
297 END AHL_SCHEDULE_MATERIALS_PKG;