[Home] [Help]
1: package body IGS_PE_LANGUAGE_CD_PKG AS
2: /* $Header: IGSNI10B.pls 115.3 2002/11/29 01:16:16 nsidana ship $ */
3:
4:
5: l_rowid VARCHAR2(25);
3:
4:
5: l_rowid VARCHAR2(25);
6:
7: old_references IGS_PE_LANGUAGE_CD%RowType;
8:
9: new_references IGS_PE_LANGUAGE_CD%RowType;
10:
11:
5: l_rowid VARCHAR2(25);
6:
7: old_references IGS_PE_LANGUAGE_CD%RowType;
8:
9: new_references IGS_PE_LANGUAGE_CD%RowType;
10:
11:
12:
13:
45: CURSOR cur_old_ref_values IS
46:
47: SELECT *
48:
49: FROM IGS_PE_LANGUAGE_CD
50:
51: WHERE rowid = x_rowid;
52:
53:
244: END Check_Parent_Existance;
245:
246: PROCEDURE Check_Child_Existance AS
247: BEGIN
248: IGS_AD_TER_EDU_PKG.GET_FK_IGS_PE_LANGUAGE_CD (
249:
250: old_references.language_cd
251: );
252:
263: CURSOR cur_rowid IS
264:
265: SELECT rowid
266:
267: FROM IGS_PE_LANGUAGE_CD
268:
269: WHERE language_cd = x_language_cd
270:
271: FOR UPDATE NOWAIT;
299: CURSOR cur_rowid IS
300:
301: SELECT rowid
302:
303: FROM IGS_PE_LANGUAGE_CD
304:
305: WHERE govt_language_cd = x_govt_language_cd ;
306:
307:
485: X_CLOSED_IND in VARCHAR2,
486: X_NOTES in VARCHAR2,
487: X_MODE in VARCHAR2 default 'R'
488: ) AS
489: cursor C is select ROWID from IGS_PE_LANGUAGE_CD
490: where LANGUAGE_CD = X_LANGUAGE_CD;
491: X_LAST_UPDATE_DATE DATE;
492: X_LAST_UPDATED_BY NUMBER;
493: X_LAST_UPDATE_LOGIN NUMBER;
537:
538: x_last_update_login=>X_LAST_UPDATE_LOGIN
539:
540: );
541: insert into IGS_PE_LANGUAGE_CD (
542: LANGUAGE_CD,
543: GOVT_LANGUAGE_CD,
544: DESCRIPTION,
545: CLOSED_IND,
591: GOVT_LANGUAGE_CD,
592: DESCRIPTION,
593: CLOSED_IND,
594: NOTES
595: from IGS_PE_LANGUAGE_CD
596: where ROWID = X_ROWID
597: for update nowait;
598: tlinfo c1%rowtype;
599:
683:
684: x_last_update_login=>X_LAST_UPDATE_LOGIN
685:
686: );
687: update IGS_PE_LANGUAGE_CD set
688: GOVT_LANGUAGE_CD = NEW_REFERENCES.GOVT_LANGUAGE_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_LANGUAGE_CD
722: where LANGUAGE_CD = X_LANGUAGE_CD
723: ;
724:
725: begin
760:
761: x_rowid => X_ROWID
762:
763: );
764: delete from IGS_PE_LANGUAGE_CD
765: where ROWID = X_ROWID;
766: if (sql%notfound) then
767: raise no_data_found;
768: end if;
777:
778:
779: end DELETE_ROW;
780:
781: end IGS_PE_LANGUAGE_CD_PKG;