Routine: AZHNI005

AZHNI005 ; ; 05-AUG-1998

 ;;4.1T4;AZHN DALE'S WORK PACKAGE;;AUG 05, 1998

 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,"DIST(.404,",365,40,"D","MSSO",10)

;;=

 ;;^UTILITY(U,$J,"DIST(.404,",366,0)

 ;;=ASUJSTIX^9002031^

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,0)

 ;;=^.4044I^25^24

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,1,0)

 ;;=1^*Station*^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,1,2)

 ;;=^^1,1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,0)

 ;;=2^SRC^2^^SRC

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,2)

 ;;=1,16^43^1,11

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,0)

 ;;=3^VEND^2^^VEN

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,2)

 ;;=2,9^30^2,3

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,0)

 ;;=4^ORD#^2^^ORD

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,2)

 ;;=2,46^14^2,40

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,0)

 ;;=5^VEN U/I^2^^VENUI

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,2)

 ;;=3,78^2^3,69

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,0)

 ;;=6^LTM^2^^LTM

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,2)

 ;;=5,59^3^5,54

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,0)

 ;;=7^QTYOH^2^^QTYOH

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,2)

 ;;=4,9^9^4,3

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,4)

 ;;=^^1^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,0)

 ;;=8^VALOH^2^^VALOH

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,2)

 ;;=5,9^12^5,3

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,4)

 ;;=^^1^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,0)

 ;;=9^LSTIS^2^^LSTISS

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,2)

 ;;=2,68^12^2,61

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,20)

 ;;=D

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,0)

 ;;=10^DUE OUT^2^^DUEOUT

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,2)

 ;;=4,76^4^4,68

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,0)

 ;;=11^LPP^2^^LPP

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,2)

 ;;=5,44^9^5,39

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,4)

 ;;=^^1^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,0)

 ;;=12^RPQ^2^^RPQ

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,2)

 ;;=4,35^5^4,30

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,0)

 ;;=13^COST/U^2^^CST/U

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,2)

 ;;=5,29^9^5,22

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,4)

 ;;=^^1^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,0)

 ;;=14^DUE IN^2^^DUEIN

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,2)

 ;;=4,63^4^4,56

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,4)

 ;;=^^1^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,0)

 ;;=15^PAMIQ^2^^PAMIQ

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,2)

 ;;=4,48^7^4,41

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,4)

 ;;=^^1^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,0)

 ;;=16^SPQ^2^^SPQ

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,2)

 ;;=4,24^5^4,19

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,4)

 ;;=^^1^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,0)

 ;;=17^SLC^2^^SLC

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,2)

 ;;=1,65^15^1,60

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,0)

 ;;=19^EOQTP^2^^EOQTP

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,2)

 ;;=3,10^18^3,3

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,20)

 ;;=F

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,0)

 ;;=20^TBL^2^^EOQTB

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,2)

 ;;=3,35^3^3,30

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,20)

 ;;=N

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,21,0)

 ;;=21^MODS:^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,21,2)

 ;;=^^3,39

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,0)

 ;;=22^MO^2^^EOQMM

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,2)

 ;;=3,47^2^3,44^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,4)

 ;;=^^^1

 ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,20)

 ;;=F

