BGP9RXHB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
;
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,"9837-6 ")
;;181
;;9002226,314,.01)
;;BGP HIV TEST LOINC CODES
;;9002226,314,.02)
;;@
;;9002226,314,.04)
;;n
;;9002226,314,.06)
;;@
;;9002226,314,.08)
;;@
;;9002226,314,.09)
;;@
;;9002226,314,.11)
;;@
;;9002226,314,.12)
;;@
;;9002226,314,.13)
;;1
;;9002226,314,.14)
;;FIHS
;;9002226,314,.15)
;;95.3
;;9002226,314,.16)
;;0
;;9002226,314,.17)
;;@
;;9002226,314,3101)
;;@
;;9002226.02101,"314,10351-5 ",.01)
;;10351-5
;;9002226.02101,"314,10351-5 ",.02)
;;10351-5
;;9002226.02101,"314,10682-3 ",.01)
;;10682-3
;;9002226.02101,"314,10682-3 ",.02)
;;10682-3
;;9002226.02101,"314,10901-7 ",.01)
;;10901-7
;;9002226.02101,"314,10901-7 ",.02)
;;10901-7
;;9002226.02101,"314,10902-5 ",.01)
;;10902-5
;;9002226.02101,"314,10902-5 ",.02)
;;10902-5
;;9002226.02101,"314,11078-3 ",.01)
;;11078-3
;;9002226.02101,"314,11078-3 ",.02)
;;11078-3
;;9002226.02101,"314,11079-1 ",.01)
;;11079-1
;;9002226.02101,"314,11079-1 ",.02)
;;11079-1
;;9002226.02101,"314,11080-9 ",.01)
;;11080-9
;;9002226.02101,"314,11080-9 ",.02)
;;11080-9
;;9002226.02101,"314,11081-7 ",.01)
;;11081-7
;;9002226.02101,"314,11081-7 ",.02)
;;11081-7
;;9002226.02101,"314,11082-5 ",.01)
;;11082-5
;;9002226.02101,"314,11082-5 ",.02)
;;11082-5
;;9002226.02101,"314,12855-3 ",.01)
;;12855-3
;;9002226.02101,"314,12855-3 ",.02)
;;12855-3
;;9002226.02101,"314,12856-1 ",.01)
;;12856-1
;;9002226.02101,"314,12856-1 ",.02)
;;12856-1
;;9002226.02101,"314,12857-9 ",.01)
;;12857-9
;;9002226.02101,"314,12857-9 ",.02)
;;12857-9
;;9002226.02101,"314,12858-7 ",.01)
;;12858-7
;;9002226.02101,"314,12858-7 ",.02)
;;12858-7
;;9002226.02101,"314,12859-5 ",.01)
;;12859-5
;;9002226.02101,"314,12859-5 ",.02)
;;12859-5
;;9002226.02101,"314,12870-2 ",.01)
;;12870-2
;;9002226.02101,"314,12870-2 ",.02)
;;12870-2
;;9002226.02101,"314,12871-0 ",.01)
;;12871-0
;;9002226.02101,"314,12871-0 ",.02)
;;12871-0
;;9002226.02101,"314,12872-8 ",.01)
;;12872-8
;;9002226.02101,"314,12872-8 ",.02)
;;12872-8
;;9002226.02101,"314,12875-1 ",.01)
;;12875-1
;;9002226.02101,"314,12875-1 ",.02)
;;12875-1
;;9002226.02101,"314,12876-9 ",.01)
;;12876-9
;;9002226.02101,"314,12876-9 ",.02)
;;12876-9
;;9002226.02101,"314,12893-4 ",.01)
;;12893-4
;;9002226.02101,"314,12893-4 ",.02)
;;12893-4
;;9002226.02101,"314,12894-2 ",.01)
;;12894-2
;;9002226.02101,"314,12894-2 ",.02)
;;12894-2
;;9002226.02101,"314,12895-9 ",.01)
;;12895-9
;;9002226.02101,"314,12895-9 ",.02)
;;12895-9
;;9002226.02101,"314,13499-9 ",.01)
;;13499-9
;;9002226.02101,"314,13499-9 ",.02)
;;13499-9
;;9002226.02101,"314,13920-4 ",.01)
;;13920-4
;;9002226.02101,"314,13920-4 ",.02)
;;13920-4
;;9002226.02101,"314,14092-1 ",.01)
;;14092-1
;;9002226.02101,"314,14092-1 ",.02)
;;14092-1
;;9002226.02101,"314,14126-7 ",.01)
;;14126-7
;;9002226.02101,"314,14126-7 ",.02)
;;14126-7
;;9002226.02101,"314,16132-3 ",.01)
;;16132-3
;;9002226.02101,"314,16132-3 ",.02)
;;16132-3
;;9002226.02101,"314,16974-8 ",.01)
;;16974-8
;;9002226.02101,"314,16974-8 ",.02)
;;16974-8
;;9002226.02101,"314,16975-5 ",.01)
;;16975-5
;;9002226.02101,"314,16975-5 ",.02)
;;16975-5
;;9002226.02101,"314,16976-3 ",.01)
;;16976-3
;;9002226.02101,"314,16976-3 ",.02)
;;16976-3
;;9002226.02101,"314,16977-1 ",.01)
;;16977-1
;;9002226.02101,"314,16977-1 ",.02)
;;16977-1
;;9002226.02101,"314,16978-9 ",.01)
;;16978-9
;;9002226.02101,"314,16978-9 ",.02)
;;16978-9
;;9002226.02101,"314,16979-7 ",.01)
;;16979-7
;;9002226.02101,"314,16979-7 ",.02)
;;16979-7
;;9002226.02101,"314,18396-2 ",.01)
;;18396-2
;;9002226.02101,"314,18396-2 ",.02)
;;18396-2
;;9002226.02101,"314,19110-6 ",.01)
;;19110-6
;;9002226.02101,"314,19110-6 ",.02)
;;19110-6
;;9002226.02101,"314,20447-9 ",.01)
;;20447-9
;;9002226.02101,"314,20447-9 ",.02)
;;20447-9
;;9002226.02101,"314,21007-0 ",.01)
;;21007-0
;;9002226.02101,"314,21007-0 ",.02)
;;21007-0
;;9002226.02101,"314,21008-8 ",.01)
;;21008-8
;;9002226.02101,"314,21008-8 ",.02)
;;21008-8
;;9002226.02101,"314,21009-6 ",.01)
;;21009-6
;;9002226.02101,"314,21009-6 ",.02)
;;21009-6
;;9002226.02101,"314,21331-4 ",.01)
;;21331-4
;;9002226.02101,"314,21331-4 ",.02)
;;21331-4
;;9002226.02101,"314,21332-2 ",.01)
;;21332-2
;;9002226.02101,"314,21332-2 ",.02)
;;21332-2
;;9002226.02101,"314,21333-0 ",.01)
;;21333-0
;;9002226.02101,"314,21333-0 ",.02)
;;21333-0
;;9002226.02101,"314,21334-8 ",.01)
;;21334-8
;;9002226.02101,"314,21334-8 ",.02)
;;21334-8
;;9002226.02101,"314,21335-5 ",.01)
;;21335-5
;;9002226.02101,"314,21335-5 ",.02)
;;21335-5
;;9002226.02101,"314,21336-3 ",.01)
;;21336-3
;;9002226.02101,"314,21336-3 ",.02)
;;21336-3
;;9002226.02101,"314,21337-1 ",.01)
;;21337-1
;;9002226.02101,"314,21337-1 ",.02)
;;21337-1
;;9002226.02101,"314,21338-9 ",.01)
;;21338-9
;;9002226.02101,"314,21338-9 ",.02)
;;21338-9
;;9002226.02101,"314,21339-7 ",.01)
;;21339-7
;;9002226.02101,"314,21339-7 ",.02)
;;21339-7
BGP9RXHB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
+1 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
+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,"9837-6 ")
+2 ;;181
+3 ;;9002226,314,.01)
+4 ;;BGP HIV TEST LOINC CODES
+5 ;;9002226,314,.02)
+6 ;;@
+7 ;;9002226,314,.04)
+8 ;;n
+9 ;;9002226,314,.06)
+10 ;;@
+11 ;;9002226,314,.08)
+12 ;;@
+13 ;;9002226,314,.09)
+14 ;;@
+15 ;;9002226,314,.11)
+16 ;;@
+17 ;;9002226,314,.12)
+18 ;;@
+19 ;;9002226,314,.13)
+20 ;;1
+21 ;;9002226,314,.14)
+22 ;;FIHS
+23 ;;9002226,314,.15)
+24 ;;95.3
+25 ;;9002226,314,.16)
+26 ;;0
+27 ;;9002226,314,.17)
+28 ;;@
+29 ;;9002226,314,3101)
+30 ;;@
+31 ;;9002226.02101,"314,10351-5 ",.01)
+32 ;;10351-5
+33 ;;9002226.02101,"314,10351-5 ",.02)
+34 ;;10351-5
+35 ;;9002226.02101,"314,10682-3 ",.01)
+36 ;;10682-3
+37 ;;9002226.02101,"314,10682-3 ",.02)
+38 ;;10682-3
+39 ;;9002226.02101,"314,10901-7 ",.01)
+40 ;;10901-7
+41 ;;9002226.02101,"314,10901-7 ",.02)
+42 ;;10901-7
+43 ;;9002226.02101,"314,10902-5 ",.01)
+44 ;;10902-5
+45 ;;9002226.02101,"314,10902-5 ",.02)
+46 ;;10902-5
+47 ;;9002226.02101,"314,11078-3 ",.01)
+48 ;;11078-3
+49 ;;9002226.02101,"314,11078-3 ",.02)
+50 ;;11078-3
+51 ;;9002226.02101,"314,11079-1 ",.01)
+52 ;;11079-1
+53 ;;9002226.02101,"314,11079-1 ",.02)
+54 ;;11079-1
+55 ;;9002226.02101,"314,11080-9 ",.01)
+56 ;;11080-9
+57 ;;9002226.02101,"314,11080-9 ",.02)
+58 ;;11080-9
+59 ;;9002226.02101,"314,11081-7 ",.01)
+60 ;;11081-7
+61 ;;9002226.02101,"314,11081-7 ",.02)
+62 ;;11081-7
+63 ;;9002226.02101,"314,11082-5 ",.01)
+64 ;;11082-5
+65 ;;9002226.02101,"314,11082-5 ",.02)
+66 ;;11082-5
+67 ;;9002226.02101,"314,12855-3 ",.01)
+68 ;;12855-3
+69 ;;9002226.02101,"314,12855-3 ",.02)
+70 ;;12855-3
+71 ;;9002226.02101,"314,12856-1 ",.01)
+72 ;;12856-1
+73 ;;9002226.02101,"314,12856-1 ",.02)
+74 ;;12856-1
+75 ;;9002226.02101,"314,12857-9 ",.01)
+76 ;;12857-9
+77 ;;9002226.02101,"314,12857-9 ",.02)
+78 ;;12857-9
+79 ;;9002226.02101,"314,12858-7 ",.01)
+80 ;;12858-7
+81 ;;9002226.02101,"314,12858-7 ",.02)
+82 ;;12858-7
+83 ;;9002226.02101,"314,12859-5 ",.01)
+84 ;;12859-5
+85 ;;9002226.02101,"314,12859-5 ",.02)
+86 ;;12859-5
+87 ;;9002226.02101,"314,12870-2 ",.01)
+88 ;;12870-2
+89 ;;9002226.02101,"314,12870-2 ",.02)
+90 ;;12870-2
+91 ;;9002226.02101,"314,12871-0 ",.01)
+92 ;;12871-0
+93 ;;9002226.02101,"314,12871-0 ",.02)
+94 ;;12871-0
+95 ;;9002226.02101,"314,12872-8 ",.01)
+96 ;;12872-8
+97 ;;9002226.02101,"314,12872-8 ",.02)
+98 ;;12872-8
+99 ;;9002226.02101,"314,12875-1 ",.01)
+100 ;;12875-1
+101 ;;9002226.02101,"314,12875-1 ",.02)
+102 ;;12875-1
+103 ;;9002226.02101,"314,12876-9 ",.01)
+104 ;;12876-9
+105 ;;9002226.02101,"314,12876-9 ",.02)
+106 ;;12876-9
+107 ;;9002226.02101,"314,12893-4 ",.01)
+108 ;;12893-4
+109 ;;9002226.02101,"314,12893-4 ",.02)
+110 ;;12893-4
+111 ;;9002226.02101,"314,12894-2 ",.01)
+112 ;;12894-2
+113 ;;9002226.02101,"314,12894-2 ",.02)
+114 ;;12894-2
+115 ;;9002226.02101,"314,12895-9 ",.01)
+116 ;;12895-9
+117 ;;9002226.02101,"314,12895-9 ",.02)
+118 ;;12895-9
+119 ;;9002226.02101,"314,13499-9 ",.01)
+120 ;;13499-9
+121 ;;9002226.02101,"314,13499-9 ",.02)
+122 ;;13499-9
+123 ;;9002226.02101,"314,13920-4 ",.01)
+124 ;;13920-4
+125 ;;9002226.02101,"314,13920-4 ",.02)
+126 ;;13920-4
+127 ;;9002226.02101,"314,14092-1 ",.01)
+128 ;;14092-1
+129 ;;9002226.02101,"314,14092-1 ",.02)
+130 ;;14092-1
+131 ;;9002226.02101,"314,14126-7 ",.01)
+132 ;;14126-7
+133 ;;9002226.02101,"314,14126-7 ",.02)
+134 ;;14126-7
+135 ;;9002226.02101,"314,16132-3 ",.01)
+136 ;;16132-3
+137 ;;9002226.02101,"314,16132-3 ",.02)
+138 ;;16132-3
+139 ;;9002226.02101,"314,16974-8 ",.01)
+140 ;;16974-8
+141 ;;9002226.02101,"314,16974-8 ",.02)
+142 ;;16974-8
+143 ;;9002226.02101,"314,16975-5 ",.01)
+144 ;;16975-5
+145 ;;9002226.02101,"314,16975-5 ",.02)
+146 ;;16975-5
+147 ;;9002226.02101,"314,16976-3 ",.01)
+148 ;;16976-3
+149 ;;9002226.02101,"314,16976-3 ",.02)
+150 ;;16976-3
+151 ;;9002226.02101,"314,16977-1 ",.01)
+152 ;;16977-1
+153 ;;9002226.02101,"314,16977-1 ",.02)
+154 ;;16977-1
+155 ;;9002226.02101,"314,16978-9 ",.01)
+156 ;;16978-9
+157 ;;9002226.02101,"314,16978-9 ",.02)
+158 ;;16978-9
+159 ;;9002226.02101,"314,16979-7 ",.01)
+160 ;;16979-7
+161 ;;9002226.02101,"314,16979-7 ",.02)
+162 ;;16979-7
+163 ;;9002226.02101,"314,18396-2 ",.01)
+164 ;;18396-2
+165 ;;9002226.02101,"314,18396-2 ",.02)
+166 ;;18396-2
+167 ;;9002226.02101,"314,19110-6 ",.01)
+168 ;;19110-6
+169 ;;9002226.02101,"314,19110-6 ",.02)
+170 ;;19110-6
+171 ;;9002226.02101,"314,20447-9 ",.01)
+172 ;;20447-9
+173 ;;9002226.02101,"314,20447-9 ",.02)
+174 ;;20447-9
+175 ;;9002226.02101,"314,21007-0 ",.01)
+176 ;;21007-0
+177 ;;9002226.02101,"314,21007-0 ",.02)
+178 ;;21007-0
+179 ;;9002226.02101,"314,21008-8 ",.01)
+180 ;;21008-8
+181 ;;9002226.02101,"314,21008-8 ",.02)
+182 ;;21008-8
+183 ;;9002226.02101,"314,21009-6 ",.01)
+184 ;;21009-6
+185 ;;9002226.02101,"314,21009-6 ",.02)
+186 ;;21009-6
+187 ;;9002226.02101,"314,21331-4 ",.01)
+188 ;;21331-4
+189 ;;9002226.02101,"314,21331-4 ",.02)
+190 ;;21331-4
+191 ;;9002226.02101,"314,21332-2 ",.01)
+192 ;;21332-2
+193 ;;9002226.02101,"314,21332-2 ",.02)
+194 ;;21332-2
+195 ;;9002226.02101,"314,21333-0 ",.01)
+196 ;;21333-0
+197 ;;9002226.02101,"314,21333-0 ",.02)
+198 ;;21333-0
+199 ;;9002226.02101,"314,21334-8 ",.01)
+200 ;;21334-8
+201 ;;9002226.02101,"314,21334-8 ",.02)
+202 ;;21334-8
+203 ;;9002226.02101,"314,21335-5 ",.01)
+204 ;;21335-5
+205 ;;9002226.02101,"314,21335-5 ",.02)
+206 ;;21335-5
+207 ;;9002226.02101,"314,21336-3 ",.01)
+208 ;;21336-3
+209 ;;9002226.02101,"314,21336-3 ",.02)
+210 ;;21336-3
+211 ;;9002226.02101,"314,21337-1 ",.01)
+212 ;;21337-1
+213 ;;9002226.02101,"314,21337-1 ",.02)
+214 ;;21337-1
+215 ;;9002226.02101,"314,21338-9 ",.01)
+216 ;;21338-9
+217 ;;9002226.02101,"314,21338-9 ",.02)
+218 ;;21338-9
+219 ;;9002226.02101,"314,21339-7 ",.01)
+220 ;;21339-7
+221 ;;9002226.02101,"314,21339-7 ",.02)
+222 ;;21339-7
