PACKAGE BODY: APPS.OKE_DTS_PA_PKG

Source

1 PACKAGE BODY OKE_DTS_PA_PKG AS
2 /* $Header: OKEPDPAB.pls 115.3 2002/05/30 15:44:23 pkm ship      $ */
3 
4 --
5 --  Name          : Event_Type_Exist
6 --  Pre-reqs      : None
7 --  Function      : This function returns boolean value for billing event
8 --                  types exist in OKE billing records
9 --
10 --
11 --  Parameters    :
12 --  IN            : P_Event_Type            VARCHAR2
13 --
14 --  OUT           : None
15 --
16 --  Returns       : BOOLEAN
17 --
18 
19 
20   FUNCTION Event_Type_Exist ( P_Event_Type VARCHAR2 ) RETURN BOOLEAN IS
21 
22     CURSOR Event_C IS
23     SELECT 'X'
24     FROM oke_k_billing_events
25     WHERE Bill_Event_Type = P_Event_Type;
26 
27     L_Value VARCHAR2(1);
28 
29   BEGIN
30 
31     IF P_Event_Type IS NOT NULL THEN
32 
33       OPEN Event_C;
34       FETCH Event_C INTO L_Value;
35       CLOSE Event_C;
36 
37       IF L_Value = 'X' THEN
38 
39         RETURN ( TRUE );
40 
41       ELSE
42 
43         RETURN ( FALSE );
44 
45       END IF;
46 
47     ELSE
48 
49       RETURN ( TRUE );
50 
51     END IF;
52 
53   EXCEPTION
54     WHEN OTHERS THEN
55       CLOSE Event_C;
56       RETURN ( TRUE );
57 
58   END Event_Type_Exist;
59 
60 
61 --
62 --  Name          : Project_Exist
63 --  Pre-reqs      : None
64 --  Function      : This function returns boolean value for project
65 --                  exist in OKE records
66 --
67 --
68 --  Parameters    :
69 --  IN            : P_Project_ID            NUMBER
70 --
71 --  OUT           : None
72 --
73 --  Returns       : BOOLEAN
74 --
75 
76   FUNCTION Project_Exist ( P_Project_ID NUMBER ) RETURN BOOLEAN IS
77 
78     CURSOR C1 IS
79     SELECT 'X'
80     FROM oke_k_deliverables_b
81     WHERE Project_ID = P_Project_ID;
82 
83     CURSOR C2 IS
84     SELECT 'X'
85     FROM oke_k_lines
86     WHERE Project_ID = P_Project_ID;
87 
88     CURSOR C3 IS
89     SELECT 'X'
90     FROM oke_k_headers
91     WHERE Project_ID = P_Project_ID;
92 
93     CURSOR C4 IS
94     SELECT 'X'
95     FROM oke_k_fund_allocations
96     WHERE Project_ID = P_Project_ID;
97 
98     L_Value VARCHAR2(1);
99 
100   BEGIN
101 
102     -- Check all OKE tables which contain project_id reference
103 
104     OPEN C1;
105     FETCH C1 INTO L_Value;
106     CLOSE C1;
107 
108     IF L_Value = 'X' THEN
109 
110       RETURN TRUE;
111 
112     ELSE
113 
114       OPEN C2;
115       FETCH C2 INTO L_Value;
116       CLOSE C2;
117 
118       IF L_Value = 'X' THEN
119 
120         RETURN TRUE;
121 
122       ELSE
123 
124         OPEN C3;
125         FETCH C3 INTO L_Value;
126         CLOSE C3;
127 
128         IF L_Value = 'X' THEN
129 
130           RETURN TRUE;
131 
132         ELSE
133 
134           OPEN C4;
135 	  FETCH C4 INTO L_Value;
136           CLOSE C4;
137 
138           IF L_Value = 'X' THEN
139 
140             RETURN TRUE;
141 
142           ELSE
143 
144 	    RETURN FALSE;
145 
146 	  END IF;
147 
148         END IF;
149 
150       END IF;
151 
152     END IF;
153 
154   EXCEPTION
155 
156     WHEN OTHERS THEN
157 
158       RETURN FALSE;
159 
160   END Project_Exist;
161 
162 END;
163