[Home] [Help]
98: AND unmitigated_risks IS NULL;
99:
100: CURSOR c_new_proc(c_cert_id NUMBER) IS
101: SELECT organization_id, process_id
102: FROM amw_proc_cert_eval_sum
103: WHERE certification_id = c_cert_id
104: AND unmitigated_risks IS NULL;
105:
106: CURSOR c_org_proc(c_cert_id NUMBER, c_org_id NUMBER) IS
104: AND unmitigated_risks IS NULL;
105:
106: CURSOR c_org_proc(c_cert_id NUMBER, c_org_id NUMBER) IS
107: SELECT process_id
108: FROM amw_proc_cert_eval_sum
109: WHERE certification_id = c_cert_id
110: AND organization_id = c_org_id;
111:
112: CURSOR c_start_date(c_cert_id NUMBER) IS
236: WHERE opinion_log_id = c_opinion_log_id;
237:
238: CURSOR c_cert_with_proc (c_proc_id NUMBER, c_org_id NUMBER) IS
239: SELECT cert.certification_id, opin.audit_result_code old_eval
240: FROM amw_certification_b cert, amw_proc_cert_eval_sum psum,
241: amw_opinions_log_v opin
242: WHERE cert.certification_status in ('ACTIVE','DRAFT')
243: AND cert.certification_id = psum.certification_id
244: AND psum.organization_id = c_org_id
283: WHERE certification_id = l_cert_id;
284:
285: CURSOR Get_proc_cert_info(l_cert_id number, l_org_id number, l_process_id number) IS
286: SELECT ineffective_controls, evaluated_controls, total_controls, unmitigated_risks, evaluated_risks, total_risks
287: FROM amw_proc_cert_eval_sum
288: WHERE certification_id = l_cert_id
289: AND organization_id = l_org_id
290: AND process_id IN (
291: SELECT process_id
557: END IF;
558: END IF;
559: END LOOP;
560:
561: -- update amw_proc_cert_eval_sum.evaluation_opinion_log_id
562: UPDATE amw_proc_cert_eval_sum
563: SET last_update_date = sysdate,
564: last_updated_by = fnd_global.user_id,
565: last_update_login = fnd_global.conc_login_id,
558: END IF;
559: END LOOP;
560:
561: -- update amw_proc_cert_eval_sum.evaluation_opinion_log_id
562: UPDATE amw_proc_cert_eval_sum
563: SET last_update_date = sysdate,
564: last_updated_by = fnd_global.user_id,
565: last_update_login = fnd_global.conc_login_id,
566: evaluation_opinion_id = l_opin_id,
568: WHERE process_id = l_pk1
569: AND organization_id = l_pk3
570: AND certification_id in (
571: SELECT cert.certification_id
572: FROM amw_certification_b cert, amw_proc_cert_eval_sum psum
573: WHERE cert.certification_status in ('ACTIVE','DRAFT')
574: AND cert.certification_id = psum.certification_id
575: AND psum.organization_id = l_pk3
576: AND psum.process_id = l_pk1);
625: g_refresh_flag := 'Y';
626: m_certification_list(risk_rec.certification_id) := risk_rec.certification_id;
627: ELSE
628: **********/
629: UPDATE amw_proc_cert_eval_sum
630: SET last_update_date = sysdate,
631: last_updated_by = fnd_global.user_id,
632: last_update_login = fnd_global.conc_login_id,
633: evaluated_risks = least(evaluated_risks+1,total_risks),
680: g_refresh_flag := 'Y';
681: m_certification_list(risk_rec.certification_id) := risk_rec.certification_id;
682: ELSE
683: **************/
684: UPDATE amw_proc_cert_eval_sum
685: SET last_update_date = sysdate,
686: last_updated_by = fnd_global.user_id,
687: last_update_login = fnd_global.conc_login_id,
688: evaluated_risks = least(evaluated_risks+1,total_risks)
726: g_refresh_flag := 'Y';
727: m_certification_list( risk_rec.certification_id) := risk_rec.certification_id;
728: ELSE
729: **********/
730: UPDATE amw_proc_cert_eval_sum
731: SET last_update_date = sysdate,
732: last_updated_by = fnd_global.user_id,
733: last_update_login = fnd_global.conc_login_id,
734: unmitigated_risks = least(unmitigated_risks+1,evaluated_risks,total_risks),
782: g_refresh_flag := 'Y';
783: m_certification_list(risk_rec.certification_id) := risk_rec.certification_id;
784: ELSE
785: ************/
786: UPDATE amw_proc_cert_eval_sum
787: SET last_update_date = sysdate,
788: last_updated_by = fnd_global.user_id,
789: last_update_login = fnd_global.conc_login_id,
790: unmitigated_risks = greatest(0,unmitigated_risks-1),
894: g_refresh_flag := 'Y';
895: m_certification_list(ctrl_rec.certification_id) := ctrl_rec.certification_id;
896: ELSE
897: ************/
898: UPDATE amw_proc_cert_eval_sum
899: SET last_update_date = sysdate,
900: last_updated_by = fnd_global.user_id,
901: last_update_login = fnd_global.conc_login_id,
902: evaluated_controls = least(evaluated_controls+1,total_controls),
956: g_refresh_flag := 'Y';
957: m_certification_list(ctrl_rec.certification_id) := ctrl_rec.certification_id;
958: ELSE
959: **************/
960: UPDATE amw_proc_cert_eval_sum
961: SET last_update_date = sysdate,
962: last_updated_by = fnd_global.user_id,
963: last_update_login = fnd_global.conc_login_id,
964: evaluated_controls = least(evaluated_controls+1,total_controls)
1010: g_refresh_flag := 'Y';
1011: m_certification_list(ctrl_rec.certification_id) := ctrl_rec.certification_id;
1012: ELSE
1013: ***********/
1014: UPDATE amw_proc_cert_eval_sum
1015: SET last_update_date = sysdate,
1016: last_updated_by = fnd_global.user_id,
1017: last_update_login = fnd_global.conc_login_id,
1018: ineffective_controls = least(ineffective_controls+1,evaluated_controls,total_controls),
1074: g_refresh_flag := 'Y';
1075: m_certification_list(ctrl_rec.certification_id) := ctrl_rec.certification_id;
1076: ELSE
1077: ************/
1078: UPDATE amw_proc_cert_eval_sum
1079: SET last_update_date = sysdate,
1080: last_updated_by = fnd_global.user_id,
1081: last_update_login = fnd_global.conc_login_id,
1082: ineffective_controls = greatest(0,ineffective_controls-1),
1161:
1162: END IF;
1163:
1164:
1165: --refresh all of the summary tables amw_cert_dashboard_sum, amw_proc_cert_eval_sum, amw_org_cert_eval_sum
1166: -- IF (G_REFRESH_FLAG = 'Y') THEN
1167: --l_index := m_certification_list.FIRST;
1168: --WHILE l_index <= m_certification_list.LAST LOOP
1169:
1298:
1299:
1300: CURSOR Get_parent_process(l_cert_id number, l_org_id number, l_process_id number) IS
1301: SELECT certification_id, organization_id, process_id, sub_process_cert, total_sub_process_cert, sub_process_cert_issues
1302: FROM amw_proc_cert_eval_sum
1303: WHERE certification_id = l_cert_id
1304: AND organization_id = l_org_id
1305: AND process_id in (
1306: SELECT parent_process_id
1315: AND process_id = PRIOR parent_process_id);
1316:
1317: CURSOR Get_related_org_proc(l_cert_id number, l_org_id number, l_process_id number) IS
1318: SELECT certification_id, organization_id, process_id, org_process_cert, org_process_cert_issues, total_org_process_cert
1319: FROM amw_proc_cert_eval_sum
1320: WHERE certification_id = l_cert_id
1321: AND (process_id = l_process_id
1322: OR
1323: process_id IN (
1537: OPEN c_orgs_pending_in_scope(l_pk2);
1538: FETCH c_orgs_pending_in_scope INTO l_orgs_pending;
1539: CLOSE c_orgs_pending_in_scope;
1540:
1541: UPDATE amw_proc_cert_eval_sum
1542: SET last_update_date = sysdate,
1543: last_updated_by = fnd_global.user_id,
1544: last_update_login = fnd_global.conc_login_id,
1545: certification_opinion_id = l_opin_id
1773: m_certification_list(l_pk2) := l_pk2;
1774: goto refresh_all_records;
1775: ELSE
1776: ************/
1777: UPDATE amw_proc_cert_eval_sum
1778: SET last_update_date = sysdate,
1779: last_updated_by = fnd_global.user_id,
1780: last_update_login = fnd_global.conc_login_id,
1781: sub_process_cert = least(sub_process_cert+1,total_sub_process_cert)
1795: m_certification_list(l_pk2) := l_pk2;
1796: goto refresh_all_records;
1797: ELSE
1798: ********/
1799: UPDATE amw_proc_cert_eval_sum
1800: SET last_update_date = sysdate,
1801: last_updated_by = fnd_global.user_id,
1802: last_update_login = fnd_global.conc_login_id,
1803: sub_process_cert = least(sub_process_cert+1,total_sub_process_cert),
1816: m_certification_list(l_pk2) := l_pk2;
1817: goto refresh_all_records;
1818: ELSE
1819: ************/
1820: UPDATE amw_proc_cert_eval_sum
1821: SET last_update_date = sysdate,
1822: last_updated_by = fnd_global.user_id,
1823: last_update_login = fnd_global.conc_login_id,
1824: sub_process_cert_issues = greatest(0,sub_process_cert_issues-1)
1835: m_certification_list(l_pk2) := l_pk2;
1836: goto refresh_all_records;
1837: ELSE
1838: ***********/
1839: UPDATE amw_proc_cert_eval_sum
1840: SET last_update_date = sysdate,
1841: last_updated_by = fnd_global.user_id,
1842: last_update_login = fnd_global.conc_login_id,
1843: sub_process_cert_issues = least(sub_process_cert_issues+1,sub_process_cert,total_sub_process_cert)
1861: m_certification_list(l_pk2) := l_pk2;
1862: goto refresh_all_records;
1863: ELSE
1864: ************/
1865: UPDATE amw_proc_cert_eval_sum
1866: SET last_update_date = sysdate,
1867: last_updated_by = fnd_global.user_id,
1868: last_update_login = fnd_global.conc_login_id,
1869: org_process_cert = least(org_process_cert+1,total_org_process_cert)
1884: m_certification_list(l_pk2) := l_pk2;
1885: goto refresh_all_records;
1886: ELSE
1887: ***************/
1888: UPDATE amw_proc_cert_eval_sum
1889: SET last_update_date = sysdate,
1890: last_updated_by = fnd_global.user_id,
1891: last_update_login = fnd_global.conc_login_id,
1892: org_process_cert = least(org_process_cert+1,total_org_process_cert),
1905: m_certification_list(l_pk2) := l_pk2;
1906: goto refresh_all_records;
1907: ELSE
1908: ************/
1909: UPDATE amw_proc_cert_eval_sum
1910: SET last_update_date = sysdate,
1911: last_updated_by = fnd_global.user_id,
1912: last_update_login = fnd_global.conc_login_id,
1913: org_process_cert_issues = greatest(0,org_process_cert_issues-1)
1925: m_certification_list(l_pk2) := l_pk2;
1926: goto refresh_all_records;
1927: ELSE
1928: *************/
1929: UPDATE amw_proc_cert_eval_sum
1930: SET last_update_date = sysdate,
1931: last_updated_by = fnd_global.user_id,
1932: last_update_login = fnd_global.conc_login_id,
1933: org_process_cert_issues = least(org_process_cert_issues+1,org_process_cert,total_org_process_cert)
1940:
1941: END IF;
1942:
1943: <
1944: --refresh all of the summary tables amw_cert_dashboard_sum, amw_proc_cert_eval_sum, amw_org_cert_eval_sum
1945: --IF ((G_REFRESH_FLAG = 'Y') or (G_REFRESH_FLAG = 'y') ) THEN
1946: --l_index := m_certification_list.FIRST;
1947: --WHILE l_index <= m_certification_list.LAST LOOP
1948: