BGP9SXAD ; IHS/CMI/LAB - AB-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,"63304-0910-01 ")
;;457
;;21,"63304-0911-01 ")
;;458
;;21,"63874-0265-01 ")
;;459
;;21,"63874-0265-20 ")
;;460
;;21,"63874-0269-01 ")
;;461
;;21,"63874-0269-02 ")
;;462
;;21,"63874-0269-14 ")
;;463
;;21,"65234-0047-10 ")
;;464
;;21,"65234-0048-10 ")
;;465
;;21,"65234-0048-90 ")
;;466
;;21,"67386-0102-01 ")
;;467
;;21,"68115-0050-07 ")
;;468
;;21,"68115-0050-14 ")
;;469
;;21,"68115-0050-28 ")
;;470
;;21,"68115-0050-90 ")
;;471
;;21,"68115-0051-14 ")
;;472
;;21,"68115-0051-21 ")
;;473
;;21,"68115-0051-30 ")
;;474
;;21,"68115-0108-30 ")
;;475
;;21,"68115-0109-30 ")
;;476
;;21,"68115-0110-28 ")
;;477
;;21,"68115-0273-14 ")
;;478
;;21,"68115-0273-21 ")
;;479
;;21,"68115-0277-14 ")
;;480
;;21,"68115-0277-30 ")
;;481
;;21,"68115-0278-14 ")
;;482
;;21,"68115-0278-30 ")
;;483
;;21,"68115-0279-00 ")
;;484
;;21,"68115-0279-30 ")
;;485
;;21,"68115-0280-30 ")
;;486
;;21,"68115-0757-00 ")
;;487
;;21,"68188-0132-01 ")
;;488
;;21,"68188-0135-01 ")
;;489
;;21,"68188-0137-01 ")
;;490
;;21,"68188-0881-50 ")
;;491
;;21,"68188-0882-50 ")
;;492
;;9002226,723,.01)
;;BGP HEDIS AMPHETAMINE NDC
;;9002226,723,.02)
;;@
;;9002226,723,.04)
;;n
;;9002226,723,.06)
;;@
;;9002226,723,.08)
;;@
;;9002226,723,.09)
;;@
;;9002226,723,.11)
;;@
;;9002226,723,.12)
;;@
;;9002226,723,.13)
;;1
;;9002226,723,.14)
;;@
;;9002226,723,.15)
;;@
;;9002226,723,.16)
;;@
;;9002226,723,.17)
;;@
;;9002226,723,3101)
;;@
;;9002226.02101,"723,00007-3512-20 ",.01)
;;00007-3512-20
;;9002226.02101,"723,00007-3512-20 ",.02)
;;00007-3512-20
;;9002226.02101,"723,00007-3513-20 ",.01)
;;00007-3513-20
;;9002226.02101,"723,00007-3513-20 ",.02)
;;00007-3513-20
;;9002226.02101,"723,00007-3514-20 ",.01)
;;00007-3514-20
;;9002226.02101,"723,00007-3514-20 ",.02)
;;00007-3514-20
;;9002226.02101,"723,00007-3519-20 ",.01)
;;00007-3519-20
;;9002226.02101,"723,00007-3519-20 ",.02)
;;00007-3519-20
;;9002226.02101,"723,00009-0024-01 ",.01)
;;00009-0024-01
;;9002226.02101,"723,00009-0024-01 ",.02)
;;00009-0024-01
;;9002226.02101,"723,00009-0024-02 ",.01)
;;00009-0024-02
;;9002226.02101,"723,00009-0024-02 ",.02)
;;00009-0024-02
;;9002226.02101,"723,00054-2719-25 ",.01)
;;00054-2719-25
;;9002226.02101,"723,00054-2719-25 ",.02)
;;00054-2719-25
;;9002226.02101,"723,00068-0697-61 ",.01)
;;00068-0697-61
;;9002226.02101,"723,00068-0697-61 ",.02)
;;00068-0697-61
;;9002226.02101,"723,00068-0698-61 ",.01)
;;00068-0698-61
;;9002226.02101,"723,00068-0698-61 ",.02)
;;00068-0698-61
;;9002226.02101,"723,00068-0698-62 ",.01)
;;00068-0698-62
;;9002226.02101,"723,00068-0698-62 ",.02)
;;00068-0698-62
;;9002226.02101,"723,00074-3377-04 ",.01)
;;00074-3377-04
;;9002226.02101,"723,00074-3377-04 ",.02)
;;00074-3377-04
;;9002226.02101,"723,00074-6025-13 ",.01)
;;00074-6025-13
;;9002226.02101,"723,00074-6025-13 ",.02)
;;00074-6025-13
;;9002226.02101,"723,00074-6057-13 ",.01)
;;00074-6057-13
;;9002226.02101,"723,00074-6057-13 ",.02)
;;00074-6057-13
;;9002226.02101,"723,00074-6073-13 ",.01)
;;00074-6073-13
;;9002226.02101,"723,00074-6073-13 ",.02)
;;00074-6073-13
;;9002226.02101,"723,00074-6088-13 ",.01)
;;00074-6088-13
;;9002226.02101,"723,00074-6088-13 ",.02)
;;00074-6088-13
;;9002226.02101,"723,00078-0370-05 ",.01)
;;00078-0370-05
;;9002226.02101,"723,00078-0370-05 ",.02)
;;00078-0370-05
;;9002226.02101,"723,00078-0371-05 ",.01)
;;00078-0371-05
;;9002226.02101,"723,00078-0371-05 ",.02)
;;00078-0371-05
;;9002226.02101,"723,00078-0372-05 ",.01)
;;00078-0372-05
;;9002226.02101,"723,00078-0372-05 ",.02)
;;00078-0372-05
;;9002226.02101,"723,00078-0380-05 ",.01)
;;00078-0380-05
;;9002226.02101,"723,00078-0380-05 ",.02)
;;00078-0380-05
;;9002226.02101,"723,00078-0381-05 ",.01)
;;00078-0381-05
;;9002226.02101,"723,00078-0381-05 ",.02)
;;00078-0381-05
;;9002226.02101,"723,00078-0382-05 ",.01)
;;00078-0382-05
;;9002226.02101,"723,00078-0382-05 ",.02)
;;00078-0382-05
;;9002226.02101,"723,00078-0424-05 ",.01)
;;00078-0424-05
;;9002226.02101,"723,00078-0424-05 ",.02)
;;00078-0424-05
;;9002226.02101,"723,00078-0430-05 ",.01)
;;00078-0430-05
;;9002226.02101,"723,00078-0430-05 ",.02)
;;00078-0430-05
;;9002226.02101,"723,00078-0431-05 ",.01)
;;00078-0431-05
;;9002226.02101,"723,00078-0431-05 ",.02)
;;00078-0431-05
;;9002226.02101,"723,00078-0432-05 ",.01)
;;00078-0432-05
;;9002226.02101,"723,00078-0432-05 ",.02)
;;00078-0432-05
;;9002226.02101,"723,00078-0439-05 ",.01)
;;00078-0439-05
;;9002226.02101,"723,00078-0439-05 ",.02)
;;00078-0439-05
;;9002226.02101,"723,00078-0440-05 ",.01)
;;00078-0440-05
;;9002226.02101,"723,00078-0440-05 ",.02)
;;00078-0440-05
;;9002226.02101,"723,00078-0441-05 ",.01)
;;00078-0441-05
;;9002226.02101,"723,00078-0441-05 ",.02)
;;00078-0441-05
;;9002226.02101,"723,00078-0442-05 ",.01)
;;00078-0442-05
;;9002226.02101,"723,00078-0442-05 ",.02)
;;00078-0442-05
;;9002226.02101,"723,00083-0003-30 ",.01)
;;00083-0003-30
BGP9SXAD ; IHS/CMI/LAB - AB-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,"63304-0910-01 ")
+2 ;;457
+3 ;;21,"63304-0911-01 ")
+4 ;;458
+5 ;;21,"63874-0265-01 ")
+6 ;;459
+7 ;;21,"63874-0265-20 ")
+8 ;;460
+9 ;;21,"63874-0269-01 ")
+10 ;;461
+11 ;;21,"63874-0269-02 ")
+12 ;;462
+13 ;;21,"63874-0269-14 ")
+14 ;;463
+15 ;;21,"65234-0047-10 ")
+16 ;;464
+17 ;;21,"65234-0048-10 ")
+18 ;;465
+19 ;;21,"65234-0048-90 ")
+20 ;;466
+21 ;;21,"67386-0102-01 ")
+22 ;;467
+23 ;;21,"68115-0050-07 ")
+24 ;;468
+25 ;;21,"68115-0050-14 ")
+26 ;;469
+27 ;;21,"68115-0050-28 ")
+28 ;;470
+29 ;;21,"68115-0050-90 ")
+30 ;;471
+31 ;;21,"68115-0051-14 ")
+32 ;;472
+33 ;;21,"68115-0051-21 ")
+34 ;;473
+35 ;;21,"68115-0051-30 ")
+36 ;;474
+37 ;;21,"68115-0108-30 ")
+38 ;;475
+39 ;;21,"68115-0109-30 ")
+40 ;;476
+41 ;;21,"68115-0110-28 ")
+42 ;;477
+43 ;;21,"68115-0273-14 ")
+44 ;;478
+45 ;;21,"68115-0273-21 ")
+46 ;;479
+47 ;;21,"68115-0277-14 ")
+48 ;;480
+49 ;;21,"68115-0277-30 ")
+50 ;;481
+51 ;;21,"68115-0278-14 ")
+52 ;;482
+53 ;;21,"68115-0278-30 ")
+54 ;;483
+55 ;;21,"68115-0279-00 ")
+56 ;;484
+57 ;;21,"68115-0279-30 ")
+58 ;;485
+59 ;;21,"68115-0280-30 ")
+60 ;;486
+61 ;;21,"68115-0757-00 ")
+62 ;;487
+63 ;;21,"68188-0132-01 ")
+64 ;;488
+65 ;;21,"68188-0135-01 ")
+66 ;;489
+67 ;;21,"68188-0137-01 ")
+68 ;;490
+69 ;;21,"68188-0881-50 ")
+70 ;;491
+71 ;;21,"68188-0882-50 ")
+72 ;;492
+73 ;;9002226,723,.01)
+74 ;;BGP HEDIS AMPHETAMINE NDC
+75 ;;9002226,723,.02)
+76 ;;@
+77 ;;9002226,723,.04)
+78 ;;n
+79 ;;9002226,723,.06)
+80 ;;@
+81 ;;9002226,723,.08)
+82 ;;@
+83 ;;9002226,723,.09)
+84 ;;@
+85 ;;9002226,723,.11)
+86 ;;@
+87 ;;9002226,723,.12)
+88 ;;@
+89 ;;9002226,723,.13)
+90 ;;1
+91 ;;9002226,723,.14)
+92 ;;@
+93 ;;9002226,723,.15)
+94 ;;@
+95 ;;9002226,723,.16)
+96 ;;@
+97 ;;9002226,723,.17)
+98 ;;@
+99 ;;9002226,723,3101)
+100 ;;@
+101 ;;9002226.02101,"723,00007-3512-20 ",.01)
+102 ;;00007-3512-20
+103 ;;9002226.02101,"723,00007-3512-20 ",.02)
+104 ;;00007-3512-20
+105 ;;9002226.02101,"723,00007-3513-20 ",.01)
+106 ;;00007-3513-20
+107 ;;9002226.02101,"723,00007-3513-20 ",.02)
+108 ;;00007-3513-20
+109 ;;9002226.02101,"723,00007-3514-20 ",.01)
+110 ;;00007-3514-20
+111 ;;9002226.02101,"723,00007-3514-20 ",.02)
+112 ;;00007-3514-20
+113 ;;9002226.02101,"723,00007-3519-20 ",.01)
+114 ;;00007-3519-20
+115 ;;9002226.02101,"723,00007-3519-20 ",.02)
+116 ;;00007-3519-20
+117 ;;9002226.02101,"723,00009-0024-01 ",.01)
+118 ;;00009-0024-01
+119 ;;9002226.02101,"723,00009-0024-01 ",.02)
+120 ;;00009-0024-01
+121 ;;9002226.02101,"723,00009-0024-02 ",.01)
+122 ;;00009-0024-02
+123 ;;9002226.02101,"723,00009-0024-02 ",.02)
+124 ;;00009-0024-02
+125 ;;9002226.02101,"723,00054-2719-25 ",.01)
+126 ;;00054-2719-25
+127 ;;9002226.02101,"723,00054-2719-25 ",.02)
+128 ;;00054-2719-25
+129 ;;9002226.02101,"723,00068-0697-61 ",.01)
+130 ;;00068-0697-61
+131 ;;9002226.02101,"723,00068-0697-61 ",.02)
+132 ;;00068-0697-61
+133 ;;9002226.02101,"723,00068-0698-61 ",.01)
+134 ;;00068-0698-61
+135 ;;9002226.02101,"723,00068-0698-61 ",.02)
+136 ;;00068-0698-61
+137 ;;9002226.02101,"723,00068-0698-62 ",.01)
+138 ;;00068-0698-62
+139 ;;9002226.02101,"723,00068-0698-62 ",.02)
+140 ;;00068-0698-62
+141 ;;9002226.02101,"723,00074-3377-04 ",.01)
+142 ;;00074-3377-04
+143 ;;9002226.02101,"723,00074-3377-04 ",.02)
+144 ;;00074-3377-04
+145 ;;9002226.02101,"723,00074-6025-13 ",.01)
+146 ;;00074-6025-13
+147 ;;9002226.02101,"723,00074-6025-13 ",.02)
+148 ;;00074-6025-13
+149 ;;9002226.02101,"723,00074-6057-13 ",.01)
+150 ;;00074-6057-13
+151 ;;9002226.02101,"723,00074-6057-13 ",.02)
+152 ;;00074-6057-13
+153 ;;9002226.02101,"723,00074-6073-13 ",.01)
+154 ;;00074-6073-13
+155 ;;9002226.02101,"723,00074-6073-13 ",.02)
+156 ;;00074-6073-13
+157 ;;9002226.02101,"723,00074-6088-13 ",.01)
+158 ;;00074-6088-13
+159 ;;9002226.02101,"723,00074-6088-13 ",.02)
+160 ;;00074-6088-13
+161 ;;9002226.02101,"723,00078-0370-05 ",.01)
+162 ;;00078-0370-05
+163 ;;9002226.02101,"723,00078-0370-05 ",.02)
+164 ;;00078-0370-05
+165 ;;9002226.02101,"723,00078-0371-05 ",.01)
+166 ;;00078-0371-05
+167 ;;9002226.02101,"723,00078-0371-05 ",.02)
+168 ;;00078-0371-05
+169 ;;9002226.02101,"723,00078-0372-05 ",.01)
+170 ;;00078-0372-05
+171 ;;9002226.02101,"723,00078-0372-05 ",.02)
+172 ;;00078-0372-05
+173 ;;9002226.02101,"723,00078-0380-05 ",.01)
+174 ;;00078-0380-05
+175 ;;9002226.02101,"723,00078-0380-05 ",.02)
+176 ;;00078-0380-05
+177 ;;9002226.02101,"723,00078-0381-05 ",.01)
+178 ;;00078-0381-05
+179 ;;9002226.02101,"723,00078-0381-05 ",.02)
+180 ;;00078-0381-05
+181 ;;9002226.02101,"723,00078-0382-05 ",.01)
+182 ;;00078-0382-05
+183 ;;9002226.02101,"723,00078-0382-05 ",.02)
+184 ;;00078-0382-05
+185 ;;9002226.02101,"723,00078-0424-05 ",.01)
+186 ;;00078-0424-05
+187 ;;9002226.02101,"723,00078-0424-05 ",.02)
+188 ;;00078-0424-05
+189 ;;9002226.02101,"723,00078-0430-05 ",.01)
+190 ;;00078-0430-05
+191 ;;9002226.02101,"723,00078-0430-05 ",.02)
+192 ;;00078-0430-05
+193 ;;9002226.02101,"723,00078-0431-05 ",.01)
+194 ;;00078-0431-05
+195 ;;9002226.02101,"723,00078-0431-05 ",.02)
+196 ;;00078-0431-05
+197 ;;9002226.02101,"723,00078-0432-05 ",.01)
+198 ;;00078-0432-05
+199 ;;9002226.02101,"723,00078-0432-05 ",.02)
+200 ;;00078-0432-05
+201 ;;9002226.02101,"723,00078-0439-05 ",.01)
+202 ;;00078-0439-05
+203 ;;9002226.02101,"723,00078-0439-05 ",.02)
+204 ;;00078-0439-05
+205 ;;9002226.02101,"723,00078-0440-05 ",.01)
+206 ;;00078-0440-05
+207 ;;9002226.02101,"723,00078-0440-05 ",.02)
+208 ;;00078-0440-05
+209 ;;9002226.02101,"723,00078-0441-05 ",.01)
+210 ;;00078-0441-05
+211 ;;9002226.02101,"723,00078-0441-05 ",.02)
+212 ;;00078-0441-05
+213 ;;9002226.02101,"723,00078-0442-05 ",.01)
+214 ;;00078-0442-05
+215 ;;9002226.02101,"723,00078-0442-05 ",.02)
+216 ;;00078-0442-05
+217 ;;9002226.02101,"723,00083-0003-30 ",.01)
+218 ;;00083-0003-30
