1: package body IGS_PR_S_OU_PRG_CAL_PKG as
2: /* $Header: IGSQI23B.pls 115.5 2002/12/23 07:32:15 ddey ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_S_OU_PRG_CAL%RowType;
1: package body IGS_PR_S_OU_PRG_CAL_PKG as
2: /* $Header: IGSQI23B.pls 115.5 2002/12/23 07:32:15 ddey ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_S_OU_PRG_CAL%RowType;
6: new_references IGS_PR_S_OU_PRG_CAL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI23B.pls 115.5 2002/12/23 07:32:15 ddey ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_S_OU_PRG_CAL%RowType;
6: new_references IGS_PR_S_OU_PRG_CAL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
22: ) AS
23:
24: CURSOR cur_old_ref_values IS
25: SELECT *
26: FROM IGS_PR_S_OU_PRG_CAL
27: WHERE rowid = x_rowid;
28:
29: BEGIN
30:
66:
67: -- Trigger description :-
68: -- "OSS_TST".trg_sopca_br_iu
69: -- BEFORE INSERT OR UPDATE
70: -- ON IGS_PR_S_OU_PRG_CAL
71: -- FOR EACH ROW
72:
73: PROCEDURE BeforeRowInsertUpdate1(
74: p_inserting IN BOOLEAN DEFAULT FALSE,
159: ) RETURN BOOLEAN AS
160:
161: CURSOR cur_rowid IS
162: SELECT rowid
163: FROM IGS_PR_S_OU_PRG_CAL
164: WHERE org_unit_cd = x_org_unit_cd
165: AND ou_start_dt = x_ou_start_dt
166: AND prg_cal_type = x_prg_cal_type
167: FOR UPDATE NOWAIT;
187: ) AS
188:
189: CURSOR cur_rowid IS
190: SELECT rowid
191: FROM IGS_PR_S_OU_PRG_CAL
192: WHERE prg_cal_type = x_cal_type ;
193:
194: lv_rowid cur_rowid%RowType;
195:
215: ) AS
216:
217: CURSOR cur_rowid IS
218: SELECT rowid
219: FROM IGS_PR_S_OU_PRG_CAL
220: WHERE org_unit_cd = x_org_unit_cd
221: AND ou_start_dt = x_ou_start_dt ;
222:
223: lv_rowid cur_rowid%RowType;
318: X_SHOW_CAUSE_LENGTH in NUMBER,
319: X_APPEAL_LENGTH in NUMBER,
320: X_MODE in VARCHAR2 default 'R'
321: ) as
322: cursor C is select ROWID from IGS_PR_S_OU_PRG_CAL
323: where ORG_UNIT_CD = X_ORG_UNIT_CD
324: and OU_START_DT = X_OU_START_DT
325: and PRG_CAL_TYPE = X_PRG_CAL_TYPE;
326: X_LAST_UPDATE_DATE DATE;
362: x_last_update_login => X_LAST_UPDATE_LOGIN
363: );
364:
365:
366: insert into IGS_PR_S_OU_PRG_CAL (
367: ORG_UNIT_CD,
368: OU_START_DT,
369: PRG_CAL_TYPE,
370: STREAM_NUM,
411: cursor c1 is select
412: STREAM_NUM,
413: SHOW_CAUSE_LENGTH,
414: APPEAL_LENGTH
415: from IGS_PR_S_OU_PRG_CAL
416: where ROWID = X_ROWID
417: for update nowait;
418: tlinfo c1%rowtype;
419:
495: x_last_updated_by => X_LAST_UPDATED_BY,
496: x_last_update_login => X_LAST_UPDATE_LOGIN
497: );
498:
499: update IGS_PR_S_OU_PRG_CAL set
500: STREAM_NUM = NEW_REFERENCES.STREAM_NUM,
501: SHOW_CAUSE_LENGTH = NEW_REFERENCES.SHOW_CAUSE_LENGTH,
502: APPEAL_LENGTH = NEW_REFERENCES.APPEAL_LENGTH,
503: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
520: X_SHOW_CAUSE_LENGTH in NUMBER,
521: X_APPEAL_LENGTH in NUMBER,
522: X_MODE in VARCHAR2 default 'R'
523: ) as
524: cursor c1 is select rowid from IGS_PR_S_OU_PRG_CAL
525: where ORG_UNIT_CD = X_ORG_UNIT_CD
526: and OU_START_DT = X_OU_START_DT
527: and PRG_CAL_TYPE = X_PRG_CAL_TYPE
528: ;
563: p_action=>'DELETE',
564: x_rowid=>X_ROWID
565: );
566:
567: delete from IGS_PR_S_OU_PRG_CAL
568: where ROWID = X_ROWID;
569: if (sql%notfound) then
570: raise no_data_found;
571: end if;
620: END IF;
621:
622: END Check_Constraints;
623:
624: end IGS_PR_S_OU_PRG_CAL_PKG;