AZHNI007 ; ; 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,",366,40,"D","VEN",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",366,40,"D","VENUI",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,0)
;;=ASUJ3CBO^9002036.3
;;^UTILITY(U,$J,"DIST(.404,",382,40,0)
;;=^.4044I^5^5
;;^UTILITY(U,$J,"DIST(.404,",382,40,1,0)
;;=1^INDEX^3^^IDX
;;^UTILITY(U,$J,"DIST(.404,",382,40,1,1)
;;=.05
;;^UTILITY(U,$J,"DIST(.404,",382,40,1,2)
;;=1,8^7^1,1
;;^UTILITY(U,$J,"DIST(.404,",382,40,1,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",382,40,1,14)
;;=D BOIDX^ASUJVALD(.X)
;;^UTILITY(U,$J,"DIST(.404,",382,40,2,0)
;;=2^SUBSTA^3^^SST
;;^UTILITY(U,$J,"DIST(.404,",382,40,2,1)
;;=13
;;^UTILITY(U,$J,"DIST(.404,",382,40,2,2)
;;=3,9^3^3,1
;;^UTILITY(U,$J,"DIST(.404,",382,40,2,3)
;;=!M
;;^UTILITY(U,$J,"DIST(.404,",382,40,2,3.1)
;;=S X=$G(ASUT(ASUT,"SST"))
;;^UTILITY(U,$J,"DIST(.404,",382,40,2,4)
;;=1^^^0
;;^UTILITY(U,$J,"DIST(.404,",382,40,2,14)
;;=D EN^ASUJVALD(.X,"SST","R")
;;^UTILITY(U,$J,"DIST(.404,",382,40,3,0)
;;=3^USER^3^^USR
;;^UTILITY(U,$J,"DIST(.404,",382,40,3,1)
;;=14
;;^UTILITY(U,$J,"DIST(.404,",382,40,3,2)
;;=4,8^3^4,1
;;^UTILITY(U,$J,"DIST(.404,",382,40,3,3)
;;=!M
;;^UTILITY(U,$J,"DIST(.404,",382,40,3,3.1)
;;=S X=$G(ASUT(ASUT,"USR"))
;;^UTILITY(U,$J,"DIST(.404,",382,40,3,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",382,40,3,14)
;;=D EN^ASUJVALD(.X,"USR","R")
;;^UTILITY(U,$J,"DIST(.404,",382,40,4,0)
;;=4^^3^^SSTN
;;^UTILITY(U,$J,"DIST(.404,",382,40,4,1)
;;=.13
;;^UTILITY(U,$J,"DIST(.404,",382,40,4,2)
;;=3,14^30
;;^UTILITY(U,$J,"DIST(.404,",382,40,4,4)
;;=1^^^1
;;^UTILITY(U,$J,"DIST(.404,",382,40,5,0)
;;=5^^3
;;^UTILITY(U,$J,"DIST(.404,",382,40,5,1)
;;=.14
;;^UTILITY(U,$J,"DIST(.404,",382,40,5,2)
;;=4,15^40
;;^UTILITY(U,$J,"DIST(.404,",382,40,5,4)
;;=1^^^1
;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",4,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",5,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"C","INDEX",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"C","SUBSTA",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"C","USER",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","IDX",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","SST",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","SSTN",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","USR",3)
;;=
;;^UTILITY(U,$J,"PKG",194,0)
;;=AZHN DALE'S WORK PACKAGE^AZHN^WORK PACKAGE
;;^UTILITY(U,$J,"PKG",194,3,0)
;;=^9.43^^0
;;^UTILITY(U,$J,"PKG",194,4,0)
;;=^9.44PA^^0
;;^UTILITY(U,$J,"PKG",194,11)
;;=9002030^9002039.99
;;^UTILITY(U,$J,"PKG",194,22,0)
;;=^9.49I^3^3
;;^UTILITY(U,$J,"PKG",194,22,1,0)
;;=1^2930910^
;;^UTILITY(U,$J,"PKG",194,22,2,0)
;;=3.1T3^2940429
;;^UTILITY(U,$J,"PKG",194,22,3,0)
;;=4.1T4^2980805^
;;^UTILITY(U,$J,"PKG",194,22,"B",1,1)
;;=
;;^UTILITY(U,$J,"PKG",194,22,"B","3.1T3",2)
;;=
;;^UTILITY(U,$J,"PKG",194,22,"B","4.1T4",3)
;;=
;;^UTILITY(U,$J,"PKG",194,"DEV")
;;=D MELTON
;;^UTILITY(U,$J,"PKG",194,"DIBT",0)
;;=^9.48^^0
;;^UTILITY(U,$J,"PKG",194,"DIPT",0)
;;=^9.46^^0
;;^UTILITY(U,$J,"PKG",194,"DIST",0)
;;=^9.485^1^1
;;^UTILITY(U,$J,"PKG",194,"DIST",1,0)
;;=ASUJ3CBO^9002036.3
;;^UTILITY(U,$J,"PKG",194,"M",0)
;;=^9.495^^0
AZHNI007 ; ; 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,",366,40,"D","VEN",3)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.404,",366,40,"D","VENUI",5)
+4 ;;=
+5 ;;^UTILITY(U,$J,"DIST(.404,",382,0)
+6 ;;=ASUJ3CBO^9002036.3
+7 ;;^UTILITY(U,$J,"DIST(.404,",382,40,0)
+8 ;;=^.4044I^5^5
+9 ;;^UTILITY(U,$J,"DIST(.404,",382,40,1,0)
+10 ;;=1^INDEX^3^^IDX
+11 ;;^UTILITY(U,$J,"DIST(.404,",382,40,1,1)
+12 ;;=.05
+13 ;;^UTILITY(U,$J,"DIST(.404,",382,40,1,2)
+14 ;;=1,8^7^1,1
+15 ;;^UTILITY(U,$J,"DIST(.404,",382,40,1,4)
+16 ;;=1
+17 ;;^UTILITY(U,$J,"DIST(.404,",382,40,1,14)
+18 ;;=D BOIDX^ASUJVALD(.X)
+19 ;;^UTILITY(U,$J,"DIST(.404,",382,40,2,0)
+20 ;;=2^SUBSTA^3^^SST
+21 ;;^UTILITY(U,$J,"DIST(.404,",382,40,2,1)
+22 ;;=13
+23 ;;^UTILITY(U,$J,"DIST(.404,",382,40,2,2)
+24 ;;=3,9^3^3,1
+25 ;;^UTILITY(U,$J,"DIST(.404,",382,40,2,3)
+26 ;;=!M
+27 ;;^UTILITY(U,$J,"DIST(.404,",382,40,2,3.1)
+28 ;;=S X=$G(ASUT(ASUT,"SST"))
+29 ;;^UTILITY(U,$J,"DIST(.404,",382,40,2,4)
+30 ;;=1^^^0
+31 ;;^UTILITY(U,$J,"DIST(.404,",382,40,2,14)
+32 ;;=D EN^ASUJVALD(.X,"SST","R")
+33 ;;^UTILITY(U,$J,"DIST(.404,",382,40,3,0)
+34 ;;=3^USER^3^^USR
+35 ;;^UTILITY(U,$J,"DIST(.404,",382,40,3,1)
+36 ;;=14
+37 ;;^UTILITY(U,$J,"DIST(.404,",382,40,3,2)
+38 ;;=4,8^3^4,1
+39 ;;^UTILITY(U,$J,"DIST(.404,",382,40,3,3)
+40 ;;=!M
+41 ;;^UTILITY(U,$J,"DIST(.404,",382,40,3,3.1)
+42 ;;=S X=$G(ASUT(ASUT,"USR"))
+43 ;;^UTILITY(U,$J,"DIST(.404,",382,40,3,4)
+44 ;;=1
+45 ;;^UTILITY(U,$J,"DIST(.404,",382,40,3,14)
+46 ;;=D EN^ASUJVALD(.X,"USR","R")
+47 ;;^UTILITY(U,$J,"DIST(.404,",382,40,4,0)
+48 ;;=4^^3^^SSTN
+49 ;;^UTILITY(U,$J,"DIST(.404,",382,40,4,1)
+50 ;;=.13
+51 ;;^UTILITY(U,$J,"DIST(.404,",382,40,4,2)
+52 ;;=3,14^30
+53 ;;^UTILITY(U,$J,"DIST(.404,",382,40,4,4)
+54 ;;=1^^^1
+55 ;;^UTILITY(U,$J,"DIST(.404,",382,40,5,0)
+56 ;;=5^^3
+57 ;;^UTILITY(U,$J,"DIST(.404,",382,40,5,1)
+58 ;;=.14
+59 ;;^UTILITY(U,$J,"DIST(.404,",382,40,5,2)
+60 ;;=4,15^40
+61 ;;^UTILITY(U,$J,"DIST(.404,",382,40,5,4)
+62 ;;=1^^^1
+63 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",1,1)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",2,2)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",3,3)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",4,4)
+70 ;;=
+71 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"B",5,5)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"C","INDEX",1)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"C","SUBSTA",2)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"C","USER",3)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","IDX",1)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","SST",2)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","SSTN",4)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.404,",382,40,"D","USR",3)
+86 ;;=
+87 ;;^UTILITY(U,$J,"PKG",194,0)
+88 ;;=AZHN DALE'S WORK PACKAGE^AZHN^WORK PACKAGE
+89 ;;^UTILITY(U,$J,"PKG",194,3,0)
+90 ;;=^9.43^^0
+91 ;;^UTILITY(U,$J,"PKG",194,4,0)
+92 ;;=^9.44PA^^0
+93 ;;^UTILITY(U,$J,"PKG",194,11)
+94 ;;=9002030^9002039.99
+95 ;;^UTILITY(U,$J,"PKG",194,22,0)
+96 ;;=^9.49I^3^3
+97 ;;^UTILITY(U,$J,"PKG",194,22,1,0)
+98 ;;=1^2930910^
+99 ;;^UTILITY(U,$J,"PKG",194,22,2,0)
+100 ;;=3.1T3^2940429
+101 ;;^UTILITY(U,$J,"PKG",194,22,3,0)
+102 ;;=4.1T4^2980805^
+103 ;;^UTILITY(U,$J,"PKG",194,22,"B",1,1)
+104 ;;=
+105 ;;^UTILITY(U,$J,"PKG",194,22,"B","3.1T3",2)
+106 ;;=
+107 ;;^UTILITY(U,$J,"PKG",194,22,"B","4.1T4",3)
+108 ;;=
+109 ;;^UTILITY(U,$J,"PKG",194,"DEV")
+110 ;;=D MELTON
+111 ;;^UTILITY(U,$J,"PKG",194,"DIBT",0)
+112 ;;=^9.48^^0
+113 ;;^UTILITY(U,$J,"PKG",194,"DIPT",0)
+114 ;;=^9.46^^0
+115 ;;^UTILITY(U,$J,"PKG",194,"DIST",0)
+116 ;;=^9.485^1^1
+117 ;;^UTILITY(U,$J,"PKG",194,"DIST",1,0)
+118 ;;=ASUJ3CBO^9002036.3
+119 ;;^UTILITY(U,$J,"PKG",194,"M",0)
+120 ;;=^9.495^^0
