1: package body IGS_PE_ABORG_TORESCD_PKG as
2: /* $Header: IGSNI03B.pls 115.4 2002/12/24 05:44:41 npalanis ship $ */
3:
4: l_rowid VARCHAR2(25);
5:
2: /* $Header: IGSNI03B.pls 115.4 2002/12/24 05:44:41 npalanis ship $ */
3:
4: l_rowid VARCHAR2(25);
5:
6: old_references IGS_PE_ABORG_TORESCD%RowType;
7:
8: new_references IGS_PE_ABORG_TORESCD%RowType;
9:
10:
4: l_rowid VARCHAR2(25);
5:
6: old_references IGS_PE_ABORG_TORESCD%RowType;
7:
8: new_references IGS_PE_ABORG_TORESCD%RowType;
9:
10:
11:
12: PROCEDURE Set_Column_Values (
42: CURSOR cur_old_ref_values IS
43:
44: SELECT *
45:
46: FROM IGS_PE_ABORG_TORESCD
47:
48: WHERE rowid = x_rowid;
49:
50:
240: CURSOR cur_rowid IS
241:
242: SELECT rowid
243:
244: FROM IGS_PE_ABORG_TORESCD
245:
246: WHERE aborig_torres_cd = x_aborig_torres_cd
247:
248: FOR UPDATE NOWAIT;
277: CURSOR cur_rowid IS
278:
279: SELECT rowid
280:
281: FROM IGS_PE_ABORG_TORESCD
282:
283: WHERE govt_aborig_torres_cd = x_govt_aborig_torres_cd ;
284:
285:
475: X_CLOSED_IND in VARCHAR2,
476: X_NOTES in VARCHAR2,
477: X_MODE in VARCHAR2 default 'R'
478: ) as
479: cursor C is select ROWID from IGS_PE_ABORG_TORESCD
480: where ABORIG_TORRES_CD = X_ABORIG_TORRES_CD;
481: X_LAST_UPDATE_DATE DATE;
482: X_LAST_UPDATED_BY NUMBER;
483: X_LAST_UPDATE_LOGIN NUMBER;
532: );
533:
534:
535:
536: insert into IGS_PE_ABORG_TORESCD (
537: ABORIG_TORRES_CD,
538: GOVT_ABORIG_TORRES_CD,
539: DESCRIPTION,
540: CLOSED_IND,
588: GOVT_ABORIG_TORRES_CD,
589: DESCRIPTION,
590: CLOSED_IND,
591: NOTES
592: from IGS_PE_ABORG_TORESCD
593: where ROWID = X_ROWID
594:
595: for update nowait;
596: tlinfo c1%rowtype;
683:
684: x_last_update_login=>X_LAST_UPDATE_LOGIN
685:
686: );
687: update IGS_PE_ABORG_TORESCD set
688: GOVT_ABORIG_TORRES_CD = NEW_REFERENCES.GOVT_ABORIG_TORRES_CD,
689: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
690: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
691: NOTES = NEW_REFERENCES.NOTES,
717: X_CLOSED_IND in VARCHAR2,
718: X_NOTES in VARCHAR2,
719: X_MODE in VARCHAR2 default 'R'
720: ) as
721: cursor c1 is select rowid from IGS_PE_ABORG_TORESCD
722: where ABORIG_TORRES_CD = X_ABORIG_TORRES_CD
723: ;
724:
725: begin
762:
763: x_rowid => X_ROWID
764:
765: );
766: delete from IGS_PE_ABORG_TORESCD
767: where ROWID = X_ROWID;
768: if (sql%notfound) then
769: raise no_data_found;
770: end if;
781:
782:
783: end DELETE_ROW;
784:
785: end IGS_PE_ABORG_TORESCD_PKG;