ATXDBA ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;;BKM ANXIETY DXS
;
; This routine loads Taxonomy BKM ANXIETY DXS
;
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,"291.89 ")
;;1
;;21,"292.89 ")
;;2
;;21,"293.84 ")
;;3
;;21,"300.00 ")
;;8
;;21,"300.01 ")
;;4
;;21,"300.02 ")
;;5
;;21,"300.20 ")
;;9
;;21,"308.0 ")
;;10
;;21,"309.21 ")
;;6
;;21,"309.24 ")
;;7
;;21,"F06.4 ")
;;11
;;21,"F10.180 ")
;;12
;;21,"F10.280 ")
;;13
;;21,"F10.980 ")
;;14
;;21,"F12.180 ")
;;15
;;21,"F12.280 ")
;;16
;;21,"F12.980 ")
;;17
;;21,"F13.180 ")
;;18
;;21,"F13.280 ")
;;19
;;21,"F13.980 ")
;;20
;;21,"F14.180 ")
;;21
;;21,"F14.280 ")
;;22
;;21,"F14.980 ")
;;23
;;21,"F15.180 ")
;;24
;;21,"F15.280 ")
;;25
;;21,"F15.980 ")
;;26
;;21,"F16.180 ")
;;27
;;21,"F16.280 ")
;;28
;;21,"F16.980 ")
;;29
;;21,"F18.180 ")
;;30
;;21,"F18.280 ")
;;31
;;21,"F18.980 ")
;;32
;;21,"F19.180 ")
;;33
;;21,"F19.280 ")
;;34
;;21,"F19.980 ")
;;35
;;21,"F41.0 ")
;;36
;;21,"F41.1 ")
;;37
;;21,"F41.9 ")
;;38
;;21,"F43.0 ")
;;39
;;9002226,1459,.01)
;;BKM ANXIETY DXS
;;9002226,1459,.02)
;;BKM ANXIETY DXS
;;9002226,1459,.04)
;;n
;;9002226,1459,.06)
;;@
;;9002226,1459,.08)
;;0
;;9002226,1459,.09)
;;3140316
;;9002226,1459,.11)
;;@
;;9002226,1459,.12)
;;31
;;9002226,1459,.13)
;;1
;;9002226,1459,.14)
;;@
;;9002226,1459,.15)
;;80
;;9002226,1459,.16)
;;@
;;9002226,1459,.17)
;;@
;;9002226,1459,3101)
;;@
;;9002226.02101,"1459,291.89 ",.01)
;;291.89
;;9002226.02101,"1459,291.89 ",.02)
;;291.89
;;9002226.02101,"1459,291.89 ",.03)
;;1
;;9002226.02101,"1459,292.89 ",.01)
;;292.89
;;9002226.02101,"1459,292.89 ",.02)
;;292.89
;;9002226.02101,"1459,292.89 ",.03)
;;1
;;9002226.02101,"1459,293.84 ",.01)
;;293.84
;;9002226.02101,"1459,293.84 ",.02)
;;293.84
;;9002226.02101,"1459,293.84 ",.03)
;;1
;;9002226.02101,"1459,300.00 ",.01)
;;300.00
;;9002226.02101,"1459,300.00 ",.02)
;;300.00
;;9002226.02101,"1459,300.00 ",.03)
;;1
;;9002226.02101,"1459,300.01 ",.01)
;;300.01
;;9002226.02101,"1459,300.01 ",.02)
;;300.01
;;9002226.02101,"1459,300.01 ",.03)
;;1
;;9002226.02101,"1459,300.02 ",.01)
;;300.02
;;9002226.02101,"1459,300.02 ",.02)
;;300.02
;;9002226.02101,"1459,300.02 ",.03)
;;1
;;9002226.02101,"1459,300.20 ",.01)
;;300.20
;;9002226.02101,"1459,300.20 ",.02)
;;300.20
;;9002226.02101,"1459,300.20 ",.03)
;;1
;;9002226.02101,"1459,308.0 ",.01)
;;308.0
;;9002226.02101,"1459,308.0 ",.02)
;;308.0
;;9002226.02101,"1459,308.0 ",.03)
;;1
;;9002226.02101,"1459,309.21 ",.01)
;;309.21
;;9002226.02101,"1459,309.21 ",.02)
;;309.21
;;9002226.02101,"1459,309.21 ",.03)
;;1
;;9002226.02101,"1459,309.24 ",.01)
;;309.24
;;9002226.02101,"1459,309.24 ",.02)
;;309.24
;;9002226.02101,"1459,309.24 ",.03)
;;1
;;9002226.02101,"1459,F06.4 ",.01)
;;F06.4
;;9002226.02101,"1459,F06.4 ",.02)
;;F06.4
;;9002226.02101,"1459,F06.4 ",.03)
;;30
;;9002226.02101,"1459,F10.180 ",.01)
;;F10.180
;;9002226.02101,"1459,F10.180 ",.02)
;;F10.180
;;9002226.02101,"1459,F10.180 ",.03)
;;30
;;9002226.02101,"1459,F10.280 ",.01)
;;F10.280
;;9002226.02101,"1459,F10.280 ",.02)
;;F10.280
;;9002226.02101,"1459,F10.280 ",.03)
;;30
;;9002226.02101,"1459,F10.980 ",.01)
;;F10.980
;;9002226.02101,"1459,F10.980 ",.02)
;;F10.980
;;9002226.02101,"1459,F10.980 ",.03)
;;30
;;9002226.02101,"1459,F12.180 ",.01)
;;F12.180
;;9002226.02101,"1459,F12.180 ",.02)
;;F12.180
;;9002226.02101,"1459,F12.180 ",.03)
;;30
;;9002226.02101,"1459,F12.280 ",.01)
;;F12.280
;;9002226.02101,"1459,F12.280 ",.02)
;;F12.280
;;9002226.02101,"1459,F12.280 ",.03)
;;30
;;9002226.02101,"1459,F12.980 ",.01)
;;F12.980
;;9002226.02101,"1459,F12.980 ",.02)
;;F12.980
;;9002226.02101,"1459,F12.980 ",.03)
;;30
;;9002226.02101,"1459,F13.180 ",.01)
;;F13.180
;;9002226.02101,"1459,F13.180 ",.02)
;;F13.180
;;9002226.02101,"1459,F13.180 ",.03)
;;30
;;9002226.02101,"1459,F13.280 ",.01)
;;F13.280
;;9002226.02101,"1459,F13.280 ",.02)
;;F13.280
;;9002226.02101,"1459,F13.280 ",.03)
;;30
;;9002226.02101,"1459,F13.980 ",.01)
;;F13.980
;;9002226.02101,"1459,F13.980 ",.02)
;;F13.980
;;9002226.02101,"1459,F13.980 ",.03)
;;30
;;9002226.02101,"1459,F14.180 ",.01)
;;F14.180
;;9002226.02101,"1459,F14.180 ",.02)
;;F14.180
;;9002226.02101,"1459,F14.180 ",.03)
;;30
;;9002226.02101,"1459,F14.280 ",.01)
;;F14.280
;;9002226.02101,"1459,F14.280 ",.02)
;;F14.280
;;9002226.02101,"1459,F14.280 ",.03)
;;30
;;9002226.02101,"1459,F14.980 ",.01)
;;F14.980
;;9002226.02101,"1459,F14.980 ",.02)
;;F14.980
;;9002226.02101,"1459,F14.980 ",.03)
;;30
;;9002226.02101,"1459,F15.180 ",.01)
;;F15.180
;;9002226.02101,"1459,F15.180 ",.02)
;;F15.180
;;9002226.02101,"1459,F15.180 ",.03)
;;30
;;9002226.02101,"1459,F15.280 ",.01)
;;F15.280
;;9002226.02101,"1459,F15.280 ",.02)
;;F15.280
;;9002226.02101,"1459,F15.280 ",.03)
;;30
;;9002226.02101,"1459,F15.980 ",.01)
;;F15.980
;;9002226.02101,"1459,F15.980 ",.02)
;;F15.980
;;9002226.02101,"1459,F15.980 ",.03)
;;30
;;9002226.02101,"1459,F16.180 ",.01)
;;F16.180
;;9002226.02101,"1459,F16.180 ",.02)
;;F16.180
;;9002226.02101,"1459,F16.180 ",.03)
;;30
;;9002226.02101,"1459,F16.280 ",.01)
;;F16.280
;;9002226.02101,"1459,F16.280 ",.02)
;;F16.280
;;9002226.02101,"1459,F16.280 ",.03)
;;30
;;9002226.02101,"1459,F16.980 ",.01)
;;F16.980
;;9002226.02101,"1459,F16.980 ",.02)
;;F16.980
;;9002226.02101,"1459,F16.980 ",.03)
;;30
;;9002226.02101,"1459,F18.180 ",.01)
;;F18.180
;;9002226.02101,"1459,F18.180 ",.02)
;;F18.180
;;9002226.02101,"1459,F18.180 ",.03)
;;30
;;9002226.02101,"1459,F18.280 ",.01)
;;F18.280
;;9002226.02101,"1459,F18.280 ",.02)
;;F18.280
;;9002226.02101,"1459,F18.280 ",.03)
;;30
;;9002226.02101,"1459,F18.980 ",.01)
;;F18.980
;;9002226.02101,"1459,F18.980 ",.02)
;;F18.980
;;9002226.02101,"1459,F18.980 ",.03)
;;30
;;9002226.02101,"1459,F19.180 ",.01)
;;F19.180
;;9002226.02101,"1459,F19.180 ",.02)
;;F19.180
;;9002226.02101,"1459,F19.180 ",.03)
;;30
;;9002226.02101,"1459,F19.280 ",.01)
;;F19.280
;;9002226.02101,"1459,F19.280 ",.02)
;;F19.280
;;9002226.02101,"1459,F19.280 ",.03)
;;30
;;9002226.02101,"1459,F19.980 ",.01)
;;F19.980
;;9002226.02101,"1459,F19.980 ",.02)
;;F19.980
;;9002226.02101,"1459,F19.980 ",.03)
;;30
;;9002226.02101,"1459,F41.0 ",.01)
;;F41.0
;;9002226.02101,"1459,F41.0 ",.02)
;;F41.0
;;9002226.02101,"1459,F41.0 ",.03)
;;30
;;9002226.02101,"1459,F41.1 ",.01)
;;F41.1
;;9002226.02101,"1459,F41.1 ",.02)
;;F41.1
;;9002226.02101,"1459,F41.1 ",.03)
;;30
;;9002226.02101,"1459,F41.9 ",.01)
;;F41.9
;;9002226.02101,"1459,F41.9 ",.02)
;;F41.9
;;9002226.02101,"1459,F41.9 ",.03)
;;30
;;9002226.02101,"1459,F43.0 ",.01)
;;F43.0
;;9002226.02101,"1459,F43.0 ",.02)
;;F43.0
;;9002226.02101,"1459,F43.0 ",.03)
;;30
;
OTHER ; OTHER ROUTINES
Q
ATXDBA ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;;BKM ANXIETY DXS
+3 ;
+4 ; This routine loads Taxonomy BKM ANXIETY DXS
+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,"291.89 ")
+2 ;;1
+3 ;;21,"292.89 ")
+4 ;;2
+5 ;;21,"293.84 ")
+6 ;;3
+7 ;;21,"300.00 ")
+8 ;;8
+9 ;;21,"300.01 ")
+10 ;;4
+11 ;;21,"300.02 ")
+12 ;;5
+13 ;;21,"300.20 ")
+14 ;;9
+15 ;;21,"308.0 ")
+16 ;;10
+17 ;;21,"309.21 ")
+18 ;;6
+19 ;;21,"309.24 ")
+20 ;;7
+21 ;;21,"F06.4 ")
+22 ;;11
+23 ;;21,"F10.180 ")
+24 ;;12
+25 ;;21,"F10.280 ")
+26 ;;13
+27 ;;21,"F10.980 ")
+28 ;;14
+29 ;;21,"F12.180 ")
+30 ;;15
+31 ;;21,"F12.280 ")
+32 ;;16
+33 ;;21,"F12.980 ")
+34 ;;17
+35 ;;21,"F13.180 ")
+36 ;;18
+37 ;;21,"F13.280 ")
+38 ;;19
+39 ;;21,"F13.980 ")
+40 ;;20
+41 ;;21,"F14.180 ")
+42 ;;21
+43 ;;21,"F14.280 ")
+44 ;;22
+45 ;;21,"F14.980 ")
+46 ;;23
+47 ;;21,"F15.180 ")
+48 ;;24
+49 ;;21,"F15.280 ")
+50 ;;25
+51 ;;21,"F15.980 ")
+52 ;;26
+53 ;;21,"F16.180 ")
+54 ;;27
+55 ;;21,"F16.280 ")
+56 ;;28
+57 ;;21,"F16.980 ")
+58 ;;29
+59 ;;21,"F18.180 ")
+60 ;;30
+61 ;;21,"F18.280 ")
+62 ;;31
+63 ;;21,"F18.980 ")
+64 ;;32
+65 ;;21,"F19.180 ")
+66 ;;33
+67 ;;21,"F19.280 ")
+68 ;;34
+69 ;;21,"F19.980 ")
+70 ;;35
+71 ;;21,"F41.0 ")
+72 ;;36
+73 ;;21,"F41.1 ")
+74 ;;37
+75 ;;21,"F41.9 ")
+76 ;;38
+77 ;;21,"F43.0 ")
+78 ;;39
+79 ;;9002226,1459,.01)
+80 ;;BKM ANXIETY DXS
+81 ;;9002226,1459,.02)
+82 ;;BKM ANXIETY DXS
+83 ;;9002226,1459,.04)
+84 ;;n
+85 ;;9002226,1459,.06)
+86 ;;@
+87 ;;9002226,1459,.08)
+88 ;;0
+89 ;;9002226,1459,.09)
+90 ;;3140316
+91 ;;9002226,1459,.11)
+92 ;;@
+93 ;;9002226,1459,.12)
+94 ;;31
+95 ;;9002226,1459,.13)
+96 ;;1
+97 ;;9002226,1459,.14)
+98 ;;@
+99 ;;9002226,1459,.15)
+100 ;;80
+101 ;;9002226,1459,.16)
+102 ;;@
+103 ;;9002226,1459,.17)
+104 ;;@
+105 ;;9002226,1459,3101)
+106 ;;@
+107 ;;9002226.02101,"1459,291.89 ",.01)
+108 ;;291.89
+109 ;;9002226.02101,"1459,291.89 ",.02)
+110 ;;291.89
+111 ;;9002226.02101,"1459,291.89 ",.03)
+112 ;;1
+113 ;;9002226.02101,"1459,292.89 ",.01)
+114 ;;292.89
+115 ;;9002226.02101,"1459,292.89 ",.02)
+116 ;;292.89
+117 ;;9002226.02101,"1459,292.89 ",.03)
+118 ;;1
+119 ;;9002226.02101,"1459,293.84 ",.01)
+120 ;;293.84
+121 ;;9002226.02101,"1459,293.84 ",.02)
+122 ;;293.84
+123 ;;9002226.02101,"1459,293.84 ",.03)
+124 ;;1
+125 ;;9002226.02101,"1459,300.00 ",.01)
+126 ;;300.00
+127 ;;9002226.02101,"1459,300.00 ",.02)
+128 ;;300.00
+129 ;;9002226.02101,"1459,300.00 ",.03)
+130 ;;1
+131 ;;9002226.02101,"1459,300.01 ",.01)
+132 ;;300.01
+133 ;;9002226.02101,"1459,300.01 ",.02)
+134 ;;300.01
+135 ;;9002226.02101,"1459,300.01 ",.03)
+136 ;;1
+137 ;;9002226.02101,"1459,300.02 ",.01)
+138 ;;300.02
+139 ;;9002226.02101,"1459,300.02 ",.02)
+140 ;;300.02
+141 ;;9002226.02101,"1459,300.02 ",.03)
+142 ;;1
+143 ;;9002226.02101,"1459,300.20 ",.01)
+144 ;;300.20
+145 ;;9002226.02101,"1459,300.20 ",.02)
+146 ;;300.20
+147 ;;9002226.02101,"1459,300.20 ",.03)
+148 ;;1
+149 ;;9002226.02101,"1459,308.0 ",.01)
+150 ;;308.0
+151 ;;9002226.02101,"1459,308.0 ",.02)
+152 ;;308.0
+153 ;;9002226.02101,"1459,308.0 ",.03)
+154 ;;1
+155 ;;9002226.02101,"1459,309.21 ",.01)
+156 ;;309.21
+157 ;;9002226.02101,"1459,309.21 ",.02)
+158 ;;309.21
+159 ;;9002226.02101,"1459,309.21 ",.03)
+160 ;;1
+161 ;;9002226.02101,"1459,309.24 ",.01)
+162 ;;309.24
+163 ;;9002226.02101,"1459,309.24 ",.02)
+164 ;;309.24
+165 ;;9002226.02101,"1459,309.24 ",.03)
+166 ;;1
+167 ;;9002226.02101,"1459,F06.4 ",.01)
+168 ;;F06.4
+169 ;;9002226.02101,"1459,F06.4 ",.02)
+170 ;;F06.4
+171 ;;9002226.02101,"1459,F06.4 ",.03)
+172 ;;30
+173 ;;9002226.02101,"1459,F10.180 ",.01)
+174 ;;F10.180
+175 ;;9002226.02101,"1459,F10.180 ",.02)
+176 ;;F10.180
+177 ;;9002226.02101,"1459,F10.180 ",.03)
+178 ;;30
+179 ;;9002226.02101,"1459,F10.280 ",.01)
+180 ;;F10.280
+181 ;;9002226.02101,"1459,F10.280 ",.02)
+182 ;;F10.280
+183 ;;9002226.02101,"1459,F10.280 ",.03)
+184 ;;30
+185 ;;9002226.02101,"1459,F10.980 ",.01)
+186 ;;F10.980
+187 ;;9002226.02101,"1459,F10.980 ",.02)
+188 ;;F10.980
+189 ;;9002226.02101,"1459,F10.980 ",.03)
+190 ;;30
+191 ;;9002226.02101,"1459,F12.180 ",.01)
+192 ;;F12.180
+193 ;;9002226.02101,"1459,F12.180 ",.02)
+194 ;;F12.180
+195 ;;9002226.02101,"1459,F12.180 ",.03)
+196 ;;30
+197 ;;9002226.02101,"1459,F12.280 ",.01)
+198 ;;F12.280
+199 ;;9002226.02101,"1459,F12.280 ",.02)
+200 ;;F12.280
+201 ;;9002226.02101,"1459,F12.280 ",.03)
+202 ;;30
+203 ;;9002226.02101,"1459,F12.980 ",.01)
+204 ;;F12.980
+205 ;;9002226.02101,"1459,F12.980 ",.02)
+206 ;;F12.980
+207 ;;9002226.02101,"1459,F12.980 ",.03)
+208 ;;30
+209 ;;9002226.02101,"1459,F13.180 ",.01)
+210 ;;F13.180
+211 ;;9002226.02101,"1459,F13.180 ",.02)
+212 ;;F13.180
+213 ;;9002226.02101,"1459,F13.180 ",.03)
+214 ;;30
+215 ;;9002226.02101,"1459,F13.280 ",.01)
+216 ;;F13.280
+217 ;;9002226.02101,"1459,F13.280 ",.02)
+218 ;;F13.280
+219 ;;9002226.02101,"1459,F13.280 ",.03)
+220 ;;30
+221 ;;9002226.02101,"1459,F13.980 ",.01)
+222 ;;F13.980
+223 ;;9002226.02101,"1459,F13.980 ",.02)
+224 ;;F13.980
+225 ;;9002226.02101,"1459,F13.980 ",.03)
+226 ;;30
+227 ;;9002226.02101,"1459,F14.180 ",.01)
+228 ;;F14.180
+229 ;;9002226.02101,"1459,F14.180 ",.02)
+230 ;;F14.180
+231 ;;9002226.02101,"1459,F14.180 ",.03)
+232 ;;30
+233 ;;9002226.02101,"1459,F14.280 ",.01)
+234 ;;F14.280
+235 ;;9002226.02101,"1459,F14.280 ",.02)
+236 ;;F14.280
+237 ;;9002226.02101,"1459,F14.280 ",.03)
+238 ;;30
+239 ;;9002226.02101,"1459,F14.980 ",.01)
+240 ;;F14.980
+241 ;;9002226.02101,"1459,F14.980 ",.02)
+242 ;;F14.980
+243 ;;9002226.02101,"1459,F14.980 ",.03)
+244 ;;30
+245 ;;9002226.02101,"1459,F15.180 ",.01)
+246 ;;F15.180
+247 ;;9002226.02101,"1459,F15.180 ",.02)
+248 ;;F15.180
+249 ;;9002226.02101,"1459,F15.180 ",.03)
+250 ;;30
+251 ;;9002226.02101,"1459,F15.280 ",.01)
+252 ;;F15.280
+253 ;;9002226.02101,"1459,F15.280 ",.02)
+254 ;;F15.280
+255 ;;9002226.02101,"1459,F15.280 ",.03)
+256 ;;30
+257 ;;9002226.02101,"1459,F15.980 ",.01)
+258 ;;F15.980
+259 ;;9002226.02101,"1459,F15.980 ",.02)
+260 ;;F15.980
+261 ;;9002226.02101,"1459,F15.980 ",.03)
+262 ;;30
+263 ;;9002226.02101,"1459,F16.180 ",.01)
+264 ;;F16.180
+265 ;;9002226.02101,"1459,F16.180 ",.02)
+266 ;;F16.180
+267 ;;9002226.02101,"1459,F16.180 ",.03)
+268 ;;30
+269 ;;9002226.02101,"1459,F16.280 ",.01)
+270 ;;F16.280
+271 ;;9002226.02101,"1459,F16.280 ",.02)
+272 ;;F16.280
+273 ;;9002226.02101,"1459,F16.280 ",.03)
+274 ;;30
+275 ;;9002226.02101,"1459,F16.980 ",.01)
+276 ;;F16.980
+277 ;;9002226.02101,"1459,F16.980 ",.02)
+278 ;;F16.980
+279 ;;9002226.02101,"1459,F16.980 ",.03)
+280 ;;30
+281 ;;9002226.02101,"1459,F18.180 ",.01)
+282 ;;F18.180
+283 ;;9002226.02101,"1459,F18.180 ",.02)
+284 ;;F18.180
+285 ;;9002226.02101,"1459,F18.180 ",.03)
+286 ;;30
+287 ;;9002226.02101,"1459,F18.280 ",.01)
+288 ;;F18.280
+289 ;;9002226.02101,"1459,F18.280 ",.02)
+290 ;;F18.280
+291 ;;9002226.02101,"1459,F18.280 ",.03)
+292 ;;30
+293 ;;9002226.02101,"1459,F18.980 ",.01)
+294 ;;F18.980
+295 ;;9002226.02101,"1459,F18.980 ",.02)
+296 ;;F18.980
+297 ;;9002226.02101,"1459,F18.980 ",.03)
+298 ;;30
+299 ;;9002226.02101,"1459,F19.180 ",.01)
+300 ;;F19.180
+301 ;;9002226.02101,"1459,F19.180 ",.02)
+302 ;;F19.180
+303 ;;9002226.02101,"1459,F19.180 ",.03)
+304 ;;30
+305 ;;9002226.02101,"1459,F19.280 ",.01)
+306 ;;F19.280
+307 ;;9002226.02101,"1459,F19.280 ",.02)
+308 ;;F19.280
+309 ;;9002226.02101,"1459,F19.280 ",.03)
+310 ;;30
+311 ;;9002226.02101,"1459,F19.980 ",.01)
+312 ;;F19.980
+313 ;;9002226.02101,"1459,F19.980 ",.02)
+314 ;;F19.980
+315 ;;9002226.02101,"1459,F19.980 ",.03)
+316 ;;30
+317 ;;9002226.02101,"1459,F41.0 ",.01)
+318 ;;F41.0
+319 ;;9002226.02101,"1459,F41.0 ",.02)
+320 ;;F41.0
+321 ;;9002226.02101,"1459,F41.0 ",.03)
+322 ;;30
+323 ;;9002226.02101,"1459,F41.1 ",.01)
+324 ;;F41.1
+325 ;;9002226.02101,"1459,F41.1 ",.02)
+326 ;;F41.1
+327 ;;9002226.02101,"1459,F41.1 ",.03)
+328 ;;30
+329 ;;9002226.02101,"1459,F41.9 ",.01)
+330 ;;F41.9
+331 ;;9002226.02101,"1459,F41.9 ",.02)
+332 ;;F41.9
+333 ;;9002226.02101,"1459,F41.9 ",.03)
+334 ;;30
+335 ;;9002226.02101,"1459,F43.0 ",.01)
+336 ;;F43.0
+337 ;;9002226.02101,"1459,F43.0 ",.02)
+338 ;;F43.0
+339 ;;9002226.02101,"1459,F43.0 ",.03)
+340 ;;30
+341 ;
OTHER ; OTHER ROUTINES
+1 QUIT
