[Home] [Help]
1030: l_debug_enabled := 'Y';
1031: end if;
1032:
1033:
1034: /* Do API standard code for savepoint, messages, initialize return status */
1035: SAVEPOINT Populate_CoA_Data_SAVE;
1036: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
1037: l_api_name, G_PKG_NAME) THEN
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: /* this is not an error. Report will be empty */
1284: END IF;
1285: /* end if there are any records in header table */
1286:
1287: /* -- standard check of p_commit */
1288: IF FND_API.To_Boolean(p_commit) THEN
1289: COMMIT WORK;
1290: END IF;
1291: /* -- standard call to get message count and if count is 1, get message info */
1287: /* -- standard check of p_commit */
1288: IF FND_API.To_Boolean(p_commit) THEN
1289: COMMIT WORK;
1290: END IF;
1291: /* -- standard call to get message count and if count is 1, get message info */
1292: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1293: --fnd_file.close;
1294: EXCEPTION
1295: WHEN FND_API.G_EXC_ERROR THEN
1364: delete from gmd_coa_details;
1365: delete from gmd_coa_spec_text;
1366: delete from gmd_coa_rslt_text;
1367:
1368: /* -- Do API standard code for savepoint, messages, initialize return status */
1369: SAVEPOINT Dump_To_Db_Tables_SAVE;
1370: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
1371: l_api_name, G_PKG_NAME) THEN
1372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1497: /* empty table is not an error */
1498: END IF;
1499: /* if there is something in header table */
1500:
1501: /* -- standard check of p_commit */
1502: IF FND_API.To_Boolean(p_commit) THEN
1503: COMMIT WORK;
1504: END IF;
1505:
1502: IF FND_API.To_Boolean(p_commit) THEN
1503: COMMIT WORK;
1504: END IF;
1505:
1506: /* -- standard call to get message count and if count is 1, get message info */
1507: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1508:
1509: EXCEPTION
1510: WHEN FND_API.G_EXC_ERROR THEN