20210728083716001.0TRUECalculateField VerticalPointStructure Gmlid [FID]+1 VB #CalculateField VerticalPointStructure Type "NAVAID" VB #CalculateField VerticalPointStructure Height round( [Height] ,4) VB #CalculateField VerticalPointStructure RECORD_IDE ""OMAA_3_"& [RECORD_IDE]" VB #CalculateField VerticalPointStructure Vacc .5 VB #CalculateField VerticalPointStructure Hacc .5 VB #CalculateField VerticalPointStructure Vacc .01 VB #CalculateField VerticalPointStructure Vacc .01 VB #CalculateField VerticalPointStructure VerAreatyp "AREA3" VB #CalculateField VerticalPointStructure Vacc .5 VB #CalculateField VerticalPointStructure Gmlid [FID]+1 VB #CalculateField VerticalPointStructure RECORD_IDE ""OMAD_3_"& [RECORD_IDE]" VB #CalculateField VerticalPointStructure RECORD_IDE Replace( [RECORD_IDE],"OMAD","OMAD_3_" ) VB #CalculateField VerticalPointStructure Type "NAVAID" VB #CalculateField VerticalPointStructure Type "NAVAID" VB #CalculateField VerticalPointStructure RECORD_IDE ""OMAD_3_"& [RECORD_IDE]" VB #CalculateField VerticalPointStructure Gmlid [FID]+1 VB #CalculateField VerticalPointStructure H_extent .5 VB #CalculateField VerticalPointStructure SURVEY_NO [RECORD_IDE] VB #CalculateField VerticalPointStructure Type "ELECTRICAL_SYSTEM" VB #CalculateField VerticalPointStructure Feattype "VerticalPointStructure" VB #CalculateField VerticalPointStructure Height_uom "M" VB #CalculateField VerticalPointStructure Elev_uom "M" VB #CalculateField VerticalPointStructure Vacc_uom "M" VB #CalculateField VerticalPointStructure Hacc_uom "M" VB #CalculateField VerticalPointStructure Geound_uom "M" VB #CalculateField VerticalPointStructure Lighting "NO" VB #CalculateField VerticalPointStructure Marking "NO" VB #CalculateField VerticalPointStructure Vacc 0.5 VB #CalculateField VerticalPointStructure Hacc 0.5 VB #CalculateField VerticalPointStructure Vert_Datum "EGM_96" VB #CalculateField VerticalPointStructure Geom_Type "point" VB #CalculateField VerticalPointStructure Operations "completed" VB #CalculateField VerticalPointStructure VerAreatyp "AREA2" VB #CalculateField VerticalPointStructure zone "40N" VB #CalculateField VerticalPointStructure group_ "NO" VB #CalculateField VerticalPointStructure H_extent 0.3 VB #CalculateField VerticalPointStructure UUID ID() PYTHON_9.3 "def ID():\n import uuid\n return '{' + str(uuid.uuid4()) + '}'\n"CalculateField VerticalPointStructure RECORD_IDE ""OMAD_2A"&""& [SURVEY_NO]" VB #CalculateField VerticalPointStructure RECORD_IDE ""OMAD_2A_"&""& [SURVEY_NO]" VB #CalculateField VerticalPointStructure VerAreatyp AREA3 VB #CalculateField VerticalPointStructure VerAreatyp "AREA3" VB #CalculateField VerticalPointStructure Operations "obsolete" VB #