[Home] [Help]
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