[Home] [Help]
1: PACKAGE BODY igs_or_org_alt_idtyp_pkg AS
2: /* $Header: IGSOI16B.pls 115.11 2003/09/29 06:08:48 ssaleem ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_or_org_alt_idtyp%RowType;
5: new_references igs_or_org_alt_idtyp%RowType;
1: PACKAGE BODY igs_or_org_alt_idtyp_pkg AS
2: /* $Header: IGSOI16B.pls 115.11 2003/09/29 06:08:48 ssaleem ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_or_org_alt_idtyp%RowType;
5: new_references igs_or_org_alt_idtyp%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_or_org_alt_idtyp_pkg AS
2: /* $Header: IGSOI16B.pls 115.11 2003/09/29 06:08:48 ssaleem ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_or_org_alt_idtyp%RowType;
5: new_references igs_or_org_alt_idtyp%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 ,
34: ***************************************************************/
35:
36: CURSOR cur_old_ref_values IS
37: SELECT *
38: FROM IGS_OR_ORG_ALT_IDTYP
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
154: ***************************************************************/
155:
156: BEGIN
157:
158: Igs_Or_Org_Alt_Ids_Pkg.Get_FK_Igs_Or_Org_Alt_Idtyp (
159: old_references.org_alternate_id_type
160: );
161:
162: igs_da_setup_pkg.get_fk_igs_or_org_alt_idtyp(old_references.org_alternate_id_type);
158: Igs_Or_Org_Alt_Ids_Pkg.Get_FK_Igs_Or_Org_Alt_Idtyp (
159: old_references.org_alternate_id_type
160: );
161:
162: igs_da_setup_pkg.get_fk_igs_or_org_alt_idtyp(old_references.org_alternate_id_type);
163:
164: END Check_Child_Existance;
165:
166: FUNCTION Get_PK_For_Validation (
180: ***************************************************************/
181:
182: CURSOR cur_rowid IS
183: SELECT rowid
184: FROM igs_or_org_alt_idtyp
185: WHERE org_alternate_id_type = x_org_alternate_id_type AND
186: CLOSE_IND = 'N';
187:
188: lv_rowid cur_rowid%RowType;
336:
337: (reverse chronological order - newest change first)
338: ***************************************************************/
339:
340: cursor C is select ROWID from IGS_OR_ORG_ALT_IDTYP
341: where ORG_ALTERNATE_ID_TYPE= X_ORG_ALTERNATE_ID_TYPE
342: ;
343: X_LAST_UPDATE_DATE DATE ;
344: X_LAST_UPDATED_BY NUMBER ;
377: x_created_by=>X_LAST_UPDATED_BY,
378: x_last_update_date=>X_LAST_UPDATE_DATE,
379: x_last_updated_by=>X_LAST_UPDATED_BY,
380: x_last_update_login=>X_LAST_UPDATE_LOGIN);
381: insert into IGS_OR_ORG_ALT_IDTYP (
382: ORG_ALTERNATE_ID_TYPE
383: ,ID_TYPE_DESCRIPTION
384: ,INST_FLAG
385: ,UNIT_FLAG
440: (reverse chronological order - newest change first)
441: ***************************************************************/
442:
443: cursor c1 is select *
444: from IGS_OR_ORG_ALT_IDTYP
445: where ROWID = X_ROWID
446: for update nowait;
447: tlinfo c1%rowtype;
448: begin
546: x_last_update_date=>X_LAST_UPDATE_DATE,
547: x_last_updated_by=>X_LAST_UPDATED_BY,
548: x_last_update_login=>X_LAST_UPDATE_LOGIN);
549:
550: update IGS_OR_ORG_ALT_IDTYP set
551: ID_TYPE_DESCRIPTION = NEW_REFERENCES.ID_TYPE_DESCRIPTION,
552: INST_FLAG = NEW_REFERENCES.INST_FLAG,
553: UNIT_FLAG = NEW_REFERENCES.UNIT_FLAG,
554: CLOSE_IND = NEW_REFERENCES.CLOSE_IND,
591:
592: (reverse chronological order - newest change first)
593: ***************************************************************/
594:
595: cursor c1 is select ROWID from IGS_OR_ORG_ALT_IDTYP
596: where ORG_ALTERNATE_ID_TYPE= X_ORG_ALTERNATE_ID_TYPE
597: ;
598: begin
599: open c1;
645: Before_DML (
646: p_action => 'DELETE',
647: x_rowid => X_ROWID
648: );
649: delete from IGS_OR_ORG_ALT_IDTYP
650: where ROWID = X_ROWID;
651: if (sql%notfound) then
652: raise no_data_found;
653: end if;
656: x_rowid => X_ROWID
657: );
658: end DELETE_ROW;
659:
660: END igs_or_org_alt_idtyp_pkg;