90: -- Initialize message list.
91: FND_MSG_PUB.initialize;
92:
93: -- Initialize API return status to success
94: l_return_status := FND_API.G_RET_STS_SUCCESS;
95:
96: -------------------------------------------------------------------------
97: -- Get system set-up information e.g. set_of_books, chart_of_accounts
98: -- purchase_encumbrance_flag etc.
99: -------------------------------------------------------------------------
100: l_stmt_num := 20;
101: Get_SystemSetup (
102: p_api_version => 1.0,
103: p_init_msg_list => FND_API.G_FALSE,
104: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
105: x_return_status => l_return_status,
106: x_msg_count => l_msg_count,
107: x_msg_data => l_msg_data,
100: l_stmt_num := 20;
101: Get_SystemSetup (
102: p_api_version => 1.0,
103: p_init_msg_list => FND_API.G_FALSE,
104: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
105: x_return_status => l_return_status,
106: x_msg_count => l_msg_count,
107: x_msg_data => l_msg_data,
108: p_period_name => p_period_name,
108: p_period_name => p_period_name,
109: x_sys_setup_rec => l_sys_setup_rec
110: );
111: -- If return status is not success, add message to the log
112: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
113: l_msg_data := 'Failed getting system setup' ;
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116:
110: );
111: -- If return status is not success, add message to the log
112: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
113: l_msg_data := 'Failed getting system setup' ;
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116:
117: -------------------------------------------------------------------------
118: -- Call the common API CST_PerEndAccruals_PVT.Create_PerEndAccruals()
121: -------------------------------------------------------------------------
122: l_stmt_num := 40;
123: CST_PerEndAccruals_PVT.Create_PerEndAccruals (
124: p_api_version => 1.0,
125: p_init_msg_list => FND_API.G_FALSE,
126: p_commit => FND_API.G_FALSE,
127: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
128: x_return_status => l_return_status,
129: x_msg_count => l_msg_count,
122: l_stmt_num := 40;
123: CST_PerEndAccruals_PVT.Create_PerEndAccruals (
124: p_api_version => 1.0,
125: p_init_msg_list => FND_API.G_FALSE,
126: p_commit => FND_API.G_FALSE,
127: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
128: x_return_status => l_return_status,
129: x_msg_count => l_msg_count,
130: x_msg_data => l_msg_data,
123: CST_PerEndAccruals_PVT.Create_PerEndAccruals (
124: p_api_version => 1.0,
125: p_init_msg_list => FND_API.G_FALSE,
126: p_commit => FND_API.G_FALSE,
127: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
128: x_return_status => l_return_status,
129: x_msg_count => l_msg_count,
130: x_msg_data => l_msg_data,
131: p_min_accrual_amount => p_min_accrual_amount,
137: p_closed_pos => 'N',
138: p_calling_api => CST_PerEndAccruals_PVT.G_RECEIPT_ACCRUAL_PER_END
139: );
140: -- If return status is not success, add message to the log
141: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
142: l_msg_data := 'Failed generating Period End Accrual information';
143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
144: END IF;
145:
139: );
140: -- If return status is not success, add message to the log
141: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
142: l_msg_data := 'Failed generating Period End Accrual information';
143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
144: END IF;
145:
146: -------------------------------------------------------------------------
147: -- Create events in RCV_ACCOUNTING_EVENTS
148: -------------------------------------------------------------------------
149: l_stmt_num := 50;
150: Seed_RcvAccountingEvents (
151: p_api_version => 1.0,
152: p_init_msg_list => FND_API.G_FALSE,
153: p_commit => FND_API.G_FALSE,
154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
155: x_return_status => l_return_status,
156: x_msg_count => l_msg_count,
149: l_stmt_num := 50;
150: Seed_RcvAccountingEvents (
151: p_api_version => 1.0,
152: p_init_msg_list => FND_API.G_FALSE,
153: p_commit => FND_API.G_FALSE,
154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
155: x_return_status => l_return_status,
156: x_msg_count => l_msg_count,
157: x_msg_data => l_msg_data,
150: Seed_RcvAccountingEvents (
151: p_api_version => 1.0,
152: p_init_msg_list => FND_API.G_FALSE,
153: p_commit => FND_API.G_FALSE,
154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
155: x_return_status => l_return_status,
156: x_msg_count => l_msg_count,
157: x_msg_data => l_msg_data,
158: p_sys_setup_rec => l_sys_setup_rec
157: x_msg_data => l_msg_data,
158: p_sys_setup_rec => l_sys_setup_rec
159: );
160: -- If return status is not success, add message to the log
161: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
162: l_msg_data := 'Failed creating event in RCV_ACCOUNTING_EVENTS' ;
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164: END IF;
165:
159: );
160: -- If return status is not success, add message to the log
161: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
162: l_msg_data := 'Failed creating event in RCV_ACCOUNTING_EVENTS' ;
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164: END IF;
165:
166: -------------------------------------------------------------------------
167: -- Create accounting entries in RCV_RECEIVING_SUB_LEDGER
168: -------------------------------------------------------------------------
169: l_stmt_num := 60;
170: Create_AccrualAccount (
171: p_api_version => 1.0,
172: p_init_msg_list => FND_API.G_FALSE,
173: p_commit => FND_API.G_FALSE,
174: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
175: x_return_status => l_return_status,
176: x_msg_count => l_msg_count,
169: l_stmt_num := 60;
170: Create_AccrualAccount (
171: p_api_version => 1.0,
172: p_init_msg_list => FND_API.G_FALSE,
173: p_commit => FND_API.G_FALSE,
174: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
175: x_return_status => l_return_status,
176: x_msg_count => l_msg_count,
177: x_msg_data => l_msg_data,
170: Create_AccrualAccount (
171: p_api_version => 1.0,
172: p_init_msg_list => FND_API.G_FALSE,
173: p_commit => FND_API.G_FALSE,
174: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
175: x_return_status => l_return_status,
176: x_msg_count => l_msg_count,
177: x_msg_data => l_msg_data,
178: p_sys_setup_rec => l_sys_setup_rec
177: x_msg_data => l_msg_data,
178: p_sys_setup_rec => l_sys_setup_rec
179: );
180: -- If return status is not success, add message to the log
181: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
182: l_msg_data := 'Failed creating Period End Accrual entries ' ;
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
179: );
180: -- If return status is not success, add message to the log
181: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
182: l_msg_data := 'Failed creating Period End Accrual entries ' ;
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
186: -------------------------------------------------------------------------
187: -- Update the Accrued PO distribution, and mark accrued_flag as 'Y'
204: x_return_status => l_return_status
205: );
206:
207: -- If return status is not success, add message to the log
208: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
209: l_msg_data := 'Failed writing log messages' ;
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
206:
207: -- If return status is not success, add message to the log
208: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
209: l_msg_data := 'Failed writing log messages' ;
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
213: -- Procedure level log message for exit point
214: IF (l_pLog) THEN
221:
222: COMMIT WORK;
223:
224: EXCEPTION
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: ROLLBACK TO Start_Process_PVT;
227:
228: IF (l_exceptionLog) THEN
229: FND_LOG.STRING(
358: 'Insert_AccrualSubLedger <<');
359: END IF;
360:
361: -- Standard call to check for call compatibility.
362: IF NOT FND_API.Compatible_API_Call ( l_api_version,
363: p_api_version,
364: l_api_name,
365: G_PKG_NAME )
366: THEN
363: p_api_version,
364: l_api_name,
365: G_PKG_NAME )
366: THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369:
370: -- Initialize message list if p_init_msg_list is set to TRUE.
371: IF FND_API.to_Boolean( p_init_msg_list ) THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369:
370: -- Initialize message list if p_init_msg_list is set to TRUE.
371: IF FND_API.to_Boolean( p_init_msg_list ) THEN
372: FND_MSG_PUB.initialize;
373: END IF;
374:
375: -- Initialize API return status to success
372: FND_MSG_PUB.initialize;
373: END IF;
374:
375: -- Initialize API return status to success
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377: l_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: l_stmt_num := 10;
380: l_user_id := FND_GLOBAL.USER_ID;
373: END IF;
374:
375: -- Initialize API return status to success
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377: l_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: l_stmt_num := 10;
380: l_user_id := FND_GLOBAL.USER_ID;
381: l_login_id := FND_GLOBAL.LOGIN_ID;
668: p_data => x_msg_data
669: );
670:
671: -- Standard check of p_commit.
672: IF FND_API.To_Boolean( p_commit ) THEN
673: COMMIT WORK;
674: END IF;
675:
676: EXCEPTION
674: END IF;
675:
676: EXCEPTION
677:
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO Seed_RcvAccountingEvents_PVT;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681:
682: IF (l_exceptionLog) THEN
676: EXCEPTION
677:
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO Seed_RcvAccountingEvents_PVT;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681:
682: IF (l_exceptionLog) THEN
683: FND_LOG.STRING(
684: FND_LOG.LEVEL_EXCEPTION,
693: );
694:
695: WHEN OTHERS THEN
696: ROLLBACK TO Seed_RcvAccountingEvents_PVT;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698:
699: -- Unexpected level log message
700: IF (l_uLog) THEN
701: FND_LOG.STRING(
838: 'Create_AccrualAccount <<');
839: END IF;
840:
841: -- Standard call to check for call compatibility.
842: IF NOT FND_API.Compatible_API_Call ( l_api_version,
843: p_api_version,
844: l_api_name,
845: G_PKG_NAME )
846: THEN
843: p_api_version,
844: l_api_name,
845: G_PKG_NAME )
846: THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849:
850: -- Initialize message list if p_init_msg_list is set to TRUE.
851: IF FND_API.to_Boolean( p_init_msg_list ) THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849:
850: -- Initialize message list if p_init_msg_list is set to TRUE.
851: IF FND_API.to_Boolean( p_init_msg_list ) THEN
852: FND_MSG_PUB.initialize;
853: END IF;
854:
855: -- Initialize API return status to success
852: FND_MSG_PUB.initialize;
853: END IF;
854:
855: -- Initialize API return status to success
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857: l_return_status := FND_API.G_RET_STS_SUCCESS;
858:
859: l_func_currency_code := p_sys_setup_rec.functional_currency_code;
860:
853: END IF;
854:
855: -- Initialize API return status to success
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857: l_return_status := FND_API.G_RET_STS_SUCCESS;
858:
859: l_func_currency_code := p_sys_setup_rec.functional_currency_code;
860:
861: -- Loop for each row of accrual cursor
906: l_accrual_info_rec.parent_rcv_acc_event_id := NULL;
907: ELSE
908: l_msg_data := 'Failed getting corresponding RCV_ACCOUNTING_EVENT_ID for distribution_id :'
909: || l_accrual_rec.distribution_id;
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: -- Populate the accrual_info_rec record
914: l_stmt_num := 70;
959: -- Add a new row to the PL/SQL tables for the accrual_info_rec
960: l_stmt_num := 90;
961: Insert_Account (
962: p_api_version => 1.0,
963: p_init_msg_list => FND_API.G_FALSE,
964: p_commit => FND_API.G_FALSE,
965: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
966: x_return_status => l_return_status,
967: x_msg_count => x_msg_count,
960: l_stmt_num := 90;
961: Insert_Account (
962: p_api_version => 1.0,
963: p_init_msg_list => FND_API.G_FALSE,
964: p_commit => FND_API.G_FALSE,
965: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
966: x_return_status => l_return_status,
967: x_msg_count => x_msg_count,
968: x_msg_data => x_msg_data,
961: Insert_Account (
962: p_api_version => 1.0,
963: p_init_msg_list => FND_API.G_FALSE,
964: p_commit => FND_API.G_FALSE,
965: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
966: x_return_status => l_return_status,
967: x_msg_count => x_msg_count,
968: x_msg_data => x_msg_data,
969: p_accrual_info_rec => l_accrual_info_rec,
969: p_accrual_info_rec => l_accrual_info_rec,
970: p_sys_setup_rec => p_sys_setup_rec
971: );
972: -- If return status is not success, add message to the log
973: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
974: l_msg_data := 'Failed inserting data in Accrual table';
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;
977:
971: );
972: -- If return status is not success, add message to the log
973: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
974: l_msg_data := 'Failed inserting data in Accrual table';
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;
977:
978: END IF;
979:
1007: -- Add a new row to the PL/SQL tables for the accrual_info_rec
1008: l_stmt_num := 110;
1009: Insert_Account (
1010: p_api_version => 1.0,
1011: p_init_msg_list => FND_API.G_FALSE,
1012: p_commit => FND_API.G_FALSE,
1013: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1014: x_return_status => l_return_status,
1015: x_msg_count => x_msg_count,
1008: l_stmt_num := 110;
1009: Insert_Account (
1010: p_api_version => 1.0,
1011: p_init_msg_list => FND_API.G_FALSE,
1012: p_commit => FND_API.G_FALSE,
1013: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1014: x_return_status => l_return_status,
1015: x_msg_count => x_msg_count,
1016: x_msg_data => x_msg_data,
1009: Insert_Account (
1010: p_api_version => 1.0,
1011: p_init_msg_list => FND_API.G_FALSE,
1012: p_commit => FND_API.G_FALSE,
1013: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1014: x_return_status => l_return_status,
1015: x_msg_count => x_msg_count,
1016: x_msg_data => x_msg_data,
1017: p_accrual_info_rec => l_accrual_info_rec,
1017: p_accrual_info_rec => l_accrual_info_rec,
1018: p_sys_setup_rec => p_sys_setup_rec
1019: );
1020: -- If return status is not success, add message to the log
1021: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1022: l_msg_data := 'Failed inserting data in Accrual table';
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025:
1019: );
1020: -- If return status is not success, add message to the log
1021: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1022: l_msg_data := 'Failed inserting data in Accrual table';
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025:
1026: END IF;
1027:
1043: ELSE
1044:
1045: l_msg_data := 'Failed getting corresponding RCV_ACCOUNTING_EVENT_ID for distribution_id :'
1046: || l_accrual_rec.distribution_id;
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048:
1049: END IF;
1050:
1051: l_accrual_info_rec.code_combination_id := l_accrual_rec.enc_credit_ccid;
1076: -- corresponding to the encumbrance reversals
1077: l_stmt_num := 140;
1078: Insert_Account (
1079: p_api_version => 1.0,
1080: p_init_msg_list => FND_API.G_FALSE,
1081: p_commit => FND_API.G_FALSE,
1082: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1083: x_return_status => l_return_status,
1084: x_msg_count => x_msg_count,
1077: l_stmt_num := 140;
1078: Insert_Account (
1079: p_api_version => 1.0,
1080: p_init_msg_list => FND_API.G_FALSE,
1081: p_commit => FND_API.G_FALSE,
1082: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1083: x_return_status => l_return_status,
1084: x_msg_count => x_msg_count,
1085: x_msg_data => x_msg_data,
1078: Insert_Account (
1079: p_api_version => 1.0,
1080: p_init_msg_list => FND_API.G_FALSE,
1081: p_commit => FND_API.G_FALSE,
1082: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1083: x_return_status => l_return_status,
1084: x_msg_count => x_msg_count,
1085: x_msg_data => x_msg_data,
1086: p_accrual_info_rec => l_accrual_info_rec,
1086: p_accrual_info_rec => l_accrual_info_rec,
1087: p_sys_setup_rec => p_sys_setup_rec
1088: );
1089: -- If return status is not success, add message to the log
1090: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1091: l_msg_data := 'Failed inserting data in Accrual table';
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: END IF;
1094:
1088: );
1089: -- If return status is not success, add message to the log
1090: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1091: l_msg_data := 'Failed inserting data in Accrual table';
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: END IF;
1094:
1095: END IF;
1096:
1101: -------------------------------------------------------------------------
1102: l_stmt_num := 160;
1103: Insert_AccrualSubLedger (
1104: p_api_version => 1.0,
1105: p_init_msg_list => FND_API.G_FALSE,
1106: p_commit => FND_API.G_FALSE,
1107: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1108: x_return_status => l_return_status,
1109: x_msg_count => x_msg_count,
1102: l_stmt_num := 160;
1103: Insert_AccrualSubLedger (
1104: p_api_version => 1.0,
1105: p_init_msg_list => FND_API.G_FALSE,
1106: p_commit => FND_API.G_FALSE,
1107: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1108: x_return_status => l_return_status,
1109: x_msg_count => x_msg_count,
1110: x_msg_data => x_msg_data,
1103: Insert_AccrualSubLedger (
1104: p_api_version => 1.0,
1105: p_init_msg_list => FND_API.G_FALSE,
1106: p_commit => FND_API.G_FALSE,
1107: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1108: x_return_status => l_return_status,
1109: x_msg_count => x_msg_count,
1110: x_msg_data => x_msg_data,
1111: p_sys_setup_rec => p_sys_setup_rec
1110: x_msg_data => x_msg_data,
1111: p_sys_setup_rec => p_sys_setup_rec
1112: );
1113: -- If return status is not success, add message to the log
1114: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1115: l_msg_data := 'Failed inserting data in RCV_RECEIVING_SUB_LEDGER';
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: END IF;
1118:
1112: );
1113: -- If return status is not success, add message to the log
1114: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1115: l_msg_data := 'Failed inserting data in RCV_RECEIVING_SUB_LEDGER';
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: END IF;
1118:
1119: IF (g_counter = 0) THEN
1120: GOTO END_PROCEDURE;
1139: l_trx_rec.ENCUMBRANCE_FLAG := p_sys_setup_rec.purch_encumbrance_flag;
1140:
1141: CST_XLA_PVT.Create_RCVXLAEvent(
1142: p_api_version => 1.0,
1143: p_init_msg_list => FND_API.G_FALSE,
1144: p_commit => FND_API.G_FALSE,
1145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1146: x_return_status => l_return_status,
1147: x_msg_count => x_msg_count,
1140:
1141: CST_XLA_PVT.Create_RCVXLAEvent(
1142: p_api_version => 1.0,
1143: p_init_msg_list => FND_API.G_FALSE,
1144: p_commit => FND_API.G_FALSE,
1145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1146: x_return_status => l_return_status,
1147: x_msg_count => x_msg_count,
1148: x_msg_data => x_msg_data,
1141: CST_XLA_PVT.Create_RCVXLAEvent(
1142: p_api_version => 1.0,
1143: p_init_msg_list => FND_API.G_FALSE,
1144: p_commit => FND_API.G_FALSE,
1145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1146: x_return_status => l_return_status,
1147: x_msg_count => x_msg_count,
1148: x_msg_data => x_msg_data,
1149: p_trx_info => l_trx_rec
1148: x_msg_data => x_msg_data,
1149: p_trx_info => l_trx_rec
1150: );
1151: -- If return status is not success, add message to the log
1152: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1153: l_msg_data := 'Error raising SLA Event';
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156: END IF;
1150: );
1151: -- If return status is not success, add message to the log
1152: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1153: l_msg_data := 'Error raising SLA Event';
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156: END IF;
1157:
1158: END LOOP;*/
1255: ,p_retcode => l_retcode
1256: );
1257: IF ( l_retcode <> 0) THEN
1258: l_msg_data := 'Error in Creating SLA Accounting For Actuals';
1259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1260: END IF;
1261: /*Populate PSA_BC_XLA_EVENTS_GT for Encumbrance Event*/
1262: l_stmt_num := 320;
1263: DELETE FROM PSA_BC_XLA_EVENTS_GT;
1292: FND_PROFILE.get('RESP_APPL_ID', l_resp_appl_id);
1293:
1294: PSA_BC_XLA_PUB.Budgetary_Control (
1295: p_api_version => 1.0,
1296: p_init_msg_list => FND_API.G_FALSE,
1297: x_return_status => l_return_status,
1298: x_msg_count => x_msg_count,
1299: x_msg_data => x_msg_data,
1300: p_application_id => G_CST_APPLICATION_ID,
1304: p_user_resp_id => l_resp_id,
1305: x_status_code => l_bc_status,
1306: x_packet_id => l_packet_id );
1307: IF ( l_bc_status in ('XLA_ERROR', 'FATAL') OR
1308: l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1309: l_msg_data := 'Error in Encumbrance Accounting/Budgetory Control';
1310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1311: END IF;
1312: END IF;/*Encumbrance Flag*/
1306: x_packet_id => l_packet_id );
1307: IF ( l_bc_status in ('XLA_ERROR', 'FATAL') OR
1308: l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1309: l_msg_data := 'Error in Encumbrance Accounting/Budgetory Control';
1310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1311: END IF;
1312: END IF;/*Encumbrance Flag*/
1313:
1314: /*Bug6987381 End */
1328: p_data => x_msg_data
1329: );
1330:
1331: -- Standard check of p_commit.
1332: IF FND_API.To_Boolean( p_commit ) THEN
1333: COMMIT WORK;
1334: END IF;
1335:
1336: EXCEPTION
1334: END IF;
1335:
1336: EXCEPTION
1337:
1338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1339: ROLLBACK TO Create_AccrualAccount_PVT;
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1341:
1342: IF (l_exceptionLog) THEN
1336: EXCEPTION
1337:
1338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1339: ROLLBACK TO Create_AccrualAccount_PVT;
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1341:
1342: IF (l_exceptionLog) THEN
1343: FND_LOG.STRING(
1344: FND_LOG.LEVEL_EXCEPTION,
1353: );
1354:
1355: WHEN OTHERS THEN
1356: ROLLBACK TO Create_AccrualAccount_PVT;
1357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358:
1359: -- Unexpected level log message
1360: IF (l_uLog) THEN
1361: FND_LOG.STRING(
1431: 'Insert_Account <<');
1432: END IF;
1433:
1434: -- Standard call to check for call compatibility.
1435: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1436: p_api_version,
1437: l_api_name,
1438: G_PKG_NAME )
1439: THEN
1436: p_api_version,
1437: l_api_name,
1438: G_PKG_NAME )
1439: THEN
1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1441: END IF;
1442:
1443: -- Initialize message list if p_init_msg_list is set to TRUE.
1444: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1441: END IF;
1442:
1443: -- Initialize message list if p_init_msg_list is set to TRUE.
1444: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1445: FND_MSG_PUB.initialize;
1446: END IF;
1447:
1448: -- Initialize API return status to success
1445: FND_MSG_PUB.initialize;
1446: END IF;
1447:
1448: -- Initialize API return status to success
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450: l_return_status := FND_API.G_RET_STS_SUCCESS;
1451:
1452: -- Get the position of the new row to be added
1453: g_counter := g_distribution_id_tbl.COUNT + 1;
1446: END IF;
1447:
1448: -- Initialize API return status to success
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450: l_return_status := FND_API.G_RET_STS_SUCCESS;
1451:
1452: -- Get the position of the new row to be added
1453: g_counter := g_distribution_id_tbl.COUNT + 1;
1454:
1493: -------------------------------------------------------------------------
1494: l_stmt_num := 40;
1495: Insert_AccrualSubLedger (
1496: p_api_version => 1.0,
1497: p_init_msg_list => FND_API.G_FALSE,
1498: p_commit => FND_API.G_FALSE,
1499: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1500: x_return_status => l_return_status,
1501: x_msg_count => x_msg_count,
1494: l_stmt_num := 40;
1495: Insert_AccrualSubLedger (
1496: p_api_version => 1.0,
1497: p_init_msg_list => FND_API.G_FALSE,
1498: p_commit => FND_API.G_FALSE,
1499: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1500: x_return_status => l_return_status,
1501: x_msg_count => x_msg_count,
1502: x_msg_data => x_msg_data,
1495: Insert_AccrualSubLedger (
1496: p_api_version => 1.0,
1497: p_init_msg_list => FND_API.G_FALSE,
1498: p_commit => FND_API.G_FALSE,
1499: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1500: x_return_status => l_return_status,
1501: x_msg_count => x_msg_count,
1502: x_msg_data => x_msg_data,
1503: p_sys_setup_rec => p_sys_setup_rec
1502: x_msg_data => x_msg_data,
1503: p_sys_setup_rec => p_sys_setup_rec
1504: );
1505: -- If return status is not success, add message to the log
1506: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1507: l_msg_data := 'Failed inserting data in RCV_RECEIVING_SUB_LEDGER';
1508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1509: END IF;
1510:
1504: );
1505: -- If return status is not success, add message to the log
1506: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1507: l_msg_data := 'Failed inserting data in RCV_RECEIVING_SUB_LEDGER';
1508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1509: END IF;
1510:
1511: END IF;
1512:
1525: p_data => x_msg_data
1526: );
1527:
1528: -- Standard check of p_commit.
1529: IF FND_API.To_Boolean( p_commit ) THEN
1530: COMMIT WORK;
1531: END IF;
1532:
1533: EXCEPTION
1531: END IF;
1532:
1533: EXCEPTION
1534:
1535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1536: ROLLBACK TO Insert_Account_PVT;
1537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1538:
1539: IF (l_exceptionLog) THEN
1533: EXCEPTION
1534:
1535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1536: ROLLBACK TO Insert_Account_PVT;
1537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1538:
1539: IF (l_exceptionLog) THEN
1540: FND_LOG.STRING(
1541: FND_LOG.LEVEL_EXCEPTION,
1550: );
1551:
1552: WHEN OTHERS THEN
1553: ROLLBACK TO Insert_Account_PVT;
1554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555:
1556: -- Unexpected level log message
1557: IF (l_uLog) THEN
1558: FND_LOG.STRING(
1630: 'Insert_AccrualSubLedger <<');
1631: END IF;
1632:
1633: -- Standard call to check for call compatibility.
1634: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1635: p_api_version,
1636: l_api_name,
1637: G_PKG_NAME )
1638: THEN
1635: p_api_version,
1636: l_api_name,
1637: G_PKG_NAME )
1638: THEN
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: END IF;
1641:
1642: -- Initialize message list if p_init_msg_list is set to TRUE.
1643: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: END IF;
1641:
1642: -- Initialize message list if p_init_msg_list is set to TRUE.
1643: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1644: FND_MSG_PUB.initialize;
1645: END IF;
1646:
1647: -- Initialize API return status to success
1644: FND_MSG_PUB.initialize;
1645: END IF;
1646:
1647: -- Initialize API return status to success
1648: x_return_status := FND_API.G_RET_STS_SUCCESS;
1649: l_return_status := FND_API.G_RET_STS_SUCCESS;
1650:
1651: l_stmt_num := 10;
1652: l_user_id := FND_GLOBAL.USER_ID;
1645: END IF;
1646:
1647: -- Initialize API return status to success
1648: x_return_status := FND_API.G_RET_STS_SUCCESS;
1649: l_return_status := FND_API.G_RET_STS_SUCCESS;
1650:
1651: l_stmt_num := 10;
1652: l_user_id := FND_GLOBAL.USER_ID;
1653: l_login_id := FND_GLOBAL.LOGIN_ID;
1780: p_data => x_msg_data
1781: );
1782:
1783: -- Standard check of p_commit.
1784: IF FND_API.To_Boolean( p_commit ) THEN
1785: COMMIT WORK;
1786: END IF;
1787:
1788: EXCEPTION
1786: END IF;
1787:
1788: EXCEPTION
1789:
1790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1791: ROLLBACK TO Insert_AccrualSubLedger_PVT;
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793:
1794: IF (l_exceptionLog) THEN
1788: EXCEPTION
1789:
1790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1791: ROLLBACK TO Insert_AccrualSubLedger_PVT;
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793:
1794: IF (l_exceptionLog) THEN
1795: FND_LOG.STRING(
1796: FND_LOG.LEVEL_EXCEPTION,
1805: );
1806:
1807: WHEN OTHERS THEN
1808: ROLLBACK TO Insert_AccrualSubLedger_PVT;
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810:
1811: -- Unexpected level log message
1812: IF (l_uLog) THEN
1813: FND_LOG.STRING(
1892: 'p_period_name =' || p_period_name);
1893: END IF;
1894:
1895: -- Standard call to check for call compatibility.
1896: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1897: p_api_version,
1898: l_api_name,
1899: G_PKG_NAME )
1900: THEN
1897: p_api_version,
1898: l_api_name,
1899: G_PKG_NAME )
1900: THEN
1901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1902: END IF;
1903:
1904: -- Initialize message list if p_init_msg_list is set to TRUE.
1905: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1902: END IF;
1903:
1904: -- Initialize message list if p_init_msg_list is set to TRUE.
1905: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1906: FND_MSG_PUB.initialize;
1907: END IF;
1908:
1909: -- Initialize API return status to success
1906: FND_MSG_PUB.initialize;
1907: END IF;
1908:
1909: -- Initialize API return status to success
1910: x_return_status := FND_API.G_RET_STS_SUCCESS;
1911: l_return_status := FND_API.G_RET_STS_SUCCESS;
1912:
1913: -- Check whether GL is installed
1914: l_stmt_num := 20;
1907: END IF;
1908:
1909: -- Initialize API return status to success
1910: x_return_status := FND_API.G_RET_STS_SUCCESS;
1911: l_return_status := FND_API.G_RET_STS_SUCCESS;
1912:
1913: -- Check whether GL is installed
1914: l_stmt_num := 20;
1915: l_gl_installed := FND_INSTALLATION.GET_APP_INFO ( 'SQLGL',
2015: p_data => x_msg_data
2016: );
2017:
2018: EXCEPTION
2019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2020: ROLLBACK TO Get_SystemSetup_PVT;
2021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2022:
2023: IF (l_exceptionLog) THEN
2017:
2018: EXCEPTION
2019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2020: ROLLBACK TO Get_SystemSetup_PVT;
2021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2022:
2023: IF (l_exceptionLog) THEN
2024: FND_LOG.STRING(
2025: FND_LOG.LEVEL_EXCEPTION,
2034: );
2035:
2036: WHEN OTHERS THEN
2037: ROLLBACK TO Get_SystemSetup_PVT;
2038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2039:
2040: -- Unexpected level log message
2041: IF (l_uLog) THEN
2042: FND_LOG.STRING(