[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_WORKORDER_CUHK
Source
1 Package body AHL_PRD_WORKORDER_CUHK AS
2 /*$Header: AHLCPRJB.pls 120.0.12010000.1 2009/01/12 23:33:43 sikumar noship $*/
3
4 G_PKG_NAME VARCHAR2(30) := 'AHL_PRD_WORKORDER_CUHK';
5
6 PROCEDURE CREATE_JOB_PRE
7 (
8 p_prd_workorder_rec IN AHL_PRD_WORKORDER_PVT.prd_workorder_rec,
9 x_return_status OUT NOCOPY VARCHAR2 ,
10 x_msg_count OUT NOCOPY NUMBER ,
11 x_msg_data OUT NOCOPY VARCHAR2)
12 IS
13 l_api_name VARCHAR2(30) := 'create_job_pre';
14
15 BEGIN
16 SAVEPOINT ahl_prd_workorder_cuhk;
17 --dbms_output.put_line('Inside CREATE_JOB_PRE Hook -->' );
18 x_return_status:=FND_API.G_RET_STS_SUCCESS;
19
20 EXCEPTION
21 WHEN FND_API.G_EXC_ERROR THEN
22 ROLLBACK TO ahl_prd_workorder_cuhk;
23 x_return_status := FND_API.G_RET_STS_ERROR;
24 FND_MSG_PUB.count_and_get(
25 p_encoded => FND_API.G_FALSE,
26 p_count => x_msg_count,
27 p_data => x_msg_data);
28
29 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
30 ROLLBACK TO ahl_prd_workorder_cuhk;
31 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32 FND_MSG_PUB.count_and_get(
33 p_encoded => FND_API.G_FALSE,
34 p_count => x_msg_count,
35 p_data => x_msg_data);
36
37 WHEN OTHERS THEN
38 ROLLBACK TO ahl_prd_workorder_cuhk;
39 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
40 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
41 FND_MSG_PUB.add_exc_msg(
42 p_pkg_name => G_PKG_NAME,
43 p_procedure_name => l_api_name,
44 p_error_text => SUBSTRB(SQLERRM,1,240));
45 END IF;
46 FND_MSG_PUB.count_and_get(
47 p_encoded => FND_API.G_FALSE,
48 p_count => x_msg_count,
49 p_data => x_msg_data);
50
51 End CREATE_JOB_PRE;
52
53
54 PROCEDURE CREATE_JOB_POST
55 (
56 p_prd_workorder_rec IN AHL_PRD_WORKORDER_PVT.prd_workorder_rec,
57 p_operation_tbl IN AHL_PRD_OPERATIONS_PVT.prd_operation_tbl,
58 p_resource_tbl IN AHL_PP_RESRC_REQUIRE_PVT.resrc_require_tbl_type,
59 p_material_tbl IN AHL_PP_MATERIALS_PVT.req_material_tbl_type,
60 x_return_status OUT NOCOPY VARCHAR2 ,
61 x_msg_count OUT NOCOPY NUMBER ,
62 x_msg_data OUT NOCOPY VARCHAR2)
63
64 IS
65 l_api_name VARCHAR2(30) := 'create_job_post';
66
67 Begin
68 SAVEPOINT ahl_prd_workorder_cuhk;
69 x_return_status:=FND_API.G_RET_STS_SUCCESS;
70 --dbms_output.put_line('Inside CREATE_JOB_POST Hook -->' );
71
72
73 EXCEPTION
74 WHEN FND_API.G_EXC_ERROR THEN
75 ROLLBACK TO ahl_prd_workorder_cuhk;
76 x_return_status := FND_API.G_RET_STS_ERROR;
77 FND_MSG_PUB.count_and_get(
78 p_encoded => FND_API.G_FALSE,
79 p_count => x_msg_count,
80 p_data => x_msg_data);
81
82 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83 ROLLBACK TO ahl_prd_workorder_cuhk;
84 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85 FND_MSG_PUB.count_and_get(
86 p_encoded => FND_API.G_FALSE,
87 p_count => x_msg_count,
88 p_data => x_msg_data);
89
90 WHEN OTHERS THEN
91 ROLLBACK TO ahl_prd_workorder_cuhk;
92 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
94 FND_MSG_PUB.add_exc_msg(
95 p_pkg_name => G_PKG_NAME,
96 p_procedure_name => l_api_name,
97 p_error_text => SUBSTRB(SQLERRM,1,240));
98 END IF;
99 FND_MSG_PUB.count_and_get(
100 p_encoded => FND_API.G_FALSE,
101 p_count => x_msg_count,
102 p_data => x_msg_data);
103
104 End CREATE_JOB_POST;
105
106
107 PROCEDURE UPDATE_JOB_PRE
108 (
109 p_prd_workorder_rec IN AHL_PRD_WORKORDER_PVT.prd_workorder_rec,
110 p_prd_workoper_tbl IN AHL_PRD_WORKORDER_PVT.prd_workoper_tbl,
111 x_return_status OUT NOCOPY VARCHAR2,
112 x_msg_count OUT NOCOPY NUMBER,
113 x_msg_data OUT NOCOPY VARCHAR2)
114
115 IS
116 l_api_name VARCHAR2(30) := 'update_job_pre';
117
118 Begin
119 SAVEPOINT ahl_prd_workorder_cuhk;
120 x_return_status:=FND_API.G_RET_STS_SUCCESS;
121 --dbms_output.put_line('Inside UPDATE_JOB_PRE Hook -->' );
122
123 EXCEPTION
124 WHEN FND_API.G_EXC_ERROR THEN
125 ROLLBACK TO ahl_prd_workorder_cuhk;
126 x_return_status := FND_API.G_RET_STS_ERROR;
127 FND_MSG_PUB.count_and_get(
128 p_encoded => FND_API.G_FALSE,
129 p_count => x_msg_count,
130 p_data => x_msg_data);
131
132 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133 ROLLBACK TO ahl_prd_workorder_cuhk;
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135 FND_MSG_PUB.count_and_get(
136 p_encoded => FND_API.G_FALSE,
137 p_count => x_msg_count,
138 p_data => x_msg_data);
139
140 WHEN OTHERS THEN
141 ROLLBACK TO ahl_prd_workorder_cuhk;
142 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
144 FND_MSG_PUB.add_exc_msg(
145 p_pkg_name => G_PKG_NAME,
146 p_procedure_name => l_api_name,
147 p_error_text => SUBSTRB(SQLERRM,1,240));
148 END IF;
149 FND_MSG_PUB.count_and_get(
150 p_encoded => FND_API.G_FALSE,
151 p_count => x_msg_count,
152 p_data => x_msg_data);
153
154 End UPDATE_JOB_PRE ;
155
156
157
158 PROCEDURE UPDATE_JOB_POST
159 (
160 p_prd_workorder_rec IN AHL_PRD_WORKORDER_PVT.prd_workorder_rec,
161 p_prd_workoper_tbl IN AHL_PRD_WORKORDER_PVT.prd_workoper_tbl,
162 x_return_status OUT NOCOPY VARCHAR2,
163 x_msg_count OUT NOCOPY NUMBER,
164 x_msg_data OUT NOCOPY VARCHAR2)
165 IS
166 l_api_name VARCHAR2(30) := 'update_job_post';
167
168 BEGIN
169 SAVEPOINT ahl_prd_workorder_cuhk;
170 x_return_status:=FND_API.G_RET_STS_SUCCESS;
171 --dbms_output.put_line('Inside UPDATE_JOB_POST Hook -->' );
172
173 EXCEPTION
174 WHEN FND_API.G_EXC_ERROR THEN
175 ROLLBACK TO ahl_prd_workorder_cuhk;
176 x_return_status := FND_API.G_RET_STS_ERROR;
177 FND_MSG_PUB.count_and_get(
178 p_encoded => FND_API.G_FALSE,
179 p_count => x_msg_count,
180 p_data => x_msg_data);
181
182 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183 ROLLBACK TO ahl_prd_workorder_cuhk;
184 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185 FND_MSG_PUB.count_and_get(
186 p_encoded => FND_API.G_FALSE,
187 p_count => x_msg_count,
188 p_data => x_msg_data);
189
190 WHEN OTHERS THEN
191 ROLLBACK TO ahl_prd_workorder_cuhk;
192 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
194 FND_MSG_PUB.add_exc_msg(
195 p_pkg_name => G_PKG_NAME,
196 p_procedure_name => l_api_name,
197 p_error_text => SUBSTRB(SQLERRM,1,240));
198 END IF;
199 FND_MSG_PUB.count_and_get(
200 p_encoded => FND_API.G_FALSE,
201 p_count => x_msg_count,
202 p_data => x_msg_data);
203
204 End UPDATE_JOB_POST;
205
206 End AHL_PRD_WORKORDER_CUHK;