eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.IGS_PE_PERSON_TYPES_PKG SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 17


    x_last_update_date IN DATE DEFAULT NULL,
    x_last_updated_by IN NUMBER DEFAULT NULL,
    x_last_update_login IN NUMBER DEFAULT NULL
  ) AS

  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To set the column values before inserting.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What
  (reverse chronological order - newest change first)
  ***************************************************************/

    CURSOR cur_old_ref_values IS
      SELECT   *
      FROM     IGS_PE_PERSON_TYPES
      WHERE    rowid = x_rowid;

Line: 45


    IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
      Close cur_old_ref_values;

Line: 47


      Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 60


    IF (p_action = 'UPDATE') THEN
      new_references.creation_date := old_references.creation_date;

Line: 67


    new_references.last_update_date := x_last_update_date;

Line: 68


    new_references.last_updated_by := x_last_updated_by;

Line: 69


    new_references.last_update_login := x_last_update_login;

Line: 79


  Purpose : To check if dup records exist After inserting.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/
   CURSOR dup_system_type IS
   SELECT
	COUNT(1)
   FROM
	IGS_PE_PERSON_TYPES A,
	   IGS_PE_PERSON_TYPES B
    WHERE
	       A.System_Type NOT IN ('USER_DEFINED', 'SS_ENROLL_STAFF')
	   AND A.System_Type = B.System_Type
	   AND A.ROWID <> B.ROWID
	   AND A.CLOSED_IND = 'N'
	   AND A.CLOSED_IND = B.CLOSED_IND;

Line: 115


PROCEDURE AfterInsertPTC (
	X_person_type_code IN VARCHAR2
)  AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To set the column values before inserting.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What
  (reverse chronological order - newest change first)
  ***************************************************************/

	lvRowId VARCHAR2(30);

Line: 131


	SELECT DATA_ELEMENT  FROM IGS_PE_DATA_ELEMENT;

Line: 134


	Igs_Pe_Stup_Data_Emt_Pkg.INSERT_ROW  (
	    X_ROWID => lvRowid,
	    X_SETUP_DATA_ELEMENT_ID => ln_Setup_Data_Element_Id,
	    X_PERSON_TYPE_CODE  => X_person_type_code,
	    X_DATA_ELEMENT => de_rec.DATA_ELEMENT,
	    X_VALUE => NULL,
	    X_REQUIRED_IND => 'N',
	    X_MODE => 'R'
	  );

Line: 144


END AfterInsertPTC;

Line: 146


PROCEDURE BeforeDeletePTC   AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To set the column values before inserting.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What
  (reverse chronological order - newest change first)
  ***************************************************************/

	lvRowId VARCHAR2(30);

Line: 159


	SELECT ROWID
	FROM IGS_PE_STUP_DATA_EMT
	WHERE person_type_code = new_references.person_type_code;

Line: 165


        Igs_Pe_Stup_Data_Emt_Pkg.DELETE_ROW (X_ROWID =>tlinfo.ROWID);

Line: 167


END BeforeDeletePTC;

Line: 170


PROCEDURE BeforeInsertPTC AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To set the column values before inserting.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What
  KNAG.IN         11-APR-2001     Included check for SS_ENROLL_STAFF
                                  in procedures BeforeInsertPTC and
                                  BeforeUpdatePTC
  KUMMA           21-MAY-2002     Modified cursor to fetch only rows
				  which are having closed ind set to 'N'
  (reverse chronological order - newest change first)
  ***************************************************************/

   CURSOR C2 IS
   SELECT 'X'
   FROM IGS_PE_PERSON_TYPES
   WHERE System_Type = new_references.system_type
   AND CLOSED_IND = 'N';

Line: 204


END BeforeInsertPTC;

Line: 206


PROCEDURE BeforeUpdatePTC AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To set the column values before inserting.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What
  KNAG.IN         11-APR-2001     Included check for SS_ENROLL_STAFF
                                  in procedures BeforeInsertPTC and
                                  BeforeUpdatePTC
  (reverse chronological order - newest change first)
  ***************************************************************/

   CURSOR C3 IS
   SELECT 'X'
   FROM IGS_PE_PERSON_TYPES
   WHERE System_Type = new_references.system_type
   AND rowid <> l_rowid
--   AND Person_Type_Code <> new_references.Person_Type_Code
   AND CLOSED_IND = 'N'
   AND new_references.closed_ind = 'N';

Line: 241


END BeforeUpdatePTC;

Line: 316


  Purpose : To check if dup records exist before inserting.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What
  pkpatel         8-JUL-2002      Bug No: 2389552
                                  The for update nowait was removed since records can not be deleted from the form
  (reverse chronological order - newest change first)
  ***************************************************************/

    CURSOR cur_rowid IS
      SELECT   rowid
      FROM     igs_pe_person_types
      WHERE    UPPER(person_type_code) = UPPER(x_person_type_code);

