PACKAGE BODY: APPS.IGI_IGI_INT_PERIOD_MAP_PKG

Source

1 package body IGI_IGI_INT_PERIOD_MAP_PKG as
2 -- $Header: igiintab.pls 120.4.12000000.1 2007/09/12 09:37:26 mbremkum ship $
3 --
4   Function CHECK_DUP_PERIOD(
5                             X_Period      varchar2
6                            ,X_SOB_ID      number
7                            ,X_Source_Name varchar2
8                            ) return boolean is
9 
10   Cursor C_PERIOD(
11                 p_period      varchar2
12                ,p_sob_id      number
13                ,p_source_name varchar2
14                ) is
15   select SOURCE_PERIOD_NAME
16   from   IGI_INT_PERIOD_MAP
17   where SET_OF_BOOKS_ID = P_SOB_ID
18     and SOURCE_PERIOD_NAME = P_PERIOD
19     and JE_SOURCE_NAME = P_SOURCE_NAME;
20   period_rec C_PERIOD%ROWTYPE;
21 
22   l_return_val boolean;
23   data_found exception;
24 
25   BEGIN
26   open C_PERIOD( X_PERIOD, X_SOB_ID, X_SOURCE_NAME) ;
27   fetch C_PERIOD into period_rec;
28   IF (C_PERIOD%NOTFOUND) THEN
29     raise no_data_found;
30   ELSE
31     raise data_found;
32   END IF;
33 
34 
35   EXCEPTION
36    WHEN NO_DATA_FOUND THEN
37      CLOSE C_PERIOD;
38      l_return_val := false;
39      RETURN(l_return_val);
40 
41   WHEN DATA_FOUND THEN
42     CLOSE C_PERIOD;
43     l_return_val := true;
44     RETURN(l_return_val);
45 
46   WHEN OTHERS THEN
47     CLOSE C_PERIOD;
48 
49     -- Generic error handler
50     null;
51 
52   END Check_Dup_Period;
53 
54 END IGI_IGI_INT_PERIOD_MAP_PKG;