Routine: XPDIN00J

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  Apr 23, 2025@18:18:29                                                                                                                                                                                                    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

XPDIN00J.m