1: PACKAGE BODY IGS_PS_VAL_UD AS
2: /* $Header: IGSPS61B.pls 115.5 2002/12/12 09:51:41 smvk ship $ */
3:
4: --
5: -- Validate the IGS_PS_DSCP group code for IGS_PS_UNIT IGS_PS_DSCP.
6: FUNCTION crsp_val_ud_dg_cd(
7: p_discipline_group_cd IN VARCHAR2 ,
8: p_message_name OUT NOCOPY VARCHAR2 )
9: RETURN BOOLEAN AS
6: FUNCTION crsp_val_ud_dg_cd(
7: p_discipline_group_cd IN VARCHAR2 ,
8: p_message_name OUT NOCOPY VARCHAR2 )
9: RETURN BOOLEAN AS
10: v_closed_ind IGS_PS_DSCP.closed_ind%TYPE;
11: CURSOR c_discipline IS
12: SELECT closed_ind
13: FROM IGS_PS_DSCP
14: WHERE discipline_group_cd = p_discipline_group_cd;
9: RETURN BOOLEAN AS
10: v_closed_ind IGS_PS_DSCP.closed_ind%TYPE;
11: CURSOR c_discipline IS
12: SELECT closed_ind
13: FROM IGS_PS_DSCP
14: WHERE discipline_group_cd = p_discipline_group_cd;
15: BEGIN
16: OPEN c_discipline;
17: FETCH c_discipline INTO v_closed_ind;
35: IGS_GE_MSG_STACK.ADD;
36: App_Exception.Raise_Exception;
37: END crsp_val_ud_dg_cd;
38: --
39: -- Validate IGS_PS_UNIT IGS_PS_DSCP percentage for the IGS_PS_UNIT version
40: FUNCTION crsp_val_ud_perc(
41: p_unit_cd IN VARCHAR2 ,
42: p_version_number IN NUMBER ,
43: p_message_name OUT NOCOPY VARCHAR2,