Line: 355


    x_last_update_date IN DATE DEFAULT NULL,
    x_last_updated_by IN NUMBER DEFAULT NULL,
    x_last_update_login IN NUMBER DEFAULT NULL
  ) AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To validate the fields before doing the DML operation.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What
  kumma		  21-MAY-2002     Commented the call to BeforeInsertPTC
                                  and to --BeforeUpdatePTC as the logic have
				  been moved to post_forms_commit, Bug 2379779
  (reverse chronological order - newest change first)
  ***************************************************************/

  BEGIN

    Set_Column_Values (
      p_action,
      x_rowid,
      x_person_type_code,
      x_description,
      x_system_type,
      x_closed_ind,
      x_rank,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 389


    IF (p_action = 'INSERT') THEN
      -- Call all the procedures related to Before Insert.
	     IF Get_Pk_For_Validation(
    	       new_references.person_type_code)  THEN
	       Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');

Line: 399


    ELSIF (p_action = 'UPDATE') THEN
      -- Call all the procedures related to Before Update.
      --BeforeUpdatePTC;

Line: 403


    ELSIF (p_action = 'DELETE') THEN
      -- Call all the procedures related to Before Delete.
      Null;

Line: 407


    ELSIF (p_action = 'VALIDATE_INSERT') THEN
	 -- Call all the procedures related to Before Insert.
      IF Get_PK_For_Validation (
    		new_references.person_type_code)  THEN
	       Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');

Line: 416


    ELSIF (p_action = 'VALIDATE_UPDATE') THEN
      Check_Constraints;

Line: 418


    ELSIF (p_action = 'VALIDATE_DELETE') THEN
      Check_Child_Existance;

Line: 420


      BeforeDeletePTC;

Line: 446


    IF (p_action = 'INSERT') THEN
      -- Call all the procedures related to After Insert.
    	AfterInsertPTC(new_references.Person_Type_Code);

Line: 450


    ELSIF (p_action = 'UPDATE') THEN
      -- Call all the procedures related to After Update.
      Null;

Line: 453


    ELSIF (p_action = 'DELETE') THEN
      -- Call all the procedures related to After Delete.
      Null;

Line: 461


 procedure INSERT_ROW (
      X_ROWID in out NOCOPY VARCHAR2,
       x_PERSON_TYPE_CODE IN VARCHAR2,
       x_DESCRIPTION IN VARCHAR2,
       x_SYSTEM_TYPE IN VARCHAR2,
       x_CLOSED_IND IN VARCHAR2,
       x_RANK IN NUMBER DEFAULT NULL,
      X_MODE in VARCHAR2 default 'R'
  ) AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To insert a record.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

    cursor C is select ROWID from IGS_PE_PERSON_TYPES
             where                 PERSON_TYPE_CODE= X_PERSON_TYPE_CODE
;

Line: 484


     X_LAST_UPDATE_DATE DATE ;

Line: 485


     X_LAST_UPDATED_BY NUMBER ;

Line: 486


     X_LAST_UPDATE_LOGIN NUMBER ;

Line: 488


     X_LAST_UPDATE_DATE := SYSDATE;

Line: 490


        X_LAST_UPDATED_BY := 1;

Line: 491


        X_LAST_UPDATE_LOGIN := 0;

Line: 493


               X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 494


            if X_LAST_UPDATED_BY is NULL then
                X_LAST_UPDATED_BY := -1;

Line: 497


            X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 498


         if X_LAST_UPDATE_LOGIN is NULL then
            X_LAST_UPDATE_LOGIN := -1;

Line: 507


 		p_action=>'INSERT',
 		x_rowid=>X_ROWID,
 	       x_person_type_code=>X_PERSON_TYPE_CODE,
 	       x_description=>X_DESCRIPTION,
 	       x_system_type=>X_SYSTEM_TYPE,
 	       x_closed_ind=>X_CLOSED_IND,
 	       x_rank=>X_RANK,
	       x_creation_date=>X_LAST_UPDATE_DATE,
	       x_created_by=>X_LAST_UPDATED_BY,
	       x_last_update_date=>X_LAST_UPDATE_DATE,
	       x_last_updated_by=>X_LAST_UPDATED_BY,
	       x_last_update_login=>X_LAST_UPDATE_LOGIN);

