AZHNI001 ; ; 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(.403,",164,0)
;;=ASUJ3CBO^^^^2980804.1219^^^9002036.3^0^0^1
;;^UTILITY(U,$J,"DIST(.403,",164,40,0)
;;=^.4031I^1^1
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,0)
;;=1^^1,1
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,1)
;;=Page 1
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,0)
;;=^.4032IP^382^4
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,364,0)
;;=ASUJHEAD^1^1,1^e
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,365,0)
;;=ASUJINDX^2^5,1^e
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,365,1)
;;=.02
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,366,0)
;;=ASUJSTIX^3^8,1^e
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,382,0)
;;=ASUJ3CBO^4^14,1^e
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",1,364)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",2,365)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",3,366)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",4,382)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",364,364)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",365,365)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",366,366)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",382,382)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,40,"C","PAGE 1",1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,0,0,"N")
;;=3,382^3,365^3,365^5,382^3,365
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364)
;;=0^0^9002036.5^^e^^^^0
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,1,"D")
;;=^^^^0^1^^0
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,2,"D")
;;=^^^^1^14^^0
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,3,"D")
;;=^^^^2^3^^0
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,4,"D")
;;=^^^^3^2^^0
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365)
;;=4^0^9002032^^e^^^1^3
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,3,"D")
;;=4^11^62^1
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,3,"N")
;;=0^4^4^0^4
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,4,"D")
;;=5^12^17^4
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,4,"N")
;;=3^5^7^3^5
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,5,"D")
;;=6^9^21^.05
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,5,"N")
;;=4^2,366^9^6^6
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,6,"D")
;;=6^6^1^5
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,6,"N")
;;=4^2,366^5^10^7
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,7,"D")
;;=5^37^15^.03
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,7,"N")
;;=3^9^8^4^8
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,8,"D")
;;=5^63^2^3
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,8,"N")
;;=3^12^10^7^9
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,9,"D")
;;=6^36^1^7
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,9,"N")
;;=4^2,366^12^5^10
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,10,"D")
;;=5^74^5^6
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,10,"N")
;;=3^11^6^8^11
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,11,"D")
;;=6^70^8^8
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,11,"N")
;;=8^17,366^2,366^12^12
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,12,"D")
;;=6^38^20^.07
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,12,"N")
;;=7^2,366^11^9^2,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,"PTB")
;;=9002036.3,.02
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,"PTB",1)
;;=S X=$$GET^DDSVAL(9002036.3,.DA,.02),DA=X
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366)
;;=7^0^9002031^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,2,"D")
;;=7^15^43^2,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,2,"N")
;;=5,365^3^17^11,365^3
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,3,"D")
;;=8^8^30^3,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,3,"N")
;;=2^19^4^17^4
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,4,"D")
;;=8^45^14^4,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,4,"N")
;;=2^20^9^3^5
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,5,"D")
;;=9^77^2^5,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,5,"N")
;;=9^10^7^24^6
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,6,"D")
;;=11^58^3^6,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,6,"N")
;;=15^1,382^25^11^7
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,7,"D")
;;=10^8^9^7,366^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,7,"N")
;;=19^8^16^5^8
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,8,"D")
;;=11^8^12^8,366^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,8,"N")
;;=7^1,382^13^10^9
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,9,"D")
;;=8^67^12^9,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,9,"N")
;;=17^24^19^4^10
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,10,"D")
;;=10^75^4^10,366
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,10,"N")
;;=24^25^8^14^11
AZHNI001 ; ; 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(.403,",164,0)
+2 ;;=ASUJ3CBO^^^^2980804.1219^^^9002036.3^0^0^1
+3 ;;^UTILITY(U,$J,"DIST(.403,",164,40,0)
+4 ;;=^.4031I^1^1
+5 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,0)
+6 ;;=1^^1,1
+7 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,1)
+8 ;;=Page 1
+9 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,0)
+10 ;;=^.4032IP^382^4
+11 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,364,0)
+12 ;;=ASUJHEAD^1^1,1^e
+13 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,365,0)
+14 ;;=ASUJINDX^2^5,1^e
+15 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,365,1)
+16 ;;=.02
+17 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,366,0)
+18 ;;=ASUJSTIX^3^8,1^e
+19 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,382,0)
+20 ;;=ASUJ3CBO^4^14,1^e
+21 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",1,364)
+22 ;;=
+23 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",2,365)
+24 ;;=
+25 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",3,366)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"AC",4,382)
+28 ;;=
+29 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",364,364)
+30 ;;=
+31 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",365,365)
+32 ;;=
+33 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",366,366)
+34 ;;=
+35 ;;^UTILITY(U,$J,"DIST(.403,",164,40,1,40,"B",382,382)
+36 ;;=
+37 ;;^UTILITY(U,$J,"DIST(.403,",164,40,"B",1,1)
+38 ;;=
+39 ;;^UTILITY(U,$J,"DIST(.403,",164,40,"C","PAGE 1",1)
+40 ;;=
+41 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,0,0,"N")
+42 ;;=3,382^3,365^3,365^5,382^3,365
+43 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364)
+44 ;;=0^0^9002036.5^^e^^^^0
+45 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,1,"D")
+46 ;;=^^^^0^1^^0
+47 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,2,"D")
+48 ;;=^^^^1^14^^0
+49 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,3,"D")
+50 ;;=^^^^2^3^^0
+51 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,364,4,"D")
+52 ;;=^^^^3^2^^0
+53 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365)
+54 ;;=4^0^9002032^^e^^^1^3
+55 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,3,"D")
+56 ;;=4^11^62^1
+57 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,3,"N")
+58 ;;=0^4^4^0^4
+59 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,4,"D")
+60 ;;=5^12^17^4
+61 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,4,"N")
+62 ;;=3^5^7^3^5
+63 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,5,"D")
+64 ;;=6^9^21^.05
+65 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,5,"N")
+66 ;;=4^2,366^9^6^6
+67 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,6,"D")
+68 ;;=6^6^1^5
+69 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,6,"N")
+70 ;;=4^2,366^5^10^7
+71 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,7,"D")
+72 ;;=5^37^15^.03
+73 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,7,"N")
+74 ;;=3^9^8^4^8
+75 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,8,"D")
+76 ;;=5^63^2^3
+77 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,8,"N")
+78 ;;=3^12^10^7^9
+79 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,9,"D")
+80 ;;=6^36^1^7
+81 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,9,"N")
+82 ;;=4^2,366^12^5^10
+83 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,10,"D")
+84 ;;=5^74^5^6
+85 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,10,"N")
+86 ;;=3^11^6^8^11
+87 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,11,"D")
+88 ;;=6^70^8^8
+89 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,11,"N")
+90 ;;=8^17,366^2,366^12^12
+91 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,12,"D")
+92 ;;=6^38^20^.07
+93 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,12,"N")
+94 ;;=7^2,366^11^9^2,366
+95 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,"PTB")
+96 ;;=9002036.3,.02
+97 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,365,"PTB",1)
+98 ;;=S X=$$GET^DDSVAL(9002036.3,.DA,.02),DA=X
+99 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366)
+100 ;;=7^0^9002031^^e^^^^2
+101 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,2,"D")
+102 ;;=7^15^43^2,366
+103 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,2,"N")
+104 ;;=5,365^3^17^11,365^3
+105 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,3,"D")
+106 ;;=8^8^30^3,366
+107 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,3,"N")
+108 ;;=2^19^4^17^4
+109 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,4,"D")
+110 ;;=8^45^14^4,366
+111 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,4,"N")
+112 ;;=2^20^9^3^5
+113 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,5,"D")
+114 ;;=9^77^2^5,366
+115 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,5,"N")
+116 ;;=9^10^7^24^6
+117 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,6,"D")
+118 ;;=11^58^3^6,366
+119 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,6,"N")
+120 ;;=15^1,382^25^11^7
+121 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,7,"D")
+122 ;;=10^8^9^7,366^^^^^^1
+123 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,7,"N")
+124 ;;=19^8^16^5^8
+125 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,8,"D")
+126 ;;=11^8^12^8,366^^^^^^1
+127 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,8,"N")
+128 ;;=7^1,382^13^10^9
+129 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,9,"D")
+130 ;;=8^67^12^9,366
+131 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,9,"N")
+132 ;;=17^24^19^4^10
+133 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,10,"D")
+134 ;;=10^75^4^10,366
+135 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,10,"N")
+136 ;;=24^25^8^14^11
