986: ap.DELETION_DATE,
987: ap.DELETION_APPROVAL_DATE,
988: apb.AUDIT_PROCEDURE_REV_ID
989: FROM
990: AMW_AP_ASSOCIATIONS ap,
991: AMW_CONTROL_ASSOCIATIONS controls,
992: AMW_AUDIT_PROCEDURES_B apb
993: WHERE
994: ap.object_type='CTRL_ORG'
1010: ap.DELETION_DATE,
1011: ap.DELETION_APPROVAL_DATE,
1012: apb.AUDIT_PROCEDURE_REV_ID
1013: FROM
1014: AMW_AP_ASSOCIATIONS ap,
1015: AMW_CONTROL_ASSOCIATIONS controls,
1016: AMW_AUDIT_PROCEDURES_B apb
1017: WHERE
1018: ap.object_type='ENTITY_CTRL_AP'
1080: x_return_status := FND_API.G_RET_STS_SUCCESS;
1081:
1082:
1083:
1084: SELECT COUNT(1) INTO l_count FROM AMW_AP_ASSOCIATIONS
1085: WHERE OBJECT_TYPE = 'CTRL_FINCERT'
1086: and PK1 = p_certification_id;
1087:
1088: IF (l_count = 0) THEN
1094: FETCH last_evaluation INTO m_opinion_id;
1095: CLOSE last_evaluation;
1096:
1097:
1098: INSERT INTO AMW_AP_ASSOCIATIONS(
1099: AP_ASSOCIATION_ID,
1100: AUDIT_PROCEDURE_ID,
1101: PK1,
1102: PK2,
1114: APPROVAL_DATE,
1115: DELETION_DATE,
1116: DELETION_APPROVAL_DATE,
1117: AUDIT_PROCEDURE_REV_ID)
1118: VALUES (AMW_AP_ASSOCIATIONS_S.nextval,
1119: ap_rec.audit_procedure_id,
1120: p_certification_id,
1121: ap_rec.PK1,
1122: ap_rec.PK2,