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
