[Home] [Help]
PACKAGE BODY: APPS.EAM_CONSTRUCTION_UNIT_PUB
Source
1 PACKAGE BODY EAM_CONSTRUCTION_UNIT_PUB as
2 /* $Header: EAMPCUB.pls 120.0.12010000.3 2008/11/20 10:19:34 dsingire noship $*/
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_CONSTRUCTION_UNIT_PUB';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'EAMPCUB.pls';
6
7
8 PROCEDURE create_construction_unit(
9 p_api_version IN NUMBER
10 ,p_commit IN VARCHAR2
11 ,p_cu_rec IN CU_rec
12 ,p_cu_activity_tbl IN CU_Activity_tbl
13 ,x_cu_id OUT NOCOPY NUMBER
14 ,x_return_status OUT NOCOPY VARCHAR2
15 ,x_msg_count OUT NOCOPY NUMBER
16 ,x_msg_data OUT NOCOPY VARCHAR2
17
18 ) IS
19 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONSTRUCTION_UNIT';
20 l_api_version CONSTANT NUMBER := 1.0;
21 BEGIN
22
23 IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
24 RAISE FND_API.G_EXC_ERROR;
25 END IF;
26
27 -- Set Debug flag
28 EAM_CONSTRUCTION_UNIT_PVT.set_debug;
29
30 EAM_CONSTRUCTION_UNIT_PVT.create_construction_unit(
31 p_api_version => p_api_version
32 ,p_commit => p_commit
33 ,p_cu_rec => p_cu_rec
34 ,p_cu_activity_tbl => p_cu_activity_tbl
35 ,x_cu_id => x_cu_id
36 ,x_return_status => x_return_status
37 ,x_msg_count => x_msg_count
38 ,x_msg_data => x_msg_data
39 );
40
41 EXCEPTION
42 WHEN FND_API.G_EXC_ERROR THEN
43 x_return_status := fnd_api.g_ret_sts_error;
44 x_msg_data := fnd_message.get;
45 WHEN OTHERS THEN
46 x_return_status := fnd_api.g_ret_sts_error;
47 fnd_message.set_name('EAM','EAM_CU_UNEXP_SQL_ERRORR');
48 fnd_message.set_token('API_NAME',l_api_name);
49 fnd_message.set_token('SQL_ERROR',SQLERRM);
50 FND_MSG_PUB.Add;
51 x_msg_data := fnd_message.get;
52 END create_construction_unit;
53
54 PROCEDURE update_construction_unit(
55 p_api_version IN NUMBER
56 ,p_commit IN VARCHAR2
57 ,p_cu_rec IN EAM_CONSTRUCTION_UNIT_PUB.CU_rec
58 ,p_cu_activity_tbl IN EAM_CONSTRUCTION_UNIT_PUB.CU_Activity_tbl
59 ,x_cu_id OUT NOCOPY NUMBER
60 ,x_return_status OUT NOCOPY VARCHAR2
61 ,x_msg_count OUT NOCOPY NUMBER
62 ,x_msg_data OUT NOCOPY VARCHAR2
63 ) IS
64 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONSTRUCTION_UNIT';
65 l_api_version CONSTANT NUMBER := 1.0;
66 BEGIN
67
68 IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
69 RAISE FND_API.G_EXC_ERROR;
70 END IF;
71
72 -- Set Debug flag
73 EAM_CONSTRUCTION_UNIT_PVT.set_debug;
74
75 EAM_CONSTRUCTION_UNIT_PVT.update_construction_unit(
76 p_api_version => p_api_version
77 ,p_commit => p_commit
78 ,p_cu_rec => p_cu_rec
79 ,p_cu_activity_tbl => p_cu_activity_tbl
80 ,x_cu_id => x_cu_id
81 ,x_return_status => x_return_status
82 ,x_msg_count => x_msg_count
83 ,x_msg_data => x_msg_data
84 );
85
86 EXCEPTION
87 WHEN FND_API.G_EXC_ERROR THEN
88 x_return_status := fnd_api.g_ret_sts_error;
89 x_msg_data := fnd_message.get;
90 WHEN OTHERS THEN
91 x_return_status := fnd_api.g_ret_sts_error;
92 fnd_message.set_name('EAM','EAM_CU_UNEXP_SQL_ERRORR');
93 fnd_message.set_token('API_NAME',l_api_name);
94 fnd_message.set_token('SQL_ERROR',SQLERRM);
95 FND_MSG_PUB.Add;
96 x_msg_data := fnd_message.get;
97 END update_construction_unit;
98
99 PROCEDURE copy_construction_unit(
100 p_api_version IN NUMBER
101 ,p_commit IN VARCHAR2
102 ,p_cu_rec IN EAM_CONSTRUCTION_UNIT_PUB.CU_rec
103 ,p_cu_activity_tbl IN EAM_CONSTRUCTION_UNIT_PUB.CU_Activity_tbl
104 ,p_source_cu_id_tbl IN EAM_CONSTRUCTION_UNIT_PUB.CU_ID_tbl
105 ,x_cu_id OUT NOCOPY NUMBER
106 ,x_return_status OUT NOCOPY VARCHAR2
107 ,x_msg_count OUT NOCOPY NUMBER
108 ,x_msg_data OUT NOCOPY VARCHAR2
109 ) IS
110 l_api_name CONSTANT VARCHAR2(30) := 'COPY_CONSTRUCTION_UNIT';
111 l_api_version CONSTANT NUMBER := 1.0;
112 BEGIN
113
114 IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
115 RAISE FND_API.G_EXC_ERROR;
116 END IF;
117
118 -- Set Debug flag
119 EAM_CONSTRUCTION_UNIT_PVT.set_debug;
120
121 EAM_CONSTRUCTION_UNIT_PVT.copy_construction_unit(
122 p_api_version => p_api_version
123 ,p_commit => p_commit
124 ,p_cu_rec => p_cu_rec
125 ,p_cu_activity_tbl => p_cu_activity_tbl
126 ,p_source_cu_id_tbl => p_source_cu_id_tbl
127 ,x_cu_id => x_cu_id
128 ,x_return_status => x_return_status
129 ,x_msg_count => x_msg_count
130 ,x_msg_data => x_msg_data
131 );
132
133 EXCEPTION
134 WHEN FND_API.G_EXC_ERROR THEN
135 x_return_status := fnd_api.g_ret_sts_error;
136 x_msg_data := fnd_message.get;
137 WHEN OTHERS THEN
138 x_return_status := fnd_api.g_ret_sts_error;
139 fnd_message.set_name('EAM','EAM_CU_UNEXP_SQL_ERRORR');
140 fnd_message.set_token('API_NAME',l_api_name);
141 fnd_message.set_token('SQL_ERROR',SQLERRM);
142 FND_MSG_PUB.Add;
143 x_msg_data := fnd_message.get;
144 END copy_construction_unit;
145
146 End EAM_CONSTRUCTION_UNIT_PUB;