- 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 Mar 13, 2025@21:08:54 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