XPDIN00J ; ; 03-JUL-1995
 ;;8.0;KERNEL;;JUL 10, 1995
 F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,1,"N")
 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"D")
 ;;=5^26^5^0^^^^^1^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"N")
 ;;=^^0^^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,"FIRST")
 ;;=1,57
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,0,0,"N")
 ;;=1,48^1,48^1,48^2,48^1,48
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48)
 ;;=6^1^9.68^^e^^9^^1^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"D")
 ;;=6^2^45^.01
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"N")
 ;;=0^0^0^0^0^1,-1^1,+1^2^2,-1^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"D")
 ;;=6^50^26^.03
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"N")
 ;;=0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53)
 ;;=4^1^9.67^^d^^^^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53,1,"D")
 ;;=^^^^4^27^^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,"FIRST")
 ;;=1,48
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,0,0,"N")
 ;;=1,58^1,58^1,58^1,58^1,58
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45)
 ;;=0^0^9.6^^d^^^^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,2,"D")
 ;;=1^6^30^.01
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,4,"D")
 ;;=^^^^2^0^^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58)
 ;;=4^0^9.64^^e^^12^^1^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"D")
 ;;=5^6^45^.01
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"N")
 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,59)
 ;;=0^0^9.6^^d^^^^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,"FIRST")
 ;;=1,58
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,0,0,"N")
 ;;=4,50^2,50^2,50^4,50^2,50
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50)
 ;;=5^4^9.402^^e^^^^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"D")
 ;;=7^19^45^.01
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"N")
 ;;=0^3^3^0^3
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"D")
 ;;=9^27^8^3
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"N")
 ;;=2^4^4^2^4
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"D")
 ;;=14^4^70^4
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"N")
 ;;=3^0^0^3^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,"FIRST")
 ;;=2,50
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,0,0,"N")
 ;;=9,52^1,52^1,52^9,52^1,52
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52)
 ;;=1^1^9.62^^e^^^^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"D")
 ;;=2^12^30^.01
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"N")
 ;;=0^2^2^0^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"D")
 ;;=4^12^65^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"N")
 ;;=1^3^3^1^3
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"D")
 ;;=6^12^65^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"N")
 ;;=2^4^4^2^4
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"D")
 ;;=7^12^1^3
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"N")
 ;;=3^5^5^3^5^^^^^^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"D")
 ;;=9^12^65^4
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"N")
 ;;=4^6^6^4^6
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"D")
 ;;=11^12^65^5
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"N")
 ;;=5^7^7^5^7
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"D")
 ;;=12^12^1^6
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"N")
 ;;=6^8^8^6^8^^^^^^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"D")
 ;;=13^12^64^7
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"N")
 ;;=7^9^9^7^9
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"D")
 ;;=15^12^65^10
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"N")
 ;;=8^0^0^8^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,"FIRST")
 ;;=1,52
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,0,0,"N")
 ;;=7,49^2,49^2,49^7,49^2,49
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49)
 ;;=4^0^9.64^^e^^^^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"D")
 ;;=6^29^45^.01
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"N")
 ;;=0^18^18^0^18
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"D")
 ;;=15^32^3^222.7
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"N")
 ;;=13^0^0^13^0
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"D")
 ;;=13^1^76^223
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"N")
 ;;=16^7^7^14^7
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"D")
 ;;=10^61^3^222.2
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"N")
 ;;=18^13^13^16^13
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"D")
 ;;=10^29^3^222.1
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"N")
 ;;=18^13^14^18^14
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"D")
 ;;=8^32^7^222.3
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"N")
 ;;=2^16^16^2^16
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,"FIRST")
 ;;=2,49
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,0,0,"N")
 ;;=1,54^5,51^5,51^1,54^5,51
 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51)
 ;;=6^2^9.4^^e^^^1^5