33:
34:
35: PROCEDURE add_new_currency
36: (p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
38: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40: p_calling_fn IN VARCHAR2,
41:
34:
35: PROCEDURE add_new_currency
36: (p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
38: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40: p_calling_fn IN VARCHAR2,
41:
42: p_src_ledger_id IN NUMBER,
35: PROCEDURE add_new_currency
36: (p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
38: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40: p_calling_fn IN VARCHAR2,
41:
42: p_src_ledger_id IN NUMBER,
43: p_alc_ledger_id IN NUMBER,
62:
63: SAVEPOINT create_mc_bc;
64:
65: -- Initialize message list if p_init_msg_list is set to TRUE.
66: if (fnd_api.to_boolean(p_init_msg_list)) then
67: -- initialize error message stack.
68: fa_srvr_msg.init_server_message;
69:
70: -- initialize debug message stack.
96: end if;
97:
98: -- Check version of the API
99: -- Standard call to check for API call compatibility.
100: if NOT fnd_api.compatible_api_call (
101: G_API_VERSION,
102: p_api_version,
103: G_API_NAME,
104: G_PKG_NAME
102: p_api_version,
103: G_API_NAME,
104: G_PKG_NAME
105: ) then
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: raise error_found;
108: end if;
109:
110: open c_book_controls;
133: end if;
134:
135: end loop;
136:
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138:
139: EXCEPTION
140:
141: when error_found then
147: p_count => x_msg_count,
148: p_data => x_msg_data
149: );
150:
151: x_return_status := FND_API.G_RET_STS_ERROR;
152:
153: when others then
154: ROLLBACK TO create_mc_bc;
155:
160: p_count => x_msg_count,
161: p_data => x_msg_data
162: );
163:
164: x_return_status := FND_API.G_RET_STS_ERROR;
165:
166: END add_new_currency;
167:
168: -----------------------------------------------------------------------------
173: -----------------------------------------------------------------------------
174:
175: PROCEDURE add_new_book
176: (p_api_version IN NUMBER,
177: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
180: p_calling_fn IN VARCHAR2,
181:
174:
175: PROCEDURE add_new_book
176: (p_api_version IN NUMBER,
177: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
180: p_calling_fn IN VARCHAR2,
181:
182: p_book_type_code IN VARCHAR2,
175: PROCEDURE add_new_book
176: (p_api_version IN NUMBER,
177: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
180: p_calling_fn IN VARCHAR2,
181:
182: p_book_type_code IN VARCHAR2,
183: x_return_status OUT NOCOPY VARCHAR2,
198:
199: SAVEPOINT create_mc_bc;
200:
201: -- Initialize message list if p_init_msg_list is set to TRUE.
202: if (fnd_api.to_boolean(p_init_msg_list)) then
203: -- initialize error message stack.
204: fa_srvr_msg.init_server_message;
205:
206: -- initialize debug message stack.
215: end if;
216:
217: -- Check version of the API
218: -- Standard call to check for API call compatibility.
219: if NOT fnd_api.compatible_api_call (
220: G_API_VERSION,
221: p_api_version,
222: G_API_NAME,
223: G_PKG_NAME
221: p_api_version,
222: G_API_NAME,
223: G_PKG_NAME
224: ) then
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: raise error_found;
227: end if;
228:
229: -- get the src ledger id from book controls
281: end if;
282:
283: end loop;
284:
285: x_return_status := FND_API.G_RET_STS_SUCCESS;
286:
287: EXCEPTION
288:
289: when error_found then
295: p_count => x_msg_count,
296: p_data => x_msg_data
297: );
298:
299: x_return_status := FND_API.G_RET_STS_ERROR;
300:
301: when others then
302: ROLLBACK TO create_mc_bc;
303:
308: p_count => x_msg_count,
309: p_data => x_msg_data
310: );
311:
312: x_return_status := FND_API.G_RET_STS_ERROR;
313:
314: END add_new_book;
315:
316: -----------------------------------------------------------------------------
662: -----------------------------------------------------------------------------
663:
664: PROCEDURE disable_currency
665: (p_api_version IN NUMBER,
666: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
667: p_commit IN VARCHAR2 := FND_API.G_FALSE,
668: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
669: p_calling_fn IN VARCHAR2,
670:
663:
664: PROCEDURE disable_currency
665: (p_api_version IN NUMBER,
666: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
667: p_commit IN VARCHAR2 := FND_API.G_FALSE,
668: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
669: p_calling_fn IN VARCHAR2,
670:
671: p_src_ledger_id IN NUMBER,
664: PROCEDURE disable_currency
665: (p_api_version IN NUMBER,
666: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
667: p_commit IN VARCHAR2 := FND_API.G_FALSE,
668: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
669: p_calling_fn IN VARCHAR2,
670:
671: p_src_ledger_id IN NUMBER,
672: p_alc_ledger_id IN NUMBER,
684:
685: SAVEPOINT update_mc_bc;
686:
687: -- Initialize message list if p_init_msg_list is set to TRUE.
688: if (fnd_api.to_boolean(p_init_msg_list)) then
689: -- initialize error message stack.
690: fa_srvr_msg.init_server_message;
691:
692: -- initialize debug message stack.
718: end if;
719:
720: -- Check version of the API
721: -- Standard call to check for API call compatibility.
722: if NOT fnd_api.compatible_api_call (
723: G_API_VERSION,
724: p_api_version,
725: G_API_NAME,
726: G_PKG_NAME
724: p_api_version,
725: G_API_NAME,
726: G_PKG_NAME
727: ) then
728: x_return_status := FND_API.G_RET_STS_ERROR;
729: raise error_found;
730: end if;
731:
732: if g_log_level_rec.statement_level then
746: where set_of_books_id = p_alc_ledger_id
747: and primary_set_of_books_id = p_src_ledger_id
748: and enabled_flag = 'Y';
749:
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
751:
752: EXCEPTION
753:
754: when error_found then
760: p_count => x_msg_count,
761: p_data => x_msg_data
762: );
763:
764: x_return_status := FND_API.G_RET_STS_ERROR;
765:
766: when others then
767: ROLLBACK TO update_mc_bc;
768:
773: p_count => x_msg_count,
774: p_data => x_msg_data
775: );
776:
777: x_return_status := FND_API.G_RET_STS_ERROR;
778:
779: END disable_currency;
780:
781: ----------------------------------------------------------------------------