20230131 22025900 1.0 FALSE CalculateField D:\StageDBs\SQLTrans.gdb\StreetsAndFootprints\Streets LifeCycleStatus 2 VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets CLASS "A40" VB # CalculateField Streets MUNL "NCTY" VB # CalculateField Streets MUNR "NCTY" VB # CalculateField Streets ZIPL "34238" VB # CalculateField Streets ZIPR "34238" VB # CalculateField Streets AddressType 0 VB # CalculateField Streets ChangeType "NSA" VB # CalculateField Streets ONEWAY "NONE" VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets CLASS "A40" VB # CalculateField Streets MUNL "NCTY" VB # CalculateField Streets MUNR "NCTY" VB # CalculateField Streets ZIPL "34238" VB # CalculateField Streets ZIPR "34238" VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets CLASS "A40" VB # CalculateField Streets ZIPL "34243" VB # CalculateField Streets ZIPR "34243" VB # CalculateField Streets AddressType 0 VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets CLASS "A40" VB # CalculateField Streets AddressType 0 VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets CLASS "A40" VB # CalculateField Streets CLASS "A40" VB # CalculateField Streets MUNL "NCTY" VB # CalculateField Streets MUNR "NCTY" VB # CalculateField Streets ZIPL "34229" VB # CalculateField Streets ZIPR "34229" VB # CalculateField Streets AddressType 0 VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets CLASS "A40" VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets AddressType 0 VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\nRtrim(a = p & n & t & s)\n\n" CalculateField Streets FULL_NAME Addr VB "Dim Addr\n\nIf Not IsNull([SDIRPRE]) Then Addr = [SDIRPRE] \nIf Not IsNull ([SFEANME]) Then Addr = Addr & " " & [SFEANME] \nIf Not IsNull([SFEATYP]) Then Addr = Addr & " " & [SFEATYP] \nIf Not IsNull([SDIRSUF]) Then Addr = Addr & " " & [SDIRSUF] \n" CalculateField Streets FULL_NAME Addr VB "Dim Addr\n\nIf Not IsNull([SDIRPRE]) Then Addr = [SDIRPRE] \nIf Not IsNull ([SFEANME]) Then Addr = Addr & " " & [SFEANME] \nIf Not IsNull([SFEATYP]) Then Addr = Addr & " " & [SFEATYP] \nIf Not IsNull([SDIRSUF]) Then Addr = Addr & " " & [SDIRSUF] \nRTrim( [FULL_NAME] )\nLTrim( [FULL_NAME] )\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME RTrim( [FULL_NAME] ) VB # CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME RTrim( [FULL_NAME] ) VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets AddressType 0 VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets CLASS "A40" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets AddressType 0 VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets LifeCycleStatus 1 VB # CalculateField Streets CLASS "A40" VB # CalculateField Streets FRADDL 0 VB # CalculateField Streets TOADDL 0 VB # CalculateField Streets FRADDR 0 VB # CalculateField Streets TOADDR 0 VB # CalculateField Streets MUNL "SCTY" VB # CalculateField Streets MUNR "SCTY" VB # CalculateField Streets ChangeType "NWST" VB # CalculateField Streets ZIPL "34292" VB # CalculateField Streets ZIPR "34292" VB # CalculateField Streets AddressType 0 VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets ONEWAY "NONE" VB # CalculateField Streets MaintenanceEntity "PRIV" VB # CalculateField Streets FULL_NAME "[SFEANME] + " " + [SFEATYP]" VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\nRTrim(a = p & n & t & s )\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\nRTrim( [FULL_NAME] )" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\nRTrim( [FULL_NAME] )" CalculateField Streets FULL_NAME RTrim( [FULL_NAME] ) VB # CalculateField Streets FULL_NAME Addr VB "Dim Addr\n\nIf Not IsNull( [SDIRPRE] ) Then Addr = [SDIRPRE] \nIf Not IsNull( [SFEANME] ) Then Addr = Addr & " " & [SFEANME] \nIf Not IsNull( [SFEATYP] ) Then Addr = Addr & " " & [SFEATYP] \nIf Not IsNull( [SDIRSUF] ) Then Addr = Addr & " " & [SDIRSUF] \n\n\n" CalculateField Streets FULL_NAME Addr VB "Dim Addr\n\nIf Not IsNull( [SDIRPRE] ) Then Addr = [SDIRPRE] \nIf Not IsNull( [SFEANME] ) Then Addr = Addr & " " & [SFEANME] \nIf Not IsNull( [SFEATYP] ) Then Addr = Addr & " " & [SFEATYP] \nIf Not IsNull( [SDIRSUF] ) Then Addr = Addr & " " & [SDIRSUF] \nLTrim([FULL_NAME])\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME RTrim( [FULL_NAME] ) VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets ZIPL "34287" VB # CalculateField Streets ZIPL "34291" VB # CalculateField Streets ZIPL "34287" VB # CalculateField Streets ZIPL "34286" VB # CalculateField Streets ZIPR "34289" VB # CalculateField Streets FULL_NAME LTrim( [FULL_NAME] ) VB # CalculateField Streets FULL_NAME LTrim( [FULL_NAME] ) VB # CalculateField Streets ZIPL "34287" VB # CalculateField Streets ZIPL "34291" VB # CalculateField Streets ZIPL "34287" VB # CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME LTrim( [FULL_NAME] ) VB # CalculateField Streets FULL_NAME RTrim( [FULL_NAME] ) VB # CalculateField Streets F_ZELEV 0 VB # CalculateField Streets T_ZELEV 0 VB # CalculateField Streets CLASS "A40" VB # CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME RTrim( [FULL_NAME]) VB # CalculateField Streets FULL_NAME LTrim( [FULL_NAME]) VB # CalculateField Streets FULL_NAME Addr VB "Dim Addr\n\nIf Not IsNull([SDIRPRE]) Then Addr = [SDIRPRE] \nIf Not IsNull([SFEANME]) Then Addr = Addr & " " & [SFEANME]\nIf Not IsNull([SFEATYP]) Then Addr = Addr & " " & [SFEATYP] \nIf Not IsNull ([SDIRSUF]) Then Addr = Addr & ", " & [SDIRSUF] \n\n\n" CalculateField Streets FULL_NAME Addr VB "Dim Addr\n\nIf Not IsNull([SDIRPRE]) Then Addr = [SDIRPRE] \nIf Not IsNull([SFEANME]) Then Addr = Addr & " " & [SFEANME]\nIf Not IsNull([SFEATYP]) Then Addr = Addr & " " & [SFEATYP] \nIf Not IsNull ([SDIRSUF]) Then Addr = Addr & ", " & [SDIRSUF]\n\nLTrim( [FULL_NAME] )\n\n\n" CalculateField Streets FULL_NAME LTrim( [FULL_NAME]) VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME LTrim( [FULL_NAME] ) VB # CalculateField Streets FULL_NAME RTrim( [FULL_NAME] ) VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID 0 VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets SDIRPRE "N" VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\nRTrim(a = p & n & t & s )\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n RTrim( a )\n\n" CalculateField Streets FULL_NAME a VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n RTrim( [FULL_NAME] )\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets SPEEDLIMIT 45 VB # CalculateField Streets SPEEDLIMIT 40 VB # CalculateField Streets SPEEDLIMIT 40 VB # CalculateField Streets SPEEDLIMIT "40" VB # CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets AddressType RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" DisableEditorTracking V:\NewDatabaseConnections\SQLTransAsTrans.sde\SQLTrans.TRANS.Streets DISABLE_CREATOR DISABLE_CREATION_DATE DISABLE_LAST_EDITOR DISABLE_LAST_EDIT_DATE EnableEditorTracking V:\NewDatabaseConnections\SQLTransAsTrans.sde\SQLTrans.TRANS.Streets Creator CreateDate LastEditor LastUpdate NO_ADD_FIELDS UTC CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets_TRANS FULL_NAME ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets_TRANS StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets_TRANS FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets_TRANS StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets SFEANME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets FULL_NAME RTrim( a) VB "p= ([SDIRPRE])\ns= ([SDIRSUF])\nn= ([SFEANME]) \nt= ([SFEATYP]) \n\nIf (p=" ") OR IsNull(p) then\np=""\nelse\np=p&" "\nend if\n\nIf (n=" ") OR IsNull(n) then\nn=""\nelse\nn=n&" "\nend if\n\nIf (t=" ") OR IsNull(t) then\nt=""\nelse\nt=t&" "\nend if\n\nIf (s=" ") OR IsNull(s) then\ns=""\nelse\ns=s&" "\nend if\n\na = p & n & t & s\n\n\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField Streets StreetID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "ST" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField GIS_Test.GIS.NP_Streets NPFC "Primary Arterial" VB # CalculateField GIS_Test.GIS.NP_Streets NPFC "Arterial" VB # CalculateField GIS_Test.GIS.NP_Streets NPFC "Collector" VB # CalculateField GIS_Test.GIS.NP_Streets NPFC "Local" VB # CalculateField GIS_Test.GIS.NP_Streets NorthPortDescriptor [NPFC] VB # CalculateField GIS_Test.GIS.NP_Streets NPFC "LOCAL" VB # CalculateField GIS_Test.GIS.NP_Streets NPFC "Local" VB # CalculateField GIS_Test.GIS.NP_Streets NorthPortDescriptor [NPFC] VB # CalculateField GIS_Test.GIS.NP_Streets NPFC "Local" VB # CalculateField GIS_Test.GIS.NP_Streets ZIPL 34293 VB # CalculateField GIS_Test.GIS.NP_Streets ZIPR 34293 VB # CalculateField GIS_Test.GIS.NP_Streets MUNR "NPRT" VB # CalculateField GIS_Test.GIS.NP_Streets MUNL "NPRT" VB # CalculateField GIS_Test.GIS.NP_Streets SPEEDLIMIT 30 VB # CalculateField GIS_Test.GIS.NP_Streets MaintenanceEntity "CNP" VB # CalculateField GIS_Test.GIS.NP_Streets NorthPortDescriptor "Local" VB # CalculateField GIS_Test.GIS.NP_Streets ONEWAY "NONE" VB # CalculateField GIS_Test.GIS.NP_Streets CLASS "A40" VB # CalculateField GIS_Test.GIS.NP_Streets LifeCycleStatus "Approved" VB # CalculateField GIS_Test.GIS.NP_Streets LifeCycleStatus 2 VB # CalculateField GIS_Test.GIS.NP_Streets NPFC "Local" VB # CalculateField GIS_Test.GIS.NP_Streets SFEANME "TAPESTRY" VB # CalculateField GIS_Test.GIS.NP_Streets SFEATYP "LN" VB # CalculateField GIS_Test.GIS.NP_Streets FULL_NAME "TAPESTRY LN" VB # CalculateField GIS_Test.GIS.NP_Streets SFEANME "SWALLOWTAIL" VB # CalculateField GIS_Test.GIS.NP_Streets FULL_NAME "SWALLOWTAIL CT" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Collector" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Collector" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Collector" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Collector" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets NETWORK_ROAD_TYPE 2 VB # CalculateField GIS_Edit.GIS.NP_Streets FULL_NAME " LTrim( [SDIRPRE] & " " & [SFEANME] & " " & [SFEATYP] )" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" VB # CalculateField Roads NPFC "Collector" VB # CalculateField Roads NorthPortDescriptor "Collector" VB # CalculateField Roads NPFC "Private" VB # CalculateField Roads NorthPortDescriptor "Private" VB # CalculateField Roads NPFC "Local" VB # CalculateField Roads NorthPortDescriptor "Local" VB # CalculateField Roads NPFC "Private" VB # CalculateField Roads NorthPortDescriptor "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "LOCAL" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "LOCAL" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "LOCAL" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "PRIVATE" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "PRIVATE" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Local" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Local" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Collector" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Collector" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NorthPortDescriptor "Private" "Python 3" # UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/2.4.0'><FeatureDataset>GIS_Edit.GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD=00022e684747685074496a684b6862313157654e576a344b424e7044707677706131372b6d645742376875574a4b303d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=GIS_Edit;USER=gis;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS_Edit.GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><DeleteField><field_name>NorthPortDescriptor</field_name></DeleteField></workflow></operationSequence> CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets MaintenanceEntity "PVT" VB # CalculateField GIS_Edit.GIS.NP_Streets MaintenanceEntity "FDOT" VB # CalculateField GIS_Edit.GIS.NP_Streets MaintenanceEntity "CNP" VB # CalculateField GIS_Edit.GIS.NP_Streets MaintenanceEntity "CNP" VB # CalculateField GIS_Edit.GIS.NP_Streets MaintenanceEntity "SC" VB # CalculateField "Major Roads" NPFC "Arterial" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # CalculateField GIS_Edit.GIS.NP_Streets MaintenanceEntity "CNP" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Local" VB # CalculateField GIS_Edit.GIS.NP_Streets MaintenanceEntity "CNP" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Arterial" "Python 3" # Text CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Arterial" "Python 3" # Text CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Arterial" "Python 3" # Text CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" "Python 3" # Text CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text CalculateField "Splits and Combines\GIS_Edit.GIS.NP_Streets" SFEANME "MCTAGUE" "Python 3" # Text CalculateField "Splits and Combines\GIS_Edit.GIS.NP_Streets" FULL_NAME "MCTAGUE ST" "Python 3" # Text CalculateField GIS_Edit.GIS.NP_Streets Segment_Length [Shape.STLength()] VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets NPFC "Private" VB # CalculateField GIS_Edit.GIS.NP_Streets Street_Name [FULL_NAME] VB # CalculateFields GIS_Edit.GIS.NP_Streets Arcade "Cross_From #;Cross_To #" "Public Sub PopulateCrossStreetNames() On Error GoTo EH 'Populates cross streets for each street feature. 'Requires a LineFC highlighted in the TOC (streets) 'LineFC must have one field for containing the full street name Const sStreetFldName As String = "Full_Street" 'LineFC must have two fields which will be populated with cross street names Const sCrossAFldName As String = "Cross_From" Const sCrossBFldName As String = "Cross_To" '------------------------------------------------------------- 'You should not need to change anything below this point ' unless you are running ArcGIS 8.x (see note below) '------------------------------------------------------------- Const sJoin As String = " & " 'Constant for appending street name when needed Dim pDoc As IMxDocument Dim pMap As IMap Dim pLayer As ILayer Dim pFLayer As IFeatureLayer Dim pFC As IFeatureClass Dim pFSel As IFeatureSelection Dim iStreetFld As Integer Dim iCrossAFld As Integer Dim iCrossBFld As Integer Dim sStreet As String Dim sCrossA As String Dim sCrossB As String Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim pGeometry As IGeometry Dim pCurve As ICurve Dim pPoint As IPoint Dim pApp As IApplication Dim pID As New UID Dim pEditor As IEditor Dim pELayers As IEditLayers Dim lCount As Long Dim sTotal As String Dim pSelSet As ISelectionSet2 Set pDoc = ThisDocument Set pMap = pDoc.FocusMap ' Verify that there is a layer in the table on contents If pMap.LayerCount < 1 Then MsgBox "Must have a layer in your map." Exit Sub End If 'Get highlighted layer in the TOC Set pLayer = pDoc.SelectedLayer If pLayer Is Nothing Then MsgBox "You must have a higlighted layer in the TOC." & vbNewLine & _ "This layer should represent your street centerlines." Exit Sub End If 'Verify that it is a feature layer If Not TypeOf pLayer Is IFeatureLayer Then MsgBox "The highlighted layer in the TOC must be a feature layer." Exit Sub End If 'Get the Feature layer and feature class Set pFLayer = pLayer 'QI Set pFC = pFLayer.FeatureClass 'Verify that it is a line layer If pFC.ShapeType <> esriGeometryPolyline Then MsgBox "The highlighted layer in the TOC must be a polyline." Exit Sub End If 'Verify it has some features selected Set pFSel = pFLayer If pFSel.SelectionSet.Count < 1 Then MsgBox "The highlighted layer in the TOC must have some features selected." Exit Sub End If Set pSelSet = pFSel.SelectionSet 'Find street name field in the layer iStreetFld = pFC.FindField(sStreetFldName) If iStreetFld < 0 Then MsgBox sStreetFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossA field iCrossA = pFC.FindField(sCrossAFldName) If iCrossA < 0 Then MsgBox sCrossAFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossB field iCrossB = pFC.FindField(sCrossBFldName) If iCrossB < 0 Then MsgBox sCrossBFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Verify that we are editing pID = "esriEditor.Editor" 'Note: for ArcGIS 8.x, uncomment the next line 'pID = "esriCore.Editor" Set pApp = Application Set pEditor = pApp.FindExtensionByCLSID(pID) If Not (pEditor.EditState = esriStateEditing) Then MsgBox "Must be editing." Exit Sub End If 'Update Message bar pApp.StatusBar.Message(0) = "Populating cross streets..." 'Start edit operation (for undo) pEditor.StartOperation 'Step through each selected line in the layer pSelSet.Update Nothing, False, pFCursor Set pFeature = pFCursor.NextFeature sTotal = Str(pFSel.SelectionSet.Count) Do While Not pFeature Is Nothing lCount = lCount + 1 pApp.StatusBar.Message(0) = "Populating cross streets... " & Str(lCount) & " of " & sTotal 'Get this street name sStreet = pFeature.Value(iStreetFld) 'Get the line Set pGeometry = pFeature.Shape Set pCurve = pGeometry 'Get from point of line Set pPoint = pCurve.FromPoint 'Find other streets at this point and return string sCrossA = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Get from to of line Set pPoint = pCurve.ToPoint 'Find other streets at this point and return string sCrossB = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Populate values pFeature.Value(iCrossA) = sCrossA pFeature.Value(iCrossB) = sCrossB 'Update this feature pFCursor.UpdateFeature pFeature Set pFeature = pFCursor.NextFeature Loop 'Stop feature editing pEditor.StopOperation ("Populate Cross Streets") 'Redraw the map so you'll see the new points pDoc.ActiveView.Refresh MsgBox "Populate Cross Streets is complete." Exit Sub EH: MsgBox Err.Number & " " & Err.Description End Sub Public Function FindStreets(pPoint As IPoint, pFC As IFeatureClass, iStreetFld As Integer, sStreetName As String, sJoin As String) As String Dim pSFilter As ISpatialFilter Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim cValues As Collection Dim sValue As String Dim sResult As String Dim i As Integer Dim bFound As Boolean Set pSFilter = New SpatialFilter pSFilter.GeometryField = pFC.ShapeFieldName Set pSFilter.Geometry = pPoint pSFilter.SpatialRel = esriSpatialRelIntersects Set cValues = New Collection Set pFCursor = pFC.Search(pSFilter, False) Set pFeature = pFCursor.NextFeature Do While Not pFeature Is Nothing sValue = pFeature.Value(iStreetFld) If sValue <> sStreetName Then 'Determine whether this street name has already been found bFound = False For i = 1 To cValues.Count If sValue = cValues.Item(i) Then bFound = True Exit For End If Next i 'If not, add it to the list If Not bFound Then cValues.Add sValue 'Build result string If cValues.Count = 1 Then sResult = sValue Else sResult = sResult & sJoin & sValue End If End If End If Set pFeature = pFCursor.NextFeature Loop FindStreets = sResult End Function " NO_ENFORCE_DOMAINS CalculateFields GIS_Edit.GIS.NP_Streets Arcade "Cross_From #;Cross_To #" "Public Sub PopulateCrossStreetNames() On Error GoTo EH 'Populates cross streets for each street feature. 'Requires a LineFC highlighted in the TOC (streets) 'LineFC must have one field for containing the full street name Const sStreetFldName As String = "Full_Street" 'LineFC must have two fields which will be populated with cross street names Const sCrossAFldName As String = "Cross_From" Const sCrossBFldName As String = "Cross_To" '------------------------------------------------------------- 'You should not need to change anything below this point ' unless you are running ArcGIS 8.x (see note below) '------------------------------------------------------------- Const sJoin As String = " & " 'Constant for appending street name when needed Dim pDoc As IMxDocument Dim pMap As IMap Dim pLayer As ILayer Dim pFLayer As IFeatureLayer Dim pFC As IFeatureClass Dim pFSel As IFeatureSelection Dim iStreetFld As Integer Dim iCrossAFld As Integer Dim iCrossBFld As Integer Dim sStreet As String Dim sCrossA As String Dim sCrossB As String Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim pGeometry As IGeometry Dim pCurve As ICurve Dim pPoint As IPoint Dim pApp As IApplication Dim pID As New UID Dim pEditor As IEditor Dim pELayers As IEditLayers Dim lCount As Long Dim sTotal As String Dim pSelSet As ISelectionSet2 Set pDoc = ThisDocument Set pMap = pDoc.FocusMap ' Verify that there is a layer in the table on contents If pMap.LayerCount < 1 Then MsgBox "Must have a layer in your map." Exit Sub End If 'Get highlighted layer in the TOC Set pLayer = pDoc.SelectedLayer If pLayer Is Nothing Then MsgBox "You must have a higlighted layer in the TOC." & vbNewLine & _ "This layer should represent your street centerlines." Exit Sub End If 'Verify that it is a feature layer If Not TypeOf pLayer Is IFeatureLayer Then MsgBox "The highlighted layer in the TOC must be a feature layer." Exit Sub End If 'Get the Feature layer and feature class Set pFLayer = pLayer 'QI Set pFC = pFLayer.FeatureClass 'Verify that it is a line layer If pFC.ShapeType <> esriGeometryPolyline Then MsgBox "The highlighted layer in the TOC must be a polyline." Exit Sub End If 'Verify it has some features selected Set pFSel = pFLayer If pFSel.SelectionSet.Count < 1 Then MsgBox "The highlighted layer in the TOC must have some features selected." Exit Sub End If Set pSelSet = pFSel.SelectionSet 'Find street name field in the layer iStreetFld = pFC.FindField(sStreetFldName) If iStreetFld < 0 Then MsgBox sStreetFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossA field iCrossA = pFC.FindField(sCrossAFldName) If iCrossA < 0 Then MsgBox sCrossAFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossB field iCrossB = pFC.FindField(sCrossBFldName) If iCrossB < 0 Then MsgBox sCrossBFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Verify that we are editing pID = "esriEditor.Editor" 'Note: for ArcGIS 8.x, uncomment the next line 'pID = "esriCore.Editor" Set pApp = Application Set pEditor = pApp.FindExtensionByCLSID(pID) If Not (pEditor.EditState = esriStateEditing) Then MsgBox "Must be editing." Exit Sub End If 'Update Message bar pApp.StatusBar.Message(0) = "Populating cross streets..." 'Start edit operation (for undo) pEditor.StartOperation 'Step through each selected line in the layer pSelSet.Update Nothing, False, pFCursor Set pFeature = pFCursor.NextFeature sTotal = Str(pFSel.SelectionSet.Count) Do While Not pFeature Is Nothing lCount = lCount + 1 pApp.StatusBar.Message(0) = "Populating cross streets... " & Str(lCount) & " of " & sTotal 'Get this street name sStreet = pFeature.Value(iStreetFld) 'Get the line Set pGeometry = pFeature.Shape Set pCurve = pGeometry 'Get from point of line Set pPoint = pCurve.FromPoint 'Find other streets at this point and return string sCrossA = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Get from to of line Set pPoint = pCurve.ToPoint 'Find other streets at this point and return string sCrossB = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Populate values pFeature.Value(iCrossA) = sCrossA pFeature.Value(iCrossB) = sCrossB 'Update this feature pFCursor.UpdateFeature pFeature Set pFeature = pFCursor.NextFeature Loop 'Stop feature editing pEditor.StopOperation ("Populate Cross Streets") 'Redraw the map so you'll see the new points pDoc.ActiveView.Refresh MsgBox "Populate Cross Streets is complete." Exit Sub EH: MsgBox Err.Number & " " & Err.Description End Sub Public Function FindStreets(pPoint As IPoint, pFC As IFeatureClass, iStreetFld As Integer, sStreetName As String, sJoin As String) As String Dim pSFilter As ISpatialFilter Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim cValues As Collection Dim sValue As String Dim sResult As String Dim i As Integer Dim bFound As Boolean Set pSFilter = New SpatialFilter pSFilter.GeometryField = pFC.ShapeFieldName Set pSFilter.Geometry = pPoint pSFilter.SpatialRel = esriSpatialRelIntersects Set cValues = New Collection Set pFCursor = pFC.Search(pSFilter, False) Set pFeature = pFCursor.NextFeature Do While Not pFeature Is Nothing sValue = pFeature.Value(iStreetFld) If sValue <> sStreetName Then 'Determine whether this street name has already been found bFound = False For i = 1 To cValues.Count If sValue = cValues.Item(i) Then bFound = True Exit For End If Next i 'If not, add it to the list If Not bFound Then cValues.Add sValue 'Build result string If cValues.Count = 1 Then sResult = sValue Else sResult = sResult & sJoin & sValue End If End If End If Set pFeature = pFCursor.NextFeature Loop FindStreets = sResult End Function " NO_ENFORCE_DOMAINS UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/2.8.0'><FeatureDataset>GIS_Edit.GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD=00022e68695968326176687444576c443636695830356f43365a7a3935714966652f30572f6d79724b424e5a6573453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=GIS_Edit;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS_Edit.GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><DeleteField><field_name>Street_Name</field_name></DeleteField></workflow></operationSequence> CalculateFields GIS_Edit.GIS.NP_Streets Arcade "Cross_From #;Cross_To #" "Attribute VB_Name = "PopulateCrossStreetNames" Public Sub PopulateCrossStreetNames() On Error GoTo EH 'Populates cross streets for each street feature. 'Requires a LineFC highlighted in the TOC (streets) 'LineFC must have one field for containing the full street name Const sStreetFldName As String = "Full_Name" 'LineFC must have two fields which will be populated with cross street names Const sCrossAFldName As String = "Cross_From" Const sCrossBFldName As String = "Cross_To" '------------------------------------------------------------- 'You should not need to change anything below this point ' unless you are running ArcGIS 8.x (see note below) '------------------------------------------------------------- Const sJoin As String = " & " 'Constant for appending street name when needed Dim pDoc As IMxDocument Dim pMap As IMap Dim pLayer As ILayer Dim pFLayer As IFeatureLayer Dim pFC As IFeatureClass Dim pFSel As IFeatureSelection Dim iStreetFld As Integer Dim iCrossAFld As Integer Dim iCrossBFld As Integer Dim sStreet As String Dim sCrossA As String Dim sCrossB As String Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim pGeometry As IGeometry Dim pCurve As ICurve Dim pPoint As IPoint Dim pApp As IApplication Dim pID As New UID Dim pEditor As IEditor Dim pELayers As IEditLayers Dim lCount As Long Dim sTotal As String Dim pSelSet As ISelectionSet2 Set pDoc = ThisDocument Set pMap = pDoc.FocusMap ' Verify that there is a layer in the table on contents If pMap.LayerCount < 1 Then MsgBox "Must have a layer in your map." Exit Sub End If 'Get highlighted layer in the TOC Set pLayer = pDoc.SelectedLayer If pLayer Is Nothing Then MsgBox "You must have a higlighted layer in the TOC." & vbNewLine & _ "This layer should represent your street centerlines." Exit Sub End If 'Verify that it is a feature layer If Not TypeOf pLayer Is IFeatureLayer Then MsgBox "The highlighted layer in the TOC must be a feature layer." Exit Sub End If 'Get the Feature layer and feature class Set pFLayer = pLayer 'QI Set pFC = pFLayer.FeatureClass 'Verify that it is a line layer If pFC.ShapeType <> esriGeometryPolyline Then MsgBox "The highlighted layer in the TOC must be a polyline." Exit Sub End If 'Verify it has some features selected Set pFSel = pFLayer If pFSel.SelectionSet.Count < 1 Then MsgBox "The highlighted layer in the TOC must have some features selected." Exit Sub End If Set pSelSet = pFSel.SelectionSet 'Find street name field in the layer iStreetFld = pFC.FindField(sStreetFldName) If iStreetFld < 0 Then MsgBox sStreetFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossA field iCrossA = pFC.FindField(sCrossAFldName) If iCrossA < 0 Then MsgBox sCrossAFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossB field iCrossB = pFC.FindField(sCrossBFldName) If iCrossB < 0 Then MsgBox sCrossBFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Verify that we are editing pID = "esriEditor.Editor" 'Note: for ArcGIS 8.x, uncomment the next line 'pID = "esriCore.Editor" Set pApp = Application Set pEditor = pApp.FindExtensionByCLSID(pID) If Not (pEditor.EditState = esriStateEditing) Then MsgBox "Must be editing." Exit Sub End If 'Update Message bar pApp.StatusBar.Message(0) = "Populating cross streets..." 'Start edit operation (for undo) pEditor.StartOperation 'Step through each selected line in the layer pSelSet.Update Nothing, False, pFCursor Set pFeature = pFCursor.NextFeature sTotal = Str(pFSel.SelectionSet.Count) Do While Not pFeature Is Nothing lCount = lCount + 1 pApp.StatusBar.Message(0) = "Populating cross streets... " & Str(lCount) & " of " & sTotal 'Get this street name sStreet = pFeature.Value(iStreetFld) 'Get the line Set pGeometry = pFeature.Shape Set pCurve = pGeometry 'Get from point of line Set pPoint = pCurve.FromPoint 'Find other streets at this point and return string sCrossA = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Get from to of line Set pPoint = pCurve.ToPoint 'Find other streets at this point and return string sCrossB = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Populate values pFeature.Value(iCrossA) = sCrossA pFeature.Value(iCrossB) = sCrossB 'Update this feature pFCursor.UpdateFeature pFeature Set pFeature = pFCursor.NextFeature Loop 'Stop feature editing pEditor.StopOperation ("Populate Cross Streets") 'Redraw the map so you'll see the new points pDoc.ActiveView.Refresh MsgBox "Populate Cross Streets is complete." Exit Sub EH: MsgBox Err.Number & " " & Err.Description End Sub Public Function FindStreets(pPoint As IPoint, pFC As IFeatureClass, iStreetFld As Integer, sStreetName As String, sJoin As String) As String Dim pSFilter As ISpatialFilter Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim cValues As Collection Dim sValue As String Dim sResult As String Dim i As Integer Dim bFound As Boolean Set pSFilter = New SpatialFilter pSFilter.GeometryField = pFC.ShapeFieldName Set pSFilter.Geometry = pPoint pSFilter.SpatialRel = esriSpatialRelIntersects Set cValues = New Collection Set pFCursor = pFC.Search(pSFilter, False) Set pFeature = pFCursor.NextFeature Do While Not pFeature Is Nothing sValue = pFeature.Value(iStreetFld) If sValue <> sStreetName Then 'Determine whether this street name has already been found bFound = False For i = 1 To cValues.Count If sValue = cValues.Item(i) Then bFound = True Exit For End If Next i 'If not, add it to the list If Not bFound Then cValues.Add sValue 'Build result string If cValues.Count = 1 Then sResult = sValue Else sResult = sResult & sJoin & sValue End If End If End If Set pFeature = pFCursor.NextFeature Loop FindStreets = sResult End Function " NO_ENFORCE_DOMAINS CalculateFields GIS_Edit.GIS.NP_Streets Arcade "Cross_From #;Cross_To #" "Attribute VB_Name = "PopulateCrossStreetNames" Public Sub PopulateCrossStreetNames() On Error GoTo EH 'Populates cross streets for each street feature. 'Requires a LineFC highlighted in the TOC (streets) 'LineFC must have one field for containing the full street name Const sStreetFldName As String = "Full_Name" 'LineFC must have two fields which will be populated with cross street names Const sCrossAFldName As String = "Cross_From" Const sCrossBFldName As String = "Cross_To" '------------------------------------------------------------- 'You should not need to change anything below this point ' unless you are running ArcGIS 8.x (see note below) '------------------------------------------------------------- Const sJoin As String = " & " 'Constant for appending street name when needed Dim pDoc As IMxDocument Dim pMap As IMap Dim pLayer As ILayer Dim pFLayer As IFeatureLayer Dim pFC As IFeatureClass Dim pFSel As IFeatureSelection Dim iStreetFld As Integer Dim iCrossAFld As Integer Dim iCrossBFld As Integer Dim sStreet As String Dim sCrossA As String Dim sCrossB As String Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim pGeometry As IGeometry Dim pCurve As ICurve Dim pPoint As IPoint Dim pApp As IApplication Dim pID As New UID Dim pEditor As IEditor Dim pELayers As IEditLayers Dim lCount As Long Dim sTotal As String Dim pSelSet As ISelectionSet2 Set pDoc = ThisDocument Set pMap = pDoc.FocusMap ' Verify that there is a layer in the table on contents If pMap.LayerCount < 1 Then MsgBox "Must have a layer in your map." Exit Sub End If 'Get highlighted layer in the TOC Set pLayer = pDoc.SelectedLayer If pLayer Is Nothing Then MsgBox "You must have a higlighted layer in the TOC." & vbNewLine & _ "This layer should represent your street centerlines." Exit Sub End If 'Verify that it is a feature layer If Not TypeOf pLayer Is IFeatureLayer Then MsgBox "The highlighted layer in the TOC must be a feature layer." Exit Sub End If 'Get the Feature layer and feature class Set pFLayer = pLayer 'QI Set pFC = pFLayer.FeatureClass 'Verify that it is a line layer If pFC.ShapeType <> esriGeometryPolyline Then MsgBox "The highlighted layer in the TOC must be a polyline." Exit Sub End If 'Verify it has some features selected Set pFSel = pFLayer If pFSel.SelectionSet.Count < 1 Then MsgBox "The highlighted layer in the TOC must have some features selected." Exit Sub End If Set pSelSet = pFSel.SelectionSet 'Find street name field in the layer iStreetFld = pFC.FindField(sStreetFldName) If iStreetFld < 0 Then MsgBox sStreetFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossA field iCrossA = pFC.FindField(sCrossAFldName) If iCrossA < 0 Then MsgBox sCrossAFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Find CrossB field iCrossB = pFC.FindField(sCrossBFldName) If iCrossB < 0 Then MsgBox sCrossBFldName & " was not found in highlighted layer.", vbCritical Exit Sub End If 'Verify that we are editing pID = "esriEditor.Editor" 'Note: for ArcGIS 8.x, uncomment the next line 'pID = "esriCore.Editor" Set pApp = Application Set pEditor = pApp.FindExtensionByCLSID(pID) If Not (pEditor.EditState = esriStateEditing) Then MsgBox "Must be editing." Exit Sub End If 'Update Message bar pApp.StatusBar.Message(0) = "Populating cross streets..." 'Start edit operation (for undo) pEditor.StartOperation 'Step through each selected line in the layer pSelSet.Update Nothing, False, pFCursor Set pFeature = pFCursor.NextFeature sTotal = Str(pFSel.SelectionSet.Count) Do While Not pFeature Is Nothing lCount = lCount + 1 pApp.StatusBar.Message(0) = "Populating cross streets... " & Str(lCount) & " of " & sTotal 'Get this street name sStreet = pFeature.Value(iStreetFld) 'Get the line Set pGeometry = pFeature.Shape Set pCurve = pGeometry 'Get from point of line Set pPoint = pCurve.FromPoint 'Find other streets at this point and return string sCrossA = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Get from to of line Set pPoint = pCurve.ToPoint 'Find other streets at this point and return string sCrossB = FindStreets(pPoint, pFC, iStreetFld, sStreet, sJoin) 'Populate values pFeature.Value(iCrossA) = sCrossA pFeature.Value(iCrossB) = sCrossB 'Update this feature pFCursor.UpdateFeature pFeature Set pFeature = pFCursor.NextFeature Loop 'Stop feature editing pEditor.StopOperation ("Populate Cross Streets") 'Redraw the map so you'll see the new points pDoc.ActiveView.Refresh MsgBox "Populate Cross Streets is complete." Exit Sub EH: MsgBox Err.Number & " " & Err.Description End Sub Public Function FindStreets(pPoint As IPoint, pFC As IFeatureClass, iStreetFld As Integer, sStreetName As String, sJoin As String) As String Dim pSFilter As ISpatialFilter Dim pFCursor As IFeatureCursor Dim pFeature As IFeature Dim cValues As Collection Dim sValue As String Dim sResult As String Dim i As Integer Dim bFound As Boolean Set pSFilter = New SpatialFilter pSFilter.GeometryField = pFC.ShapeFieldName Set pSFilter.Geometry = pPoint pSFilter.SpatialRel = esriSpatialRelIntersects Set cValues = New Collection Set pFCursor = pFC.Search(pSFilter, False) Set pFeature = pFCursor.NextFeature Do While Not pFeature Is Nothing sValue = pFeature.Value(iStreetFld) If sValue <> sStreetName Then 'Determine whether this street name has already been found bFound = False For i = 1 To cValues.Count If sValue = cValues.Item(i) Then bFound = True Exit For End If Next i 'If not, add it to the list If Not bFound Then cValues.Add sValue 'Build result string If cValues.Count = 1 Then sResult = sValue Else sResult = sResult & sJoin & sValue End If End If End If Set pFeature = pFCursor.NextFeature Loop FindStreets = sResult End Function " NO_ENFORCE_DOMAINS FlipLine "Splits and Combines\GIS_Edit.GIS.NP_Streets" CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "PRIVATE" "Python 3" # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS TransferAttributes PWGIS.DBO.NorthPort_StreetsFromTo GIS_Edit.GIS.NP_Streets Cross_From;Cross_To "5 Feet" # # # TransferAttributes PWGIS.DBO.NorthPort_StreetsFromTo GIS_Edit.GIS.NP_Streets Cross_From;Cross_To "10 DecimalDegrees" "Cross_From Cross_From;Cross_To Cross_To" # # CalculateField "Street Updates\Polylines\GIS_Edit.GIS.NP_Streets" NPFC "Private" "Python 3" # Text NO_ENFORCE_DOMAINS ExportFeatures V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets V:\ArcProCatalog\PW_EditsAdmin.sde\GIS.NP_Streets # NOT_USE_ALIAS "StreetID "Street ID" true true false 18 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,StreetID,0,17;LifeCycleStatus "LifeCycleStatus" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,LifeCycleStatus,-1,-1;NETWORK_ROAD_TYPE "Network Road Type" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,NETWORK_ROAD_TYPE,-1,-1;CLASS "Road Class" true true false 4 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,CLASS,0,3;SDIRPRE "Directional Prefix" true true false 2 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,SDIRPRE,0,1;SDIRSUF "Directional Suffix" true true false 2 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,SDIRSUF,0,1;SFEANME "Street Name" true true false 30 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,SFEANME,0,29;SFEATYP "Street Type" true true false 6 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,SFEATYP,0,5;FRADDL "From Address Left" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,FRADDL,-1,-1;TOADDL "To Address Left" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,TOADDL,-1,-1;FRADDR "From Address Right" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,FRADDR,-1,-1;TOADDR "To Address Right" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,TOADDR,-1,-1;MUNL "Municipality Left" true true false 4 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,MUNL,0,3;MUNR "Municipality Right" true true false 4 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,MUNR,0,3;ZIPL "Zip Code Left" true true false 10 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,ZIPL,0,9;ZIPR "Zip Code Right" true true false 10 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,ZIPR,0,9;FULL_NAME "Full Street Name" true true false 50 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,FULL_NAME,0,49;AddressType "Address Type" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,AddressType,-1,-1;ChangeType "Change Type" true true false 10 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,ChangeType,0,9;LastEditor "LastEditor" true true false 12 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,LastEditor,0,11;ONEWAY "Oneway" true true false 5 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,ONEWAY,0,4;F_ZELEV "From Z Elevation" true true false 2 Short 0 5,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,F_ZELEV,-1,-1;T_ZELEV "To Z Elevation" true true false 2 Short 0 5,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,T_ZELEV,-1,-1;SPEEDLIMIT "SpeedLimit" true true false 4 Long 0 10,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,SPEEDLIMIT,-1,-1;MaintenanceEntity "Maintenance Entity" true true false 6 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,MaintenanceEntity,0,5;LastUpdate "LastUpdate" true true false 8 Date 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,LastUpdate,-1,-1;Creator "Creator" true true false 12 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,Creator,0,11;CreateDate "CreateDate" true true false 8 Date 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,CreateDate,-1,-1;GlobalID "GlobalID" false false true 38 GlobalID 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,GlobalID,-1,-1;NPFC "Roadway functional classification" true true false 50 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,NPFC,0,49;created_user "created_user" false true false 255 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,created_user,0,254;created_date "created_date" false true false 8 Date 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,created_date,-1,-1;last_edited_user "last_edited_user" false true false 255 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,last_edited_user,0,254;last_edited_date "last_edited_date" false true false 8 Date 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,last_edited_date,-1,-1;Segment_Length "Segment_Length" true true false 8 Double 8 38,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,Segment_Length,-1,-1;Cross_From "Cross_From" true true false 75 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,Cross_From,0,74;Cross_To "Cross_To" true true false 75 Text 0 0,First,#,V:\ArcProCatalog\GIS_ProdAdmin.sde\GIS.NP_StreetNetwork\GIS.NP_Streets,Cross_To,0,74" # CalculateField "Street Updates\Polylines\PW_Edits_Admin.GIS.NP_Streets" NPFC 'Private' Python # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\PW_Edits_Admin.GIS.NP_Streets" NPFC "Private" Python # Text NO_ENFORCE_DOMAINS CalculateField "Street Updates\Polylines\PW_Edits_Admin.GIS.NP_Streets" NPFC "Private" Python # Text NO_ENFORCE_DOMAINS CalculateField PW_Edits_Admin.GIS.NP_Streets NPFC 'Private' Python # Text NO_ENFORCE_DOMAINS CalculateGeometryAttributes GIS.NP_Streets "Segment_Length LENGTH" "US Survey Feet" # PROJCS["NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet",GEOGCS["GCS_North_American_1983_HARN",DATUM["D_North_American_1983_HARN",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",656166.6666666665],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-82.0],PARAMETER["Scale_Factor",0.9999411764705882],PARAMETER["Latitude_Of_Origin",24.33333333333333],UNIT["Foot_US",0.3048006096012192]] "Same as input" CalculateGeometryAttributes GIS.NP_Streets "Segment_Length LENGTH" "US Survey Feet" # PROJCS["NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet",GEOGCS["GCS_North_American_1983_HARN",DATUM["D_North_American_1983_HARN",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",656166.6666666665],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-82.0],PARAMETER["Scale_Factor",0.9999411764705882],PARAMETER["Latitude_Of_Origin",24.33333333333333],UNIT["Foot_US",0.3048006096012192]] "Same as input" CalculateGeometryAttributes GIS.NP_Streets "Segment_Length LENGTH" "US Survey Feet" # PROJCS["NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet",GEOGCS["GCS_North_American_1983_HARN",DATUM["D_North_American_1983_HARN",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",656166.6666666665],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-82.0],PARAMETER["Scale_Factor",0.9999411764705882],PARAMETER["Latitude_Of_Origin",24.33333333333333],UNIT["Foot_US",0.3048006096012192]] "Same as input" RemoveIndex M:\Departments\PublicWorks\DataAnalyst\GIS\PW_BASEMAP\GIS_PWEdits.sde\GIS.NP_StreetNetwork\GIS.NP_Streets UUID_OID_2710 CalculateGeometryAttributes GIS.NP_Streets "Segment_Length LENGTH" "US Survey Feet" # PROJCS["NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet",GEOGCS["GCS_North_American_1983_HARN",DATUM["D_North_American_1983_HARN",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",656166.6666666665],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-82.0],PARAMETER["Scale_Factor",0.9999411764705882],PARAMETER["Latitude_Of_Origin",24.33333333333333],UNIT["Foot_US",0.3048006096012192]] "Same as input" CalculateField GIS.NP_Streets NPFC "Private" Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC "Private" Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC "Private" Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC "Private" Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC "Arterial" Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'PVT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'FDOT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'FDOT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'PVT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Local' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Primary Arterial' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Primary Arterial' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'FDOT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'PVT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'CM' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Primary Arterial' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Primary Arterial' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'FDOT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'FDOT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'FDOT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'FDOT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'PVT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Local' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Local' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'PVT' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Local' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'PVT' Python # Text NO_ENFORCE_DOMAINS CalculateField "GIS.NP_Streets PW_Edits" MaintenanceEntity "PVT" Python # Text NO_ENFORCE_DOMAINS CalculateField "GIS.NP_Streets PW_Edits" NPFC "Arterial" Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Local' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets MaintenanceEntity 'CM' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets NPFC 'Local' Python # Text NO_ENFORCE_DOMAINS CalculateField "GIS.NP_Streets PW_Edits" MaintenanceEntity "PVT" Python # Text NO_ENFORCE_DOMAINS CalculateField "City of North Port Roads" MaintenanceEntity "CNP" Python # Text NO_ENFORCE_DOMAINS CalculateField "GIS.NP_Streets PW_Edits" MaintenanceEntity "CM" Python # Text NO_ENFORCE_DOMAINS CalculateField "GIS.NP_Streets PW_Edits" NPFC "Local" Python # Text NO_ENFORCE_DOMAINS CalculateField "GIS.NP_Streets PW_Edits" MaintenanceEntity "PVT" Python # Text NO_ENFORCE_DOMAINS UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><AddField><field_name>RecordID</field_name><field_type>LONG</field_type><field_precision>8</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>LucityID</field_name><field_type>TEXT</field_type><field_precision>0</field_precision><field_length>20</field_length><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>FunctionalClassCD</field_name><field_type>SHORT</field_type><field_precision>4</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>MaintainedBy</field_name><field_type>SHORT</field_type><field_precision>4</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>SegWidth</field_name><field_type>DOUBLE</field_type><field_precision>8</field_precision><field_scale>4</field_scale><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>ROW_Width</field_name><field_type>DOUBLE</field_type><field_precision>8</field_precision><field_scale>4</field_scale><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>ADT_Volume</field_name><field_type>LONG</field_type><field_precision>8</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>MaintZone</field_name><field_type>TEXT</field_type><field_precision>0</field_precision><field_length>10</field_length><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>AltZone</field_name><field_type>TEXT</field_type><field_precision>0</field_precision><field_length>10</field_length><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>OCI</field_name><field_type>DOUBLE</field_type><field_precision>7</field_precision><field_scale>2</field_scale><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow><workflow><AddField><field_name>LastSync</field_name><field_type>DATEONLY</field_type><field_precision>0</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><AddField><field_name>FHWA</field_name><field_type>SHORT</field_type><field_precision>5</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required><field_domain>Yes/No</field_domain></AddField></workflow></operationSequence> CalculateGeometryAttributes PW_Streets_Edits "SegWidth LENGTH" "US Survey Feet" # PROJCS["NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet",GEOGCS["GCS_North_American_1983_HARN",DATUM["D_North_American_1983_HARN",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",656166.6666666665],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-82.0],PARAMETER["Scale_Factor",0.9999411764705882],PARAMETER["Latitude_Of_Origin",24.33333333333333],UNIT["Foot_US",0.3048006096012192]] "Same as input" CalculateGeometryAttributes PW_Streets_Edits "SegWidth LENGTH" "US Survey Feet" # PROJCS["NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet",GEOGCS["GCS_North_American_1983_HARN",DATUM["D_North_American_1983_HARN",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",656166.6666666665],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-82.0],PARAMETER["Scale_Factor",0.9999411764705882],PARAMETER["Latitude_Of_Origin",24.33333333333333],UNIT["Foot_US",0.3048006096012192]] "Same as input" CalculateField PW_Streets_Edits SegWidth None Python # Text NO_ENFORCE_DOMAINS UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><DeleteField><field_name>LastSync</field_name></DeleteField></workflow><workflow><AddField><field_name>LastSyncs</field_name><field_type>DATE</field_type><field_precision>0</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><AlterField><field_name>LastSyncs</field_name><new_field_name>LastSyncDate</new_field_name><field_is_nullable>True</field_is_nullable><clear_field_alias>False</clear_field_alias></AlterField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><AlterField><field_name>LastSyncs</field_name><new_field_name>LastSyncDate</new_field_name><field_is_nullable>True</field_is_nullable><clear_field_alias>False</clear_field_alias></AlterField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><AlterField><field_name>LastSyncs</field_name><new_field_name>LastSync</new_field_name><field_is_nullable>True</field_is_nullable><clear_field_alias>False</clear_field_alias></AlterField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><DeleteField><field_name>LastSyncs</field_name></DeleteField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><AddField><field_name>LastSyncDate</field_name><field_type>DATE</field_type><field_precision>0</field_precision><field_is_nullable>True</field_is_nullable><field_is_required>False</field_is_required></AddField></workflow></operationSequence> CalculateField PW_Streets_Edits MaintenanceEntity "PVT" Python # Text NO_ENFORCE_DOMAINS CalculateField PW_Streets_Edits MaintenanceEntity "PVT" Python # Text NO_ENFORCE_DOMAINS CalculateField PW_Streets_Edits NPFC "Local" Python # Text NO_ENFORCE_DOMAINS CalculateField PW_Streets_Edits MaintenanceEntity "FDOT" Python # Text NO_ENFORCE_DOMAINS CalculateField PW_Streets_Edits NPFC "Primary Arterial" Python # Text NO_ENFORCE_DOMAINS CalculateField PW_Streets_Edits NPFC "Local" Python # Text NO_ENFORCE_DOMAINS CalculateField PW_Streets_Edits MaintenanceEntity "PVT" Python # Text NO_ENFORCE_DOMAINS UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><RemoveDomainFromField><field_name>LifeCycleStatus</field_name></RemoveDomainFromField></workflow><workflow><RemoveDomainFromField><field_name>NETWORK_ROAD_TYPE</field_name></RemoveDomainFromField><AssignDefaultToField><field_name>NETWORK_ROAD_TYPE</field_name><clear_value>True</clear_value></AssignDefaultToField></workflow></operationSequence> CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '0' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '0' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '0' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '0' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '0' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS CalculateField GIS.NP_Streets FHWA '1' Python # Text NO_ENFORCE_DOMAINS UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><AlterField><field_name>FunctionalClassCD</field_name><new_field_name>NPFC_CD</new_field_name><field_is_nullable>True</field_is_nullable><clear_field_alias>False</clear_field_alias></AlterField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><DeleteField><field_name>FunctionalClassCD</field_name></DeleteField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><DeleteField><field_name>FunctionalClassCD</field_name><field_name>MaintainedBy</field_name></DeleteField></workflow></operationSequence> UpdateSchema "CIMDATA=<CIMFeatureDatasetDataConnection xsi:type='typens:CIMFeatureDatasetDataConnection' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><FeatureDataset>GIS.NP_StreetNetwork</FeatureDataset><WorkspaceConnectionString>ENCRYPTED_PASSWORD_UTF8=00022e684d58416e555352774e4c367337536a2b6e317a37636f7a30617859754b5467382b71556239776b436331493d2a00;ENCRYPTED_PASSWORD=00022e685a6a7a69477231727146507343497641312b4d4c2b654878383763757a74576567734338464c506b366d453d2a00;SERVER=cnp-gis-05;INSTANCE=sde:sqlserver:cnp-gis-05;DBCLIENT=sqlserver;DB_CONNECTION_PROPERTIES=cnp-gis-05;DATABASE=PW_Edits;USER=GIS;VERSION=dbo.DEFAULT;AUTHENTICATION_MODE=DBMS</WorkspaceConnectionString><WorkspaceFactory>SDE</WorkspaceFactory><Dataset>GIS.NP_Streets</Dataset><DatasetType>esriDTFeatureClass</DatasetType></CIMFeatureDatasetDataConnection>" <operationSequence><workflow><DeleteField><field_name>FunctionalClassCD</field_name></DeleteField></workflow><workflow><AssignDomainToField><field_name>MaintenanceEntity</field_name><domain_name>Maintenance</domain_name></AssignDomainToField></workflow></operationSequence> ExportFeatures \\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets \\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\AccelaAdmin.sde\GIS.NP_Streets\GIS.NP_Streets_updated # NOT_USE_ALIAS "StreetID "Street ID" true true false 18 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,StreetID,0,17;LifeCycleStatus "LifeCycleStatus" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,LifeCycleStatus,-1,-1;NETWORK_ROAD_TYPE "Network Road Type" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,NETWORK_ROAD_TYPE,-1,-1;CLASS "Road Class" true true false 4 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,CLASS,0,3;SDIRPRE "Directional Prefix" true true false 2 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,SDIRPRE,0,1;SDIRSUF "Directional Suffix" true true false 2 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,SDIRSUF,0,1;SFEANME "Street Name" true true false 30 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,SFEANME,0,29;SFEATYP "Street Type" true true false 6 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,SFEATYP,0,5;FRADDL "From Address Left" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,FRADDL,-1,-1;TOADDL "To Address Left" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,TOADDL,-1,-1;FRADDR "From Address Right" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,FRADDR,-1,-1;TOADDR "To Address Right" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,TOADDR,-1,-1;MUNL "Municipality Left" true true false 4 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,MUNL,0,3;MUNR "Municipality Right" true true false 4 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,MUNR,0,3;ZIPL "Zip Code Left" true true false 10 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,ZIPL,0,9;ZIPR "Zip Code Right" true true false 10 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,ZIPR,0,9;FULL_NAME "Full Street Name" true true false 50 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,FULL_NAME,0,49;AddressType "Address Type" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,AddressType,-1,-1;ChangeType "Change Type" true true false 10 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,ChangeType,0,9;LastEditor "LastEditor" true true false 12 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,LastEditor,0,11;ONEWAY "Oneway" true true false 5 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,ONEWAY,0,4;F_ZELEV "From Z Elevation" true true false 2 Short 0 5,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,F_ZELEV,-1,-1;T_ZELEV "To Z Elevation" true true false 2 Short 0 5,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,T_ZELEV,-1,-1;SPEEDLIMIT "SpeedLimit" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,SPEEDLIMIT,-1,-1;MaintenanceEntity "Maintenance Entity" true true false 6 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,MaintenanceEntity,0,5;LastUpdate "LastUpdate" true true false 8 Date 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,LastUpdate,-1,-1;Creator "Creator" true true false 12 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,Creator,0,11;CreateDate "CreateDate" true true false 8 Date 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,CreateDate,-1,-1;GlobalID "GlobalID" false false true 38 GlobalID 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,GlobalID,-1,-1;NPFC "Roadway functional classification" true true false 50 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,NPFC,0,49;created_user "created_user" false true false 255 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,created_user,0,254;created_date "created_date" false true false 8 Date 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,created_date,-1,-1;last_edited_user "last_edited_user" false true false 255 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,last_edited_user,0,254;last_edited_date "last_edited_date" false true false 8 Date 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,last_edited_date,-1,-1;Segment_Length "Segment_Length" true true false 8 Double 8 38,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,Segment_Length,-1,-1;Cross_From "Cross_From" true true false 75 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,Cross_From,0,74;Cross_To "Cross_To" true true false 75 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,Cross_To,0,74;RecordID "RecordID" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,RecordID,-1,-1;LucityID "LucityID" true true false 20 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,LucityID,0,19;FunctionalClassCD "FunctionalClassCD" true true false 2 Short 0 5,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,FunctionalClassCD,-1,-1;MaintainedBy "MaintainedBy" true true false 2 Short 0 5,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,MaintainedBy,-1,-1;SegWidth "SegWidth" true true false 8 Double 4 8,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,SegWidth,-1,-1;ROW_Width "ROW_Width" true true false 8 Double 4 8,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,ROW_Width,-1,-1;ADT_Volume "ADT_Volume" true true false 4 Long 0 10,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,ADT_Volume,-1,-1;MaintZone "MaintZone" true true false 10 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,MaintZone,0,9;AltZone "AltZone" true true false 10 Text 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,AltZone,0,9;OCI "OCI" true true false 8 Double 2 7,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,OCI,-1,-1;FHWA "FHWA" true true false 2 Short 0 5,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,FHWA,-1,-1;LastSyncDate "LastSyncDate" true true false 8 Date 0 0,First,#,\\cnp-gis-05\GIS_Public\Departments\GIS_Administrator\Weekly_Updates\Weekly_Updates\Weekly_Updates\PW_EditsAdmin.sde\GIS.NP_Streets,LastSyncDate,-1,-1" # PairwiseDissolve Streets \\cnp-gis-05\GIS_Public\Departments\Planning\GIS_Maintenance\GIS_Catalog\GIS_Catalog.gdb\HostedLayers\Streets_20251001 FULL_NAME;NPFC # MULTI_PART # file://\\cnp-gis-05\GIS_Public\Departments\Planning\GIS_Maintenance\GIS_Catalog\GIS_Catalog.gdb Local Area Network Streets_20251001 002 Projected GCS_North_American_1983_HARN Linear Unit: Foot_US (0.304801) NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet <ProjectedCoordinateSystem xsi:type='typens:ProjectedCoordinateSystem' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/3.2.0'><WKT>PROJCS[&quot;NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet&quot;,GEOGCS[&quot;GCS_North_American_1983_HARN&quot;,DATUM[&quot;D_North_American_1983_HARN&quot;,SPHEROID[&quot;GRS_1980&quot;,6378137.0,298.257222101]],PRIMEM[&quot;Greenwich&quot;,0.0],UNIT[&quot;Degree&quot;,0.0174532925199433]],PROJECTION[&quot;Transverse_Mercator&quot;],PARAMETER[&quot;False_Easting&quot;,656166.6666666665],PARAMETER[&quot;False_Northing&quot;,0.0],PARAMETER[&quot;Central_Meridian&quot;,-82.0],PARAMETER[&quot;Scale_Factor&quot;,0.9999411764705882],PARAMETER[&quot;Latitude_Of_Origin&quot;,24.33333333333333],UNIT[&quot;Foot_US&quot;,0.3048006096012192],AUTHORITY[&quot;EPSG&quot;,2882]]</WKT><XOrigin>-17791300</XOrigin><YOrigin>-41645400</YOrigin><XYScale>3048.0060960121928</XYScale><ZOrigin>-100000</ZOrigin><ZScale>10000</ZScale><MOrigin>-100000</MOrigin><MScale>10000</MScale><XYTolerance>0.0032808333333333331</XYTolerance><ZTolerance>0.001</ZTolerance><MTolerance>0.001</MTolerance><HighPrecision>true</HighPrecision><WKID>2882</WKID><LatestWKID>2882</LatestWKID></ProjectedCoordinateSystem> INSPIRE Metadata Directive 20251002 16482600 20251002 16482600 Microsoft Windows Server 2016 Technical Preview Version 10.0 (Build 20348) ; Esri ArcGIS 13.2.2.49743 PZh_Streets From \Departments\Planning\GIS_Maintenance\GIS_Maintenance File Geodatabase Feature Class dataset EPSG 6.3(9.0.0) 0 Simple FALSE 0 TRUE FALSE Streets_20251001 Feature Class 0 OBJECTID OBJECTID OID 4 0 0 Internal feature number. Esri Sequential unique whole numbers that are automatically generated. FULL_NAME Full Street Name String 50 0 0 NPFC Roadway functional classification String 50 0 0 Shape Shape Geometry 0 0 0 Feature geometry. Esri Coordinates defining the features. Shape_Length Shape_Length Double 8 0 0 Length of feature in internal units. Esri Positive real numbers that are automatically generated. 20251002 iVBORw0KGgoAAAANSUhEUgAAASwAAADICAYAAABS39xVAAAAAXNSR0IB2cksfwAAAAlwSFlzAAAO xAAADsQBlSsOGwAAIABJREFUeJzsnXmMneV5t+/xrB6Px/aMdxuM2W3AZl9DgAAJkJImIZuqpImS SJUqKkWp+kebSk3bP6pKbRVVbVUprb5U2brkI4R+pAlbWAwh7LvZd7Cxje3xzNie/dP1nLmGm9Px hg/22JxbOjrb+z7vs/6ee3+axsbGxqJOdapTnQ4BajrYFahTnepUp72lOmDVqU51OmSoDlh1qlOd DhmqA1ad6lSnQ4bqgFWnOtXpkKE6YNWpTnU6ZKgOWHWqU50OGToogIXrV0NDw8F4dJ3qVKdDmA44 YA0NDcXAwEB0dHQc6EfXqU51OsTpgALWyMhI9Pf3x44dO2LGjBl1LqtOdarT1ASs4eHh2L59ewwO DsbMmTPrYFWnOtVpagIWOivAqre3t4BVe3t7jI6Olt+raV90W97PPdOmTYvDmegvXk1NTYVThWgz v9H+3fVb1hnymfv2FELK9dX3Tfa5TnU6LAELDgtisQBeEIutmvYWeCjThdPY2BhtbW2HLWih99uw YUNs3bo1jjnmmHjzzTdL33V2dkZPT0/ZBFpaWmLnzp3lHVCjj1tbW8tn7uvu7i7cLb93dXWVzYO+ Y/NARBfIeBZlTJ8+vYjvlMH3LVu2xJw5c96lg+Sd+/if8eUz1/MciM+UwdhwDc/hM9cButTNcWQM IUHZ3/lM2dRtMpCsg+gHiw4YYDEhWQR1Zfu+EQsYgPrnf/7nePjhh+Nb3/pWfOc734kXXnghPvSh D8UTTzwRF110UcyePTseeuihOOqoo2LevHlx9913x8knn1w+/8u//Ev88R//cTz11FNx1113xTe/ +c34yU9+Es3NzeVert22bVsZnzfeeCNOOeWUOOecc+LGG28sn0866aT4q7/6q/iTP/mT8rzHH388 rrnmmnj00UcLCK1atSpefvnlApjcxzUA1VlnnRX/+Z//GZdddlkp52c/+1lcfvnlBeh4zooVK8p1 gCH1Bnw2b94cxx57bAFZgO+4446Ll156qQAues++vr5ST+YTQAagcR+fAUU+cx/ACCgy92gn/7u5 8bsAOBnnyItruFbgrOZmM3efP3ONG6efd3Xt3pSxN1zuWBXXbBl7wwXvbZ2qPx8szvuAABaD7ySp 077Rxo0b44477ogjjjgi/uIv/qIsouXLl8dNN91UOKvf//3fL4sT7ufaa6+dWOhf+9rXCjAALh/5 yEfiyiuvjPPOOy8+9rGPFUA444wzYtOmTQXoLr744gIyTz75ZFxyySVx/vnnlwkP2PFcnvntb3+7 PIPfXnvttQI0lCtIACiML/9Tr7fffrsAJOCyYMGCUheu4ZnMBb4DIoDVLbfcUu6ZO3duvPrqq3Hu uefG/fffX0D0c5/7XPzt3/5trFy5Mo4++uj43ve+F5/85CfLsx577LE4/fTTCycHeFJ3fr/hhhvi D/7gD+Kee+4pz/vyl78c//Vf/1VAkbYD/LSLetEWOE7qTX0BUUDwvvvui49//OOlT6gHgLt27dqy 4XIfmwhtX7x4cbzyyitlDCiTTYMyqNODDz4YZ599drmW/jryyCPL+NDu+fPnF+4YwKder7/+eulH xvaBBx4obQVo6Y8lS5YUMNixY0cZL7hcyqPOcMyAvJw391Cnp59+utST/qf+gD1jCuBTV8YULps+ ZzwYB+rHfOM6+oT7aAdl8mz6xc+0nc+0AU6fMqgLc0QOm/+pK+3iernoKQ9YNoDOq9O+EQO9cOHC MkGZABDvixYtKhOPPpVz4HcBBFGPCcZi+OIXvzghljFxecl1qFNk8jNJKZcFwvOYuEx+uRS+z5o1 Kz7/+c+X8pYuXVrKYgKzOJjcfOd6FgC/swjguniWdQK4nPDHH398KZfJDvclmAGuXM9zACnuAwC+ +tWvxgUXXFAWPOXD1XHPVVddVRYOc41F/dOf/jSuvvrq0i/0H/fwH9fSTp754osvxrPPPlvqwj20 mfbynf/4DpAAMoABi5n+BBQFKdoA2NOP/A4w0l6AFM4VgAQIARXqAujRVq5/5JFHCmBQT0CbvuP3 6667rrSHNv/gBz8oZdjPp512WgGJ5557rgA7nCrlf/3rX4+//Mu/LP35O7/zO/Hd7363tJnx+sUv flE2IcoDzOkDxoAx+cQnPlHqxu//8A//ULh3xo8x/sd//MfC4Z5wwglx7733FjAFGLmW55x44onx N3/zN2XjuvPOO0u7eC4v+po2sLEyL77yla+Uew8JwFK/wUSo074Ri4JFz86Y+xNxC7BikrATVusD Zc3p82XLlpX74SwAEstUvGGhMQGZxExqvvPurqguiWewQBE14Vz4jRfX+OI7xEI59dRTyy7OQuc+ gFAdm/XjHhYkExzAYUfmObSNRWobIH6jLdSTnRxAo3zK4HmKRXCPfIYrEsSpM33AM1ho9Bnci5we QM31ABd1o3/4DGfKAr/55pvL/9SVelCGnIMgRjlwebQBLusb3/hGqReASRncx+KnfYAc9OEPf7j8 z/MpAw4O0VvVCf0CKNGmI444opRBWZdeemn5zDOvuOKKic3pC1/4QtlIUAHQP/TN6tWry2fbBWfK d9QBACTlCW7U2fHjPtQBvAOOtJUXv/EOEP393/99Ednpzy996UuljpTBOFA2/UBbAUXqt79c1gHT YUF1y9K+EwCzZs2aMtBnnnnmRH8y4ZiwKsz9vdr6KveF0h4xS0BiZ88gx+SjzOp7JcGA37hW3Y7X 8b8iP4sI7oTnskA0iAAelilXBeCol1I/AtcEF+Fv6ptY2HByfOce7neRuxC4jsWGKKavH2Wy8Pmd axWRELsAP8RXrpHzg6gzBMBB6OGoD79TZpYWvJZ6A9KMCX0p4NJfkvfBgbHwAUXqnq+hnRIcDuXA +c2bN2+X84Q+Rw3ApiAHLmW9MYBPX9DOfA19A9G/0qc//elyr9zjZOUBQowD3BMcmBKBxHyDGwV0 6ZspC1i6MtA5TN46d/XeiMnKbq5YXe3GIVBkIMig43UsJl7qHdhV87XVbg4ZkCb7v5p8vv526sCq dRc8F5BiUWuIyU7EGmjgoAACQVULpPWiDC2lisq5zXlRaRGlPOoHB8Rn7kU8pI4A+u50rFy3J6Ic QHBvFN7Ub28MUHBL9CMAuDsCGNgc9qQnBiAByr3RJwNoe3KZ4bmAFSK63HX1/3BycuD7S+8bYDEx 2AUVZZhkKujqnNbk/cWrerIjsvBCl4K+BdEtT6LMgezKx8oFzMQHKAADJk+1q0D15NTfy/HL5Qo8 AKliFYuKd57BOFfrLGkb3Az/r1u3rgAowOEcEUTZ4ORmmPAADIChaoFn8myASpFU/zQ+2ye6T6CD os26ePCu/okXQFgLgxBl7AlY9pXoh73V/U7bizbQXrmpWpTHNXBgvKqJ9Y4BAR0bIAkHNuUAywXH RNGU7MRgoiHL0mGToXE1vbNI3r1Y3llUTEw+H9pOjPSZ4OCCg/iNxYwCGLcBBt3rM1WDTvVE0w+O 8lS2C27V9+6q3GriXndNuSiAS3FIMSnXQaDiHbcM9Wm2n/90SxCINNHDGegnpi+YAAEYATqUZ72p k3OQd8Rpfbo0OtTp/SX6GDGb8WJsanHeTc0BCwUck3D27FllZ1DpKTvPAmSXA5Erkwa9C/4y6DT6 Y2hoRwzzGtkZ2/t7y247NMQOPhjDOBs2TouWFnQhzdExsyPap3dESyu7+exoa5sRTU38N7mT4VQk FlM2/WawV1eFHgMOA4Wm92RRLn/P5H8Q3Ax9yWahBdBrJiN1X/l7tdjG+Kr3ojx2VJ4DN5evBaBQ vGsOtzyu5TfrAlCp2Ieop/XTsMA9AA+ApXKestVrUYY+U9mZFcCj7fwPYKkzoh6Ig5RXp9oScwNj h/OlFlxsTQGLSbLhrZdjy9YNcdxxK2P2rLnsxRFjIzE4uCMGB3fGwEBv9GzdFOvXjcRoUbBuj/7+ vujv64uhIXQfAzE0WAGswUE8qYejcdpYAa2KshCFJ7svVqzWAlIdM2H3Z0VLy+zomDk3Ojvnx6xZ 82P69JnluqlKcj66DUByBOqXVMiidFUhWu2sV62LqtY9ca0cS75OPyjEKwPTIRavYhcAw7X8lzcB ACQ7ESqqCRS8KAcQw9cJLghwUXHM8wRPrmEyqy4AUPj+1ltvlWspl52ajY7f5eh0UeAz9ZF75Pdq /yHuoz5sDkYAQHmDqFPtib5FDWD0wv7Sfq3myqQfjB07+mNwoC82b34rNm18Ip57/rHo2fJstE2f G8PDjTGtkQkzFjE2GGNjKH/7Y/v23hgeGo1pjQ0xODQYw4Mj0d4+PVpaESUQITuiq2tBdHZ2xIz2 Nviw8RCNkVLO6Cgcw7bo7++Jvr710de7LQYGxqK9oztmz14SCxYeE/PmLotZsxdHZ+fcaGnBujP1 HFd1IWDRGS+oRU1nvOeff/5dIpbcTtZjSdWApYio6Ca4scBZzJQvF6aDr6IVQCHw6JaiRzzv/CZ3 yLshV05OfgP00L9hOUIxK9eGMpnvcEzr168v9eIa/bMoAyDjd+qpdY86KRbSLoCQOlKGrgVcI5DR FsAO3R/P4n8spPqL2VeAap1qT8wnOFg3voMIWGOFE3rppUdj7dNrY/Pb6+Lll5+JrVtfj+am4Xhr /fPR148CtiFmzpwdCxfOjzmzZ0dzC6bq5mhvXxDNTa2x7Khl0TFzVsyZ0xVNje3R2MT/rTF9eoVt rxbtFAt27NgWY6N9sentdbFp42vR17s+ens3RF/f2/HG6w/H6689HB0d82LRohWx9IgV0d19RHTM nBfTp3fGtGnv6IkOJqnfk+Qe1NtAABWm6Or6Ziuh7PZk7iMCFuw5ViR2OxY7Pkj6LvEsuRYdMfXD UmTVd4r/dTpk0QukhsrIcflMOEPeAQSuVcHN9fxuDCS/AVg5DES3Bsn/Ef24H46M8uC8ACH9jixD ro/fKR/wyiEv/Gd8JW2sU+2JMcedYTLd6gEFLObUzoH+ePrpu+PuNb+Onm2Dsb0f/cD0mN7WGDt2 4uWMb8aKWLbs+Fi8eHlMn94VzS1M8soEYgdlJ9xdUGvlWe820zMBtcbMnXdsjJ2AnmR79Gx9Pdat ezrWr3smNmx8Lfr7Nsczz/wqXnnl3pg3/+hYtOjkWLjwhJjThZd4ZxEppxLXVS3KZXErA9tkXJRU bSVUuY4ohtKeMB84JrgVvdgFALkwOTw4G73mWdj6YAl06CG1YLHgdU7k/8wtApQo2fnM9XJg2dgg gOR+8H4NOX4HYLLlTP2fbgJykV6vyKdBwLKoM7+pv5oKm9jhRiMjI8UPi7kFl3vQAKuia5gTH77o y3HGmR+thG6MDMfI6FBsfnt93H//g7H61Iti9epzo7n5f3u4M6GYYFqE/M2yJ7t+st/1Q2pvnxHt 7SfEwkXHF3Fz48YX443XHovXX18bW3vWx/p1z8brrz4VjU2dsfKks2PholOiu/vImDFjdrS2tk8J rkvlOfXQxQGRipAUfGII+YD8zwXvAq0GKv/XGVOPYxTQKuFZ+C7qrO/ysyE5ci6KdIbQ+CxFMbky QNBEjYAcXBnKcX2s5CT5rp6Ja/ZEgmZ2ucgismXm+eI7GyRkRgrqxhykL7Q61qm2pJ50CoiEiAFN MWfOvPLKtHjxaLz4Erslea92bYVSHGACVXtOZ8rcRvV/BmTmyTljRmfMmHFqHHHEKdHbuznefGNt vPbqw/H228/F5rc3xZNP3BIvPn9nNLcujmOOOTeWL18VnbOIhUOkQPQ58BPXNlb7YyH24HgHGKjo BmgABNoOAPEfwCO3ZL/Qt4buEAun0lurHSCo4ySTSsW6fk0Cl86WLGpEL37jM6DBM+RWIDkzXBSo C2UrEsJ56VKgw6eWTEV9x3Cyd0nOyd8dfz3WVaTnzAzcQziRzwM0FSl9xsHesA5Ham1tLQH31Vbn 90rviwnN2DSsPCjcNMcfCEe7THTQ7Nnzyuv4E86Pbds2xGuvPhJPPXl3ROAP9EY8/+xP4um1N8ay o06LI488O+YvINB01gEHruyvlgmgIaRG3ZPOj4AQC48+hkvgN4AC0KFf1f+ZSwtChIM9B8QADoAI Dg49g5a5zKGocNfCpxWR36mnIqGe5+atAkQBH9PBEMOIHs5nwOnwHO73GZYJZXEu+/XltC2Kpfvi XOn1gK7XC7a8BLk61YaUEEhlxBwjKHt//d9qBljuXIoOxBjhmb07wDqQxELv6loUs2cvjBNXXBIb N74Wr75yf7z04r0xrXFrbN38YGza8GA0Ni8swHXU8tNjzpwl0dRUEV0OFrGYASVdDXRxYPEBCgA+ CxBQUUFusLLcDmOiBY/fTBsCAKn4duFmpTTlMdH4XcsdYKSnOPcLYvpP8R3w5H5AFoCEk0PcEyT4 n4nMs50zuGwgqu4t6WBK+6zz7rz2IQOr6Usts1gw2RDgMAFQAn3romFtCIdn+hcDj/nO9pdqClgq aSEmLxOSSWIIxsGnimd8a2tbLF58TCxYcGScsuqK2Pz2C7F27b3R3/d8jIxsjJdf+n/x4ou3RcfM 5bH8qLPiiCNOjhkdlXCWA0VyGfQbi/nWW28ti4rsAWY90PJiHiI+qxPMwcyKku54/M9v/I9rAaBh rB2fzaigb5b6Ka1t6p30XcoiJPfoeiAnZcI9/tN51JAbwFhDAXUTKLVU5mwRiK8GH/Ns7gX8spXU OQg3p3OpdQRsFQ013ODoTPgIfQunCie4N3GDddozoQYgMwRRGsyzg67DmsyfiEmiKMKuyiSEy8JS NHWIhc4kZ6HhQtER3XOPi209G2Pz5pfilVceip6tL0d/79p48okX4oUX5sbixSfH4iWnRnf3snGf rob3TY+liMIzWJAsTNKQmIHAMBRAh8XF5qBYpfI8i2hcz/9a11i8BqWbJsZUyCrzKVsdlpwTxG88 2zL0mzJrBKIanBLPp+7Ej8ldeY1GAMRFjS8Qvzl3qK8REpDcFNwknJBOoNaRsgRLnmUoCHoqfc38 T/cMfmdRKRZnDrNO+08YieBYyXRhXOiU0mFpvWGiMfgmnsu5nKYaVaxirdHRgdf8zOjqXhxLlp4S 27ZVLIvr1z9VHFPXPnVLvPrKA9HYND+OOWZVdHYeGXPnLY3mZrI3Vjyp95cyd6JPFgCFkyUDzkLl P4AAcUvw0RVBz3iIBW34jApxJgwLGCdL/lNEEuTUYcnByMGpjHehyy3LCal/o34q1uFm4F4QBeRY eK5gJedN/Zwv1eE/iriQQdbqtgQyg6Ctk5k11X/p5W6ZOVUyZAZR61IHrNqRHDl6WPN1Tbn0Mk4G XkxUZNg9KTR3585wIKki1nREWxs5gOZGV9eyOPLI02Pr1jfjrbeei7feejp2bH821j71anGCfeqp mdHUNDu6uxeW65ub8e2aEa1t06OleRxExn3WqgONsZ5WFkdqc+kGFhl9gUiIzqo5jjnm6LIwCWPy mLT29kq20eZmOAzcGir+Wu9Y0FjkcCnN0dj4DhDl03dMyqf+KSfk022BsZMr0cGUxe2zBFi4KBZ/ hdPmfiIaNpdwq5aWheUeDQXZk98yMvejxVDrn2E1OrcaFWCWVUjFvHo3y4ZyWhr9ymwr1tKBAdwa qF/Fs75OtSPmBhuVxpn9pZoBlhYnI/YhnQthvRFrcmKvTFzPBHPCTwVC2T5zJgcfzImurqWxcOHx 0dNzRvT0vBZvvvlMbHr71RgbeysGB8fi9dcQL1tjeKQphgYbIhpYkI3RSKjIyFgMDALWTTG9rTm2 bCEvd1ts2rQ9pre3RXfXjNi+fSiGh0ejqbkpmsoJQE3R1IyifCg2bdwWL728LmbNao1NG+bFzoHR 6CCVx+hwTBvX7wwMkNqFxY7zpS4i06Jtent0dkyPgcGBGBwYjP4d/NcZjY2kWx6Lnq1Px/b+l6K5 pSnaWiuiXQUwwM6GmFY4rdGIhsbyuYAjnNXwSOwcGIqx0Uq4DgHn0xq2xejI5hgYwI1iU7z88gvx +GOPxcjwxjjllFNj2rT22LCR1C54ujeWedHUNBJjo4hmlRAgc9gNDaIz2xmNjdNjdLQhxqhCA9bE oejsnBGDg5XEf5s3v13aWwGrimNrxT+rYkBoARSHSYs8HO3T0Vm1Tfh64Wg8MtIQAwP95VkNDSjj d8TWrRtj+vSWcStxxYD0XjbSg735ThVisyBbauZ0DzpgqTNBH6IfkZYldiz0CaYIqR7IajFjqlER P9ray2vWbESHY2L+gpXR07MhhgZxJeiJHdv7YnSMdpPkn9CW4WhsbIiGaQ0xOjJWFjeA0dvbF3fe +WBceeWH4o03N5byG49fGC+++FbhuDo6pkdf/44YGx2K5paG2NYzWIBjVmdbNDWORW/fhtixYygG B9+OttbxNMMNhJz0RmsrVsFpMTxE3w/Hzp1D0VTEtLYYK1zUWGx6e2fM6VoZAwMV7qlny+sxPMzR W03R2tZcDBJDgyMxODQS7dNborWtJUaGx6JnG9ZIxK7mAlJgQn//YDQ1N8T0tpZobGqKl1/C72s4 Nm7aOq6Laiv33Xf/g/HII/dHezucayXFLvXu6GiPEXRuo4iIFZCdNWvGOGc4Ev19O2PW7I5oa2UO jRWgpF1zu7tLvSqn7fSV+6lDSwvcO/ovOLaRaGltipbxRdLbV8nzTgD9+vXt0dfbH5s3MycxDOyI vr4dxRCzbt0L8fOf/5/o7p4fc7vnxvT2GdE2rttjLKGhoZFonIbOr8K5QjAOjFNryUQBwMEikyCw q+hH2fz+Fzf9AaGhoaGJsKwpk9NdHQb6C3UUcFUefMBvnu6BtaCaqtPnTlWCM2hvn1VeCxceW8SI 4WEcJzE0MGtRmA/H6Bhi2bsT4QEQW7b0RGPT0XH6Gatj2VFY65pjwYLZccIJW+jEAgj9/Tvj1Vdf jv6+bbFq1aKYO3dOdHe1x/r1b8ZoyXoBNzZY0uy0tpGRoCXmzycWD5EQpXtFpKEeFcCsZCcAMJZu H4oXXthQRFcWb1c3AcKIplgjW8sCZMEXnVbAFTbEyPBojIwCahVRr3LNSHTP7Yz2dnSWiIQVkW4s AIam2LK1L/r7KxEI06YRkzgQnZ2kG2oqINXcAggNxeAQwMY19NFwDA70V0RSxMpmgHFH9PbBtQ8X roe2bu15K0Y2c+1gbOsF3CMG2vFfq6gbALodOwZjRkdLNDdNiwZ0cH3EC86IluaG2LKFAzK2xua3 t5bnj43hyLqohGn19GyMDW89HN3dc2LuXNIlt0VzU1N59rQCTjjtjufhmk7GB/RkYzE0PBIM94wZ PLMh2me0RWMT/QlYzYl585dGV9eRMXPmvAKMUykc7P0mLbe1EAdrKhLmlK+GfZh3nN0NBSz6AsTC bC2gIR6ueShRxQ0Av6K9ywZZEVXWxcDAb+LllzeUfiCvN21fufLd16KkxCUA/zVDR9qmvzgRggMn CyHe5GBfNgXejdczb7pKeerw+ut3FvBsb58Zxx1/UtlkcqLFHO6kqD48jA6yEs7SRFqf1pbybPKY bd9OCA7ATdphrHqN8dJLr8SaNb8pz1m9+sw47dQTS516tm2LgZ2D0djUGBs3vBUbx90LuuZ0lzIB 4WJcIM1MNMTI6HCse/PNGBoeLeADQENwkWT42L59Z+EeW1rgaCK2928vc6x9xkiQVWj+3LkFtBkn 6oYOsAX/M/JmocwfG46env5Y/1bF6Xb+/COju/uE6O7qLqFecMQVN5BKDjbm8choQ3k+98p17dzJ hoWxiUwiO6O3F/G4N3q29cTgwLSYO29hdMwkO8VxccSRJ0VX1+Jobn4nh/vhTC0tLcVSnA8emZKe 7jmXN5OSCc5CJGQjO5IaG3a4KztNcIeToqcw7wqkcbQ0n3YOY/J6lc7qBbJbgd7yKs6NJEAsx7po OI2+UG4WxtKpfM9Bwiq99Wz3+f395C/DNQTQhmsiiR6+VtS7KWbNIuB6dZyy6qwCsv3b34jWWY3F arytl5OsUa4Px5w5HTFnzsIJ658n4lQ403dcSNSJGkdo+mhAuQBz645oao7yKi4PLYsKGBN2ZXoa QpO0aLa0TIunnnwk1q//RfT3bY3jj18RV135ieiY2VX0ZfSZxiL6DGuiJ/vogqFKY3QUNQC6t/5Y v/71GB7aGnO6N8e2nnWxffvGeO6ZNfH6a0/E1q2vxDHHnh0L5h8X09s7D2tua2xc2jIsjLMJpiRg 5fS2EO/GsCHP5tAIKJ+4criSGRM4iYSz4Hbnk1K9E5kXKx/nboCxrgvmrBJ8BDO5L51FKQeuijGA 8unJcnBa/kzGR/nG3bHwAR8DhjM4YhHGuxkuhzLZWefOnf8uR9OiUxo/hMIMEFoj9cEydEifNCin scmbG32ANz1gTN2sM2VTH8qmPp5+Qxs81KEA/c6G2NqDjmxO9PaSn43fW2P9+g3lmUQV8Ezmrdyq QO9YVMKgKqlzoPb2heMWz9HYvPmV2Ljh2Xjl5aeKweaN138TgwMbYnv/+bFk6akF1A9X0NqxY0c5 P5FDXWuRz/195bD+14OamgpLDZfBBON8tqmus3ovpPe3Pj96YSteQfvabheu+aZMpqeYJ5gpBurM KegYjoLvFgR3wekuepELALl8A5TNuGDSPvSQcnMCKN8BMcYVr2aei88NeZBwbbHdnjhM/fSp4jd1 nfmEHw03goC+abrIcD/Ax/FRPFuwk6M0+SCEeoI+on/Mm+UzKx71gBA+bxXAMxsqwOZY8Z1nqavV 783sFrRLdwr6yzHo6FgVixevjCVLT49XX3kktmxeG729r8cTj/8ienq2xUknXRSds+YelqDV29tb 5gNzgNjiKWMllFwc1ek+JE/XfeaZZ8rO5a53uBALhAFyYPA/MSsAuwyT+sYbbyxHoO+LAx3XmorH AGezd+a0x3K1OpzqagL3QVynR9MDPIp4nihsKIziuXpIQ3xwS6m4HrS+q+48G5af9lE+bcfRlQNH 0dPzrLciAAAgAElEQVTJPRkJAVmG3s/m/TesyN/1q+K5HuIp91QxYmyZ8JaHAFXClnSW5X+upe7m jvd4MOrKcw0qz9yeJ1hnov8Vpw0R4lo97LWIe3qQnK3jMn/+UTFr1qLYsOHEeP65NfHSiw/E44/d GsPDI3HqaZfHzJmT54U7lGn+/PnlVOif//znEyc+7a+3e00BS4dC8w25awpcfPY49CeffLK47h9O oiCL4n/+53/KZKadv/rVr4q+jmPXAarPfe5z8Ud/9EfvOjRzX4i+Qv8FkAj2Llj70QXu5sG1AKcx hLxzqIWKed0MFCXVjbnYADgWN4vOw1GrgYvFqv4L7gPuedWqVUUUYy4IqvrnmUPedDIm7ste83KH Apm6JDknQFKnZO9Bx0S/8xuLBTEEY4+hRVwHkHrIqXGWAozAONmion2AIaIhz4ZTo31sUIw3/zkH 4ObYkHmGbaethKiVfPNtJ0T3vIh1bz4W99zzy5KB97TTLytpkQ4n0GoY3zwNsJ9ySnfDcvL5ch6i IHAZcMugM1n2JUJ/qhNtu/zyyydOv2UBISYRB8jrvZAhKnp6K/6ZpQAuKWda0AOca+l/OAj0SixC ldlkHtUiaPyn4pPBzQCajryOqx7jks/18FQ4OdoNKHhwq5yKIrLpZbRmWia/m37G/FxmqDDMSLEP AKZfFd/4Dx8fQMLNUrEVgAdEARXuk5sC8C3fBUVdPF/Pfs+JAPmPMSXHPskQK86rlYBqUujQfuY2 AM+x9nKtPIf/+N3MqMW40UwGzjfigQceLq4wZ599ZfHbOpyora0tLrzwwprpqWsKWLLrDrJigPoI dS9MVMQGLGYs8MOFPMDB9p111llx2mmn7Xe5cq0ubIOTnfxyVeaUUlyBA2BxGTDNfStXrpzgIkw1 YwYFY/d4hjmyWJCeHcjCf8ebvGKyBgTQ7RiYbDA2ZAYJLY0seOoBV8jnfIZhbht96OZGm7iWdgI+ PJs60TZPzYFjBLC4lrIM6/EcTMN1sn4xZ6hw9zf2zWBqxNxsDbR+Bl0Lrs7rvAkbN0lb6EfDjwxJ ImwKT/pZs5fF+vWvxb//+w9jaHAgLvzwZ98zBz4ViQ3zBz/4QZk7X/7yl6eWSJgP1IQErJwhUrGA QcXFAbYedvpwYIWZkKTTYIGxgCqm8/+dHnp/YjRddOzuGjGY4IpG5r5iwZCHyEMl6H/qpH5K8Udx Ss5K0UjlO+OlWKdIpm6JScjzAQVP9YYEVz97r0YIzzNUr+TcUIxVnaC+yaPs4aoAYEQrnk076AOA kTbrIqMYqZjIc8xuqoimYYEsInA/9913XwFc5yccFDoXxlDXBXWIgCUKeZ7NZ8RET/fx0A2PL6Nu fGZN0D+oCOBCuR7dGiDX2NganZ1L4kc/+mEJKP3QhddEa+u7D+A4VKmzs7NIF9W6zykBWE5oJ6Hi QmYF5b6YcFiqyEVU7Ux6qBIL8aqrrprwY4JqMelyTif9pCDZbFP66LskB2J+KQi9IX3uAswuDebR UlmvpUtORMW8aZHlAPJ421aBybrpvuLm5T0q+j3gVO6F9ummoc+XBgAUt3AsPJ/7AQ2skQKaLhk6 I5uRwjrZT37neei42GScl/wOMAI81C3nsOcauEmtjdSD55iFgDq5MOl76sz/AJNWV/73xaZCfWlf Z+dRsWTxrLjuuh+V5513/ieivfhpHdqg1TC+IdYql1xNE/i5a/tdBWlOu+tiYwIw6Ow4Tz31VBFV DnXQYkEAwIgvyO21GiTFERXREJNfZbh6FxYMogwLAS7EXFOa6OWozEJqmfyu2CeHwX3qH7OjquIN xDtchIdI8J9AJ/ekCCRwmiNNHRf1Na0zlNPCAMA5eylAzLXUlzbBPZlORsDKIigvRWfqo6HBtquq yPo5+o46A/B5/Ez9bEws/aMlM580JPgjqirCmoVC8NGVg3GjLA+MPXHFuTFvXldcf/1/BEchnHvu VTFz5pxD2uWhr6+vrAnaOuWshLLZpq91ckDZWzmLH4gpd999dwGunKf7UCV37lpSTo1iepdKAHHF b8hz/dTLuCC1XrEoADjBxvxTLmzdCMy0QRsEBpXaXpuV5xkksuI8O3laF/tE/ZbPt1051zf3m3hP 8AOcddKkrnDlvHy2/mQ5TY4uCp7a4k6vTk9uUb0azwGASTo3mSivdVbOy3bZ71m81QVDvZpt1oXD TKyIjLqTcBTe6lWrSsjTLTf/d4mTPPucj8Xs2Yeun1Z7e3tJPJn97KYEYMkF5AnsxIGcmNX+WSAv YIVv1sknnzxhYj4UWWEmI5xiPgq91v2rSEU/AfDszu7iKoEBsnxGIH3MohEAMsejBRdSgaz1jAXK 4obLsT2UkcOCBDxeGTyyCCvoUKfMUfncnKtL0UkfJ65Rqe9zASq4F5+rF79J+GiTomo+Ck1luRlN KRsuDQMJeig2TzirrPR23ipeeiBH3hzM9MozBSzPQbR9iqY5ZM2TkASybdt6Y8WKlXHZZZ8vQdVr 1txUrjvrrMti9pwFh9xmjn5OXSr9Wguq6apSnyJ7rV/PZM6GsuO8I67ce++9ZTHASquwPtSICYh/ GQsc0z75wWuRUgPSKVGFuF7iHkyRDycFGHi24ooe2DmDpwtRC2QW2xXj1RMpembvbkHAjKFZn5bB wpChrO/SEOCmJufjYhZ8EB35jHjr5gdgeKS9ZJuoi23VEZQ2AIByiorBthVQpH0mFwTsncNKCm4W AlMGwXwcmuKvFkr7RE4ySxyQYqR18Z75C5bFpZd9tqStue++28v7mWddGl1dFY7yUCF81GBEAK1a WT5rDlh2OmQ2SXfavED0gHYhgcacDsyEMXfO/h4JdKApB8Oq26kFObGzx7iWvzzpWXwCGJyVdXKR cp/jIcckEGaRTxK4nGz852akxU/nU+MJ5bB9rvdRHzkr6y8XreLZAyYAfNrEBsbuLBAjirFT6wYh cHrwBGDG/EEEpL2eDqRom51kBRH6jOdxvX6Dgm1W4tsO52vmVBU3bZdcpWUIdDkrhqIp85xnUA+A 2D5ZtOjouPTSa+KWW34SDz/MsXQRZ5x5SXR3V05MOhRIkR21RK08Ad6XFMnGV7lQ1FdUe1TnyavC l4WOmEMDDzXAYhJiJsfChJghaOwvKSbpeOgOz4TXd8iMBVquBAwniQss65W0nAk26lKyZQ/Kh1MI SIqfliG3XB38nv26dImwThk0XdBZ1KRcNjL60TMCchyfdfJZAoVH0AtScj/VC92NVN9Aw5ByvbyO uikOKprn0CHbLAela4VcZd6sBX6ebRZe3HtyqBrXL15ybFx62afj1luui0cf/XUQon3mmR85ZEAL LwAMa4888siEI+/+glbNYwnzDpIXhjuVfllOCq1LK1asKCwkvlmIAExUdFvv50GrtSYmIyZxxFpA 670Abs5QoNjjgvZ/xYxKbvdK/2ihNfBW0VFRzwVmmWZkEECycyTkovSlGJUzQeSzDxHftNjpqKnu yvrqUW+mB/2xdN7Mi91+AIS1WBoV4fPlXBRJPeyETY/yzc9mGzJ35bNMFQN3Vb2xOn/lYhlXxTfb n3W3mfzd/pW7c3O27jkoG06vOq3QkiXHx0curYDWY4/+pvx+1pkfKYelHAqgxTxjTQPG1X10UAHL ncb3vAP6P6SuAsqHDZArx5xRLHpFGOLBDoWBkbKuJ5PBuAzc7tJBs9DYbbkfD+58rzoVymehqy9i 4cN5qG/JXIegkXVU9mcOPJY7cgzlkhVx1EW5eOWQXfh5gQs2GVgEA+NNFScNi7EMlevZfcNMH1kX JCAIHIp3hoQJYtbJ8q034ApYIDby4l7mHqBBX7oRKBHkciDrZxsnc2GpdoTVumo7dUOB2wKw8Anj WXl+0M6lS4+PSy/7VNx6y0/j0Ud+XQ4rOevsyw4JnZbMyJSyEjIA7LAMOKQFRkfDHPOVz37jdyaN uYkYfD2EeTGIKH0PlawOTDythFqA1G9g6cJ7GksonBG7tTouw0nUQz344IPldxTn9KH/ZR0KfQKI ecyVuhd1JopHnj2oNY2+V2mtaG6ZWcwRBNyA9KbPSmTjB+W6BD8DpfXt0h9PsYn2+5uLuNrdQR2d vlPMBYHQ9mawUty0rxSNs07K5yDaAYByfDrdevyY81N/M8FVYMpqjAyi1ZR9vvyumEj/aNU0jQ1z Al8vuPNMFdA6IS5DPLz1unjooTXl97PP+WjMmTN/SoOWJ5frnzclREIq4i6l0jn7BzFQTgYqni1a DJxiomEbcBgsxscff7wMHiAwlQdFoo1YO803hcJYEzwnN+uOAHiRYgYAg3CoI9GZOimPg2egMUS4 SOSezLTpOYWCghkJMneLxzuWSxYqi9hTownSzdfSvzm4WeOH4+kihQQ3SO6OZ6uvETBy5gOf43fD bjzuXuAQ+AREnqUy3XmTwSNbBFXA0zafY5/pt8Z/1FkABST4LcdT2sdaVdXpZQBX2e4mnMVMKYvi WdKgXawVwVFdI/2Ie0UWC6UiHi6F07ombrv1urjvvl+VcwTOOffKKe2nxdxhvjOGU0YkpMOrT3ZW ia5bg7ufO6Y7uU6Q+sc4GdBhGRPHIqPBU51oJ5kQFMec3OrvLrnkkokkeLRb0Q9QRgxmQfEZoKAs AOs3v/lNKQ+RWUBRPITLwgNccU73BMU6OTY+u5noL8V/AKlA6OLSnSCH+/BcOSEtY5r9TYgHeJpS BXIRKj4aOyiHpsJb73g3LcjPipLoNOFCqLtK72prn3m0aKcWaWMM+Z22Vo4We0eHig8W8/bRRx8t wC6Yy00KegKWXKHPz46iu1qMnngt2CrKWl/DePjOuO7OUNNQdFrHxWWXfyZuu/X/xl13Vvy0zr/g 6nGP+Knnu0i/c/Kzm8z+Us2V7tkZkMHS5wZSn2FALb/rb8Uk4z8yHAhaKOvgTCiXxT7VrYZMdrx6 pZypASCTLrjggvL+u7/7uxO/5XzX559/fnmn3Qz4zTffXAYcToB+AahYwOqAKgdCVJLTsfhZqEx8 rmOx/+xnPytBwwAK12G1gXOjr/HqFrj4DxFPpbiKcXRpuj7kU6kZYwDYhUzdELUAgeztL3ABBOaV B5ypnxxodgtwjqjoZh4YxiKI0G5FQZ/BRmDaZl1seCbAlE9lco7yHEN+zAih+sG66IALadnLomQW aScDLTko+yi7Vqjbok9RgQBYHEwC7Y4bWbjw6OKnxckbN/3y+hIwfeGHPx0zZrCWdg9ae8PlZMty tS46W3gzQO5K3KNNd9xxR5mTV1xxxdQQCSEViVlvwO7mriog8Zvih4PNPYqGfGdxw12ozyLXELtf XvQfBKIPWVBwAAw4gJWV3qZOoa88oSgvHMUMABBgYPE/9NBDpb8Bt9tuu62AAQCKvswEfLybrVNu SL1U3iX57CKnDirmzeSg3o3fUSgLcHAzZj81R5fOr25mfEasph4AoOUq3slZ6SYg4Ok86m+C4WQL RY6UZ5tHnvZkJ0fF1pwbS4lAcc95bf6vHJ5lXQUnoxIUt10r5s7P2U+hHDnQkDjh9vbuOO30S8up Rdf/7McFpy655PMly4PkfTkGNQNWBplsPc3cNuNqVgn1h4A7h6PSV5ZnmFOOYHCD03m5FlRTDssJ rvJVa0z2Gs4+NgKX1+lAyGc4CDgBJgu7MvqeWvo2HQqkKHjttddOeLarSM86IfrNsBtFDyeSfUsW UAAAbok8T3fddVfhvhA5Aa0zzzyzGATodybiZEpSnwmZLRSiXsbEIeY6xoyVeiUtg+qSVA/oAS/A uFj9DtBSdnaZyHorOU65RIDQ4Gr+0xN/MsDSh0yPfTOEZqJv2BgUu5UiXISUy6ZK/ws6Ao+id+VY tcqGwjU6+ObQHvpIXSGfaTffebZidEtLSwF5U9xwtBrHkh21bEtc/9Mfl3MxLx4HLZ5PXwAuevLr 5KtrSdYpCrrGglJnkhIwVwQj/STpb+pFnxsITvmMN21EB8dz0Mf94he/KGWip51yjqPqbXQW9RAB J2o2LyuCuAgUQ9y18ABGr0NKEQfZiPvqwFR9hA4Fxfy+EP1AttB/+7d/K5Pi4osvLoACYEFaBAEJ +ocJBMCZbdRMl7wDVAAA99Pf7Jqm7GX3vOmmm4qRg9TGvLiumuTMeJeTY3KSXsXYRp+NopVJreij iIkhQoAAiAQTnYwz1yEnY7Bx5m48zsxUNXCiOouymOEY1cHtaqHQFu6jXurSMmDxP2VB5mqHFJGs r3XyXbCVAxQMTJ1j2XJ3rhnayUs1im4rWksbGhrKuCnqAhz0+ew5lRPVr7/+30vZZ5x5RfT09JXz GLUiK8UIiurecqoiuVs+A1ZwxYYsuVnSFsaWfqOP8ZXEKGYySOttzCdp0FFp/PrXvy4nRu1vBpOa ioQqZbO4l83sijN6TrugVEyaFZIBQZmL3or/AC46g4YDZIg4KpIpS1+WyXbIQ5mc0CaLyx7nLmg3 CZXx+vJkNxEmliw5Y0B5JFWjbwFEAE+uxLK4x+dK2c9K8YEdXE90k9cpKvIbz2WMIcpmh+Y5phvm esFI7k39ppZCz1HMi0GxOKeF4XfKreSX6iyv3Z0o7nwE6M0XlsOFAHIt3FLWzcn1ZNcJSAuuGzHk OjCtTg6R0rFUUDDTBHNeva3i9PA4F2eoVgVsu+LY484pMYc33PCfJdvDscedyxYzIfHICEA5i0R2 ydBIgwqGeWH7tHrTX/QzY0jfwEEx57iPE5Lk6gF5fvcZiI/08ZTisERr/WDUX+SBdIAye61jYnVn qiwFoek0gih17NMD3rxOLuTDjZggcCEoYrXw6W/k5FAfAuDoNU2/ofPTn0pnSC14/AYYkbOL3RFx m5f6CnRmcLZMVCYi7LxivWMoeCkmMMHh2Mx+YBiL4irXqnNjkZln3QWZUzznzU5OXYONQG3/5MXo f9SVxe3Zi7sifdzoF/RkWrp5Dv1An+qJL+XYQt02tGa6GbuZ0gduptlZ2nboEqFoKUBldwrbakbV jnGvf8X+CqPAqTxHjHOd0+LOO/8nRkbH4oQTzouGhtbSRkXWHK6li4XcKnXEGAMQwUHxHb0xc0A3 GO6nnmRoZZ7wfDguVA6qErRIc23OeFsLqqlIaOS6oRWyzdlK6IC66ER4ASjHyglasJamxqWD16xZ U3QuTpbd7aKHMimukS/s3HPPnVjMOdSEPmVhAhr6NDGhDK6VAwVQiBowO6ehLoCS1jr8tZh8KsbV lbCrcqiCVi51Wyx4NhJ0jbplaB3Wqz/7GlmfbNKXBB8XlBuRrgxyCrpAuNi11il2upgBR7iCXZG6 QNpqVgg3VwOiXXBy7jl9jPopc98rouk2wlx1Yxbs1esy15nHgAP1YI4DElwPkKsqsa+pj+FLoymv mN+pu5bY1adeGs88fXs8QJaH0bE49tizYk7XggkOVqDMriTZIMA6kyOGK1L3KVfLfFHvZ1iTXDIk KBpeRt2YI/Qdm+P+0vuWwM8G5B0xX+eO6G6VuTIPTHASI2qw2FAesjAZXDrSQzqVyw9HYjIAJvoG MSGYbB7ZzmRWoZujBgyv4Tt9qTJaj3eJPgfwXIhMUnZXdE2UTXwn7wAZBGfGjks9WJQCnIkB+Z/x 4j8mP89WYa4uUo4FUJPL8v88b/hPCxd1z3oXFdFuWNwnx22/6K9mmdlfinLhohRRuVZuEbCzTYpn OR4yxxK64HUHgTQ00OdayYxOcPPmOTgL61qhDk5vd9Pc6HLhgR4j4/Nd3za/Q8yBFStOjCOPPDOG hu6PBx9cE4NDI3HWWZdGY2OFi4JkJtyAdDxmc8oARIokQ+PccOx7j4pjo8IwYVyom6XGIJ5JOXDd U84Py8GwotWmWVl82eockuEOpOVCtlkTOcpkvWbNKGBIS/b/OpxIMRBAyamAnVBZSe2iVAmdc+vr q0Rfqw/KcX46i5q+hfvZ/eW4eA4Ked514FQn4WRmUaF8ZyPhP09mlhNxR9ZvTG7DeqiUF5C0ojlf jBN0kan7EbD4nkENrpBc7dla7YKXAwAMsi6JhafeT4dcfQkBGMU+LYEm8qM8uVsdftlk1OFkMVAR 1+sFN0Vnyud+3UGokwHmY+MbveK/bVJcNL98GZ+5xwVMzuOP3RcN0RjLl58SzS0VDlgJx37UWKGz tgfSIg4KnFm3Z9QK4EpdPPtRCSozIa55sWHKOY7qcJdDPvhsmI4OhtkXC8om+RynZcPVZ3lUumfg Kf/Lih9ORPvZ+dEnwbW4sNS9QP7monBC65/kCcn6RbHwM/h5kjTXMgHZyfkdnQXgxA5K+bD1LGKV /5QBKBhGBWAxHtyjyMhndV18536V3BoMFJfkICWBRCCWU8yio/Mj50x3kzOXFu3gXsU1y7UNPr/6 JHI5DdoOt+ihEnKz+mvpEOviFCDpD74blK6VUcDyoA3qSr9DHsaqq4Ztoyw2kqZxcGENyKlqKXVj Z51UFPuz4qSTL4hXXn4snnzygXLfscedFq2tlXAux0Udske6uXkgBlKv7OzKmpNLdY2aRgeS+9dC bVlIRBpHpozjKFTtVJgDanUGVAxUIezkyhH7ijP6aAlwDBCsJawrx19zH6b+w8kymEkg1pPd/mXx aKHT0uPiySZ2/YyYwIAJEykHXLvbcq9KcicUwISyX87W9CcsCCYzkxtFPWDKhGVBcU1ONAjlGDs3 KcdaDouXE1rxRM7EUByBVI5Mh03KEszkRBBLIDkYFh4AI5i68OEMFPsoAzGHZ9C/XE9bfSaLTuU0 YGJ9+J6PprdOPFcRKsfO5vxbAIwiJs8DsKiXLhnUnzpxPQaBjo6OCZcROL7sICvH42akv9aJK86O wcE18eyzFQX58qNXRUtLhTNzbEyjTV/4DPpKZsJMGTqBZ5FckPYMSblIM2ZY95yccEoEP7MTmzWR z+5COqzxnf9V+HENE4L/+Iwlyiyd/C5CqzSmEyiPz7DM7OzeJ/dxKJAcwO7IgXXBAtImmMuWVV6e zsykMkZRHZX9pteyie3kROQEBIVq0j2B8SLMKCdeBKjQ0aiIBcSoZw5dyZM6c4AuBIErK6R1opRr oW6Z+7Z9Wddl21wo9IMZRwU7ypSjggAl5pGZLBQ5BSAV6tZNF4JsUJKryoeAZCucQKJYldNZV3PI cIIeiGF9HV82LOM0d447xOpTl4Gb+uqrSBk4ffJ9+dGrY2jogXjmmYdLEsDjjz8jGhsr/oxcpzVT HV3Oq2YKHoHX2EeBift03FXH7FjovlGdlvugAxYdRpYCOB+cwzjWh0FH2UaneQQ4OhFkbCb/Pffc U/wzQPdbbrml7A5r164tPiC/9Vu/VeRpBgOlH+BExyFTY0qlA9mN6Lhf/vKXJfMBAz7VQSuLaHKO cjlQNtfrAU3/0T+f+tSnJiyDOW2L4oYTIzthavlS2avo4H9ywPkgislIvZmiPvfr+Oj5knjJA5ou IBevG4+B7IKPIny2XMkh2jfW15xfKpipr2EhOQxGcGPRZA6vOiwlW62dm7kPBCEWIKT1zv+yW4Ll c7/A5cYgacnMnuVwSbyoM3NcT3LFK0U+jRaKrn3pGDefm1UF6tgYH9cUTMSpp14Yjz56Vzz99EMl s8OKFWfHzJnvxE4C3owRz4dhMKQJ0tgjaDnGfNaCyr2CuowGHCxt9Mi5WoTW7Tdg6dxHRakQHUBQ LZ1Nh9F5LA4AiEnP4DBBcP4EdLgffyCuhXW88cYbS1ns1rLzKpjpREBQXy/KxMVBR8icPncqujlo goYz1MAg9yP3Canj4BqUrrQHJTjtBxzYEdkcuF93BhaXorVcjZOfe7QAqfNwcebUJ3lR5zAcuQZD XQBcxshjrxjTnN/L53o/91I/FprcgFyxC566m0/NBW55OVVMdYoZAQQyrIR6Yd10AcmxKaK4qIxh 9PnZMERfMb/kZrIyOTvvqq6wbhl8NUhYf11K2IBZzHKL9hPtAGh4N0ZT5bjt3Lp1a9EFAgLMJTZq 82epdrF9Whcr5yQujNPPuCQefuj2eOrJ+4PlsXr1h2PbtpnlWjZGN7d8wo0hWrZTlY2B8YIWjATf PYtRHSn/ETmBJDQlrIRUjIkIp/PXf/3XZRLAQTm4oDWDoAIWDouBwo8KYhAAJ37DXE72ACY/PhtO CoBMZGe3oGwGjd+++tWvFgsWHc4urwzvZJlq5GDmiUyfEZTs4mCh0F9MnPvvv78sOPyoAC/6Kuet kusSpP0O5bQz9JeKZ2Pf6GeV6LluTkp1iVAWw5icKLSNkeMew3wqgbnvWDEFGBaa+a2y86XgZBtU tGsddLdWRDNOT4ugFsLM1WjBM4AbAEO/JpAIStQJIKW+PktgkGPKweTqu/RWz2EttkGXkqyL023D eQs3oz6I//Wwp76spexiInB7f/947jC5OcU3dZaChI6fgBlrg88LFiyMs8/+aDz51D3x8MNrSl6H 4eHzY9OmrWWeKWZi3JKso3PCOaeynd/Rs+HCAgjzmfbQN+edd17pX52+p4RIaKjHRz7ykYmdSnBx ANktMHdbYZWjLjzjnSjr6quvfpdC08lRHUVOpwBuTDYWy/e///34vd/7vQJ06m1qdbRQrciFkq1f DqB+P6SnAfCZdIAJC80gYbgw+hawyC4N2Q9HnyQV79wDd8aEYTemvBy+ksFKV4hqRbgAkeshGCrW ZTeKrJvSNUHOw3EVaNyJXZAaaXie+hjj7aoXjC4btMVFDOkQav0AiJzFU3Dk5aGtpqvRmIHim35T 9ypnD6Ag5mQ9j7oqA7r5rJ+cym/qRDn4XgEm1MtAYTYOyjSsivqxjlRUs+it26ZNmyY8yeUyde1R F+fYa9gyAJt6cYTYrNmzY3BgIO655+Z4++1N8eY6gKeSSJL7qDNzhWdRV3VQGsLcOAR51itMBdfS DtU3jAntZgNWXJ8SIiEVQ5TD7wWP6I9+9KMTx/pous3OgZDim0pkXjSOsBuBT31NPknY+13oBATi 1AkAACAASURBVGkySExIJpjxbDkl71SizFq7sPWDYgGwUMiB7WJnQgM2tC2z+9xvhD+AzUv3D9ly J4gZTCmDz8RjVsd2ZREwp04x0DqHc+gPx3/UT44gO6saDCuAGhbEf3mhC3LezyJgoZjXn/K5x5AU rtM1gXqYHE+xSTFTiyf/sxANOs5tcVPznmzNNFxHXRHP15XBYGadQhWPzHJgHVn4xmiaYkf/Li3e vEw6yDMdR/6HEVDXmA/IaBlXsNsHrguDnLkOEOFZcu3Ou8q8aI3jjj83Rkaa4oknn4+GBjbHrtLX qHPcoOwT5gzlecisQeNap+UWkXDgWgFlvhuj+YUvfGHCrWZKiITqRxDPqKTinzFW1ZYxA2TdvbNP jWju5FThBynmqeST1fzQhz5U9GA//OEPy+98ph6WnR1Yp4JuS4WxC5QJCMgzYRl8RFyAiwmvLkqH T1l/fWCyuMDEYuGwO5pdk75iPIzfoywUsei1uCbrsiCBMB8Vple1C4Tf4NSoH9yBIoN6IUVQibJZ iIptiD5mKVVMy6IjO7LWJtrKpM+LlucKSJrbdc+w/rx7qpBKf4Hb55nsUP1Wnh9yDpQBh0a75Sw8 YUeLmoAnkJoqSRGVfmeuUgdIXzQzYihqOr/lALmOjR8AyM6ec8e5bvpBcdKwrWq9Gtyj7VN0rPjI LYmBgdHo7cPPbH20teG60lX633z31MkDORT7vT8f8oG+0NAh5h5Aj56OeqtrhkMlgd/+qmn2G7Co EIvrW9/6VuFujCfL+gQ728nPwGmy1jSsZckdz0kAeZ8TlpdKZuRtOpUy4O6wRAKgdJwm72ql7cEk WXiBihc7FsGkcJdMPAYbERpOi8/uyPr7cK87uec4Ui7gYcpiTf1ySfzGf5Rj6I35xTL35DjlZwqa OrKazymniMke63p+q4vSm5vnmNkz67i4xzMVvVf9mH3m+AlcWtT0ARK4aTf6FOefSQnl3GiTOZwA Dd02EL8yl+Xz5AI95cZNxv6X++d33Rd0NUHvyMZgDKzKe56nt7/t4T0f2yZn6qnbulbsGAd8dVmQ KhjVKowXnJkuKzIPSh3vcLOIrp0RY8Oxfv0DsX7dQ7F8+adKnq2dOysWR5MaKvIqMWkppL70J89l LjrP5Mx0wPXItSkhEtJ5d95550TiLtFdb1oH3R1TmTp7CMtOy3Vl/x11HnIXdALijYdT8Hw6FnaW zsM1gutU/qvbcBIcTC5Lqyo7nxwLAysIAwBMBnYn+gN/J1MvC9ZyP5TF5FUsYBEg7mHYYMK6Szvx 5KgANndAOa2cdwnK4hEk6284iyKPLgEuuswluJBMA1QNhJbvwtd1wIXHb3AY6j8oyyR4vpw7lGfW CPpEMdHMHi5uHS6pE86giJ4CCFxA1nvmKA0tYx62kQ0cKtkFd+PqWLhws4yr7aa/4Kz4T/eMbKnl WurO5qvhwLZOG3eZ0OveZ9JvMAtsRK4b+9AcV9QdMpyNctnY4Yaam5fFhg0tcdddvyj3nXnWxwuA K8nIHNjuHIRNXczY6lxzc9LKSVt5zpRxHKVDZBezQ58gIxpn5auyvywmpIk5T0ZfkD4msr4utBzN T5lY3Og0OonOchD1ZTnQ5A7NYjf8AbIusNQsft6pJ8YEFyKLCJbaTAQ5YoBF5wJS0a45XDHSSQQQ yrUCVopj6mhygLL95IYhqFAmi1wfLFOvZDY/W5Myx6YlLlvcBF69vrnOTAn6lmmA0YlV7/2cBcK5 Qr2ylY02ysm4EbKos1e2RgZ1bIp2ENd5jH3Wd6mo1+HWxeuhr7SlkhG0kuyOelEHQID5mFPEONfp J6zARjEIOEgKbhBtbW0TOi3DqSA3Pjd0xWCznwBmKsOZZwahK8K1tiJmzomBndvj7jU3A9Vx9jlX xZw5Cya4SSirceSgs2sKRNuY4xD9RT+g2+a+WoDWfgOWSHr55ZdPOBdmi54TT+uRu4kN5bs7k6Dm ZHQx6HfjIMq58b+LgmcwuVj0+H3QWeiCCC2BoxA4rd+BID2HzeOVdXHVSmbTATO5jMzXtA+XJTep jsbdzzHI7gQ8zzMRTQDoYR9MIBYFnIdeyyxiRRLFNxeNi4m2mDLXhQn3Y8yc4JH9v1RK6w1PvWgb 80X9EQvNEBo+A4hZXBZItGpmT3lBmrrRDha8Oz33wfHndDoucLkO+9cFZ7mOHf+pJFehbzxiFr/U tarL0wMckHBTlutyjNwIBHTemSMCFgp6RHavNxvpxo0bJzYzjRcqwgVPQVyOVF8sYyKtI6ockxwO DLTE8ceTGHO0HCFGknhyxvf2VgBLJkPnZ8fXcaCNBkNDulg4r82nNSVEQiYivjmwsVl8y/5Bys7u 2ioa8w6e9Q4CnrtrniDZBO5JLIb/sLDZVZm8clqXXnrpRDbTLIq+X+SgMnhOQie0Cl/aJVvPwmcX YgdiAgnuin8MeOZWbIMWMi1vxqbBkak4B1iYSPY13BX9o25DnRa7ognrNF3bx44NYjgcDODBZPf8 P8UvdRxyLO76nghDGQJcXvxa+3QuVaEO0Ga9mIvBZ2Zjiu4vAhTAT7/mw3ydQ3IskFxJVkdAtEdR SIspgMF4Mm7UxeO5HC8P0KW9tINr7T/dSSzLDdd5yH1aFDUmmDkBkoNpSSftOO5aAV1rWVeljg3w ZDOnn9mssJyaKVYOsm367JL0b926J+Oxx34do2OjsWgROazeMcAI3lpLnX+OhXOS/5lTiNz6ZdWC alKK4gIJ50k0Z/CmO1pOuAb5WVnbEAz9RgS4DFg5bMIOzruJ8jyOa+oKGHB2JLgC/EJctC54SJGg FuiffZYEKhebbTHwVm6S/9hJtWopZgjiZr8k9AngQhGvNY2FQbkAkv482YKoCO3OaE5v05K48HWD 0PcpK8f1dGZ3ZvJpGWPSe0KMFj59w4yJEwjg9qir4CUHlTchOBKewbu6Ng+WgNSNuJk5HygLMNTM rnOsnvRyqtni6aZH2SYwFOjUu/Guv1MGPOeJp14L8HJJip0qxiHaoeVWgDLrgz5k+o2Z18ysB9RN vSfkJieXJffkOnCs1aVRX8YNhoJ3ruEe5ooAl52EFy0+OhYtXhT3/vrn8cTjv4mdOwZiyVLO2pwz kZlCA4dcq9yVOdNUCyg20k+G50wJkZABwXH0P/7jP0pHU3kGZzJfKMU7WXA9ZnPKCydj9gaXvM9r XPSCowud3Rnw/NWvflVOhgHllaFV3MsF1gL9FQPMXpmVlFpO5RoVgYwFY2JhIHBB5UnE5DC/kv9B LAqdOWmr/9MPLA7jwPKpxSqcBQuBmjpoQbTevJvfiRdiKZwb9wGwGlgU5bOyN7sWQIK24hzlwa3I keigKIdnQkHrzqJ1QWezvUYHLJ7s5o4l98vxZQ7duaMOiXc3CS2dukZ4jzqcrM/jOhPv6f5gskE4 e4OuBQ36izHS0CA46PrAvOE+9XRyTvxu5lfnwsZx3Vg2Dmhhhdw8IK4DpDBCwR3r0Mo7IqdpdxwX 9XLDw81xyqqL4qGHbonnn3+0tHvZUatj1ixcJCp+XnJmBotXg7mRKITgcR1jMiVEQuVUEBRA0IKR j4nKmRjtbGXsHIgq26vTYwav6mfmBG+KeHkRcj+DrwcuA6dfDddUJxl8L+TEYIBYOHIoAotgLccj Z6lzn9yMdc4cgGUz0FgIAV93fv1xBAH9bDQhC1j2oXVlXAxbySBvHRQr+U57AChDW7J7hRYuyQ1E ADOHu7u+31n4ABWLV5ELMQXA0b+L/+CSdabUqqxhwb6hn9i5qRfjmy2ltEHRRf2UukvdINSd6qOV DUD2DfPH+EZFMRxz8+bknGWxUwfaIzdGXegrXT8U5fKxbLyzIelRzjPN5kkdGQf1ez09PROWwHwa tRy8pN8UFkqASu6TvseIA0PBenXdcL+6LJ81c+b8OPHE8+KJJ+6KF198vPRLRfxc8K5+Y9540g9z gzH1jEo2NfqAemfH3YOuw6LT4GRQdlMxHf/yNQKDrHgGJ61SchwOggu+GrSYKDyDl+k6ZOmzwpHf 0WnRkbDEDz74YDk2W85P4NhX0gWBejAZmaTsfOrRshI8K3PVsyjyZCVp1u/ZX9mNIYenmI6Ecnke k01zs0nnsvVV0tIE5ah6n2+d+E39Br/LScgNyiko1mcLmiloXJzZBM9v5pUHaPCXwg2Be9Tn6B+V OSOjHuwT5xx6IhaHfULd4DTlpux7N0BFXZ7leYNykW4sZjzwWsuy7W6KGAfUb8mNAi76SnEdYikv 5xlj7ylAbuTMG+eOoUhsstnpmc/Udd24USFzkvRljtn0WYhnzHfGjrqbXACVAmNrah1e9Bn9zgYg 911xvUEFcUE8+cSawmk1NzfFyadcGIsWHRVNTRXRXB86xoM6qqYwSJ/noJ/F3aYWZxPWLFuDi1NT ZvaKlQXWaqjowGdPWtGLG8q7ovc5UR1YBg/vYb5TBsDEIjY+LgOFJn1EQ0DVc+5KB+ylOOiE05UA R08Ak0FAXDLDApPcPENMJiaxu6vhHCxI8zPRJrkvJ3SO1YJ1Z8DxMWMCI25QNm1jouFgahiM1hvH pXpyyFFB6pEkJ7xjxn/0pQtEC28+rVllvDu83LLcnXnVdWdggbFwWOwcXEGdze+kgYA+0YdM65qi oqImfWjupZxt07xhjoU6tOx64YZCHdho+B+ujleWBpQcmJuKYTohA0JuWtTJDKBaMs1UYuJAXi5q AdQ0zGbQpd3oBQ30z2mJmd/Udec4F2MyQjlV9XQCPPMFB2r63vQ5ZkygTJX5WvWou2OQregVC/OR sWLl+bH2qV/H02sfKC4QnZ0cmDqrAJySAs9iTVImfoC0wX7D+GEyxCkRmqOnNXms9Jtx13OSySbL 0oviRIlzVHq2NKiQVuxTnBAQ6WCIAeAEYw4avfLKK0u2B3ZwRRZdIVhk7Cx06u23317OO9T7eU++ WVqgjKQHpJhk5PzS85vf9dzXm5mJq8KcZxhL5QCyA2aFr853TkrP7GNS0s4s3skV+kydNwX1bNBw 8smVKGpAud15sygTY1whrbnd/GROUnVe+nEppmcLFYBCOzWv0yb6DodV54xWZcCXxSpQW1e5CeYV 96oDVOdlcD3306/Z5SHXRbEnZ1rlGn21PH/RjVMuyXvUNcnl8jyuhUNUIc7YURc2TjgM7qVc7jcl j2dxCnIqrymTe7jXVEMeV+aRYzPHz4AEFLjODUdLHWWp8Nehk7mFGMj8p26MI0CrAzHl8Ty4XUQ4 T/DOkg2g1bByWjz9zD3xyCN3R0MDua0qmX5N9cz9zAnaoCjrXJI7rQXVRIdFZbAMumi0/vhu1Lap YZ0sZsTUJJwtMvrYQCpgFVdk/yEWBWBFPizKwuOeyYT/lYphnu8pJepKPvOZz0w4IGqariYd7OBy sDRSP3YP2soOTT3ZudATsLvosEkbmGjcm4Nk6QMmCWVpNbN9cimG7bDbMviK1yalY+Ew8VzYRuqz CHjJoVB3Qz00NHjMuCeb2MdyVVlH5Hc5F5X6WiLNmMHCcXPRSqa+ybZTHn1G3QAwdl5dGmiLC1Ud CiTnACDKnZrJlA2CvpWbogzqWJ0mR0U4390YKFOxRdcNF78g7+aYDSMqwhlDT1+mTrqPQNSDcfMg CP6n/p62rXc545R1agC53u852wJlo4dibqlzmz9//sSZjrRFjpDf0NPSN85HgBgnZMHVjddNhM+s EzYK6kXKa+azHLzSUFFBLDgyZs6cEc89e088/NAdMToyEqedcWXMnNlVnsm8IGWUDqomLeAZ+EN6 +vhBFwm1kpD7Ju9OGf115NP8m/VVsNdYMehY2XgnU87748Kjo9khGBD8vpggiBdkiyAIms5Cdud/ Op/FwHOIJOczuhPzOTFQcgVZbJBLYSDobCYdnU15mtevuuqqsosxgXgxUNSPuqkAVhkuh2V2BUEc bpDJqmjrImFCwwnSDiYbdeSobyctbeZ6Fp4HdqobdKdlAlIXyld5rEe5OsLshKvRQhK4KBPOxTxl 9CHXKQK5MVEuoKA6IB+zRZ3Y4fkPzkKgoP/ZVLJ/UvaMd0OjDloJFctz7ifaqI4vm/MFLU/qof/Z AAABnGC51oNibbNAIqAaYJ51nrwjorEBcg31Zw6QA1/nTh00qQdtZoNjjigCG1JDvegHY0q1uOYE gLRPtUvbODhmp2HG19Q2iqtyNVqoIe5XXaKjtZsVOibaDcdovKVctP0wY8aREQ1jMTwyEPc/cGtJ t7zypMvKGgGsAHJdQeS8qAcS1JQJzWFC4aBJPqpvf/vb7wolkFTMZpO0ik0aCoDccccdZfIwOP6X zcyKHQDR9ddfXzgpnRPlMr7zne+UdMkAGR2tuZtyDeJkwdGxf/iHfxj/9E//VOrrzu1zmQwMAjsV i/WTn/zkxGBrEfOEY57N4AJokPoeE8QZOsPzmcjqoVSYG0rD7ghbzb2UBQgBVl/5ylcmTNzsgAbh UjYLgP7wWSwc7qWutB3AoHz0e3qmK2ZqeoayLsvxUnyRazR7guNqbJ3+ZbzoB5XUnu2XHQ31rBdU 9HrPO7n+aPabC9SNhQ0n+x3Rrmwy95BSn0e/6UBKnRgD+g2wUcENB81z2Qi0Mro5avGW45Or01dK 1YMRCoA1z7Hf5NBNeKi/oJlamUfcY9m2necZTMw9AErXeAZf+0kOUBA1V5ahQ6bCzocUG8bGM7Re ugGwbpgT5vwClD0R29x0bW3dsWLlJaV/br/9Z/Haa6/G2ed8uqwpuXrrZxyiLieeCnRQAYvKwXmQ WkYnthyLJthAcgG6FSiSsHvTIQAEneuxRy7+7FfCwmRxszi4/hvf+Ea5l879u7/7u4nDEBQxUECi 50I57U7GAiadC8AHGBldzgSgTACYZ+MbxX+a47P5X7E1h3Po8a0YxMRXdJMLUTyjjwRKFgr+KixG ygBQ3G21erEw9a7WAskiMH2I59fxnQVCWaakgTtjITKp4C7QadBPikz6wLnoDRkybEULEH3BwuR6 RVStWAa2a2ljEZi9gHnBuLF7Z5O/z5f0B2ORsaDkegU06mC2CC2OjLVjR98ZP6nvlOcDwlnxLPoF 0GI8AQFDt6wf48/vlGvK5XzMu2Kq+jT7hHdFRblww3MYJ35XsQ9IMQaZC1EUti2uH0GddkwbV667 ntRLZl0gc5z25ASGBqdrFc2+jG48AjFz1PWrAzRlma+/UiZK/1NK0r8Xnn8sFi1aGMuP/nCxIlI+ fUeZgBWbrOlnyKxy0EVCd1MzDmRXBXcBOzRb7zKQMdEAFKxtiIdMGNA4Z650MAEigOSGG24oh1gw mNzPBLj22mvLQqbTdB7FuobISO53FqmiJ50HR8bCsSNZzExGrTCUg2WRifj1r399YifP/lXuJn5W rMk6EPspW+LkVHJZ6LZYJLQdPYj6OpXGgpy6JrkUWXA9qrnGnVsA8ZBM7gWQWeyIQnKeTFRdQ1ho Wq4g7mfXRexnB1UH4rgIqNSBZ7LoeR51oFzGRp0e92lF00qqclxRFnKDgHSwNOZSR085H8W/7L7g NQCYhg/qZBJD/qMOWj+pP9dRJuDPtcwtAADSq59rPJWH58jNaChyPD1VSA7M8WNz8oxB9VWQfWB4 U7YYuw5GUy557/OdDUTxT6dWjSaZeXDOuKHK8clIUI7zjLnE8xlv2qwPWnHn6VocS484oozTfffd CnzGihWXxdy588o8BPyZCxDr1aSU+0v7DVh0CKIMIiGDCSAAONk5UdCq7vRMdBLiDB0AB6V+q5r0 slVMciAY3Ntuu634WfEsJ6aKVDMpIkp6KjCTEdHPA0JRDAOcTib+Y4cBQDi5BnGTSeBEzaFEvrJ+ KBsQMujqCJmv01xvsKssvPepBLcfaa/sv86zgKycHM6mXMMLIGY8jI0TABUXjGE0KZzP1REWjk09 l6KhY6+DpZ70evGbEUFXBRZw9vGy/yDFLUV7HWwFeL3h9SCnrQY2K8qrM6RsE+zpTiGXjq6QhWQ4 k31t3KfAa1tZqIw/v7N41YPpmsB1Zl9grmV/Mk9nBhwgEysaK+oYaKjI/mIG6+uekbn2xvHNSk7O EB/1bPSz2VrdeHjXdw4OlTZRDzYS+pF+5TrDriBjPjU46OCq2FqJD2yMJUvPKHW//77boqGhMc49 71MTWUPk4tHfeWLSQeewqBxsNUDhruiO5wJzcPIu6HsmA33Z4ejkHPNnZ3M8GMpoBt8Fn0VPuTj1 DAw+Zcp2sziZtPipcB3iIeAGtwbHYaIxOliOhJ0F7oeFb54iF4GhGzq8upgz0Ji61knHterLFKfo R8p2ouhDRPtyue6+KvThSHiv9kFSl2g6EtrAZGbyaAFiQeaTevkMYLNRaPL2RB4NFHp3ZwBVL6Lu wzbq3sFidsKax1xxS/FaE7/zROsexE6NKOdGpxuCm2L2HaNMdYfVzsd81gteUUt9DnU0ZMd5pL8e 1+sAS13Y4OR+1MsKutadsqkHY5XFSzminDIGck0IGuq7fOWMCdPGgY6y1JWZ4gkH7uy9rnXUMCPP GYQM4tZ44Zg6zxTn2QhZL3Jt9JP9wzWAFu18+KE7o6mZ3G0fj9HRyqZl5l+zhew33uxvAXQmHUWH wPq5w6jbyY5o2UcmO+llyulyMxcmF2JGBy15TDQmIR2IyEInshOwQPUydhKyiIyd4l4WDkAlJ6VO jWsRCSiHshkwFhQnA8k9ukiqLWv2id+zXsj/skXSCcNkQlRjYesQ6uGlOT9UGbQkYsgB5GwUOQ8Z dYBD9PxAgsDlWABuYxU97Zh+QSHN9Z7mbGZXnieHlWPuzHXFWABYOseaBA4OTedWOVTIiU+ZOYha kUfxVJ2ROaVUPssNqINTyW6MqgYAynTB8Z0y4KZzXVz8GlYEcJ16fU5WY8iZ6RQpZ8Zv5j+X83Xe +/J7DkETOACSnLFEbq4pBZnLTSpdMA/YyPNBqljGTQEtkBvqY1sUbblPrpiXHJv/6S5jgkFPXqqo QODqj4tFiweLy8O0EkS9qrRRq/aUcRzVMdSofwcCUszJlj4XqnqsyUiQy/FRmsc9Dt3MA//6r/9a cnFRHs6cLiAj0iFFA5WWTCh0OHCF6IpwUQCgAAszMiIyMsHpbBaBSfUYML3ZbWsGBxXPTuDqTAbq wOyHzCFo3mdHNjxF3UgODPdwAvrXoFoWNBNSnYc7uf5S6rVoj9YjPsOh0XYmMv1F+Yj4PBfA1y0D Dsu6qHBXrHXi257smpBPV4bg/AQbHYIdH0Fdi2HWTbFguNZc8j5HnRZkfJ7cr/dyn7mpKNf8TGa5 zX5D6nx4N4zH4GPKM6UO/eaYZZGeutC3mbPXNcI5ISfjPJBbUgrgN6MdvMeNcSyla9K3i7UA98z8 NVSHDc9zAQQbc9ProsEc0xFXLs45Z0yh42oMKc+AS1e5r9tDf//iUl5/38/j2WfvjeHhwVi0eHXs 2DFaNixdJw66SEhnspvINSgK6kdiBbMM7gTfFWCZNjaHj8hR8BzTdjj53OGZlHAN+MM4GXNsoaBF x3OSMiIg9YEz+/GPf1y87l1MDDR6LyygXMNz4FBIofOJT3yiPI9Bq8646eRyZ/ezEw/K7c7Oo4pK AIle8y4y3SpcvHJ/gBDtYwGZzkNFL98Nw6AO2TzP5ALUASXa4SGsHtIJAGompz5YuvIxYZrsXayK NypmFTEMfOY3xQuP7tL6plI4uysIEGbWNI2xmRGy9VhjRw5nUU2gM65WV33RKI/7zEGlBdfoCgFC cVVjAXMzi5kmWzRVjO1w7lYHbPvuxgZZtvVWDVLdlrFxsFK0ZOPwxCQ2WNedJy/RJrlm1CwGWHM/ Y+lR92x0zhHXZz7Iw/ETZAVz5iv10crI78uPPjvWr3sgXn3lkZhWdIUnlOdkf7CDLhLSGaJ09po2 f47g40TMSurJFi/gACpr+cj/O4l11gN43FXgmNhJ3J3yYpD7ofNZpDxD0vcJE6xBrSxMdEpyjdwL iPGdiYmj6mc/+9kJs7oTKXNccgDq2XQTUDdmudYRwEUsQYTL/k1acLiXOhjCQ51NdWLe85w+GMoc ELuxgdQCrafXyDG5IOG6zH9F+fSLFlRByxNycrA59Xdyyjll7ipbSlXQ+1vmSPXe19mS5zFuimIm IFQHmK1h2XFX52NFRa2Z1XPOueV8lOMzUFmuz2sFIj7r85VFU3VPAm/WyTk3BEYBSsV/ToVj3yl1 tI5vRpRH3QAhdKv0JcCAPpmN1ThGLZtwRqoUtJDm+jpPACoTJZq9g+eoj9NdiLnEPOQeozOo14KF x8TQ8M5Y/+bD8cZrj0YDm0370qmjw2LQ9A+qjuGCXHBZ0e5geDy5k8QJq1VCb17JsuS65BYcCDgi Y/xUGmrlUMHtZDOXj1wg+iK4CA8NgEtTpCwd1dQ0kWUTHQ8WJ/xLDEZmsjhxqxehVkHbk0HKdqtQ VYfndQK+VhzugZtSfPR3yjC3kyAhtwLIuWi41xg6RQ4teXw3tTCTnPsQNQBQxUe9uM1pRdu1EgoQ GhgMoeF3rlPnop4kL1z7WO5LbkkAhuTaBClBOVtjBUnnm86fAquin3M3i455XAQ3YwrVIWY3E3Wq cviKR4pcmUOyfj7TuruBaMzIbh45UUAGxuHx3wEKmAXWEOMJp0ycrG01IsGoB10YmKuMhQ62tk/9 pJyVoXb8ZlYLpBLPTSBawA1PfVbFj3J5DOzcEb3bnoxnn7k3+rfPijNHG6dGtgY6EPOoubT1JXFH ERDyZHAimVPISScnQTnsHExeY+7oOH156CCtZSY+k6uhY40Sd9B0hnNSmJE0Bz67wBEpza1e3bkC KnVgJ0NZzzPRg6Hg5B4nVb7XnZh3j9yCXECCqCfEOIm0VnGf+ak8xVg/sWrSXYE+EJAFN7k7+oFy 5IgZPw+BkBS15UgpA72fqX2w2sFx8buhQepx5ID5zvghJnrgqgueOmoIUczIbh7qh3gp1mhOFgAA IABJREFUsgBYbjbOqWprWtbvaE3VuKOXuIfW+txsLMkbroBEP6qkzuChPlQXAs9/lMN3fLJqRDEV 0vXCumeHTfvATcz5uW3ctYOxMR+/+k4AwTaZXECdozo0HV01OOTN0Lmpf5xA7piZ+kenWTZuM8/m BAflZPGu5TE6Crf2aGzZ+lL09q0veq2WlspmcVD9sPTkZeLbOAFKbiEr3JX5jbDPHA/vcDl0igtX okMNKWCCyMZaj+xvIvvsARB0omlLdAy1bhLAQ5gQ5bPIJiPqg36A59x9990TCx3ODhGSPqgOddEs Tj0AObg5g2gR66gjEwaRlAnBJDB7gNwi3Ao6NkQzRFF+MzCY57tb8h2lOYCCy4agzTXqo8y3zTVu CJq9BUk5ICY3z2E3xTgBmQSO+9m5GX994riPviWPvpktFOMMPuY5bAwG88p5uEh1SXFB8RmFrX0J yWG5MdIOQBoR3QDtvFFwHW3hHrhj2glHwn+mORZI3OTw2WMc5NAFFrkejRe8GFs2La3fRggonuo6 omuF4ruAp+TA/WYAEeRtY//4cffMTwGJ56jLZI6b4kUOUF8suVctobp9UAc3L8U/N0k/Z7WCIKsr haFEbhb+19XVHb29i2Nw6MUYGdkYfb2vxZYt62L+/KP2i8uqWT4sFa+ZM8iyvNdCApdik8ChUpNJ Agejk52BnSw2rB8sasJtGBgV51LWo0HGkFE/jQOmp8nkDkrnm2dpMqJc6kU9mKACwfe+970Jx0vq lbk3JjSAxnWADoDHIgccWUQAn4HU+lOp96I+ADhOsRDtANiIj8SDn0nmEWEqWfEZU8Thszou2HhA hwVrUj4mK9fQh3rGs4kARowhdcJcTt2pN8/h2YADZdCn2VrFQqO9iNRyMgADQEvbuBawMrsF7WGx yUFzLe+AHboYnuFCx1+OxUpbqDf3Q4qqHodm39MG5oc6P54pKLhhGJXBf/p28ZmNhJxn1Nn8Xx4g m6UBNyI+o/imvbpP6CArCMsd5XntmjBYWW6Qa+lTx1UVSkNDQ9noBSfboNOr8a3cT3mMh3pIuUV1 lGatUBqhD+kzXF/cQOgnruc5npZkxgfajpokc5LZmrlx45Z49jnGcktMm/Z4rDzpiejqWhLNze/e 0A8oYFFBfHSYhHQOHZZFv6zQc+DMyAA5gfQ65j4GnF0ajkfuS1Ovyj8GhP+rKYs1TgSzc2rdmewU Wn264B7wzVLZPhnZBstjQn3xi18s7ReEAFzbxsSAsyLN8Z/92Z9N5CgifpBFwgQALHguv2ewBdhg vQELXnBPTloWlSKZeinFJhaFqV/oJ0NTEAlcUDxLq5tirFyJyQB1OiR9D21mATFJqa9mdPU4gINu DDpvqiDnPj2gAS/AyFQxioHUzw2ANjMHAAj6l/IAbv2n0K2ZPoiyaQciK5/NXsAmoXMjQKhPF2Xw PHyzuJ8+AcT13bv11ltL3S2faz1rL+uP6EODe+lLjQP0H3WlP8y2kcO1PG1HYwD9T1uZJ2webMy0 wTMa9RHcOZ4dw4N4dTUwDQ2GKrjv//7v/y7tZkOlPL3uc1wnDtjMcV0bWE9aSDU8MaYAmIfU0m4z Msi9wTjQRq2wkGueubdkybJYtmxxLF3SEaOjcMzDBxewaOTNN99czP34Q2kJ0nkvc1laJFSEu/Dd QasV8/6v3M9nj++SNdepbXdspo5yWbysJsqA+yB20JTDk5FKU62Q2VWCQWWwFWfpCyYIE//zn/98 4bzkCpT1IXy8coC1xIRgITFJ/vRP/7T8BucimSECQsycjABBiY0FAvgkDg+ZjEgJIlE/uVZAN0cX ZONBtrQxXhhBID+ryyHEKbt4ZEtu9tOjjy6++OKJ/uKzwKrFN6sb/N3N8JprrinjBEcoiGrO15ih Aj37uqG4BgwARbgm/d60XGZDgcfcq/ehXIDP3Pm2yZAW+8lnmjIGgAIkf/u3f7tYZ3W1cJ6o45ox Y0YBZgCfcnC70X+M+aLiXS9z3WM0jlFXJQHAO/v58Z++iDrvZgOOQemOmZEAjoMqIHWHfK6k3Tk1 Vq9eFTNmkMlh12vwgCnd2RG+9rWvlVQxWoiy31EOCM7hFwadZi9ugc2gXBeBC4bFzyD99Kc/LYHS iGYsyl2BURZJc0zjeyF1NPrNZH8rHeMYoOuuuy7+/M//vCxS+oWJwq5N/1D3ajDcFTfHhL3ooosm Fv7Bomo/MyiL3bk9WTzPn7O+sFp3OBllS3D1b9WfM032TNMVV9Ou6qT+kLnlAnfeZuumHEU2+vB8 FeJaTTOgu/FqgPAAVNrDGmAuwFX7LEjgGxx3OwFAtXQCXNWUXXbgJicjNlg2VwAYoAOMKJvNyVOf siuNhjSlHNqG6oDrqC/1NgMLoOm6UK+bQ+wOOmCB+HIwmRvKHFM+GCAr2fMRX0blKwK6OPIkhDwd BmIXhPWWO3HHyGlLuF+/nT2Ru8Rk16oAz2XJCaqoREdFm2HNc35uWHPOFkRU/PSnP10m0p7Ak3Yi AiIq7Wri1en9oxxWMxllIKqmvXWUNDg6i+MA5e5o2n5supJxo3lDzxxr9o+UwZBb1J9Mi6TcswyB a5n3HD9ZC9rvkliMN910U2kMi1RTuApjlXz6XmVxIjv46ceSrSfVByVAHpYKMHgYBZ/hXnSJyClH 7MC9Aau8C042KbIj50QHjjvx8QKQ0GFRP+rGd10QEE+M3tcMvTti10MvgR5mV9xEnd5/2t04vdf/ dnXdZBzr+0UN6Uiz90I5RGgy7kkOsNZtqYnSndAWrR+KZrK42UlQi6Dgka2GOREeSmIsFuhuVOJL lIsIaqZSFMhci/IPkQwW2R0hpx6pFWVRyO9G1zNI1AFuiLYjHqorIIkeoiuuBvry7I40iQN43FOn Ok0lOpDgWnO3Bk2oGbEV6XL8VI4lzJ6/BmT6n0e36zyKvC3xDHQ7F154YfmMtcM0wfoCIVvnHN+1 kp+rY7okswRgCQQwAS3brEIVRbcR/HtDei4DdpjXs6K8TnX6oFJNHEcxp8JdoWDLlPVQWSZ20Xu/ XvIqLfX/MWthDtqVDeV/LFnch/LQkBHeSV6HXsvQAo+M2hvKMv2uxEXT8FbHllE/6qp+TeJa3Qf2 lrwHBapZOOtUpw861SSBH0C1J9FrMlkd0r8qx5PpeQ3hBwKZGUGQ0AwLp4UXNhwO5mBTrABWiGbq xbKn/e4o5zyqJq052ZeMusIJ4sxpsGjO/w3BgeLkqUV1b4k+MLtBnepUpxqJhOaBzlzU3hILXr+P rO/CARAfJLgLAMJQmqzwNk0KgJkzEsBxGS9oTu69rdvuOCyfqRVUMtsj9UXs0zqoroq6AFRahPaW 4ORoC/2b/anqVKcPKu03YLFw8RhGQY5lDLO9KSj2heRGjM7H0xnOyaRtLF6d86oVfSi2DQXBMucp xeiTjB/bW+WgMVgAkHo1syFAJvjjN7MUwAFhKMAFAcCE4/JwAmPUzK6psyvl7enUaR0ONSPXqU4f dKpJAj+4H0ACBzKPPHovxMI21AHOgoXNotfjdzKFtwQ3RSgC4GkwLOChN3G1OKj7RI7ngkw360kr gCR18h4cEA1YNXcRbabuiKCeaUid8U/jP+MBDcJF56dT4u58VDwOy9Nr6lSnDzrV5Kh6uAnCHwgP 8Ry990IoxxGr0AcBgJSDT5MHgaqLqnYtgPgPzg7Ry/QXhj1kPyaByjPa9MqX4I4ALFM7A4QeSOG5 fwChbhv8z3dTqQCA6N3kBj2dBTGR63B05bmTxUFWkyfWoJ+jf+tUpw861STjqPnAAYt9sYRVZ3xg cSJWEZUPYJiXCiDyOqPxqzkTler5RBU+a13MaV7MNGAq5OwXJSdnQjueI/iggzIy3rzpWgv1sPc5 pm/BxYHYMoKH4f4MQDZ/0O76RKtjLTyb61Snw4Fq5jhqbN2+xuWZ5RAAIYgasdKEcwCOSn1TcuQ4 rGoCAODEqAf3IMoBDPwGN2RaDMCRFBoeQpqJ53vYBe+Kl9SDOphTy6OSzERKuRoPILgyODWzhAI8 hDDw3O9+97slyJrfALPqvPA+04M9dxceUqc6fZCoJkp3lOOAjMc67YnMOwUHYi4o/KYAFzgeODWc P+Ha+I04PFN/eAKJTqc5DgrLIroiwMJDG/jdPE0AAGUSgLwrcOV6xFACNndV9yya6gzL9QIvHBwA 5pmBOWCYen3pS18q9SEgGuufx3AZUuSpPWTAQBxEN1d3HK1TnWro6Z6dQfdEABRAdfvttxcORCsY YAXHwuIEAEyrAdDgY4U4JRDxH2Bp8jC4FDzC8XqnDLzlAVD1QHBVKLr3dD5aPtBgMtoVIHvoBgr3 NWvWlLoCjJ7iK/EZzpF2q/u64YYbiv5PfzZEUbgxlPa0p051qlONAAt90tVXX10+702QLgAEF0JO KzMoIvbgDsECNy0ywCQXxMI1syH35hNpFOsoT7cCOBo4F8rHYRPxjlxQ70W/ti/EcwEajAR33HFH 4bA8866a8Nf65je/Wf4no6dJ1uhDXurNzMtdpzrVqQaABYfw/e9/v3ANpE2pDkvJpD4KH6uc9viK K64oYpFOo/m03WqfpMk8v00AiI6JMnj3gEx8sYwt3BvKh5C+F/LEFPrBVMeTkeE86NcAfICcrBfc SyZSQNbUyvQZYF6nOn3QqSahOVjC4HT2tNANaEbnZX5puJGcCllxzLSyLmzvnyz1i+loWPSIimTF hMMyTCYfxLAn2lVqmX0hQA+gRCxE3AOQduXlTp3JNMEL14d8LZsAhzlkr/o61emDTDXLOAoAIY7B GexO8c4CRZGM2R99EotUtwKTgHniTnUK3cmsg/yOghrxC04EDgw3CDgcleMqyC3fHD66Sah7q1Xe KZ4F6HhiMsYAz8Or1o1RJ1we0HWhw6M/7D84RMRc3g0xqlOdPshUk5zu6GvwTP/Yxz5WxJldiYV6 ekOACgCRleByUzm42KBqgat6wasD88gjOJscd5itiL6os4Bl7nmPuKoVIZbCOQJYcE9YQU2pU11/ +gLAJRwI8VUOi7oB7pOd8lOnOn0QqSYiIV7YmN5ZlHviUuRu4MjgKqoV0oJWPrRiMqCS4JgALJ1W qQcgSD2qveJzTKGnnpiuRjB7LwHckxH1BjjRPZnsf1cEKFNv6pFzj9MuT9qtU53qVCO3BsAHNwKA Iotsujx4+rBpY0yJDGDAWcBVZEDKIlw1UJnfSjcKgABdEW4BXE9ZppTx4AtT1ngyLd8twwDknMa5 VpxWzpO1qxhICEDDfUFXDgiOET81vP6pKw6ndarTB51q4jiK1Q8gqHa2ZOHjVoC1jKR6im+ISlr9 5Mg8ThsOQ7EpH6MFAUAAHM9DsQ7nwXcWNGCJKOrRRAKbSQEhD7uwLD973p2e6rsCrN0dOlBNGAGI iSTfPO30eKzJiHrilY9jrN9xlsU4gXhYD82pU51qqHQHgOAGULqzqHnHz4jQFHKZw/V4JBC6HUQl FjQmfQ/1xPMbICLMB+uewcaehOPZaziQUiYAwHPgTDzSW26P+yiXMuFY+F/RUK4MgrsCxHBg5Ty4 fDxSNXngBfUQWHZHgh6KdM9q3BUB0nCItIf0OPQNei/67zOf+UzpjzrVqU41ACw4JHRYP/rRjwqX gHMn3AHAA4h5vhlghOjDtSiR4ajgavAzAszgQjhnEF0UYINlDQU6gEKYi2edsZB5DgdQwMGg+8GT HUChHH4DELFCYj3E5YL7qIvPwRsdgKBcRC6CkrmH51FHdU4ABXWh/nBvv/zlL0t5ewNYgLEHndJW +oF6Vx+qAQHitIP89PQTzyQ9NOAKQBv8Xac6fdCpJull4GIIp2HhAWAAA6IffkSkMGaBax2EQ0HM gSsDIFjM/MZ39DTcl88n1MfK7yjLuQ7uiYWNGAroWY//3969rMhVdmEcr0FuIXOHgiNjVIJGjXhA Rw6TqUowBPoivAKnOhMEcSiCioMkqAMPER2IksQgBMTbkN/7fU/zZrur09210+6qvR4oug77VEX2 P2utdx3+/PPP/TmIiV3ZX3pARrgDmWPYFiSBEyAzqUYpEIsNPLWDcX3KegDnsC2Os8Lp3CDkN2EZ Gmk/lpzqtWx/4ATMtF6u9sil0sTAYomkPIdYFt53k44pN71tYq14fvHixX3XTl1dVgtZQ55zCb0f V04KBfgZA59gfsZz294KXeDgPGnVwk3jJmaYJIixDO0DLgAGhKwk383+YAi+R5Hjm6TLqnLtFgdY Ts7lOw1XVFlS6enlfFxC36GgVSr9T9ONZO30oKD0uoEUCYJn1l/eS02hv0mD6G/ivsNpH4cCnCir bwRQOYZgfQQqrCjQS4O9HJvl5XjXrl1bvfDCC4f6HYDO8UGI9fbmm2+2RYjr1683EALZWDdU59Hy +aCVxVJpiXoowNpFBaI9+I6yL+sPoMCI1fj5558368vq6bpjFqxKpftVwBpoXeIo607gf5PynQBI ZwkWm3QKrimQpQFiVjLTcieJs6VSqYB1n5LyMJaHJeivDcwnn3yy+uCDD471b8dxHefs2bOrCxcu 7DcWfO+991p8jLUFWt5X6uRaLA5MNbm6VNp2lYXVqc+OH4plJRAvX+u4Yi0J/otrpbWMGJZeXdzC jz76qK0q6v9lGIe8rCtXrrSYWuVilUoFrPuUgut1SZ5xzUAlq5JHdddSBhQBlSA+SGYGYQZggJY+ 9xYJLl26VP9eS4vX4i0sq3eZgSj/iiUj7WEoaRRyud5///0We5Iz9corr2zckiYBedZdEk0zHkzK hdSG445NK5V2TYsGFqtGb3mZ7uJGguoy2ZP20AuYQGpvb6/lSXHnNulMOlSfykGBlOLxKc9TKm2z FnknpOZQ5jlgybYHL7EjMaWxBoQ+z0zDF198sb33MIuSHVsJkzInFp/OrKXS0rVIYAU+agqBS52f 9ALJon2y6dg+3MeT6p4gvsWqe9jDM0qlbdGigJX2zGJQaUsjfqSmUQ94q4DrymBYXTLWT3JkvAA8 V3WqpoKl0rbr1JJgJU1A0qbymMxDlLSp5lG+k1iRIDdo2T4TfAI6D3lTJ6W0tDlOdn2ptItaBLBY KEAEVuJWVgMFtQW0WVdazwi269jgM6tz4KRbggC7VjWKloFNJ4WTknhaGguWSqUFAIuVJKguXgVW nvftZ1haymTkYLFogMp7XDFA81obGv23NA1c14FiSmWiNTiKm8nLKpVKOw6s9IzX/0rfK50YWC1W 3biAYCRu5Tm3q59sk1bJHvaRbc4KO4mAO3CCpFIgTQaV7FRP91Jph4GVoa1uep08uXXyq7h4kjLN AtTNU/uYtHjpYdQPb5XQKeXhpFYH084ZRKUzDHvll0pL1U4Ci1UkVYFlJcDOtePmWeXTAFAgXfqC JnoHjRDrEzqnGrJ6GLk2rWf09tLyueYSlko7DCyrgQLpXEABazc+S0nRsTyqL774YvXuu+82q2nO rVuASrB/ygGvpdI269QuBtnFq0yjJlACLKttXDtuIlfLRGadE45TwHxSUiqk/XOV5pRKOwqsxJkk hXIDBcufffbZttIW94/lIjak7CUTl+coUNVOWepFyoFKpSVrnnfqBkrjO/EpwXQ5VWJCQOZ9FtbX X3/dgu7SBkBtrl09WX/cWIM2SqXSDgErM/zEfLiBaZLnpo/V5TU36+rVq22lUDBenpM411jB838t rW4yPq1UKu0IsMBKljoXStpCeqQPrSbBa5nsH374YYtfGaHFVZxrrZ5rNaVHflgNUy2VdgBYgZWa O9aTrgsHBdJtL0XBTMO5N8ZjWXFp+1FkpdKStdXAygh6lgiLKbBaJxATDxLAFuMCujnGrkBVLO6H H35oZUOZkVgqLV1bCywBdFaVwDlQeTwouRMI1BIqgtYmRr6WFcI5uoRpm8zNlU8mLaNUWromAZYb y2rbcIpzv/qWurx20g3TCKQsGPsOVnKsWFdHOab99cRixciIFx+y/1ysLddx+vTp1blz51paxliP +VJpiTo1lbUjt0nSZnKdMlae1WOVDqxAbVNgBVZcQe5dRtO7hnWj3fOez6U4yGu6c+dOS3FwTYLa emDNKR/Lb+b3c70nWRZUKs1ZG9+hIGCijIeb343Gsoqb5bUbLhON84i1lSZ5h+1iAFaa6IEVN9A5 MzE5Vpxz5rW/XmfmIJdQfaG4EOsq1z9Ht1APL7WEvoPVz1Jp6ZrMJQSNwMJzSZuZouxhGyADB1ZS LCLQ4P6MWUYAY3uyPVh56LCg1UusNtaR/W2f87iO7Ou1/b3OPj5nUSnTke80xzysWIPcwlKpNBGw 4gLGegKCAMFnAOXRT1XugTWU91Naw6qyUsbaYB3JsRKzcqzEyRIrs18svFhW/eBSf8FOIz4rhGAl PsT1OqnWMUdREl/n5KqWSv+lTk11YwFLXEEwEdMKxMAJgNoJ/w+xYbyphxlLCJyIu2g1z0qZWBPX yLZAN1ZSc1Dg3H7cyW+//bZ1DgXC9MKaoywqGEMGsHLMSqWla2NgxYJJsiYQeQ5QgBVoxcLKa88D KX9ZUNkG4MSoWD5KbcBQkXIC7LQu5jTW36qPnYFTagv9VaIzR3eQwPmNN94ol7BUmgpYgU2W3sEi s/6ywhU3MbGlwAOgWDkSP4m7FgsMyG7fvt2Ooy2Mz2gYtF/XKyrQ4lZ69IADKXEr1w4Kc8t4z3e0 iqkJoaaDVQBdKk0ArHT3BCzwYRUBABgpLva594BIoTFXkaUkfmQ7r5Wg9BOXgcT4eH8Fnd2sAZxH 4BMADm/0AIullwRMAi4Q+PTTT1dvv/12K3mZY8qAds5g/c0337Tfwe8F2qXS0jVJWgMLC5jAALhY MNw6hcVA1OdBJdUAbAALUGwX8ICUTHTbgJXjZX/bZ6UxrmMy1fsg+7q4VqbhvPrqq+1Y4lhzjF/F tZa2YTW0YFUqTQgs8JBawFoBKM9ZTgFIlBW8yH79Nqwn9XMgpkUMWAUoQBcXMqkTcR2918OQeijm nEDH6nNc1l7SHuYm7qrSId9T51TQkvpRKi1dkwGL5SJ25S9Y+AsgrCAAyzDQACUribGgwMjqHfdw CKvsBzwsquR8xZ07SgDeecTMHCuJo3OTawN+kLI6KBZYKpUmLM3hDmYYKcslk14AxmMYKwIKlpFg OnixrGwjCA5W61buYqUlSfUoSlwLFHvLa64Su9PAj8VVKpUmABZoZAUrtYJAAESAJIeKVZN6QnDq A+QgYmho5v89yJroA+vHuVbAYr2A45wHUCQP6/vvv2+9u8olLJUmcgnjCnqwrhJIFydidYGQ2BGB V2oPTWUGNeU2jz766H7qwjqIJI6V8pt14uqBZzLYQTKrhbEGLQykZGiuAlaBdyuqpVJpQ2DF2gmk smIIFsCSIDiQUeoLWV1AAnReK7VhQRxUgpIYVro/rNvWOX/77bdmtZmY7Nr0ejclR7b8zZs3274p +Zmz/KZa31QMq1SaMNNdjEWuEFCBA4EBuKSLA7dR3hNQAJtAPPAIKvdpDWP5VLG4knx6kBIbS4wr bigwBqRAAKJZXZyjAn+jyFiesT5LpSVrEmBxvdIxIcHsfhUPaJJdnnQE1la6NvSWzrC7g+2THZ/z 9ece1hOCk+PqhS5g7fMnnniiHUPeFXfxxx9/3F+ZnCuwXJ/flOU5x+TWUmmruzUkNgUwAAVEYBGY icMkVyr9sWwntgVeAUfcyMCIAsCcq8+1GuZ6OS+rhOUmLuZcOY7r4GKx9vqeXXOT78ptFnR3reUS lkoT52Fx9fxlRSV9gDwHK25f4lpx//yVwgAkQJPY1CaDTe2vqwNpgcyVyiqmY2Z10HZ9Fv6c5Hd0 7Z999llzCy9fvtws1FJp6ZrEwgKrWFapCxzLkeq7kGbFzvYgMpXb41q++uqrlhz62GOPrZ555pn2 IMBktYhfibmxtuZYmuO3NDMRzG/dulWFz6XSlBZW3LzkWx20bTo3ZL+pkzcd141+/vz51WuvvXbf 9ThfMvL1xdJza65uoetmlbIQ/QdQKpUmCrqn9GbYu713t+I6sqr6/uvD+NRRzjsmFtve3t6+xTcG AUCLKzpHl5D8Jn/88UfrLHHx4sVWW1gqLV2TtJeR3yQJNKuEYlZWt8ABkNLi2CMxqsS97t69247T tzbOa0BZl41uW58P9ddff60+/vjj1ZkzZ1YvvfTSvxJcuYSuWbDfrL85uoTkuriFFg+qp3upNGFp DkClSR6IpHA53RCkEgAE66qfzOy5Hu1jAhUQtFoGTuB3mPIUVp5jjs3yS4xNfAsE5pw46rfktmrg p0WyjPdSaemaxMJiOSWb3SqhFa3MKAQJ7yW7fBhcH1sR7IPzXM1+wMSDBJ5u8GHBcOJXsbCUDYHg XF1C3xfkDctgaZVKpQljWBn1xWrKKK/0yEosybYsnGFWuu0DrsS3+oEWR3HbdOrUpubJJ5+8z5XK uQTak/0+54RMv4M+WOBvNbNUKk20SggE6dTA7YuU4qQQmXVF2VYJT2/dSI7sB1b4LPMDKUMrHrSq yG3UA33dTZ7cL6tvsd7mKFD1G2m78/LLL9fUnFJpyjFfrKj0c88giQygSKFx4ldAxNIBl0CjBxSL K61g+jrCwwArcbKx/ltpKOj4+TzXNQW4eotwk2C+2J1pQT///HNzCfvFg1JpyZqsgV/SFAAgJTmJ QQUUaXGcLHNwSxwpk5szGqwfxDrWXnmdBNTN8mNhPf/88/uWSdxA53N87qphDz/99FPL2Tqo/EXs S5yOxXhQRwkLBFY9uaL60R8ENquZqRMcwjJzF0mw3TWXSqUNgdXX9fU3mcA3IKTbaDLbk8qQ1IZ+ XmBqB9OvPY+jWj5gAZI6nrLiBNnJe2llk+u7d+/e6rvvvmtZ74qlMxIMvNKzCyxYO1brXn/99f3k WLEllpBtfR/nA0vbKbIGN3K81EqCtcUAAf8vv/yyHc/xWXiOadvA3EpnpufE3S7Xd3mkAAABnElE QVSVlq6NLaxMn0laA+ikdjB93PNerCbbAUuC8sNODP34+aPKtXgEOL/88ksDpfpC4AEcMDFCi/Xi 9Y0bNxp4/v7775ZTpmg6KRW6oErg/P3331dPPfXU6tdff23f4bnnnmu1fo8//ngDjnFcjmE/oAFB 34vFpRcXC02PLhN7nNt1nTt3rj1/5JFHGqRsaz/PXavflIVYo+pLpYmABSysgb7EZTj8wY3s0Y/7 yvCJqYPesX64gLHych5w9J5iaO8LvD/99NMNML2V11+X97luWtSk80NfC5mibeDzHYGRZef9fpZi urKCKEvUea2YSl3I4A5WWgZjeN/vevbs2XIJS6Wp28scBJ6xOYEPa3UOVFg/EWsp5zSNJ8/feeed f10T2ARc2W+4TWJiw2MonRn7ToATXbhwocHt0qVL+9u+9dZb+89tm+eA9jB/p1JpscCas4YN/8ae j23/oM8Pe7yxfYfjy457vFJpadp5YJVKpd1RAatUKm2NClilUmlrVMAqlUpbowJWqVTaGhWwSqXS 1qiAVSqVVtuifwA9fCPma9DTDgAAAABJRU5ErkJggg==