1847: --Get visit number
1848: SELECT MAX(visit_number) INTO l_visit_number
1849: FROM Ahl_Visits_B;
1850: --
1851: ahl_visits_pkg.Insert_Row
1852: (
1853: X_ROWID => l_rowid,
1854: X_VISIT_ID => l_visit_id,
1855: X_VISIT_NUMBER => l_visit_number+1,
2665: CLOSE c_Material;
2666: */
2667: /* mpothuku End */
2668: -- Remove the visit as well
2669: AHL_VISITS_PKG.DELETE_ROW (
2670: X_VISIT_ID => p_visit_id);
2671:
2672: ---------------------------End of Body---------------------------------------
2673: --Standard check to count messages