[Home] [Help]
PACKAGE BODY: APPS.OKC_TIME_RES_PUB
Source
1 Package BODY OKC_TIME_RES_PUB AS
2 /* $Header: OKCPRESB.pls 120.0 2005/05/25 19:47:36 appldev noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4 ---------------------------------------------------------------------------
5 -- Procedures and Functions
6 ---------------------------------------------------------------------------
7
8 PROCEDURE Res_Time_Events (
9 x_return_status OUT NOCOPY VARCHAR2,
10 p_api_version IN NUMBER,
11 p_init_msg_list IN VARCHAR2 ,
12 p_cnh_id IN NUMBER,
13 p_coe_id IN NUMBER,
14 p_date IN date) IS
15 l_msg_count NUMBER;
16 l_msg_data VARCHAR2(4000);
17 l_api_name CONSTANT VARCHAR2(30) := 'RES_TIME_EVENTS';
18 BEGIN
19 x_return_status := OKC_API.START_ACTIVITY(l_api_name,
20 p_init_msg_list,
21 '_PUB',
22 x_return_status);
23 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
24 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
26 raise OKC_API.G_EXCEPTION_ERROR;
27 END IF;
28 OKC_TIME_RES_PVT.Res_Time_Events(
29 x_return_status,
30 p_api_version ,
31 p_init_msg_list,
32 p_cnh_id ,
33 p_coe_id ,
34 p_date);
35 OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
36 END Res_Time_Events ;
37
38 PROCEDURE Res_Time_New_K(
39 p_chr_id IN NUMBER,
40 p_api_version IN NUMBER,
41 p_init_msg_list IN VARCHAR2 ,
42 x_return_status OUT NOCOPY VARCHAR2) IS
43 l_msg_count NUMBER;
44 l_msg_data VARCHAR2(4000);
45 l_api_name CONSTANT VARCHAR2(30) := 'RES_TIME_NEW_K';
46 BEGIN
47 x_return_status := OKC_API.START_ACTIVITY(l_api_name,
48 p_init_msg_list,
49 '_PUB',
50 x_return_status);
51 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
53 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
54 raise OKC_API.G_EXCEPTION_ERROR;
55 END IF;
56 OKC_TIME_RES_PVT.Res_Time_New_K(
57 p_chr_id ,
58 p_api_version ,
59 p_init_msg_list,
60 x_return_status);
61 OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
62 END Res_Time_New_K;
63
64 PROCEDURE Res_Time_Extnd_K(
65 p_chr_id IN NUMBER,
66 p_cle_id IN NUMBER,
67 p_start_date IN DATE,
68 p_end_date IN DATE,
69 p_api_version IN NUMBER,
70 p_init_msg_list IN VARCHAR2 ,
71 x_return_status OUT NOCOPY VARCHAR2) IS
72 l_msg_count NUMBER;
73 l_msg_data VARCHAR2(4000);
74 l_api_name CONSTANT VARCHAR2(30) := 'RES_TIME_EXTND_K';
75 BEGIN
76 x_return_status := OKC_API.START_ACTIVITY(l_api_name,
77 p_init_msg_list,
78 '_PUB',
79 x_return_status);
80 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
81 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
82 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
83 raise OKC_API.G_EXCEPTION_ERROR;
84 END IF;
85 OKC_TIME_RES_PVT.Res_Time_Extnd_K(
86 p_chr_id ,
87 p_cle_id ,
88 p_start_date,
89 p_end_date,
90 p_api_version ,
91 p_init_msg_list,
92 x_return_status);
93 OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
94 END Res_Time_Extnd_K;
95
96 PROCEDURE Res_Time_Termnt_K(
97 p_chr_id IN NUMBER,
98 p_cle_id IN NUMBER,
99 p_end_date IN DATE,
100 p_api_version IN NUMBER,
101 p_init_msg_list IN VARCHAR2 ,
102 x_return_status OUT NOCOPY VARCHAR2) IS
103 l_msg_count NUMBER;
104 l_msg_data VARCHAR2(4000);
105 l_api_name CONSTANT VARCHAR2(30) := 'RES_TIME_TERMNT_K';
106 BEGIN
107 x_return_status := OKC_API.START_ACTIVITY(l_api_name,
108 p_init_msg_list,
109 '_PUB',
110 x_return_status);
111 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
112 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
113 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
114 raise OKC_API.G_EXCEPTION_ERROR;
115 END IF;
116 OKC_TIME_RES_PVT.Res_Time_Termnt_K(
117 p_chr_id ,
118 p_cle_id ,
119 p_end_date,
120 p_api_version ,
121 p_init_msg_list,
122 x_return_status);
123 OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
124 END Res_Time_Termnt_K;
125
126 FUNCTION Check_Res_Time_N_tasks(
127 p_tve_id IN NUMBER,
128 p_date IN DATE)
129 return BOOLEAN IS
130 BEGIN
131 return (OKC_TIME_RES_PVT. Check_Res_Time_N_tasks(
132 p_tve_id ,
133 p_date ));
134 END Check_Res_Time_N_tasks;
135
136 PROCEDURE Delete_Res_Time_N_Tasks(
137 p_tve_id IN NUMBER,
138 p_date IN DATE,
139 p_api_version IN NUMBER,
140 p_init_msg_list IN VARCHAR2 ,
141 x_return_status OUT NOCOPY VARCHAR2) IS
142 l_msg_count NUMBER;
143 l_msg_data VARCHAR2(4000);
144 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RES_TIME_N_TASKS';
145 BEGIN
146 x_return_status := OKC_API.START_ACTIVITY(l_api_name,
147 p_init_msg_list,
148 '_PUB',
149 x_return_status);
150 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
151 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
152 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
153 raise OKC_API.G_EXCEPTION_ERROR;
154 END IF;
155 OKC_TIME_RES_PVT.Delete_Res_Time_N_Tasks(
156 p_tve_id ,
157 p_date ,
158 p_api_version,
159 p_init_msg_list ,
160 x_return_status);
161 OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
162 END Delete_Res_Time_N_Tasks;
163
164 PROCEDURE Create_Res_Time_N_Tasks(
165 p_tve_id IN NUMBER,
166 p_start_date IN DATE,
167 p_end_date IN DATE,
168 p_api_version IN NUMBER,
169 p_init_msg_list IN VARCHAR2 ,
170 x_return_status OUT NOCOPY VARCHAR2) IS
171 l_msg_count NUMBER;
172 l_msg_data VARCHAR2(4000);
173 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RES_TIME_N_TASKS';
174 BEGIN
175 x_return_status := OKC_API.START_ACTIVITY(l_api_name,
176 p_init_msg_list,
177 '_PUB',
178 x_return_status);
179 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
180 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
181 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
182 raise OKC_API.G_EXCEPTION_ERROR;
183 END IF;
184 OKC_TIME_RES_PVT.Create_Res_Time_N_Tasks(
185 p_tve_id ,
186 p_start_date ,
187 p_end_date ,
188 p_api_version,
189 p_init_msg_list ,
190 x_return_status);
191 OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
192 END Create_Res_Time_N_Tasks;
193
194 PROCEDURE Batch_Resolve_Time_N_Tasks IS
195 BEGIN
196 OKC_TIME_RES_PVT.Batch_Resolve_Time_N_Tasks;
197 END Batch_Resolve_Time_N_Tasks;
198
199 END OKC_TIME_RES_PUB;