1: PACKAGE BODY igs_as_servic_plan_pkg AS
2: /* $Header: IGSDI74B.pls 115.2 2002/11/28 23:30:13 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_servic_plan%ROWTYPE;
1: PACKAGE BODY igs_as_servic_plan_pkg AS
2: /* $Header: IGSDI74B.pls 115.2 2002/11/28 23:30:13 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_servic_plan%ROWTYPE;
6: new_references igs_as_servic_plan%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI74B.pls 115.2 2002/11/28 23:30:13 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_servic_plan%ROWTYPE;
6: new_references igs_as_servic_plan%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM igs_as_servic_plan
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
116: || (reverse chronological order - newest change first)
117: */
118: CURSOR cur_rowid IS
119: SELECT rowid
120: FROM igs_as_servic_plan
121: WHERE plan_id = x_plan_id
122: FOR UPDATE NOWAIT;
123:
124: lv_rowid cur_rowid%RowType;
151: || (reverse chronological order - newest change first)
152: */
153: CURSOR cur_rowid IS
154: SELECT rowid
155: FROM igs_as_servic_plan
156: WHERE plan_type = x_plan_type
157: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
158:
159: lv_rowid cur_rowid%RowType;
316: x_last_updated_by => x_last_updated_by,
317: x_last_update_login => x_last_update_login
318: );
319:
320: INSERT INTO igs_as_servic_plan (
321: plan_id,
322: plan_type,
323: unlimited_ind,
324: quantity_limit,
331: last_update_date,
332: last_updated_by,
333: last_update_login
334: ) VALUES (
335: igs_as_servic_plan_s.NEXTVAL,
336: new_references.plan_type,
337: new_references.unlimited_ind,
338: new_references.quantity_limit,
339: new_references.period_of_plan,
378: period_of_plan,
379: total_periods_covered,
380: fee_amount,
381: closed_ind
382: FROM igs_as_servic_plan
383: WHERE rowid = x_rowid
384: FOR UPDATE NOWAIT;
385:
386: tlinfo c1%ROWTYPE;
482: x_last_updated_by => x_last_updated_by,
483: x_last_update_login => x_last_update_login
484: );
485:
486: UPDATE igs_as_servic_plan
487: SET
488: plan_type = new_references.plan_type,
489: unlimited_ind = new_references.unlimited_ind,
490: quantity_limit = new_references.quantity_limit,
526: || (reverse chronological order - newest change first)
527: */
528: CURSOR c1 IS
529: SELECT rowid
530: FROM igs_as_servic_plan
531: WHERE plan_id = x_plan_id;
532:
533: BEGIN
534:
587: p_action => 'DELETE',
588: x_rowid => x_rowid
589: );
590:
591: DELETE FROM igs_as_servic_plan
592: WHERE rowid = x_rowid;
593:
594: IF (SQL%NOTFOUND) THEN
595: RAISE NO_DATA_FOUND;
597:
598: END delete_row;
599:
600:
601: END igs_as_servic_plan_pkg;