AZHNI005  ; ; 05-AUG-1998

 +1       ;;4.1T4;AZHN DALE'S WORK PACKAGE;;AUG 05, 1998

 +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,999)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,"DIST(.404,",365,40,"D","MSSO",10)

 +2       ;;=

 +3       ;;^UTILITY(U,$J,"DIST(.404,",366,0)

 +4       ;;=ASUJSTIX^9002031^

 +5       ;;^UTILITY(U,$J,"DIST(.404,",366,40,0)

 +6       ;;=^.4044I^25^24

 +7       ;;^UTILITY(U,$J,"DIST(.404,",366,40,1,0)

 +8       ;;=1^*Station*^1

 +9       ;;^UTILITY(U,$J,"DIST(.404,",366,40,1,2)

 +10      ;;=^^1,1

 +11      ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,0)

 +12      ;;=2^SRC^2^^SRC

 +13      ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,2)

 +14      ;;=1,16^43^1,11

 +15      ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,4)

 +16      ;;=^^^1

 +17      ;;^UTILITY(U,$J,"DIST(.404,",366,40,2,20)

 +18      ;;=F

 +19      ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,0)

 +20      ;;=3^VEND^2^^VEN

 +21      ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,2)

 +22      ;;=2,9^30^2,3

 +23      ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,4)

 +24      ;;=^^^1

 +25      ;;^UTILITY(U,$J,"DIST(.404,",366,40,3,20)

 +26      ;;=F

 +27      ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,0)

 +28      ;;=4^ORD#^2^^ORD

 +29      ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,2)

 +30      ;;=2,46^14^2,40

 +31      ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,4)

 +32      ;;=^^^1

 +33      ;;^UTILITY(U,$J,"DIST(.404,",366,40,4,20)

 +34      ;;=F

 +35      ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,0)

 +36      ;;=5^VEN U/I^2^^VENUI

 +37      ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,2)

 +38      ;;=3,78^2^3,69

 +39      ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,4)

 +40      ;;=^^^1

 +41      ;;^UTILITY(U,$J,"DIST(.404,",366,40,5,20)

 +42      ;;=F

 +43      ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,0)

 +44      ;;=6^LTM^2^^LTM

 +45      ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,2)

 +46      ;;=5,59^3^5,54

 +47      ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,4)

 +48      ;;=^^^1

 +49      ;;^UTILITY(U,$J,"DIST(.404,",366,40,6,20)

 +50      ;;=N

 +51      ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,0)

 +52      ;;=7^QTYOH^2^^QTYOH

 +53      ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,2)

 +54      ;;=4,9^9^4,3

 +55      ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,4)

 +56      ;;=^^1^1

 +57      ;;^UTILITY(U,$J,"DIST(.404,",366,40,7,20)

 +58      ;;=N

 +59      ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,0)

 +60      ;;=8^VALOH^2^^VALOH

 +61      ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,2)

 +62      ;;=5,9^12^5,3

 +63      ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,4)

 +64      ;;=^^1^1

 +65      ;;^UTILITY(U,$J,"DIST(.404,",366,40,8,20)

 +66      ;;=F

 +67      ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,0)

 +68      ;;=9^LSTIS^2^^LSTISS

 +69      ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,2)

 +70      ;;=2,68^12^2,61

 +71      ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,4)

 +72      ;;=^^^1

 +73      ;;^UTILITY(U,$J,"DIST(.404,",366,40,9,20)

 +74      ;;=D

 +75      ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,0)

 +76      ;;=10^DUE OUT^2^^DUEOUT

 +77      ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,2)

 +78      ;;=4,76^4^4,68

 +79      ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,4)

 +80      ;;=^^^1

 +81      ;;^UTILITY(U,$J,"DIST(.404,",366,40,10,20)

 +82      ;;=N

 +83      ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,0)

 +84      ;;=11^LPP^2^^LPP

 +85      ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,2)

 +86      ;;=5,44^9^5,39

 +87      ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,4)

 +88      ;;=^^1^1

 +89      ;;^UTILITY(U,$J,"DIST(.404,",366,40,11,20)

 +90      ;;=F

 +91      ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,0)

 +92      ;;=12^RPQ^2^^RPQ

 +93      ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,2)

 +94      ;;=4,35^5^4,30

 +95      ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,4)

 +96      ;;=^^^1

 +97      ;;^UTILITY(U,$J,"DIST(.404,",366,40,12,20)

 +98      ;;=N

 +99      ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,0)

 +100     ;;=13^COST/U^2^^CST/U

 +101     ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,2)

 +102     ;;=5,29^9^5,22

 +103     ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,4)

 +104     ;;=^^1^1

 +105     ;;^UTILITY(U,$J,"DIST(.404,",366,40,13,20)

 +106     ;;=F

 +107     ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,0)

 +108     ;;=14^DUE IN^2^^DUEIN

 +109     ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,2)

 +110     ;;=4,63^4^4,56

 +111     ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,4)

 +112     ;;=^^1^1

 +113     ;;^UTILITY(U,$J,"DIST(.404,",366,40,14,20)

 +114     ;;=N

 +115     ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,0)

 +116     ;;=15^PAMIQ^2^^PAMIQ

 +117     ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,2)

 +118     ;;=4,48^7^4,41

 +119     ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,4)

 +120     ;;=^^1^1

 +121     ;;^UTILITY(U,$J,"DIST(.404,",366,40,15,20)

 +122     ;;=N

 +123     ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,0)

 +124     ;;=16^SPQ^2^^SPQ

 +125     ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,2)

 +126     ;;=4,24^5^4,19

 +127     ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,4)

 +128     ;;=^^1^1

 +129     ;;^UTILITY(U,$J,"DIST(.404,",366,40,16,20)

 +130     ;;=N

 +131     ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,0)

 +132     ;;=17^SLC^2^^SLC

 +133     ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,2)

 +134     ;;=1,65^15^1,60

 +135     ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,4)

 +136     ;;=^^^1

 +137     ;;^UTILITY(U,$J,"DIST(.404,",366,40,17,20)

 +138     ;;=F

 +139     ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,0)

 +140     ;;=19^EOQTP^2^^EOQTP

 +141     ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,2)

 +142     ;;=3,10^18^3,3

 +143     ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,4)

 +144     ;;=^^^1

 +145     ;;^UTILITY(U,$J,"DIST(.404,",366,40,19,20)

 +146     ;;=F

 +147     ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,0)

 +148     ;;=20^TBL^2^^EOQTB

 +149     ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,2)

 +150     ;;=3,35^3^3,30

 +151     ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,4)

 +152     ;;=^^^1

 +153     ;;^UTILITY(U,$J,"DIST(.404,",366,40,20,20)

 +154     ;;=N

 +155     ;;^UTILITY(U,$J,"DIST(.404,",366,40,21,0)

 +156     ;;=21^MODS:^1

 +157     ;;^UTILITY(U,$J,"DIST(.404,",366,40,21,2)

 +158     ;;=^^3,39

 +159     ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,0)

 +160     ;;=22^MO^2^^EOQMM

 +161     ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,2)

 +162     ;;=3,47^2^3,44^1

 +163     ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,4)

 +164     ;;=^^^1

 +165     ;;^UTILITY(U,$J,"DIST(.404,",366,40,22,20)

 +166     ;;=F

AZHNI005.m