[Home] [Help]
1: PACKAGE BODY IGS_PS_VAL_UC AS
2: /* $Header: IGSPS59B.pls 115.4 2002/11/29 03:08:25 nsidana ship $ */
3:
4:
5: -- Validate the IGS_PS_UNIT category for IGS_PS_UNIT categorisation
6: FUNCTION crsp_val_uc_unit_cat(
7: p_unit_cat IN VARCHAR2 ,
8: p_message_name OUT NOCOPY VARCHAR2 )
9: RETURN BOOLEAN AS
6: FUNCTION crsp_val_uc_unit_cat(
7: p_unit_cat IN VARCHAR2 ,
8: p_message_name OUT NOCOPY VARCHAR2 )
9: RETURN BOOLEAN AS
10: v_closed_ind IGS_PS_UNIT_CAT.closed_ind%TYPE;
11: CURSOR c_unit_cat IS
12: SELECT closed_ind
13: FROM IGS_PS_UNIT_CAT
14: WHERE unit_cat = p_unit_cat;
9: RETURN BOOLEAN AS
10: v_closed_ind IGS_PS_UNIT_CAT.closed_ind%TYPE;
11: CURSOR c_unit_cat IS
12: SELECT closed_ind
13: FROM IGS_PS_UNIT_CAT
14: WHERE unit_cat = p_unit_cat;
15: BEGIN
16: OPEN c_unit_cat;
17: FETCH c_unit_cat INTO v_closed_ind;