81: --
82: l_fmt VARCHAR2 (100);
83: i NUMBER;
84: l_result VARCHAR2 (30);
85: l_locus MDSYS.SDO_GEOMETRY;
86: l_validated_flag VARCHAR2 (30);
87: l_task_rec task_rec_type;
88: l_task_rec_tbl task_rec_tbl_type;
89: l_return_status VARCHAR2 (1);
1125: --
1126: -- returns:
1127: -- FALSE if the geometry is null or any of the components are null.
1128: -- TRUE otherwise
1129: FUNCTION is_geometry_null (p_locus IN MDSYS.SDO_GEOMETRY)
1130: RETURN BOOLEAN
1131: IS
1132: BEGIN
1133: RETURN ( (p_locus IS NULL)