ATXO5N ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 01, 2014;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;;BQI ALCOHOL PROCEDURES
;
; This routine loads Taxonomy BQI ALCOHOL PROCEDURES
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+1
F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
D OTHER
I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
D KILL^ATXSTX2
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"94.46 ")
;;1
;;21,"94.53 ")
;;2
;;21,"94.61 ")
;;3
;;21,"94.67 ")
;;4
;;21,"HZ2ZZZZ ")
;;27
;;21,"HZ30ZZZ ")
;;5
;;21,"HZ31ZZZ ")
;;6
;;21,"HZ32ZZZ ")
;;7
;;21,"HZ33ZZZ ")
;;8
;;21,"HZ34ZZZ ")
;;9
;;21,"HZ35ZZZ ")
;;10
;;21,"HZ36ZZZ ")
;;11
;;21,"HZ37ZZZ ")
;;12
;;21,"HZ38ZZZ ")
;;13
;;21,"HZ39ZZZ ")
;;14
;;21,"HZ3BZZZ ")
;;15
;;21,"HZ40ZZZ ")
;;16
;;21,"HZ41ZZZ ")
;;17
;;21,"HZ42ZZZ ")
;;18
;;21,"HZ43ZZZ ")
;;19
;;21,"HZ44ZZZ ")
;;20
;;21,"HZ45ZZZ ")
;;21
;;21,"HZ46ZZZ ")
;;22
;;21,"HZ47ZZZ ")
;;23
;;21,"HZ48ZZZ ")
;;24
;;21,"HZ49ZZZ ")
;;25
;;21,"HZ4BZZZ ")
;;26
;;21,"HZ93ZZZ ")
;;28
;;21,"HZ96ZZZ ")
;;29
;;9002226,1812,.01)
;;BQI ALCOHOL PROCEDURES
;;9002226,1812,.02)
;;Alcohol procedures
;;9002226,1812,.04)
;;n
;;9002226,1812,.06)
;;@
;;9002226,1812,.08)
;;0
;;9002226,1812,.09)
;;3140401
;;9002226,1812,.11)
;;@
;;9002226,1812,.12)
;;255
;;9002226,1812,.13)
;;1
;;9002226,1812,.14)
;;@
;;9002226,1812,.15)
;;80.1
;;9002226,1812,.16)
;;@
;;9002226,1812,.17)
;;@
;;9002226,1812,3101)
;;@
;;9002226.01101,"1812,1",.01)
;;Used by HIV Management System for the Quality of Care report and the
;;9002226.01101,"1812,2",.01)
;;Supplement.
;;9002226.02101,"1812,94.46 ",.01)
;;94.46
;;9002226.02101,"1812,94.46 ",.02)
;;94.46
;;9002226.02101,"1812,94.46 ",.03)
;;2
;;9002226.02101,"1812,94.53 ",.01)
;;94.53
;;9002226.02101,"1812,94.53 ",.02)
;;94.53
;;9002226.02101,"1812,94.53 ",.03)
;;2
;;9002226.02101,"1812,94.61 ",.01)
;;94.61
;;9002226.02101,"1812,94.61 ",.02)
;;94.63
;;9002226.02101,"1812,94.61 ",.03)
;;2
;;9002226.02101,"1812,94.67 ",.01)
;;94.67
;;9002226.02101,"1812,94.67 ",.02)
;;94.69
;;9002226.02101,"1812,94.67 ",.03)
;;2
;;9002226.02101,"1812,HZ2ZZZZ ",.01)
;;HZ2ZZZZ
;;9002226.02101,"1812,HZ2ZZZZ ",.02)
;;HZ2ZZZZ
;;9002226.02101,"1812,HZ2ZZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ30ZZZ ",.01)
;;HZ30ZZZ
;;9002226.02101,"1812,HZ30ZZZ ",.02)
;;HZ30ZZZ
;;9002226.02101,"1812,HZ30ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ31ZZZ ",.01)
;;HZ31ZZZ
;;9002226.02101,"1812,HZ31ZZZ ",.02)
;;HZ31ZZZ
;;9002226.02101,"1812,HZ31ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ32ZZZ ",.01)
;;HZ32ZZZ
;;9002226.02101,"1812,HZ32ZZZ ",.02)
;;HZ32ZZZ
;;9002226.02101,"1812,HZ32ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ33ZZZ ",.01)
;;HZ33ZZZ
;;9002226.02101,"1812,HZ33ZZZ ",.02)
;;HZ33ZZZ
;;9002226.02101,"1812,HZ33ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ34ZZZ ",.01)
;;HZ34ZZZ
;;9002226.02101,"1812,HZ34ZZZ ",.02)
;;HZ34ZZZ
;;9002226.02101,"1812,HZ34ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ35ZZZ ",.01)
;;HZ35ZZZ
;;9002226.02101,"1812,HZ35ZZZ ",.02)
;;HZ35ZZZ
;;9002226.02101,"1812,HZ35ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ36ZZZ ",.01)
;;HZ36ZZZ
;;9002226.02101,"1812,HZ36ZZZ ",.02)
;;HZ36ZZZ
;;9002226.02101,"1812,HZ36ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ37ZZZ ",.01)
;;HZ37ZZZ
;;9002226.02101,"1812,HZ37ZZZ ",.02)
;;HZ37ZZZ
;;9002226.02101,"1812,HZ37ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ38ZZZ ",.01)
;;HZ38ZZZ
;;9002226.02101,"1812,HZ38ZZZ ",.02)
;;HZ38ZZZ
;;9002226.02101,"1812,HZ38ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ39ZZZ ",.01)
;;HZ39ZZZ
;;9002226.02101,"1812,HZ39ZZZ ",.02)
;;HZ39ZZZ
;;9002226.02101,"1812,HZ39ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ3BZZZ ",.01)
;;HZ3BZZZ
;;9002226.02101,"1812,HZ3BZZZ ",.02)
;;HZ3BZZZ
;;9002226.02101,"1812,HZ3BZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ40ZZZ ",.01)
;;HZ40ZZZ
;;9002226.02101,"1812,HZ40ZZZ ",.02)
;;HZ40ZZZ
;;9002226.02101,"1812,HZ40ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ41ZZZ ",.01)
;;HZ41ZZZ
;;9002226.02101,"1812,HZ41ZZZ ",.02)
;;HZ41ZZZ
;;9002226.02101,"1812,HZ41ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ42ZZZ ",.01)
;;HZ42ZZZ
;;9002226.02101,"1812,HZ42ZZZ ",.02)
;;HZ42ZZZ
;;9002226.02101,"1812,HZ42ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ43ZZZ ",.01)
;;HZ43ZZZ
;;9002226.02101,"1812,HZ43ZZZ ",.02)
;;HZ43ZZZ
;;9002226.02101,"1812,HZ43ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ44ZZZ ",.01)
;;HZ44ZZZ
;;9002226.02101,"1812,HZ44ZZZ ",.02)
;;HZ44ZZZ
;;9002226.02101,"1812,HZ44ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ45ZZZ ",.01)
;;HZ45ZZZ
;;9002226.02101,"1812,HZ45ZZZ ",.02)
;;HZ45ZZZ
;;9002226.02101,"1812,HZ45ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ46ZZZ ",.01)
;;HZ46ZZZ
;;9002226.02101,"1812,HZ46ZZZ ",.02)
;;HZ46ZZZ
;;9002226.02101,"1812,HZ46ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ47ZZZ ",.01)
;;HZ47ZZZ
;;9002226.02101,"1812,HZ47ZZZ ",.02)
;;HZ47ZZZ
;;9002226.02101,"1812,HZ47ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ48ZZZ ",.01)
;;HZ48ZZZ
;;9002226.02101,"1812,HZ48ZZZ ",.02)
;;HZ48ZZZ
;;9002226.02101,"1812,HZ48ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ49ZZZ ",.01)
;;HZ49ZZZ
;;9002226.02101,"1812,HZ49ZZZ ",.02)
;;HZ49ZZZ
;;9002226.02101,"1812,HZ49ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ4BZZZ ",.01)
;;HZ4BZZZ
;;9002226.02101,"1812,HZ4BZZZ ",.02)
;;HZ4BZZZ
;;9002226.02101,"1812,HZ4BZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ93ZZZ ",.01)
;;HZ93ZZZ
;;9002226.02101,"1812,HZ93ZZZ ",.02)
;;HZ93ZZZ
;;9002226.02101,"1812,HZ93ZZZ ",.03)
;;31
;;9002226.02101,"1812,HZ96ZZZ ",.01)
;;HZ96ZZZ
;;9002226.02101,"1812,HZ96ZZZ ",.02)
;;HZ96ZZZ
;;9002226.02101,"1812,HZ96ZZZ ",.03)
;;31
;;9002226.04101,"1812,1",.01)
;;BQI
;;9002226.05101,"1812,1",.01)
;;ALCOHOL
;
OTHER ; OTHER ROUTINES
Q
ATXO5N ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 01, 2014;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;;BQI ALCOHOL PROCEDURES
+3 ;
+4 ; This routine loads Taxonomy BQI ALCOHOL PROCEDURES
+5 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 DO OTHER
+5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
DO BULL^ATXSTX2
+6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
DO TAX^ATXSTX2
+7 DO KILL^ATXSTX2
+8 QUIT
+9 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"94.46 ")
+2 ;;1
+3 ;;21,"94.53 ")
+4 ;;2
+5 ;;21,"94.61 ")
+6 ;;3
+7 ;;21,"94.67 ")
+8 ;;4
+9 ;;21,"HZ2ZZZZ ")
+10 ;;27
+11 ;;21,"HZ30ZZZ ")
+12 ;;5
+13 ;;21,"HZ31ZZZ ")
+14 ;;6
+15 ;;21,"HZ32ZZZ ")
+16 ;;7
+17 ;;21,"HZ33ZZZ ")
+18 ;;8
+19 ;;21,"HZ34ZZZ ")
+20 ;;9
+21 ;;21,"HZ35ZZZ ")
+22 ;;10
+23 ;;21,"HZ36ZZZ ")
+24 ;;11
+25 ;;21,"HZ37ZZZ ")
+26 ;;12
+27 ;;21,"HZ38ZZZ ")
+28 ;;13
+29 ;;21,"HZ39ZZZ ")
+30 ;;14
+31 ;;21,"HZ3BZZZ ")
+32 ;;15
+33 ;;21,"HZ40ZZZ ")
+34 ;;16
+35 ;;21,"HZ41ZZZ ")
+36 ;;17
+37 ;;21,"HZ42ZZZ ")
+38 ;;18
+39 ;;21,"HZ43ZZZ ")
+40 ;;19
+41 ;;21,"HZ44ZZZ ")
+42 ;;20
+43 ;;21,"HZ45ZZZ ")
+44 ;;21
+45 ;;21,"HZ46ZZZ ")
+46 ;;22
+47 ;;21,"HZ47ZZZ ")
+48 ;;23
+49 ;;21,"HZ48ZZZ ")
+50 ;;24
+51 ;;21,"HZ49ZZZ ")
+52 ;;25
+53 ;;21,"HZ4BZZZ ")
+54 ;;26
+55 ;;21,"HZ93ZZZ ")
+56 ;;28
+57 ;;21,"HZ96ZZZ ")
+58 ;;29
+59 ;;9002226,1812,.01)
+60 ;;BQI ALCOHOL PROCEDURES
+61 ;;9002226,1812,.02)
+62 ;;Alcohol procedures
+63 ;;9002226,1812,.04)
+64 ;;n
+65 ;;9002226,1812,.06)
+66 ;;@
+67 ;;9002226,1812,.08)
+68 ;;0
+69 ;;9002226,1812,.09)
+70 ;;3140401
+71 ;;9002226,1812,.11)
+72 ;;@
+73 ;;9002226,1812,.12)
+74 ;;255
+75 ;;9002226,1812,.13)
+76 ;;1
+77 ;;9002226,1812,.14)
+78 ;;@
+79 ;;9002226,1812,.15)
+80 ;;80.1
+81 ;;9002226,1812,.16)
+82 ;;@
+83 ;;9002226,1812,.17)
+84 ;;@
+85 ;;9002226,1812,3101)
+86 ;;@
+87 ;;9002226.01101,"1812,1",.01)
+88 ;;Used by HIV Management System for the Quality of Care report and the
+89 ;;9002226.01101,"1812,2",.01)
+90 ;;Supplement.
+91 ;;9002226.02101,"1812,94.46 ",.01)
+92 ;;94.46
+93 ;;9002226.02101,"1812,94.46 ",.02)
+94 ;;94.46
+95 ;;9002226.02101,"1812,94.46 ",.03)
+96 ;;2
+97 ;;9002226.02101,"1812,94.53 ",.01)
+98 ;;94.53
+99 ;;9002226.02101,"1812,94.53 ",.02)
+100 ;;94.53
+101 ;;9002226.02101,"1812,94.53 ",.03)
+102 ;;2
+103 ;;9002226.02101,"1812,94.61 ",.01)
+104 ;;94.61
+105 ;;9002226.02101,"1812,94.61 ",.02)
+106 ;;94.63
+107 ;;9002226.02101,"1812,94.61 ",.03)
+108 ;;2
+109 ;;9002226.02101,"1812,94.67 ",.01)
+110 ;;94.67
+111 ;;9002226.02101,"1812,94.67 ",.02)
+112 ;;94.69
+113 ;;9002226.02101,"1812,94.67 ",.03)
+114 ;;2
+115 ;;9002226.02101,"1812,HZ2ZZZZ ",.01)
+116 ;;HZ2ZZZZ
+117 ;;9002226.02101,"1812,HZ2ZZZZ ",.02)
+118 ;;HZ2ZZZZ
+119 ;;9002226.02101,"1812,HZ2ZZZZ ",.03)
+120 ;;31
+121 ;;9002226.02101,"1812,HZ30ZZZ ",.01)
+122 ;;HZ30ZZZ
+123 ;;9002226.02101,"1812,HZ30ZZZ ",.02)
+124 ;;HZ30ZZZ
+125 ;;9002226.02101,"1812,HZ30ZZZ ",.03)
+126 ;;31
+127 ;;9002226.02101,"1812,HZ31ZZZ ",.01)
+128 ;;HZ31ZZZ
+129 ;;9002226.02101,"1812,HZ31ZZZ ",.02)
+130 ;;HZ31ZZZ
+131 ;;9002226.02101,"1812,HZ31ZZZ ",.03)
+132 ;;31
+133 ;;9002226.02101,"1812,HZ32ZZZ ",.01)
+134 ;;HZ32ZZZ
+135 ;;9002226.02101,"1812,HZ32ZZZ ",.02)
+136 ;;HZ32ZZZ
+137 ;;9002226.02101,"1812,HZ32ZZZ ",.03)
+138 ;;31
+139 ;;9002226.02101,"1812,HZ33ZZZ ",.01)
+140 ;;HZ33ZZZ
+141 ;;9002226.02101,"1812,HZ33ZZZ ",.02)
+142 ;;HZ33ZZZ
+143 ;;9002226.02101,"1812,HZ33ZZZ ",.03)
+144 ;;31
+145 ;;9002226.02101,"1812,HZ34ZZZ ",.01)
+146 ;;HZ34ZZZ
+147 ;;9002226.02101,"1812,HZ34ZZZ ",.02)
+148 ;;HZ34ZZZ
+149 ;;9002226.02101,"1812,HZ34ZZZ ",.03)
+150 ;;31
+151 ;;9002226.02101,"1812,HZ35ZZZ ",.01)
+152 ;;HZ35ZZZ
+153 ;;9002226.02101,"1812,HZ35ZZZ ",.02)
+154 ;;HZ35ZZZ
+155 ;;9002226.02101,"1812,HZ35ZZZ ",.03)
+156 ;;31
+157 ;;9002226.02101,"1812,HZ36ZZZ ",.01)
+158 ;;HZ36ZZZ
+159 ;;9002226.02101,"1812,HZ36ZZZ ",.02)
+160 ;;HZ36ZZZ
+161 ;;9002226.02101,"1812,HZ36ZZZ ",.03)
+162 ;;31
+163 ;;9002226.02101,"1812,HZ37ZZZ ",.01)
+164 ;;HZ37ZZZ
+165 ;;9002226.02101,"1812,HZ37ZZZ ",.02)
+166 ;;HZ37ZZZ
+167 ;;9002226.02101,"1812,HZ37ZZZ ",.03)
+168 ;;31
+169 ;;9002226.02101,"1812,HZ38ZZZ ",.01)
+170 ;;HZ38ZZZ
+171 ;;9002226.02101,"1812,HZ38ZZZ ",.02)
+172 ;;HZ38ZZZ
+173 ;;9002226.02101,"1812,HZ38ZZZ ",.03)
+174 ;;31
+175 ;;9002226.02101,"1812,HZ39ZZZ ",.01)
+176 ;;HZ39ZZZ
+177 ;;9002226.02101,"1812,HZ39ZZZ ",.02)
+178 ;;HZ39ZZZ
+179 ;;9002226.02101,"1812,HZ39ZZZ ",.03)
+180 ;;31
+181 ;;9002226.02101,"1812,HZ3BZZZ ",.01)
+182 ;;HZ3BZZZ
+183 ;;9002226.02101,"1812,HZ3BZZZ ",.02)
+184 ;;HZ3BZZZ
+185 ;;9002226.02101,"1812,HZ3BZZZ ",.03)
+186 ;;31
+187 ;;9002226.02101,"1812,HZ40ZZZ ",.01)
+188 ;;HZ40ZZZ
+189 ;;9002226.02101,"1812,HZ40ZZZ ",.02)
+190 ;;HZ40ZZZ
+191 ;;9002226.02101,"1812,HZ40ZZZ ",.03)
+192 ;;31
+193 ;;9002226.02101,"1812,HZ41ZZZ ",.01)
+194 ;;HZ41ZZZ
+195 ;;9002226.02101,"1812,HZ41ZZZ ",.02)
+196 ;;HZ41ZZZ
+197 ;;9002226.02101,"1812,HZ41ZZZ ",.03)
+198 ;;31
+199 ;;9002226.02101,"1812,HZ42ZZZ ",.01)
+200 ;;HZ42ZZZ
+201 ;;9002226.02101,"1812,HZ42ZZZ ",.02)
+202 ;;HZ42ZZZ
+203 ;;9002226.02101,"1812,HZ42ZZZ ",.03)
+204 ;;31
+205 ;;9002226.02101,"1812,HZ43ZZZ ",.01)
+206 ;;HZ43ZZZ
+207 ;;9002226.02101,"1812,HZ43ZZZ ",.02)
+208 ;;HZ43ZZZ
+209 ;;9002226.02101,"1812,HZ43ZZZ ",.03)
+210 ;;31
+211 ;;9002226.02101,"1812,HZ44ZZZ ",.01)
+212 ;;HZ44ZZZ
+213 ;;9002226.02101,"1812,HZ44ZZZ ",.02)
+214 ;;HZ44ZZZ
+215 ;;9002226.02101,"1812,HZ44ZZZ ",.03)
+216 ;;31
+217 ;;9002226.02101,"1812,HZ45ZZZ ",.01)
+218 ;;HZ45ZZZ
+219 ;;9002226.02101,"1812,HZ45ZZZ ",.02)
+220 ;;HZ45ZZZ
+221 ;;9002226.02101,"1812,HZ45ZZZ ",.03)
+222 ;;31
+223 ;;9002226.02101,"1812,HZ46ZZZ ",.01)
+224 ;;HZ46ZZZ
+225 ;;9002226.02101,"1812,HZ46ZZZ ",.02)
+226 ;;HZ46ZZZ
+227 ;;9002226.02101,"1812,HZ46ZZZ ",.03)
+228 ;;31
+229 ;;9002226.02101,"1812,HZ47ZZZ ",.01)
+230 ;;HZ47ZZZ
+231 ;;9002226.02101,"1812,HZ47ZZZ ",.02)
+232 ;;HZ47ZZZ
+233 ;;9002226.02101,"1812,HZ47ZZZ ",.03)
+234 ;;31
+235 ;;9002226.02101,"1812,HZ48ZZZ ",.01)
+236 ;;HZ48ZZZ
+237 ;;9002226.02101,"1812,HZ48ZZZ ",.02)
+238 ;;HZ48ZZZ
+239 ;;9002226.02101,"1812,HZ48ZZZ ",.03)
+240 ;;31
+241 ;;9002226.02101,"1812,HZ49ZZZ ",.01)
+242 ;;HZ49ZZZ
+243 ;;9002226.02101,"1812,HZ49ZZZ ",.02)
+244 ;;HZ49ZZZ
+245 ;;9002226.02101,"1812,HZ49ZZZ ",.03)
+246 ;;31
+247 ;;9002226.02101,"1812,HZ4BZZZ ",.01)
+248 ;;HZ4BZZZ
+249 ;;9002226.02101,"1812,HZ4BZZZ ",.02)
+250 ;;HZ4BZZZ
+251 ;;9002226.02101,"1812,HZ4BZZZ ",.03)
+252 ;;31
+253 ;;9002226.02101,"1812,HZ93ZZZ ",.01)
+254 ;;HZ93ZZZ
+255 ;;9002226.02101,"1812,HZ93ZZZ ",.02)
+256 ;;HZ93ZZZ
+257 ;;9002226.02101,"1812,HZ93ZZZ ",.03)
+258 ;;31
+259 ;;9002226.02101,"1812,HZ96ZZZ ",.01)
+260 ;;HZ96ZZZ
+261 ;;9002226.02101,"1812,HZ96ZZZ ",.02)
+262 ;;HZ96ZZZ
+263 ;;9002226.02101,"1812,HZ96ZZZ ",.03)
+264 ;;31
+265 ;;9002226.04101,"1812,1",.01)
+266 ;;BQI
+267 ;;9002226.05101,"1812,1",.01)
+268 ;;ALCOHOL
+269 ;
OTHER ; OTHER ROUTINES
+1 QUIT
