XPDIN00K ; ; 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",8,51,2,"D")
;;=10^32^30^20
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,2,"N")
;;=5^1,54^1,54^5^1,54^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"D")
;;=8^32^30^12
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"N")
;;=0^2^2^0^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB")
;;=9.6,1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB",1)
;;=S X=$$GET^DDSVAL(9.6,.DA,1),DA=X
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54)
;;=11^2^9.6^^e^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"D")
;;=12^32^3^20
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"N")
;;=2,51^0^0^2,51^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67)
;;=4^2^9.6^^d^^^^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,2,"D")
;;=5^9^30^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,3,"D")
;;=^^^^6^2^^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,"FIRST")
;;=5,51
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,0,0,"N")
;;=1,84^1,55^1,55^1,84^1,55
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55)
;;=3^3^9.6^^e^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"D")
;;=5^32^3^21
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"N")
;;=0^2^2^0^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"D")
;;=7^32^44^22
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"N")
;;=1^1,84^1,84^1^1,84
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84)
;;=10^3^9.66^^e^^4^^1^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"D")
;;=11^4^4^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"N")
;;=2,55^0^0^2,55^0^1,-1^1,+1^1,+1^1,-1^1,+1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,"FIRST")
;;=1,55
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,0,0,"N")
;;=1,85^1,85^1,85^1,85^1,85
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,56)
;;=4^5^9.66^^e^^^^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85)
;;=5^4^9.661^^e^^2^^1^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"D")
;;=5^5^4^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"N")
;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,"FIRST")
;;=1,85
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,0,0,"N")
;;=1,60^1,60^1,60^1,60^1,60
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60)
;;=6^3^9.641^^e^^6^^1^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"D")
;;=6^3^45^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"N")
;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,62)
;;=5^3^9.64^^d^^^^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,"FIRST")
;;=1,60
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,0,0,"N")
;;=1,61^1,61^1,61^1,61^1,61
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61)
;;=7^4^9.6411^^e^^6^^1^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"D")
;;=7^4^45^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"N")
;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,63)
;;=6^3^9.641^^d^^^^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,"FIRST")
;;=1,61
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,0,0,"N")
;;=7,64^2,64^2,64^7,64^2,64
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64)
;;=5^1^9.64^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"D")
;;=7^21^15^222.8
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"N")
;;=0^4^4^0^4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"D")
;;=11^21^30^222.6
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"N")
;;=4^7^7^5^7
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"D")
;;=9^21^3^222.5
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"N")
;;=2^3^5^2^5
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"D")
;;=9^68^3^222.9
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"N")
;;=2^3^3^4^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"D")
;;=14^3^72^224
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"N")
;;=3^0^0^3^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,"FIRST")
;;=2,64
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,0,0,"N")
;;=3,65^1,66^1,66^3,65^1,66
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45)
;;=0^0^9.6^^d^^^^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,2,"D")
;;=1^6^30^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,4,"D")
;;=^^^^2^0^^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65)
;;=0^0^9.6^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"D")
;;=14^26^30^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"N")
;;=1,66^3^3^1,66^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"D")
;;=16^26^3^5
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"N")
;;=2^0^0^2^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66)
;;=4^0^9.62^^e^^6^^1^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"D")
;;=5^2^30^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"N")
;;=0^2,65^2,65^0^2,65^1,-1^1,+1^1,+1^1,-1^1,+1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,"FIRST")
;;=1,66
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00K 4987 printed Nov 22, 2024@17:14:10 Page 2
XPDIN00K ; ; 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",8,51,2,"D")
+2 ;;=10^32^30^20
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,2,"N")
+4 ;;=5^1,54^1,54^5^1,54^^^^^^1
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"D")
+6 ;;=8^32^30^12
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"N")
+8 ;;=0^2^2^0^2
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB")
+10 ;;=9.6,1
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB",1)
+12 ;;=S X=$$GET^DDSVAL(9.6,.DA,1),DA=X
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54)
+14 ;;=11^2^9.6^^e^^^^1
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"D")
+16 ;;=12^32^3^20
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"N")
+18 ;;=2,51^0^0^2,51^0
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67)
+20 ;;=4^2^9.6^^d^^^^0
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,2,"D")
+22 ;;=5^9^30^.01
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,3,"D")
+24 ;;=^^^^6^2^^0
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,"FIRST")
+26 ;;=5,51
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,0,0,"N")
+28 ;;=1,84^1,55^1,55^1,84^1,55
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55)
+30 ;;=3^3^9.6^^e^^^^1
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"D")
+32 ;;=5^32^3^21
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"N")
+34 ;;=0^2^2^0^2
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"D")
+36 ;;=7^32^44^22
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"N")
+38 ;;=1^1,84^1,84^1^1,84
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84)
+40 ;;=10^3^9.66^^e^^4^^1^1
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"D")
+42 ;;=11^4^4^.01
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"N")
+44 ;;=2,55^0^0^2,55^0^1,-1^1,+1^1,+1^1,-1^1,+1
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,"FIRST")
+46 ;;=1,55
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,0,0,"N")
+48 ;;=1,85^1,85^1,85^1,85^1,85
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,56)
+50 ;;=4^5^9.66^^e^^^^0
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85)
+52 ;;=5^4^9.661^^e^^2^^1^1
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"D")
+54 ;;=5^5^4^.01
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"N")
+56 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,"FIRST")
+58 ;;=1,85
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,0,0,"N")
+60 ;;=1,60^1,60^1,60^1,60^1,60
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60)
+62 ;;=6^3^9.641^^e^^6^^1^1
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"D")
+64 ;;=6^3^45^.01
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"N")
+66 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,62)
+68 ;;=5^3^9.64^^d^^^^0
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,"FIRST")
+70 ;;=1,60
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,0,0,"N")
+72 ;;=1,61^1,61^1,61^1,61^1,61
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61)
+74 ;;=7^4^9.6411^^e^^6^^1^1
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"D")
+76 ;;=7^4^45^.01
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"N")
+78 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,63)
+80 ;;=6^3^9.641^^d^^^^0
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,"FIRST")
+82 ;;=1,61
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,0,0,"N")
+84 ;;=7,64^2,64^2,64^7,64^2,64
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64)
+86 ;;=5^1^9.64^^e^^^^2
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"D")
+88 ;;=7^21^15^222.8
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"N")
+90 ;;=0^4^4^0^4
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"D")
+92 ;;=11^21^30^222.6
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"N")
+94 ;;=4^7^7^5^7
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"D")
+96 ;;=9^21^3^222.5
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"N")
+98 ;;=2^3^5^2^5
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"D")
+100 ;;=9^68^3^222.9
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"N")
+102 ;;=2^3^3^4^3
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"D")
+104 ;;=14^3^72^224
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"N")
+106 ;;=3^0^0^3^0
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,"FIRST")
+108 ;;=2,64
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,0,0,"N")
+110 ;;=3,65^1,66^1,66^3,65^1,66
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45)
+112 ;;=0^0^9.6^^d^^^^0
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,2,"D")
+114 ;;=1^6^30^.01
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,4,"D")
+116 ;;=^^^^2^0^^0
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65)
+118 ;;=0^0^9.6^^e^^^^2
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"D")
+120 ;;=14^26^30^1
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"N")
+122 ;;=1,66^3^3^1,66^3
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"D")
+124 ;;=16^26^3^5
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"N")
+126 ;;=2^0^0^2^0
+127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66)
+128 ;;=4^0^9.62^^e^^6^^1^1
+129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"D")
+130 ;;=5^2^30^.01
+131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"N")
+132 ;;=0^2,65^2,65^0^2,65^1,-1^1,+1^1,+1^1,-1^1,+1
+133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,"FIRST")
+134 ;;=1,66
