BGP21L11 ;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,"68382-0066-16 ")
;;1024
;;21,"68382-0066-24 ")
;;1025
;;21,"68382-0067-05 ")
;;1171
;;21,"68382-0067-06 ")
;;1172
;;21,"68382-0067-10 ")
;;1173
;;21,"68382-0067-14 ")
;;1174
;;21,"68382-0067-16 ")
;;1175
;;21,"68382-0067-24 ")
;;1176
;;21,"68382-0068-05 ")
;;1329
;;21,"68382-0068-06 ")
;;1330
;;21,"68382-0068-10 ")
;;1331
;;21,"68382-0068-14 ")
;;1332
;;21,"68382-0068-16 ")
;;1333
;;21,"68382-0068-40 ")
;;1334
;;21,"68382-0069-05 ")
;;1516
;;21,"68382-0069-06 ")
;;1517
;;21,"68382-0069-10 ")
;;1518
;;21,"68382-0069-14 ")
;;1519
;;21,"68382-0069-16 ")
;;1520
;;21,"68382-0070-05 ")
;;588
;;21,"68382-0070-16 ")
;;627
;;21,"68382-0071-05 ")
;;645
;;21,"68382-0071-16 ")
;;710
;;21,"68382-0072-05 ")
;;734
;;21,"68382-0072-16 ")
;;803
;;21,"68382-0073-05 ")
;;811
;;21,"68382-0073-16 ")
;;833
;;21,"68462-0195-05 ")
;;628
;;21,"68462-0195-90 ")
;;629
;;21,"68462-0196-05 ")
;;711
;;21,"68462-0196-90 ")
;;712
;;21,"68462-0197-05 ")
;;804
;;21,"68462-0197-90 ")
;;805
;;21,"68462-0198-05 ")
;;834
;;21,"68462-0198-90 ")
;;835
;;21,"68645-0262-54 ")
;;1335
;;9002226,1201,.01)
;;BGP PQA STATIN NDC
;;9002226,1201,.02)
;;@
;;9002226,1201,.04)
;;n
;;9002226,1201,.06)
;;@
;;9002226,1201,.08)
;;@
;;9002226,1201,.09)
;;@
;;9002226,1201,.11)
;;@
;;9002226,1201,.12)
;;@
;;9002226,1201,.13)
;;1
;;9002226,1201,.14)
;;@
;;9002226,1201,.15)
;;@
;;9002226,1201,.16)
;;@
;;9002226,1201,.17)
;;@
;;9002226,1201,3101)
;;@
;;9002226.02101,"1201,00002-4770-90 ",.01)
;;00002-4770-90
;;9002226.02101,"1201,00002-4770-90 ",.02)
;;00002-4770-90
;;9002226.02101,"1201,00002-4771-90 ",.01)
;;00002-4771-90
;;9002226.02101,"1201,00002-4771-90 ",.02)
;;00002-4771-90
;;9002226.02101,"1201,00002-4772-90 ",.01)
;;00002-4772-90
;;9002226.02101,"1201,00002-4772-90 ",.02)
;;00002-4772-90
;;9002226.02101,"1201,00003-5154-05 ",.01)
;;00003-5154-05
;;9002226.02101,"1201,00003-5154-05 ",.02)
;;00003-5154-05
;;9002226.02101,"1201,00003-5168-11 ",.01)
;;00003-5168-11
;;9002226.02101,"1201,00003-5168-11 ",.02)
;;00003-5168-11
;;9002226.02101,"1201,00003-5169-11 ",.01)
;;00003-5169-11
;;9002226.02101,"1201,00003-5169-11 ",.02)
;;00003-5169-11
;;9002226.02101,"1201,00003-5173-11 ",.01)
;;00003-5173-11
;;9002226.02101,"1201,00003-5173-11 ",.02)
;;00003-5173-11
;;9002226.02101,"1201,00003-5174-11 ",.01)
;;00003-5174-11
;;9002226.02101,"1201,00003-5174-11 ",.02)
;;00003-5174-11
;;9002226.02101,"1201,00003-5178-05 ",.01)
;;00003-5178-05
;;9002226.02101,"1201,00003-5178-05 ",.02)
;;00003-5178-05
;;9002226.02101,"1201,00003-5178-06 ",.01)
;;00003-5178-06
;;9002226.02101,"1201,00003-5178-06 ",.02)
;;00003-5178-06
;;9002226.02101,"1201,00003-5178-75 ",.01)
;;00003-5178-75
;;9002226.02101,"1201,00003-5178-75 ",.02)
;;00003-5178-75
;;9002226.02101,"1201,00003-5183-11 ",.01)
;;00003-5183-11
;;9002226.02101,"1201,00003-5183-11 ",.02)
;;00003-5183-11
;;9002226.02101,"1201,00003-5184-11 ",.01)
;;00003-5184-11
;;9002226.02101,"1201,00003-5184-11 ",.02)
;;00003-5184-11
;;9002226.02101,"1201,00003-5194-10 ",.01)
;;00003-5194-10
;;9002226.02101,"1201,00003-5194-10 ",.02)
;;00003-5194-10
;;9002226.02101,"1201,00003-5194-33 ",.01)
;;00003-5194-33
;;9002226.02101,"1201,00003-5194-33 ",.02)
;;00003-5194-33
;;9002226.02101,"1201,00003-5195-10 ",.01)
;;00003-5195-10
;;9002226.02101,"1201,00003-5195-10 ",.02)
;;00003-5195-10
;;9002226.02101,"1201,00003-5195-33 ",.01)
;;00003-5195-33
;;9002226.02101,"1201,00003-5195-33 ",.02)
;;00003-5195-33
;;9002226.02101,"1201,00006-0543-28 ",.01)
;;00006-0543-28
;;9002226.02101,"1201,00006-0543-28 ",.02)
;;00006-0543-28
;;9002226.02101,"1201,00006-0543-31 ",.01)
;;00006-0543-31
;;9002226.02101,"1201,00006-0543-31 ",.02)
;;00006-0543-31
;;9002226.02101,"1201,00006-0543-54 ",.01)
;;00006-0543-54
;;9002226.02101,"1201,00006-0543-54 ",.02)
;;00006-0543-54
;;9002226.02101,"1201,00006-0543-61 ",.01)
;;00006-0543-61
;;9002226.02101,"1201,00006-0543-61 ",.02)
;;00006-0543-61
;;9002226.02101,"1201,00006-0543-82 ",.01)
;;00006-0543-82
;;9002226.02101,"1201,00006-0543-82 ",.02)
;;00006-0543-82
;;9002226.02101,"1201,00006-0726-28 ",.01)
;;00006-0726-28
;;9002226.02101,"1201,00006-0726-28 ",.02)
;;00006-0726-28
;;9002226.02101,"1201,00006-0726-31 ",.01)
;;00006-0726-31
;;9002226.02101,"1201,00006-0726-31 ",.02)
;;00006-0726-31
;;9002226.02101,"1201,00006-0726-54 ",.01)
;;00006-0726-54
;;9002226.02101,"1201,00006-0726-54 ",.02)
;;00006-0726-54
;;9002226.02101,"1201,00006-0726-61 ",.01)
;;00006-0726-61
;;9002226.02101,"1201,00006-0726-61 ",.02)
;;00006-0726-61
;;9002226.02101,"1201,00006-0726-82 ",.01)
;;00006-0726-82
;;9002226.02101,"1201,00006-0726-82 ",.02)
;;00006-0726-82
;;9002226.02101,"1201,00006-0730-61 ",.01)
;;00006-0730-61
;;9002226.02101,"1201,00006-0730-61 ",.02)
;;00006-0730-61
;;9002226.02101,"1201,00006-0731-28 ",.01)
;;00006-0731-28
;;9002226.02101,"1201,00006-0731-28 ",.02)
;;00006-0731-28
BGP21L11 ;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,"68382-0066-16 ")
+2 ;;1024
+3 ;;21,"68382-0066-24 ")
+4 ;;1025
+5 ;;21,"68382-0067-05 ")
+6 ;;1171
+7 ;;21,"68382-0067-06 ")
+8 ;;1172
+9 ;;21,"68382-0067-10 ")
+10 ;;1173
+11 ;;21,"68382-0067-14 ")
+12 ;;1174
+13 ;;21,"68382-0067-16 ")
+14 ;;1175
+15 ;;21,"68382-0067-24 ")
+16 ;;1176
+17 ;;21,"68382-0068-05 ")
+18 ;;1329
+19 ;;21,"68382-0068-06 ")
+20 ;;1330
+21 ;;21,"68382-0068-10 ")
+22 ;;1331
+23 ;;21,"68382-0068-14 ")
+24 ;;1332
+25 ;;21,"68382-0068-16 ")
+26 ;;1333
+27 ;;21,"68382-0068-40 ")
+28 ;;1334
+29 ;;21,"68382-0069-05 ")
+30 ;;1516
+31 ;;21,"68382-0069-06 ")
+32 ;;1517
+33 ;;21,"68382-0069-10 ")
+34 ;;1518
+35 ;;21,"68382-0069-14 ")
+36 ;;1519
+37 ;;21,"68382-0069-16 ")
+38 ;;1520
+39 ;;21,"68382-0070-05 ")
+40 ;;588
+41 ;;21,"68382-0070-16 ")
+42 ;;627
+43 ;;21,"68382-0071-05 ")
+44 ;;645
+45 ;;21,"68382-0071-16 ")
+46 ;;710
+47 ;;21,"68382-0072-05 ")
+48 ;;734
+49 ;;21,"68382-0072-16 ")
+50 ;;803
+51 ;;21,"68382-0073-05 ")
+52 ;;811
+53 ;;21,"68382-0073-16 ")
+54 ;;833
+55 ;;21,"68462-0195-05 ")
+56 ;;628
+57 ;;21,"68462-0195-90 ")
+58 ;;629
+59 ;;21,"68462-0196-05 ")
+60 ;;711
+61 ;;21,"68462-0196-90 ")
+62 ;;712
+63 ;;21,"68462-0197-05 ")
+64 ;;804
+65 ;;21,"68462-0197-90 ")
+66 ;;805
+67 ;;21,"68462-0198-05 ")
+68 ;;834
+69 ;;21,"68462-0198-90 ")
+70 ;;835
+71 ;;21,"68645-0262-54 ")
+72 ;;1335
+73 ;;9002226,1201,.01)
+74 ;;BGP PQA STATIN NDC
+75 ;;9002226,1201,.02)
+76 ;;@
+77 ;;9002226,1201,.04)
+78 ;;n
+79 ;;9002226,1201,.06)
+80 ;;@
+81 ;;9002226,1201,.08)
+82 ;;@
+83 ;;9002226,1201,.09)
+84 ;;@
+85 ;;9002226,1201,.11)
+86 ;;@
+87 ;;9002226,1201,.12)
+88 ;;@
+89 ;;9002226,1201,.13)
+90 ;;1
+91 ;;9002226,1201,.14)
+92 ;;@
+93 ;;9002226,1201,.15)
+94 ;;@
+95 ;;9002226,1201,.16)
+96 ;;@
+97 ;;9002226,1201,.17)
+98 ;;@
+99 ;;9002226,1201,3101)
+100 ;;@
+101 ;;9002226.02101,"1201,00002-4770-90 ",.01)
+102 ;;00002-4770-90
+103 ;;9002226.02101,"1201,00002-4770-90 ",.02)
+104 ;;00002-4770-90
+105 ;;9002226.02101,"1201,00002-4771-90 ",.01)
+106 ;;00002-4771-90
+107 ;;9002226.02101,"1201,00002-4771-90 ",.02)
+108 ;;00002-4771-90
+109 ;;9002226.02101,"1201,00002-4772-90 ",.01)
+110 ;;00002-4772-90
+111 ;;9002226.02101,"1201,00002-4772-90 ",.02)
+112 ;;00002-4772-90
+113 ;;9002226.02101,"1201,00003-5154-05 ",.01)
+114 ;;00003-5154-05
+115 ;;9002226.02101,"1201,00003-5154-05 ",.02)
+116 ;;00003-5154-05
+117 ;;9002226.02101,"1201,00003-5168-11 ",.01)
+118 ;;00003-5168-11
+119 ;;9002226.02101,"1201,00003-5168-11 ",.02)
+120 ;;00003-5168-11
+121 ;;9002226.02101,"1201,00003-5169-11 ",.01)
+122 ;;00003-5169-11
+123 ;;9002226.02101,"1201,00003-5169-11 ",.02)
+124 ;;00003-5169-11
+125 ;;9002226.02101,"1201,00003-5173-11 ",.01)
+126 ;;00003-5173-11
+127 ;;9002226.02101,"1201,00003-5173-11 ",.02)
+128 ;;00003-5173-11
+129 ;;9002226.02101,"1201,00003-5174-11 ",.01)
+130 ;;00003-5174-11
+131 ;;9002226.02101,"1201,00003-5174-11 ",.02)
+132 ;;00003-5174-11
+133 ;;9002226.02101,"1201,00003-5178-05 ",.01)
+134 ;;00003-5178-05
+135 ;;9002226.02101,"1201,00003-5178-05 ",.02)
+136 ;;00003-5178-05
+137 ;;9002226.02101,"1201,00003-5178-06 ",.01)
+138 ;;00003-5178-06
+139 ;;9002226.02101,"1201,00003-5178-06 ",.02)
+140 ;;00003-5178-06
+141 ;;9002226.02101,"1201,00003-5178-75 ",.01)
+142 ;;00003-5178-75
+143 ;;9002226.02101,"1201,00003-5178-75 ",.02)
+144 ;;00003-5178-75
+145 ;;9002226.02101,"1201,00003-5183-11 ",.01)
+146 ;;00003-5183-11
+147 ;;9002226.02101,"1201,00003-5183-11 ",.02)
+148 ;;00003-5183-11
+149 ;;9002226.02101,"1201,00003-5184-11 ",.01)
+150 ;;00003-5184-11
+151 ;;9002226.02101,"1201,00003-5184-11 ",.02)
+152 ;;00003-5184-11
+153 ;;9002226.02101,"1201,00003-5194-10 ",.01)
+154 ;;00003-5194-10
+155 ;;9002226.02101,"1201,00003-5194-10 ",.02)
+156 ;;00003-5194-10
+157 ;;9002226.02101,"1201,00003-5194-33 ",.01)
+158 ;;00003-5194-33
+159 ;;9002226.02101,"1201,00003-5194-33 ",.02)
+160 ;;00003-5194-33
+161 ;;9002226.02101,"1201,00003-5195-10 ",.01)
+162 ;;00003-5195-10
+163 ;;9002226.02101,"1201,00003-5195-10 ",.02)
+164 ;;00003-5195-10
+165 ;;9002226.02101,"1201,00003-5195-33 ",.01)
+166 ;;00003-5195-33
+167 ;;9002226.02101,"1201,00003-5195-33 ",.02)
+168 ;;00003-5195-33
+169 ;;9002226.02101,"1201,00006-0543-28 ",.01)
+170 ;;00006-0543-28
+171 ;;9002226.02101,"1201,00006-0543-28 ",.02)
+172 ;;00006-0543-28
+173 ;;9002226.02101,"1201,00006-0543-31 ",.01)
+174 ;;00006-0543-31
+175 ;;9002226.02101,"1201,00006-0543-31 ",.02)
+176 ;;00006-0543-31
+177 ;;9002226.02101,"1201,00006-0543-54 ",.01)
+178 ;;00006-0543-54
+179 ;;9002226.02101,"1201,00006-0543-54 ",.02)
+180 ;;00006-0543-54
+181 ;;9002226.02101,"1201,00006-0543-61 ",.01)
+182 ;;00006-0543-61
+183 ;;9002226.02101,"1201,00006-0543-61 ",.02)
+184 ;;00006-0543-61
+185 ;;9002226.02101,"1201,00006-0543-82 ",.01)
+186 ;;00006-0543-82
+187 ;;9002226.02101,"1201,00006-0543-82 ",.02)
+188 ;;00006-0543-82
+189 ;;9002226.02101,"1201,00006-0726-28 ",.01)
+190 ;;00006-0726-28
+191 ;;9002226.02101,"1201,00006-0726-28 ",.02)
+192 ;;00006-0726-28
+193 ;;9002226.02101,"1201,00006-0726-31 ",.01)
+194 ;;00006-0726-31
+195 ;;9002226.02101,"1201,00006-0726-31 ",.02)
+196 ;;00006-0726-31
+197 ;;9002226.02101,"1201,00006-0726-54 ",.01)
+198 ;;00006-0726-54
+199 ;;9002226.02101,"1201,00006-0726-54 ",.02)
+200 ;;00006-0726-54
+201 ;;9002226.02101,"1201,00006-0726-61 ",.01)
+202 ;;00006-0726-61
+203 ;;9002226.02101,"1201,00006-0726-61 ",.02)
+204 ;;00006-0726-61
+205 ;;9002226.02101,"1201,00006-0726-82 ",.01)
+206 ;;00006-0726-82
+207 ;;9002226.02101,"1201,00006-0726-82 ",.02)
+208 ;;00006-0726-82
+209 ;;9002226.02101,"1201,00006-0730-61 ",.01)
+210 ;;00006-0730-61
+211 ;;9002226.02101,"1201,00006-0730-61 ",.02)
+212 ;;00006-0730-61
+213 ;;9002226.02101,"1201,00006-0731-28 ",.01)
+214 ;;00006-0731-28
+215 ;;9002226.02101,"1201,00006-0731-28 ",.02)
+216 ;;00006-0731-28
