1: PACKAGE BODY AMW_OBJECT_ASSESSMENTS_PVT AS
2: /* $Header: amwobassb.pls 120.0 2005/05/31 22:21:42 appldev noship $ */
3:
4: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
5: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
3:
4: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
5: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
6:
7: G_PKG_NAME CONSTANT VARCHAR2 (30) := 'AMW_OBJECT_ASSESSMENTS_PVT';
8: G_FILE_NAME CONSTANT VARCHAR2 (15) := 'amwobassb.pls';
9:
10:
11: FUNCTION check_object_assess_exists
18: l_dummy NUMBER;
19:
20: BEGIN
21: SELECT 1 INTO l_dummy
22: FROM amw_object_assessments
23: WHERE assessment_id = p_assessment_id
24: AND object_type = p_object_type;
25:
26: RETURN 'Y';
81:
82: IF p_object_type = 'PROCESS'
83: THEN
84:
85: UPDATE amw_object_assessments apa
86: SET apa.assessment_id = p_assessment_id
87: WHERE apa.pk1 = p_certification_id
88: AND apa.pk2 = p_org_id
89: AND apa.pk3 = p_process_id
88: AND apa.pk2 = p_org_id
89: AND apa.pk3 = p_process_id
90: AND apa.object_type = p_object_type;
91:
92: INSERT INTO amw_object_assessments (
93: object_assessment_id,
94: assessment_id,
95: object_type,
96: pk1,
101: creation_date,
102: created_by,
103: last_update_login,
104: object_version_number)
105: SELECT amw_object_assessments_s.nextval,
106: p_assessment_id,
107: p_object_type,
108: p_certification_id,
109: p_org_id,
115: fnd_global.user_id,
116: 1
117: FROM dual
118: WHERE NOT EXISTS
119: (SELECT 'Y' FROM amw_object_assessments
120: WHERE pk1 = p_certification_id
121: AND pk2 = p_org_id
122: AND pk3 = p_process_id
123: AND object_type = 'PROCESS'
185: x_return_status := FND_API.G_RET_STS_SUCCESS;
186:
187: IF p_object_type = 'PROCESS'
188: THEN
189: UPDATE amw_object_assessments apa
190: SET apa.assessment_id = p_assessment_id
191: WHERE apa.pk1 = p_certification_id
192: AND apa.pk2 = p_org_id
193: AND apa.pk3 = p_process_id
253: x_return_status := FND_API.G_RET_STS_SUCCESS;
254:
255: IF p_object_type = 'PROCESS'
256: THEN
257: DELETE FROM amw_object_assessments apa
258: WHERE apa.pk1 = p_certification_id
259: AND apa.pk2 = p_org_id
260: AND apa.pk3 = p_process_id
261: AND apa.object_type = p_object_type;
272: p_data => x_msg_data);
273:
274: END remove_object_assessment;
275:
276: END AMW_OBJECT_ASSESSMENTS_PVT;
277:
278: