37: --*********************** Public procedures *****************************--
38:
39: PROCEDURE do_tax_rsv_adj
40: (p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: p_calling_fn IN VARCHAR2,
45: x_return_status OUT NOCOPY VARCHAR2,
38:
39: PROCEDURE do_tax_rsv_adj
40: (p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: p_calling_fn IN VARCHAR2,
45: x_return_status OUT NOCOPY VARCHAR2,
46: x_msg_count OUT NOCOPY NUMBER,
39: PROCEDURE do_tax_rsv_adj
40: (p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: p_calling_fn IN VARCHAR2,
45: x_return_status OUT NOCOPY VARCHAR2,
46: x_msg_count OUT NOCOPY NUMBER,
47: x_msg_data OUT NOCOPY VARCHAR2,
86: end if;
87:
88: -- Initialize message list if p_init_msg_list is set to TRUE.
89:
90: -- if (fnd_api.to_boolean(p_init_msg_list)) then
91:
92: -- initialize error message stack.
93: fa_srvr_msg.init_server_message;
94:
98:
99: -- Check version of the API
100: -- Standard call to check for API call compatibility.
101:
102: if NOT fnd_api.compatible_api_call (
103: G_API_VERSION,
104: p_api_version,
105: G_API_NAME,
106: G_PKG_NAME) then
103: G_API_VERSION,
104: p_api_version,
105: G_API_NAME,
106: G_PKG_NAME) then
107: x_return_status := FND_API.G_RET_STS_ERROR;
108: raise tax_rsv_adj_err;
109: end if;
110:
111: -- call the cache for the primary transaction book
306: end if;
307:
308:
309: -- commit if p_commit is TRUE.
310: if (fnd_api.to_boolean (p_commit)) then
311: COMMIT WORK;
312: end if;
313:
314: -- Reset back to the original Primay SOB.
322: p_count => x_msg_count,
323: p_data => x_msg_data
324: );
325:
326: x_return_status := FND_API.G_RET_STS_SUCCESS;
327:
328: EXCEPTION
329:
330: when tax_rsv_adj_err then
343: p_count => x_msg_count,
344: p_data => x_msg_data
345: );
346:
347: x_return_status := FND_API.G_RET_STS_ERROR;
348:
349: when others then
350: ROLLBACK TO do_tax_rsv_adj;
351:
362: p_count => x_msg_count,
363: p_data => x_msg_data
364: );
365:
366: x_return_status := FND_API.G_RET_STS_ERROR;
367:
368:
369: END do_tax_rsv_adj;
370: