38:
39:
40: PROCEDURE do_retirement_adjustment
41: (p_api_version IN NUMBER,
42: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
43: p_commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: p_calling_fn IN VARCHAR2,
46: x_return_status OUT NOCOPY VARCHAR2,
39:
40: PROCEDURE do_retirement_adjustment
41: (p_api_version IN NUMBER,
42: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
43: p_commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: p_calling_fn IN VARCHAR2,
46: x_return_status OUT NOCOPY VARCHAR2,
47: x_msg_count OUT NOCOPY NUMBER,
40: PROCEDURE do_retirement_adjustment
41: (p_api_version IN NUMBER,
42: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
43: p_commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: p_calling_fn IN VARCHAR2,
46: x_return_status OUT NOCOPY VARCHAR2,
47: x_msg_count OUT NOCOPY NUMBER,
48: x_msg_data OUT NOCOPY VARCHAR2,
72: end if;
73: end if;
74:
75: -- Initialize message list if p_init_msg_list is set to TRUE.
76: if (fnd_api.to_boolean(p_init_msg_list)) then
77: -- initialize error message stack.
78: fa_srvr_msg.init_server_message;
79:
80: -- initialize debug message stack.
82: end if;
83:
84: -- Check version of the API
85: -- Standard call to check for API call compatibility.
86: if NOT fnd_api.compatible_api_call (
87: G_API_VERSION,
88: p_api_version,
89: G_API_NAME,
90: G_PKG_NAME
88: p_api_version,
89: G_API_NAME,
90: G_PKG_NAME
91: ) then
92: x_return_status := FND_API.G_RET_STS_ERROR;
93: raise ret_adj_err;
94: end if;
95:
96: -- call the cache for the primary transaction book
160:
161: -- no auto-copy / cip in tax for group reclass transactions
162:
163: -- commit if p_commit is TRUE.
164: if (fnd_api.to_boolean (p_commit)) then
165: COMMIT WORK;
166: end if;
167:
168: x_return_status := FND_API.G_RET_STS_SUCCESS;
164: if (fnd_api.to_boolean (p_commit)) then
165: COMMIT WORK;
166: end if;
167:
168: x_return_status := FND_API.G_RET_STS_SUCCESS;
169:
170: EXCEPTION
171:
172: when ret_adj_err then
182: FND_MSG_PUB.count_and_get (
183: p_count => x_msg_count,
184: p_data => x_msg_data
185: );
186: x_return_status := FND_API.G_RET_STS_ERROR;
187:
188: when others then
189: ROLLBACK TO do_retirement_adjustment;
190:
198: p_count => x_msg_count,
199: p_data => x_msg_data
200: );
201:
202: x_return_status := FND_API.G_RET_STS_ERROR;
203:
204: END do_retirement_adjustment;
205:
206: -----------------------------------------------------------------------------