BGPM5ANN ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 08, 2011;
;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
;;BGPMU HF GI BLEED DX
;
; This routine loads Taxonomy BGPMU HF GI BLEED DX
;
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,"530.7 ")
;;1
;;21,"531.00 ")
;;2
;;21,"531.01 ")
;;3
;;21,"531.20 ")
;;4
;;21,"531.21 ")
;;5
;;21,"531.40 ")
;;6
;;21,"531.41 ")
;;7
;;21,"531.60 ")
;;8
;;21,"531.61 ")
;;9
;;21,"532.00 ")
;;10
;;21,"532.01 ")
;;11
;;21,"532.20 ")
;;12
;;21,"532.21 ")
;;13
;;21,"532.40 ")
;;14
;;21,"532.41 ")
;;15
;;21,"532.60 ")
;;16
;;21,"532.61 ")
;;17
;;21,"533.00 ")
;;18
;;21,"533.01 ")
;;19
;;21,"533.20 ")
;;20
;;21,"533.21 ")
;;21
;;21,"533.40 ")
;;22
;;21,"533.41 ")
;;23
;;21,"533.60 ")
;;24
;;21,"533.61 ")
;;25
;;21,"534.00 ")
;;26
;;21,"534.01 ")
;;27
;;21,"534.20 ")
;;28
;;21,"534.21 ")
;;29
;;21,"534.40 ")
;;30
;;21,"534.41 ")
;;31
;;21,"534.60 ")
;;32
;;21,"534.61 ")
;;33
;;21,"569.3 ")
;;34
;;21,"578.0 ")
;;35
;;21,"578.1 ")
;;36
;;21,"578.9 ")
;;37
;;9002226,982,.01)
;;BGPMU HF GI BLEED DX
;;9002226,982,.02)
;;Heart Failure Bleeding ICDs
;;9002226,982,.04)
;;@
;;9002226,982,.06)
;;@
;;9002226,982,.08)
;;@
;;9002226,982,.09)
;;@
;;9002226,982,.11)
;;@
;;9002226,982,.12)
;;@
;;9002226,982,.13)
;;@
;;9002226,982,.14)
;;@
;;9002226,982,.15)
;;80
;;9002226,982,.16)
;;@
;;9002226,982,.17)
;;@
;;9002226,982,3101)
;;@
;;9002226.02101,"982,530.7 ",.01)
;;530.7
;;9002226.02101,"982,530.7 ",.02)
;;530.7
;;9002226.02101,"982,531.00 ",.01)
;;531.00
;;9002226.02101,"982,531.00 ",.02)
;;531.00
;;9002226.02101,"982,531.01 ",.01)
;;531.01
;;9002226.02101,"982,531.01 ",.02)
;;531.01
;;9002226.02101,"982,531.20 ",.01)
;;531.20
;;9002226.02101,"982,531.20 ",.02)
;;531.20
;;9002226.02101,"982,531.21 ",.01)
;;531.21
;;9002226.02101,"982,531.21 ",.02)
;;531.21
;;9002226.02101,"982,531.40 ",.01)
;;531.40
;;9002226.02101,"982,531.40 ",.02)
;;531.40
;;9002226.02101,"982,531.41 ",.01)
;;531.41
;;9002226.02101,"982,531.41 ",.02)
;;531.41
;;9002226.02101,"982,531.60 ",.01)
;;531.60
;;9002226.02101,"982,531.60 ",.02)
;;531.60
;;9002226.02101,"982,531.61 ",.01)
;;531.61
;;9002226.02101,"982,531.61 ",.02)
;;531.61
;;9002226.02101,"982,532.00 ",.01)
;;532.00
;;9002226.02101,"982,532.00 ",.02)
;;532.00
;;9002226.02101,"982,532.01 ",.01)
;;532.01
;;9002226.02101,"982,532.01 ",.02)
;;532.01
;;9002226.02101,"982,532.20 ",.01)
;;532.20
;;9002226.02101,"982,532.20 ",.02)
;;532.20
;;9002226.02101,"982,532.21 ",.01)
;;532.21
;;9002226.02101,"982,532.21 ",.02)
;;532.21
;;9002226.02101,"982,532.40 ",.01)
;;532.40
;;9002226.02101,"982,532.40 ",.02)
;;532.40
;;9002226.02101,"982,532.41 ",.01)
;;532.41
;;9002226.02101,"982,532.41 ",.02)
;;532.41
;;9002226.02101,"982,532.60 ",.01)
;;532.60
;;9002226.02101,"982,532.60 ",.02)
;;532.60
;;9002226.02101,"982,532.61 ",.01)
;;532.61
;;9002226.02101,"982,532.61 ",.02)
;;532.61
;;9002226.02101,"982,533.00 ",.01)
;;533.00
;;9002226.02101,"982,533.00 ",.02)
;;533.00
;;9002226.02101,"982,533.01 ",.01)
;;533.01
;;9002226.02101,"982,533.01 ",.02)
;;533.01
;;9002226.02101,"982,533.20 ",.01)
;;533.20
;;9002226.02101,"982,533.20 ",.02)
;;533.20
;;9002226.02101,"982,533.21 ",.01)
;;533.21
;;9002226.02101,"982,533.21 ",.02)
;;533.21
;;9002226.02101,"982,533.40 ",.01)
;;533.40
;;9002226.02101,"982,533.40 ",.02)
;;533.40
;;9002226.02101,"982,533.41 ",.01)
;;533.41
;;9002226.02101,"982,533.41 ",.02)
;;533.41
;;9002226.02101,"982,533.60 ",.01)
;;533.60
;;9002226.02101,"982,533.60 ",.02)
;;533.60
;;9002226.02101,"982,533.61 ",.01)
;;533.61
;;9002226.02101,"982,533.61 ",.02)
;;533.61
;;9002226.02101,"982,534.00 ",.01)
;;534.00
;;9002226.02101,"982,534.00 ",.02)
;;534.00
;;9002226.02101,"982,534.01 ",.01)
;;534.01
;;9002226.02101,"982,534.01 ",.02)
;;534.01
;;9002226.02101,"982,534.20 ",.01)
;;534.20
;;9002226.02101,"982,534.20 ",.02)
;;534.20
;;9002226.02101,"982,534.21 ",.01)
;;534.21
;;9002226.02101,"982,534.21 ",.02)
;;534.21
;;9002226.02101,"982,534.40 ",.01)
;;534.40
;;9002226.02101,"982,534.40 ",.02)
;;534.40
;;9002226.02101,"982,534.41 ",.01)
;;534.41
;;9002226.02101,"982,534.41 ",.02)
;;534.41
;;9002226.02101,"982,534.60 ",.01)
;;534.60
;;9002226.02101,"982,534.60 ",.02)
;;534.60
;;9002226.02101,"982,534.61 ",.01)
;;534.61
;;9002226.02101,"982,534.61 ",.02)
;;534.61
;;9002226.02101,"982,569.3 ",.01)
;;569.3
;;9002226.02101,"982,569.3 ",.02)
;;569.3
;;9002226.02101,"982,578.0 ",.01)
;;578.0
;;9002226.02101,"982,578.0 ",.02)
;;578.0
;;9002226.02101,"982,578.1 ",.01)
;;578.1
;;9002226.02101,"982,578.1 ",.02)
;;578.1
;;9002226.02101,"982,578.9 ",.01)
;;578.9
;;9002226.02101,"982,578.9 ",.02)
;;578.9
;
OTHER ; OTHER ROUTINES
Q
BGPM5ANN ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 08, 2011;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+2 ;;BGPMU HF GI BLEED DX
+3 ;
+4 ; This routine loads Taxonomy BGPMU HF GI BLEED DX
+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,"530.7 ")
+2 ;;1
+3 ;;21,"531.00 ")
+4 ;;2
+5 ;;21,"531.01 ")
+6 ;;3
+7 ;;21,"531.20 ")
+8 ;;4
+9 ;;21,"531.21 ")
+10 ;;5
+11 ;;21,"531.40 ")
+12 ;;6
+13 ;;21,"531.41 ")
+14 ;;7
+15 ;;21,"531.60 ")
+16 ;;8
+17 ;;21,"531.61 ")
+18 ;;9
+19 ;;21,"532.00 ")
+20 ;;10
+21 ;;21,"532.01 ")
+22 ;;11
+23 ;;21,"532.20 ")
+24 ;;12
+25 ;;21,"532.21 ")
+26 ;;13
+27 ;;21,"532.40 ")
+28 ;;14
+29 ;;21,"532.41 ")
+30 ;;15
+31 ;;21,"532.60 ")
+32 ;;16
+33 ;;21,"532.61 ")
+34 ;;17
+35 ;;21,"533.00 ")
+36 ;;18
+37 ;;21,"533.01 ")
+38 ;;19
+39 ;;21,"533.20 ")
+40 ;;20
+41 ;;21,"533.21 ")
+42 ;;21
+43 ;;21,"533.40 ")
+44 ;;22
+45 ;;21,"533.41 ")
+46 ;;23
+47 ;;21,"533.60 ")
+48 ;;24
+49 ;;21,"533.61 ")
+50 ;;25
+51 ;;21,"534.00 ")
+52 ;;26
+53 ;;21,"534.01 ")
+54 ;;27
+55 ;;21,"534.20 ")
+56 ;;28
+57 ;;21,"534.21 ")
+58 ;;29
+59 ;;21,"534.40 ")
+60 ;;30
+61 ;;21,"534.41 ")
+62 ;;31
+63 ;;21,"534.60 ")
+64 ;;32
+65 ;;21,"534.61 ")
+66 ;;33
+67 ;;21,"569.3 ")
+68 ;;34
+69 ;;21,"578.0 ")
+70 ;;35
+71 ;;21,"578.1 ")
+72 ;;36
+73 ;;21,"578.9 ")
+74 ;;37
+75 ;;9002226,982,.01)
+76 ;;BGPMU HF GI BLEED DX
+77 ;;9002226,982,.02)
+78 ;;Heart Failure Bleeding ICDs
+79 ;;9002226,982,.04)
+80 ;;@
+81 ;;9002226,982,.06)
+82 ;;@
+83 ;;9002226,982,.08)
+84 ;;@
+85 ;;9002226,982,.09)
+86 ;;@
+87 ;;9002226,982,.11)
+88 ;;@
+89 ;;9002226,982,.12)
+90 ;;@
+91 ;;9002226,982,.13)
+92 ;;@
+93 ;;9002226,982,.14)
+94 ;;@
+95 ;;9002226,982,.15)
+96 ;;80
+97 ;;9002226,982,.16)
+98 ;;@
+99 ;;9002226,982,.17)
+100 ;;@
+101 ;;9002226,982,3101)
+102 ;;@
+103 ;;9002226.02101,"982,530.7 ",.01)
+104 ;;530.7
+105 ;;9002226.02101,"982,530.7 ",.02)
+106 ;;530.7
+107 ;;9002226.02101,"982,531.00 ",.01)
+108 ;;531.00
+109 ;;9002226.02101,"982,531.00 ",.02)
+110 ;;531.00
+111 ;;9002226.02101,"982,531.01 ",.01)
+112 ;;531.01
+113 ;;9002226.02101,"982,531.01 ",.02)
+114 ;;531.01
+115 ;;9002226.02101,"982,531.20 ",.01)
+116 ;;531.20
+117 ;;9002226.02101,"982,531.20 ",.02)
+118 ;;531.20
+119 ;;9002226.02101,"982,531.21 ",.01)
+120 ;;531.21
+121 ;;9002226.02101,"982,531.21 ",.02)
+122 ;;531.21
+123 ;;9002226.02101,"982,531.40 ",.01)
+124 ;;531.40
+125 ;;9002226.02101,"982,531.40 ",.02)
+126 ;;531.40
+127 ;;9002226.02101,"982,531.41 ",.01)
+128 ;;531.41
+129 ;;9002226.02101,"982,531.41 ",.02)
+130 ;;531.41
+131 ;;9002226.02101,"982,531.60 ",.01)
+132 ;;531.60
+133 ;;9002226.02101,"982,531.60 ",.02)
+134 ;;531.60
+135 ;;9002226.02101,"982,531.61 ",.01)
+136 ;;531.61
+137 ;;9002226.02101,"982,531.61 ",.02)
+138 ;;531.61
+139 ;;9002226.02101,"982,532.00 ",.01)
+140 ;;532.00
+141 ;;9002226.02101,"982,532.00 ",.02)
+142 ;;532.00
+143 ;;9002226.02101,"982,532.01 ",.01)
+144 ;;532.01
+145 ;;9002226.02101,"982,532.01 ",.02)
+146 ;;532.01
+147 ;;9002226.02101,"982,532.20 ",.01)
+148 ;;532.20
+149 ;;9002226.02101,"982,532.20 ",.02)
+150 ;;532.20
+151 ;;9002226.02101,"982,532.21 ",.01)
+152 ;;532.21
+153 ;;9002226.02101,"982,532.21 ",.02)
+154 ;;532.21
+155 ;;9002226.02101,"982,532.40 ",.01)
+156 ;;532.40
+157 ;;9002226.02101,"982,532.40 ",.02)
+158 ;;532.40
+159 ;;9002226.02101,"982,532.41 ",.01)
+160 ;;532.41
+161 ;;9002226.02101,"982,532.41 ",.02)
+162 ;;532.41
+163 ;;9002226.02101,"982,532.60 ",.01)
+164 ;;532.60
+165 ;;9002226.02101,"982,532.60 ",.02)
+166 ;;532.60
+167 ;;9002226.02101,"982,532.61 ",.01)
+168 ;;532.61
+169 ;;9002226.02101,"982,532.61 ",.02)
+170 ;;532.61
+171 ;;9002226.02101,"982,533.00 ",.01)
+172 ;;533.00
+173 ;;9002226.02101,"982,533.00 ",.02)
+174 ;;533.00
+175 ;;9002226.02101,"982,533.01 ",.01)
+176 ;;533.01
+177 ;;9002226.02101,"982,533.01 ",.02)
+178 ;;533.01
+179 ;;9002226.02101,"982,533.20 ",.01)
+180 ;;533.20
+181 ;;9002226.02101,"982,533.20 ",.02)
+182 ;;533.20
+183 ;;9002226.02101,"982,533.21 ",.01)
+184 ;;533.21
+185 ;;9002226.02101,"982,533.21 ",.02)
+186 ;;533.21
+187 ;;9002226.02101,"982,533.40 ",.01)
+188 ;;533.40
+189 ;;9002226.02101,"982,533.40 ",.02)
+190 ;;533.40
+191 ;;9002226.02101,"982,533.41 ",.01)
+192 ;;533.41
+193 ;;9002226.02101,"982,533.41 ",.02)
+194 ;;533.41
+195 ;;9002226.02101,"982,533.60 ",.01)
+196 ;;533.60
+197 ;;9002226.02101,"982,533.60 ",.02)
+198 ;;533.60
+199 ;;9002226.02101,"982,533.61 ",.01)
+200 ;;533.61
+201 ;;9002226.02101,"982,533.61 ",.02)
+202 ;;533.61
+203 ;;9002226.02101,"982,534.00 ",.01)
+204 ;;534.00
+205 ;;9002226.02101,"982,534.00 ",.02)
+206 ;;534.00
+207 ;;9002226.02101,"982,534.01 ",.01)
+208 ;;534.01
+209 ;;9002226.02101,"982,534.01 ",.02)
+210 ;;534.01
+211 ;;9002226.02101,"982,534.20 ",.01)
+212 ;;534.20
+213 ;;9002226.02101,"982,534.20 ",.02)
+214 ;;534.20
+215 ;;9002226.02101,"982,534.21 ",.01)
+216 ;;534.21
+217 ;;9002226.02101,"982,534.21 ",.02)
+218 ;;534.21
+219 ;;9002226.02101,"982,534.40 ",.01)
+220 ;;534.40
+221 ;;9002226.02101,"982,534.40 ",.02)
+222 ;;534.40
+223 ;;9002226.02101,"982,534.41 ",.01)
+224 ;;534.41
+225 ;;9002226.02101,"982,534.41 ",.02)
+226 ;;534.41
+227 ;;9002226.02101,"982,534.60 ",.01)
+228 ;;534.60
+229 ;;9002226.02101,"982,534.60 ",.02)
+230 ;;534.60
+231 ;;9002226.02101,"982,534.61 ",.01)
+232 ;;534.61
+233 ;;9002226.02101,"982,534.61 ",.02)
+234 ;;534.61
+235 ;;9002226.02101,"982,569.3 ",.01)
+236 ;;569.3
+237 ;;9002226.02101,"982,569.3 ",.02)
+238 ;;569.3
+239 ;;9002226.02101,"982,578.0 ",.01)
+240 ;;578.0
+241 ;;9002226.02101,"982,578.0 ",.02)
+242 ;;578.0
+243 ;;9002226.02101,"982,578.1 ",.01)
+244 ;;578.1
+245 ;;9002226.02101,"982,578.1 ",.02)
+246 ;;578.1
+247 ;;9002226.02101,"982,578.9 ",.01)
+248 ;;578.9
+249 ;;9002226.02101,"982,578.9 ",.02)
+250 ;;578.9
+251 ;
OTHER ; OTHER ROUTINES
+1 QUIT
