12: --*********************** Private functions ******************************--
13:
14: FUNCTION do_cap_rev
15: (p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: p_calling_fn IN VARCHAR2,
20: x_return_status OUT NOCOPY VARCHAR2,
13:
14: FUNCTION do_cap_rev
15: (p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: p_calling_fn IN VARCHAR2,
20: x_return_status OUT NOCOPY VARCHAR2,
21: x_msg_count OUT NOCOPY NUMBER,
14: FUNCTION do_cap_rev
15: (p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: p_calling_fn IN VARCHAR2,
20: x_return_status OUT NOCOPY VARCHAR2,
21: x_msg_count OUT NOCOPY NUMBER,
22: x_msg_data OUT NOCOPY VARCHAR2,
41: --*********************** Public procedures ******************************--
42:
43: PROCEDURE do_capitalization
44: (p_api_version IN NUMBER,
45: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
46: p_commit IN VARCHAR2 := FND_API.G_FALSE,
47: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
48: p_calling_fn IN VARCHAR2,
49: x_return_status OUT NOCOPY VARCHAR2,
42:
43: PROCEDURE do_capitalization
44: (p_api_version IN NUMBER,
45: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
46: p_commit IN VARCHAR2 := FND_API.G_FALSE,
47: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
48: p_calling_fn IN VARCHAR2,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
43: PROCEDURE do_capitalization
44: (p_api_version IN NUMBER,
45: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
46: p_commit IN VARCHAR2 := FND_API.G_FALSE,
47: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
48: p_calling_fn IN VARCHAR2,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
51: 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
112: p_data => x_msg_data
113: );
114: -- end if;
115:
116: x_return_status := FND_API.G_RET_STS_ERROR;
117:
118: return;
119:
120: WHEN OTHERS THEN
130: p_data => x_msg_data
131: );
132: -- end if;
133:
134: x_return_status := FND_API.G_RET_STS_ERROR;
135:
136: return;
137:
138: END do_capitalization;
138: END do_capitalization;
139:
140: PROCEDURE do_reverse
141: (p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: p_calling_fn IN VARCHAR2,
146: x_return_status OUT NOCOPY VARCHAR2,
139:
140: PROCEDURE do_reverse
141: (p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: p_calling_fn IN VARCHAR2,
146: x_return_status OUT NOCOPY VARCHAR2,
147: x_msg_count OUT NOCOPY NUMBER,
140: PROCEDURE do_reverse
141: (p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: p_calling_fn IN VARCHAR2,
146: x_return_status OUT NOCOPY VARCHAR2,
147: x_msg_count OUT NOCOPY NUMBER,
148: x_msg_data OUT NOCOPY VARCHAR2,
185: raise rev_err;
186: end if;
187:
188: -- commit if p_commit is TRUE.
189: if (fnd_api.to_boolean (p_commit)) then
190: COMMIT WORK;
191: end if;
192:
193: x_return_status := FND_API.G_RET_STS_SUCCESS;
189: if (fnd_api.to_boolean (p_commit)) then
190: COMMIT WORK;
191: end if;
192:
193: x_return_status := FND_API.G_RET_STS_SUCCESS;
194:
195: return;
196:
197:
210: p_data => x_msg_data
211: );
212: -- end if;
213:
214: x_return_status := FND_API.G_RET_STS_ERROR;
215:
216: return;
217:
218: WHEN OTHERS THEN
228: p_data => x_msg_data
229: );
230: -- end if;
231:
232: x_return_status := FND_API.G_RET_STS_ERROR;
233:
234: return;
235:
236: END do_reverse;
238: --*********************** Private procedures ******************************--
239:
240: FUNCTION do_cap_rev
241: (p_api_version IN NUMBER,
242: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
243: p_commit IN VARCHAR2 := FND_API.G_FALSE,
244: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
245: p_calling_fn IN VARCHAR2,
246: x_return_status OUT NOCOPY VARCHAR2,
239:
240: FUNCTION do_cap_rev
241: (p_api_version IN NUMBER,
242: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
243: p_commit IN VARCHAR2 := FND_API.G_FALSE,
244: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
245: p_calling_fn IN VARCHAR2,
246: x_return_status OUT NOCOPY VARCHAR2,
247: x_msg_count OUT NOCOPY NUMBER,
240: FUNCTION do_cap_rev
241: (p_api_version IN NUMBER,
242: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
243: p_commit IN VARCHAR2 := FND_API.G_FALSE,
244: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
245: p_calling_fn IN VARCHAR2,
246: x_return_status OUT NOCOPY VARCHAR2,
247: x_msg_count OUT NOCOPY NUMBER,
248: x_msg_data OUT NOCOPY VARCHAR2,
307: end if;
308: end if;
309:
310: -- Initialize message list if p_init_msg_list is set to TRUE.
311: if (fnd_api.to_boolean(p_init_msg_list)) then
312: -- initialize error message stack.
313: fa_srvr_msg.init_server_message;
314:
315: -- initialize debug message stack.
317: end if;
318:
319: -- Check version of the API
320: -- Standard call to check for API call compatibility.
321: if NOT fnd_api.compatible_api_call (
322: G_API_VERSION,
323: p_api_version,
324: G_API_NAME,
325: G_PKG_NAME
323: p_api_version,
324: G_API_NAME,
325: G_PKG_NAME
326: ) then
327: x_return_status := FND_API.G_RET_STS_ERROR;
328: raise cap_rev_err;
329: end if;
330:
331: -- Bug 8252607/5475276 Get the book_type_code if it is not supplied.
575: end if;
576:
577: FA_ADDITION_PUB.do_addition
578: ( p_api_version => 1.0,
579: p_init_msg_list => FND_API.G_FALSE,
580: p_commit => FND_API.G_FALSE,
581: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
582: x_return_status => l_return_status,
583: x_msg_count => l_mesg_count,
576:
577: FA_ADDITION_PUB.do_addition
578: ( p_api_version => 1.0,
579: p_init_msg_list => FND_API.G_FALSE,
580: p_commit => FND_API.G_FALSE,
581: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
582: x_return_status => l_return_status,
583: x_msg_count => l_mesg_count,
584: x_msg_data => l_mesg,
577: FA_ADDITION_PUB.do_addition
578: ( p_api_version => 1.0,
579: p_init_msg_list => FND_API.G_FALSE,
580: p_commit => FND_API.G_FALSE,
581: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
582: x_return_status => l_return_status,
583: x_msg_count => l_mesg_count,
584: x_msg_data => l_mesg,
585: p_calling_fn => null,
595: px_asset_dist_tbl => l_asset_dist_tbl,
596: px_inv_tbl => l_inv_tbl
597: );
598:
599: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
600: raise cap_rev_err;
601: end if;
602:
603: end if;
651: end loop; -- tax books
652:
653: end if; -- corporate book
654:
655: x_return_status := FND_API.G_RET_STS_SUCCESS;
656:
657: return TRUE;
658:
659: EXCEPTION
662: ROLLBACK TO do_cap_rev;
663:
664: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
665:
666: x_return_status := FND_API.G_RET_STS_ERROR;
667:
668: return FALSE;
669:
670: when others then
671: ROLLBACK TO do_cap_rev;
672:
673: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
674:
675: x_return_status := FND_API.G_RET_STS_ERROR;
676:
677: return FALSE;
678:
679: END do_cap_rev;