1: package body IGS_PS_VER_RU_PKG AS
2: /* $Header: IGSPI45B.pls 115.4 2002/11/29 02:28:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_VER_RU%RowType;
1: package body IGS_PS_VER_RU_PKG AS
2: /* $Header: IGSPI45B.pls 115.4 2002/11/29 02:28:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_VER_RU%RowType;
6: new_references IGS_PS_VER_RU%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI45B.pls 115.4 2002/11/29 02:28:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_VER_RU%RowType;
6: new_references IGS_PS_VER_RU%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
20: ) AS
21:
22: CURSOR cur_old_ref_values IS
23: SELECT *
24: FROM IGS_PS_VER_RU
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
203: )RETURN BOOLEAN AS
204:
205: CURSOR cur_rowid IS
206: SELECT rowid
207: FROM IGS_PS_VER_RU
208: WHERE course_cd = x_course_cd
209: AND version_number = x_version_number
210: AND s_rule_call_cd = x_s_rule_call_cd
211: FOR UPDATE NOWAIT;
232: ) AS
233:
234: CURSOR cur_rowid IS
235: SELECT rowid
236: FROM IGS_PS_VER_RU
237: WHERE course_cd = x_course_cd
238: AND version_number = x_version_number ;
239:
240: lv_rowid cur_rowid%RowType;
259: ) AS
260:
261: CURSOR cur_rowid IS
262: SELECT rowid
263: FROM IGS_PS_VER_RU
264: WHERE rul_sequence_number = x_sequence_number ;
265:
266: lv_rowid cur_rowid%RowType;
267:
285: ) AS
286:
287: CURSOR cur_rowid IS
288: SELECT rowid
289: FROM IGS_PS_VER_RU
290: WHERE s_rule_call_cd = x_s_rule_call_cd ;
291:
292: lv_rowid cur_rowid%RowType;
293:
393: X_S_RULE_CALL_CD in VARCHAR2,
394: X_RUL_SEQUENCE_NUMBER in NUMBER,
395: X_MODE in VARCHAR2 default 'R'
396: ) AS
397: cursor C is select ROWID from IGS_PS_VER_RU
398: where COURSE_CD = X_COURSE_CD
399: and VERSION_NUMBER = X_VERSION_NUMBER
400: and S_RULE_CALL_CD = X_S_RULE_CALL_CD;
401: X_LAST_UPDATE_DATE DATE;
434: x_last_update_date => X_LAST_UPDATE_DATE,
435: x_last_updated_by => X_LAST_UPDATED_BY,
436: x_last_update_login => X_LAST_UPDATE_LOGIN
437: );
438: insert into IGS_PS_VER_RU (
439: COURSE_CD,
440: VERSION_NUMBER,
441: S_RULE_CALL_CD,
442: RUL_SEQUENCE_NUMBER,
478: X_RUL_SEQUENCE_NUMBER in NUMBER
479: ) AS
480: cursor c1 is select
481: RUL_SEQUENCE_NUMBER
482: from IGS_PS_VER_RU
483: where ROWID = X_ROWID for update nowait;
484: tlinfo c1%rowtype;
485:
486: begin
548: x_last_update_date => X_LAST_UPDATE_DATE,
549: x_last_updated_by => X_LAST_UPDATED_BY,
550: x_last_update_login => X_LAST_UPDATE_LOGIN
551: );
552: update IGS_PS_VER_RU set
553: RUL_SEQUENCE_NUMBER = NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
554: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
555: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
556: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
573: X_S_RULE_CALL_CD in VARCHAR2,
574: X_RUL_SEQUENCE_NUMBER in NUMBER,
575: X_MODE in VARCHAR2 default 'R'
576: ) AS
577: cursor c1 is select rowid from IGS_PS_VER_RU
578: where COURSE_CD = X_COURSE_CD
579: and VERSION_NUMBER = X_VERSION_NUMBER
580: and S_RULE_CALL_CD = X_S_RULE_CALL_CD
581: ;
610: Before_DML(
611: p_action => 'DELETE',
612: x_rowid => X_ROWID
613: );
614: delete from IGS_PS_VER_RU
615: where ROWID = X_ROWID;
616: if (sql%notfound) then
617: raise no_data_found;
618: end if;
622: );
623:
624: end DELETE_ROW;
625:
626: end IGS_PS_VER_RU_PKG;