[Home] [Help]
1: package body IGS_AD_AUS_SEC_ED_SC_PKG as
2: /* $Header: IGSAI66B.pls 115.5 2003/10/30 13:13:49 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_AUS_SEC_ED_SC%RowType;
1: package body IGS_AD_AUS_SEC_ED_SC_PKG as
2: /* $Header: IGSAI66B.pls 115.5 2003/10/30 13:13:49 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_AUS_SEC_ED_SC%RowType;
6: new_references IGS_AD_AUS_SEC_ED_SC%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAI66B.pls 115.5 2003/10/30 13:13:49 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_AUS_SEC_ED_SC%RowType;
6: new_references IGS_AD_AUS_SEC_ED_SC%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
21: ) as
22:
23: CURSOR cur_old_ref_values IS
24: SELECT *
25: FROM IGS_AD_AUS_SEC_ED_SC
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
145:
146: PROCEDURE Check_Child_Existance as
147: BEGIN
148:
149: IGS_AD_AUS_SEC_EDU_PKG.get_fk_igs_ad_aus_sec_ed_sc (
150: old_references.secondary_school_cd
151: );
152:
153: END Check_Child_Existance;
158: )return BOOLEAN as
159:
160: CURSOR cur_rowid IS
161: SELECT rowid
162: FROM IGS_AD_AUS_SEC_ED_SC
163: WHERE secondary_school_cd = x_secondary_school_cd AND
164: closed_ind = NVL(x_closed_ind,closed_ind)
165: FOR UPDATE NOWAIT;
166:
186: ) as
187:
188: CURSOR cur_rowid IS
189: SELECT rowid
190: FROM IGS_AD_AUS_SEC_ED_SC
191: WHERE s_scndry_school_type = x_s_scndry_school_type ;
192:
193: lv_rowid cur_rowid%RowType;
194:
290: X_S_SCNDRY_SCHOOL_TYPE in VARCHAR2,
291: X_CLOSED_IND in VARCHAR2,
292: X_MODE in VARCHAR2 default 'R'
293: ) as
294: cursor C is select ROWID from IGS_AD_AUS_SEC_ED_SC
295: where SECONDARY_SCHOOL_CD = X_SECONDARY_SCHOOL_CD;
296: X_LAST_UPDATE_DATE DATE;
297: X_LAST_UPDATED_BY NUMBER;
298: X_LAST_UPDATE_LOGIN NUMBER;
330: x_last_updated_by=>X_LAST_UPDATED_BY,
331: x_last_update_login=>X_LAST_UPDATE_LOGIN
332: );
333:
334: insert into IGS_AD_AUS_SEC_ED_SC (
335: SECONDARY_SCHOOL_CD,
336: SECONDARY_SCHOOL_NAME,
337: STATE_CD,
338: S_SCNDRY_SCHOOL_TYPE,
381: SECONDARY_SCHOOL_NAME,
382: STATE_CD,
383: S_SCNDRY_SCHOOL_TYPE,
384: CLOSED_IND
385: from IGS_AD_AUS_SEC_ED_SC
386: where ROWID = X_ROWID for update nowait;
387: tlinfo c1%rowtype;
388:
389: begin
459: x_last_update_date=>X_LAST_UPDATE_DATE,
460: x_last_updated_by=>X_LAST_UPDATED_BY,
461: x_last_update_login=>X_LAST_UPDATE_LOGIN
462: );
463: update IGS_AD_AUS_SEC_ED_SC set
464: SECONDARY_SCHOOL_NAME = NEW_REFERENCES.SECONDARY_SCHOOL_NAME,
465: STATE_CD = NEW_REFERENCES.STATE_CD,
466: S_SCNDRY_SCHOOL_TYPE = NEW_REFERENCES.S_SCNDRY_SCHOOL_TYPE,
467: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
488: X_S_SCNDRY_SCHOOL_TYPE in VARCHAR2,
489: X_CLOSED_IND in VARCHAR2,
490: X_MODE in VARCHAR2 default 'R'
491: ) as
492: cursor c1 is select rowid from IGS_AD_AUS_SEC_ED_SC
493: where SECONDARY_SCHOOL_CD = X_SECONDARY_SCHOOL_CD
494: ;
495: begin
496: open c1;
526: Before_DML (
527: p_action => 'DELETE',
528: x_rowid => X_ROWID);
529:
530: delete from IGS_AD_AUS_SEC_ED_SC
531: where ROWID = X_ROWID;
532: if (sql%notfound) then
533: raise no_data_found;
534: end if;
538: x_rowid => X_ROWID);
539:
540: end DELETE_ROW;
541:
542: end IGS_AD_AUS_SEC_ED_SC_PKG;