[Home] [Help]
1: PACKAGE BODY PSB_COMMITMENTS_PVT AS
2: /* $Header: PSBVWCLB.pls 120.2 2005/07/13 11:30:35 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_COMMITMENTS_PVT';
5: g_dbug VARCHAR2(2000);
1: PACKAGE BODY PSB_COMMITMENTS_PVT AS
2: /* $Header: PSBVWCLB.pls 120.2 2005/07/13 11:30:35 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_COMMITMENTS_PVT';
5: g_dbug VARCHAR2(2000);
6:
7: TYPE TokNameArray IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
8:
102:
103: IF l_cbc_enabled THEN
104: BEGIN
105:
106: l_plsql_block :='BEGIN IGC_PSB_Commitments_Pvt.Create_Commitment_Line_Items (:l_api_version, :l_init_msg_list, :l_commit, :l_validation_level, :l_return_status, :l_msg_count, :l_msg_data, :l_worksheet_id); END;';
107:
108: EXECUTE IMMEDIATE l_plsql_block USING IN l_api_version, IN l_init_msg_list,
109: IN l_commit, IN l_validation_level,
110: OUT l_return_status, OUT l_msg_count,
233:
234: IF l_cbc_enabled THEN
235: BEGIN
236:
237: l_plsql_block := 'BEGIN IGC_PSB_Commitments_Pvt.Post_Commitment_Worksheet (:l_api_version, :l_init_msg_list, :l_commit, :l_validation_level, :l_return_status, :l_msg_count, :l_msg_data, :l_worksheet_id); END;';
238:
239: EXECUTE IMMEDIATE l_plsql_block USING IN l_api_version, IN l_init_msg_list,
240: IN l_commit, IN l_validation_level,
241: OUT l_return_status, OUT l_msg_count,
364: --Dynamic sql call to the IGC package API to determine if CBC is
365: IF l_cbc_enabled THEN
366: BEGIN
367:
368: l_plsql_block := 'BEGIN IGC_PSB_Commitments_Pvt.Create_Commitment_Revisions (:l_api_version, :l_init_msg_list, :l_commit, :l_validation_level, :l_return_status, :l_msg_count, :l_msg_data, :l_budget_revision_id); END;';
369:
370: EXECUTE IMMEDIATE l_plsql_block USING IN l_api_version, IN l_init_msg_list,
371: IN l_commit, IN l_validation_level,
372: OUT l_return_status, OUT l_msg_count,
495: --Dynamic sql call to the IGC package API to determine if CBC is
496: IF l_cbc_enabled THEN
497: BEGIN
498:
499: l_plsql_block := 'BEGIN IGC_PSB_Commitments_Pvt.Post_Commitment_Revisions (:l_api_version, :l_init_msg_list, :l_commit, :l_validation_level, :l_return_status, :l_msg_count, :l_msg_data, :l_budget_revision_id); END;';
500:
501: EXECUTE IMMEDIATE l_plsql_block USING IN l_api_version, IN l_init_msg_list,
502: IN l_commit, IN l_validation_level,
503: OUT l_return_status, OUT l_msg_count,
627: --Dynamic sql call to the IGC package API to determine if CBC is
628: IF l_cbc_enabled THEN
629: BEGIN
630:
631: l_plsql_block := 'BEGIN IGC_PSB_Commitments_Pvt.Commitment_Funds_Check (:l_api_version, :l_init_msg_list, :l_commit, :l_validation_level, :l_return_status, :l_msg_count, :l_msg_data, :l_budget_revision_id); END;';
632:
633: EXECUTE IMMEDIATE l_plsql_block USING IN l_api_version, IN l_init_msg_list,
634: IN l_commit, IN l_validation_level,
635: OUT l_return_status, OUT l_msg_count,
704: BEGIN
705:
706: --Dynamic sql statement to find whether CBC is enabled
707:
708: l_plsql_block := 'BEGIN :cbc_enabled := IGC_PSB_COMMITMENTS_PVT.IS_Cbc_Enabled(:sob); END;';
709: EXECUTE IMMEDIATE l_plsql_block USING OUT l_cbc_enabled, IN p_set_of_books_id;
710:
711: if FND_API.to_Boolean(l_cbc_enabled) then
712: return TRUE;
777: END add_message;
778:
779: /* ----------------------------------------------------------------------- */
780:
781: END PSB_COMMITMENTS_PVT;