70: end is_supp_rule_maintained;
71:
72: PROCEDURE instantiate_suppressions(
73: p_api_version IN NUMBER ,
74: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
75: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
76: p_validation_level IN NUMBER :=
77: FND_API.G_VALID_LEVEL_FULL ,
78: x_return_status OUT NOCOPY VARCHAR2 ,
71:
72: PROCEDURE instantiate_suppressions(
73: p_api_version IN NUMBER ,
74: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
75: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
76: p_validation_level IN NUMBER :=
77: FND_API.G_VALID_LEVEL_FULL ,
78: x_return_status OUT NOCOPY VARCHAR2 ,
79: x_msg_count OUT NOCOPY NUMBER ,
73: p_api_version IN NUMBER ,
74: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
75: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
76: p_validation_level IN NUMBER :=
77: FND_API.G_VALID_LEVEL_FULL ,
78: x_return_status OUT NOCOPY VARCHAR2 ,
79: x_msg_count OUT NOCOPY NUMBER ,
80: x_msg_data OUT NOCOPY VARCHAR2 ,
81: p_maintenance_object_id IN NUMBER
113: BEGIN
114: -- Standard Start of API savepoint
115: SAVEPOINT EAM_PM_SUPPRESSIONS;
116: -- Standard call to check for call compatibility.
117: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
118: p_api_version ,
119: l_api_name ,
120: G_PKG_NAME )
121: THEN
118: p_api_version ,
119: l_api_name ,
120: G_PKG_NAME )
121: THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124: -- Initialize message list if p_init_msg_list is set to TRUE.
125: IF FND_API.to_Boolean( p_init_msg_list ) THEN
126: FND_MSG_PUB.initialize;
121: THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124: -- Initialize message list if p_init_msg_list is set to TRUE.
125: IF FND_API.to_Boolean( p_init_msg_list ) THEN
126: FND_MSG_PUB.initialize;
127: END IF;
128: -- Initialize API return status to success
129: x_return_status := FND_API.G_RET_STS_SUCCESS;
125: IF FND_API.to_Boolean( p_init_msg_list ) THEN
126: FND_MSG_PUB.initialize;
127: END IF;
128: -- Initialize API return status to success
129: x_return_status := FND_API.G_RET_STS_SUCCESS;
130:
131: -- API body
132: --dbms_output.put_line('instantiating meters');
133:
142: -- end loop;
143:
144: -- End of API body.
145: -- Standard check of p_commit.
146: IF FND_API.To_Boolean( p_commit ) THEN
147: --dbms_output.put_line('committing');
148: COMMIT WORK;
149: END IF;
150: -- Standard call to get message count and if count is 1, get message info.
152: ( p_count => x_msg_count ,
153: p_data => x_msg_data
154: );
155: EXCEPTION
156: WHEN FND_API.G_EXC_ERROR THEN
157: --dbms_output.put_line('g_exc_error');
158: ROLLBACK TO EAM_PM_SUPPRESSIONS;
159: x_return_status := FND_API.G_RET_STS_ERROR ;
160: FND_MSG_PUB.Count_And_Get
155: EXCEPTION
156: WHEN FND_API.G_EXC_ERROR THEN
157: --dbms_output.put_line('g_exc_error');
158: ROLLBACK TO EAM_PM_SUPPRESSIONS;
159: x_return_status := FND_API.G_RET_STS_ERROR ;
160: FND_MSG_PUB.Count_And_Get
161: ( p_count => x_msg_count ,
162: p_data => x_msg_data
163: );
160: FND_MSG_PUB.Count_And_Get
161: ( p_count => x_msg_count ,
162: p_data => x_msg_data
163: );
164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
165: --dbms_output.put_line('unexpected error');
166: ROLLBACK TO instantiate_meters_pub;
167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
168: FND_MSG_PUB.Count_And_Get
163: );
164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
165: --dbms_output.put_line('unexpected error');
166: ROLLBACK TO instantiate_meters_pub;
167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
168: FND_MSG_PUB.Count_And_Get
169: ( p_count => x_msg_count ,
170: p_data => x_msg_data
171: );
171: );
172: WHEN OTHERS THEN
173: --dbms_output.put_line('others');
174: ROLLBACK TO EAM_PM_SUPPRESSIONS;
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
176: IF FND_MSG_PUB.Check_Msg_Level
177: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
178: THEN
179: FND_MSG_PUB.Add_Exc_Msg