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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00J 5006 printed Dec 13, 2024@02:04 Page 2
XPDIN00J ; ; 03-JUL-1995
+1 ;;8.0;KERNEL;;JUL 10, 1995
+2 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,1,"N")
+2 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"D")
+4 ;;=5^26^5^0^^^^^1^1
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"N")
+6 ;;=^^0^^0
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,"FIRST")
+8 ;;=1,57
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,0,0,"N")
+10 ;;=1,48^1,48^1,48^2,48^1,48
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48)
+12 ;;=6^1^9.68^^e^^9^^1^1
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"D")
+14 ;;=6^2^45^.01
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"N")
+16 ;;=0^0^0^0^0^1,-1^1,+1^2^2,-1^2
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"D")
+18 ;;=6^50^26^.03
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"N")
+20 ;;=0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53)
+22 ;;=4^1^9.67^^d^^^^0
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53,1,"D")
+24 ;;=^^^^4^27^^0
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,"FIRST")
+26 ;;=1,48
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,0,0,"N")
+28 ;;=1,58^1,58^1,58^1,58^1,58
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45)
+30 ;;=0^0^9.6^^d^^^^0
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,2,"D")
+32 ;;=1^6^30^.01
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,4,"D")
+34 ;;=^^^^2^0^^0
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58)
+36 ;;=4^0^9.64^^e^^12^^1^1
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"D")
+38 ;;=5^6^45^.01
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"N")
+40 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,59)
+42 ;;=0^0^9.6^^d^^^^0
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,"FIRST")
+44 ;;=1,58
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,0,0,"N")
+46 ;;=4,50^2,50^2,50^4,50^2,50
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50)
+48 ;;=5^4^9.402^^e^^^^2
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"D")
+50 ;;=7^19^45^.01
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"N")
+52 ;;=0^3^3^0^3
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"D")
+54 ;;=9^27^8^3
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"N")
+56 ;;=2^4^4^2^4
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"D")
+58 ;;=14^4^70^4
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"N")
+60 ;;=3^0^0^3^0
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,"FIRST")
+62 ;;=2,50
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,0,0,"N")
+64 ;;=9,52^1,52^1,52^9,52^1,52
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52)
+66 ;;=1^1^9.62^^e^^^^1
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"D")
+68 ;;=2^12^30^.01
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"N")
+70 ;;=0^2^2^0^2
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"D")
+72 ;;=4^12^65^1
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"N")
+74 ;;=1^3^3^1^3
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"D")
+76 ;;=6^12^65^2
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"N")
+78 ;;=2^4^4^2^4
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"D")
+80 ;;=7^12^1^3
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"N")
+82 ;;=3^5^5^3^5^^^^^^1
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"D")
+84 ;;=9^12^65^4
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"N")
+86 ;;=4^6^6^4^6
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"D")
+88 ;;=11^12^65^5
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"N")
+90 ;;=5^7^7^5^7
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"D")
+92 ;;=12^12^1^6
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"N")
+94 ;;=6^8^8^6^8^^^^^^1
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"D")
+96 ;;=13^12^64^7
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"N")
+98 ;;=7^9^9^7^9
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"D")
+100 ;;=15^12^65^10
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"N")
+102 ;;=8^0^0^8^0
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,"FIRST")
+104 ;;=1,52
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,0,0,"N")
+106 ;;=7,49^2,49^2,49^7,49^2,49
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49)
+108 ;;=4^0^9.64^^e^^^^2
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"D")
+110 ;;=6^29^45^.01
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"N")
+112 ;;=0^18^18^0^18
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"D")
+114 ;;=15^32^3^222.7
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"N")
+116 ;;=13^0^0^13^0
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"D")
+118 ;;=13^1^76^223
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"N")
+120 ;;=16^7^7^14^7
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"D")
+122 ;;=10^61^3^222.2
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"N")
+124 ;;=18^13^13^16^13
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"D")
+126 ;;=10^29^3^222.1
+127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"N")
+128 ;;=18^13^14^18^14
+129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"D")
+130 ;;=8^32^7^222.3
+131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"N")
+132 ;;=2^16^16^2^16
+133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,"FIRST")
+134 ;;=2,49
+135 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,0,0,"N")
+136 ;;=1,54^5,51^5,51^1,54^5,51
+137 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51)
+138 ;;=6^2^9.4^^e^^^1^5
