42:
43: PROCEDURE process_checkinout_txn
44: (
45: p_api_version IN number :=1.0,
46: p_init_msg_list IN varchar2 :=fnd_api.g_false,
47: p_commit IN varchar2 :=fnd_api.g_false,
48: p_validation_level IN number :=fnd_api.g_valid_level_full,
49: p_txn_date IN date :=sysdate,
50: p_txn_type IN number,
43: PROCEDURE process_checkinout_txn
44: (
45: p_api_version IN number :=1.0,
46: p_init_msg_list IN varchar2 :=fnd_api.g_false,
47: p_commit IN varchar2 :=fnd_api.g_false,
48: p_validation_level IN number :=fnd_api.g_valid_level_full,
49: p_txn_date IN date :=sysdate,
50: p_txn_type IN number,
51: p_instance_id IN number,
44: (
45: p_api_version IN number :=1.0,
46: p_init_msg_list IN varchar2 :=fnd_api.g_false,
47: p_commit IN varchar2 :=fnd_api.g_false,
48: p_validation_level IN number :=fnd_api.g_valid_level_full,
49: p_txn_date IN date :=sysdate,
50: p_txn_type IN number,
51: p_instance_id IN number,
52: p_comments IN varchar2 := NULL,
93: SAVEPOINT EAM_ASSET_OPERATION_TXN_PUB;
94:
95: /* Standard call to check for call compatibility. */
96: IF NOT
97: FND_API.Compatible_API_Call(
98: l_api_version,
99: p_api_version,
100: l_api_name,
101: g_pkg_name
101: g_pkg_name
102: )
103:
104: THEN
105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106: END IF;
107:
108: /* Initialize message list if p_init_msg_list is set to TRUE. */
109: IF FND_API.to_Boolean( p_init_msg_list )
105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106: END IF;
107:
108: /* Initialize message list if p_init_msg_list is set to TRUE. */
109: IF FND_API.to_Boolean( p_init_msg_list )
110: THEN
111: FND_MSG_PUB.initialize;
112: END IF;
113:
111: FND_MSG_PUB.initialize;
112: END IF;
113:
114: /* Initialize API return status to success */
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116:
117: /* API body */
118:
119:
154: x_msg_data => x_msg_data
155: );
156:
157:
158: IF x_return_status <> fnd_api.g_ret_sts_success THEN
159: ROLLBACK TO EAM_ASSET_OPERATION_TXN_PUB;
160: RETURN;
161: END IF;
162: /* Standard check of p_commit. */
160: RETURN;
161: END IF;
162: /* Standard check of p_commit. */
163:
164: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
165: COMMIT WORK;
166: END IF;
167:
168: -- Standard call to get message count and if count is 1, get message info.
173: );
174:
175: EXCEPTION
176:
177: WHEN FND_API.G_EXC_ERROR THEN
178: ROLLBACK TO EAM_ASSET_OPERATION_TXN_PUB;
179: x_return_status := FND_API.G_RET_STS_ERROR ;
180:
181: FND_MSG_PUB.Get
175: EXCEPTION
176:
177: WHEN FND_API.G_EXC_ERROR THEN
178: ROLLBACK TO EAM_ASSET_OPERATION_TXN_PUB;
179: x_return_status := FND_API.G_RET_STS_ERROR ;
180:
181: FND_MSG_PUB.Get
182: ( p_msg_index_out => x_msg_count ,
183: p_data => x_msg_data
182: ( p_msg_index_out => x_msg_count ,
183: p_data => x_msg_data
184: );
185:
186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
187: ROLLBACK TO EAM_ASSET_OPERATION_TXN_PUB;
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
189: FND_MSG_PUB.get
190: ( p_msg_index_out => x_msg_count ,
184: );
185:
186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
187: ROLLBACK TO EAM_ASSET_OPERATION_TXN_PUB;
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
189: FND_MSG_PUB.get
190: ( p_msg_index_out => x_msg_count ,
191: p_data => x_msg_data
192: );
192: );
193:
194: WHEN OTHERS THEN
195: ROLLBACK TO EAM_ASSET_OPERATION_TXN_PUB;
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
197:
198: IF FND_MSG_PUB.Check_Msg_Level
199: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
200: THEN