Line: 519


     insert into IGS_PE_PERSON_TYPES (
		PERSON_TYPE_CODE
		,DESCRIPTION
		,SYSTEM_TYPE
		,CLOSED_IND
		,RANK
	        ,CREATION_DATE
		,CREATED_BY
		,LAST_UPDATE_DATE
		,LAST_UPDATED_BY
		,LAST_UPDATE_LOGIN
        ) values  (
	        NEW_REFERENCES.PERSON_TYPE_CODE
	        ,NEW_REFERENCES.DESCRIPTION
	        ,NEW_REFERENCES.SYSTEM_TYPE
	        ,NEW_REFERENCES.CLOSED_IND
	        ,NEW_REFERENCES.RANK
	        ,X_LAST_UPDATE_DATE
		,X_LAST_UPDATED_BY
		,X_LAST_UPDATE_DATE
		,X_LAST_UPDATED_BY
		,X_LAST_UPDATE_LOGIN
);

Line: 550


		p_action => 'INSERT' ,
		x_rowid => X_ROWID );

Line: 552


end INSERT_ROW;

Line: 571


   cursor c1 is select
      DESCRIPTION
,      SYSTEM_TYPE
,      CLOSED_IND
    from IGS_PE_PERSON_TYPES
    where ROWID = X_ROWID
    for update nowait;

Line: 583


    fnd_message.set_name('FND', 'FORM_RECORD_DELETED');

Line: 602


 Procedure UPDATE_ROW (
      X_ROWID in  VARCHAR2,
       x_PERSON_TYPE_CODE IN VARCHAR2,
       x_DESCRIPTION IN VARCHAR2,
       x_SYSTEM_TYPE IN VARCHAR2,
       x_CLOSED_IND IN VARCHAR2,
       x_RANK IN NUMBER DEFAULT NULL,
      X_MODE in VARCHAR2 default 'R'
  ) AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To update a record.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

     X_LAST_UPDATE_DATE DATE ;

Line: 623


     X_LAST_UPDATED_BY NUMBER ;

Line: 624


     X_LAST_UPDATE_LOGIN NUMBER ;

Line: 626


     X_LAST_UPDATE_DATE := SYSDATE;

Line: 628


        X_LAST_UPDATED_BY := 1;

Line: 629


        X_LAST_UPDATE_LOGIN := 0;

Line: 631


               X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 632


            if X_LAST_UPDATED_BY is NULL then
                X_LAST_UPDATED_BY := -1;

Line: 635


            X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 636


         if X_LAST_UPDATE_LOGIN is NULL then
            X_LAST_UPDATE_LOGIN := -1;

Line: 646


 		p_action=>'UPDATE',
 		x_rowid=>X_ROWID,
 	       x_person_type_code=>X_PERSON_TYPE_CODE,
 	       x_description=>X_DESCRIPTION,
 	       x_system_type=>X_SYSTEM_TYPE,
 	       x_closed_ind=>X_CLOSED_IND,
 	       x_rank=>X_RANK,
	       x_creation_date=>X_LAST_UPDATE_DATE,
	       x_created_by=>X_LAST_UPDATED_BY,
	       x_last_update_date=>X_LAST_UPDATE_DATE,
	       x_last_updated_by=>X_LAST_UPDATED_BY,
	       x_last_update_login=>X_LAST_UPDATE_LOGIN);

Line: 658


   update IGS_PE_PERSON_TYPES set
      DESCRIPTION =  NEW_REFERENCES.DESCRIPTION,
      SYSTEM_TYPE =  NEW_REFERENCES.SYSTEM_TYPE,
      CLOSED_IND =  NEW_REFERENCES.CLOSED_IND,
      RANK =  NEW_REFERENCES.RANK,
	LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
	LAST_UPDATED_BY = X_LAST_UPDATED_BY,
	LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
	  where ROWID = X_ROWID;

Line: 672


	p_action => 'UPDATE' ,
	x_rowid => X_ROWID
	);

Line: 675


end UPDATE_ROW;

Line: 688


  Purpose : To insert/update a record.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

    cursor c1 is select ROWID from IGS_PE_PERSON_TYPES
             where     PERSON_TYPE_CODE= X_PERSON_TYPE_CODE
;

Line: 704


    INSERT_ROW (
      X_ROWID,
       X_PERSON_TYPE_CODE,
       X_DESCRIPTION,
       X_SYSTEM_TYPE,
       X_CLOSED_IND,
       X_RANK,
      X_MODE );

Line: 715


UPDATE_ROW (
      X_ROWID,
       X_PERSON_TYPE_CODE,
       X_DESCRIPTION,
       X_SYSTEM_TYPE,
       X_CLOSED_IND,
       X_RANK,
      X_MODE );

Line: 725


procedure DELETE_ROW (
  X_ROWID in VARCHAR2
) AS
  /*************************************************************
  Created By : sraj
  Date Created By : 2000/13/05
  Purpose : To delete a record.
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

begin
Before_DML (
p_action => 'DELETE',
x_rowid => X_ROWID
);

Line: 744


 delete from IGS_PE_PERSON_TYPES
 where ROWID = X_ROWID;

Line: 750


 p_action => 'DELETE',
 x_rowid => X_ROWID
);

Line: 753


end DELETE_ROW;