1: package body IGS_AD_SBMINTAK_TRGT_PKG as
2: /* $Header: IGSAI59B.pls 115.5 2003/10/30 13:20:55 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_SBMINTAK_TRGT%RowType;
5: new_references IGS_AD_SBMINTAK_TRGT%RowType;
1: package body IGS_AD_SBMINTAK_TRGT_PKG as
2: /* $Header: IGSAI59B.pls 115.5 2003/10/30 13:20:55 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_SBMINTAK_TRGT%RowType;
5: new_references IGS_AD_SBMINTAK_TRGT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_AD_SBMINTAK_TRGT_PKG as
2: /* $Header: IGSAI59B.pls 115.5 2003/10/30 13:20:55 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_SBMINTAK_TRGT%RowType;
5: new_references IGS_AD_SBMINTAK_TRGT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
24: ) AS
25:
26: CURSOR cur_old_ref_values IS
27: SELECT *
28: FROM IGS_AD_SBMINTAK_TRGT
29: WHERE rowid = x_rowid;
30:
31: BEGIN
32:
196: RETURN BOOLEAN AS
197:
198: CURSOR cur_rowid IS
199: SELECT rowid
200: FROM IGS_AD_SBMINTAK_TRGT
201: WHERE submission_yr = x_submission_yr
202: AND submission_number = x_submission_number
203: AND intake_target_type = x_intake_target_type
204: FOR UPDATE NOWAIT;
225: ) AS
226:
227: CURSOR cur_rowid IS
228: SELECT rowid
229: FROM IGS_AD_SBMINTAK_TRGT
230: WHERE submission_yr = x_submission_yr
231: AND submission_number = x_submission_number ;
232:
233: lv_rowid cur_rowid%RowType;
252: ) AS
253:
254: CURSOR cur_rowid IS
255: SELECT rowid
256: FROM IGS_AD_SBMINTAK_TRGT
257: WHERE intake_target_type = x_intake_target_type ;
258:
259: lv_rowid cur_rowid%RowType;
260:
279: ) as
280:
281: CURSOR cur_rowid IS
282: SELECT rowid
283: FROM IGS_AD_SBMINTAK_TRGT
284: WHERE override_s_amount_type = x_override_s_amount_type ;
285:
286: lv_rowid cur_rowid%RowType;
287:
460: X_ACTUAL_ENROLMENT in NUMBER,
461: X_ACTUAL_ENR_EFFECTIVE_DT in DATE,
462: X_MODE in VARCHAR2 default 'R'
463: ) as
464: cursor C is select ROWID from IGS_AD_SBMINTAK_TRGT
465: where SUBMISSION_YR = X_SUBMISSION_YR
466: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
467: and INTAKE_TARGET_TYPE = X_INTAKE_TARGET_TYPE;
468: X_LAST_UPDATE_DATE DATE;
506: x_last_updated_by =>X_LAST_UPDATED_BY,
507: x_last_update_login =>X_LAST_UPDATE_LOGIN
508: );
509:
510: insert into IGS_AD_SBMINTAK_TRGT (
511: SUBMISSION_YR,
512: SUBMISSION_NUMBER,
513: INTAKE_TARGET_TYPE,
514: PRIORITY_OF_TARGET,
572: MAX_TARGET,
573: OVERRIDE_S_AMOUNT_TYPE,
574: ACTUAL_ENROLMENT,
575: ACTUAL_ENR_EFFECTIVE_DT
576: from IGS_AD_SBMINTAK_TRGT
577: where ROWID = X_ROWID
578: for update nowait;
579: tlinfo c1%rowtype;
580:
671: x_last_update_login =>X_LAST_UPDATE_LOGIN
672: );
673:
674:
675: update IGS_AD_SBMINTAK_TRGT set
676: PRIORITY_OF_TARGET = NEW_REFERENCES.PRIORITY_OF_TARGET,
677: TARGET = NEW_REFERENCES.TARGET,
678: MAX_TARGET = NEW_REFERENCES.MAX_TARGET,
679: OVERRIDE_S_AMOUNT_TYPE = NEW_REFERENCES.OVERRIDE_S_AMOUNT_TYPE,
707: X_ACTUAL_ENROLMENT in NUMBER,
708: X_ACTUAL_ENR_EFFECTIVE_DT in DATE,
709: X_MODE in VARCHAR2 default 'R'
710: ) as
711: cursor c1 is select rowid from IGS_AD_SBMINTAK_TRGT
712: where SUBMISSION_YR = X_SUBMISSION_YR
713: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
714: and INTAKE_TARGET_TYPE = X_INTAKE_TARGET_TYPE
715: ;
757: x_rowid => X_ROWID
758: );
759:
760:
761: delete from IGS_AD_SBMINTAK_TRGT
762: where ROWID = X_ROWID;
763: if (sql%notfound) then
764: raise no_data_found;
765: end if;
772: end DELETE_ROW;
773:
774:
775:
776: end IGS_AD_SBMINTAK_TRGT_PKG;