[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 */
1436:
1437: IF(L_RISK_OBJ_ASSOCIATION_ID IS NULL) THEN
1438: --NO ROW RETRIEVED, SO ASSOCIATION DOESN'T EXIST YET
1439: --CREATE AN ASSOCIATION, SET ASSOCIATION_CREATION_DATE=SYSDATE
1440: FND_FILE.PUT_LINE(FND_FILE.LOG,'Need to change the way data is inserted in amw_risk_associations');
1441: CREATE_AMW_OBJ_ASSOC(
1442: P_PROCESS_OBJECTIVE_ID => l_process_objective_id
1443: ,P_PK1 => lx_risk_id
1444: ,P_OBJECT_TYPE => 'RISK'
1525:
1526: IF(L_CTRL_OBJ_ASSOCIATION_ID IS NULL) THEN
1527: --NO ROW RETRIEVED, SO ASSOCIATION DOESN'T EXIST YET
1528: --CREATE AN ASSOCIATION, SET ASSOCIATION_CREATION_DATE=SYSDATE
1529: FND_FILE.PUT_LINE(FND_FILE.LOG,'Need to change the way data is inserted in amw_risk_associations');
1530: CREATE_AMW_OBJ_ASSOC(
1531: P_PROCESS_OBJECTIVE_ID => l_process_objective_id
1532: ,P_PK1 => l_organization_id
1533: --01.13.2005 npanandi: added pk2,pk3,pk4 for Org-Ctrl to Obj association
1621:
1622: IF l_has_proc_risk_access <> 'T' then
1623: v_err_msg := 'Cannot associate to this Process';
1624: update_interface_with_error (v_err_msg
1625: ,'AMW_RISK_ASSOCIATIONS'
1626: ,v_interface_id);
1627: END IF;
1628:
1629: IF (not v_error_found AND l_process_id is not null AND l_process_id <> -1
1643: BEGIN
1644: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>>>>>>>>>> PROCESSING RISK PROCESS ASSOCIATIONS');
1645: SELECT RISK_ASSOCIATION_ID,APPROVAL_DATE
1646: INTO L_RISK_ASSOCIATION_ID,L_RISK_APPROVAL_DATE
1647: FROM AMW_RISK_ASSOCIATIONS
1648: WHERE RISK_ID=lx_risk_id
1649: AND PK1=L_ORGANIZATION_ID
1650: AND PK2=L_PROCESS_ID
1651: AND OBJECT_TYPE='PROCESS_ORG'
1676: --THIS MEANS THAT THIS IS LATEST REVISION FOR THIS ASSOCIATION
1677: --AND IS APPROVED, SO
1678: FND_FILE.PUT_LINE(FND_FILE.LOG,'UPDATE THIS ASSOCIATION, THEN INSERT');
1679: BEGIN
1680: UPDATE AMW_RISK_ASSOCIATIONS
1681: SET DELETION_DATE=SYSDATE
1682: ,OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1
1683: ,LAST_UPDATE_DATE=SYSDATE
1684: ,LAST_UPDATED_BY=G_USER_ID
1700: END;
1701: ELSE
1702: --THIS MEANS THAT THIS IS LATEST REVISION FOR THIS ASSOCIATION
1703: --AND IS NOT APPROVED, SO SIMPLY UPDATE THE ATTRIBUTES
1704: UPDATE AMW_RISK_ASSOCIATIONS
1705: SET RISK_LIKELIHOOD_CODE=rc_rec.risk_likelihood_code
1706: ,RISK_IMPACT_CODE=rc_rec.risk_IMPACT_code
1707: ,MATERIAL=RC_REC.MATERIAL
1708: ,MATERIAL_VALUE=RC_REC.MATERIAL_VALUE
1728: begin
1729: fnd_file.put_line(fnd_file.log, '>>>>>>>>>>>>>> PROCESSING RISK PROCESS ASSOCIATIONS');
1730: select risk_association_id,approval_date
1731: into l_risk_association_id,l_risk_approval_date
1732: from amw_risk_associations
1733: where risk_id=lx_risk_id
1734: and pk1=l_organization_id
1735: and object_type='ENTITY_RISK'
1736: and deletion_date is null;
1759: --this means that this is latest revision for this association
1760: --and is approved, so
1761: fnd_file.put_line(fnd_file.log,'update this association, then insert');
1762: begin
1763: update amw_risk_associations
1764: set deletion_date=sysdate
1765: ,object_version_number=object_version_number+1
1766: ,last_update_date=sysdate
1767: ,last_updated_by=g_user_id
1782: end;
1783: else
1784: --this means that this is latest revision for this association
1785: --and is not approved, so simply update the attributes
1786: update amw_risk_associations
1787: set risk_likelihood_code=rc_rec.risk_likelihood_code
1788: ,risk_impact_code=rc_rec.risk_impact_code
1789: ,material=rc_rec.material
1790: ,material_value=rc_rec.material_value
3054: )
3055: IS
3056:
3057: BEGIN
3058: INSERT INTO amw_risk_associations(
3059: risk_association_id
3060: ,last_update_date
3061: ,last_updated_by
3062: ,creation_date
3072: ,RISK_IMPACT_CODE
3073: ,MATERIAL
3074: ,MATERIAL_VALUE)
3075: VALUES (
3076: amw_risk_associations_s.NEXTVAL
3077: ,SYSDATE
3078: ,v_user_id
3079: ,SYSDATE
3080: ,v_user_id
3203: )
3204: is
3205:
3206: begin
3207: insert into amw_risk_associations(
3208: risk_association_id
3209: ,last_update_date
3210: ,last_updated_by
3211: ,creation_date
3220: ,risk_impact_code
3221: ,material
3222: ,material_value)
3223: values (
3224: amw_risk_associations_s.nextval
3225: ,sysdate
3226: ,v_user_id
3227: ,sysdate
3228: ,v_user_id