BGP21M4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;
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,"60760-0010-18 ")
;;335
;;21,"60760-0010-63 ")
;;332
;;21,"60760-0595-04 ")
;;263
;;21,"60760-0595-14 ")
;;249
;;21,"61958-0401-01 ")
;;445
;;21,"61958-0601-01 ")
;;148
;;21,"61958-0602-01 ")
;;151
;;21,"61958-0701-01 ")
;;152
;;21,"62584-0046-11 ")
;;89
;;21,"62584-0046-21 ")
;;90
;;21,"62584-0048-11 ")
;;108
;;21,"62584-0048-21 ")
;;107
;;21,"62682-1016-06 ")
;;208
;;21,"62682-1018-02 ")
;;390
;;21,"62682-1018-09 ")
;;389
;;21,"63010-0010-30 ")
;;336
;;21,"63010-0011-90 ")
;;322
;;21,"63010-0020-36 ")
;;62
;;21,"63010-0021-18 ")
;;66
;;21,"63010-0027-70 ")
;;344
;;21,"63304-0920-60 ")
;;508
;;21,"65862-0024-60 ")
;;509
;;21,"65862-0046-60 ")
;;422
;;21,"65862-0047-60 ")
;;432
;;21,"65862-0048-24 ")
;;495
;;21,"65862-0107-01 ")
;;489
;;21,"65862-0111-60 ")
;;403
;;21,"65862-0112-60 ")
;;410
;;21,"65862-0310-30 ")
;;77
;;21,"65862-0311-30 ")
;;81
;;21,"65862-0312-30 ")
;;100
;;21,"65862-0313-30 ")
;;116
;;21,"66267-0509-06 ")
;;277
;;21,"66267-0514-18 ")
;;339
;;21,"66267-0514-63 ")
;;338
;;21,"66336-0032-03 ")
;;159
;;21,"66336-0563-06 ")
;;271
;;21,"67253-0109-10 ")
;;490
;;21,"67253-0761-20 ")
;;441
;;21,"67253-0961-24 ")
;;496
;;21,"68030-6059-01 ")
;;460
;;21,"68030-6060-01 ")
;;212
;;21,"68030-6064-01 ")
;;213
;;21,"68030-6065-01 ")
;;461
;;21,"68030-7284-01 ")
;;329
;;21,"68084-0431-11 ")
;;102
;;21,"68084-0431-21 ")
;;101
;;21,"68084-0432-11 ")
;;118
;;21,"68084-0432-21 ")
;;119
;;21,"68084-0460-11 ")
;;429
;;21,"68084-0460-21 ")
;;428
;;21,"68084-0461-11 ")
;;471
;;21,"68084-0461-21 ")
;;470
;;21,"68084-0462-11 ")
;;500
;;21,"68084-0462-21 ")
;;501
;;21,"68115-0090-06 ")
;;244
;;21,"68115-0360-06 ")
;;426
;;21,"68258-9003-01 ")
;;443
;;21,"68258-9020-01 ")
;;136
;;21,"68258-9021-01 ")
;;131
;;21,"68258-9108-01 ")
;;214
;;21,"68258-9126-01 ")
;;408
;;21,"68258-9142-01 ")
;;31
;;21,"68258-9158-01 ")
;;19
;;9002226,1202,.01)
;;BGP PQA ANTIRETROVIRAL NDC
;;9002226,1202,.02)
;;@
;;9002226,1202,.04)
;;n
;;9002226,1202,.06)
;;@
;;9002226,1202,.08)
;;@
;;9002226,1202,.09)
;;@
;;9002226,1202,.11)
;;@
;;9002226,1202,.12)
;;@
;;9002226,1202,.13)
;;1
;;9002226,1202,.14)
;;@
;;9002226,1202,.15)
;;@
;;9002226,1202,.16)
;;@
;;9002226,1202,.17)
;;@
;;9002226,1202,3101)
;;@
;;9002226.02101,"1202,00003-1964-01 ",.01)
;;00003-1964-01
;;9002226.02101,"1202,00003-1964-01 ",.02)
;;00003-1964-01
;;9002226.02101,"1202,00003-1965-01 ",.01)
;;00003-1965-01
;;9002226.02101,"1202,00003-1965-01 ",.02)
;;00003-1965-01
;;9002226.02101,"1202,00003-1966-01 ",.01)
;;00003-1966-01
;;9002226.02101,"1202,00003-1966-01 ",.02)
;;00003-1966-01
;;9002226.02101,"1202,00003-1967-01 ",.01)
;;00003-1967-01
;;9002226.02101,"1202,00003-1967-01 ",.02)
;;00003-1967-01
;;9002226.02101,"1202,00003-1968-01 ",.01)
;;00003-1968-01
;;9002226.02101,"1202,00003-1968-01 ",.02)
;;00003-1968-01
;;9002226.02101,"1202,00003-3622-12 ",.01)
;;00003-3622-12
;;9002226.02101,"1202,00003-3622-12 ",.02)
;;00003-3622-12
;;9002226.02101,"1202,00003-3623-12 ",.01)
;;00003-3623-12
;;9002226.02101,"1202,00003-3623-12 ",.02)
;;00003-3623-12
;;9002226.02101,"1202,00003-3624-12 ",.01)
;;00003-3624-12
;;9002226.02101,"1202,00003-3624-12 ",.02)
;;00003-3624-12
;;9002226.02101,"1202,00003-3631-12 ",.01)
;;00003-3631-12
;;9002226.02101,"1202,00003-3631-12 ",.02)
;;00003-3631-12
;;9002226.02101,"1202,00004-0220-01 ",.01)
;;00004-0220-01
;;9002226.02101,"1202,00004-0220-01 ",.02)
;;00004-0220-01
;;9002226.02101,"1202,00004-0221-01 ",.01)
;;00004-0221-01
;;9002226.02101,"1202,00004-0221-01 ",.02)
;;00004-0221-01
;;9002226.02101,"1202,00004-0244-51 ",.01)
;;00004-0244-51
;;9002226.02101,"1202,00004-0244-51 ",.02)
;;00004-0244-51
;;9002226.02101,"1202,00004-0245-15 ",.01)
;;00004-0245-15
;;9002226.02101,"1202,00004-0245-15 ",.02)
;;00004-0245-15
;;9002226.02101,"1202,00004-0246-48 ",.01)
;;00004-0246-48
;;9002226.02101,"1202,00004-0246-48 ",.02)
;;00004-0246-48
;;9002226.02101,"1202,00004-0380-39 ",.01)
;;00004-0380-39
;;9002226.02101,"1202,00004-0380-39 ",.02)
;;00004-0380-39
;;9002226.02101,"1202,00006-0227-61 ",.01)
;;00006-0227-61
;;9002226.02101,"1202,00006-0227-61 ",.02)
;;00006-0227-61
;;9002226.02101,"1202,00006-0570-62 ",.01)
;;00006-0570-62
;;9002226.02101,"1202,00006-0570-62 ",.02)
;;00006-0570-62
;;9002226.02101,"1202,00006-0571-43 ",.01)
;;00006-0571-43
;;9002226.02101,"1202,00006-0571-43 ",.02)
;;00006-0571-43
;;9002226.02101,"1202,00006-0573-01 ",.01)
;;00006-0573-01
;;9002226.02101,"1202,00006-0573-01 ",.02)
;;00006-0573-01
;;9002226.02101,"1202,00006-0573-18 ",.01)
;;00006-0573-18
;;9002226.02101,"1202,00006-0573-18 ",.02)
;;00006-0573-18
;;9002226.02101,"1202,00006-0573-40 ",.01)
;;00006-0573-40
;;9002226.02101,"1202,00006-0573-40 ",.02)
;;00006-0573-40
BGP21M4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
+1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
+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,"60760-0010-18 ")
+2 ;;335
+3 ;;21,"60760-0010-63 ")
+4 ;;332
+5 ;;21,"60760-0595-04 ")
+6 ;;263
+7 ;;21,"60760-0595-14 ")
+8 ;;249
+9 ;;21,"61958-0401-01 ")
+10 ;;445
+11 ;;21,"61958-0601-01 ")
+12 ;;148
+13 ;;21,"61958-0602-01 ")
+14 ;;151
+15 ;;21,"61958-0701-01 ")
+16 ;;152
+17 ;;21,"62584-0046-11 ")
+18 ;;89
+19 ;;21,"62584-0046-21 ")
+20 ;;90
+21 ;;21,"62584-0048-11 ")
+22 ;;108
+23 ;;21,"62584-0048-21 ")
+24 ;;107
+25 ;;21,"62682-1016-06 ")
+26 ;;208
+27 ;;21,"62682-1018-02 ")
+28 ;;390
+29 ;;21,"62682-1018-09 ")
+30 ;;389
+31 ;;21,"63010-0010-30 ")
+32 ;;336
+33 ;;21,"63010-0011-90 ")
+34 ;;322
+35 ;;21,"63010-0020-36 ")
+36 ;;62
+37 ;;21,"63010-0021-18 ")
+38 ;;66
+39 ;;21,"63010-0027-70 ")
+40 ;;344
+41 ;;21,"63304-0920-60 ")
+42 ;;508
+43 ;;21,"65862-0024-60 ")
+44 ;;509
+45 ;;21,"65862-0046-60 ")
+46 ;;422
+47 ;;21,"65862-0047-60 ")
+48 ;;432
+49 ;;21,"65862-0048-24 ")
+50 ;;495
+51 ;;21,"65862-0107-01 ")
+52 ;;489
+53 ;;21,"65862-0111-60 ")
+54 ;;403
+55 ;;21,"65862-0112-60 ")
+56 ;;410
+57 ;;21,"65862-0310-30 ")
+58 ;;77
+59 ;;21,"65862-0311-30 ")
+60 ;;81
+61 ;;21,"65862-0312-30 ")
+62 ;;100
+63 ;;21,"65862-0313-30 ")
+64 ;;116
+65 ;;21,"66267-0509-06 ")
+66 ;;277
+67 ;;21,"66267-0514-18 ")
+68 ;;339
+69 ;;21,"66267-0514-63 ")
+70 ;;338
+71 ;;21,"66336-0032-03 ")
+72 ;;159
+73 ;;21,"66336-0563-06 ")
+74 ;;271
+75 ;;21,"67253-0109-10 ")
+76 ;;490
+77 ;;21,"67253-0761-20 ")
+78 ;;441
+79 ;;21,"67253-0961-24 ")
+80 ;;496
+81 ;;21,"68030-6059-01 ")
+82 ;;460
+83 ;;21,"68030-6060-01 ")
+84 ;;212
+85 ;;21,"68030-6064-01 ")
+86 ;;213
+87 ;;21,"68030-6065-01 ")
+88 ;;461
+89 ;;21,"68030-7284-01 ")
+90 ;;329
+91 ;;21,"68084-0431-11 ")
+92 ;;102
+93 ;;21,"68084-0431-21 ")
+94 ;;101
+95 ;;21,"68084-0432-11 ")
+96 ;;118
+97 ;;21,"68084-0432-21 ")
+98 ;;119
+99 ;;21,"68084-0460-11 ")
+100 ;;429
+101 ;;21,"68084-0460-21 ")
+102 ;;428
+103 ;;21,"68084-0461-11 ")
+104 ;;471
+105 ;;21,"68084-0461-21 ")
+106 ;;470
+107 ;;21,"68084-0462-11 ")
+108 ;;500
+109 ;;21,"68084-0462-21 ")
+110 ;;501
+111 ;;21,"68115-0090-06 ")
+112 ;;244
+113 ;;21,"68115-0360-06 ")
+114 ;;426
+115 ;;21,"68258-9003-01 ")
+116 ;;443
+117 ;;21,"68258-9020-01 ")
+118 ;;136
+119 ;;21,"68258-9021-01 ")
+120 ;;131
+121 ;;21,"68258-9108-01 ")
+122 ;;214
+123 ;;21,"68258-9126-01 ")
+124 ;;408
+125 ;;21,"68258-9142-01 ")
+126 ;;31
+127 ;;21,"68258-9158-01 ")
+128 ;;19
+129 ;;9002226,1202,.01)
+130 ;;BGP PQA ANTIRETROVIRAL NDC
+131 ;;9002226,1202,.02)
+132 ;;@
+133 ;;9002226,1202,.04)
+134 ;;n
+135 ;;9002226,1202,.06)
+136 ;;@
+137 ;;9002226,1202,.08)
+138 ;;@
+139 ;;9002226,1202,.09)
+140 ;;@
+141 ;;9002226,1202,.11)
+142 ;;@
+143 ;;9002226,1202,.12)
+144 ;;@
+145 ;;9002226,1202,.13)
+146 ;;1
+147 ;;9002226,1202,.14)
+148 ;;@
+149 ;;9002226,1202,.15)
+150 ;;@
+151 ;;9002226,1202,.16)
+152 ;;@
+153 ;;9002226,1202,.17)
+154 ;;@
+155 ;;9002226,1202,3101)
+156 ;;@
+157 ;;9002226.02101,"1202,00003-1964-01 ",.01)
+158 ;;00003-1964-01
+159 ;;9002226.02101,"1202,00003-1964-01 ",.02)
+160 ;;00003-1964-01
+161 ;;9002226.02101,"1202,00003-1965-01 ",.01)
+162 ;;00003-1965-01
+163 ;;9002226.02101,"1202,00003-1965-01 ",.02)
+164 ;;00003-1965-01
+165 ;;9002226.02101,"1202,00003-1966-01 ",.01)
+166 ;;00003-1966-01
+167 ;;9002226.02101,"1202,00003-1966-01 ",.02)
+168 ;;00003-1966-01
+169 ;;9002226.02101,"1202,00003-1967-01 ",.01)
+170 ;;00003-1967-01
+171 ;;9002226.02101,"1202,00003-1967-01 ",.02)
+172 ;;00003-1967-01
+173 ;;9002226.02101,"1202,00003-1968-01 ",.01)
+174 ;;00003-1968-01
+175 ;;9002226.02101,"1202,00003-1968-01 ",.02)
+176 ;;00003-1968-01
+177 ;;9002226.02101,"1202,00003-3622-12 ",.01)
+178 ;;00003-3622-12
+179 ;;9002226.02101,"1202,00003-3622-12 ",.02)
+180 ;;00003-3622-12
+181 ;;9002226.02101,"1202,00003-3623-12 ",.01)
+182 ;;00003-3623-12
+183 ;;9002226.02101,"1202,00003-3623-12 ",.02)
+184 ;;00003-3623-12
+185 ;;9002226.02101,"1202,00003-3624-12 ",.01)
+186 ;;00003-3624-12
+187 ;;9002226.02101,"1202,00003-3624-12 ",.02)
+188 ;;00003-3624-12
+189 ;;9002226.02101,"1202,00003-3631-12 ",.01)
+190 ;;00003-3631-12
+191 ;;9002226.02101,"1202,00003-3631-12 ",.02)
+192 ;;00003-3631-12
+193 ;;9002226.02101,"1202,00004-0220-01 ",.01)
+194 ;;00004-0220-01
+195 ;;9002226.02101,"1202,00004-0220-01 ",.02)
+196 ;;00004-0220-01
+197 ;;9002226.02101,"1202,00004-0221-01 ",.01)
+198 ;;00004-0221-01
+199 ;;9002226.02101,"1202,00004-0221-01 ",.02)
+200 ;;00004-0221-01
+201 ;;9002226.02101,"1202,00004-0244-51 ",.01)
+202 ;;00004-0244-51
+203 ;;9002226.02101,"1202,00004-0244-51 ",.02)
+204 ;;00004-0244-51
+205 ;;9002226.02101,"1202,00004-0245-15 ",.01)
+206 ;;00004-0245-15
+207 ;;9002226.02101,"1202,00004-0245-15 ",.02)
+208 ;;00004-0245-15
+209 ;;9002226.02101,"1202,00004-0246-48 ",.01)
+210 ;;00004-0246-48
+211 ;;9002226.02101,"1202,00004-0246-48 ",.02)
+212 ;;00004-0246-48
+213 ;;9002226.02101,"1202,00004-0380-39 ",.01)
+214 ;;00004-0380-39
+215 ;;9002226.02101,"1202,00004-0380-39 ",.02)
+216 ;;00004-0380-39
+217 ;;9002226.02101,"1202,00006-0227-61 ",.01)
+218 ;;00006-0227-61
+219 ;;9002226.02101,"1202,00006-0227-61 ",.02)
+220 ;;00006-0227-61
+221 ;;9002226.02101,"1202,00006-0570-62 ",.01)
+222 ;;00006-0570-62
+223 ;;9002226.02101,"1202,00006-0570-62 ",.02)
+224 ;;00006-0570-62
+225 ;;9002226.02101,"1202,00006-0571-43 ",.01)
+226 ;;00006-0571-43
+227 ;;9002226.02101,"1202,00006-0571-43 ",.02)
+228 ;;00006-0571-43
+229 ;;9002226.02101,"1202,00006-0573-01 ",.01)
+230 ;;00006-0573-01
+231 ;;9002226.02101,"1202,00006-0573-01 ",.02)
+232 ;;00006-0573-01
+233 ;;9002226.02101,"1202,00006-0573-18 ",.01)
+234 ;;00006-0573-18
+235 ;;9002226.02101,"1202,00006-0573-18 ",.02)
+236 ;;00006-0573-18
+237 ;;9002226.02101,"1202,00006-0573-40 ",.01)
+238 ;;00006-0573-40
+239 ;;9002226.02101,"1202,00006-0573-40 ",.02)
+240 ;;00006-0573-40
