1: package body IGS_PR_SDT_PS_PR_MSR_PKG AS
2: /* $Header: IGSQI20B.pls 115.3 2002/11/29 03:19:08 nsidana ship $ */
3:
4:
5: l_rowid VARCHAR2(25);
2: /* $Header: IGSQI20B.pls 115.3 2002/11/29 03:19:08 nsidana ship $ */
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGS_PR_SDT_PS_PR_MSR%RowType;
7: new_references IGS_PR_SDT_PS_PR_MSR%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGS_PR_SDT_PS_PR_MSR%RowType;
7: new_references IGS_PR_SDT_PS_PR_MSR%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
11: x_rowid IN VARCHAR2 DEFAULT NULL,
24: ) AS
25:
26: CURSOR cur_old_ref_values IS
27: SELECT *
28: FROM IGS_PR_SDT_PS_PR_MSR
29: WHERE rowid = x_rowid;
30:
31: BEGIN
32:
133: ) RETURN BOOLEAN AS
134:
135: CURSOR cur_rowid IS
136: SELECT rowid
137: FROM IGS_PR_SDT_PS_PR_MSR
138: WHERE person_id = x_person_id
139: AND course_cd = x_course_cd
140: AND prg_cal_type = x_prg_cal_type
141: AND prg_ci_sequence_number = x_prg_ci_sequence_number
164: x_sequence_number IN NUMBER ) AS
165:
166: CURSOR cur_rowid IS
167: SELECT rowid
168: FROM IGS_PR_SDT_PS_PR_MSR
169: WHERE prg_cal_type = x_cal_type
170: AND prg_ci_sequence_number = x_sequence_number ;
171:
172: lv_rowid cur_rowid%RowType;
193: ) AS
194:
195: CURSOR cur_rowid IS
196: SELECT rowid
197: FROM IGS_PR_SDT_PS_PR_MSR
198: WHERE person_id = x_person_id
199: AND course_cd = x_course_cd ;
200:
201: lv_rowid cur_rowid%RowType;
221: ) AS
222:
223: CURSOR cur_rowid IS
224: SELECT rowid
225: FROM IGS_PR_SDT_PS_PR_MSR
226: WHERE s_prg_measure_type = x_s_prg_measure_type ;
227:
228: lv_rowid cur_rowid%RowType;
229:
328: X_CALCULATION_DT in DATE,
329: X_VALUE in NUMBER,
330: X_MODE in VARCHAR2 default 'R'
331: ) AS
332: cursor C is select ROWID from IGS_PR_SDT_PS_PR_MSR
333: where PERSON_ID = X_PERSON_ID
334: and COURSE_CD = X_COURSE_CD
335: and PRG_CAL_TYPE = X_PRG_CAL_TYPE
336: and PRG_CI_SEQUENCE_NUMBER = X_PRG_CI_SEQUENCE_NUMBER
375: x_last_updated_by => x_last_updated_by ,
376: x_last_update_login =>x_last_update_login
377: ) ;
378:
379: insert into IGS_PR_SDT_PS_PR_MSR (
380: PERSON_ID,
381: COURSE_CD,
382: PRG_CAL_TYPE,
383: PRG_CI_SEQUENCE_NUMBER,
424: X_VALUE in NUMBER
425: ) AS
426: cursor c1 is select
427: VALUE
428: from IGS_PR_SDT_PS_PR_MSR
429: where ROWID = X_ROWID for update nowait;
430: tlinfo c1%rowtype;
431:
432: begin
503: x_last_updated_by => x_last_updated_by ,
504: x_last_update_login =>x_last_update_login
505: ) ;
506:
507: update IGS_PR_SDT_PS_PR_MSR set
508: VALUE = NEW_REFERENCES.VALUE,
509: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
510: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
511: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
525: X_CALCULATION_DT in DATE,
526: X_VALUE in NUMBER,
527: X_MODE in VARCHAR2 default 'R'
528: ) AS
529: cursor c1 is select rowid from IGS_PR_SDT_PS_PR_MSR
530: where PERSON_ID = X_PERSON_ID
531: and COURSE_CD = X_COURSE_CD
532: and PRG_CAL_TYPE = X_PRG_CAL_TYPE
533: and PRG_CI_SEQUENCE_NUMBER = X_PRG_CI_SEQUENCE_NUMBER
571: Before_DML (
572: p_action => 'DELETE',
573: x_rowid => X_ROWID
574: ) ;
575: delete from IGS_PR_SDT_PS_PR_MSR
576: where ROWID = X_ROWID;
577: if (sql%notfound) then
578: raise no_data_found;
579: end if;
613: END IF ;
614: END Check_Constraints;
615:
616:
617: end IGS_PR_SDT_PS_PR_MSR_PKG;