BGP9SXJD ; 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,"63874-0309-60 ")
;;457
;;21,"63874-0309-72 ")
;;458
;;21,"63874-0309-74 ")
;;459
;;21,"63874-0309-77 ")
;;460
;;21,"63874-0724-12 ")
;;461
;;21,"64125-0102-01 ")
;;462
;;21,"64125-0128-10 ")
;;463
;;21,"64543-0111-01 ")
;;464
;;21,"64543-0112-01 ")
;;465
;;21,"64543-0118-90 ")
;;466
;;21,"64731-0295-01 ")
;;467
;;21,"64731-0300-01 ")
;;468
;;21,"64731-0305-01 ")
;;469
;;21,"64731-0860-01 ")
;;470
;;21,"65162-0301-10 ")
;;471
;;21,"65234-0074-05 ")
;;472
;;21,"65234-0074-10 ")
;;473
;;21,"66213-0421-10 ")
;;474
;;21,"66213-0421-50 ")
;;475
;;21,"66213-0422-04 ")
;;476
;;21,"66213-0422-16 ")
;;477
;;21,"66213-0423-04 ")
;;478
;;21,"66213-0423-16 ")
;;479
;;21,"66213-0425-10 ")
;;480
;;21,"66213-0425-11 ")
;;481
;;21,"66346-0082-23 ")
;;482
;;21,"66346-0082-31 ")
;;483
;;21,"66346-0152-23 ")
;;484
;;21,"66346-0152-31 ")
;;485
;;21,"66479-0860-01 ")
;;486
;;21,"66663-0219-01 ")
;;487
;;21,"66663-0702-01 ")
;;488
;;21,"66934-0200-30 ")
;;489
;;21,"66993-0402-02 ")
;;490
;;21,"67204-0531-01 ")
;;491
;;21,"67555-0155-10 ")
;;492
;;21,"68013-0005-01 ")
;;493
;;21,"68115-0041-20 ")
;;494
;;21,"68115-0041-30 ")
;;495
;;21,"68115-0118-15 ")
;;496
;;21,"68115-0118-20 ")
;;497
;;21,"68115-0118-30 ")
;;498
;;21,"68115-0678-00 ")
;;499
;;21,"68115-0788-00 ")
;;500
;;21,"68115-0897-04 ")
;;501
;;9002226,733,.01)
;;BGP HEDIS BELLADONNA ALKA NDC
;;9002226,733,.02)
;;@
;;9002226,733,.04)
;;n
;;9002226,733,.06)
;;@
;;9002226,733,.08)
;;@
;;9002226,733,.09)
;;@
;;9002226,733,.11)
;;@
;;9002226,733,.12)
;;@
;;9002226,733,.13)
;;1
;;9002226,733,.14)
;;@
;;9002226,733,.15)
;;@
;;9002226,733,.16)
;;@
;;9002226,733,.17)
;;@
;;9002226,733,3101)
;;@
;;9002226.02101,"733,00002-1675-01 ",.01)
;;00002-1675-01
;;9002226.02101,"733,00002-1675-01 ",.02)
;;00002-1675-01
;;9002226.02101,"733,00025-0061-31 ",.01)
;;00025-0061-31
;;9002226.02101,"733,00025-0061-31 ",.02)
;;00025-0061-31
;;9002226.02101,"733,00025-0061-34 ",.01)
;;00025-0061-34
;;9002226.02101,"733,00025-0061-34 ",.02)
;;00025-0061-34
;;9002226.02101,"733,00025-0061-51 ",.01)
;;00025-0061-51
;;9002226.02101,"733,00025-0061-51 ",.02)
;;00025-0061-51
;;9002226.02101,"733,00025-0061-52 ",.01)
;;00025-0061-52
;;9002226.02101,"733,00025-0061-52 ",.02)
;;00025-0061-52
;;9002226.02101,"733,00025-0061-55 ",.01)
;;00025-0061-55
;;9002226.02101,"733,00025-0061-55 ",.02)
;;00025-0061-55
;;9002226.02101,"733,00025-0066-02 ",.01)
;;00025-0066-02
;;9002226.02101,"733,00025-0066-02 ",.02)
;;00025-0066-02
;;9002226.02101,"733,00031-4221-12 ",.01)
;;00031-4221-12
;;9002226.02101,"733,00031-4221-12 ",.02)
;;00031-4221-12
;;9002226.02101,"733,00031-4221-25 ",.01)
;;00031-4221-25
;;9002226.02101,"733,00031-4221-25 ",.02)
;;00031-4221-25
;;9002226.02101,"733,00031-4221-29 ",.01)
;;00031-4221-29
;;9002226.02101,"733,00031-4221-29 ",.02)
;;00031-4221-29
;;9002226.02101,"733,00037-0301-92 ",.01)
;;00037-0301-92
;;9002226.02101,"733,00037-0301-92 ",.02)
;;00037-0301-92
;;9002226.02101,"733,00054-3194-46 ",.01)
;;00054-3194-46
;;9002226.02101,"733,00054-3194-46 ",.02)
;;00054-3194-46
;;9002226.02101,"733,00054-8171-16 ",.01)
;;00054-8171-16
;;9002226.02101,"733,00054-8171-16 ",.02)
;;00054-8171-16
;;9002226.02101,"733,00054-8191-16 ",.01)
;;00054-8191-16
;;9002226.02101,"733,00054-8191-16 ",.02)
;;00054-8191-16
;;9002226.02101,"733,00067-4345-04 ",.01)
;;00067-4345-04
;;9002226.02101,"733,00067-4345-04 ",.02)
;;00067-4345-04
;;9002226.02101,"733,00067-4346-24 ",.01)
;;00067-4346-24
;;9002226.02101,"733,00067-4346-24 ",.02)
;;00067-4346-24
;;9002226.02101,"733,00074-1630-10 ",.01)
;;00074-1630-10
;;9002226.02101,"733,00074-1630-10 ",.02)
;;00074-1630-10
;;9002226.02101,"733,00074-4910-01 ",.01)
;;00074-4910-01
;;9002226.02101,"733,00074-4910-01 ",.02)
;;00074-4910-01
;;9002226.02101,"733,00074-4910-15 ",.01)
;;00074-4910-15
;;9002226.02101,"733,00074-4910-15 ",.02)
;;00074-4910-15
;;9002226.02101,"733,00074-4910-33 ",.01)
;;00074-4910-33
;;9002226.02101,"733,00074-4910-33 ",.02)
;;00074-4910-33
;;9002226.02101,"733,00074-4910-34 ",.01)
;;00074-4910-34
;;9002226.02101,"733,00074-4910-34 ",.02)
;;00074-4910-34
;;9002226.02101,"733,00074-4911-01 ",.01)
;;00074-4911-01
;;9002226.02101,"733,00074-4911-01 ",.02)
;;00074-4911-01
;;9002226.02101,"733,00074-4911-18 ",.01)
;;00074-4911-18
;;9002226.02101,"733,00074-4911-18 ",.02)
;;00074-4911-18
;;9002226.02101,"733,00074-4911-33 ",.01)
;;00074-4911-33
;;9002226.02101,"733,00074-4911-33 ",.02)
;;00074-4911-33
;;9002226.02101,"733,00074-4911-34 ",.01)
;;00074-4911-34
;;9002226.02101,"733,00074-4911-34 ",.02)
;;00074-4911-34
;;9002226.02101,"733,00074-7897-15 ",.01)
;;00074-7897-15
;;9002226.02101,"733,00074-7897-15 ",.02)
;;00074-7897-15
;;9002226.02101,"733,00074-9629-02 ",.01)
;;00074-9629-02
;;9002226.02101,"733,00074-9629-02 ",.02)
;;00074-9629-02
BGP9SXJD ; 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,"63874-0309-60 ")
+2 ;;457
+3 ;;21,"63874-0309-72 ")
+4 ;;458
+5 ;;21,"63874-0309-74 ")
+6 ;;459
+7 ;;21,"63874-0309-77 ")
+8 ;;460
+9 ;;21,"63874-0724-12 ")
+10 ;;461
+11 ;;21,"64125-0102-01 ")
+12 ;;462
+13 ;;21,"64125-0128-10 ")
+14 ;;463
+15 ;;21,"64543-0111-01 ")
+16 ;;464
+17 ;;21,"64543-0112-01 ")
+18 ;;465
+19 ;;21,"64543-0118-90 ")
+20 ;;466
+21 ;;21,"64731-0295-01 ")
+22 ;;467
+23 ;;21,"64731-0300-01 ")
+24 ;;468
+25 ;;21,"64731-0305-01 ")
+26 ;;469
+27 ;;21,"64731-0860-01 ")
+28 ;;470
+29 ;;21,"65162-0301-10 ")
+30 ;;471
+31 ;;21,"65234-0074-05 ")
+32 ;;472
+33 ;;21,"65234-0074-10 ")
+34 ;;473
+35 ;;21,"66213-0421-10 ")
+36 ;;474
+37 ;;21,"66213-0421-50 ")
+38 ;;475
+39 ;;21,"66213-0422-04 ")
+40 ;;476
+41 ;;21,"66213-0422-16 ")
+42 ;;477
+43 ;;21,"66213-0423-04 ")
+44 ;;478
+45 ;;21,"66213-0423-16 ")
+46 ;;479
+47 ;;21,"66213-0425-10 ")
+48 ;;480
+49 ;;21,"66213-0425-11 ")
+50 ;;481
+51 ;;21,"66346-0082-23 ")
+52 ;;482
+53 ;;21,"66346-0082-31 ")
+54 ;;483
+55 ;;21,"66346-0152-23 ")
+56 ;;484
+57 ;;21,"66346-0152-31 ")
+58 ;;485
+59 ;;21,"66479-0860-01 ")
+60 ;;486
+61 ;;21,"66663-0219-01 ")
+62 ;;487
+63 ;;21,"66663-0702-01 ")
+64 ;;488
+65 ;;21,"66934-0200-30 ")
+66 ;;489
+67 ;;21,"66993-0402-02 ")
+68 ;;490
+69 ;;21,"67204-0531-01 ")
+70 ;;491
+71 ;;21,"67555-0155-10 ")
+72 ;;492
+73 ;;21,"68013-0005-01 ")
+74 ;;493
+75 ;;21,"68115-0041-20 ")
+76 ;;494
+77 ;;21,"68115-0041-30 ")
+78 ;;495
+79 ;;21,"68115-0118-15 ")
+80 ;;496
+81 ;;21,"68115-0118-20 ")
+82 ;;497
+83 ;;21,"68115-0118-30 ")
+84 ;;498
+85 ;;21,"68115-0678-00 ")
+86 ;;499
+87 ;;21,"68115-0788-00 ")
+88 ;;500
+89 ;;21,"68115-0897-04 ")
+90 ;;501
+91 ;;9002226,733,.01)
+92 ;;BGP HEDIS BELLADONNA ALKA NDC
+93 ;;9002226,733,.02)
+94 ;;@
+95 ;;9002226,733,.04)
+96 ;;n
+97 ;;9002226,733,.06)
+98 ;;@
+99 ;;9002226,733,.08)
+100 ;;@
+101 ;;9002226,733,.09)
+102 ;;@
+103 ;;9002226,733,.11)
+104 ;;@
+105 ;;9002226,733,.12)
+106 ;;@
+107 ;;9002226,733,.13)
+108 ;;1
+109 ;;9002226,733,.14)
+110 ;;@
+111 ;;9002226,733,.15)
+112 ;;@
+113 ;;9002226,733,.16)
+114 ;;@
+115 ;;9002226,733,.17)
+116 ;;@
+117 ;;9002226,733,3101)
+118 ;;@
+119 ;;9002226.02101,"733,00002-1675-01 ",.01)
+120 ;;00002-1675-01
+121 ;;9002226.02101,"733,00002-1675-01 ",.02)
+122 ;;00002-1675-01
+123 ;;9002226.02101,"733,00025-0061-31 ",.01)
+124 ;;00025-0061-31
+125 ;;9002226.02101,"733,00025-0061-31 ",.02)
+126 ;;00025-0061-31
+127 ;;9002226.02101,"733,00025-0061-34 ",.01)
+128 ;;00025-0061-34
+129 ;;9002226.02101,"733,00025-0061-34 ",.02)
+130 ;;00025-0061-34
+131 ;;9002226.02101,"733,00025-0061-51 ",.01)
+132 ;;00025-0061-51
+133 ;;9002226.02101,"733,00025-0061-51 ",.02)
+134 ;;00025-0061-51
+135 ;;9002226.02101,"733,00025-0061-52 ",.01)
+136 ;;00025-0061-52
+137 ;;9002226.02101,"733,00025-0061-52 ",.02)
+138 ;;00025-0061-52
+139 ;;9002226.02101,"733,00025-0061-55 ",.01)
+140 ;;00025-0061-55
+141 ;;9002226.02101,"733,00025-0061-55 ",.02)
+142 ;;00025-0061-55
+143 ;;9002226.02101,"733,00025-0066-02 ",.01)
+144 ;;00025-0066-02
+145 ;;9002226.02101,"733,00025-0066-02 ",.02)
+146 ;;00025-0066-02
+147 ;;9002226.02101,"733,00031-4221-12 ",.01)
+148 ;;00031-4221-12
+149 ;;9002226.02101,"733,00031-4221-12 ",.02)
+150 ;;00031-4221-12
+151 ;;9002226.02101,"733,00031-4221-25 ",.01)
+152 ;;00031-4221-25
+153 ;;9002226.02101,"733,00031-4221-25 ",.02)
+154 ;;00031-4221-25
+155 ;;9002226.02101,"733,00031-4221-29 ",.01)
+156 ;;00031-4221-29
+157 ;;9002226.02101,"733,00031-4221-29 ",.02)
+158 ;;00031-4221-29
+159 ;;9002226.02101,"733,00037-0301-92 ",.01)
+160 ;;00037-0301-92
+161 ;;9002226.02101,"733,00037-0301-92 ",.02)
+162 ;;00037-0301-92
+163 ;;9002226.02101,"733,00054-3194-46 ",.01)
+164 ;;00054-3194-46
+165 ;;9002226.02101,"733,00054-3194-46 ",.02)
+166 ;;00054-3194-46
+167 ;;9002226.02101,"733,00054-8171-16 ",.01)
+168 ;;00054-8171-16
+169 ;;9002226.02101,"733,00054-8171-16 ",.02)
+170 ;;00054-8171-16
+171 ;;9002226.02101,"733,00054-8191-16 ",.01)
+172 ;;00054-8191-16
+173 ;;9002226.02101,"733,00054-8191-16 ",.02)
+174 ;;00054-8191-16
+175 ;;9002226.02101,"733,00067-4345-04 ",.01)
+176 ;;00067-4345-04
+177 ;;9002226.02101,"733,00067-4345-04 ",.02)
+178 ;;00067-4345-04
+179 ;;9002226.02101,"733,00067-4346-24 ",.01)
+180 ;;00067-4346-24
+181 ;;9002226.02101,"733,00067-4346-24 ",.02)
+182 ;;00067-4346-24
+183 ;;9002226.02101,"733,00074-1630-10 ",.01)
+184 ;;00074-1630-10
+185 ;;9002226.02101,"733,00074-1630-10 ",.02)
+186 ;;00074-1630-10
+187 ;;9002226.02101,"733,00074-4910-01 ",.01)
+188 ;;00074-4910-01
+189 ;;9002226.02101,"733,00074-4910-01 ",.02)
+190 ;;00074-4910-01
+191 ;;9002226.02101,"733,00074-4910-15 ",.01)
+192 ;;00074-4910-15
+193 ;;9002226.02101,"733,00074-4910-15 ",.02)
+194 ;;00074-4910-15
+195 ;;9002226.02101,"733,00074-4910-33 ",.01)
+196 ;;00074-4910-33
+197 ;;9002226.02101,"733,00074-4910-33 ",.02)
+198 ;;00074-4910-33
+199 ;;9002226.02101,"733,00074-4910-34 ",.01)
+200 ;;00074-4910-34
+201 ;;9002226.02101,"733,00074-4910-34 ",.02)
+202 ;;00074-4910-34
+203 ;;9002226.02101,"733,00074-4911-01 ",.01)
+204 ;;00074-4911-01
+205 ;;9002226.02101,"733,00074-4911-01 ",.02)
+206 ;;00074-4911-01
+207 ;;9002226.02101,"733,00074-4911-18 ",.01)
+208 ;;00074-4911-18
+209 ;;9002226.02101,"733,00074-4911-18 ",.02)
+210 ;;00074-4911-18
+211 ;;9002226.02101,"733,00074-4911-33 ",.01)
+212 ;;00074-4911-33
+213 ;;9002226.02101,"733,00074-4911-33 ",.02)
+214 ;;00074-4911-33
+215 ;;9002226.02101,"733,00074-4911-34 ",.01)
+216 ;;00074-4911-34
+217 ;;9002226.02101,"733,00074-4911-34 ",.02)
+218 ;;00074-4911-34
+219 ;;9002226.02101,"733,00074-7897-15 ",.01)
+220 ;;00074-7897-15
+221 ;;9002226.02101,"733,00074-7897-15 ",.02)
+222 ;;00074-7897-15
+223 ;;9002226.02101,"733,00074-9629-02 ",.01)
+224 ;;00074-9629-02
+225 ;;9002226.02101,"733,00074-9629-02 ",.02)
+226 ;;00074-9629-02
