APPS.IGS_AD_VAL_TEUA dependencies on IGS_PS_DSCP

Line 5: -- Validate if IGS_PS_DSCP.discipline_group_cd is closed.

1: PACKAGE BODY IGS_AD_VAL_TEUA AS
2: /* $Header: IGSAD75B.pls 120.1 2005/09/08 16:23:15 appldev noship $ */
3:
4: --
5: -- Validate if IGS_PS_DSCP.discipline_group_cd is closed.
6: FUNCTION crsp_val_di_closed(
7: p_discipline_group_cd IN VARCHAR2 ,
8: p_message_name OUT NOCOPY VARCHAR2 )
9: RETURN BOOLEAN AS

Line 11: --Validate if IGS_PS_DSCP.discipline_group_cd is closed

7: p_discipline_group_cd IN VARCHAR2 ,
8: p_message_name OUT NOCOPY VARCHAR2 )
9: RETURN BOOLEAN AS
10: BEGIN --crsp_val_di_closed
11: --Validate if IGS_PS_DSCP.discipline_group_cd is closed
12: DECLARE
13: v_di_exists VARCHAR2(1);
14: CURSOR c_di IS
15: SELECT 'X'

Line 16: FROM IGS_PS_DSCP

12: DECLARE
13: v_di_exists VARCHAR2(1);
14: CURSOR c_di IS
15: SELECT 'X'
16: FROM IGS_PS_DSCP
17: WHERE discipline_group_cd = p_discipline_group_cd AND
18: closed_ind = 'Y';
19: BEGIN
20: --Set the default message number