1: PACKAGE BODY WMS_RESTRICTIONS_PKG AS
2: /* $Header: WMSHPREB.pls 120.1 2005/06/21 02:18:42 appldev ship $ */
3:
4: PROCEDURE INSERT_ROW (
5: x_rowid IN OUT NOCOPY VARCHAR2
38: ,x_attribute13 IN VARCHAR2
39: ,x_attribute14 IN VARCHAR2
40: ,x_attribute15 IN VARCHAR2
41: )IS
42: CURSOR C IS SELECT ROWID FROM WMS_RESTRICTIONS
43: WHERE rule_id = x_rule_id
44: AND sequence_number = x_sequence_number;
45: BEGIN
46:
43: WHERE rule_id = x_rule_id
44: AND sequence_number = x_sequence_number;
45: BEGIN
46:
47: INSERT INTO WMS_RESTRICTIONS (
48: rule_id
49: ,sequence_number
50: ,last_updated_by
51: ,last_update_date
190: ,attribute12
191: ,attribute13
192: ,attribute14
193: ,attribute15
194: FROM WMS_RESTRICTIONS
195: WHERE rowid = x_rowid
196: FOR UPDATE OF rule_id NOWAIT;
197:
198: recinfo c%ROWTYPE;
331: ,x_attribute15 IN VARCHAR2
332: )IS
333: BEGIN
334: IF (x_rowid IS NOT NULL) THEN
335: UPDATE WMS_RESTRICTIONS SET
336: rule_id = x_rule_id
337: ,sequence_number = x_sequence_number
338: ,last_updated_by = x_last_updated_by
339: ,last_update_date = x_last_update_date
367: ,attribute14 = x_attribute14
368: ,attribute15 = x_attribute15
369: WHERE rowid = x_rowid;
370: ELSE
371: UPDATE WMS_RESTRICTIONS SET
372: rule_id = x_rule_id
373: ,sequence_number = x_sequence_number
374: ,last_updated_by = x_last_updated_by
375: ,last_update_date = x_last_update_date
415: x_rowid IN VARCHAR2
416: )IS
417: BEGIN
418:
419: DELETE FROM WMS_RESTRICTIONS
420: WHERE rowid = x_rowid;
421:
422: IF (SQL%NOTFOUND) THEN
423: RAISE NO_DATA_FOUND;
499: fnd_number.canonical_to_number(x_operand_parameter_id );
500:
501: l_operand_constant_date := to_date(x_operand_constant_date, 'YYYY/MM/DD');
502:
503: wms_restrictions_pkg.update_row
504: (
505: x_rowid => NULL
506: ,x_rule_id => l_rule_id
507: ,x_sequence_number => l_sequence_number
538: ,x_attribute15 => x_attribute15
539: );
540: EXCEPTION
541: WHEN no_data_found THEN
542: wms_restrictions_pkg.insert_row
543: (
544: x_rowid => l_row_id
545: ,x_rule_id => l_rule_id
546: ,x_sequence_number => l_sequence_number
579: ,x_attribute15 => x_attribute15
580: );
581: END;
582: END load_row;
583: END WMS_RESTRICTIONS_PKG;