PACKAGE BODY: APPS.PN_ATG_IS_INSTL_PKG

Source

1 PACKAGE BODY PN_ATG_IS_INSTL_PKG AS
2   -- $Header: PNATGCKB.pls 120.1 2005/07/25 05:47:41 appldev noship $
3 
4 FUNCTION IS_ATG_INSTALLED RETURN BOOLEAN
5 IS
6   l_atg_flag   NUMBER;
7   -- Check for ATG Calendar JTF Object.
8   CURSOR c_chk_atg_cal IS
9     SELECT 1
10     FROM   dual
11     WHERE  EXISTS(SELECT null
12                   FROM   jtf_objects_vl
13                   WHERE  object_code = 'PN_LOCATION');
14 BEGIN
15 
16   OPEN c_chk_atg_cal;
17   FETCH c_chk_atg_cal INTO l_atg_flag;
18 
19   IF c_chk_atg_cal%NOTFOUND THEN
20     CLOSE c_chk_atg_cal;
21     RETURN FALSE;
22   END IF;
23 
24   CLOSE c_chk_atg_cal;
25   RETURN TRUE;
26 
27 END IS_ATG_INSTALLED;
28 
29 END PN_ATG_IS_INSTL_PKG;