BGPTXXD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 19, 2004 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;
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,"29520-4 ")
;;547
;;21,"29521-2 ")
;;548
;;21,"29522-0 ")
;;549
;;21,"29523-8 ")
;;550
;;21,"29524-6 ")
;;551
;;21,"29525-3 ")
;;552
;;21,"29526-1 ")
;;553
;;21,"29527-9 ")
;;554
;;21,"29528-7 ")
;;555
;;21,"29858-8 ")
;;556
;;21,"29859-6 ")
;;557
;;21,"29878-6 ")
;;558
;;21,"29879-4 ")
;;559
;;21,"29917-2 ")
;;560
;;21,"29919-8 ")
;;561
;;21,"29920-6 ")
;;562
;;21,"29922-2 ")
;;563
;;21,"29925-5 ")
;;564
;;21,"29930-5 ")
;;565
;;21,"29933-9 ")
;;566
;;21,"29934-7 ")
;;567
;;21,"29935-4 ")
;;568
;;21,"29937-0 ")
;;569
;;21,"29938-8 ")
;;570
;;21,"29939-6 ")
;;571
;;21,"29940-4 ")
;;572
;;21,"29941-2 ")
;;573
;;21,"29942-0 ")
;;574
;;21,"29943-8 ")
;;575
;;21,"29970-1 ")
;;576
;;21,"29973-5 ")
;;577
;;21,"29976-8 ")
;;578
;;21,"29978-4 ")
;;579
;;21,"29981-8 ")
;;580
;;21,"29984-2 ")
;;581
;;21,"29986-7 ")
;;582
;;21,"29988-3 ")
;;583
;;21,"29989-1 ")
;;584
;;21,"30000-4 ")
;;585
;;21,"30001-2 ")
;;586
;;21,"30002-0 ")
;;587
;;21,"30004-6 ")
;;588
;;21,"30047-5 ")
;;589
;;21,"30048-3 ")
;;590
;;21,"30049-1 ")
;;591
;;21,"30050-9 ")
;;592
;;21,"30051-7 ")
;;593
;;21,"30052-5 ")
;;594
;;21,"30053-3 ")
;;595
;;21,"30054-1 ")
;;596
;;21,"30055-8 ")
;;597
;;21,"30056-6 ")
;;598
;;21,"30057-4 ")
;;599
;;21,"30058-2 ")
;;600
;;21,"30059-0 ")
;;601
;;21,"30061-6 ")
;;602
;;21,"30062-4 ")
;;603
;;21,"30063-2 ")
;;604
;;21,"30064-0 ")
;;605
;;21,"30065-7 ")
;;606
;;21,"30066-5 ")
;;607
;;21,"30067-3 ")
;;608
;;21,"30068-1 ")
;;609
;;21,"30077-2 ")
;;610
;;21,"30154-9 ")
;;611
;;21,"30161-4 ")
;;612
;;21,"30171-3 ")
;;613
;;21,"30172-1 ")
;;614
;;21,"30508-6 ")
;;615
;;21,"30509-4 ")
;;616
;;21,"30510-2 ")
;;617
;;21,"30511-0 ")
;;618
;;21,"30512-8 ")
;;619
;;21,"30513-6 ")
;;620
;;21,"30514-4 ")
;;621
;;21,"30515-1 ")
;;622
;;21,"30571-4 ")
;;623
;;21,"3089-0 ")
;;624
;;21,"3097-3 ")
;;625
;;21,"31045-8 ")
;;626
;;21,"31101-9 ")
;;627
;;21,"31171-2 ")
;;628
;;21,"3124-5 ")
;;629
;;21,"32008-5 ")
;;630
;;21,"32009-3 ")
;;631
;;21,"32043-2 ")
;;632
;;21,"32179-4 ")
;;633
;;21,"32229-7 ")
;;634
;;21,"32248-7 ")
;;635
;;21,"32262-8 ")
;;636
;;21,"32274-3 ")
;;637
;;21,"32294-1 ")
;;638
;;21,"32543-1 ")
;;639
;;21,"32549-8 ")
;;640
;;21,"32570-4 ")
;;641
;;21,"32616-5 ")
;;642
;;21,"32655-3 ")
;;643
;;21,"32799-9 ")
;;644
;;21,"33343-5 ")
;;645
;;21,"33347-6 ")
;;646
;;21,"33352-6 ")
;;647
;;21,"33558-8 ")
;;648
;;21,"33659-4 ")
;;649
;;21,"33798-0 ")
;;650
;;21,"33859-0 ")
;;651
;;21,"33860-8 ")
;;652
;;21,"33873-1 ")
;;653
;;21,"33874-9 ")
;;654
;;21,"33876-4 ")
;;655
;;21,"33948-1 ")
;;656
;;21,"33949-9 ")
;;657
;;21,"33950-7 ")
;;658
;;21,"33951-5 ")
;;659
;;21,"5919-6 ")
;;660
;;21,"9318-7 ")
;;661
;;21,"9321-1 ")
;;662
;;21,"9641-2 ")
;;663
;;21,"9645-3 ")
;;664
;;9002226,781,.01)
;;BGP CREATININE LOINC CODES
;;9002226,781,.02)
;;@
;;9002226,781,.04)
;;@
;;9002226,781,.06)
;;@
;;9002226,781,.08)
;;@
;;9002226,781,.09)
;;@
;;9002226,781,.11)
;;@
;;9002226,781,.12)
;;@
;;9002226,781,.13)
;;1
;;9002226,781,.14)
;;FIHS
;;9002226,781,.15)
;;95.3
;;9002226,781,.16)
;;0
;;9002226,781,.17)
;;@
;;9002226,781,3101)
;;@
;;9002226.02101,"781,11041-1 ",.01)
;;11041-1
;;9002226.02101,"781,11041-1 ",.02)
;;11041-1
;;9002226.02101,"781,11042-9 ",.01)
;;11042-9
;;9002226.02101,"781,11042-9 ",.02)
;;11042-9
;;9002226.02101,"781,11141-9 ",.01)
;;11141-9
;;9002226.02101,"781,11141-9 ",.02)
;;11141-9
;;9002226.02101,"781,11145-0 ",.01)
;;11145-0
;;9002226.02101,"781,11145-0 ",.02)
;;11145-0
;;9002226.02101,"781,11146-8 ",.01)
;;11146-8
;;9002226.02101,"781,11146-8 ",.02)
;;11146-8
;;9002226.02101,"781,11147-6 ",.01)
;;11147-6
;;9002226.02101,"781,11147-6 ",.02)
;;11147-6
;;9002226.02101,"781,11148-4 ",.01)
;;11148-4
;;9002226.02101,"781,11148-4 ",.02)
;;11148-4
;;9002226.02101,"781,11149-2 ",.01)
;;11149-2
;;9002226.02101,"781,11149-2 ",.02)
;;11149-2
;;9002226.02101,"781,11155-9 ",.01)
;;11155-9
;;9002226.02101,"781,11155-9 ",.02)
;;11155-9
;;9002226.02101,"781,11214-4 ",.01)
;;11214-4
;;9002226.02101,"781,11214-4 ",.02)
;;11214-4
;;9002226.02101,"781,12177-2 ",.01)
;;12177-2
;;9002226.02101,"781,12177-2 ",.02)
;;12177-2
;;9002226.02101,"781,12190-5 ",.01)
;;12190-5
;;9002226.02101,"781,12190-5 ",.02)
;;12190-5
;;9002226.02101,"781,12191-3 ",.01)
;;12191-3
;;9002226.02101,"781,12191-3 ",.02)
;;12191-3
;;9002226.02101,"781,12192-1 ",.01)
;;12192-1
;;9002226.02101,"781,12192-1 ",.02)
;;12192-1
;;9002226.02101,"781,12193-9 ",.01)
;;12193-9
BGPTXXD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 19, 2004 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+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,"29520-4 ")
+2 ;;547
+3 ;;21,"29521-2 ")
+4 ;;548
+5 ;;21,"29522-0 ")
+6 ;;549
+7 ;;21,"29523-8 ")
+8 ;;550
+9 ;;21,"29524-6 ")
+10 ;;551
+11 ;;21,"29525-3 ")
+12 ;;552
+13 ;;21,"29526-1 ")
+14 ;;553
+15 ;;21,"29527-9 ")
+16 ;;554
+17 ;;21,"29528-7 ")
+18 ;;555
+19 ;;21,"29858-8 ")
+20 ;;556
+21 ;;21,"29859-6 ")
+22 ;;557
+23 ;;21,"29878-6 ")
+24 ;;558
+25 ;;21,"29879-4 ")
+26 ;;559
+27 ;;21,"29917-2 ")
+28 ;;560
+29 ;;21,"29919-8 ")
+30 ;;561
+31 ;;21,"29920-6 ")
+32 ;;562
+33 ;;21,"29922-2 ")
+34 ;;563
+35 ;;21,"29925-5 ")
+36 ;;564
+37 ;;21,"29930-5 ")
+38 ;;565
+39 ;;21,"29933-9 ")
+40 ;;566
+41 ;;21,"29934-7 ")
+42 ;;567
+43 ;;21,"29935-4 ")
+44 ;;568
+45 ;;21,"29937-0 ")
+46 ;;569
+47 ;;21,"29938-8 ")
+48 ;;570
+49 ;;21,"29939-6 ")
+50 ;;571
+51 ;;21,"29940-4 ")
+52 ;;572
+53 ;;21,"29941-2 ")
+54 ;;573
+55 ;;21,"29942-0 ")
+56 ;;574
+57 ;;21,"29943-8 ")
+58 ;;575
+59 ;;21,"29970-1 ")
+60 ;;576
+61 ;;21,"29973-5 ")
+62 ;;577
+63 ;;21,"29976-8 ")
+64 ;;578
+65 ;;21,"29978-4 ")
+66 ;;579
+67 ;;21,"29981-8 ")
+68 ;;580
+69 ;;21,"29984-2 ")
+70 ;;581
+71 ;;21,"29986-7 ")
+72 ;;582
+73 ;;21,"29988-3 ")
+74 ;;583
+75 ;;21,"29989-1 ")
+76 ;;584
+77 ;;21,"30000-4 ")
+78 ;;585
+79 ;;21,"30001-2 ")
+80 ;;586
+81 ;;21,"30002-0 ")
+82 ;;587
+83 ;;21,"30004-6 ")
+84 ;;588
+85 ;;21,"30047-5 ")
+86 ;;589
+87 ;;21,"30048-3 ")
+88 ;;590
+89 ;;21,"30049-1 ")
+90 ;;591
+91 ;;21,"30050-9 ")
+92 ;;592
+93 ;;21,"30051-7 ")
+94 ;;593
+95 ;;21,"30052-5 ")
+96 ;;594
+97 ;;21,"30053-3 ")
+98 ;;595
+99 ;;21,"30054-1 ")
+100 ;;596
+101 ;;21,"30055-8 ")
+102 ;;597
+103 ;;21,"30056-6 ")
+104 ;;598
+105 ;;21,"30057-4 ")
+106 ;;599
+107 ;;21,"30058-2 ")
+108 ;;600
+109 ;;21,"30059-0 ")
+110 ;;601
+111 ;;21,"30061-6 ")
+112 ;;602
+113 ;;21,"30062-4 ")
+114 ;;603
+115 ;;21,"30063-2 ")
+116 ;;604
+117 ;;21,"30064-0 ")
+118 ;;605
+119 ;;21,"30065-7 ")
+120 ;;606
+121 ;;21,"30066-5 ")
+122 ;;607
+123 ;;21,"30067-3 ")
+124 ;;608
+125 ;;21,"30068-1 ")
+126 ;;609
+127 ;;21,"30077-2 ")
+128 ;;610
+129 ;;21,"30154-9 ")
+130 ;;611
+131 ;;21,"30161-4 ")
+132 ;;612
+133 ;;21,"30171-3 ")
+134 ;;613
+135 ;;21,"30172-1 ")
+136 ;;614
+137 ;;21,"30508-6 ")
+138 ;;615
+139 ;;21,"30509-4 ")
+140 ;;616
+141 ;;21,"30510-2 ")
+142 ;;617
+143 ;;21,"30511-0 ")
+144 ;;618
+145 ;;21,"30512-8 ")
+146 ;;619
+147 ;;21,"30513-6 ")
+148 ;;620
+149 ;;21,"30514-4 ")
+150 ;;621
+151 ;;21,"30515-1 ")
+152 ;;622
+153 ;;21,"30571-4 ")
+154 ;;623
+155 ;;21,"3089-0 ")
+156 ;;624
+157 ;;21,"3097-3 ")
+158 ;;625
+159 ;;21,"31045-8 ")
+160 ;;626
+161 ;;21,"31101-9 ")
+162 ;;627
+163 ;;21,"31171-2 ")
+164 ;;628
+165 ;;21,"3124-5 ")
+166 ;;629
+167 ;;21,"32008-5 ")
+168 ;;630
+169 ;;21,"32009-3 ")
+170 ;;631
+171 ;;21,"32043-2 ")
+172 ;;632
+173 ;;21,"32179-4 ")
+174 ;;633
+175 ;;21,"32229-7 ")
+176 ;;634
+177 ;;21,"32248-7 ")
+178 ;;635
+179 ;;21,"32262-8 ")
+180 ;;636
+181 ;;21,"32274-3 ")
+182 ;;637
+183 ;;21,"32294-1 ")
+184 ;;638
+185 ;;21,"32543-1 ")
+186 ;;639
+187 ;;21,"32549-8 ")
+188 ;;640
+189 ;;21,"32570-4 ")
+190 ;;641
+191 ;;21,"32616-5 ")
+192 ;;642
+193 ;;21,"32655-3 ")
+194 ;;643
+195 ;;21,"32799-9 ")
+196 ;;644
+197 ;;21,"33343-5 ")
+198 ;;645
+199 ;;21,"33347-6 ")
+200 ;;646
+201 ;;21,"33352-6 ")
+202 ;;647
+203 ;;21,"33558-8 ")
+204 ;;648
+205 ;;21,"33659-4 ")
+206 ;;649
+207 ;;21,"33798-0 ")
+208 ;;650
+209 ;;21,"33859-0 ")
+210 ;;651
+211 ;;21,"33860-8 ")
+212 ;;652
+213 ;;21,"33873-1 ")
+214 ;;653
+215 ;;21,"33874-9 ")
+216 ;;654
+217 ;;21,"33876-4 ")
+218 ;;655
+219 ;;21,"33948-1 ")
+220 ;;656
+221 ;;21,"33949-9 ")
+222 ;;657
+223 ;;21,"33950-7 ")
+224 ;;658
+225 ;;21,"33951-5 ")
+226 ;;659
+227 ;;21,"5919-6 ")
+228 ;;660
+229 ;;21,"9318-7 ")
+230 ;;661
+231 ;;21,"9321-1 ")
+232 ;;662
+233 ;;21,"9641-2 ")
+234 ;;663
+235 ;;21,"9645-3 ")
+236 ;;664
+237 ;;9002226,781,.01)
+238 ;;BGP CREATININE LOINC CODES
+239 ;;9002226,781,.02)
+240 ;;@
+241 ;;9002226,781,.04)
+242 ;;@
+243 ;;9002226,781,.06)
+244 ;;@
+245 ;;9002226,781,.08)
+246 ;;@
+247 ;;9002226,781,.09)
+248 ;;@
+249 ;;9002226,781,.11)
+250 ;;@
+251 ;;9002226,781,.12)
+252 ;;@
+253 ;;9002226,781,.13)
+254 ;;1
+255 ;;9002226,781,.14)
+256 ;;FIHS
+257 ;;9002226,781,.15)
+258 ;;95.3
+259 ;;9002226,781,.16)
+260 ;;0
+261 ;;9002226,781,.17)
+262 ;;@
+263 ;;9002226,781,3101)
+264 ;;@
+265 ;;9002226.02101,"781,11041-1 ",.01)
+266 ;;11041-1
+267 ;;9002226.02101,"781,11041-1 ",.02)
+268 ;;11041-1
+269 ;;9002226.02101,"781,11042-9 ",.01)
+270 ;;11042-9
+271 ;;9002226.02101,"781,11042-9 ",.02)
+272 ;;11042-9
+273 ;;9002226.02101,"781,11141-9 ",.01)
+274 ;;11141-9
+275 ;;9002226.02101,"781,11141-9 ",.02)
+276 ;;11141-9
+277 ;;9002226.02101,"781,11145-0 ",.01)
+278 ;;11145-0
+279 ;;9002226.02101,"781,11145-0 ",.02)
+280 ;;11145-0
+281 ;;9002226.02101,"781,11146-8 ",.01)
+282 ;;11146-8
+283 ;;9002226.02101,"781,11146-8 ",.02)
+284 ;;11146-8
+285 ;;9002226.02101,"781,11147-6 ",.01)
+286 ;;11147-6
+287 ;;9002226.02101,"781,11147-6 ",.02)
+288 ;;11147-6
+289 ;;9002226.02101,"781,11148-4 ",.01)
+290 ;;11148-4
+291 ;;9002226.02101,"781,11148-4 ",.02)
+292 ;;11148-4
+293 ;;9002226.02101,"781,11149-2 ",.01)
+294 ;;11149-2
+295 ;;9002226.02101,"781,11149-2 ",.02)
+296 ;;11149-2
+297 ;;9002226.02101,"781,11155-9 ",.01)
+298 ;;11155-9
+299 ;;9002226.02101,"781,11155-9 ",.02)
+300 ;;11155-9
+301 ;;9002226.02101,"781,11214-4 ",.01)
+302 ;;11214-4
+303 ;;9002226.02101,"781,11214-4 ",.02)
+304 ;;11214-4
+305 ;;9002226.02101,"781,12177-2 ",.01)
+306 ;;12177-2
+307 ;;9002226.02101,"781,12177-2 ",.02)
+308 ;;12177-2
+309 ;;9002226.02101,"781,12190-5 ",.01)
+310 ;;12190-5
+311 ;;9002226.02101,"781,12190-5 ",.02)
+312 ;;12190-5
+313 ;;9002226.02101,"781,12191-3 ",.01)
+314 ;;12191-3
+315 ;;9002226.02101,"781,12191-3 ",.02)
+316 ;;12191-3
+317 ;;9002226.02101,"781,12192-1 ",.01)
+318 ;;12192-1
+319 ;;9002226.02101,"781,12192-1 ",.02)
+320 ;;12192-1
+321 ;;9002226.02101,"781,12193-9 ",.01)
+322 ;;12193-9
