[Home] [Help]
1: package body IGS_PS_STAGE_RU_PKG AS
2: /* $Header: IGSPI33B.pls 115.4 2002/11/29 02:22:03 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_PS_STAGE_RU%RowType;
5: new_references IGS_PS_STAGE_RU%RowType;
1: package body IGS_PS_STAGE_RU_PKG AS
2: /* $Header: IGSPI33B.pls 115.4 2002/11/29 02:22:03 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_PS_STAGE_RU%RowType;
5: new_references IGS_PS_STAGE_RU%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_PS_STAGE_RU_PKG AS
2: /* $Header: IGSPI33B.pls 115.4 2002/11/29 02:22:03 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_PS_STAGE_RU%RowType;
5: new_references IGS_PS_STAGE_RU%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
20: ) AS
21:
22: CURSOR cur_old_ref_values IS
23: SELECT *
24: FROM IGS_PS_STAGE_RU
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
205: ) RETURN BOOLEAN AS
206:
207: CURSOR cur_rowid IS
208: SELECT rowid
209: FROM IGS_PS_STAGE_RU
210: WHERE course_cd = x_course_cd
211: AND version_number = x_version_number
212: AND cst_sequence_number = x_cst_sequence_number
213: AND s_rule_call_cd = x_s_rule_call_cd
235: ) AS
236:
237: CURSOR cur_rowid IS
238: SELECT rowid
239: FROM IGS_PS_STAGE_RU
240: WHERE course_cd = x_course_cd
241: AND version_number = x_version_number
242: AND cst_sequence_number = x_sequence_number ;
243:
263: ) AS
264:
265: CURSOR cur_rowid IS
266: SELECT rowid
267: FROM IGS_PS_STAGE_RU
268: WHERE rul_sequence_number = x_sequence_number ;
269:
270: lv_rowid cur_rowid%RowType;
271:
289: ) AS
290:
291: CURSOR cur_rowid IS
292: SELECT rowid
293: FROM IGS_PS_STAGE_RU
294: WHERE s_rule_call_cd = x_s_rule_call_cd ;
295:
296: lv_rowid cur_rowid%RowType;
297:
399: X_CST_SEQUENCE_NUMBER in NUMBER,
400: X_RUL_SEQUENCE_NUMBER in NUMBER,
401: X_MODE in VARCHAR2 default 'R'
402: ) AS
403: cursor C is select ROWID from IGS_PS_STAGE_RU
404: where COURSE_CD = X_COURSE_CD
405: and VERSION_NUMBER = X_VERSION_NUMBER
406: and S_RULE_CALL_CD = X_S_RULE_CALL_CD
407: and CST_SEQUENCE_NUMBER = X_CST_SEQUENCE_NUMBER;
439: x_last_update_date => X_LAST_UPDATE_DATE,
440: x_last_updated_by => X_LAST_UPDATED_BY,
441: x_last_update_login => X_LAST_UPDATE_LOGIN
442: );
443: insert into IGS_PS_STAGE_RU (
444: COURSE_CD,
445: VERSION_NUMBER,
446: CST_SEQUENCE_NUMBER,
447: S_RULE_CALL_CD,
487: X_RUL_SEQUENCE_NUMBER in NUMBER
488: ) AS
489: cursor c1 is select
490: RUL_SEQUENCE_NUMBER
491: from IGS_PS_STAGE_RU
492: where ROWID=X_ROWID for update nowait;
493: tlinfo c1%rowtype;
494:
495: begin
559: x_last_updated_by => X_LAST_UPDATED_BY,
560: x_last_update_login => X_LAST_UPDATE_LOGIN
561: );
562:
563: update IGS_PS_STAGE_RU set
564: RUL_SEQUENCE_NUMBER = NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
565: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
566: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
567: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
585: X_CST_SEQUENCE_NUMBER in NUMBER,
586: X_RUL_SEQUENCE_NUMBER in NUMBER,
587: X_MODE in VARCHAR2 default 'R'
588: ) AS
589: cursor c1 is select rowid from IGS_PS_STAGE_RU
590: where COURSE_CD = X_COURSE_CD
591: and VERSION_NUMBER = X_VERSION_NUMBER
592: and S_RULE_CALL_CD = X_S_RULE_CALL_CD
593: and CST_SEQUENCE_NUMBER = X_CST_SEQUENCE_NUMBER
626: Before_DML( p_action => 'DELETE',
627: x_rowid => X_ROWID
628: );
629:
630: delete from IGS_PS_STAGE_RU
631: where ROWID = X_ROWID;
632: if (sql%notfound) then
633: raise no_data_found;
634: end if;
638: );
639:
640: end DELETE_ROW;
641:
642: end IGS_PS_STAGE_RU_PKG;