ATXF7A ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 27, 2017;
;;5.1;TAXONOMY;**20**;FEB 04, 1997;Build 33
;;BI HIGH RISK HEPA/B, CLD/HEPC
;
; This routine loads Taxonomy BI HIGH RISK HEPA/B, CLD/HEPC
;
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,"070.22 ")
;;3
;;21,"070.23 ")
;;4
;;21,"070.32 ")
;;5
;;21,"070.33 ")
;;6
;;21,"070.41 ")
;;7
;;21,"070.44 ")
;;8
;;21,"070.49 ")
;;9
;;21,"070.5 ")
;;10
;;21,"070.51 ")
;;11
;;21,"070.52 ")
;;12
;;21,"070.53 ")
;;13
;;21,"070.54 ")
;;14
;;21,"070.59 ")
;;15
;;21,"070.6 ")
;;16
;;21,"070.70 ")
;;17
;;21,"070.71 ")
;;18
;;21,"070.9 ")
;;19
;;21,"275.01 ")
;;20
;;21,"275.02 ")
;;21
;;21,"275.03 ")
;;22
;;21,"275.1 ")
;;23
;;21,"456.0 ")
;;24
;;21,"456.1 ")
;;25
;;21,"456.20 ")
;;26
;;21,"456.21 ")
;;27
;;21,"571.0 ")
;;28
;;21,"571.1 ")
;;29
;;21,"571.2 ")
;;30
;;21,"571.3 ")
;;31
;;21,"571.40 ")
;;32
;;21,"571.41 ")
;;33
;;21,"571.42 ")
;;34
;;21,"571.49 ")
;;35
;;21,"571.5 ")
;;36
;;21,"571.6 ")
;;37
;;21,"571.8 ")
;;38
;;21,"571.9 ")
;;39
;;21,"573.0 ")
;;40
;;21,"B16.0 ")
;;41
;;21,"B16.1 ")
;;42
;;21,"B16.2 ")
;;43
;;21,"B16.9 ")
;;44
;;21,"B17.0 ")
;;45
;;21,"B17.10 ")
;;46
;;21,"B17.11 ")
;;47
;;21,"B17.2 ")
;;48
;;21,"B17.8 ")
;;49
;;21,"B17.9 ")
;;50
;;21,"B18.0 ")
;;51
;;21,"B18.1 ")
;;52
;;21,"B18.2 ")
;;53
;;21,"B18.8 ")
;;54
;;21,"B18.9 ")
;;55
;;21,"B19.0 ")
;;56
;;21,"B19.10 ")
;;57
;;21,"B19.11 ")
;;58
;;21,"B19.20 ")
;;59
;;21,"B19.21 ")
;;60
;;21,"B19.9 ")
;;61
;;21,"B94.2 ")
;;62
;;21,"C22.0 ")
;;63
;;21,"C22.1 ")
;;64
;;21,"C22.2 ")
;;65
;;21,"C22.3 ")
;;66
;;21,"C22.4 ")
;;67
;;21,"C22.7 ")
;;68
;;21,"C22.8 ")
;;69
;;21,"C22.9 ")
;;70
;;21,"D37.6 ")
;;71
;;21,"E83.01 ")
;;72
;;21,"E83.110 ")
;;73
;;21,"E83.111 ")
;;74
;;21,"E83.118 ")
;;75
;;21,"E83.119 ")
;;76
;;21,"E88.01 ")
;;77
;;21,"G04.31 ")
;;78
;;21,"I81. ")
;;79
;;21,"I85.00 ")
;;80
;;21,"I85.01 ")
;;81
;;21,"K70.0 ")
;;82
;;21,"K70.10 ")
;;83
;;21,"K70.11 ")
;;84
;;21,"K70.2 ")
;;85
;;21,"K70.30 ")
;;86
;;21,"K70.31 ")
;;87
;;21,"K70.40 ")
;;88
;;21,"K70.41 ")
;;89
;;21,"K70.9 ")
;;90
;;21,"K71.0 ")
;;91
;;21,"K71.10 ")
;;92
;;21,"K71.11 ")
;;93
;;21,"K71.2 ")
;;94
;;21,"K71.3 ")
;;95
;;21,"K71.4 ")
;;96
;;21,"K71.50 ")
;;97
;;21,"K71.51 ")
;;98
;;21,"K71.6 ")
;;99
;;21,"K71.7 ")
;;100
;;21,"K71.8 ")
;;101
;;21,"K71.9 ")
;;102
;;21,"K72.00 ")
;;103
;;21,"K72.01 ")
;;104
;;21,"K72.10 ")
;;105
;;21,"K72.11 ")
;;106
;;21,"K72.90 ")
;;107
;;21,"K72.91 ")
;;108
;;21,"K73.0 ")
;;109
;;21,"K73.1 ")
;;110
;;21,"K73.2 ")
;;111
;;21,"K73.8 ")
;;112
;;21,"K73.9 ")
;;113
;;21,"K74.0 ")
;;114
;;21,"K74.1 ")
;;115
;;21,"K74.2 ")
;;116
;;21,"K74.3 ")
;;117
;;21,"K74.4 ")
;;118
;;21,"K74.5 ")
;;119
;;21,"K74.60 ")
;;120
;;21,"K74.69 ")
;;121
;;21,"K75.0 ")
;;122
;;21,"K75.1 ")
;;123
;;21,"K75.2 ")
;;124
;;21,"K75.3 ")
;;125
;;21,"K75.4 ")
;;126
;;21,"K75.81 ")
;;127
;;21,"K75.89 ")
;;128
;;21,"K75.9 ")
;;129
;;21,"K76.0 ")
;;130
;;21,"K76.1 ")
;;131
;;21,"K76.2 ")
;;132
;;21,"K76.3 ")
;;133
;;21,"K76.4 ")
;;134
;;21,"K76.5 ")
;;135
;;21,"K76.6 ")
;;136
;;21,"K76.7 ")
;;137
;;21,"K76.81 ")
;;138
;;21,"K76.9 ")
;;139
;;21,"K83.0 ")
;;140
;;21,"R18.0 ")
;;141
;;21,"R18.8 ")
;;142
;;21,"T86.40 ")
;;143
;;21,"T86.41 ")
;;144
;;21,"T86.42 ")
;;145
;;21,"T86.43 ")
;;146
;;21,"T86.49 ")
;;147
;;21,"V02.61 ")
;;1
;;21,"V02.62 ")
;;2
;;21,"Z22.52 ")
;;148
;;9002226,2154,.01)
;;BI HIGH RISK HEPA/B, CLD/HEPC
;;9002226,2154,.02)
;;@
;;9002226,2154,.04)
;;n
;;9002226,2154,.06)
;;@
;;9002226,2154,.08)
;;@
;;9002226,2154,.09)
;;3170127
;;9002226,2154,.11)
;;@
;;9002226,2154,.12)
;;31
;;9002226,2154,.13)
;;1
;;9002226,2154,.14)
;;@
;;9002226,2154,.15)
;;80
;;9002226,2154,.16)
;;@
;;9002226,2154,.17)
;;@
;;9002226,2154,.22)
;;1
;;9002226,2154,3101)
;;@
;;9002226.02101,"2154,070.22 ",.01)
;;070.22
;;9002226.02101,"2154,070.22 ",.02)
;;070.22
;;9002226.02101,"2154,070.22 ",.03)
;;1
;;9002226.02101,"2154,070.23 ",.01)
;;070.23
;;9002226.02101,"2154,070.23 ",.02)
;;070.23
;;9002226.02101,"2154,070.23 ",.03)
;;1
;;9002226.02101,"2154,070.32 ",.01)
;;070.32
;;9002226.02101,"2154,070.32 ",.02)
;;070.32
;;9002226.02101,"2154,070.32 ",.03)
;;1
;;9002226.02101,"2154,070.33 ",.01)
;;070.33
;;9002226.02101,"2154,070.33 ",.02)
;;070.33
;;9002226.02101,"2154,070.33 ",.03)
;;1
;;9002226.02101,"2154,070.41 ",.01)
;;070.41
;;9002226.02101,"2154,070.41 ",.02)
;;070.41
;;9002226.02101,"2154,070.41 ",.03)
;;1
;;9002226.02101,"2154,070.44 ",.01)
;;070.44
;;9002226.02101,"2154,070.44 ",.02)
;;070.44
;;9002226.02101,"2154,070.44 ",.03)
;;1
;;9002226.02101,"2154,070.49 ",.01)
;;070.49
;;9002226.02101,"2154,070.49 ",.02)
;;070.49
;;9002226.02101,"2154,070.49 ",.03)
;;1
;;9002226.02101,"2154,070.5 ",.01)
;;070.5
;;9002226.02101,"2154,070.5 ",.02)
;;070.5
;;9002226.02101,"2154,070.5 ",.03)
;;1
;;9002226.02101,"2154,070.51 ",.01)
;;070.51
;;9002226.02101,"2154,070.51 ",.02)
;;070.51
;;9002226.02101,"2154,070.51 ",.03)
;;1
;;9002226.02101,"2154,070.52 ",.01)
;;070.52
;;9002226.02101,"2154,070.52 ",.02)
;;070.52
;;9002226.02101,"2154,070.52 ",.03)
;;1
;;9002226.02101,"2154,070.53 ",.01)
;;070.53
;;9002226.02101,"2154,070.53 ",.02)
;;070.53
;;9002226.02101,"2154,070.53 ",.03)
;;1
;;9002226.02101,"2154,070.54 ",.01)
;;070.54
;;9002226.02101,"2154,070.54 ",.02)
;;070.54
;;9002226.02101,"2154,070.54 ",.03)
;;1
;;9002226.02101,"2154,070.59 ",.01)
;;070.59
;;9002226.02101,"2154,070.59 ",.02)
;;070.59
;;9002226.02101,"2154,070.59 ",.03)
;;1
;;9002226.02101,"2154,070.6 ",.01)
;;070.6
;;9002226.02101,"2154,070.6 ",.02)
;;070.6
;;9002226.02101,"2154,070.6 ",.03)
;;1
;;9002226.02101,"2154,070.70 ",.01)
;;070.70
;;9002226.02101,"2154,070.70 ",.02)
;;070.70
;;9002226.02101,"2154,070.70 ",.03)
;;1
;;9002226.02101,"2154,070.71 ",.01)
;;070.71
;;9002226.02101,"2154,070.71 ",.02)
;;070.71
;;9002226.02101,"2154,070.71 ",.03)
;;1
;;9002226.02101,"2154,070.9 ",.01)
;;070.9
;;9002226.02101,"2154,070.9 ",.02)
;;070.9
;;9002226.02101,"2154,070.9 ",.03)
;;1
;;9002226.02101,"2154,275.01 ",.01)
;;275.01
;;9002226.02101,"2154,275.01 ",.02)
;;275.01
;;9002226.02101,"2154,275.01 ",.03)
;;1
;;9002226.02101,"2154,275.02 ",.01)
;;275.02
;;9002226.02101,"2154,275.02 ",.02)
;;275.02
;;9002226.02101,"2154,275.02 ",.03)
;;1
;;9002226.02101,"2154,275.03 ",.01)
;;275.03
;;9002226.02101,"2154,275.03 ",.02)
;;275.03
;;9002226.02101,"2154,275.03 ",.03)
;;1
;;9002226.02101,"2154,275.1 ",.01)
;;275.1
;;9002226.02101,"2154,275.1 ",.02)
;;275.1
;;9002226.02101,"2154,275.1 ",.03)
;;1
;;9002226.02101,"2154,456.0 ",.01)
;;456.0
;;9002226.02101,"2154,456.0 ",.02)
;;456.0
;;9002226.02101,"2154,456.0 ",.03)
;;1
;;9002226.02101,"2154,456.1 ",.01)
;;456.1
;;9002226.02101,"2154,456.1 ",.02)
;;456.1
;;9002226.02101,"2154,456.1 ",.03)
;;1
;;9002226.02101,"2154,456.20 ",.01)
;;456.20
;;9002226.02101,"2154,456.20 ",.02)
;;456.20
;;9002226.02101,"2154,456.20 ",.03)
;;1
;;9002226.02101,"2154,456.21 ",.01)
;;456.21
;;9002226.02101,"2154,456.21 ",.02)
;;456.21
;;9002226.02101,"2154,456.21 ",.03)
;;1
;;9002226.02101,"2154,571.0 ",.01)
;;571.0
;;9002226.02101,"2154,571.0 ",.02)
;;571.0
;;9002226.02101,"2154,571.0 ",.03)
;;1
;;9002226.02101,"2154,571.1 ",.01)
;;571.1
;;9002226.02101,"2154,571.1 ",.02)
;;571.1
;;9002226.02101,"2154,571.1 ",.03)
;;1
;;9002226.02101,"2154,571.2 ",.01)
;;571.2
;;9002226.02101,"2154,571.2 ",.02)
;;571.2
;;9002226.02101,"2154,571.2 ",.03)
;;1
;;9002226.02101,"2154,571.3 ",.01)
;;571.3
;;9002226.02101,"2154,571.3 ",.02)
;;571.3
;;9002226.02101,"2154,571.3 ",.03)
;;1
;;9002226.02101,"2154,571.40 ",.01)
;;571.40
;;9002226.02101,"2154,571.40 ",.02)
;;571.40
;;9002226.02101,"2154,571.40 ",.03)
;;1
;;9002226.02101,"2154,571.41 ",.01)
;;571.41
;;9002226.02101,"2154,571.41 ",.02)
;;571.41
;;9002226.02101,"2154,571.41 ",.03)
;;1
;;9002226.02101,"2154,571.42 ",.01)
;;571.42
;;9002226.02101,"2154,571.42 ",.02)
;;571.42
;;9002226.02101,"2154,571.42 ",.03)
;;1
;;9002226.02101,"2154,571.49 ",.01)
;;571.49
;;9002226.02101,"2154,571.49 ",.02)
;;571.49
;;9002226.02101,"2154,571.49 ",.03)
;;1
;;9002226.02101,"2154,571.5 ",.01)
;;571.5
;;9002226.02101,"2154,571.5 ",.02)
;;571.5
;;9002226.02101,"2154,571.5 ",.03)
;;1
;;9002226.02101,"2154,571.6 ",.01)
;;571.6
;;9002226.02101,"2154,571.6 ",.02)
;;571.6
;;9002226.02101,"2154,571.6 ",.03)
;;1
;;9002226.02101,"2154,571.8 ",.01)
;;571.8
;;9002226.02101,"2154,571.8 ",.02)
;;571.8
;;9002226.02101,"2154,571.8 ",.03)
;;1
;;9002226.02101,"2154,571.9 ",.01)
;;571.9
;;9002226.02101,"2154,571.9 ",.02)
;;571.9
;;9002226.02101,"2154,571.9 ",.03)
;;1
;;9002226.02101,"2154,573.0 ",.01)
;;573.0
;;9002226.02101,"2154,573.0 ",.02)
;;573.0
;;9002226.02101,"2154,573.0 ",.03)
;;1
;;9002226.02101,"2154,B16.0 ",.01)
;;B16.0
;;9002226.02101,"2154,B16.0 ",.02)
;;B16.0
;;9002226.02101,"2154,B16.0 ",.03)
;;30
;;9002226.02101,"2154,B16.1 ",.01)
;;B16.1
;;9002226.02101,"2154,B16.1 ",.02)
;;B16.1
;;9002226.02101,"2154,B16.1 ",.03)
;;30
;;9002226.02101,"2154,B16.2 ",.01)
;;B16.2
;;9002226.02101,"2154,B16.2 ",.02)
;;B16.2
;;9002226.02101,"2154,B16.2 ",.03)
;;30
;;9002226.02101,"2154,B16.9 ",.01)
;;B16.9
;;9002226.02101,"2154,B16.9 ",.02)
;;B16.9
;;9002226.02101,"2154,B16.9 ",.03)
;;30
;;9002226.02101,"2154,B17.0 ",.01)
;;B17.0
;;9002226.02101,"2154,B17.0 ",.02)
;;B17.0
;;9002226.02101,"2154,B17.0 ",.03)
;;30
;;9002226.02101,"2154,B17.10 ",.01)
;;B17.10
;;9002226.02101,"2154,B17.10 ",.02)
;;B17.10
;;9002226.02101,"2154,B17.10 ",.03)
;;30
;;9002226.02101,"2154,B17.11 ",.01)
;;B17.11
;;9002226.02101,"2154,B17.11 ",.02)
;;B17.11
;;9002226.02101,"2154,B17.11 ",.03)
;;30
;;9002226.02101,"2154,B17.2 ",.01)
;;B17.2
;;9002226.02101,"2154,B17.2 ",.02)
;;B17.2
;;9002226.02101,"2154,B17.2 ",.03)
;;30
;;9002226.02101,"2154,B17.8 ",.01)
;;B17.8
;;9002226.02101,"2154,B17.8 ",.02)
;;B17.8
;;9002226.02101,"2154,B17.8 ",.03)
;;30
;;9002226.02101,"2154,B17.9 ",.01)
;;B17.9
;;9002226.02101,"2154,B17.9 ",.02)
;;B17.9
;;9002226.02101,"2154,B17.9 ",.03)
;;30
;;9002226.02101,"2154,B18.0 ",.01)
;;B18.0
;;9002226.02101,"2154,B18.0 ",.02)
;;B18.0
;;9002226.02101,"2154,B18.0 ",.03)
;;30
;;9002226.02101,"2154,B18.1 ",.01)
;;B18.1
;;9002226.02101,"2154,B18.1 ",.02)
;;B18.1
;;9002226.02101,"2154,B18.1 ",.03)
;;30
;
OTHER ; OTHER ROUTINES
D ^ATXF7A2
D ^ATXF7A3
Q
ATXF7A ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 27, 2017;
+1 ;;5.1;TAXONOMY;**20**;FEB 04, 1997;Build 33
+2 ;;BI HIGH RISK HEPA/B, CLD/HEPC
+3 ;
+4 ; This routine loads Taxonomy BI HIGH RISK HEPA/B, CLD/HEPC
+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,"070.22 ")
+2 ;;3
+3 ;;21,"070.23 ")
+4 ;;4
+5 ;;21,"070.32 ")
+6 ;;5
+7 ;;21,"070.33 ")
+8 ;;6
+9 ;;21,"070.41 ")
+10 ;;7
+11 ;;21,"070.44 ")
+12 ;;8
+13 ;;21,"070.49 ")
+14 ;;9
+15 ;;21,"070.5 ")
+16 ;;10
+17 ;;21,"070.51 ")
+18 ;;11
+19 ;;21,"070.52 ")
+20 ;;12
+21 ;;21,"070.53 ")
+22 ;;13
+23 ;;21,"070.54 ")
+24 ;;14
+25 ;;21,"070.59 ")
+26 ;;15
+27 ;;21,"070.6 ")
+28 ;;16
+29 ;;21,"070.70 ")
+30 ;;17
+31 ;;21,"070.71 ")
+32 ;;18
+33 ;;21,"070.9 ")
+34 ;;19
+35 ;;21,"275.01 ")
+36 ;;20
+37 ;;21,"275.02 ")
+38 ;;21
+39 ;;21,"275.03 ")
+40 ;;22
+41 ;;21,"275.1 ")
+42 ;;23
+43 ;;21,"456.0 ")
+44 ;;24
+45 ;;21,"456.1 ")
+46 ;;25
+47 ;;21,"456.20 ")
+48 ;;26
+49 ;;21,"456.21 ")
+50 ;;27
+51 ;;21,"571.0 ")
+52 ;;28
+53 ;;21,"571.1 ")
+54 ;;29
+55 ;;21,"571.2 ")
+56 ;;30
+57 ;;21,"571.3 ")
+58 ;;31
+59 ;;21,"571.40 ")
+60 ;;32
+61 ;;21,"571.41 ")
+62 ;;33
+63 ;;21,"571.42 ")
+64 ;;34
+65 ;;21,"571.49 ")
+66 ;;35
+67 ;;21,"571.5 ")
+68 ;;36
+69 ;;21,"571.6 ")
+70 ;;37
+71 ;;21,"571.8 ")
+72 ;;38
+73 ;;21,"571.9 ")
+74 ;;39
+75 ;;21,"573.0 ")
+76 ;;40
+77 ;;21,"B16.0 ")
+78 ;;41
+79 ;;21,"B16.1 ")
+80 ;;42
+81 ;;21,"B16.2 ")
+82 ;;43
+83 ;;21,"B16.9 ")
+84 ;;44
+85 ;;21,"B17.0 ")
+86 ;;45
+87 ;;21,"B17.10 ")
+88 ;;46
+89 ;;21,"B17.11 ")
+90 ;;47
+91 ;;21,"B17.2 ")
+92 ;;48
+93 ;;21,"B17.8 ")
+94 ;;49
+95 ;;21,"B17.9 ")
+96 ;;50
+97 ;;21,"B18.0 ")
+98 ;;51
+99 ;;21,"B18.1 ")
+100 ;;52
+101 ;;21,"B18.2 ")
+102 ;;53
+103 ;;21,"B18.8 ")
+104 ;;54
+105 ;;21,"B18.9 ")
+106 ;;55
+107 ;;21,"B19.0 ")
+108 ;;56
+109 ;;21,"B19.10 ")
+110 ;;57
+111 ;;21,"B19.11 ")
+112 ;;58
+113 ;;21,"B19.20 ")
+114 ;;59
+115 ;;21,"B19.21 ")
+116 ;;60
+117 ;;21,"B19.9 ")
+118 ;;61
+119 ;;21,"B94.2 ")
+120 ;;62
+121 ;;21,"C22.0 ")
+122 ;;63
+123 ;;21,"C22.1 ")
+124 ;;64
+125 ;;21,"C22.2 ")
+126 ;;65
+127 ;;21,"C22.3 ")
+128 ;;66
+129 ;;21,"C22.4 ")
+130 ;;67
+131 ;;21,"C22.7 ")
+132 ;;68
+133 ;;21,"C22.8 ")
+134 ;;69
+135 ;;21,"C22.9 ")
+136 ;;70
+137 ;;21,"D37.6 ")
+138 ;;71
+139 ;;21,"E83.01 ")
+140 ;;72
+141 ;;21,"E83.110 ")
+142 ;;73
+143 ;;21,"E83.111 ")
+144 ;;74
+145 ;;21,"E83.118 ")
+146 ;;75
+147 ;;21,"E83.119 ")
+148 ;;76
+149 ;;21,"E88.01 ")
+150 ;;77
+151 ;;21,"G04.31 ")
+152 ;;78
+153 ;;21,"I81. ")
+154 ;;79
+155 ;;21,"I85.00 ")
+156 ;;80
+157 ;;21,"I85.01 ")
+158 ;;81
+159 ;;21,"K70.0 ")
+160 ;;82
+161 ;;21,"K70.10 ")
+162 ;;83
+163 ;;21,"K70.11 ")
+164 ;;84
+165 ;;21,"K70.2 ")
+166 ;;85
+167 ;;21,"K70.30 ")
+168 ;;86
+169 ;;21,"K70.31 ")
+170 ;;87
+171 ;;21,"K70.40 ")
+172 ;;88
+173 ;;21,"K70.41 ")
+174 ;;89
+175 ;;21,"K70.9 ")
+176 ;;90
+177 ;;21,"K71.0 ")
+178 ;;91
+179 ;;21,"K71.10 ")
+180 ;;92
+181 ;;21,"K71.11 ")
+182 ;;93
+183 ;;21,"K71.2 ")
+184 ;;94
+185 ;;21,"K71.3 ")
+186 ;;95
+187 ;;21,"K71.4 ")
+188 ;;96
+189 ;;21,"K71.50 ")
+190 ;;97
+191 ;;21,"K71.51 ")
+192 ;;98
+193 ;;21,"K71.6 ")
+194 ;;99
+195 ;;21,"K71.7 ")
+196 ;;100
+197 ;;21,"K71.8 ")
+198 ;;101
+199 ;;21,"K71.9 ")
+200 ;;102
+201 ;;21,"K72.00 ")
+202 ;;103
+203 ;;21,"K72.01 ")
+204 ;;104
+205 ;;21,"K72.10 ")
+206 ;;105
+207 ;;21,"K72.11 ")
+208 ;;106
+209 ;;21,"K72.90 ")
+210 ;;107
+211 ;;21,"K72.91 ")
+212 ;;108
+213 ;;21,"K73.0 ")
+214 ;;109
+215 ;;21,"K73.1 ")
+216 ;;110
+217 ;;21,"K73.2 ")
+218 ;;111
+219 ;;21,"K73.8 ")
+220 ;;112
+221 ;;21,"K73.9 ")
+222 ;;113
+223 ;;21,"K74.0 ")
+224 ;;114
+225 ;;21,"K74.1 ")
+226 ;;115
+227 ;;21,"K74.2 ")
+228 ;;116
+229 ;;21,"K74.3 ")
+230 ;;117
+231 ;;21,"K74.4 ")
+232 ;;118
+233 ;;21,"K74.5 ")
+234 ;;119
+235 ;;21,"K74.60 ")
+236 ;;120
+237 ;;21,"K74.69 ")
+238 ;;121
+239 ;;21,"K75.0 ")
+240 ;;122
+241 ;;21,"K75.1 ")
+242 ;;123
+243 ;;21,"K75.2 ")
+244 ;;124
+245 ;;21,"K75.3 ")
+246 ;;125
+247 ;;21,"K75.4 ")
+248 ;;126
+249 ;;21,"K75.81 ")
+250 ;;127
+251 ;;21,"K75.89 ")
+252 ;;128
+253 ;;21,"K75.9 ")
+254 ;;129
+255 ;;21,"K76.0 ")
+256 ;;130
+257 ;;21,"K76.1 ")
+258 ;;131
+259 ;;21,"K76.2 ")
+260 ;;132
+261 ;;21,"K76.3 ")
+262 ;;133
+263 ;;21,"K76.4 ")
+264 ;;134
+265 ;;21,"K76.5 ")
+266 ;;135
+267 ;;21,"K76.6 ")
+268 ;;136
+269 ;;21,"K76.7 ")
+270 ;;137
+271 ;;21,"K76.81 ")
+272 ;;138
+273 ;;21,"K76.9 ")
+274 ;;139
+275 ;;21,"K83.0 ")
+276 ;;140
+277 ;;21,"R18.0 ")
+278 ;;141
+279 ;;21,"R18.8 ")
+280 ;;142
+281 ;;21,"T86.40 ")
+282 ;;143
+283 ;;21,"T86.41 ")
+284 ;;144
+285 ;;21,"T86.42 ")
+286 ;;145
+287 ;;21,"T86.43 ")
+288 ;;146
+289 ;;21,"T86.49 ")
+290 ;;147
+291 ;;21,"V02.61 ")
+292 ;;1
+293 ;;21,"V02.62 ")
+294 ;;2
+295 ;;21,"Z22.52 ")
+296 ;;148
+297 ;;9002226,2154,.01)
+298 ;;BI HIGH RISK HEPA/B, CLD/HEPC
+299 ;;9002226,2154,.02)
+300 ;;@
+301 ;;9002226,2154,.04)
+302 ;;n
+303 ;;9002226,2154,.06)
+304 ;;@
+305 ;;9002226,2154,.08)
+306 ;;@
+307 ;;9002226,2154,.09)
+308 ;;3170127
+309 ;;9002226,2154,.11)
+310 ;;@
+311 ;;9002226,2154,.12)
+312 ;;31
+313 ;;9002226,2154,.13)
+314 ;;1
+315 ;;9002226,2154,.14)
+316 ;;@
+317 ;;9002226,2154,.15)
+318 ;;80
+319 ;;9002226,2154,.16)
+320 ;;@
+321 ;;9002226,2154,.17)
+322 ;;@
+323 ;;9002226,2154,.22)
+324 ;;1
+325 ;;9002226,2154,3101)
+326 ;;@
+327 ;;9002226.02101,"2154,070.22 ",.01)
+328 ;;070.22
+329 ;;9002226.02101,"2154,070.22 ",.02)
+330 ;;070.22
+331 ;;9002226.02101,"2154,070.22 ",.03)
+332 ;;1
+333 ;;9002226.02101,"2154,070.23 ",.01)
+334 ;;070.23
+335 ;;9002226.02101,"2154,070.23 ",.02)
+336 ;;070.23
+337 ;;9002226.02101,"2154,070.23 ",.03)
+338 ;;1
+339 ;;9002226.02101,"2154,070.32 ",.01)
+340 ;;070.32
+341 ;;9002226.02101,"2154,070.32 ",.02)
+342 ;;070.32
+343 ;;9002226.02101,"2154,070.32 ",.03)
+344 ;;1
+345 ;;9002226.02101,"2154,070.33 ",.01)
+346 ;;070.33
+347 ;;9002226.02101,"2154,070.33 ",.02)
+348 ;;070.33
+349 ;;9002226.02101,"2154,070.33 ",.03)
+350 ;;1
+351 ;;9002226.02101,"2154,070.41 ",.01)
+352 ;;070.41
+353 ;;9002226.02101,"2154,070.41 ",.02)
+354 ;;070.41
+355 ;;9002226.02101,"2154,070.41 ",.03)
+356 ;;1
+357 ;;9002226.02101,"2154,070.44 ",.01)
+358 ;;070.44
+359 ;;9002226.02101,"2154,070.44 ",.02)
+360 ;;070.44
+361 ;;9002226.02101,"2154,070.44 ",.03)
+362 ;;1
+363 ;;9002226.02101,"2154,070.49 ",.01)
+364 ;;070.49
+365 ;;9002226.02101,"2154,070.49 ",.02)
+366 ;;070.49
+367 ;;9002226.02101,"2154,070.49 ",.03)
+368 ;;1
+369 ;;9002226.02101,"2154,070.5 ",.01)
+370 ;;070.5
+371 ;;9002226.02101,"2154,070.5 ",.02)
+372 ;;070.5
+373 ;;9002226.02101,"2154,070.5 ",.03)
+374 ;;1
+375 ;;9002226.02101,"2154,070.51 ",.01)
+376 ;;070.51
+377 ;;9002226.02101,"2154,070.51 ",.02)
+378 ;;070.51
+379 ;;9002226.02101,"2154,070.51 ",.03)
+380 ;;1
+381 ;;9002226.02101,"2154,070.52 ",.01)
+382 ;;070.52
+383 ;;9002226.02101,"2154,070.52 ",.02)
+384 ;;070.52
+385 ;;9002226.02101,"2154,070.52 ",.03)
+386 ;;1
+387 ;;9002226.02101,"2154,070.53 ",.01)
+388 ;;070.53
+389 ;;9002226.02101,"2154,070.53 ",.02)
+390 ;;070.53
+391 ;;9002226.02101,"2154,070.53 ",.03)
+392 ;;1
+393 ;;9002226.02101,"2154,070.54 ",.01)
+394 ;;070.54
+395 ;;9002226.02101,"2154,070.54 ",.02)
+396 ;;070.54
+397 ;;9002226.02101,"2154,070.54 ",.03)
+398 ;;1
+399 ;;9002226.02101,"2154,070.59 ",.01)
+400 ;;070.59
+401 ;;9002226.02101,"2154,070.59 ",.02)
+402 ;;070.59
+403 ;;9002226.02101,"2154,070.59 ",.03)
+404 ;;1
+405 ;;9002226.02101,"2154,070.6 ",.01)
+406 ;;070.6
+407 ;;9002226.02101,"2154,070.6 ",.02)
+408 ;;070.6
+409 ;;9002226.02101,"2154,070.6 ",.03)
+410 ;;1
+411 ;;9002226.02101,"2154,070.70 ",.01)
+412 ;;070.70
+413 ;;9002226.02101,"2154,070.70 ",.02)
+414 ;;070.70
+415 ;;9002226.02101,"2154,070.70 ",.03)
+416 ;;1
+417 ;;9002226.02101,"2154,070.71 ",.01)
+418 ;;070.71
+419 ;;9002226.02101,"2154,070.71 ",.02)
+420 ;;070.71
+421 ;;9002226.02101,"2154,070.71 ",.03)
+422 ;;1
+423 ;;9002226.02101,"2154,070.9 ",.01)
+424 ;;070.9
+425 ;;9002226.02101,"2154,070.9 ",.02)
+426 ;;070.9
+427 ;;9002226.02101,"2154,070.9 ",.03)
+428 ;;1
+429 ;;9002226.02101,"2154,275.01 ",.01)
+430 ;;275.01
+431 ;;9002226.02101,"2154,275.01 ",.02)
+432 ;;275.01
+433 ;;9002226.02101,"2154,275.01 ",.03)
+434 ;;1
+435 ;;9002226.02101,"2154,275.02 ",.01)
+436 ;;275.02
+437 ;;9002226.02101,"2154,275.02 ",.02)
+438 ;;275.02
+439 ;;9002226.02101,"2154,275.02 ",.03)
+440 ;;1
+441 ;;9002226.02101,"2154,275.03 ",.01)
+442 ;;275.03
+443 ;;9002226.02101,"2154,275.03 ",.02)
+444 ;;275.03
+445 ;;9002226.02101,"2154,275.03 ",.03)
+446 ;;1
+447 ;;9002226.02101,"2154,275.1 ",.01)
+448 ;;275.1
+449 ;;9002226.02101,"2154,275.1 ",.02)
+450 ;;275.1
+451 ;;9002226.02101,"2154,275.1 ",.03)
+452 ;;1
+453 ;;9002226.02101,"2154,456.0 ",.01)
+454 ;;456.0
+455 ;;9002226.02101,"2154,456.0 ",.02)
+456 ;;456.0
+457 ;;9002226.02101,"2154,456.0 ",.03)
+458 ;;1
+459 ;;9002226.02101,"2154,456.1 ",.01)
+460 ;;456.1
+461 ;;9002226.02101,"2154,456.1 ",.02)
+462 ;;456.1
+463 ;;9002226.02101,"2154,456.1 ",.03)
+464 ;;1
+465 ;;9002226.02101,"2154,456.20 ",.01)
+466 ;;456.20
+467 ;;9002226.02101,"2154,456.20 ",.02)
+468 ;;456.20
+469 ;;9002226.02101,"2154,456.20 ",.03)
+470 ;;1
+471 ;;9002226.02101,"2154,456.21 ",.01)
+472 ;;456.21
+473 ;;9002226.02101,"2154,456.21 ",.02)
+474 ;;456.21
+475 ;;9002226.02101,"2154,456.21 ",.03)
+476 ;;1
+477 ;;9002226.02101,"2154,571.0 ",.01)
+478 ;;571.0
+479 ;;9002226.02101,"2154,571.0 ",.02)
+480 ;;571.0
+481 ;;9002226.02101,"2154,571.0 ",.03)
+482 ;;1
+483 ;;9002226.02101,"2154,571.1 ",.01)
+484 ;;571.1
+485 ;;9002226.02101,"2154,571.1 ",.02)
+486 ;;571.1
+487 ;;9002226.02101,"2154,571.1 ",.03)
+488 ;;1
+489 ;;9002226.02101,"2154,571.2 ",.01)
+490 ;;571.2
+491 ;;9002226.02101,"2154,571.2 ",.02)
+492 ;;571.2
+493 ;;9002226.02101,"2154,571.2 ",.03)
+494 ;;1
+495 ;;9002226.02101,"2154,571.3 ",.01)
+496 ;;571.3
+497 ;;9002226.02101,"2154,571.3 ",.02)
+498 ;;571.3
+499 ;;9002226.02101,"2154,571.3 ",.03)
+500 ;;1
+501 ;;9002226.02101,"2154,571.40 ",.01)
+502 ;;571.40
+503 ;;9002226.02101,"2154,571.40 ",.02)
+504 ;;571.40
+505 ;;9002226.02101,"2154,571.40 ",.03)
+506 ;;1
+507 ;;9002226.02101,"2154,571.41 ",.01)
+508 ;;571.41
+509 ;;9002226.02101,"2154,571.41 ",.02)
+510 ;;571.41
+511 ;;9002226.02101,"2154,571.41 ",.03)
+512 ;;1
+513 ;;9002226.02101,"2154,571.42 ",.01)
+514 ;;571.42
+515 ;;9002226.02101,"2154,571.42 ",.02)
+516 ;;571.42
+517 ;;9002226.02101,"2154,571.42 ",.03)
+518 ;;1
+519 ;;9002226.02101,"2154,571.49 ",.01)
+520 ;;571.49
+521 ;;9002226.02101,"2154,571.49 ",.02)
+522 ;;571.49
+523 ;;9002226.02101,"2154,571.49 ",.03)
+524 ;;1
+525 ;;9002226.02101,"2154,571.5 ",.01)
+526 ;;571.5
+527 ;;9002226.02101,"2154,571.5 ",.02)
+528 ;;571.5
+529 ;;9002226.02101,"2154,571.5 ",.03)
+530 ;;1
+531 ;;9002226.02101,"2154,571.6 ",.01)
+532 ;;571.6
+533 ;;9002226.02101,"2154,571.6 ",.02)
+534 ;;571.6
+535 ;;9002226.02101,"2154,571.6 ",.03)
+536 ;;1
+537 ;;9002226.02101,"2154,571.8 ",.01)
+538 ;;571.8
+539 ;;9002226.02101,"2154,571.8 ",.02)
+540 ;;571.8
+541 ;;9002226.02101,"2154,571.8 ",.03)
+542 ;;1
+543 ;;9002226.02101,"2154,571.9 ",.01)
+544 ;;571.9
+545 ;;9002226.02101,"2154,571.9 ",.02)
+546 ;;571.9
+547 ;;9002226.02101,"2154,571.9 ",.03)
+548 ;;1
+549 ;;9002226.02101,"2154,573.0 ",.01)
+550 ;;573.0
+551 ;;9002226.02101,"2154,573.0 ",.02)
+552 ;;573.0
+553 ;;9002226.02101,"2154,573.0 ",.03)
+554 ;;1
+555 ;;9002226.02101,"2154,B16.0 ",.01)
+556 ;;B16.0
+557 ;;9002226.02101,"2154,B16.0 ",.02)
+558 ;;B16.0
+559 ;;9002226.02101,"2154,B16.0 ",.03)
+560 ;;30
+561 ;;9002226.02101,"2154,B16.1 ",.01)
+562 ;;B16.1
+563 ;;9002226.02101,"2154,B16.1 ",.02)
+564 ;;B16.1
+565 ;;9002226.02101,"2154,B16.1 ",.03)
+566 ;;30
+567 ;;9002226.02101,"2154,B16.2 ",.01)
+568 ;;B16.2
+569 ;;9002226.02101,"2154,B16.2 ",.02)
+570 ;;B16.2
+571 ;;9002226.02101,"2154,B16.2 ",.03)
+572 ;;30
+573 ;;9002226.02101,"2154,B16.9 ",.01)
+574 ;;B16.9
+575 ;;9002226.02101,"2154,B16.9 ",.02)
+576 ;;B16.9
+577 ;;9002226.02101,"2154,B16.9 ",.03)
+578 ;;30
+579 ;;9002226.02101,"2154,B17.0 ",.01)
+580 ;;B17.0
+581 ;;9002226.02101,"2154,B17.0 ",.02)
+582 ;;B17.0
+583 ;;9002226.02101,"2154,B17.0 ",.03)
+584 ;;30
+585 ;;9002226.02101,"2154,B17.10 ",.01)
+586 ;;B17.10
+587 ;;9002226.02101,"2154,B17.10 ",.02)
+588 ;;B17.10
+589 ;;9002226.02101,"2154,B17.10 ",.03)
+590 ;;30
+591 ;;9002226.02101,"2154,B17.11 ",.01)
+592 ;;B17.11
+593 ;;9002226.02101,"2154,B17.11 ",.02)
+594 ;;B17.11
+595 ;;9002226.02101,"2154,B17.11 ",.03)
+596 ;;30
+597 ;;9002226.02101,"2154,B17.2 ",.01)
+598 ;;B17.2
+599 ;;9002226.02101,"2154,B17.2 ",.02)
+600 ;;B17.2
+601 ;;9002226.02101,"2154,B17.2 ",.03)
+602 ;;30
+603 ;;9002226.02101,"2154,B17.8 ",.01)
+604 ;;B17.8
+605 ;;9002226.02101,"2154,B17.8 ",.02)
+606 ;;B17.8
+607 ;;9002226.02101,"2154,B17.8 ",.03)
+608 ;;30
+609 ;;9002226.02101,"2154,B17.9 ",.01)
+610 ;;B17.9
+611 ;;9002226.02101,"2154,B17.9 ",.02)
+612 ;;B17.9
+613 ;;9002226.02101,"2154,B17.9 ",.03)
+614 ;;30
+615 ;;9002226.02101,"2154,B18.0 ",.01)
+616 ;;B18.0
+617 ;;9002226.02101,"2154,B18.0 ",.02)
+618 ;;B18.0
+619 ;;9002226.02101,"2154,B18.0 ",.03)
+620 ;;30
+621 ;;9002226.02101,"2154,B18.1 ",.01)
+622 ;;B18.1
+623 ;;9002226.02101,"2154,B18.1 ",.02)
+624 ;;B18.1
+625 ;;9002226.02101,"2154,B18.1 ",.03)
+626 ;;30
+627 ;
OTHER ; OTHER ROUTINES
+1 DO ^ATXF7A2
+2 DO ^ATXF7A3
+3 QUIT
