[Home] [Help]
1: package body IGS_GR_CRMN_NOTE_PKG as
2: /* $Header: IGSGI09B.pls 115.6 2002/11/29 00:35:52 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_CRMN_NOTE_ALL%RowType;
5: new_references IGS_GR_CRMN_NOTE_ALL%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_GR_CRMN_NOTE_PKG as
2: /* $Header: IGSGI09B.pls 115.6 2002/11/29 00:35:52 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_CRMN_NOTE_ALL%RowType;
5: new_references IGS_GR_CRMN_NOTE_ALL%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
21: ) AS
22:
23: CURSOR cur_old_ref_values IS
24: SELECT *
25: FROM IGS_GR_CRMN_NOTE_ALL
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
168: ) RETURN BOOLEAN AS
169:
170: CURSOR cur_rowid IS
171: SELECT rowid
172: FROM IGS_GR_CRMN_NOTE_ALL
173: WHERE grd_cal_type = x_grd_cal_type
174: AND grd_ci_sequence_number = x_grd_ci_sequence_number
175: AND ceremony_number = x_ceremony_number
176: AND reference_number = x_reference_number
198: ) AS
199:
200: CURSOR cur_rowid IS
201: SELECT rowid
202: FROM IGS_GR_CRMN_NOTE_ALL
203: WHERE grd_cal_type = x_grd_cal_type
204: AND grd_ci_sequence_number = x_grd_ci_sequence_number
205: AND ceremony_number = x_ceremony_number ;
206:
226: ) AS
227:
228: CURSOR cur_rowid IS
229: SELECT rowid
230: FROM IGS_GR_CRMN_NOTE_ALL
231: WHERE grd_note_type = x_grd_note_type ;
232:
233: lv_rowid cur_rowid%RowType;
234:
252: ) AS
253:
254: CURSOR cur_rowid IS
255: SELECT rowid
256: FROM IGS_GR_CRMN_NOTE_ALL
257: WHERE reference_number = x_reference_number ;
258:
259: lv_rowid cur_rowid%RowType;
260:
355: X_GRD_NOTE_TYPE in VARCHAR2,
356: X_MODE in VARCHAR2 default 'R',
357: X_ORG_ID in NUMBER
358: ) AS
359: cursor C is select ROWID from IGS_GR_CRMN_NOTE_ALL
360: where GRD_CAL_TYPE = X_GRD_CAL_TYPE
361: and GRD_CI_SEQUENCE_NUMBER = X_GRD_CI_SEQUENCE_NUMBER
362: and CEREMONY_NUMBER = X_CEREMONY_NUMBER
363: and REFERENCE_NUMBER = X_REFERENCE_NUMBER;
399: x_last_update_login => X_LAST_UPDATE_LOGIN,
400: x_org_id => igs_ge_gen_003.get_org_id
401: );
402:
403: insert into IGS_GR_CRMN_NOTE_ALL (
404: GRD_CAL_TYPE,
405: GRD_CI_SEQUENCE_NUMBER,
406: CEREMONY_NUMBER,
407: REFERENCE_NUMBER,
445: X_GRD_NOTE_TYPE in VARCHAR2
446: ) AS
447: cursor c1 is select
448: GRD_NOTE_TYPE
449: from IGS_GR_CRMN_NOTE_ALL
450: where ROWID = X_ROWID for update nowait;
451: tlinfo c1%rowtype;
452:
453: begin
518: x_last_updated_by => X_LAST_UPDATED_BY,
519: x_last_update_login => X_LAST_UPDATE_LOGIN
520: );
521:
522: update IGS_GR_CRMN_NOTE_ALL set
523: GRD_NOTE_TYPE = NEW_REFERENCES.GRD_NOTE_TYPE,
524: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
525: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
526: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
541: X_GRD_NOTE_TYPE in VARCHAR2,
542: X_MODE in VARCHAR2 default 'R',
543: X_ORG_ID in NUMBER
544: ) AS
545: cursor c1 is select rowid from IGS_GR_CRMN_NOTE_ALL
546: where GRD_CAL_TYPE = X_GRD_CAL_TYPE
547: and GRD_CI_SEQUENCE_NUMBER = X_GRD_CI_SEQUENCE_NUMBER
548: and CEREMONY_NUMBER = X_CEREMONY_NUMBER
549: and REFERENCE_NUMBER = X_REFERENCE_NUMBER
582: X_ROWID in VARCHAR2
583: ) AS
584: begin
585:
586: delete from IGS_GR_CRMN_NOTE_ALL
587: where ROWID = X_ROWID;
588: if (sql%notfound) then
589: raise no_data_found;
590: end if;