[Home] [Help]
1: package body IGS_PS_GRP_PKG AS
2: /* $Header: IGSPI15B.pls 115.9 2003/02/20 10:03:27 shtatiko ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_GRP_ALL%RowType;
6: new_references IGS_PS_GRP_ALL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI15B.pls 115.9 2003/02/20 10:03:27 shtatiko ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_GRP_ALL%RowType;
6: new_references IGS_PS_GRP_ALL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
23: ) AS
24:
25: CURSOR cur_old_ref_values IS
26: SELECT *
27: FROM IGS_PS_GRP_ALL
28: WHERE rowid = x_rowid;
29:
30: BEGIN
31:
198: -- Removed FOR UPDATE NOWAIT clause from the following cursor, Enh# 2797116.
199:
200: CURSOR cur_rowid IS
201: SELECT rowid
202: FROM IGS_PS_GRP_ALL
203: WHERE course_group_cd = x_course_group_cd;
204:
205: lv_rowid cur_rowid%RowType;
206:
223: ) AS
224:
225: CURSOR cur_rowid IS
226: SELECT rowid
227: FROM IGS_PS_GRP_ALL
228: WHERE course_group_type = x_course_group_type ;
229:
230: lv_rowid cur_rowid%RowType;
231:
250: ) AS
251:
252: CURSOR cur_rowid IS
253: SELECT rowid
254: FROM IGS_PS_GRP_ALL
255: WHERE responsible_org_unit_cd = x_org_unit_cd
256: AND responsible_ou_start_dt = x_start_dt ;
257:
258: lv_rowid cur_rowid%RowType;
363: X_CLOSED_IND in VARCHAR2,
364: X_MODE in VARCHAR2 default 'R',
365: x_ORG_ID in NUMBER
366: ) AS
367: cursor C is select ROWID from IGS_PS_GRP_ALL
368: where COURSE_GROUP_CD = X_COURSE_GROUP_CD;
369: X_LAST_UPDATE_DATE DATE;
370: X_LAST_UPDATED_BY NUMBER;
371: X_LAST_UPDATE_LOGIN NUMBER;
404: x_last_update_login => X_LAST_UPDATE_LOGIN,
405: x_org_id=>igs_ge_gen_003.get_org_id
406:
407: );
408: insert into IGS_PS_GRP_ALL (
409: COURSE_GROUP_CD,
410: DESCRIPTION,
411: RESPONSIBLE_ORG_UNIT_CD,
412: RESPONSIBLE_OU_START_DT,
461: RESPONSIBLE_ORG_UNIT_CD,
462: RESPONSIBLE_OU_START_DT,
463: COURSE_GROUP_TYPE,
464: CLOSED_IND
465: from IGS_PS_GRP_ALL
466: where ROWID = X_ROWID
467: for update nowait;
468: tlinfo c1%rowtype;
469:
547: x_last_updated_by => X_LAST_UPDATED_BY ,
548: x_last_update_login => X_LAST_UPDATE_LOGIN
549: );
550:
551: update IGS_PS_GRP_ALL set
552: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
553: RESPONSIBLE_ORG_UNIT_CD = NEW_REFERENCES.RESPONSIBLE_ORG_UNIT_CD,
554: RESPONSIBLE_OU_START_DT = NEW_REFERENCES.RESPONSIBLE_OU_START_DT,
555: COURSE_GROUP_TYPE = NEW_REFERENCES.COURSE_GROUP_TYPE,
578: X_CLOSED_IND in VARCHAR2,
579: X_MODE in VARCHAR2 default 'R',
580: X_ORG_ID IN NUMBER
581: ) AS
582: cursor c1 is select rowid from IGS_PS_GRP_ALL
583: where COURSE_GROUP_CD = X_COURSE_GROUP_CD
584: ;
585: begin
586: open c1;