ATXFBE3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2018;
;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
;
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
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"03VJ3CZ ")
;;815
;;21,"03VJ3DZ ")
;;816
;;21,"03VJ3ZZ ")
;;817
;;21,"03VJ4BZ ")
;;818
;;21,"03VJ4CZ ")
;;819
;;21,"03VJ4DZ ")
;;820
;;21,"03VJ4ZZ ")
;;821
;;21,"03VK0BZ ")
;;822
;;21,"03VK0CZ ")
;;823
;;21,"03VK0DZ ")
;;824
;;21,"03VK0ZZ ")
;;825
;;21,"03VK3BZ ")
;;826
;;21,"03VK3CZ ")
;;827
;;21,"03VK3DZ ")
;;828
;;21,"03VK3ZZ ")
;;829
;;21,"03VK4BZ ")
;;830
;;21,"03VK4CZ ")
;;831
;;21,"03VK4DZ ")
;;832
;;21,"03VK4ZZ ")
;;833
;;21,"03VL0BZ ")
;;834
;;21,"03VL0CZ ")
;;835
;;21,"03VL0DZ ")
;;836
;;21,"03VL0ZZ ")
;;837
;;21,"03VL3BZ ")
;;838
;;21,"03VL3CZ ")
;;839
;;21,"03VL3DZ ")
;;840
;;21,"03VL3ZZ ")
;;841
;;21,"03VL4BZ ")
;;842
;;21,"03VL4CZ ")
;;843
;;21,"03VL4DZ ")
;;844
;;21,"03VL4ZZ ")
;;845
;;21,"03VM0BZ ")
;;846
;;21,"03VM0CZ ")
;;847
;;21,"03VM0DZ ")
;;848
;;21,"03VM0ZZ ")
;;849
;;21,"03VM3BZ ")
;;850
;;21,"03VM3CZ ")
;;851
;;21,"03VM3DZ ")
;;852
;;21,"03VM3ZZ ")
;;853
;;21,"03VM4BZ ")
;;854
;;21,"03VM4CZ ")
;;855
;;21,"03VM4DZ ")
;;856
;;21,"03VM4ZZ ")
;;857
;;21,"03VN0BZ ")
;;858
;;21,"03VN0CZ ")
;;859
;;21,"03VN0DZ ")
;;860
;;21,"03VN0ZZ ")
;;861
;;21,"03VN3BZ ")
;;862
;;21,"03VN3CZ ")
;;863
;;21,"03VN3DZ ")
;;864
;;21,"03VN3ZZ ")
;;865
;;21,"03VN4BZ ")
;;866
;;21,"03VN4CZ ")
;;867
;;21,"03VN4DZ ")
;;868
;;21,"03VN4ZZ ")
;;869
;;21,"0G560ZZ ")
;;870
;;21,"0G563ZZ ")
;;871
;;21,"0G564ZZ ")
;;872
;;21,"0G570ZZ ")
;;873
;;21,"0G573ZZ ")
;;874
;;21,"0G574ZZ ")
;;875
;;21,"0G580ZZ ")
;;876
;;21,"0G583ZZ ")
;;877
;;21,"0G584ZZ ")
;;878
;;21,"0G9600Z ")
;;879
;;21,"0G960ZX ")
;;880
;;21,"0G960ZZ ")
;;881
;;21,"0G9630Z ")
;;882
;;21,"0G963ZX ")
;;883
;;21,"0G963ZZ ")
;;884
;;21,"0G9640Z ")
;;885
;;21,"0G964ZX ")
;;886
;;21,"0G964ZZ ")
;;887
;;21,"0G9700Z ")
;;888
;;21,"0G970ZX ")
;;889
;;21,"0G970ZZ ")
;;890
;;21,"0G9730Z ")
;;891
;;21,"0G973ZX ")
;;892
;;21,"0G973ZZ ")
;;893
;;21,"0G9740Z ")
;;894
;;21,"0G974ZX ")
;;895
;;21,"0G974ZZ ")
;;896
;;21,"0G9800Z ")
;;897
;;21,"0G980ZX ")
;;898
;;21,"0G980ZZ ")
;;899
;;21,"0G9830Z ")
;;900
;;21,"0G983ZX ")
;;901
;;21,"0G983ZZ ")
;;902
;;21,"0G9840Z ")
;;903
;;21,"0G984ZX ")
;;904
;;21,"0G984ZZ ")
;;905
;;21,"0GB60ZX ")
;;906
;;21,"0GB60ZZ ")
;;907
;;21,"0GB63ZX ")
;;908
;;21,"0GB63ZZ ")
;;909
;;21,"0GB64ZX ")
;;910
;;21,"0GB64ZZ ")
;;911
;;21,"0GB70ZX ")
;;912
;;21,"0GB70ZZ ")
;;913
;;21,"0GB73ZX ")
;;914
;;21,"0GB73ZZ ")
;;915
;;21,"0GB74ZX ")
;;916
;;21,"0GB74ZZ ")
;;917
;;21,"0GB80ZX ")
;;918
;;21,"0GB80ZZ ")
;;919
;;21,"0GB83ZX ")
;;920
;;21,"0GB83ZZ ")
;;921
;;21,"0GB84ZX ")
;;922
;;21,"0GB84ZZ ")
;;923
;;21,"0GC60ZZ ")
;;924
;;21,"0GC63ZZ ")
;;925
;;21,"0GC64ZZ ")
;;926
;;21,"0GC70ZZ ")
;;927
;;21,"0GC73ZZ ")
;;928
;;21,"0GC74ZZ ")
;;929
;;21,"0GC80ZZ ")
;;930
;;21,"0GC83ZZ ")
;;931
;;21,"0GC84ZZ ")
;;932
;;21,"0GN60ZZ ")
;;933
;;21,"0GN63ZZ ")
;;934
;;21,"0GN64ZZ ")
;;935
;;21,"0GN70ZZ ")
;;936
;;21,"0GN73ZZ ")
;;937
;;21,"0GN74ZZ ")
;;938
;;21,"0GN80ZZ ")
;;939
;;21,"0GN83ZZ ")
;;940
;;21,"0GN84ZZ ")
;;941
;;21,"0GQ60ZZ ")
;;942
;;21,"0GQ63ZZ ")
;;943
;;21,"0GQ64ZZ ")
;;944
;;21,"0GQ70ZZ ")
;;945
;;21,"0GQ73ZZ ")
;;946
;;21,"0GQ74ZZ ")
;;947
;;21,"0GQ80ZZ ")
;;948
;;21,"0GQ83ZZ ")
;;949
;;21,"0GQ84ZZ ")
;;950
;;21,"0GT60ZZ ")
;;951
;;21,"0GT64ZZ ")
;;952
;;21,"0GT70ZZ ")
;;953
;;21,"0GT74ZZ ")
;;954
;;21,"0GT80ZZ ")
;;955
;;21,"0GT84ZZ ")
;;956
;;21,"38.02 ")
;;957
;;21,"38.12 ")
;;958
;;21,"38.22 ")
;;959
;;21,"38.30 ")
;;960
;;21,"38.42 ")
;;961
;;21,"39.22 ")
;;962
;;21,"39.28 ")
;;963
;;21,"88.41 ")
;;964
;;21,"B3060ZZ ")
;;965
;;21,"B3070ZZ ")
;;966
;;21,"B3080ZZ ")
;;967
;;21,"B3160ZZ ")
;;968
;;21,"B3161ZZ ")
;;969
;;21,"B316YZZ ")
;;970
;;21,"B3170ZZ ")
;;971
;;21,"B3171ZZ ")
;;972
;;21,"B317YZZ ")
;;973
;;21,"B3180ZZ ")
;;974
;;21,"B3181ZZ ")
;;975
;;21,"B318YZZ ")
;;976
;;9002226,2209,.01)
;;BGP CAROTID INTERVENTION PROCS
;;9002226,2209,.02)
;;@
;;9002226,2209,.04)
;;n
;;9002226,2209,.06)
;;@
;;9002226,2209,.08)
;;@
;;9002226,2209,.09)
;;3171214
;;9002226,2209,.11)
;;@
;;9002226,2209,.12)
;;255
;;9002226,2209,.13)
;;1
;;9002226,2209,.14)
;;@
;;9002226,2209,.15)
;;80.1
;;9002226,2209,.16)
;;@
;;9002226,2209,.17)
;;@
;;9002226,2209,.22)
;;1
;;9002226,2209,3101)
;;@
;;9002226.02101,"2209,00.61 ",.01)
;;00.61
;;9002226.02101,"2209,00.61 ",.02)
;;00.65
;;9002226.02101,"2209,00.61 ",.03)
;;2
;;9002226.02101,"2209,031H09G ",.01)
;;031H09G
;;9002226.02101,"2209,031H09G ",.02)
;;031H09G
;;9002226.02101,"2209,031H09G ",.03)
;;31
;;9002226.02101,"2209,031H09J ",.01)
;;031H09J
;;9002226.02101,"2209,031H09J ",.02)
;;031H09J
;;9002226.02101,"2209,031H09J ",.03)
;;31
;;9002226.02101,"2209,031H09K ",.01)
;;031H09K
;;9002226.02101,"2209,031H09K ",.02)
;;031H09K
;;9002226.02101,"2209,031H09K ",.03)
;;31
;;9002226.02101,"2209,031H0AG ",.01)
;;031H0AG
;;9002226.02101,"2209,031H0AG ",.02)
;;031H0AG
;;9002226.02101,"2209,031H0AG ",.03)
;;31
;;9002226.02101,"2209,031H0AJ ",.01)
;;031H0AJ
;;9002226.02101,"2209,031H0AJ ",.02)
;;031H0AJ
;;9002226.02101,"2209,031H0AJ ",.03)
;;31
;;9002226.02101,"2209,031H0AK ",.01)
;;031H0AK
;;9002226.02101,"2209,031H0AK ",.02)
;;031H0AK
;;9002226.02101,"2209,031H0AK ",.03)
;;31
;;9002226.02101,"2209,031H0JG ",.01)
;;031H0JG
;;9002226.02101,"2209,031H0JG ",.02)
;;031H0JG
;;9002226.02101,"2209,031H0JG ",.03)
;;31
;;9002226.02101,"2209,031H0JJ ",.01)
;;031H0JJ
;;9002226.02101,"2209,031H0JJ ",.02)
;;031H0JJ
;;9002226.02101,"2209,031H0JJ ",.03)
;;31
;;9002226.02101,"2209,031H0JK ",.01)
;;031H0JK
;;9002226.02101,"2209,031H0JK ",.02)
;;031H0JK
;;9002226.02101,"2209,031H0JK ",.03)
;;31
;;9002226.02101,"2209,031H0KG ",.01)
;;031H0KG
;;9002226.02101,"2209,031H0KG ",.02)
;;031H0KG
;;9002226.02101,"2209,031H0KG ",.03)
;;31
;;9002226.02101,"2209,031H0KJ ",.01)
;;031H0KJ
;;9002226.02101,"2209,031H0KJ ",.02)
;;031H0KJ
;;9002226.02101,"2209,031H0KJ ",.03)
;;31
;;9002226.02101,"2209,031H0KK ",.01)
;;031H0KK
;;9002226.02101,"2209,031H0KK ",.02)
;;031H0KK
;;9002226.02101,"2209,031H0KK ",.03)
;;31
;;9002226.02101,"2209,031H0ZG ",.01)
;;031H0ZG
;;9002226.02101,"2209,031H0ZG ",.02)
;;031H0ZG
;;9002226.02101,"2209,031H0ZG ",.03)
;;31
;;9002226.02101,"2209,031H0ZJ ",.01)
;;031H0ZJ
;;9002226.02101,"2209,031H0ZJ ",.02)
;;031H0ZJ
;;9002226.02101,"2209,031H0ZJ ",.03)
;;31
;;9002226.02101,"2209,031H0ZK ",.01)
;;031H0ZK
;;9002226.02101,"2209,031H0ZK ",.02)
;;031H0ZK
;;9002226.02101,"2209,031H0ZK ",.03)
;;31
;;9002226.02101,"2209,031J09G ",.01)
;;031J09G
;;9002226.02101,"2209,031J09G ",.02)
;;031J09G
;;9002226.02101,"2209,031J09G ",.03)
;;31
;;9002226.02101,"2209,031J09J ",.01)
;;031J09J
;;9002226.02101,"2209,031J09J ",.02)
;;031J09J
;;9002226.02101,"2209,031J09J ",.03)
;;31
;;9002226.02101,"2209,031J09K ",.01)
;;031J09K
;;9002226.02101,"2209,031J09K ",.02)
;;031J09K
;;9002226.02101,"2209,031J09K ",.03)
;;31
;;9002226.02101,"2209,031J0AG ",.01)
;;031J0AG
;;9002226.02101,"2209,031J0AG ",.02)
;;031J0AG
;;9002226.02101,"2209,031J0AG ",.03)
;;31
;;9002226.02101,"2209,031J0AJ ",.01)
;;031J0AJ
;;9002226.02101,"2209,031J0AJ ",.02)
;;031J0AJ
;;9002226.02101,"2209,031J0AJ ",.03)
;;31
;;9002226.02101,"2209,031J0AK ",.01)
;;031J0AK
;;9002226.02101,"2209,031J0AK ",.02)
;;031J0AK
;;9002226.02101,"2209,031J0AK ",.03)
;;31
;;9002226.02101,"2209,031J0JG ",.01)
;;031J0JG
;;9002226.02101,"2209,031J0JG ",.02)
;;031J0JG
;;9002226.02101,"2209,031J0JG ",.03)
;;31
;;9002226.02101,"2209,031J0JJ ",.01)
;;031J0JJ
;;9002226.02101,"2209,031J0JJ ",.02)
;;031J0JJ
;;9002226.02101,"2209,031J0JJ ",.03)
;;31
;;9002226.02101,"2209,031J0JK ",.01)
;;031J0JK
;;9002226.02101,"2209,031J0JK ",.02)
;;031J0JK
;;9002226.02101,"2209,031J0JK ",.03)
;;31
;;9002226.02101,"2209,031J0KG ",.01)
;;031J0KG
;;9002226.02101,"2209,031J0KG ",.02)
;;031J0KG
;;9002226.02101,"2209,031J0KG ",.03)
;;31
;;9002226.02101,"2209,031J0KJ ",.01)
;;031J0KJ
;;9002226.02101,"2209,031J0KJ ",.02)
;;031J0KJ
;;9002226.02101,"2209,031J0KJ ",.03)
;;31
;;9002226.02101,"2209,031J0KK ",.01)
;;031J0KK
;;9002226.02101,"2209,031J0KK ",.02)
;;031J0KK
;;9002226.02101,"2209,031J0KK ",.03)
;;31
;;9002226.02101,"2209,031J0ZG ",.01)
;;031J0ZG
;;9002226.02101,"2209,031J0ZG ",.02)
;;031J0ZG
;;9002226.02101,"2209,031J0ZG ",.03)
;;31
;;9002226.02101,"2209,031J0ZJ ",.01)
;;031J0ZJ
;;9002226.02101,"2209,031J0ZJ ",.02)
;;031J0ZJ
;;9002226.02101,"2209,031J0ZJ ",.03)
;;31
;;9002226.02101,"2209,031J0ZK ",.01)
;;031J0ZK
;;9002226.02101,"2209,031J0ZK ",.02)
;;031J0ZK
;;9002226.02101,"2209,031J0ZK ",.03)
;;31
;;9002226.02101,"2209,031K09J ",.01)
;;031K09J
;;9002226.02101,"2209,031K09J ",.02)
;;031K09J
;;9002226.02101,"2209,031K09J ",.03)
;;31
;;9002226.02101,"2209,031K09K ",.01)
;;031K09K
;;9002226.02101,"2209,031K09K ",.02)
;;031K09K
;;9002226.02101,"2209,031K09K ",.03)
;;31
;;9002226.02101,"2209,031K0AJ ",.01)
;;031K0AJ
;;9002226.02101,"2209,031K0AJ ",.02)
;;031K0AJ
;;9002226.02101,"2209,031K0AJ ",.03)
;;31
;;9002226.02101,"2209,031K0AK ",.01)
;;031K0AK
;;9002226.02101,"2209,031K0AK ",.02)
;;031K0AK
;;9002226.02101,"2209,031K0AK ",.03)
;;31
;;9002226.02101,"2209,031K0JJ ",.01)
;;031K0JJ
;;9002226.02101,"2209,031K0JJ ",.02)
;;031K0JJ
;;9002226.02101,"2209,031K0JJ ",.03)
;;31
;;9002226.02101,"2209,031K0JK ",.01)
;;031K0JK
;;9002226.02101,"2209,031K0JK ",.02)
;;031K0JK
;;9002226.02101,"2209,031K0JK ",.03)
;;31
;;9002226.02101,"2209,031K0KJ ",.01)
;;031K0KJ
;;9002226.02101,"2209,031K0KJ ",.02)
;;031K0KJ
;;9002226.02101,"2209,031K0KJ ",.03)
;;31
;;9002226.02101,"2209,031K0KK ",.01)
;;031K0KK
;;9002226.02101,"2209,031K0KK ",.02)
;;031K0KK
;;9002226.02101,"2209,031K0KK ",.03)
;;31
;;9002226.02101,"2209,031K0ZJ ",.01)
;;031K0ZJ
;;9002226.02101,"2209,031K0ZJ ",.02)
;;031K0ZJ
;;9002226.02101,"2209,031K0ZJ ",.03)
;;31
;;9002226.02101,"2209,031K0ZK ",.01)
;;031K0ZK
;;9002226.02101,"2209,031K0ZK ",.02)
;;031K0ZK
;;9002226.02101,"2209,031K0ZK ",.03)
;;31
;;9002226.02101,"2209,031L09J ",.01)
;;031L09J
;;9002226.02101,"2209,031L09J ",.02)
;;031L09J
;;9002226.02101,"2209,031L09J ",.03)
;;31
;;9002226.02101,"2209,031L09K ",.01)
;;031L09K
;;9002226.02101,"2209,031L09K ",.02)
;;031L09K
;;9002226.02101,"2209,031L09K ",.03)
;;31
;;9002226.02101,"2209,031L0AJ ",.01)
;;031L0AJ
;;9002226.02101,"2209,031L0AJ ",.02)
;;031L0AJ
;;9002226.02101,"2209,031L0AJ ",.03)
;;31
;;9002226.02101,"2209,031L0AK ",.01)
;;031L0AK
ATXFBE3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2018;
+1 ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
+2 ;
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 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"03VJ3CZ ")
+2 ;;815
+3 ;;21,"03VJ3DZ ")
+4 ;;816
+5 ;;21,"03VJ3ZZ ")
+6 ;;817
+7 ;;21,"03VJ4BZ ")
+8 ;;818
+9 ;;21,"03VJ4CZ ")
+10 ;;819
+11 ;;21,"03VJ4DZ ")
+12 ;;820
+13 ;;21,"03VJ4ZZ ")
+14 ;;821
+15 ;;21,"03VK0BZ ")
+16 ;;822
+17 ;;21,"03VK0CZ ")
+18 ;;823
+19 ;;21,"03VK0DZ ")
+20 ;;824
+21 ;;21,"03VK0ZZ ")
+22 ;;825
+23 ;;21,"03VK3BZ ")
+24 ;;826
+25 ;;21,"03VK3CZ ")
+26 ;;827
+27 ;;21,"03VK3DZ ")
+28 ;;828
+29 ;;21,"03VK3ZZ ")
+30 ;;829
+31 ;;21,"03VK4BZ ")
+32 ;;830
+33 ;;21,"03VK4CZ ")
+34 ;;831
+35 ;;21,"03VK4DZ ")
+36 ;;832
+37 ;;21,"03VK4ZZ ")
+38 ;;833
+39 ;;21,"03VL0BZ ")
+40 ;;834
+41 ;;21,"03VL0CZ ")
+42 ;;835
+43 ;;21,"03VL0DZ ")
+44 ;;836
+45 ;;21,"03VL0ZZ ")
+46 ;;837
+47 ;;21,"03VL3BZ ")
+48 ;;838
+49 ;;21,"03VL3CZ ")
+50 ;;839
+51 ;;21,"03VL3DZ ")
+52 ;;840
+53 ;;21,"03VL3ZZ ")
+54 ;;841
+55 ;;21,"03VL4BZ ")
+56 ;;842
+57 ;;21,"03VL4CZ ")
+58 ;;843
+59 ;;21,"03VL4DZ ")
+60 ;;844
+61 ;;21,"03VL4ZZ ")
+62 ;;845
+63 ;;21,"03VM0BZ ")
+64 ;;846
+65 ;;21,"03VM0CZ ")
+66 ;;847
+67 ;;21,"03VM0DZ ")
+68 ;;848
+69 ;;21,"03VM0ZZ ")
+70 ;;849
+71 ;;21,"03VM3BZ ")
+72 ;;850
+73 ;;21,"03VM3CZ ")
+74 ;;851
+75 ;;21,"03VM3DZ ")
+76 ;;852
+77 ;;21,"03VM3ZZ ")
+78 ;;853
+79 ;;21,"03VM4BZ ")
+80 ;;854
+81 ;;21,"03VM4CZ ")
+82 ;;855
+83 ;;21,"03VM4DZ ")
+84 ;;856
+85 ;;21,"03VM4ZZ ")
+86 ;;857
+87 ;;21,"03VN0BZ ")
+88 ;;858
+89 ;;21,"03VN0CZ ")
+90 ;;859
+91 ;;21,"03VN0DZ ")
+92 ;;860
+93 ;;21,"03VN0ZZ ")
+94 ;;861
+95 ;;21,"03VN3BZ ")
+96 ;;862
+97 ;;21,"03VN3CZ ")
+98 ;;863
+99 ;;21,"03VN3DZ ")
+100 ;;864
+101 ;;21,"03VN3ZZ ")
+102 ;;865
+103 ;;21,"03VN4BZ ")
+104 ;;866
+105 ;;21,"03VN4CZ ")
+106 ;;867
+107 ;;21,"03VN4DZ ")
+108 ;;868
+109 ;;21,"03VN4ZZ ")
+110 ;;869
+111 ;;21,"0G560ZZ ")
+112 ;;870
+113 ;;21,"0G563ZZ ")
+114 ;;871
+115 ;;21,"0G564ZZ ")
+116 ;;872
+117 ;;21,"0G570ZZ ")
+118 ;;873
+119 ;;21,"0G573ZZ ")
+120 ;;874
+121 ;;21,"0G574ZZ ")
+122 ;;875
+123 ;;21,"0G580ZZ ")
+124 ;;876
+125 ;;21,"0G583ZZ ")
+126 ;;877
+127 ;;21,"0G584ZZ ")
+128 ;;878
+129 ;;21,"0G9600Z ")
+130 ;;879
+131 ;;21,"0G960ZX ")
+132 ;;880
+133 ;;21,"0G960ZZ ")
+134 ;;881
+135 ;;21,"0G9630Z ")
+136 ;;882
+137 ;;21,"0G963ZX ")
+138 ;;883
+139 ;;21,"0G963ZZ ")
+140 ;;884
+141 ;;21,"0G9640Z ")
+142 ;;885
+143 ;;21,"0G964ZX ")
+144 ;;886
+145 ;;21,"0G964ZZ ")
+146 ;;887
+147 ;;21,"0G9700Z ")
+148 ;;888
+149 ;;21,"0G970ZX ")
+150 ;;889
+151 ;;21,"0G970ZZ ")
+152 ;;890
+153 ;;21,"0G9730Z ")
+154 ;;891
+155 ;;21,"0G973ZX ")
+156 ;;892
+157 ;;21,"0G973ZZ ")
+158 ;;893
+159 ;;21,"0G9740Z ")
+160 ;;894
+161 ;;21,"0G974ZX ")
+162 ;;895
+163 ;;21,"0G974ZZ ")
+164 ;;896
+165 ;;21,"0G9800Z ")
+166 ;;897
+167 ;;21,"0G980ZX ")
+168 ;;898
+169 ;;21,"0G980ZZ ")
+170 ;;899
+171 ;;21,"0G9830Z ")
+172 ;;900
+173 ;;21,"0G983ZX ")
+174 ;;901
+175 ;;21,"0G983ZZ ")
+176 ;;902
+177 ;;21,"0G9840Z ")
+178 ;;903
+179 ;;21,"0G984ZX ")
+180 ;;904
+181 ;;21,"0G984ZZ ")
+182 ;;905
+183 ;;21,"0GB60ZX ")
+184 ;;906
+185 ;;21,"0GB60ZZ ")
+186 ;;907
+187 ;;21,"0GB63ZX ")
+188 ;;908
+189 ;;21,"0GB63ZZ ")
+190 ;;909
+191 ;;21,"0GB64ZX ")
+192 ;;910
+193 ;;21,"0GB64ZZ ")
+194 ;;911
+195 ;;21,"0GB70ZX ")
+196 ;;912
+197 ;;21,"0GB70ZZ ")
+198 ;;913
+199 ;;21,"0GB73ZX ")
+200 ;;914
+201 ;;21,"0GB73ZZ ")
+202 ;;915
+203 ;;21,"0GB74ZX ")
+204 ;;916
+205 ;;21,"0GB74ZZ ")
+206 ;;917
+207 ;;21,"0GB80ZX ")
+208 ;;918
+209 ;;21,"0GB80ZZ ")
+210 ;;919
+211 ;;21,"0GB83ZX ")
+212 ;;920
+213 ;;21,"0GB83ZZ ")
+214 ;;921
+215 ;;21,"0GB84ZX ")
+216 ;;922
+217 ;;21,"0GB84ZZ ")
+218 ;;923
+219 ;;21,"0GC60ZZ ")
+220 ;;924
+221 ;;21,"0GC63ZZ ")
+222 ;;925
+223 ;;21,"0GC64ZZ ")
+224 ;;926
+225 ;;21,"0GC70ZZ ")
+226 ;;927
+227 ;;21,"0GC73ZZ ")
+228 ;;928
+229 ;;21,"0GC74ZZ ")
+230 ;;929
+231 ;;21,"0GC80ZZ ")
+232 ;;930
+233 ;;21,"0GC83ZZ ")
+234 ;;931
+235 ;;21,"0GC84ZZ ")
+236 ;;932
+237 ;;21,"0GN60ZZ ")
+238 ;;933
+239 ;;21,"0GN63ZZ ")
+240 ;;934
+241 ;;21,"0GN64ZZ ")
+242 ;;935
+243 ;;21,"0GN70ZZ ")
+244 ;;936
+245 ;;21,"0GN73ZZ ")
+246 ;;937
+247 ;;21,"0GN74ZZ ")
+248 ;;938
+249 ;;21,"0GN80ZZ ")
+250 ;;939
+251 ;;21,"0GN83ZZ ")
+252 ;;940
+253 ;;21,"0GN84ZZ ")
+254 ;;941
+255 ;;21,"0GQ60ZZ ")
+256 ;;942
+257 ;;21,"0GQ63ZZ ")
+258 ;;943
+259 ;;21,"0GQ64ZZ ")
+260 ;;944
+261 ;;21,"0GQ70ZZ ")
+262 ;;945
+263 ;;21,"0GQ73ZZ ")
+264 ;;946
+265 ;;21,"0GQ74ZZ ")
+266 ;;947
+267 ;;21,"0GQ80ZZ ")
+268 ;;948
+269 ;;21,"0GQ83ZZ ")
+270 ;;949
+271 ;;21,"0GQ84ZZ ")
+272 ;;950
+273 ;;21,"0GT60ZZ ")
+274 ;;951
+275 ;;21,"0GT64ZZ ")
+276 ;;952
+277 ;;21,"0GT70ZZ ")
+278 ;;953
+279 ;;21,"0GT74ZZ ")
+280 ;;954
+281 ;;21,"0GT80ZZ ")
+282 ;;955
+283 ;;21,"0GT84ZZ ")
+284 ;;956
+285 ;;21,"38.02 ")
+286 ;;957
+287 ;;21,"38.12 ")
+288 ;;958
+289 ;;21,"38.22 ")
+290 ;;959
+291 ;;21,"38.30 ")
+292 ;;960
+293 ;;21,"38.42 ")
+294 ;;961
+295 ;;21,"39.22 ")
+296 ;;962
+297 ;;21,"39.28 ")
+298 ;;963
+299 ;;21,"88.41 ")
+300 ;;964
+301 ;;21,"B3060ZZ ")
+302 ;;965
+303 ;;21,"B3070ZZ ")
+304 ;;966
+305 ;;21,"B3080ZZ ")
+306 ;;967
+307 ;;21,"B3160ZZ ")
+308 ;;968
+309 ;;21,"B3161ZZ ")
+310 ;;969
+311 ;;21,"B316YZZ ")
+312 ;;970
+313 ;;21,"B3170ZZ ")
+314 ;;971
+315 ;;21,"B3171ZZ ")
+316 ;;972
+317 ;;21,"B317YZZ ")
+318 ;;973
+319 ;;21,"B3180ZZ ")
+320 ;;974
+321 ;;21,"B3181ZZ ")
+322 ;;975
+323 ;;21,"B318YZZ ")
+324 ;;976
+325 ;;9002226,2209,.01)
+326 ;;BGP CAROTID INTERVENTION PROCS
+327 ;;9002226,2209,.02)
+328 ;;@
+329 ;;9002226,2209,.04)
+330 ;;n
+331 ;;9002226,2209,.06)
+332 ;;@
+333 ;;9002226,2209,.08)
+334 ;;@
+335 ;;9002226,2209,.09)
+336 ;;3171214
+337 ;;9002226,2209,.11)
+338 ;;@
+339 ;;9002226,2209,.12)
+340 ;;255
+341 ;;9002226,2209,.13)
+342 ;;1
+343 ;;9002226,2209,.14)
+344 ;;@
+345 ;;9002226,2209,.15)
+346 ;;80.1
+347 ;;9002226,2209,.16)
+348 ;;@
+349 ;;9002226,2209,.17)
+350 ;;@
+351 ;;9002226,2209,.22)
+352 ;;1
+353 ;;9002226,2209,3101)
+354 ;;@
+355 ;;9002226.02101,"2209,00.61 ",.01)
+356 ;;00.61
+357 ;;9002226.02101,"2209,00.61 ",.02)
+358 ;;00.65
+359 ;;9002226.02101,"2209,00.61 ",.03)
+360 ;;2
+361 ;;9002226.02101,"2209,031H09G ",.01)
+362 ;;031H09G
+363 ;;9002226.02101,"2209,031H09G ",.02)
+364 ;;031H09G
+365 ;;9002226.02101,"2209,031H09G ",.03)
+366 ;;31
+367 ;;9002226.02101,"2209,031H09J ",.01)
+368 ;;031H09J
+369 ;;9002226.02101,"2209,031H09J ",.02)
+370 ;;031H09J
+371 ;;9002226.02101,"2209,031H09J ",.03)
+372 ;;31
+373 ;;9002226.02101,"2209,031H09K ",.01)
+374 ;;031H09K
+375 ;;9002226.02101,"2209,031H09K ",.02)
+376 ;;031H09K
+377 ;;9002226.02101,"2209,031H09K ",.03)
+378 ;;31
+379 ;;9002226.02101,"2209,031H0AG ",.01)
+380 ;;031H0AG
+381 ;;9002226.02101,"2209,031H0AG ",.02)
+382 ;;031H0AG
+383 ;;9002226.02101,"2209,031H0AG ",.03)
+384 ;;31
+385 ;;9002226.02101,"2209,031H0AJ ",.01)
+386 ;;031H0AJ
+387 ;;9002226.02101,"2209,031H0AJ ",.02)
+388 ;;031H0AJ
+389 ;;9002226.02101,"2209,031H0AJ ",.03)
+390 ;;31
+391 ;;9002226.02101,"2209,031H0AK ",.01)
+392 ;;031H0AK
+393 ;;9002226.02101,"2209,031H0AK ",.02)
+394 ;;031H0AK
+395 ;;9002226.02101,"2209,031H0AK ",.03)
+396 ;;31
+397 ;;9002226.02101,"2209,031H0JG ",.01)
+398 ;;031H0JG
+399 ;;9002226.02101,"2209,031H0JG ",.02)
+400 ;;031H0JG
+401 ;;9002226.02101,"2209,031H0JG ",.03)
+402 ;;31
+403 ;;9002226.02101,"2209,031H0JJ ",.01)
+404 ;;031H0JJ
+405 ;;9002226.02101,"2209,031H0JJ ",.02)
+406 ;;031H0JJ
+407 ;;9002226.02101,"2209,031H0JJ ",.03)
+408 ;;31
+409 ;;9002226.02101,"2209,031H0JK ",.01)
+410 ;;031H0JK
+411 ;;9002226.02101,"2209,031H0JK ",.02)
+412 ;;031H0JK
+413 ;;9002226.02101,"2209,031H0JK ",.03)
+414 ;;31
+415 ;;9002226.02101,"2209,031H0KG ",.01)
+416 ;;031H0KG
+417 ;;9002226.02101,"2209,031H0KG ",.02)
+418 ;;031H0KG
+419 ;;9002226.02101,"2209,031H0KG ",.03)
+420 ;;31
+421 ;;9002226.02101,"2209,031H0KJ ",.01)
+422 ;;031H0KJ
+423 ;;9002226.02101,"2209,031H0KJ ",.02)
+424 ;;031H0KJ
+425 ;;9002226.02101,"2209,031H0KJ ",.03)
+426 ;;31
+427 ;;9002226.02101,"2209,031H0KK ",.01)
+428 ;;031H0KK
+429 ;;9002226.02101,"2209,031H0KK ",.02)
+430 ;;031H0KK
+431 ;;9002226.02101,"2209,031H0KK ",.03)
+432 ;;31
+433 ;;9002226.02101,"2209,031H0ZG ",.01)
+434 ;;031H0ZG
+435 ;;9002226.02101,"2209,031H0ZG ",.02)
+436 ;;031H0ZG
+437 ;;9002226.02101,"2209,031H0ZG ",.03)
+438 ;;31
+439 ;;9002226.02101,"2209,031H0ZJ ",.01)
+440 ;;031H0ZJ
+441 ;;9002226.02101,"2209,031H0ZJ ",.02)
+442 ;;031H0ZJ
+443 ;;9002226.02101,"2209,031H0ZJ ",.03)
+444 ;;31
+445 ;;9002226.02101,"2209,031H0ZK ",.01)
+446 ;;031H0ZK
+447 ;;9002226.02101,"2209,031H0ZK ",.02)
+448 ;;031H0ZK
+449 ;;9002226.02101,"2209,031H0ZK ",.03)
+450 ;;31
+451 ;;9002226.02101,"2209,031J09G ",.01)
+452 ;;031J09G
+453 ;;9002226.02101,"2209,031J09G ",.02)
+454 ;;031J09G
+455 ;;9002226.02101,"2209,031J09G ",.03)
+456 ;;31
+457 ;;9002226.02101,"2209,031J09J ",.01)
+458 ;;031J09J
+459 ;;9002226.02101,"2209,031J09J ",.02)
+460 ;;031J09J
+461 ;;9002226.02101,"2209,031J09J ",.03)
+462 ;;31
+463 ;;9002226.02101,"2209,031J09K ",.01)
+464 ;;031J09K
+465 ;;9002226.02101,"2209,031J09K ",.02)
+466 ;;031J09K
+467 ;;9002226.02101,"2209,031J09K ",.03)
+468 ;;31
+469 ;;9002226.02101,"2209,031J0AG ",.01)
+470 ;;031J0AG
+471 ;;9002226.02101,"2209,031J0AG ",.02)
+472 ;;031J0AG
+473 ;;9002226.02101,"2209,031J0AG ",.03)
+474 ;;31
+475 ;;9002226.02101,"2209,031J0AJ ",.01)
+476 ;;031J0AJ
+477 ;;9002226.02101,"2209,031J0AJ ",.02)
+478 ;;031J0AJ
+479 ;;9002226.02101,"2209,031J0AJ ",.03)
+480 ;;31
+481 ;;9002226.02101,"2209,031J0AK ",.01)
+482 ;;031J0AK
+483 ;;9002226.02101,"2209,031J0AK ",.02)
+484 ;;031J0AK
+485 ;;9002226.02101,"2209,031J0AK ",.03)
+486 ;;31
+487 ;;9002226.02101,"2209,031J0JG ",.01)
+488 ;;031J0JG
+489 ;;9002226.02101,"2209,031J0JG ",.02)
+490 ;;031J0JG
+491 ;;9002226.02101,"2209,031J0JG ",.03)
+492 ;;31
+493 ;;9002226.02101,"2209,031J0JJ ",.01)
+494 ;;031J0JJ
+495 ;;9002226.02101,"2209,031J0JJ ",.02)
+496 ;;031J0JJ
+497 ;;9002226.02101,"2209,031J0JJ ",.03)
+498 ;;31
+499 ;;9002226.02101,"2209,031J0JK ",.01)
+500 ;;031J0JK
+501 ;;9002226.02101,"2209,031J0JK ",.02)
+502 ;;031J0JK
+503 ;;9002226.02101,"2209,031J0JK ",.03)
+504 ;;31
+505 ;;9002226.02101,"2209,031J0KG ",.01)
+506 ;;031J0KG
+507 ;;9002226.02101,"2209,031J0KG ",.02)
+508 ;;031J0KG
+509 ;;9002226.02101,"2209,031J0KG ",.03)
+510 ;;31
+511 ;;9002226.02101,"2209,031J0KJ ",.01)
+512 ;;031J0KJ
+513 ;;9002226.02101,"2209,031J0KJ ",.02)
+514 ;;031J0KJ
+515 ;;9002226.02101,"2209,031J0KJ ",.03)
+516 ;;31
+517 ;;9002226.02101,"2209,031J0KK ",.01)
+518 ;;031J0KK
+519 ;;9002226.02101,"2209,031J0KK ",.02)
+520 ;;031J0KK
+521 ;;9002226.02101,"2209,031J0KK ",.03)
+522 ;;31
+523 ;;9002226.02101,"2209,031J0ZG ",.01)
+524 ;;031J0ZG
+525 ;;9002226.02101,"2209,031J0ZG ",.02)
+526 ;;031J0ZG
+527 ;;9002226.02101,"2209,031J0ZG ",.03)
+528 ;;31
+529 ;;9002226.02101,"2209,031J0ZJ ",.01)
+530 ;;031J0ZJ
+531 ;;9002226.02101,"2209,031J0ZJ ",.02)
+532 ;;031J0ZJ
+533 ;;9002226.02101,"2209,031J0ZJ ",.03)
+534 ;;31
+535 ;;9002226.02101,"2209,031J0ZK ",.01)
+536 ;;031J0ZK
+537 ;;9002226.02101,"2209,031J0ZK ",.02)
+538 ;;031J0ZK
+539 ;;9002226.02101,"2209,031J0ZK ",.03)
+540 ;;31
+541 ;;9002226.02101,"2209,031K09J ",.01)
+542 ;;031K09J
+543 ;;9002226.02101,"2209,031K09J ",.02)
+544 ;;031K09J
+545 ;;9002226.02101,"2209,031K09J ",.03)
+546 ;;31
+547 ;;9002226.02101,"2209,031K09K ",.01)
+548 ;;031K09K
+549 ;;9002226.02101,"2209,031K09K ",.02)
+550 ;;031K09K
+551 ;;9002226.02101,"2209,031K09K ",.03)
+552 ;;31
+553 ;;9002226.02101,"2209,031K0AJ ",.01)
+554 ;;031K0AJ
+555 ;;9002226.02101,"2209,031K0AJ ",.02)
+556 ;;031K0AJ
+557 ;;9002226.02101,"2209,031K0AJ ",.03)
+558 ;;31
+559 ;;9002226.02101,"2209,031K0AK ",.01)
+560 ;;031K0AK
+561 ;;9002226.02101,"2209,031K0AK ",.02)
+562 ;;031K0AK
+563 ;;9002226.02101,"2209,031K0AK ",.03)
+564 ;;31
+565 ;;9002226.02101,"2209,031K0JJ ",.01)
+566 ;;031K0JJ
+567 ;;9002226.02101,"2209,031K0JJ ",.02)
+568 ;;031K0JJ
+569 ;;9002226.02101,"2209,031K0JJ ",.03)
+570 ;;31
+571 ;;9002226.02101,"2209,031K0JK ",.01)
+572 ;;031K0JK
+573 ;;9002226.02101,"2209,031K0JK ",.02)
+574 ;;031K0JK
+575 ;;9002226.02101,"2209,031K0JK ",.03)
+576 ;;31
+577 ;;9002226.02101,"2209,031K0KJ ",.01)
+578 ;;031K0KJ
+579 ;;9002226.02101,"2209,031K0KJ ",.02)
+580 ;;031K0KJ
+581 ;;9002226.02101,"2209,031K0KJ ",.03)
+582 ;;31
+583 ;;9002226.02101,"2209,031K0KK ",.01)
+584 ;;031K0KK
+585 ;;9002226.02101,"2209,031K0KK ",.02)
+586 ;;031K0KK
+587 ;;9002226.02101,"2209,031K0KK ",.03)
+588 ;;31
+589 ;;9002226.02101,"2209,031K0ZJ ",.01)
+590 ;;031K0ZJ
+591 ;;9002226.02101,"2209,031K0ZJ ",.02)
+592 ;;031K0ZJ
+593 ;;9002226.02101,"2209,031K0ZJ ",.03)
+594 ;;31
+595 ;;9002226.02101,"2209,031K0ZK ",.01)
+596 ;;031K0ZK
+597 ;;9002226.02101,"2209,031K0ZK ",.02)
+598 ;;031K0ZK
+599 ;;9002226.02101,"2209,031K0ZK ",.03)
+600 ;;31
+601 ;;9002226.02101,"2209,031L09J ",.01)
+602 ;;031L09J
+603 ;;9002226.02101,"2209,031L09J ",.02)
+604 ;;031L09J
+605 ;;9002226.02101,"2209,031L09J ",.03)
+606 ;;31
+607 ;;9002226.02101,"2209,031L09K ",.01)
+608 ;;031L09K
+609 ;;9002226.02101,"2209,031L09K ",.02)
+610 ;;031L09K
+611 ;;9002226.02101,"2209,031L09K ",.03)
+612 ;;31
+613 ;;9002226.02101,"2209,031L0AJ ",.01)
+614 ;;031L0AJ
+615 ;;9002226.02101,"2209,031L0AJ ",.02)
+616 ;;031L0AJ
+617 ;;9002226.02101,"2209,031L0AJ ",.03)
+618 ;;31
+619 ;;9002226.02101,"2209,031L0AK ",.01)
+620 ;;031L0AK
