[Home] [Help]
33: );
34:
35:
36: EXCEPTION WHEN OTHERS THEN
37: fnd_file.put_line (fnd_file.LOG, SUBSTR ('Unexpected Error in Initialize'
38: || SUBSTR (SQLERRM, 1, 100), 1, 200));
39: l_error_message := 'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM ;
40:
41: END Initialize;
55:
56: EXCEPTION
57: WHEN NO_DATA_FOUND THEN
58: /*** Record doesn't exist ***/
59: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.DELETE_FIN_CERT_SUM_ROWS');
60: WHEN OTHERS THEN
61: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
62: fnd_file.put_line(fnd_file.LOG, 'fin_certification_id ' || x_fin_certification_id );
63:
57: WHEN NO_DATA_FOUND THEN
58: /*** Record doesn't exist ***/
59: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.DELETE_FIN_CERT_SUM_ROWS');
60: WHEN OTHERS THEN
61: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
62: fnd_file.put_line(fnd_file.LOG, 'fin_certification_id ' || x_fin_certification_id );
63:
64: RAISE ;
65: RETURN;
58: /*** Record doesn't exist ***/
59: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.DELETE_FIN_CERT_SUM_ROWS');
60: WHEN OTHERS THEN
61: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
62: fnd_file.put_line(fnd_file.LOG, 'fin_certification_id ' || x_fin_certification_id );
63:
64: RAISE ;
65: RETURN;
66:
151:
152: EXCEPTION
153: WHEN NO_DATA_FOUND THEN
154: /*** Record doesn't exist ***/
155: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Ratio_Fin_Cert');
156: RETURN 0;
157: WHEN OTHERS THEN
158: /*** Raise any other error ***/
159: fnd_file.put_line(fnd_file.LOG, 'Unexpected error IN ' || G_PKG_NAME || '.Get_Ratio_Fin_Cert');
155: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Ratio_Fin_Cert');
156: RETURN 0;
157: WHEN OTHERS THEN
158: /*** Raise any other error ***/
159: fnd_file.put_line(fnd_file.LOG, 'Unexpected error IN ' || G_PKG_NAME || '.Get_Ratio_Fin_Cert');
160: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
161: RAISE;
162: END Get_Ratio_Fin_Cert;
163:
156: RETURN 0;
157: WHEN OTHERS THEN
158: /*** Raise any other error ***/
159: fnd_file.put_line(fnd_file.LOG, 'Unexpected error IN ' || G_PKG_NAME || '.Get_Ratio_Fin_Cert');
160: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
161: RAISE;
162: END Get_Ratio_Fin_Cert;
163:
164:
203:
204: EXCEPTION
205: WHEN NO_DATA_FOUND THEN
206: /*** Record doesn't exist ***/
207: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.GetTotalProcesses');
208: RETURN 0;
209: WHEN OTHERS THEN
210: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.GetTotalProcesses');
211: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
206: /*** Record doesn't exist ***/
207: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.GetTotalProcesses');
208: RETURN 0;
209: WHEN OTHERS THEN
210: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.GetTotalProcesses');
211: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
212: RAISE;
213: END GetTotalProcesses ;
214:
207: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.GetTotalProcesses');
208: RETURN 0;
209: WHEN OTHERS THEN
210: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.GetTotalProcesses');
211: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
212: RAISE;
213: END GetTotalProcesses ;
214:
215:
277:
278: EXCEPTION
279: WHEN NO_DATA_FOUND THEN
280: /*** Record doesn't exist ***/
281: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Certified_Done');
282: RETURN 0;
283: WHEN OTHERS THEN
284: /*** Raise any other error ***/
285: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Certified_Done');
281: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Certified_Done');
282: RETURN 0;
283: WHEN OTHERS THEN
284: /*** Raise any other error ***/
285: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Certified_Done');
286: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
287: RAISE;
288:
289: END Get_Proc_Certified_Done;
282: RETURN 0;
283: WHEN OTHERS THEN
284: /*** Raise any other error ***/
285: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Certified_Done');
286: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
287: RAISE;
288:
289: END Get_Proc_Certified_Done;
290:
339: RETURN X_PROC_VERIFIED;
340: EXCEPTION
341: WHEN NO_DATA_FOUND THEN
342: /*** Record doesn't exist ***/
343: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Verified');
344: RETURN 0;
345: WHEN OTHERS THEN
346: /*** Raise any other error ***/
347: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified');
343: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Verified');
344: RETURN 0;
345: WHEN OTHERS THEN
346: /*** Raise any other error ***/
347: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified');
348: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
349: RAISE;
350:
351: END Get_Proc_Verified;
344: RETURN 0;
345: WHEN OTHERS THEN
346: /*** Raise any other error ***/
347: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified');
348: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
349: RAISE;
350:
351: END Get_Proc_Verified;
352:
404:
405: EXCEPTION
406: WHEN NO_DATA_FOUND THEN
407: /*** Record doesn't exist ***/
408: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_WITH_INEFF_CTRLS');
409: RETURN 0;
410: WHEN OTHERS THEN
411: /*** Raise any other error ***/
412: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_WITH_INEFF_CTRLS');
408: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_WITH_INEFF_CTRLS');
409: RETURN 0;
410: WHEN OTHERS THEN
411: /*** Raise any other error ***/
412: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_WITH_INEFF_CTRLS');
413: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
414: RAISE;
415:
416: END Get_ORG_WITH_INEFF_CTRLS;
409: RETURN 0;
410: WHEN OTHERS THEN
411: /*** Raise any other error ***/
412: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_WITH_INEFF_CTRLS');
413: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
414: RAISE;
415:
416: END Get_ORG_WITH_INEFF_CTRLS;
417:
465:
466: EXCEPTION
467: WHEN NO_DATA_FOUND THEN
468: /*** Record doesn't exist ***/
469: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_EVALUATED');
470: RETURN 0;
471: WHEN OTHERS THEN
472: /*** Raise any other error ***/
473: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED');
469: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_EVALUATED');
470: RETURN 0;
471: WHEN OTHERS THEN
472: /*** Raise any other error ***/
473: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED');
474: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
475: RAISE;
476:
477: END Get_ORG_EVALUATED;
470: RETURN 0;
471: WHEN OTHERS THEN
472: /*** Raise any other error ***/
473: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED');
474: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
475: RAISE;
476:
477: END Get_ORG_EVALUATED;
478:
522:
523: EXCEPTION
524: WHEN NO_DATA_FOUND THEN
525: /*** Record doesn't exist ***/
526: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_TOTAL_ORGS');
527: RETURN 0;
528: WHEN OTHERS THEN
529: /*** Raise any other error ***/
530: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_TOTAL_ORGS');
526: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_TOTAL_ORGS');
527: RETURN 0;
528: WHEN OTHERS THEN
529: /*** Raise any other error ***/
530: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_TOTAL_ORGS');
531: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
532: RAISE;
533:
534: END Get_TOTAL_ORGS;
527: RETURN 0;
528: WHEN OTHERS THEN
529: /*** Raise any other error ***/
530: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_TOTAL_ORGS');
531: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
532: RAISE;
533:
534: END Get_TOTAL_ORGS;
535:
586: RETURN X_ORG_CERTIFIED;
587: EXCEPTION
588: WHEN NO_DATA_FOUND THEN
589: /*** Record doesn't exist ***/
590: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_CERTIFIED');
591: RETURN 0;
592: WHEN OTHERS THEN
593: /*** Raise any other error ***/
594: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_CERTIFIED');
590: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_CERTIFIED');
591: RETURN 0;
592: WHEN OTHERS THEN
593: /*** Raise any other error ***/
594: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_CERTIFIED');
595: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
596: RAISE;
597:
598: END Get_ORG_CERTIFIED;
591: RETURN 0;
592: WHEN OTHERS THEN
593: /*** Raise any other error ***/
594: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_CERTIFIED');
595: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
596: RAISE;
597:
598: END Get_ORG_CERTIFIED;
599:
658:
659: EXCEPTION
660: WHEN NO_DATA_FOUND THEN
661: /*** Record doesn't exist ***/
662: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_PROC_WITH_INEFF_CTRLS');
663: RETURN 0;
664: WHEN OTHERS THEN
665: /*** Raise any other error ***/
666: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_PROC_WITH_INEFF_CTRLS');
662: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_PROC_WITH_INEFF_CTRLS');
663: RETURN 0;
664: WHEN OTHERS THEN
665: /*** Raise any other error ***/
666: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_PROC_WITH_INEFF_CTRLS');
667: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
668: RAISE;
669:
670: END Get_PROC_WITH_INEFF_CTRLS;
663: RETURN 0;
664: WHEN OTHERS THEN
665: /*** Raise any other error ***/
666: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_PROC_WITH_INEFF_CTRLS');
667: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
668: RAISE;
669:
670: END Get_PROC_WITH_INEFF_CTRLS;
671:
734:
735: EXCEPTION
736: WHEN NO_DATA_FOUND THEN
737: /*** Record doesn't exist ***/
738: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_UNMITIGATED_RISKS');
739: RETURN 0;
740: WHEN OTHERS THEN
741: /*** Raise any other error ***/
742: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_UNMITIGATED_RISKS');
738: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_UNMITIGATED_RISKS');
739: RETURN 0;
740: WHEN OTHERS THEN
741: /*** Raise any other error ***/
742: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_UNMITIGATED_RISKS');
743: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
744: RAISE;
745: END Get_UNMITIGATED_RISKS;
746:
739: RETURN 0;
740: WHEN OTHERS THEN
741: /*** Raise any other error ***/
742: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_UNMITIGATED_RISKS');
743: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
744: RAISE;
745: END Get_UNMITIGATED_RISKS;
746:
747: FUNCTION Get_Total_RISKS
791: RETURN X_TOTAL_RISKS;
792: EXCEPTION
793: WHEN NO_DATA_FOUND THEN
794: /*** Record doesn't exist ***/
795: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Total_RISKS');
796: RETURN 0;
797: WHEN OTHERS THEN
798: /*** Raise any other error ***/
799: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Total_RISKS');
795: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Total_RISKS');
796: RETURN 0;
797: WHEN OTHERS THEN
798: /*** Raise any other error ***/
799: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Total_RISKS');
800: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
801: RAISE;
802: END Get_Total_RISKS;
803:
796: RETURN 0;
797: WHEN OTHERS THEN
798: /*** Raise any other error ***/
799: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Total_RISKS');
800: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
801: RAISE;
802: END Get_Total_RISKS;
803:
804: FUNCTION Get_RISKS_VERIFIED
858: RETURN X_RISKS_VERIFIED;
859: EXCEPTION
860: WHEN NO_DATA_FOUND THEN
861: /*** Record doesn't exist ***/
862: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_RISKS_VERIFIED');
863: RETURN 0;
864: WHEN OTHERS THEN
865: /*** Raise any other error ***/
866: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED');
862: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_RISKS_VERIFIED');
863: RETURN 0;
864: WHEN OTHERS THEN
865: /*** Raise any other error ***/
866: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED');
867: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
868: RAISE;
869:
870: END Get_RISKS_VERIFIED;
863: RETURN 0;
864: WHEN OTHERS THEN
865: /*** Raise any other error ***/
866: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED');
867: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
868: RAISE;
869:
870: END Get_RISKS_VERIFIED;
871:
962: RETURN X_INEFFECTIVE_CONTROLS;
963: EXCEPTION
964: WHEN NO_DATA_FOUND THEN
965: /*** Record doesn't exist ***/
966: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_INEFFECTIVE_CONTROLS');
967: RETURN 0;
968: WHEN OTHERS THEN
969: /*** Raise any other error ***/
970: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_INEFFECTIVE_CONTROLS');
966: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_INEFFECTIVE_CONTROLS');
967: RETURN 0;
968: WHEN OTHERS THEN
969: /*** Raise any other error ***/
970: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_INEFFECTIVE_CONTROLS');
971: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
972: RAISE;
973:
974: END Get_INEFFECTIVE_CONTROLS;
967: RETURN 0;
968: WHEN OTHERS THEN
969: /*** Raise any other error ***/
970: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_INEFFECTIVE_CONTROLS');
971: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
972: RAISE;
973:
974: END Get_INEFFECTIVE_CONTROLS;
975:
1050: RETURN X_CONTROLS_VERIFIED;
1051: EXCEPTION
1052: WHEN NO_DATA_FOUND THEN
1053: /*** Record doesn't exist ***/
1054: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED');
1055: RETURN 0;
1056: WHEN OTHERS THEN
1057: /*** Raise any other error ***/
1058: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED');
1054: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED');
1055: RETURN 0;
1056: WHEN OTHERS THEN
1057: /*** Raise any other error ***/
1058: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED');
1059: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1060: RAISE;
1061:
1062:
1055: RETURN 0;
1056: WHEN OTHERS THEN
1057: /*** Raise any other error ***/
1058: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED');
1059: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1060: RAISE;
1061:
1062:
1063: END Get_CONTROLS_VERIFIED;
1113:
1114: EXCEPTION
1115: WHEN NO_DATA_FOUND THEN
1116: /*** Record doesn't exist ***/
1117: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_TOTAL_CONTROLS');
1118: RETURN 0;
1119: WHEN OTHERS THEN
1120: /*** Raise any other error ***/
1121: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_TOTAL_CONTROLS');
1117: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_TOTAL_CONTROLS');
1118: RETURN 0;
1119: WHEN OTHERS THEN
1120: /*** Raise any other error ***/
1121: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_TOTAL_CONTROLS');
1122: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1123: RAISE;
1124:
1125: END Get_TOTAL_CONTROLS;
1118: RETURN 0;
1119: WHEN OTHERS THEN
1120: /*** Raise any other error ***/
1121: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_TOTAL_CONTROLS');
1122: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1123: RAISE;
1124:
1125: END Get_TOTAL_CONTROLS;
1126:
1161: END IF;
1162:
1163: EXCEPTION
1164: WHEN NO_DATA_FOUND THEN
1165: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Fin_Evaluation');
1166: raise;
1167: WHEN OTHERS THEN
1168: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Fin_Evaluation');
1169: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1164: WHEN NO_DATA_FOUND THEN
1165: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Fin_Evaluation');
1166: raise;
1167: WHEN OTHERS THEN
1168: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Fin_Evaluation');
1169: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1170: RAISE;
1171: END Get_Fin_Evaluation;
1172: **********/
1165: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Fin_Evaluation');
1166: raise;
1167: WHEN OTHERS THEN
1168: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Fin_Evaluation');
1169: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1170: RAISE;
1171: END Get_Fin_Evaluation;
1172: **********/
1173:
1252: RETURN X_PROC_CERT_WITH_ISSUES;
1253: EXCEPTION
1254: WHEN NO_DATA_FOUND THEN
1255: /*** Record doesn't exist ***/
1256: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_PROC_CERT_WITH_ISSUES');
1257: RETURN 0;
1258: WHEN OTHERS THEN
1259: /*** Raise any other error ***/
1260: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_PROC_CERT_WITH_ISSUES');
1256: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_PROC_CERT_WITH_ISSUES');
1257: RETURN 0;
1258: WHEN OTHERS THEN
1259: /*** Raise any other error ***/
1260: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_PROC_CERT_WITH_ISSUES');
1261: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1262: RAISE;
1263:
1264: END Get_PROC_CERT_WITH_ISSUES;
1257: RETURN 0;
1258: WHEN OTHERS THEN
1259: /*** Raise any other error ***/
1260: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_PROC_CERT_WITH_ISSUES');
1261: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1262: RAISE;
1263:
1264: END Get_PROC_CERT_WITH_ISSUES;
1265:
1811: x_return_status := FND_API.G_RET_STS_SUCCESS;
1812:
1813: EXCEPTION
1814: WHEN NO_DATA_FOUND THEN
1815: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1817: x_msg_count := 1;
1818: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1819: WHEN OTHERS THEN
1817: x_msg_count := 1;
1818: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1819: WHEN OTHERS THEN
1820: ROLLBACK TO insert_fin_cert_eval_sum;
1821: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1822: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1824: x_msg_count := 1;
1825: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1818: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1819: WHEN OTHERS THEN
1820: ROLLBACK TO insert_fin_cert_eval_sum;
1821: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1822: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1824: x_msg_count := 1;
1825: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1826: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2193: x_return_status := FND_API.G_RET_STS_SUCCESS;
2194:
2195: EXCEPTION
2196: WHEN NO_DATA_FOUND THEN
2197: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2198: x_return_status := FND_API.G_RET_STS_ERROR;
2199: x_msg_count := 1;
2200: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2201: WHEN OTHERS THEN
2199: x_msg_count := 1;
2200: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2201: WHEN OTHERS THEN
2202: ROLLBACK TO INSERT_FIN_CERT_SCOPE;
2203: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2204: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: x_msg_count := 1;
2207: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2200: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2201: WHEN OTHERS THEN
2202: ROLLBACK TO INSERT_FIN_CERT_SCOPE;
2203: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2204: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: x_msg_count := 1;
2207: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2320: x_return_status := FND_API.G_RET_STS_SUCCESS;
2321:
2322: EXCEPTION
2323: WHEN NO_DATA_FOUND THEN
2324: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2325: x_return_status := FND_API.G_RET_STS_ERROR;
2326: x_msg_count := 1;
2327: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2328: WHEN OTHERS THEN
2326: x_msg_count := 1;
2327: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2328: WHEN OTHERS THEN
2329: ROLLBACK TO INSERT_FIN_CTRL;
2330: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2331: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2333: x_msg_count := 1;
2334: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2327: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2328: WHEN OTHERS THEN
2329: ROLLBACK TO INSERT_FIN_CTRL;
2330: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2331: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2333: x_msg_count := 1;
2334: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2335: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2443: END IF;
2444: x_return_status := FND_API.G_RET_STS_SUCCESS;
2445: EXCEPTION
2446: WHEN NO_DATA_FOUND THEN
2447: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: x_msg_count := 1;
2450: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2451: WHEN OTHERS THEN
2449: x_msg_count := 1;
2450: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2451: WHEN OTHERS THEN
2452: ROLLBACK TO INSERT_FIN_RISK;
2453: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2454: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: x_msg_count := 1;
2457: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2450: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2451: WHEN OTHERS THEN
2452: ROLLBACK TO INSERT_FIN_RISK;
2453: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2454: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: x_msg_count := 1;
2457: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2458: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2487:
2488: EXCEPTION
2489: WHEN NO_DATA_FOUND THEN
2490: /*** Record doesn't exist ***/
2491: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.GetGLPeriodfor_FinCertEvalSum');
2492: RETURN;
2493: WHEN OTHERS THEN
2494: /*** Raise any other error ***/
2495: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.GetGLPeriodfor_FinCertEvalSum');
2491: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.GetGLPeriodfor_FinCertEvalSum');
2492: RETURN;
2493: WHEN OTHERS THEN
2494: /*** Raise any other error ***/
2495: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.GetGLPeriodfor_FinCertEvalSum');
2496: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2497: RAISE;
2498:
2499: END GetGLPeriodfor_FinCertEvalSum;
2492: RETURN;
2493: WHEN OTHERS THEN
2494: /*** Raise any other error ***/
2495: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.GetGLPeriodfor_FinCertEvalSum');
2496: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2497: RAISE;
2498:
2499: END GetGLPeriodfor_FinCertEvalSum;
2500:
2658: x_return_status := FND_API.G_RET_STS_SUCCESS;
2659:
2660: EXCEPTION
2661: WHEN NO_DATA_FOUND THEN
2662: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2663: x_return_status := FND_API.G_RET_STS_ERROR;
2664: x_msg_count := 1;
2665: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2666: WHEN OTHERS THEN
2664: x_msg_count := 1;
2665: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2666: WHEN OTHERS THEN
2667: ROLLBACK TO POPULATE_PROC_HIERARCHY;
2668: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2669: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2671: x_msg_count := 1;
2672: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2665: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2666: WHEN OTHERS THEN
2667: ROLLBACK TO POPULATE_PROC_HIERARCHY;
2668: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2669: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2671: x_msg_count := 1;
2672: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2673: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2708: BEGIN
2709:
2710: SAVEPOINT Populate_Fin_Stmt_Cert_Sum;
2711:
2712: fnd_file.put_line(fnd_file.LOG, 'start oracle.apps.amw.certification.create event subcription: Populate_Fin_Stmt_Cert_Sum' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2713:
2714: l_org_id := p_event.GetValueForParameter('ORG_ID');
2715: l_user_id := p_event.GetValueForParameter('USER_ID');
2716: l_resp_id := p_event.GetValueForParameter('RESP_ID');
2721:
2722: --l_org_id := p_event.GetValueForParameter('ORG_ID');
2723: l_fin_cert_id := p_event.GetValueForParameter('FIN_CERTIFICATION_ID');
2724:
2725: fnd_file.put_line(fnd_file.LOG, 'fin_certification_id = ' || l_fin_cert_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2726:
2727: IF (l_fin_cert_id IS NOT NULL) THEN
2728: AMW_FINSTMT_CERT_BES_PKG.Master_Fin_Proc_Eval_Sum
2729: ( p_certification_id => l_fin_cert_id,
2733: x_msg_count => l_msg_count,
2734: x_msg_data => l_msg_data);
2735: END IF;
2736:
2737: fnd_file.put_line(fnd_file.LOG, 'finish populating summary table with certification_id = ' || l_fin_cert_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2738:
2739: RETURN FND_API.G_RET_STS_SUCCESS;
2740:
2741: EXCEPTION
2767: l_msg_data VARCHAR2(32767);
2768:
2769: BEGIN
2770:
2771: fnd_file.put_line(fnd_file.LOG, 'start oracle.apps.amw.opinion.certification.update event subcription: Certification_Update' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2772:
2773: /*
2774: l_org_id := p_event.GetValueForParameter('ORG_ID');
2775: l_user_id := p_event.GetValueForParameter('USER_ID');
2783:
2784:
2785: l_opinion_log_id := p_event.GetValueForParameter('OPINION_LOG_ID');
2786:
2787: fnd_file.put_line(fnd_file.LOG, 'before evaluation_update.opinion_log_id=' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2788:
2789: Certification_Update_Handler(
2790: p_opinion_log_id => l_opinion_log_id,
2791: x_return_status => l_return_status,
2791: x_return_status => l_return_status,
2792: x_msg_count => l_msg_count,
2793: x_msg_data => l_msg_data);
2794:
2795: fnd_file.put_line(fnd_file.LOG, 'after evaluation_update.opinion_log_id=' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2796:
2797: RETURN l_return_status;
2798:
2799:
2828: l_msg_data VARCHAR2(32767);
2829:
2830: BEGIN
2831:
2832: fnd_file.put_line(fnd_file.LOG, 'start oracle.apps.amw.opinion.evaluation.update event subcription: evaluation_update' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2833:
2834: /*
2835: l_org_id := p_event.GetValueForParameter('ORG_ID');
2836: l_user_id := p_event.GetValueForParameter('USER_ID');
2843:
2844:
2845: l_opinion_log_id := p_event.GetValueForParameter('OPINION_LOG_ID');
2846:
2847: fnd_file.put_line(fnd_file.LOG, 'before evaluation_update.opinion_log_id=' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2848:
2849: Evaluation_Update_Handler(
2850: p_opinion_log_id => l_opinion_log_id,
2851: x_return_status => l_return_status,
2851: x_return_status => l_return_status,
2852: x_msg_count => l_msg_count,
2853: x_msg_data => l_msg_data);
2854:
2855: fnd_file.put_line(fnd_file.LOG, 'after evaluation_update.opinion_log_id=' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2856:
2857: RETURN l_return_status;
2858:
2859:
2905:
2906: BEGIN
2907:
2908: SAVEPOINT Certification_Update_Handler;
2909: fnd_file.put_line(fnd_file.LOG, 'start Certification_Update_Handler::' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2910:
2911: -- Standard call to check for call compatibility.
2912: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2913: p_api_version_number,
2932: fetch Get_Obj_Name into l_object_name, l_pk1, l_pk2, l_pk3, l_pk4, l_pk5, l_opinion_id;
2933: close Get_Obj_Name;
2934:
2935: IF (l_object_name = 'AMW_ORGANIZATION') THEN
2936: fnd_file.put_line(fnd_file.LOG, 'before organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2937: ORGANIZATION_CHANGE_HANDLER(
2938: p_org_id => l_pk3 ,
2939: p_opinion_log_id => l_opinion_log_id,
2940: p_action => 'CERTIFICATION',
2955: if(p_commit <> FND_API.g_false)
2956: then commit;
2957: end if;
2958:
2959: fnd_file.put_line(fnd_file.LOG, 'after organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2960:
2961: ELSIF (l_object_name = 'AMW_ORG_PROCESS') THEN
2962: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2963: PROCESS_CHANGE_HANDLER(
2958:
2959: fnd_file.put_line(fnd_file.LOG, 'after organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2960:
2961: ELSIF (l_object_name = 'AMW_ORG_PROCESS') THEN
2962: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2963: PROCESS_CHANGE_HANDLER(
2964: p_org_id => l_pk3 ,
2965: p_process_id => l_pk1 ,
2966: p_opinion_log_id => l_opinion_log_id,
2983: if(p_commit <> FND_API.g_false)
2984: then commit;
2985: end if;
2986:
2987: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2988:
2989: END IF;
2990:
2991: x_return_status := FND_API.G_RET_STS_SUCCESS;
2991: x_return_status := FND_API.G_RET_STS_SUCCESS;
2992:
2993: EXCEPTION
2994: WHEN NO_DATA_FOUND THEN
2995: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2996: x_return_status := FND_API.G_RET_STS_ERROR;
2997: x_msg_count := 1;
2998: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2999: WHEN OTHERS THEN
2997: x_msg_count := 1;
2998: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2999: WHEN OTHERS THEN
3000: ROLLBACK TO Certification_Update_Handler;
3001: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3002: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3004: x_msg_count := 1;
3005: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2998: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2999: WHEN OTHERS THEN
3000: ROLLBACK TO Certification_Update_Handler;
3001: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3002: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3004: x_msg_count := 1;
3005: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3006: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3056:
3057: BEGIN
3058:
3059: SAVEPOINT Evaluation_Update_Handler;
3060: fnd_file.put_line(fnd_file.LOG, 'start evaluation_update_handler::' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3061:
3062: -- Standard call to check for call compatibility.
3063: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3064: p_api_version_number,
3083: fetch Get_Obj_Name into l_object_name, l_pk1, l_pk2, l_pk3, l_pk4, l_pk5, l_opinion_id;
3084: close Get_Obj_Name;
3085:
3086: IF (l_object_name = 'AMW_ORGANIZATION') THEN
3087: fnd_file.put_line(fnd_file.LOG, 'before organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3088: ORGANIZATION_CHANGE_HANDLER(
3089: p_org_id => l_pk3 ,
3090: p_opinion_log_id => l_opinion_log_id,
3091: p_action => 'EVALUATION',
3106: if(p_commit <> FND_API.g_false) then
3107: commit;
3108: end if;
3109:
3110: fnd_file.put_line(fnd_file.LOG, 'after organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3111:
3112: ELSIF (l_object_name = 'AMW_ORG_PROCESS') THEN
3113: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3114: PROCESS_CHANGE_HANDLER(
3109:
3110: fnd_file.put_line(fnd_file.LOG, 'after organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3111:
3112: ELSIF (l_object_name = 'AMW_ORG_PROCESS') THEN
3113: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3114: PROCESS_CHANGE_HANDLER(
3115: p_org_id => l_pk3 ,
3116: p_process_id => l_pk1 ,
3117: p_opinion_log_id => l_opinion_log_id,
3134: if(p_commit <> FND_API.g_false)
3135: then commit;
3136: end if;
3137:
3138: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3139:
3140: ELSIF (l_object_name = 'AMW_ORG_PROCESS_RISK') THEN
3141: fnd_file.put_line(fnd_file.LOG, 'before risk_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3142: RISK_EVALUATION_HANDLER
3137:
3138: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3139:
3140: ELSIF (l_object_name = 'AMW_ORG_PROCESS_RISK') THEN
3141: fnd_file.put_line(fnd_file.LOG, 'before risk_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3142: RISK_EVALUATION_HANDLER
3143: (p_risk_id => l_pk1,
3144: p_org_id => l_pk3,
3145: p_process_id => l_pk4,
3162: if(p_commit <> FND_API.g_false)
3163: then commit;
3164: end if;
3165:
3166: fnd_file.put_line(fnd_file.LOG, 'after risk_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3167:
3168: ELSIF (l_object_name = 'AMW_ORG_CONTROL') THEN
3169: fnd_file.put_line(fnd_file.LOG, 'before control_evaluation_handler: org_id=' || l_pk3 || 'control_id=' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3170: CONTROL_EVALUATION_HANDLER
3165:
3166: fnd_file.put_line(fnd_file.LOG, 'after risk_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3167:
3168: ELSIF (l_object_name = 'AMW_ORG_CONTROL') THEN
3169: fnd_file.put_line(fnd_file.LOG, 'before control_evaluation_handler: org_id=' || l_pk3 || 'control_id=' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3170: CONTROL_EVALUATION_HANDLER
3171: (p_ctrl_id => l_pk1,
3172: p_org_id => l_pk3,
3173: p_opinion_log_id => l_opinion_log_id,
3189: if(p_commit <> FND_API.g_false)
3190: then commit;
3191: end if;
3192:
3193: fnd_file.put_line(fnd_file.LOG, 'after control_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3194:
3195: ELSIF (l_object_name = 'AMW_ORG_AP_CONTROL') THEN
3196: fnd_file.put_line(fnd_file.LOG, 'before ap_evaluation_handler: org_id=' || l_pk3 || 'control_id=' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3197:
3192:
3193: fnd_file.put_line(fnd_file.LOG, 'after control_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3194:
3195: ELSIF (l_object_name = 'AMW_ORG_AP_CONTROL') THEN
3196: fnd_file.put_line(fnd_file.LOG, 'before ap_evaluation_handler: org_id=' || l_pk3 || 'control_id=' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3197:
3198: UPDATE AMW_AP_ASSOCIATIONS
3199: SET LAST_UPDATE_DATE = sysdate,
3200: last_updated_by = fnd_global.user_id,
3213: if(p_commit <> FND_API.g_false)
3214: then commit;
3215: end if;
3216:
3217: fnd_file.put_line(fnd_file.LOG, 'after ap_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3218:
3219:
3220: END IF;
3221:
3245: x_return_status := FND_API.G_RET_STS_SUCCESS;
3246:
3247: EXCEPTION
3248: WHEN NO_DATA_FOUND THEN
3249: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3250: x_return_status := FND_API.G_RET_STS_ERROR;
3251: x_msg_count := 1;
3252: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3253: WHEN OTHERS THEN
3251: x_msg_count := 1;
3252: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3253: WHEN OTHERS THEN
3254: ROLLBACK TO Evaluation_Update_Handler;
3255: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3256: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3258: x_msg_count := 1;
3259: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3252: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3253: WHEN OTHERS THEN
3254: ROLLBACK TO Evaluation_Update_Handler;
3255: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3256: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3258: x_msg_count := 1;
3259: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3260: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3302: BEGIN
3303:
3304: SAVEPOINT Update_Fin_Stmt_Cert_Sum;
3305:
3306: fnd_file.put_line(fnd_file.LOG, 'start oracle.apps.amw.certification.update event subcription: Update_Fin_Stmt_Cert_Sum ' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3307:
3308: l_org_id := p_event.GetValueForParameter('ORG_ID');
3309: l_user_id := p_event.GetValueForParameter('USER_ID');
3310: l_resp_id := p_event.GetValueForParameter('RESP_ID');
3315:
3316: --l_org_id := p_event.GetValueForParameter('ORG_ID');
3317: l_fin_cert_id := p_event.GetValueForParameter('FIN_CERTIFICATION_ID');
3318:
3319: fnd_file.put_line(fnd_file.LOG, 'fin_certification_id = ' || l_fin_cert_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3320:
3321: AMW_FINSTMT_CERT_BES_PKG.Master_Fin_Proc_Eval_Sum
3322: (p_certification_id => l_fin_cert_id,
3323: p_commit => FND_API.g_true,
3324: x_return_status => l_return_status,
3325: x_msg_count => l_msg_count,
3326: x_msg_data => l_msg_data);
3327:
3328: fnd_file.put_line(fnd_file.LOG, 'finish updating summary table with certification_id = ' || l_fin_cert_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3329:
3330: RETURN FND_API.G_RET_STS_SUCCESS;
3331:
3332: EXCEPTION
3375: (p_certification_id => p_certification_id,
3376: x_return_status => l_return_status,
3377: x_msg_count => l_msg_count,
3378: x_msg_data => l_msg_data);
3379: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_fin_process_eval_sum table:p_certification_id = ' || p_certification_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3380: ELSE
3381: Refresh_All_Fin_Proc_Eval_Sum
3382: (p_certification_id => p_certification_id,
3383: x_return_status => l_return_status,
3382: (p_certification_id => p_certification_id,
3383: x_return_status => l_return_status,
3384: x_msg_count => l_msg_count,
3385: x_msg_data => l_msg_data);
3386: fnd_file.put_line(fnd_file.LOG, 'finish refreshing Refresh_All_Fin_Proc_Eval_Sum:p_certification_id = ' || p_certification_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3387: END IF;
3388:
3389: Populate_Fin_Risk_Ass_Sum
3390: (p_certification_id => p_certification_id,
3390: (p_certification_id => p_certification_id,
3391: x_return_status => l_return_status,
3392: x_msg_count => l_msg_count,
3393: x_msg_data => l_msg_data);
3394: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_risk_associations table:p_certification_id = ' || p_certification_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3395: Populate_Fin_Ctrl_Ass_Sum
3396: (p_certification_id => p_certification_id,
3397: x_return_status => l_return_status,
3398: x_msg_count => l_msg_count,
3396: (p_certification_id => p_certification_id,
3397: x_return_status => l_return_status,
3398: x_msg_count => l_msg_count,
3399: x_msg_data => l_msg_data);
3400: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_control_associations table:p_certification_id = ' || p_certification_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3401: Populate_Fin_AP_Ass_Sum
3402: (p_certification_id => p_certification_id,
3403: x_return_status => l_return_status,
3404: x_msg_count => l_msg_count,
3402: (p_certification_id => p_certification_id,
3403: x_return_status => l_return_status,
3404: x_msg_count => l_msg_count,
3405: x_msg_data => l_msg_data);
3406: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_ap_associations table:p_certification_id = ' || p_certification_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3407: l_start_time := sysdate;
3408: INSERT_FIN_CERT_SCOPE
3409: (p_certification_id => p_certification_id,
3410: x_return_status => l_return_status,
3410: x_return_status => l_return_status,
3411: x_msg_count => l_msg_count,
3412: x_msg_data => l_msg_data);
3413: l_end_time := sysdate;
3414: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_fin_cert_scope table:p_certification_id = ' || p_certification_id || ' elapsed time is ' || (l_end_time-l_start_time)*24*60*60);
3415:
3416: INSERT_FIN_RISK
3417: (p_certification_id => p_certification_id,
3418: x_return_status => l_return_status,
3417: (p_certification_id => p_certification_id,
3418: x_return_status => l_return_status,
3419: x_msg_count => l_msg_count,
3420: x_msg_data => l_msg_data);
3421: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_fin_item_acc_risks table:p_certification_id = ' || p_certification_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3422:
3423: INSERT_FIN_CTRL
3424: (p_certification_id => p_certification_id,
3425: x_return_status => l_return_status,
3424: (p_certification_id => p_certification_id,
3425: x_return_status => l_return_status,
3426: x_msg_count => l_msg_count,
3427: x_msg_data => l_msg_data);
3428: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_fin_item_acc_ctrls table:p_certification_id = ' || p_certification_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3429:
3430: l_start_time := sysdate;
3431:
3432: Populate_Cert_General_Sum
3436: x_msg_count => l_msg_count,
3437: x_msg_data => l_msg_data);
3438:
3439: l_end_time := sysdate;
3440: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_cert_dashboard_sum table:p_certification_id = ' || p_certification_id || ' elapsed time is ' || (l_end_time-l_start_time)*24*60*60);
3441: l_start_time := sysdate;
3442: Populate_All_Fin_Org_Eval_Sum
3443: (p_certification_id => p_certification_id,
3444: x_return_status => l_return_status,
3445: x_msg_count => l_msg_count,
3446: x_msg_data => l_msg_data);
3447:
3448: l_end_time := sysdate;
3449: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_fin_org_eval_sum table:p_certification_id = ' || p_certification_id || ' elapsed time is ' || (l_end_time-l_start_time)*24*60*60);
3450: l_start_time := sysdate;
3451:
3452: build_amw_fin_cert_eval_sum
3453: (p_certification_id => p_certification_id,
3455: x_msg_count => l_msg_count,
3456: x_msg_data => l_msg_data);
3457:
3458: l_end_time := sysdate;
3459: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_fin_cert_eval_sum table:p_certification_id = ' || p_certification_id || ' elapsed time is ' || (l_end_time-l_start_time)*24*60*60);
3460:
3461: EXCEPTION
3462: WHEN NO_DATA_FOUND THEN
3463: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3459: fnd_file.put_line(fnd_file.LOG, 'finish populating amw_fin_cert_eval_sum table:p_certification_id = ' || p_certification_id || ' elapsed time is ' || (l_end_time-l_start_time)*24*60*60);
3460:
3461: EXCEPTION
3462: WHEN NO_DATA_FOUND THEN
3463: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3464: x_return_status := FND_API.G_RET_STS_ERROR;
3465: x_msg_count := 1;
3466: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3467: WHEN OTHERS THEN
3465: x_msg_count := 1;
3466: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3467: WHEN OTHERS THEN
3468: ROLLBACK TO Master_Fin_Proc_Eval_Sum;
3469: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3470: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3472: x_msg_count := 1;
3473: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3466: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3467: WHEN OTHERS THEN
3468: ROLLBACK TO Master_Fin_Proc_Eval_Sum;
3469: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3470: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3472: x_msg_count := 1;
3473: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3474: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3558: x_return_status := FND_API.G_RET_STS_SUCCESS;
3559:
3560: EXCEPTION
3561: WHEN NO_DATA_FOUND THEN
3562: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3563: x_return_status := FND_API.G_RET_STS_ERROR;
3564: x_msg_count := 1;
3565: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3566: WHEN OTHERS THEN
3564: x_msg_count := 1;
3565: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3566: WHEN OTHERS THEN
3567: ROLLBACK TO Refresh_All_Fin_Proc_Eval_Sum;
3568: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3569: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3571: x_msg_count := 1;
3572: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3565: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3566: WHEN OTHERS THEN
3567: ROLLBACK TO Refresh_All_Fin_Proc_Eval_Sum;
3568: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3569: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3571: x_msg_count := 1;
3572: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3573: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3969: x_return_status := FND_API.G_RET_STS_SUCCESS;
3970:
3971: EXCEPTION
3972: WHEN NO_DATA_FOUND THEN
3973: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3974: x_return_status := FND_API.G_RET_STS_ERROR;
3975: x_msg_count := 1;
3976: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3977: WHEN OTHERS THEN
3975: x_msg_count := 1;
3976: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3977: WHEN OTHERS THEN
3978: ROLLBACK TO Populate_All_Fin_Proc_Eval_Sum;
3979: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3980: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3982: x_msg_count := 1;
3983: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3976: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3977: WHEN OTHERS THEN
3978: ROLLBACK TO Populate_All_Fin_Proc_Eval_Sum;
3979: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3980: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3982: x_msg_count := 1;
3983: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3984: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4486: x_return_status := FND_API.G_RET_STS_SUCCESS;
4487:
4488: EXCEPTION
4489: WHEN NO_DATA_FOUND THEN
4490: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4491: x_return_status := FND_API.G_RET_STS_ERROR;
4492: x_msg_count := 1;
4493: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4494: WHEN OTHERS THEN
4492: x_msg_count := 1;
4493: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4494: WHEN OTHERS THEN
4495: ROLLBACK TO Populate_Fin_Process_Eval_Sum;
4496: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4497: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4499: x_msg_count := 1;
4500: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4493: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4494: WHEN OTHERS THEN
4495: ROLLBACK TO Populate_Fin_Process_Eval_Sum;
4496: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4497: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4499: x_msg_count := 1;
4500: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4501: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4544: WHEN NO_DATA_FOUND THEN
4545: IF c_cert%ISOPEN THEN
4546: close c_cert;
4547: END IF;
4548: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4549: x_return_status := FND_API.G_RET_STS_ERROR;
4550: x_msg_count := 1;
4551: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4552: WHEN OTHERS THEN
4553: IF c_cert%ISOPEN THEN
4554: close c_cert;
4555: END IF;
4556: ROLLBACK TO Populate_All_Fin_Risk_Ass_Sum;
4557: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4558: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4560: x_msg_count := 1;
4561: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4554: close c_cert;
4555: END IF;
4556: ROLLBACK TO Populate_All_Fin_Risk_Ass_Sum;
4557: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4558: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4560: x_msg_count := 1;
4561: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4562: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4779: WHEN NO_DATA_FOUND THEN
4780: IF c_finrisks%ISOPEN THEN
4781: close c_finrisks;
4782: END IF;
4783: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4784: x_return_status := FND_API.G_RET_STS_ERROR;
4785: x_msg_count := 1;
4786: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4787: WHEN OTHERS THEN
4788: IF c_finrisks%ISOPEN THEN
4789: close c_finrisks;
4790: END IF;
4791: ROLLBACK TO Populate_Fin_Risk_Ass_Sum;
4792: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4793: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4795: x_msg_count := 1;
4796: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4789: close c_finrisks;
4790: END IF;
4791: ROLLBACK TO Populate_Fin_Risk_Ass_Sum;
4792: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4793: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4795: x_msg_count := 1;
4796: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4797: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4878: WHEN NO_DATA_FOUND THEN
4879: IF c_cert%ISOPEN THEN
4880: close c_cert;
4881: END IF;
4882: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4883: x_return_status := FND_API.G_RET_STS_ERROR;
4884: x_msg_count := 1;
4885: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4886: WHEN OTHERS THEN
4887: IF c_cert%ISOPEN THEN
4888: close c_cert;
4889: END IF;
4890: ROLLBACK TO Populate_All_Fin_Ctrl_Ass_Sum;
4891: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4892: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4894: x_msg_count := 1;
4895: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4888: close c_cert;
4889: END IF;
4890: ROLLBACK TO Populate_All_Fin_Ctrl_Ass_Sum;
4891: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4892: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4894: x_msg_count := 1;
4895: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4896: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5113: WHEN NO_DATA_FOUND THEN
5114: IF c_fincontrols%ISOPEN THEN
5115: close c_fincontrols;
5116: END IF;
5117: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5118: x_return_status := FND_API.G_RET_STS_ERROR;
5119: x_msg_count := 1;
5120: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5121: WHEN OTHERS THEN
5122: IF c_fincontrols%ISOPEN THEN
5123: close c_fincontrols;
5124: END IF;
5125: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum;
5126: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5127: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5129: x_msg_count := 1;
5130: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5123: close c_fincontrols;
5124: END IF;
5125: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum;
5126: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5127: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5129: x_msg_count := 1;
5130: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5131: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5214: WHEN NO_DATA_FOUND THEN
5215: IF c_cert%ISOPEN THEN
5216: close c_cert;
5217: END IF;
5218: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5219: x_return_status := FND_API.G_RET_STS_ERROR;
5220: x_msg_count := 1;
5221: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5222: WHEN OTHERS THEN
5223: IF c_cert%ISOPEN THEN
5224: close c_cert;
5225: END IF;
5226: ROLLBACK TO Populate_All_Fin_AP_Ass_Sum;
5227: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5228: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5230: x_msg_count := 1;
5231: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5224: close c_cert;
5225: END IF;
5226: ROLLBACK TO Populate_All_Fin_AP_Ass_Sum;
5227: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5228: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5230: x_msg_count := 1;
5231: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5457: WHEN NO_DATA_FOUND THEN
5458: IF c_finap%ISOPEN THEN
5459: close c_finap;
5460: END IF;
5461: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5462: x_return_status := FND_API.G_RET_STS_ERROR;
5463: x_msg_count := 1;
5464: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5465: WHEN OTHERS THEN
5466: IF c_finap%ISOPEN THEN
5467: close c_finap;
5468: END IF;
5469: ROLLBACK TO Populate_Fin_AP_Ass_Sum;
5470: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5471: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5473: x_msg_count := 1;
5474: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5467: close c_finap;
5468: END IF;
5469: ROLLBACK TO Populate_Fin_AP_Ass_Sum;
5470: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5471: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5473: x_msg_count := 1;
5474: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5475: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5620: x_return_status := FND_API.G_RET_STS_SUCCESS;
5621:
5622: EXCEPTION
5623: WHEN NO_DATA_FOUND THEN
5624: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5625: x_return_status := FND_API.G_RET_STS_ERROR;
5626: x_msg_count := 1;
5627: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5628: WHEN OTHERS THEN
5626: x_msg_count := 1;
5627: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5628: WHEN OTHERS THEN
5629: ROLLBACK TO Populate_All_Fin_Org_Eval_Sum;
5630: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5631: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5633: x_msg_count := 1;
5634: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5627: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5628: WHEN OTHERS THEN
5629: ROLLBACK TO Populate_All_Fin_Org_Eval_Sum;
5630: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5631: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5633: x_msg_count := 1;
5634: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5635: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5949:
5950:
5951:
5952:
5953: --fnd_file.put_line (fnd_file.LOG, 'p_certification_id='||to_char(p_certification_id));
5954: --fnd_file.put_line(fnd_file.LOG, 'p_organization_id='||to_char(p_organization_id));
5955: -- fnd_file.put_line(fnd_file.LOG, 'before last_evaludation:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5956:
5957: OPEN last_evaluation;
5950:
5951:
5952:
5953: --fnd_file.put_line (fnd_file.LOG, 'p_certification_id='||to_char(p_certification_id));
5954: --fnd_file.put_line(fnd_file.LOG, 'p_organization_id='||to_char(p_organization_id));
5955: -- fnd_file.put_line(fnd_file.LOG, 'before last_evaludation:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5956:
5957: OPEN last_evaluation;
5958: FETCH last_evaluation INTO l_eval_opinion_id;
5951:
5952:
5953: --fnd_file.put_line (fnd_file.LOG, 'p_certification_id='||to_char(p_certification_id));
5954: --fnd_file.put_line(fnd_file.LOG, 'p_organization_id='||to_char(p_organization_id));
5955: -- fnd_file.put_line(fnd_file.LOG, 'before last_evaludation:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5956:
5957: OPEN last_evaluation;
5958: FETCH last_evaluation INTO l_eval_opinion_id;
5959: CLOSE last_evaluation;
5956:
5957: OPEN last_evaluation;
5958: FETCH last_evaluation INTO l_eval_opinion_id;
5959: CLOSE last_evaluation;
5960: --fnd_file.put_line(fnd_file.LOG, 'after last_evaludation:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5961:
5962: OPEN total_num_of_proc;
5963: FETCH total_num_of_proc INTO l_total_num_of_procs;
5964: CLOSE total_num_of_proc;
5961:
5962: OPEN total_num_of_proc;
5963: FETCH total_num_of_proc INTO l_total_num_of_procs;
5964: CLOSE total_num_of_proc;
5965: -- fnd_file.put_line(fnd_file.LOG, 'after total_num_of_proc:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5966:
5967:
5968: OPEN proc_with_issue;
5969: FETCH proc_with_issue INTO l_proc_with_issue;
5967:
5968: OPEN proc_with_issue;
5969: FETCH proc_with_issue INTO l_proc_with_issue;
5970: CLOSE proc_with_issue;
5971: -- fnd_file.put_line(fnd_file.LOG, 'after proc_with_issue:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5972:
5973: OPEN proc_without_issue;
5974: FETCH proc_without_issue INTO l_proc_without_issue;
5975: CLOSE proc_without_issue;
5972:
5973: OPEN proc_without_issue;
5974: FETCH proc_without_issue INTO l_proc_without_issue;
5975: CLOSE proc_without_issue;
5976: -- fnd_file.put_line(fnd_file.LOG, 'after proc_without_issue:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5977:
5978: l_proc_certified := l_proc_with_issue + l_proc_without_issue;
5979:
5980: --replace the calculation with one cursor to easy debug process.
5987:
5988: OPEN proc_with_ineff_ctrl;
5989: FETCH proc_with_ineff_ctrl INTO l_proc_with_ineff_ctrl;
5990: CLOSE proc_with_ineff_ctrl;
5991: --fnd_file.put_line(fnd_file.LOG, 'after proc_with_ineff_ctrl:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
5992:
5993:
5994: OPEN verified_processes;
5995: FETCH verified_processes INTO l_proc_verified;
5997:
5998: OPEN unmitigated_risks;
5999: FETCH unmitigated_risks INTO l_unmitigated_risks;
6000: CLOSE unmitigated_risks;
6001: --fnd_file.put_line(fnd_file.LOG, 'after unmitigated:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6002:
6003:
6004: OPEN total_risks;
6005: FETCH total_risks INTO l_total_risks;
6003:
6004: OPEN total_risks;
6005: FETCH total_risks INTO l_total_risks;
6006: CLOSE total_risks;
6007: --fnd_file.put_line(fnd_file.LOG, 'after total_risks:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6008:
6009:
6010: OPEN verified_risks;
6011: FETCH verified_risks INTO l_verified_risks;
6014:
6015: OPEN ineffective_controls;
6016: FETCH ineffective_controls INTO l_ineff_controls;
6017: CLOSE ineffective_controls;
6018: --fnd_file.put_line(fnd_file.LOG, 'after ineffective_controls:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6019:
6020: OPEN total_controls;
6021: FETCH total_controls INTO l_total_controls;
6022: CLOSE total_controls;
6019:
6020: OPEN total_controls;
6021: FETCH total_controls INTO l_total_controls;
6022: CLOSE total_controls;
6023: --fnd_file.put_line(fnd_file.LOG, 'after total_controls:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6024:
6025: OPEN verified_controls;
6026: FETCH verified_controls INTO l_verified_controls;
6027: CLOSE verified_controls;
6028:
6029: OPEN c_org;
6030: FETCH c_org INTO l_sub_vs, l_sub_code, l_lob_vs, l_lob_code;
6031: CLOSE c_org;
6032: -- fnd_file.put_line(fnd_file.LOG, 'after c_org:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6033:
6034: BEGIN
6035: l_open_findings := amw_findings_pkg.calculate_open_findings (
6036: 'AMW_PROJ_FINDING',
6046:
6047: OPEN last_evaluation_history(l_eval_opinion_id);
6048: FETCH last_evaluation_history INTO l_eval_opinion_log_id;
6049: CLOSE last_evaluation_history;
6050: -- fnd_file.put_line(fnd_file.LOG, 'after last_evaludation_history:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6051:
6052: OPEN last_certification;
6053: FETCH last_certification INTO l_cert_opinion_id;
6054: CLOSE last_certification;
6051:
6052: OPEN last_certification;
6053: FETCH last_certification INTO l_cert_opinion_id;
6054: CLOSE last_certification;
6055: --fnd_file.put_line(fnd_file.LOG, 'after last_certification:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6056:
6057: OPEN last_certification_history(l_cert_opinion_id);
6058: FETCH last_certification_history INTO l_cert_opinion_log_id;
6059: CLOSE last_certification_history;
6056:
6057: OPEN last_certification_history(l_cert_opinion_id);
6058: FETCH last_certification_history INTO l_cert_opinion_log_id;
6059: CLOSE last_certification_history;
6060: --fnd_file.put_line(fnd_file.LOG, 'after last_certification_history'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6061:
6062: -- fnd_file.put_line(fnd_file.LOG, 'after open_findings:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6063:
6064: /**05.25.2006 npanandi: bug 5250100 test**/
6058: FETCH last_certification_history INTO l_cert_opinion_log_id;
6059: CLOSE last_certification_history;
6060: --fnd_file.put_line(fnd_file.LOG, 'after last_certification_history'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6061:
6062: -- fnd_file.put_line(fnd_file.LOG, 'after open_findings:'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
6063:
6064: /**05.25.2006 npanandi: bug 5250100 test**/
6065: if((l_sub_vs is null) OR (l_sub_code is null)) then
6066: G_ORG_ERROR := 'Y';
6066: G_ORG_ERROR := 'Y';
6067: /**05.25.2006 npanandi: need x_return_status in
6068: populate_all_fin_org_eval_sum procedure**/
6069: x_return_status := FND_API.G_RET_STS_ERROR;
6070: fnd_file.put_line(fnd_file.LOG, '********** WARNING: Unexpected error in OrganizationId: '||p_organization_id||', processing not done for this Organization' );
6071: else --- do the updates/inserts
6072: /**05.25.2006 npanandi: bug 5250100 test ends**/
6073:
6074: UPDATE AMW_FIN_ORG_EVAL_SUM
6191: x_return_status := FND_API.G_RET_STS_SUCCESS;
6192:
6193: EXCEPTION
6194: WHEN NO_DATA_FOUND THEN
6195: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6196: x_return_status := FND_API.G_RET_STS_ERROR;
6197: x_msg_count := 1;
6198: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6199: WHEN OTHERS THEN
6197: x_msg_count := 1;
6198: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6199: WHEN OTHERS THEN
6200: ROLLBACK TO Populate_Fin_Org_Eval_Sum;
6201: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6202: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6204: x_msg_count := 1;
6205: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6198: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6199: WHEN OTHERS THEN
6200: ROLLBACK TO Populate_Fin_Org_Eval_Sum;
6201: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6202: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6204: x_msg_count := 1;
6205: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6206: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6385: x_return_status := FND_API.G_RET_STS_SUCCESS;
6386:
6387: EXCEPTION
6388: WHEN NO_DATA_FOUND THEN
6389: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6390: x_return_status := FND_API.G_RET_STS_ERROR;
6391: x_msg_count := 1;
6392: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6393: WHEN OTHERS THEN
6391: x_msg_count := 1;
6392: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6393: WHEN OTHERS THEN
6394: ROLLBACK TO build_amw_fin_cert_eval_sum;
6395: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6396: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6398: x_msg_count := 1;
6399: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6392: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6393: WHEN OTHERS THEN
6394: ROLLBACK TO build_amw_fin_cert_eval_sum;
6395: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6396: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6398: x_msg_count := 1;
6399: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6400: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6778: x_return_status := FND_API.G_RET_STS_SUCCESS;
6779:
6780: EXCEPTION
6781: WHEN NO_DATA_FOUND THEN
6782: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6783: x_return_status := FND_API.G_RET_STS_ERROR;
6784: x_msg_count := 1;
6785: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6786: WHEN OTHERS THEN
6784: x_msg_count := 1;
6785: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6786: WHEN OTHERS THEN
6787: ROLLBACK TO compute_values_for_eval_sum;
6788: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6789: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6791: x_msg_count := 1;
6792: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6785: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6786: WHEN OTHERS THEN
6787: ROLLBACK TO compute_values_for_eval_sum;
6788: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6789: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6791: x_msg_count := 1;
6792: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6793: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6896: WHEN NO_DATA_FOUND THEN
6897: IF c_cert%ISOPEN THEN
6898: close c_cert;
6899: END IF;
6900: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6901: x_return_status := FND_API.G_RET_STS_ERROR;
6902: x_msg_count := 1;
6903: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6904: WHEN OTHERS THEN
6905: IF c_cert%ISOPEN THEN
6906: close c_cert;
6907: END IF;
6908: ROLLBACK TO Populate_All_Cert_General_Sum;
6909: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6910: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6912: x_msg_count := 1;
6913: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6906: close c_cert;
6907: END IF;
6908: ROLLBACK TO Populate_All_Cert_General_Sum;
6909: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6910: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6912: x_msg_count := 1;
6913: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6914: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7013:
7014:
7015: l_certification_id := p_certification_id;
7016:
7017: --fnd_file.put_line (fnd_file.LOG, 'p_certification_id='||to_char(p_certification_id));
7018: --fnd_file.put_line(fnd_file.LOG, 'before new_risks_added :'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
7019:
7020: OPEN new_risks_added;
7021: FETCH new_risks_added INTO l_new_risks_added;
7014:
7015: l_certification_id := p_certification_id;
7016:
7017: --fnd_file.put_line (fnd_file.LOG, 'p_certification_id='||to_char(p_certification_id));
7018: --fnd_file.put_line(fnd_file.LOG, 'before new_risks_added :'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
7019:
7020: OPEN new_risks_added;
7021: FETCH new_risks_added INTO l_new_risks_added;
7022: CLOSE new_risks_added;
7020: OPEN new_risks_added;
7021: FETCH new_risks_added INTO l_new_risks_added;
7022: CLOSE new_risks_added;
7023:
7024: --fnd_file.put_line(fnd_file.LOG, 'before new_controls_added :'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
7025: OPEN new_controls_added;
7026: FETCH new_controls_added INTO l_new_controls_added;
7027: CLOSE new_controls_added;
7028:
7025: OPEN new_controls_added;
7026: FETCH new_controls_added INTO l_new_controls_added;
7027: CLOSE new_controls_added;
7028:
7029: --fnd_file.put_line(fnd_file.LOG, 'before orgs_in_scope :'||to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
7030: OPEN orgs_in_scope;
7031: FETCH orgs_in_scope INTO l_orgs_in_scope;
7032: CLOSE orgs_in_scope;
7033:
7120: x_return_status := FND_API.G_RET_STS_SUCCESS;
7121:
7122: EXCEPTION
7123: WHEN NO_DATA_FOUND THEN
7124: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
7125: x_return_status := FND_API.G_RET_STS_ERROR;
7126: x_msg_count := 1;
7127: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7128: WHEN OTHERS THEN
7126: x_msg_count := 1;
7127: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7128: WHEN OTHERS THEN
7129: ROLLBACK TO Populate_Cert_General_Sum;
7130: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
7131: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
7132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7133: x_msg_count := 1;
7134: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7127: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7128: WHEN OTHERS THEN
7129: ROLLBACK TO Populate_Cert_General_Sum;
7130: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
7131: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
7132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7133: x_msg_count := 1;
7134: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7135: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7961: x_return_status := FND_API.G_RET_STS_SUCCESS;
7962:
7963: EXCEPTION
7964: WHEN NO_DATA_FOUND THEN
7965: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
7966: x_return_status := FND_API.G_RET_STS_ERROR;
7967: x_msg_count := 1;
7968: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7969: WHEN OTHERS THEN
7967: x_msg_count := 1;
7968: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7969: WHEN OTHERS THEN
7970: ROLLBACK TO RISK_EVALUATION_HANDLER;
7971: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
7972: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
7973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7974: x_msg_count := 1;
7975: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7968: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7969: WHEN OTHERS THEN
7970: ROLLBACK TO RISK_EVALUATION_HANDLER;
7971: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
7972: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
7973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7974: x_msg_count := 1;
7975: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7976: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8580: WHEN NO_DATA_FOUND THEN
8581: IF Get_all_fin_cert%ISOPEN THEN
8582: close Get_all_fin_cert;
8583: end if;
8584: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
8585: x_return_status := FND_API.G_RET_STS_ERROR;
8586: x_msg_count := 1;
8587: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
8588: WHEN OTHERS THEN
8589: IF Get_all_fin_cert%ISOPEN THEN
8590: close Get_all_fin_cert;
8591: end if;
8592: ROLLBACK TO CONTROL_EVALUATION_HANDLER;
8593: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
8594: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
8595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8596: x_msg_count := 1;
8597: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
8590: close Get_all_fin_cert;
8591: end if;
8592: ROLLBACK TO CONTROL_EVALUATION_HANDLER;
8593: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
8594: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
8595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8596: x_msg_count := 1;
8597: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
8598: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9584: x_return_status := FND_API.G_RET_STS_SUCCESS;
9585:
9586: EXCEPTION
9587: WHEN NO_DATA_FOUND THEN
9588: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
9589: x_return_status := FND_API.G_RET_STS_ERROR;
9590: x_msg_count := 1;
9591: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9592: WHEN OTHERS THEN
9590: x_msg_count := 1;
9591: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9592: WHEN OTHERS THEN
9593: ROLLBACK TO PROCESS_CHANGE_HANDLER;
9594: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
9595: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
9596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9597: x_msg_count := 1;
9598: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9591: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9592: WHEN OTHERS THEN
9593: ROLLBACK TO PROCESS_CHANGE_HANDLER;
9594: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
9595: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
9596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9597: x_msg_count := 1;
9598: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9599: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9975: x_return_status := FND_API.G_RET_STS_SUCCESS;
9976:
9977: EXCEPTION
9978: WHEN NO_DATA_FOUND THEN
9979: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
9980: x_return_status := FND_API.G_RET_STS_ERROR;
9981: x_msg_count := 1;
9982: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9983: WHEN OTHERS THEN
9981: x_msg_count := 1;
9982: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9983: WHEN OTHERS THEN
9984: ROLLBACK TO ORGANIZATION_CHANGE_HANDLER;
9985: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
9986: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
9987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9988: x_msg_count := 1;
9989: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9982: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9983: WHEN OTHERS THEN
9984: ROLLBACK TO ORGANIZATION_CHANGE_HANDLER;
9985: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
9986: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
9987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9988: x_msg_count := 1;
9989: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9990: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10182: WHEN NO_DATA_FOUND THEN
10183: IF c_finrisks%ISOPEN THEN
10184: close c_finrisks;
10185: END IF;
10186: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
10187: x_return_status := FND_API.G_RET_STS_ERROR;
10188: x_msg_count := 1;
10189: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
10190: WHEN OTHERS THEN
10191: IF c_finrisks%ISOPEN THEN
10192: close c_finrisks;
10193: END IF;
10194: ROLLBACK TO Populate_Fin_Risk_Ass_Sum_M;
10195: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10196: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10198: x_msg_count := 1;
10199: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10192: close c_finrisks;
10193: END IF;
10194: ROLLBACK TO Populate_Fin_Risk_Ass_Sum_M;
10195: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10196: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10198: x_msg_count := 1;
10199: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10200: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10389: WHEN NO_DATA_FOUND THEN
10390: IF c_fincontrols%ISOPEN THEN
10391: close c_fincontrols;
10392: END IF;
10393: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
10394: x_return_status := FND_API.G_RET_STS_ERROR;
10395: x_msg_count := 1;
10396: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
10397: WHEN OTHERS THEN
10398: IF c_fincontrols%ISOPEN THEN
10399: close c_fincontrols;
10400: END IF;
10401: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum_M;
10402: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10403: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10405: x_msg_count := 1;
10406: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10399: close c_fincontrols;
10400: END IF;
10401: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum_M;
10402: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10403: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10405: x_msg_count := 1;
10406: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10407: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10600: WHEN NO_DATA_FOUND THEN
10601: IF c_finap%ISOPEN THEN
10602: close c_finap;
10603: END IF;
10604: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
10605: x_return_status := FND_API.G_RET_STS_ERROR;
10606: x_msg_count := 1;
10607: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
10608: WHEN OTHERS THEN
10609: IF c_finap%ISOPEN THEN
10610: close c_finap;
10611: END IF;
10612: ROLLBACK TO Populate_Fin_AP_Ass_Sum_M;
10613: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10614: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10616: x_msg_count := 1;
10617: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10610: close c_finap;
10611: END IF;
10612: ROLLBACK TO Populate_Fin_AP_Ass_Sum_M;
10613: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10614: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10616: x_msg_count := 1;
10617: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10618: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10675: RETURN X_PROC_VERIFIED;
10676: EXCEPTION
10677: WHEN NO_DATA_FOUND THEN
10678: /*** Record doesn't exist ***/
10679: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Verified_M');
10680: RETURN 0;
10681: WHEN OTHERS THEN
10682: /*** Raise any other error ***/
10683: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified_M');
10679: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Verified_M');
10680: RETURN 0;
10681: WHEN OTHERS THEN
10682: /*** Raise any other error ***/
10683: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified_M');
10684: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10685: RAISE;
10686:
10687: END Get_Proc_Verified_M;
10680: RETURN 0;
10681: WHEN OTHERS THEN
10682: /*** Raise any other error ***/
10683: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified_M');
10684: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10685: RAISE;
10686:
10687: END Get_Proc_Verified_M;
10688:
10736:
10737: EXCEPTION
10738: WHEN NO_DATA_FOUND THEN
10739: /*** Record doesn't exist ***/
10740: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
10741: RETURN 0;
10742: WHEN OTHERS THEN
10743: /*** Raise any other error ***/
10744: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
10740: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
10741: RETURN 0;
10742: WHEN OTHERS THEN
10743: /*** Raise any other error ***/
10744: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
10745: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10746: RAISE;
10747:
10748: END Get_ORG_EVALUATED_M;
10741: RETURN 0;
10742: WHEN OTHERS THEN
10743: /*** Raise any other error ***/
10744: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
10745: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10746: RAISE;
10747:
10748: END Get_ORG_EVALUATED_M;
10749:
10819: RETURN X_RISKS_VERIFIED;
10820: EXCEPTION
10821: WHEN NO_DATA_FOUND THEN
10822: /*** Record doesn't exist ***/
10823: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
10824: RETURN 0;
10825: WHEN OTHERS THEN
10826: /*** Raise any other error ***/
10827: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
10823: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
10824: RETURN 0;
10825: WHEN OTHERS THEN
10826: /*** Raise any other error ***/
10827: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
10828: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10829: RAISE;
10830:
10831: END Get_RISKS_VERIFIED_M;
10824: RETURN 0;
10825: WHEN OTHERS THEN
10826: /*** Raise any other error ***/
10827: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
10828: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10829: RAISE;
10830:
10831: END Get_RISKS_VERIFIED_M;
10832:
10901: RETURN X_CONTROLS_VERIFIED;
10902: EXCEPTION
10903: WHEN NO_DATA_FOUND THEN
10904: /*** Record doesn't exist ***/
10905: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
10906: RETURN 0;
10907: WHEN OTHERS THEN
10908: /*** Raise any other error ***/
10909: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
10905: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
10906: RETURN 0;
10907: WHEN OTHERS THEN
10908: /*** Raise any other error ***/
10909: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
10910: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10911: RAISE;
10912:
10913:
10906: RETURN 0;
10907: WHEN OTHERS THEN
10908: /*** Raise any other error ***/
10909: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
10910: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10911: RAISE;
10912:
10913:
10914: END Get_CONTROLS_VERIFIED_M;