APPS.IGS_PS_PAT_STUDY_UNT_PKG dependencies on IGS_PS_PAT_STUDY_UNT

Line 1: package body IGS_PS_PAT_STUDY_UNT_PKG as

1: package body IGS_PS_PAT_STUDY_UNT_PKG as
2: /* $Header: IGSPI63B.pls 120.0 2005/06/01 20:09:40 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_PS_PAT_STUDY_UNT%RowType;
5: new_references IGS_PS_PAT_STUDY_UNT%RowType;

Line 4: old_references IGS_PS_PAT_STUDY_UNT%RowType;

1: package body IGS_PS_PAT_STUDY_UNT_PKG as
2: /* $Header: IGSPI63B.pls 120.0 2005/06/01 20:09:40 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_PS_PAT_STUDY_UNT%RowType;
5: new_references IGS_PS_PAT_STUDY_UNT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,

Line 5: new_references IGS_PS_PAT_STUDY_UNT%RowType;

1: package body IGS_PS_PAT_STUDY_UNT_PKG as
2: /* $Header: IGSPI63B.pls 120.0 2005/06/01 20:09:40 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_PS_PAT_STUDY_UNT%RowType;
5: new_references IGS_PS_PAT_STUDY_UNT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 ,

Line 30: FROM IGS_PS_PAT_STUDY_UNT

26: ) AS
27:
28: CURSOR cur_old_ref_values IS
29: SELECT *
30: FROM IGS_PS_PAT_STUDY_UNT
31: WHERE rowid = x_rowid;
32:
33: BEGIN
34:

Line 392: FROM IGS_PS_PAT_STUDY_UNT

388: ) RETURN BOOLEAN AS
389:
390: CURSOR cur_rowid IS
391: SELECT rowid
392: FROM IGS_PS_PAT_STUDY_UNT
393: WHERE course_cd = x_course_cd
394: AND version_number = x_version_number
395: AND cal_type = x_cal_type
396: AND pos_sequence_number = x_pos_sequence_number

Line 422: FROM IGS_PS_PAT_STUDY_UNT

418: ) AS
419:
420: CURSOR cur_rowid IS
421: SELECT rowid
422: FROM IGS_PS_PAT_STUDY_UNT
423: WHERE unit_location_cd = x_location_cd ;
424:
425: lv_rowid cur_rowid%RowType;
426:

Line 452: FROM IGS_PS_PAT_STUDY_UNT

448: ) AS
449:
450: CURSOR cur_rowid IS
451: SELECT rowid
452: FROM IGS_PS_PAT_STUDY_UNT
453: WHERE course_cd = x_course_cd
454: AND version_number = x_version_number
455: AND cal_type = x_cal_type
456: AND pos_sequence_number = x_pos_sequence_number

Line 482: FROM IGS_PS_PAT_STUDY_UNT

478: ) AS
479:
480: CURSOR cur_rowid IS
481: SELECT rowid
482: FROM IGS_PS_PAT_STUDY_UNT
483: WHERE unit_cd = x_unit_cd ;
484:
485: lv_rowid cur_rowid%RowType;
486:

Line 634: cursor C is select ROWID from IGS_PS_PAT_STUDY_UNT

630: X_DESCRIPTION in VARCHAR2,
631: X_MODE in VARCHAR2,
632: X_CORE_IND IN VARCHAR2
633: ) as
634: cursor C is select ROWID from IGS_PS_PAT_STUDY_UNT
635: where COURSE_CD = X_COURSE_CD
636: and VERSION_NUMBER = X_VERSION_NUMBER
637: and POS_SEQUENCE_NUMBER = X_POS_SEQUENCE_NUMBER
638: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER

Line 683: insert into IGS_PS_PAT_STUDY_UNT (

679: x_last_updated_by => X_LAST_UPDATED_BY,
680: x_last_update_login => X_LAST_UPDATE_LOGIN,
681: x_core_ind => NVL(X_CORE_IND,'N')
682: );
683: insert into IGS_PS_PAT_STUDY_UNT (
684: COURSE_CD,
685: VERSION_NUMBER,
686: CAL_TYPE,
687: POS_SEQUENCE_NUMBER,

Line 752: from IGS_PS_PAT_STUDY_UNT

748: UNIT_LOCATION_CD,
749: UNIT_CLASS,
750: DESCRIPTION,
751: CORE_IND
752: from IGS_PS_PAT_STUDY_UNT
753: where ROWID = X_ROWID for update nowait;
754: tlinfo c1%rowtype;
755:
756: begin

Line 851: update IGS_PS_PAT_STUDY_UNT set

847: x_last_update_login => X_LAST_UPDATE_LOGIN,
848: x_core_ind => NVL(X_CORE_IND,'N')
849: );
850:
851: update IGS_PS_PAT_STUDY_UNT set
852: UNIT_CD = NEW_REFERENCES.UNIT_CD,
853: UNIT_LOCATION_CD = NEW_REFERENCES.UNIT_LOCATION_CD,
854: UNIT_CLASS = NEW_REFERENCES.UNIT_CLASS,
855: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,

Line 886: cursor c1 is select rowid from IGS_PS_PAT_STUDY_UNT

882: X_DESCRIPTION in VARCHAR2,
883: X_MODE in VARCHAR2,
884: X_CORE_IND IN VARCHAR2
885: ) as
886: cursor c1 is select rowid from IGS_PS_PAT_STUDY_UNT
887: where COURSE_CD = X_COURSE_CD
888: and VERSION_NUMBER = X_VERSION_NUMBER
889: and POS_SEQUENCE_NUMBER = X_POS_SEQUENCE_NUMBER
890: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER

Line 939: delete from IGS_PS_PAT_STUDY_UNT

935: begin
936: Before_DML( p_action => 'DELETE',
937: x_rowid => X_ROWID
938: );
939: delete from IGS_PS_PAT_STUDY_UNT
940: where ROWID = X_ROWID;
941: if (sql%notfound) then
942: raise no_data_found;
943: end if;

Line 951: end IGS_PS_PAT_STUDY_UNT_PKG;

947: );
948:
949: end DELETE_ROW;
950:
951: end IGS_PS_PAT_STUDY_UNT_PKG;