80: END Insert_Process;
81:
82: PROCEDURE Insert_Audit_Units(
83: p_api_version_number IN NUMBER := 1.0,
84: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
85: p_commit IN VARCHAR2 := FND_API.g_false,
86: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
87: p_certification_id IN NUMBER,
88: x_return_status OUT nocopy VARCHAR2,
81:
82: PROCEDURE Insert_Audit_Units(
83: p_api_version_number IN NUMBER := 1.0,
84: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
85: p_commit IN VARCHAR2 := FND_API.g_false,
86: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
87: p_certification_id IN NUMBER,
88: x_return_status OUT nocopy VARCHAR2,
89: x_msg_count OUT nocopy NUMBER,
82: PROCEDURE Insert_Audit_Units(
83: p_api_version_number IN NUMBER := 1.0,
84: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
85: p_commit IN VARCHAR2 := FND_API.g_false,
86: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
87: p_certification_id IN NUMBER,
88: x_return_status OUT nocopy VARCHAR2,
89: x_msg_count OUT nocopy NUMBER,
90: x_msg_data OUT nocopy VARCHAR2
107: and audit_v.organization_id = org_v.child_organization_id;
108: l_api_name VARCHAR2(150) := 'Insert_Audit_Units';
109: BEGIN
110:
111: x_return_status := fnd_api.g_ret_sts_success;
112:
113: SAVEPOINT INSERT_AUDIT_UNITS_PVT;
114:
115: delete from AMW_EXECUTION_SCOPE
323:
324: END LOOP;
325: EXCEPTION WHEN OTHERS THEN
326: rollback to INSERT_AUDIT_UNITS_PVT;
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name, l_api_name);
329: FND_MSG_PUB.Count_And_Get(
330: p_encoded => FND_API.G_FALSE,
331: p_count => x_msg_count,
326: rollback to INSERT_AUDIT_UNITS_PVT;
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name, l_api_name);
329: FND_MSG_PUB.Count_And_Get(
330: p_encoded => FND_API.G_FALSE,
331: p_count => x_msg_count,
332: p_data => x_msg_data);
333: END Insert_Audit_Units;
334:
337: -- (amwphierb.pls). amwphierb.pls has been obsolete.
338: /*
339: PROCEDURE insert_specific_audit_units(
340: p_api_version_number IN NUMBER := 1.0,
341: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
342: p_commit IN VARCHAR2 := FND_API.g_false,
343: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
344: p_certification_id IN NUMBER,
345: p_org_tbl IN AMW_POPULATE_HIERARCHIES_PVT.g_org_tbl%TYPE,
338: /*
339: PROCEDURE insert_specific_audit_units(
340: p_api_version_number IN NUMBER := 1.0,
341: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
342: p_commit IN VARCHAR2 := FND_API.g_false,
343: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
344: p_certification_id IN NUMBER,
345: p_org_tbl IN AMW_POPULATE_HIERARCHIES_PVT.g_org_tbl%TYPE,
346: p_process_tbl IN AMW_POPULATE_HIERARCHIES_PVT.g_process_tbl%TYPE,
339: PROCEDURE insert_specific_audit_units(
340: p_api_version_number IN NUMBER := 1.0,
341: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
342: p_commit IN VARCHAR2 := FND_API.g_false,
343: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
344: p_certification_id IN NUMBER,
345: p_org_tbl IN AMW_POPULATE_HIERARCHIES_PVT.g_org_tbl%TYPE,
346: p_process_tbl IN AMW_POPULATE_HIERARCHIES_PVT.g_process_tbl%TYPE,
347: x_return_status OUT nocopy VARCHAR2,
389:
390: SAVEPOINT INSERT_SPEC_AUDIT_UNITS_PVT;
391:
392: -- Standard call to check for call compatibility.
393: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
394: p_api_version_number,
395: l_api_name,
396: G_PKG_NAME)
397: THEN
394: p_api_version_number,
395: l_api_name,
396: G_PKG_NAME)
397: THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
400:
401: -- Initialize message list if p_init_msg_list is set to TRUE.
402: IF FND_API.to_Boolean( p_init_msg_list )
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
400:
401: -- Initialize message list if p_init_msg_list is set to TRUE.
402: IF FND_API.to_Boolean( p_init_msg_list )
403: THEN
404: FND_MSG_PUB.initialize;
405: END IF;
406:
404: FND_MSG_PUB.initialize;
405: END IF;
406:
407: -- Initialize API return status to SUCCESS
408: x_return_status := FND_API.G_RET_STS_SUCCESS;
409:
410: DELETE FROM AMW_EXECUTION_SCOPE
411: WHERE entity_id = p_certification_id
412: AND entity_type = 'PROCESS_CERTIFICATION';
655: END LOOP;--each_rec IN 1..p_org_tbl.count
656:
657: EXCEPTION WHEN OTHERS THEN
658: rollback to INSERT_SPEC_AUDIT_UNITS_PVT;
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
661: FND_MSG_PUB.Count_And_Get(
662: p_encoded => FND_API.G_FALSE,
663: p_count => x_msg_count,
658: rollback to INSERT_SPEC_AUDIT_UNITS_PVT;
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
661: FND_MSG_PUB.Count_And_Get(
662: p_encoded => FND_API.G_FALSE,
663: p_count => x_msg_count,
664: p_data => x_msg_data);
665: END insert_specific_audit_units;
666: */