[Home] [Help]
9: /* INSERTS OR UPDATES ARE DONE AGAINIST THE FOLLOWING TABLES */
10: /* Insert into AMW_RISKS_B and AMW_RISKS_TL */
11: /* Insert into AMW_CONTROLS_B and AMW_CONTROLS_TL */
12: /* Insert into AMW_CONTROL_ASSOCIATIONS */
13: /* Insert into AMW_RISK_ASSOCIATIONS */
14: /* Insert into AMW_CONTROL_OBJECTIVES */
15: /* Insert into AMW_CONTROL_ASSERTIONS */
16: /* Updates amw_risk-ctrl_interface, with error messages */
17: /* Deleting successful production inserts, based on profile */
1345: fnd_file.put_line (fnd_file.LOG, 'inside if for risk: l_process_objectives_count '||l_process_objectives_count);
1346: IF (L_PROC_OBJ_ASSOCIATION_ID IS NULL and l_has_proc_obj_assoc_access = 'T') THEN
1347: --NO ROW RETRIEVED, SO ASSOCIATION DOESN'T EXIST YET
1348: --CREATE AN ASSOCIATION, SET ASSOCIATION_CREATION_DATE=SYSDATE
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'Need to change the way data is inserted in amw_risk_associations');
1350: CREATE_AMW_OBJ_ASSOC(
1351: P_PROCESS_OBJECTIVE_ID => l_process_objective_id
1352: ,P_PK1 => l_process_id
1353: ,P_OBJECT_TYPE => 'PROCESS'
1415: ---IF l_risk_objectives_count = 0 THEN
1416: IF(L_RISK_OBJ_ASSOCIATION_ID IS NULL) THEN
1417: --NO ROW RETRIEVED, SO ASSOCIATION DOESN'T EXIST YET
1418: --CREATE AN ASSOCIATION, SET ASSOCIATION_CREATION_DATE=SYSDATE
1419: FND_FILE.PUT_LINE(FND_FILE.LOG,'Need to change the way data is inserted in amw_risk_associations');
1420: CREATE_AMW_OBJ_ASSOC(
1421: P_PROCESS_OBJECTIVE_ID => l_process_objective_id
1422: ,P_PK1 => lx_risk_id
1423: ,P_OBJECT_TYPE => 'RISK'
1583: --npanandi 10/26/2004: changed the way check is done post AMW.D
1584: BEGIN
1585: SELECT RISK_ASSOCIATION_ID,APPROVAL_DATE
1586: INTO L_RISK_ASSOCIATION_ID,L_RISK_APPROVAL_DATE
1587: FROM AMW_RISK_ASSOCIATIONS
1588: WHERE RISK_ID=lx_risk_id
1589: AND PK1=L_PROCESS_ID
1590: AND OBJECT_TYPE='PROCESS'
1591: AND DELETION_DATE IS NULL;
1629: --THIS MEANS THAT THIS IS LATEST REVISION FOR THIS ASSOCIATION
1630: --AND IS APPROVED, SO
1631: FND_FILE.PUT_LINE(FND_FILE.LOG,'UPDATE THIS ASSOCIATION, THEN INSERT');
1632: BEGIN
1633: UPDATE AMW_RISK_ASSOCIATIONS
1634: SET DELETION_DATE=SYSDATE
1635: ,OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1
1636: ,LAST_UPDATE_DATE=SYSDATE
1637: ,LAST_UPDATED_BY=G_USER_ID
1652: END;
1653: ELSE
1654: --THIS MEANS THAT THIS IS LATEST REVISION FOR THIS ASSOCIATION
1655: --AND IS NOT APPROVED, SO SIMPLY UPDATE THE ATTRIBUTES
1656: UPDATE AMW_RISK_ASSOCIATIONS
1657: SET RISK_LIKELIHOOD_CODE=rc_rec.risk_likelihood_code
1658: ,RISK_IMPACT_CODE=rc_rec.risk_IMPACT_code
1659: ,MATERIAL=RC_REC.MATERIAL
1660: ,MATERIAL_VALUE=RC_REC.MATERIAL_VALUE
2797: --03.02.2005 npanandi: imposing the foll. IF condition to
2798: --create the association only if access privilege is present
2799: if(l_has_proc_risk_assoc_access = 'T') then
2800: **/
2801: INSERT INTO amw_risk_associations(
2802: risk_association_id
2803: ,last_update_date
2804: ,last_updated_by
2805: ,creation_date
2814: ,RISK_IMPACT_CODE
2815: ,MATERIAL
2816: ,MATERIAL_VALUE)
2817: VALUES (
2818: amw_risk_associations_s.NEXTVAL
2819: ,SYSDATE
2820: ,v_user_id
2821: ,SYSDATE
2822: ,v_user_id