[Home] [Help]
1: package body WMS_RULE_CONSISTENCIES_PKG as
2: /* $Header: WMSHPCOB.pls 120.1 2005/06/21 10:12:49 appldev ship $*/
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,
27: X_ATTRIBUTE13 in VARCHAR2,
28: X_ATTRIBUTE14 in VARCHAR2,
29: X_ATTRIBUTE15 in VARCHAR2
30: ) is
31: cursor C is select ROWID from WMS_RULE_CONSISTENCIES
32: where RULE_ID = X_RULE_ID
33: and CONSISTENCY_ID = X_CONSISTENCY_ID
34: ;
35: begin
32: where RULE_ID = X_RULE_ID
33: and CONSISTENCY_ID = X_CONSISTENCY_ID
34: ;
35: begin
36: insert into WMS_RULE_CONSISTENCIES (
37: CONSISTENCY_ID,
38: RULE_ID,
39: PARAMETER_ID,
40: LAST_UPDATED_BY,
134: ATTRIBUTE12,
135: ATTRIBUTE13,
136: ATTRIBUTE14,
137: ATTRIBUTE15
138: from WMS_RULE_CONSISTENCIES
139: where RULE_ID = X_RULE_ID
140: and CONSISTENCY_ID = X_CONSISTENCY_ID
141: for update of CONSISTENCY_ID nowait;
142:
218: X_ATTRIBUTE14 in VARCHAR2,
219: X_ATTRIBUTE15 in VARCHAR2
220: ) is
221: begin
222: update WMS_RULE_CONSISTENCIES set
223: RULE_ID = X_RULE_ID,
224: PARAMETER_ID = X_PARAMETER_ID,
225: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
226: ATTRIBUTE1 = X_ATTRIBUTE1,
252: procedure DELETE_ROW (
253: X_ROWID in VARCHAR2
254: ) is
255: begin
256: delete from WMS_RULE_CONSISTENCIES
257: where rowid = X_ROWID;
258:
259: if (sql%notfound) then
260: raise no_data_found;
302: l_parameter_id := fnd_number.canonical_to_number(x_parameter_id );
303: l_consistency_id :=
304: fnd_number.canonical_to_number(x_consistency_id );
305:
306: wms_rule_consistencies_pkg.update_row
307: (
308: x_consistency_id => l_consistency_id
309: ,x_rule_id => l_rule_id
310: ,x_last_update_date => l_sysdate
329: ,x_attribute15 => x_attribute15
330: );
331: EXCEPTION
332: WHEN no_data_found THEN
333: wms_rule_consistencies_pkg.insert_row
334: (
335: x_rowid => l_row_id
336: ,x_consistency_id => l_consistency_id
337: ,x_rule_id => l_rule_id
359: ,x_attribute15 => x_attribute15
360: );
361: END;
362: END load_row;
363: end WMS_RULE_CONSISTENCIES_PKG;