1 PACKAGE BODY IGS_CA_VAL_DAOC AS
2 /* $Header: IGSCA12B.pls 115.4 2002/11/28 22:58:54 nsidana ship $ */
3 -------------------------------------------------------------------------------------------
4 --Change History:
5 --Who When What
6 --avenkatr 29-AUG-2001 Bug Id : 1956374. Removed procedure "calp_val_sdoct_clsd"
7 --avenkatr 29-AUG-2001 Bug Id : 1956374. Removed procedure "calp_val_sdoct_clash"
8 -------------------------------------------------------------------------------------------
9
10 --
11 -- Validate if date alias offset constraints exist.
12 FUNCTION calp_val_daoc_exist(
13 p_dt_alias IN VARCHAR2 ,
14 p_message_name OUT NOCOPY VARCHAR2 )
15 RETURN BOOLEAN AS
16 gv_other_detail VARCHAR2(255);
17 BEGIN --calp_val_daoc_exist
18 --This module Validates if date alias offset constraints
19 -- exist for the date alias offset.
20 DECLARE
21 v_daoc_exists VARCHAR2(1);
22 CURSOR c_daoc IS
23 SELECT 'X'
24 FROM IGS_CA_DA_OFST dao,
25 IGS_CA_DA_OFFCNT daoc
26 WHERE dao.dt_alias = p_dt_alias AND
27 daoc.dt_alias = dao.dt_alias;
28 BEGIN
29 --Set the default message number
30 p_message_name := NULL;
31 --If record exists then constraints exist, therefore set
32 -- p_message_name (warning only).
33 OPEN c_daoc;
34 FETCH c_daoc INTO v_daoc_exists;
35 IF (c_daoc%FOUND) THEN
36 p_message_name := 'IGS_CA_MORE_CONSTRAINTS_EXIST';
37 CLOSE c_daoc;
38 RETURN FALSE;
39 END IF;
40 CLOSE c_daoc;
41 RETURN TRUE;
42 END;
43 END calp_val_daoc_exist;
44 END IGS_CA_VAL_DAOC;