[Home] [Help]
1: PACKAGE BODY igs_ps_usec_ocur_ref_pkg AS
2: /* $Header: IGSPI0XB.pls 120.1 2005/06/29 03:30:50 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_ocur_ref%RowType;
5: new_references igs_ps_usec_ocur_ref%RowType;
1: PACKAGE BODY igs_ps_usec_ocur_ref_pkg AS
2: /* $Header: IGSPI0XB.pls 120.1 2005/06/29 03:30:50 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_ocur_ref%RowType;
5: new_references igs_ps_usec_ocur_ref%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_usec_ocur_ref_pkg AS
2: /* $Header: IGSPI0XB.pls 120.1 2005/06/29 03:30:50 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_ocur_ref%RowType;
5: new_references igs_ps_usec_ocur_ref%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
31: ***************************************************************/
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_PS_USEC_OCUR_REF
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
167: ***************************************************************/
168:
169: CURSOR cur_rowid IS
170: SELECT rowid
171: FROM igs_ps_usec_ocur_ref
172: WHERE unit_sec_occur_reference_id = x_unit_sec_occur_reference_id
173: FOR UPDATE NOWAIT;
174:
175: lv_rowid cur_rowid%RowType;
203: ***************************************************************/
204:
205: CURSOR cur_rowid IS
206: SELECT rowid
207: FROM igs_ps_usec_ocur_ref
208: WHERE unit_section_occurrence_id = x_unit_section_occurrence_id ;
209:
210: lv_rowid cur_rowid%RowType;
211:
242: ***************************************************************/
243:
244: CURSOR cur_rowid IS
245: SELECT ROWID
246: FROM igs_ps_usec_ocur_ref
247: WHERE reference_code_type = x_reference_code_type;
248:
249: lv_rowid cur_rowid%ROWTYPE;
250:
281: ***************************************************************/
282:
283: CURSOR cur_rowid IS
284: SELECT ROWID
285: FROM igs_ps_usec_ocur_ref
286: WHERE reference_code_type = x_reference_code_type
287: AND reference_code = x_reference_code ;
288:
289: lv_rowid cur_rowid%ROWTYPE;
313: x_Unit_section_Occurrence_Id IN NUMBER
314: ) RETURN BOOLEAN AS
315: CURSOR cur_uor IS
316: SELECT ROWID
317: FROM IGS_PS_USEC_OCUR_REF
318: WHERE reference_code_type = x_reference_code_type AND
319: reference_code = x_reference_code AND
320: Unit_section_Occurrence_Id = x_Unit_section_Occurrence_Id AND
321: (l_rowid IS NULL OR rowid <> l_rowid);
497:
498: (reverse chronological order - newest change first)
499: ***************************************************************/
500:
501: cursor C is select ROWID from IGS_PS_USEC_OCUR_REF
502: where UNIT_SEC_OCCUR_REFERENCE_ID= X_UNIT_SEC_OCCUR_REFERENCE_ID
503: ;
504: X_LAST_UPDATE_DATE DATE ;
505: X_LAST_UPDATED_BY NUMBER ;
540: x_last_update_date=>X_LAST_UPDATE_DATE,
541: x_last_updated_by=>X_LAST_UPDATED_BY,
542: x_last_update_login=>X_LAST_UPDATE_LOGIN,
543: x_reference_code_desc=>x_reference_code_desc);
544: insert into IGS_PS_USEC_OCUR_REF (
545: UNIT_SEC_OCCUR_REFERENCE_ID
546: ,UNIT_SECTION_OCCURRENCE_ID
547: ,REFERENCE_CODE_TYPE
548: ,REFERENCE_CODE
598: UNIT_SECTION_OCCURRENCE_ID
599: , REFERENCE_CODE_TYPE
600: , REFERENCE_CODE
601: , REFERENCE_CODE_DESC
602: from IGS_PS_USEC_OCUR_REF
603: where ROWID = X_ROWID
604: for update nowait;
605: tlinfo c1%rowtype;
606: begin
684: x_last_update_date=>X_LAST_UPDATE_DATE,
685: x_last_updated_by=>X_LAST_UPDATED_BY,
686: x_last_update_login=>X_LAST_UPDATE_LOGIN,
687: x_reference_code_desc=>x_reference_code_desc);
688: update IGS_PS_USEC_OCUR_REF set
689: UNIT_SECTION_OCCURRENCE_ID = NEW_REFERENCES.UNIT_SECTION_OCCURRENCE_ID,
690: REFERENCE_CODE_TYPE = NEW_REFERENCES.REFERENCE_CODE_TYPE,
691: REFERENCE_CODE = NEW_REFERENCES.REFERENCE_CODE,
692: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
722:
723: (reverse chronological order - newest change first)
724: ***************************************************************/
725:
726: cursor c1 is select ROWID from IGS_PS_USEC_OCUR_REF
727: where UNIT_SEC_OCCUR_REFERENCE_ID= X_UNIT_SEC_OCCUR_REFERENCE_ID
728: ;
729: begin
730: open c1;
769: Before_DML (
770: p_action => 'DELETE',
771: x_rowid => X_ROWID
772: );
773: delete from IGS_PS_USEC_OCUR_REF
774: where ROWID = X_ROWID;
775: if (sql%notfound) then
776: raise no_data_found;
777: end if;
779: p_action => 'DELETE',
780: x_rowid => X_ROWID
781: );
782: end DELETE_ROW;
783: END igs_ps_usec_ocur_ref_pkg;