[Home] [Help]
1: package body IGS_AD_SBM_AOU_FNDTT_PKG as
2: /* $Header: IGSAI63B.pls 115.6 2003/10/30 13:21:29 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_SBM_AOU_FNDTT%RowType;
5: new_references IGS_AD_SBM_AOU_FNDTT%RowType;
1: package body IGS_AD_SBM_AOU_FNDTT_PKG as
2: /* $Header: IGSAI63B.pls 115.6 2003/10/30 13:21:29 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_SBM_AOU_FNDTT%RowType;
5: new_references IGS_AD_SBM_AOU_FNDTT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_AD_SBM_AOU_FNDTT_PKG as
2: /* $Header: IGSAI63B.pls 115.6 2003/10/30 13:21:29 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_SBM_AOU_FNDTT%RowType;
5: new_references IGS_AD_SBM_AOU_FNDTT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
26: ) AS
27:
28: CURSOR cur_old_ref_values IS
29: SELECT *
30: FROM IGS_AD_SBM_AOU_FNDTT
31: WHERE rowid = x_rowid;
32:
33: BEGIN
34:
259: RETURN BOOLEAN AS
260:
261: CURSOR cur_rowid IS
262: SELECT rowid
263: FROM IGS_AD_SBM_AOU_FNDTT
264: WHERE submission_yr = x_submission_yr
265: AND submission_number = x_submission_number
266: AND org_unit_cd = x_org_unit_cd
267: AND TRUNC(ou_start_dt) = TRUNC(x_ou_start_dt)
290: ) AS
291:
292: CURSOR cur_rowid IS
293: SELECT rowid
294: FROM IGS_AD_SBM_AOU_FNDTT
295: WHERE funding_source = x_funding_source ;
296:
297: lv_rowid cur_rowid%RowType;
298:
317: ) AS
318:
319: CURSOR cur_rowid IS
320: SELECT rowid
321: FROM IGS_AD_SBM_AOU_FNDTT
322: WHERE submission_yr = x_submission_yr
323: AND submission_number = x_submission_number ;
324:
325: lv_rowid cur_rowid%RowType;
344: ) AS
345:
346: CURSOR cur_rowid IS
347: SELECT rowid
348: FROM IGS_AD_SBM_AOU_FNDTT
349: WHERE intake_target_type = x_intake_target_type ;
350:
351: lv_rowid cur_rowid%RowType;
352:
371: ) AS
372:
373: CURSOR cur_rowid IS
374: SELECT rowid
375: FROM IGS_AD_SBM_AOU_FNDTT
376: WHERE org_unit_cd = x_org_unit_cd
377: AND TRUNC(ou_start_dt) = TRUNC(x_start_dt) ;
378:
379: lv_rowid cur_rowid%RowType;
398: ) as
399:
400: CURSOR cur_rowid IS
401: SELECT rowid
402: FROM IGS_AD_SBM_AOU_FNDTT
403: WHERE override_s_amount_type = x_override_s_amount_type ;
404:
405: lv_rowid cur_rowid%RowType;
406:
606: X_ACTUAL_ENROLMENT in NUMBER,
607: X_ACTUAL_ENR_EFFECTIVE_DT in DATE,
608: X_MODE in VARCHAR2 default 'R'
609: ) as
610: cursor C is select ROWID from IGS_AD_SBM_AOU_FNDTT
611: where SUBMISSION_YR = X_SUBMISSION_YR
612: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
613: and ORG_UNIT_CD = X_ORG_UNIT_CD
614: and OU_START_DT = X_OU_START_DT
657: x_last_updated_by =>X_LAST_UPDATED_BY,
658: x_last_update_login =>X_LAST_UPDATE_LOGIN
659: );
660:
661: insert into IGS_AD_SBM_AOU_FNDTT (
662: SUBMISSION_YR,
663: SUBMISSION_NUMBER,
664: ORG_UNIT_CD,
665: OU_START_DT,
728: MAX_TARGET,
729: OVERRIDE_S_AMOUNT_TYPE,
730: ACTUAL_ENROLMENT,
731: ACTUAL_ENR_EFFECTIVE_DT
732: from IGS_AD_SBM_AOU_FNDTT
733: where ROWID = X_ROWID
734: for update nowait;
735: tlinfo c1%rowtype;
736:
827: x_last_updated_by =>X_LAST_UPDATED_BY,
828: x_last_update_login =>X_LAST_UPDATE_LOGIN
829: );
830:
831: update IGS_AD_SBM_AOU_FNDTT set
832: TARGET = NEW_REFERENCES.TARGET,
833: MAX_TARGET = NEW_REFERENCES.MAX_TARGET,
834: OVERRIDE_S_AMOUNT_TYPE = NEW_REFERENCES.OVERRIDE_S_AMOUNT_TYPE,
835: ACTUAL_ENROLMENT = NEW_REFERENCES.ACTUAL_ENROLMENT,
865: X_ACTUAL_ENROLMENT in NUMBER,
866: X_ACTUAL_ENR_EFFECTIVE_DT in DATE,
867: X_MODE in VARCHAR2 default 'R'
868: ) AS
869: cursor c1 is select rowid from IGS_AD_SBM_AOU_FNDTT
870: where SUBMISSION_YR = X_SUBMISSION_YR
871: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
872: and ORG_UNIT_CD = X_ORG_UNIT_CD
873: and OU_START_DT = X_OU_START_DT
922: p_action =>'DELETE',
923: x_rowid => X_ROWID
924: );
925:
926: delete from IGS_AD_SBM_AOU_FNDTT
927: where ROWID = X_ROWID;
928: if (sql%notfound) then
929: raise no_data_found;
930: end if;
936: );
937:
938: end DELETE_ROW;
939:
940: end IGS_AD_SBM_AOU_FNDTT_PKG;