35:
36:
37: PROCEDURE add_new_currency
38: (p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_calling_fn IN VARCHAR2,
43:
36:
37: PROCEDURE add_new_currency
38: (p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_calling_fn IN VARCHAR2,
43:
44: p_src_ledger_id IN NUMBER,
37: PROCEDURE add_new_currency
38: (p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_calling_fn IN VARCHAR2,
43:
44: p_src_ledger_id IN NUMBER,
45: p_alc_ledger_id IN NUMBER,
64:
65: SAVEPOINT create_mc_bc;
66:
67: -- Initialize message list if p_init_msg_list is set to TRUE.
68: if (fnd_api.to_boolean(p_init_msg_list)) then
69: -- initialize error message stack.
70: fa_srvr_msg.init_server_message;
71:
72: -- initialize debug message stack.
98: end if;
99:
100: -- Check version of the API
101: -- Standard call to check for API call compatibility.
102: if NOT fnd_api.compatible_api_call (
103: G_API_VERSION,
104: p_api_version,
105: G_API_NAME,
106: G_PKG_NAME
104: p_api_version,
105: G_API_NAME,
106: G_PKG_NAME
107: ) then
108: x_return_status := FND_API.G_RET_STS_ERROR;
109: raise error_found;
110: end if;
111:
112: open c_book_controls;
135: end if;
136:
137: end loop;
138:
139: x_return_status := FND_API.G_RET_STS_SUCCESS;
140:
141: EXCEPTION
142:
143: when error_found then
149: p_count => x_msg_count,
150: p_data => x_msg_data
151: );
152:
153: x_return_status := FND_API.G_RET_STS_ERROR;
154:
155: when others then
156: ROLLBACK TO create_mc_bc;
157:
162: p_count => x_msg_count,
163: p_data => x_msg_data
164: );
165:
166: x_return_status := FND_API.G_RET_STS_ERROR;
167:
168: END add_new_currency;
169:
170: -----------------------------------------------------------------------------
175: -----------------------------------------------------------------------------
176:
177: PROCEDURE add_new_book
178: (p_api_version IN NUMBER,
179: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
180: p_commit IN VARCHAR2 := FND_API.G_FALSE,
181: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
182: p_calling_fn IN VARCHAR2,
183: p_book_type_code IN VARCHAR2,
176:
177: PROCEDURE add_new_book
178: (p_api_version IN NUMBER,
179: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
180: p_commit IN VARCHAR2 := FND_API.G_FALSE,
181: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
182: p_calling_fn IN VARCHAR2,
183: p_book_type_code IN VARCHAR2,
184: p_secondary_sob_id in number default null,
177: PROCEDURE add_new_book
178: (p_api_version IN NUMBER,
179: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
180: p_commit IN VARCHAR2 := FND_API.G_FALSE,
181: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
182: p_calling_fn IN VARCHAR2,
183: p_book_type_code IN VARCHAR2,
184: p_secondary_sob_id in number default null,
185: p_gl_posting_allowed in varchar2 default 'YES',
210:
211: SAVEPOINT create_mc_bc;
212:
213: -- Initialize message list if p_init_msg_list is set to TRUE.
214: if (fnd_api.to_boolean(p_init_msg_list)) then
215: -- initialize error message stack.
216: fa_srvr_msg.init_server_message;
217:
218: -- initialize debug message stack.
227: end if;
228:
229: -- Check version of the API
230: -- Standard call to check for API call compatibility.
231: if NOT fnd_api.compatible_api_call (
232: G_API_VERSION,
233: p_api_version,
234: G_API_NAME,
235: G_PKG_NAME
233: p_api_version,
234: G_API_NAME,
235: G_PKG_NAME
236: ) then
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: raise error_found;
239: end if;
240:
241: -- get the src ledger id from book controls
320: end if;
321:
322: end loop;
323: end if;
324: x_return_status := FND_API.G_RET_STS_SUCCESS;
325:
326: EXCEPTION
327:
328: when error_found then
334: p_count => x_msg_count,
335: p_data => x_msg_data
336: );
337:
338: x_return_status := FND_API.G_RET_STS_ERROR;
339:
340: when others then
341: ROLLBACK TO create_mc_bc;
342:
347: p_count => x_msg_count,
348: p_data => x_msg_data
349: );
350:
351: x_return_status := FND_API.G_RET_STS_ERROR;
352:
353: END add_new_book;
354:
355: -----------------------------------------------------------------------------
705: -----------------------------------------------------------------------------
706:
707: PROCEDURE disable_currency
708: (p_api_version IN NUMBER,
709: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
710: p_commit IN VARCHAR2 := FND_API.G_FALSE,
711: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
712: p_calling_fn IN VARCHAR2,
713:
706:
707: PROCEDURE disable_currency
708: (p_api_version IN NUMBER,
709: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
710: p_commit IN VARCHAR2 := FND_API.G_FALSE,
711: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
712: p_calling_fn IN VARCHAR2,
713:
714: p_src_ledger_id IN NUMBER,
707: PROCEDURE disable_currency
708: (p_api_version IN NUMBER,
709: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
710: p_commit IN VARCHAR2 := FND_API.G_FALSE,
711: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
712: p_calling_fn IN VARCHAR2,
713:
714: p_src_ledger_id IN NUMBER,
715: p_alc_ledger_id IN NUMBER,
727:
728: SAVEPOINT update_mc_bc;
729:
730: -- Initialize message list if p_init_msg_list is set to TRUE.
731: if (fnd_api.to_boolean(p_init_msg_list)) then
732: -- initialize error message stack.
733: fa_srvr_msg.init_server_message;
734:
735: -- initialize debug message stack.
761: end if;
762:
763: -- Check version of the API
764: -- Standard call to check for API call compatibility.
765: if NOT fnd_api.compatible_api_call (
766: G_API_VERSION,
767: p_api_version,
768: G_API_NAME,
769: G_PKG_NAME
767: p_api_version,
768: G_API_NAME,
769: G_PKG_NAME
770: ) then
771: x_return_status := FND_API.G_RET_STS_ERROR;
772: raise error_found;
773: end if;
774:
775: if g_log_level_rec.statement_level then
789: where set_of_books_id = p_alc_ledger_id
790: and primary_set_of_books_id = p_src_ledger_id
791: and enabled_flag = 'Y';
792:
793: x_return_status := FND_API.G_RET_STS_SUCCESS;
794:
795: EXCEPTION
796:
797: when error_found then
803: p_count => x_msg_count,
804: p_data => x_msg_data
805: );
806:
807: x_return_status := FND_API.G_RET_STS_ERROR;
808:
809: when others then
810: ROLLBACK TO update_mc_bc;
811:
816: p_count => x_msg_count,
817: p_data => x_msg_data
818: );
819:
820: x_return_status := FND_API.G_RET_STS_ERROR;
821:
822: END disable_currency;
823:
824: ----------------------------------------------------------------------------