1: PACKAGE BODY IGS_CA_VAL_DAP AS
2: /* $Header: IGSCA13B.pls 115.3 2002/11/28 22:59:07 nsidana ship $ */
3: -- Validate IGS_CA_DA_PAIR
4: FUNCTION calp_val_dap_da(
5: p_related_dt_alias IN VARCHAR2 ,
6: p_message_name OUT NOCOPY VARCHAR2 )
7: RETURN boolean AS
6: p_message_name OUT NOCOPY VARCHAR2 )
7: RETURN boolean AS
8: gv_other_detail VARCHAR(255);
9: BEGIN
10: -- Module to validate IGS_CA_DA_PAIR.related_dt_alias
11: -- closed indicator
12: DECLARE
13: v_closed_ind IGS_CA_DA.closed_ind%TYPE;
14: CURSOR c_dt_alias (cp_dt_alias IGS_CA_DA.DT_ALIAS%TYPE) IS
9: BEGIN
10: -- Module to validate IGS_CA_DA_PAIR.related_dt_alias
11: -- closed indicator
12: DECLARE
13: v_closed_ind IGS_CA_DA.closed_ind%TYPE;
14: CURSOR c_dt_alias (cp_dt_alias IGS_CA_DA.DT_ALIAS%TYPE) IS
15: SELECT IGS_CA_DA.closed_ind
16: FROM IGS_CA_DA
17: WHERE IGS_CA_DA.DT_ALIAS = cp_dt_alias;
10: -- Module to validate IGS_CA_DA_PAIR.related_dt_alias
11: -- closed indicator
12: DECLARE
13: v_closed_ind IGS_CA_DA.closed_ind%TYPE;
14: CURSOR c_dt_alias (cp_dt_alias IGS_CA_DA.DT_ALIAS%TYPE) IS
15: SELECT IGS_CA_DA.closed_ind
16: FROM IGS_CA_DA
17: WHERE IGS_CA_DA.DT_ALIAS = cp_dt_alias;
18: BEGIN
11: -- closed indicator
12: DECLARE
13: v_closed_ind IGS_CA_DA.closed_ind%TYPE;
14: CURSOR c_dt_alias (cp_dt_alias IGS_CA_DA.DT_ALIAS%TYPE) IS
15: SELECT IGS_CA_DA.closed_ind
16: FROM IGS_CA_DA
17: WHERE IGS_CA_DA.DT_ALIAS = cp_dt_alias;
18: BEGIN
19: p_message_name := NULL;
12: DECLARE
13: v_closed_ind IGS_CA_DA.closed_ind%TYPE;
14: CURSOR c_dt_alias (cp_dt_alias IGS_CA_DA.DT_ALIAS%TYPE) IS
15: SELECT IGS_CA_DA.closed_ind
16: FROM IGS_CA_DA
17: WHERE IGS_CA_DA.DT_ALIAS = cp_dt_alias;
18: BEGIN
19: p_message_name := NULL;
20: OPEN c_dt_alias(p_related_dt_alias);
13: v_closed_ind IGS_CA_DA.closed_ind%TYPE;
14: CURSOR c_dt_alias (cp_dt_alias IGS_CA_DA.DT_ALIAS%TYPE) IS
15: SELECT IGS_CA_DA.closed_ind
16: FROM IGS_CA_DA
17: WHERE IGS_CA_DA.DT_ALIAS = cp_dt_alias;
18: BEGIN
19: p_message_name := NULL;
20: OPEN c_dt_alias(p_related_dt_alias);
21: FETCH c_dt_alias INTO v_closed_ind;