13:
14:
15: FUNCTION do_cap_rev
16: (p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_calling_fn IN VARCHAR2,
21: x_return_status OUT NOCOPY VARCHAR2,
14:
15: FUNCTION do_cap_rev
16: (p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_calling_fn IN VARCHAR2,
21: x_return_status OUT NOCOPY VARCHAR2,
22: x_msg_count OUT NOCOPY NUMBER,
15: FUNCTION do_cap_rev
16: (p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_calling_fn IN VARCHAR2,
21: x_return_status OUT NOCOPY VARCHAR2,
22: x_msg_count OUT NOCOPY NUMBER,
23: x_msg_data OUT NOCOPY VARCHAR2,
42: --*********************** Public procedures ******************************--
43:
44: PROCEDURE do_capitalization
45: (p_api_version IN NUMBER,
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_calling_fn IN VARCHAR2,
50: x_return_status OUT NOCOPY VARCHAR2,
43:
44: PROCEDURE do_capitalization
45: (p_api_version IN NUMBER,
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_calling_fn IN VARCHAR2,
50: x_return_status OUT NOCOPY VARCHAR2,
51: x_msg_count OUT NOCOPY NUMBER,
44: PROCEDURE do_capitalization
45: (p_api_version IN NUMBER,
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_calling_fn IN VARCHAR2,
50: x_return_status OUT NOCOPY VARCHAR2,
51: x_msg_count OUT NOCOPY NUMBER,
52: x_msg_data OUT NOCOPY VARCHAR2,
88: raise cap_err;
89: end if;
90:
91: -- commit if p_commit is TRUE.
92: if (fnd_api.to_boolean (p_commit)) then
93: COMMIT WORK;
94: end if;
95:
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
92: if (fnd_api.to_boolean (p_commit)) then
93: COMMIT WORK;
94: end if;
95:
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: return;
99:
100: EXCEPTION
115: p_data => x_msg_data
116: );
117: -- end if;
118:
119: x_return_status := FND_API.G_RET_STS_ERROR;
120:
121: return;
122:
123: WHEN OTHERS THEN
135: p_data => x_msg_data
136: );
137: -- end if;
138:
139: x_return_status := FND_API.G_RET_STS_ERROR;
140:
141: return;
142:
143: END do_capitalization;
143: END do_capitalization;
144:
145: PROCEDURE do_reverse
146: (p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
148: p_commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150: p_calling_fn IN VARCHAR2,
151: x_return_status OUT NOCOPY VARCHAR2,
144:
145: PROCEDURE do_reverse
146: (p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
148: p_commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150: p_calling_fn IN VARCHAR2,
151: x_return_status OUT NOCOPY VARCHAR2,
152: x_msg_count OUT NOCOPY NUMBER,
145: PROCEDURE do_reverse
146: (p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
148: p_commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150: p_calling_fn IN VARCHAR2,
151: x_return_status OUT NOCOPY VARCHAR2,
152: x_msg_count OUT NOCOPY NUMBER,
153: x_msg_data OUT NOCOPY VARCHAR2,
189: raise rev_err;
190: end if;
191:
192: -- commit if p_commit is TRUE.
193: if (fnd_api.to_boolean (p_commit)) then
194: COMMIT WORK;
195: end if;
196:
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: if (fnd_api.to_boolean (p_commit)) then
194: COMMIT WORK;
195: end if;
196:
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
198:
199: return;
200:
201:
217: p_data => x_msg_data
218: );
219: -- end if;
220:
221: x_return_status := FND_API.G_RET_STS_ERROR;
222:
223: return;
224:
225: WHEN OTHERS THEN
238: p_data => x_msg_data
239: );
240: -- end if;
241:
242: x_return_status := FND_API.G_RET_STS_ERROR;
243:
244: return;
245:
246: END do_reverse;
248: --*********************** Private procedures ******************************--
249:
250: FUNCTION do_cap_rev
251: (p_api_version IN NUMBER,
252: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
253: p_commit IN VARCHAR2 := FND_API.G_FALSE,
254: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
255: p_calling_fn IN VARCHAR2,
256: x_return_status OUT NOCOPY VARCHAR2,
249:
250: FUNCTION do_cap_rev
251: (p_api_version IN NUMBER,
252: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
253: p_commit IN VARCHAR2 := FND_API.G_FALSE,
254: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
255: p_calling_fn IN VARCHAR2,
256: x_return_status OUT NOCOPY VARCHAR2,
257: x_msg_count OUT NOCOPY NUMBER,
250: FUNCTION do_cap_rev
251: (p_api_version IN NUMBER,
252: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
253: p_commit IN VARCHAR2 := FND_API.G_FALSE,
254: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
255: p_calling_fn IN VARCHAR2,
256: x_return_status OUT NOCOPY VARCHAR2,
257: x_msg_count OUT NOCOPY NUMBER,
258: x_msg_data OUT NOCOPY VARCHAR2,
312:
313: SAVEPOINT do_cap_rev;
314:
315: -- Initialize message list if p_init_msg_list is set to TRUE.
316: if (fnd_api.to_boolean(p_init_msg_list)) then
317: -- initialize error message stack.
318: fa_srvr_msg.init_server_message;
319:
320: -- initialize debug message stack.
322: end if;
323:
324: -- Check version of the API
325: -- Standard call to check for API call compatibility.
326: if NOT fnd_api.compatible_api_call (
327: G_API_VERSION,
328: p_api_version,
329: G_API_NAME,
330: G_PKG_NAME) then
327: G_API_VERSION,
328: p_api_version,
329: G_API_NAME,
330: G_PKG_NAME) then
331: x_return_status := FND_API.G_RET_STS_ERROR;
332: raise cap_rev_err;
333: end if;
334:
335: -- Bug 5475276 Get the book_type_code if it is not supplied.
589: end if;
590:
591: FA_ADDITION_PUB.do_addition
592: ( p_api_version => 1.0,
593: p_init_msg_list => FND_API.G_FALSE,
594: p_commit => FND_API.G_FALSE,
595: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
596: x_return_status => l_return_status,
597: x_msg_count => l_mesg_count,
590:
591: FA_ADDITION_PUB.do_addition
592: ( p_api_version => 1.0,
593: p_init_msg_list => FND_API.G_FALSE,
594: p_commit => FND_API.G_FALSE,
595: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
596: x_return_status => l_return_status,
597: x_msg_count => l_mesg_count,
598: x_msg_data => l_mesg,
591: FA_ADDITION_PUB.do_addition
592: ( p_api_version => 1.0,
593: p_init_msg_list => FND_API.G_FALSE,
594: p_commit => FND_API.G_FALSE,
595: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
596: x_return_status => l_return_status,
597: x_msg_count => l_mesg_count,
598: x_msg_data => l_mesg,
599: p_calling_fn => null,
609: px_asset_dist_tbl => l_asset_dist_tbl,
610: px_inv_tbl => l_inv_tbl
611: );
612:
613: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
614: raise cap_rev_err;
615: end if;
616:
617: end if;
665: end loop; -- tax books
666:
667: end if; -- corporate book
668:
669: x_return_status := FND_API.G_RET_STS_SUCCESS;
670:
671: return TRUE;
672:
673: EXCEPTION
680:
681: fa_srvr_msg.add_message(calling_fn => l_calling_fn
682: ,p_log_level_rec => p_log_level_rec);
683:
684: x_return_status := FND_API.G_RET_STS_ERROR;
685:
686: return FALSE;
687:
688: when others then
693:
694: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn
695: ,p_log_level_rec => p_log_level_rec);
696:
697: x_return_status := FND_API.G_RET_STS_ERROR;
698:
699: return FALSE;
700:
701: END do_cap_rev;