[Home] [Help]
1: package body IGS_ST_GVTSEMLOAD_CA_PKG as
2: /* $Header: IGSVI03B.pls 115.4 2002/11/29 04:31:24 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GVTSEMLOAD_CA%RowType;
1: package body IGS_ST_GVTSEMLOAD_CA_PKG as
2: /* $Header: IGSVI03B.pls 115.4 2002/11/29 04:31:24 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GVTSEMLOAD_CA%RowType;
6: new_references IGS_ST_GVTSEMLOAD_CA%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSVI03B.pls 115.4 2002/11/29 04:31:24 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GVTSEMLOAD_CA%RowType;
6: new_references IGS_ST_GVTSEMLOAD_CA%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_ST_GVTSEMLOAD_CA
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
66: p_updating IN BOOLEAN DEFAULT FALSE,
67: p_deleting IN BOOLEAN DEFAULT FALSE
68: ) as
69: v_message_name varchar2(30);
70: v_submission_yr IGS_ST_GVTSEMLOAD_CA.submission_yr%TYPE;
71: v_submission_number IGS_ST_GVTSEMLOAD_CA.submission_number%TYPE;
72: BEGIN
73: IF p_inserting OR p_updating THEN
74: v_submission_yr := new_references.submission_yr;
67: p_deleting IN BOOLEAN DEFAULT FALSE
68: ) as
69: v_message_name varchar2(30);
70: v_submission_yr IGS_ST_GVTSEMLOAD_CA.submission_yr%TYPE;
71: v_submission_number IGS_ST_GVTSEMLOAD_CA.submission_number%TYPE;
72: BEGIN
73: IF p_inserting OR p_updating THEN
74: v_submission_yr := new_references.submission_yr;
75: v_submission_number := new_references.submission_number;
225: as
226:
227: CURSOR cur_rowid IS
228: SELECT rowid
229: FROM IGS_ST_GVTSEMLOAD_CA
230: WHERE submission_yr = x_submission_yr
231: AND submission_number = x_submission_number
232: AND govt_semester = x_govt_semester
233: AND cal_type = x_cal_type
256: )as
257:
258: CURSOR cur_rowid IS
259: SELECT rowid
260: FROM IGS_ST_GVTSEMLOAD_CA
261: WHERE cal_type = x_cal_type
262: AND ci_sequence_number = x_sequence_number ;
263:
264: lv_rowid cur_rowid%RowType;
285: )as
286:
287: CURSOR cur_rowid IS
288: SELECT rowid
289: FROM IGS_ST_GVTSEMLOAD_CA
290: WHERE submission_yr = x_submission_yr
291: AND submission_number = x_submission_number
292: AND govt_semester = x_govt_semester ;
293:
316: RETURN BOOLEAN as
317:
318: CURSOR cur_rowid IS
319: SELECT rowid
320: FROM IGS_ST_GVTSEMLOAD_CA
321: WHERE submission_yr = x_submission_yr
322: AND submission_number = x_submission_number
323: AND cal_type = x_cal_type
324: AND ci_sequence_number = x_ci_sequence_number
439: X_CAL_TYPE in VARCHAR2,
440: X_CI_SEQUENCE_NUMBER in NUMBER,
441: X_MODE in VARCHAR2 default 'R'
442: ) as
443: cursor C is select ROWID from IGS_ST_GVTSEMLOAD_CA
444: where SUBMISSION_YR = X_SUBMISSION_YR
445: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
446: and GOVT_SEMESTER = X_GOVT_SEMESTER
447: and CAL_TYPE = X_CAL_TYPE
482: x_last_updated_by => X_LAST_UPDATED_BY,
483: x_last_update_login => X_LAST_UPDATE_LOGIN
484: ) ;
485:
486: insert into IGS_ST_GVTSEMLOAD_CA (
487: SUBMISSION_YR,
488: SUBMISSION_NUMBER,
489: GOVT_SEMESTER,
490: CAL_TYPE,
529: X_CAL_TYPE in VARCHAR2,
530: X_CI_SEQUENCE_NUMBER in NUMBER
531: ) as
532: cursor c1 is select ROWID
533: from IGS_ST_GVTSEMLOAD_CA
534: where ROWID = X_ROWID for update nowait;
535: tlinfo c1%rowtype;
536:
537: begin
557: p_action => 'DELETE',
558: x_rowid => X_ROWID
559: );
560:
561: delete from IGS_ST_GVTSEMLOAD_CA
562: where ROWID = X_ROWID;
563: if (sql%notfound) then
564: raise no_data_found;
565: end if;
569: );
570:
571: end DELETE_ROW;
572:
573: end IGS_ST_GVTSEMLOAD_CA_PKG;