BGP21F17 ;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-0022-01 ")
;;515
;;21,"68382-0022-10 ")
;;516
;;21,"68382-0023-01 ")
;;716
;;21,"68382-0023-10 ")
;;717
;;21,"68382-0024-01 ")
;;372
;;21,"68382-0024-10 ")
;;373
;;21,"68382-0092-01 ")
;;1028
;;21,"68382-0092-05 ")
;;1029
;;21,"68382-0092-17 ")
;;1030
;;21,"68382-0093-01 ")
;;1108
;;21,"68382-0093-05 ")
;;1109
;;21,"68382-0093-17 ")
;;1110
;;21,"68382-0094-01 ")
;;884
;;21,"68382-0094-05 ")
;;885
;;21,"68382-0094-17 ")
;;886
;;21,"68382-0095-01 ")
;;966
;;21,"68382-0095-05 ")
;;967
;;21,"68382-0095-17 ")
;;968
;;21,"68387-0537-30 ")
;;718
;;21,"68387-0538-30 ")
;;719
;;21,"68387-0539-30 ")
;;374
;;21,"68462-0162-01 ")
;;1031
;;21,"68462-0162-05 ")
;;1032
;;21,"68462-0163-01 ")
;;1111
;;21,"68462-0163-05 ")
;;1112
;;21,"68462-0164-01 ")
;;887
;;21,"68462-0164-05 ")
;;888
;;21,"68462-0165-01 ")
;;969
;;21,"68462-0165-05 ")
;;970
;;21,"68645-0190-59 ")
;;1858
;;21,"68645-0191-59 ")
;;1569
;;9002226,1195,.01)
;;BGP PQA BETA BLOCKER NDC
;;9002226,1195,.02)
;;@
;;9002226,1195,.04)
;;n
;;9002226,1195,.06)
;;@
;;9002226,1195,.08)
;;@
;;9002226,1195,.09)
;;@
;;9002226,1195,.11)
;;@
;;9002226,1195,.12)
;;@
;;9002226,1195,.13)
;;1
;;9002226,1195,.14)
;;@
;;9002226,1195,.15)
;;@
;;9002226,1195,.16)
;;@
;;9002226,1195,.17)
;;@
;;9002226,1195,3101)
;;@
;;9002226.02101,"1195,00003-0207-50 ",.01)
;;00003-0207-50
;;9002226.02101,"1195,00003-0207-50 ",.02)
;;00003-0207-50
;;9002226.02101,"1195,00003-0207-76 ",.01)
;;00003-0207-76
;;9002226.02101,"1195,00003-0207-76 ",.02)
;;00003-0207-76
;;9002226.02101,"1195,00003-0208-50 ",.01)
;;00003-0208-50
;;9002226.02101,"1195,00003-0208-50 ",.02)
;;00003-0208-50
;;9002226.02101,"1195,00003-0232-50 ",.01)
;;00003-0232-50
;;9002226.02101,"1195,00003-0232-50 ",.02)
;;00003-0232-50
;;9002226.02101,"1195,00003-0241-50 ",.01)
;;00003-0241-50
;;9002226.02101,"1195,00003-0241-50 ",.02)
;;00003-0241-50
;;9002226.02101,"1195,00003-0241-76 ",.01)
;;00003-0241-76
;;9002226.02101,"1195,00003-0241-76 ",.02)
;;00003-0241-76
;;9002226.02101,"1195,00003-0246-49 ",.01)
;;00003-0246-49
;;9002226.02101,"1195,00003-0246-49 ",.02)
;;00003-0246-49
;;9002226.02101,"1195,00003-0283-50 ",.01)
;;00003-0283-50
;;9002226.02101,"1195,00003-0283-50 ",.02)
;;00003-0283-50
;;9002226.02101,"1195,00005-3219-43 ",.01)
;;00005-3219-43
;;9002226.02101,"1195,00005-3219-43 ",.02)
;;00005-3219-43
;;9002226.02101,"1195,00005-3220-34 ",.01)
;;00005-3220-34
;;9002226.02101,"1195,00005-3220-34 ",.02)
;;00005-3220-34
;;9002226.02101,"1195,00005-3234-23 ",.01)
;;00005-3234-23
;;9002226.02101,"1195,00005-3234-23 ",.02)
;;00005-3234-23
;;9002226.02101,"1195,00005-3235-38 ",.01)
;;00005-3235-38
;;9002226.02101,"1195,00005-3235-38 ",.02)
;;00005-3235-38
;;9002226.02101,"1195,00005-3238-23 ",.01)
;;00005-3238-23
;;9002226.02101,"1195,00005-3238-23 ",.02)
;;00005-3238-23
;;9002226.02101,"1195,00005-3816-38 ",.01)
;;00005-3816-38
;;9002226.02101,"1195,00005-3816-38 ",.02)
;;00005-3816-38
;;9002226.02101,"1195,00005-3817-38 ",.01)
;;00005-3817-38
;;9002226.02101,"1195,00005-3817-38 ",.02)
;;00005-3817-38
;;9002226.02101,"1195,00006-0059-68 ",.01)
;;00006-0059-68
;;9002226.02101,"1195,00006-0059-68 ",.02)
;;00006-0059-68
;;9002226.02101,"1195,00006-0067-68 ",.01)
;;00006-0067-68
;;9002226.02101,"1195,00006-0067-68 ",.02)
;;00006-0067-68
;;9002226.02101,"1195,00006-0136-68 ",.01)
;;00006-0136-68
;;9002226.02101,"1195,00006-0136-68 ",.02)
;;00006-0136-68
;;9002226.02101,"1195,00006-0437-68 ",.01)
;;00006-0437-68
;;9002226.02101,"1195,00006-0437-68 ",.02)
;;00006-0437-68
;;9002226.02101,"1195,00007-3370-13 ",.01)
;;00007-3370-13
;;9002226.02101,"1195,00007-3370-13 ",.02)
;;00007-3370-13
;;9002226.02101,"1195,00007-3370-59 ",.01)
;;00007-3370-59
;;9002226.02101,"1195,00007-3370-59 ",.02)
;;00007-3370-59
;;9002226.02101,"1195,00007-3371-13 ",.01)
;;00007-3371-13
;;9002226.02101,"1195,00007-3371-13 ",.02)
;;00007-3371-13
;;9002226.02101,"1195,00007-3371-59 ",.01)
;;00007-3371-59
;;9002226.02101,"1195,00007-3371-59 ",.02)
;;00007-3371-59
;;9002226.02101,"1195,00007-3372-13 ",.01)
;;00007-3372-13
;;9002226.02101,"1195,00007-3372-13 ",.02)
;;00007-3372-13
;;9002226.02101,"1195,00007-3372-59 ",.01)
;;00007-3372-59
;;9002226.02101,"1195,00007-3372-59 ",.02)
;;00007-3372-59
;;9002226.02101,"1195,00007-3373-13 ",.01)
;;00007-3373-13
;;9002226.02101,"1195,00007-3373-13 ",.02)
;;00007-3373-13
;;9002226.02101,"1195,00007-3373-59 ",.01)
;;00007-3373-59
;;9002226.02101,"1195,00007-3373-59 ",.02)
;;00007-3373-59
;;9002226.02101,"1195,00007-4139-20 ",.01)
;;00007-4139-20
;;9002226.02101,"1195,00007-4139-20 ",.02)
;;00007-4139-20
;;9002226.02101,"1195,00007-4139-55 ",.01)
;;00007-4139-55
;;9002226.02101,"1195,00007-4139-55 ",.02)
;;00007-4139-55
;;9002226.02101,"1195,00007-4140-20 ",.01)
;;00007-4140-20
;;9002226.02101,"1195,00007-4140-20 ",.02)
;;00007-4140-20
BGP21F17 ;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-0022-01 ")
+2 ;;515
+3 ;;21,"68382-0022-10 ")
+4 ;;516
+5 ;;21,"68382-0023-01 ")
+6 ;;716
+7 ;;21,"68382-0023-10 ")
+8 ;;717
+9 ;;21,"68382-0024-01 ")
+10 ;;372
+11 ;;21,"68382-0024-10 ")
+12 ;;373
+13 ;;21,"68382-0092-01 ")
+14 ;;1028
+15 ;;21,"68382-0092-05 ")
+16 ;;1029
+17 ;;21,"68382-0092-17 ")
+18 ;;1030
+19 ;;21,"68382-0093-01 ")
+20 ;;1108
+21 ;;21,"68382-0093-05 ")
+22 ;;1109
+23 ;;21,"68382-0093-17 ")
+24 ;;1110
+25 ;;21,"68382-0094-01 ")
+26 ;;884
+27 ;;21,"68382-0094-05 ")
+28 ;;885
+29 ;;21,"68382-0094-17 ")
+30 ;;886
+31 ;;21,"68382-0095-01 ")
+32 ;;966
+33 ;;21,"68382-0095-05 ")
+34 ;;967
+35 ;;21,"68382-0095-17 ")
+36 ;;968
+37 ;;21,"68387-0537-30 ")
+38 ;;718
+39 ;;21,"68387-0538-30 ")
+40 ;;719
+41 ;;21,"68387-0539-30 ")
+42 ;;374
+43 ;;21,"68462-0162-01 ")
+44 ;;1031
+45 ;;21,"68462-0162-05 ")
+46 ;;1032
+47 ;;21,"68462-0163-01 ")
+48 ;;1111
+49 ;;21,"68462-0163-05 ")
+50 ;;1112
+51 ;;21,"68462-0164-01 ")
+52 ;;887
+53 ;;21,"68462-0164-05 ")
+54 ;;888
+55 ;;21,"68462-0165-01 ")
+56 ;;969
+57 ;;21,"68462-0165-05 ")
+58 ;;970
+59 ;;21,"68645-0190-59 ")
+60 ;;1858
+61 ;;21,"68645-0191-59 ")
+62 ;;1569
+63 ;;9002226,1195,.01)
+64 ;;BGP PQA BETA BLOCKER NDC
+65 ;;9002226,1195,.02)
+66 ;;@
+67 ;;9002226,1195,.04)
+68 ;;n
+69 ;;9002226,1195,.06)
+70 ;;@
+71 ;;9002226,1195,.08)
+72 ;;@
+73 ;;9002226,1195,.09)
+74 ;;@
+75 ;;9002226,1195,.11)
+76 ;;@
+77 ;;9002226,1195,.12)
+78 ;;@
+79 ;;9002226,1195,.13)
+80 ;;1
+81 ;;9002226,1195,.14)
+82 ;;@
+83 ;;9002226,1195,.15)
+84 ;;@
+85 ;;9002226,1195,.16)
+86 ;;@
+87 ;;9002226,1195,.17)
+88 ;;@
+89 ;;9002226,1195,3101)
+90 ;;@
+91 ;;9002226.02101,"1195,00003-0207-50 ",.01)
+92 ;;00003-0207-50
+93 ;;9002226.02101,"1195,00003-0207-50 ",.02)
+94 ;;00003-0207-50
+95 ;;9002226.02101,"1195,00003-0207-76 ",.01)
+96 ;;00003-0207-76
+97 ;;9002226.02101,"1195,00003-0207-76 ",.02)
+98 ;;00003-0207-76
+99 ;;9002226.02101,"1195,00003-0208-50 ",.01)
+100 ;;00003-0208-50
+101 ;;9002226.02101,"1195,00003-0208-50 ",.02)
+102 ;;00003-0208-50
+103 ;;9002226.02101,"1195,00003-0232-50 ",.01)
+104 ;;00003-0232-50
+105 ;;9002226.02101,"1195,00003-0232-50 ",.02)
+106 ;;00003-0232-50
+107 ;;9002226.02101,"1195,00003-0241-50 ",.01)
+108 ;;00003-0241-50
+109 ;;9002226.02101,"1195,00003-0241-50 ",.02)
+110 ;;00003-0241-50
+111 ;;9002226.02101,"1195,00003-0241-76 ",.01)
+112 ;;00003-0241-76
+113 ;;9002226.02101,"1195,00003-0241-76 ",.02)
+114 ;;00003-0241-76
+115 ;;9002226.02101,"1195,00003-0246-49 ",.01)
+116 ;;00003-0246-49
+117 ;;9002226.02101,"1195,00003-0246-49 ",.02)
+118 ;;00003-0246-49
+119 ;;9002226.02101,"1195,00003-0283-50 ",.01)
+120 ;;00003-0283-50
+121 ;;9002226.02101,"1195,00003-0283-50 ",.02)
+122 ;;00003-0283-50
+123 ;;9002226.02101,"1195,00005-3219-43 ",.01)
+124 ;;00005-3219-43
+125 ;;9002226.02101,"1195,00005-3219-43 ",.02)
+126 ;;00005-3219-43
+127 ;;9002226.02101,"1195,00005-3220-34 ",.01)
+128 ;;00005-3220-34
+129 ;;9002226.02101,"1195,00005-3220-34 ",.02)
+130 ;;00005-3220-34
+131 ;;9002226.02101,"1195,00005-3234-23 ",.01)
+132 ;;00005-3234-23
+133 ;;9002226.02101,"1195,00005-3234-23 ",.02)
+134 ;;00005-3234-23
+135 ;;9002226.02101,"1195,00005-3235-38 ",.01)
+136 ;;00005-3235-38
+137 ;;9002226.02101,"1195,00005-3235-38 ",.02)
+138 ;;00005-3235-38
+139 ;;9002226.02101,"1195,00005-3238-23 ",.01)
+140 ;;00005-3238-23
+141 ;;9002226.02101,"1195,00005-3238-23 ",.02)
+142 ;;00005-3238-23
+143 ;;9002226.02101,"1195,00005-3816-38 ",.01)
+144 ;;00005-3816-38
+145 ;;9002226.02101,"1195,00005-3816-38 ",.02)
+146 ;;00005-3816-38
+147 ;;9002226.02101,"1195,00005-3817-38 ",.01)
+148 ;;00005-3817-38
+149 ;;9002226.02101,"1195,00005-3817-38 ",.02)
+150 ;;00005-3817-38
+151 ;;9002226.02101,"1195,00006-0059-68 ",.01)
+152 ;;00006-0059-68
+153 ;;9002226.02101,"1195,00006-0059-68 ",.02)
+154 ;;00006-0059-68
+155 ;;9002226.02101,"1195,00006-0067-68 ",.01)
+156 ;;00006-0067-68
+157 ;;9002226.02101,"1195,00006-0067-68 ",.02)
+158 ;;00006-0067-68
+159 ;;9002226.02101,"1195,00006-0136-68 ",.01)
+160 ;;00006-0136-68
+161 ;;9002226.02101,"1195,00006-0136-68 ",.02)
+162 ;;00006-0136-68
+163 ;;9002226.02101,"1195,00006-0437-68 ",.01)
+164 ;;00006-0437-68
+165 ;;9002226.02101,"1195,00006-0437-68 ",.02)
+166 ;;00006-0437-68
+167 ;;9002226.02101,"1195,00007-3370-13 ",.01)
+168 ;;00007-3370-13
+169 ;;9002226.02101,"1195,00007-3370-13 ",.02)
+170 ;;00007-3370-13
+171 ;;9002226.02101,"1195,00007-3370-59 ",.01)
+172 ;;00007-3370-59
+173 ;;9002226.02101,"1195,00007-3370-59 ",.02)
+174 ;;00007-3370-59
+175 ;;9002226.02101,"1195,00007-3371-13 ",.01)
+176 ;;00007-3371-13
+177 ;;9002226.02101,"1195,00007-3371-13 ",.02)
+178 ;;00007-3371-13
+179 ;;9002226.02101,"1195,00007-3371-59 ",.01)
+180 ;;00007-3371-59
+181 ;;9002226.02101,"1195,00007-3371-59 ",.02)
+182 ;;00007-3371-59
+183 ;;9002226.02101,"1195,00007-3372-13 ",.01)
+184 ;;00007-3372-13
+185 ;;9002226.02101,"1195,00007-3372-13 ",.02)
+186 ;;00007-3372-13
+187 ;;9002226.02101,"1195,00007-3372-59 ",.01)
+188 ;;00007-3372-59
+189 ;;9002226.02101,"1195,00007-3372-59 ",.02)
+190 ;;00007-3372-59
+191 ;;9002226.02101,"1195,00007-3373-13 ",.01)
+192 ;;00007-3373-13
+193 ;;9002226.02101,"1195,00007-3373-13 ",.02)
+194 ;;00007-3373-13
+195 ;;9002226.02101,"1195,00007-3373-59 ",.01)
+196 ;;00007-3373-59
+197 ;;9002226.02101,"1195,00007-3373-59 ",.02)
+198 ;;00007-3373-59
+199 ;;9002226.02101,"1195,00007-4139-20 ",.01)
+200 ;;00007-4139-20
+201 ;;9002226.02101,"1195,00007-4139-20 ",.02)
+202 ;;00007-4139-20
+203 ;;9002226.02101,"1195,00007-4139-55 ",.01)
+204 ;;00007-4139-55
+205 ;;9002226.02101,"1195,00007-4139-55 ",.02)
+206 ;;00007-4139-55
+207 ;;9002226.02101,"1195,00007-4140-20 ",.01)
+208 ;;00007-4140-20
+209 ;;9002226.02101,"1195,00007-4140-20 ",.02)
+210 ;;00007-4140-20
