[Home] [Help]
1: package body IGS_GR_AWD_CRM_US_GP_PKG as
2: /* $Header: IGSGI06B.pls 115.5 2002/11/29 00:35:00 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_AWD_CRM_US_GP%RowType;
5: new_references IGS_GR_AWD_CRM_US_GP%RowType;
1: package body IGS_GR_AWD_CRM_US_GP_PKG as
2: /* $Header: IGSGI06B.pls 115.5 2002/11/29 00:35:00 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_AWD_CRM_US_GP%RowType;
5: new_references IGS_GR_AWD_CRM_US_GP%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_GR_AWD_CRM_US_GP_PKG as
2: /* $Header: IGSGI06B.pls 115.5 2002/11/29 00:35:00 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_AWD_CRM_US_GP%RowType;
5: new_references IGS_GR_AWD_CRM_US_GP%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
25: ) AS
26:
27: CURSOR cur_old_ref_values IS
28: SELECT *
29: FROM IGS_GR_AWD_CRM_US_GP
30: WHERE rowid = x_rowid;
31:
32: BEGIN
33:
72:
73: -- Trigger description :-
74: -- "OSS_TST".trg_acusg_br_iu
75: -- BEFORE INSERT OR UPDATE
76: -- ON IGS_GR_AWD_CRM_US_GP
77: -- FOR EACH ROW
78:
79: PROCEDURE BeforeRowInsertUpdate1(
80: p_inserting IN BOOLEAN DEFAULT FALSE,
116:
117: -- Trigger description :-
118: -- "OSS_TST".trg_acusg_ar_u
119: -- AFTER UPDATE
120: -- ON IGS_GR_AWD_CRM_US_GP
121: -- FOR EACH ROW
122:
123: PROCEDURE AfterRowUpdate2(
124: p_inserting IN BOOLEAN DEFAULT FALSE,
203:
204: PROCEDURE Check_Child_Existance AS
205: BEGIN
206:
207: IGS_GR_AWD_CRM_UT_ST_PKG.GET_FK_IGS_GR_AWD_CRM_US_GP (
208: old_references.grd_cal_type,
209: old_references.grd_ci_sequence_number,
210: old_references.ceremony_number,
211: old_references.award_course_cd,
213: old_references.award_cd,
214: old_references.us_group_number
215: );
216:
217: IGS_GR_AWD_CRMN_PKG.GET_FK_IGS_GR_AWD_CRM_US_GP (
218: old_references.grd_cal_type,
219: old_references.grd_ci_sequence_number,
220: old_references.ceremony_number,
221: old_references.award_course_cd,
237: ) RETURN BOOLEAN AS
238:
239: CURSOR cur_rowid IS
240: SELECT rowid
241: FROM IGS_GR_AWD_CRM_US_GP
242: WHERE grd_cal_type = x_grd_cal_type
243: AND grd_ci_sequence_number = x_grd_ci_sequence_number
244: AND ceremony_number = x_ceremony_number
245: AND award_course_cd = x_award_course_cd
274: ) AS
275:
276: CURSOR cur_rowid IS
277: SELECT rowid
278: FROM IGS_GR_AWD_CRM_US_GP
279: WHERE grd_cal_type = x_grd_cal_type
280: AND grd_ci_sequence_number = x_grd_ci_sequence_number
281: AND ceremony_number = x_ceremony_number
282: AND award_course_cd = x_award_course_cd
428: X_OVERRIDE_TITLE in VARCHAR2,
429: X_CLOSED_IND in VARCHAR2,
430: X_MODE in VARCHAR2 default 'R'
431: ) AS
432: cursor C is select ROWID from IGS_GR_AWD_CRM_US_GP
433: where GRD_CAL_TYPE = X_GRD_CAL_TYPE
434: and GRD_CI_SEQUENCE_NUMBER = X_GRD_CI_SEQUENCE_NUMBER
435: and CEREMONY_NUMBER = X_CEREMONY_NUMBER
436: and AWARD_COURSE_CD = X_AWARD_COURSE_CD
479: x_last_updated_by => X_LAST_UPDATED_BY,
480: x_last_update_login => X_LAST_UPDATE_LOGIN
481: );
482:
483: insert into IGS_GR_AWD_CRM_US_GP (
484: GRD_CAL_TYPE,
485: GRD_CI_SEQUENCE_NUMBER,
486: CEREMONY_NUMBER,
487: AWARD_COURSE_CD,
540: cursor c1 is select
541: ORDER_IN_AWARD,
542: OVERRIDE_TITLE,
543: CLOSED_IND
544: from IGS_GR_AWD_CRM_US_GP
545: where ROWID = X_ROWID for update nowait;
546: tlinfo c1%rowtype;
547:
548: begin
626: x_last_updated_by => X_LAST_UPDATED_BY,
627: x_last_update_login => X_LAST_UPDATE_LOGIN
628: );
629:
630: update IGS_GR_AWD_CRM_US_GP set
631: ORDER_IN_AWARD = NEW_REFERENCES.ORDER_IN_AWARD,
632: OVERRIDE_TITLE = NEW_REFERENCES.OVERRIDE_TITLE,
633: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
634: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
660: X_OVERRIDE_TITLE in VARCHAR2,
661: X_CLOSED_IND in VARCHAR2,
662: X_MODE in VARCHAR2 default 'R'
663: ) AS
664: cursor c1 is select rowid from IGS_GR_AWD_CRM_US_GP
665: where GRD_CAL_TYPE = X_GRD_CAL_TYPE
666: and GRD_CI_SEQUENCE_NUMBER = X_GRD_CI_SEQUENCE_NUMBER
667: and CEREMONY_NUMBER = X_CEREMONY_NUMBER
668: and AWARD_COURSE_CD = X_AWARD_COURSE_CD
716: p_action => 'DELETE',
717: x_rowid => X_ROWID
718: );
719:
720: delete from IGS_GR_AWD_CRM_US_GP
721: where ROWID = X_ROWID;
722: if (sql%notfound) then
723: raise no_data_found;
724: end if;
735: x_order_in_award IN VARCHAR2
736: ) RETURN BOOLEAN AS
737: CURSOR cur_rowid IS
738: SELECT rowid
739: FROM IGS_GR_AWD_CRM_US_GP
740: WHERE grd_cal_type = x_grd_cal_type
741: AND grd_ci_sequence_number = x_grd_ci_sequence_number
742: AND ceremony_number = x_ceremony_number
743: AND award_course_cd = x_award_course_cd
835: END IF;
836:
837: END Check_Constraints;
838:
839: end IGS_GR_AWD_CRM_US_GP_PKG;