149: x_return_status := FND_API.G_RET_STS_SUCCESS;
150:
151: EXCEPTION
152: WHEN NO_DATA_FOUND THEN
153: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
154: x_return_status := FND_API.G_RET_STS_ERROR;
155: x_msg_count := 1;
156: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
157: WHEN OTHERS THEN
155: x_msg_count := 1;
156: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
157: WHEN OTHERS THEN
158: ROLLBACK TO POPULATE_PROC_HIERARCHY;
159: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
160: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: x_msg_count := 1;
163: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
156: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
157: WHEN OTHERS THEN
158: ROLLBACK TO POPULATE_PROC_HIERARCHY;
159: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
160: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: x_msg_count := 1;
163: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
164: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
530: x_return_status := FND_API.G_RET_STS_SUCCESS;
531:
532: EXCEPTION
533: WHEN NO_DATA_FOUND THEN
534: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: x_msg_count := 1;
537: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
538: WHEN OTHERS THEN
536: x_msg_count := 1;
537: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
538: WHEN OTHERS THEN
539: ROLLBACK TO INSERT_FIN_CERT_SCOPE;
540: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
541: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: x_msg_count := 1;
544: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
537: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
538: WHEN OTHERS THEN
539: ROLLBACK TO INSERT_FIN_CERT_SCOPE;
540: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
541: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: x_msg_count := 1;
544: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
545: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
734: WHEN NO_DATA_FOUND THEN
735: IF c_finrisks%ISOPEN THEN
736: close c_finrisks;
737: END IF;
738: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
739: x_return_status := FND_API.G_RET_STS_ERROR;
740: x_msg_count := 1;
741: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
742: WHEN OTHERS THEN
743: IF c_finrisks%ISOPEN THEN
744: close c_finrisks;
745: END IF;
746: ROLLBACK TO Populate_Fin_Risk_Ass_Sum_M;
747: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
748: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: x_msg_count := 1;
751: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
744: close c_finrisks;
745: END IF;
746: ROLLBACK TO Populate_Fin_Risk_Ass_Sum_M;
747: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
748: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: x_msg_count := 1;
751: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
752: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
938: WHEN NO_DATA_FOUND THEN
939: IF c_fincontrols%ISOPEN THEN
940: close c_fincontrols;
941: END IF;
942: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: x_msg_count := 1;
945: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
946: WHEN OTHERS THEN
947: IF c_fincontrols%ISOPEN THEN
948: close c_fincontrols;
949: END IF;
950: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum_M;
951: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
952: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: x_msg_count := 1;
955: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
948: close c_fincontrols;
949: END IF;
950: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum_M;
951: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
952: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: x_msg_count := 1;
955: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
956: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1147: WHEN NO_DATA_FOUND THEN
1148: IF c_finap%ISOPEN THEN
1149: close c_finap;
1150: END IF;
1151: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
1152: x_return_status := FND_API.G_RET_STS_ERROR;
1153: x_msg_count := 1;
1154: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1155: WHEN OTHERS THEN
1156: IF c_finap%ISOPEN THEN
1157: close c_finap;
1158: END IF;
1159: ROLLBACK TO Populate_Fin_AP_Ass_Sum_M;
1160: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1161: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1163: x_msg_count := 1;
1164: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1157: close c_finap;
1158: END IF;
1159: ROLLBACK TO Populate_Fin_AP_Ass_Sum_M;
1160: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1161: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1163: x_msg_count := 1;
1164: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1165: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1219: RETURN X_PROC_VERIFIED;
1220: EXCEPTION
1221: WHEN NO_DATA_FOUND THEN
1222: /*** Record doesn't exist ***/
1223: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Verified_M');
1224: RETURN 0;
1225: WHEN OTHERS THEN
1226: /*** Raise any other error ***/
1227: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified_M');
1223: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_Proc_Verified_M');
1224: RETURN 0;
1225: WHEN OTHERS THEN
1226: /*** Raise any other error ***/
1227: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified_M');
1228: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1229: RAISE;
1230:
1231: END Get_Proc_Verified_M;
1224: RETURN 0;
1225: WHEN OTHERS THEN
1226: /*** Raise any other error ***/
1227: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_Proc_Verified_M');
1228: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1229: RAISE;
1230:
1231: END Get_Proc_Verified_M;
1232:
1278:
1279: EXCEPTION
1280: WHEN NO_DATA_FOUND THEN
1281: /*** Record doesn't exist ***/
1282: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
1283: RETURN 0;
1284: WHEN OTHERS THEN
1285: /*** Raise any other error ***/
1286: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
1282: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
1283: RETURN 0;
1284: WHEN OTHERS THEN
1285: /*** Raise any other error ***/
1286: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
1287: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1288: RAISE;
1289:
1290: END Get_ORG_EVALUATED_M;
1283: RETURN 0;
1284: WHEN OTHERS THEN
1285: /*** Raise any other error ***/
1286: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_ORG_EVALUATED_M');
1287: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1288: RAISE;
1289:
1290: END Get_ORG_EVALUATED_M;
1291:
1359: RETURN X_RISKS_VERIFIED;
1360: EXCEPTION
1361: WHEN NO_DATA_FOUND THEN
1362: /*** Record doesn't exist ***/
1363: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
1364: RETURN 0;
1365: WHEN OTHERS THEN
1366: /*** Raise any other error ***/
1367: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
1363: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
1364: RETURN 0;
1365: WHEN OTHERS THEN
1366: /*** Raise any other error ***/
1367: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
1368: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1369: RAISE;
1370:
1371: END Get_RISKS_VERIFIED_M;
1364: RETURN 0;
1365: WHEN OTHERS THEN
1366: /*** Raise any other error ***/
1367: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_RISKS_VERIFIED_M');
1368: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1369: RAISE;
1370:
1371: END Get_RISKS_VERIFIED_M;
1372:
1424: RETURN X_CONTROLS_VERIFIED;
1425: EXCEPTION
1426: WHEN NO_DATA_FOUND THEN
1427: /*** Record doesn't exist ***/
1428: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
1429: RETURN 0;
1430: WHEN OTHERS THEN
1431: /*** Raise any other error ***/
1432: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
1428: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
1429: RETURN 0;
1430: WHEN OTHERS THEN
1431: /*** Raise any other error ***/
1432: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
1433: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1434: RAISE;
1435:
1436:
1429: RETURN 0;
1430: WHEN OTHERS THEN
1431: /*** Raise any other error ***/
1432: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.Get_CONTROLS_VERIFIED_M');
1433: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1434: RAISE;
1435:
1436:
1437: END Get_CONTROLS_VERIFIED_M;
1539: END IF;
1540: x_return_status := FND_API.G_RET_STS_SUCCESS;
1541: EXCEPTION
1542: WHEN NO_DATA_FOUND THEN
1543: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
1544: x_return_status := FND_API.G_RET_STS_ERROR;
1545: x_msg_count := 1;
1546: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1547: WHEN OTHERS THEN
1545: x_msg_count := 1;
1546: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1547: WHEN OTHERS THEN
1548: ROLLBACK TO INSERT_FIN_RISK;
1549: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1550: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1552: x_msg_count := 1;
1553: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1546: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1547: WHEN OTHERS THEN
1548: ROLLBACK TO INSERT_FIN_RISK;
1549: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1550: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1552: x_msg_count := 1;
1553: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1554: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1665: x_return_status := FND_API.G_RET_STS_SUCCESS;
1666:
1667: EXCEPTION
1668: WHEN NO_DATA_FOUND THEN
1669: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671: x_msg_count := 1;
1672: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1673: WHEN OTHERS THEN
1671: x_msg_count := 1;
1672: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1673: WHEN OTHERS THEN
1674: ROLLBACK TO INSERT_FIN_CTRL;
1675: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1676: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1678: x_msg_count := 1;
1679: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1672: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1673: WHEN OTHERS THEN
1674: ROLLBACK TO INSERT_FIN_CTRL;
1675: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1676: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1678: x_msg_count := 1;
1679: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1680: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);