CREATE OR REPLACE TYPE GeoCoord AS OBJECT
 ( Longitude NUMBER,
   Latitude NUMBER,
    MEMBER FUNCTION
     Distance (other IN GeoCoord)
     RETURN NUMBER,
    MAP MEMBER FUNCTION
     Distance_Greenwich RETURN NUMBER,
    PRAGMA RESTRICT_REFERENCES
     ( Distance, WNPS, WNDS, RNPS, RNDS),
    PRAGMA RESTRICT_REFERENCES
     ( Distance_Greenwich, WNPS, WNDS, RNPS, RNDS)
 );
 /
