BGP61E30 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
;
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)
;;9002226.02101,"1218,68258-6091-03 ",.02)
;;68258-6091-03
;;9002226.02101,"1218,68258-6092-03 ",.01)
;;68258-6092-03
;;9002226.02101,"1218,68258-6092-03 ",.02)
;;68258-6092-03
;;9002226.02101,"1218,68258-6093-03 ",.01)
;;68258-6093-03
;;9002226.02101,"1218,68258-6093-03 ",.02)
;;68258-6093-03
;;9002226.02101,"1218,68258-6104-03 ",.01)
;;68258-6104-03
;;9002226.02101,"1218,68258-6104-03 ",.02)
;;68258-6104-03
;;9002226.02101,"1218,68258-6104-09 ",.01)
;;68258-6104-09
;;9002226.02101,"1218,68258-6104-09 ",.02)
;;68258-6104-09
;;9002226.02101,"1218,68258-6964-03 ",.01)
;;68258-6964-03
;;9002226.02101,"1218,68258-6964-03 ",.02)
;;68258-6964-03
;;9002226.02101,"1218,68258-6982-30 ",.01)
;;68258-6982-30
;;9002226.02101,"1218,68258-6982-30 ",.02)
;;68258-6982-30
;;9002226.02101,"1218,68258-6987-03 ",.01)
;;68258-6987-03
;;9002226.02101,"1218,68258-6987-03 ",.02)
;;68258-6987-03
;;9002226.02101,"1218,68258-6988-03 ",.01)
;;68258-6988-03
;;9002226.02101,"1218,68258-6988-03 ",.02)
;;68258-6988-03
;;9002226.02101,"1218,68382-0022-01 ",.01)
;;68382-0022-01
;;9002226.02101,"1218,68382-0022-01 ",.02)
;;68382-0022-01
;;9002226.02101,"1218,68382-0022-10 ",.01)
;;68382-0022-10
;;9002226.02101,"1218,68382-0022-10 ",.02)
;;68382-0022-10
;;9002226.02101,"1218,68382-0023-01 ",.01)
;;68382-0023-01
;;9002226.02101,"1218,68382-0023-01 ",.02)
;;68382-0023-01
;;9002226.02101,"1218,68382-0023-10 ",.01)
;;68382-0023-10
;;9002226.02101,"1218,68382-0023-10 ",.02)
;;68382-0023-10
;;9002226.02101,"1218,68382-0024-01 ",.01)
;;68382-0024-01
;;9002226.02101,"1218,68382-0024-01 ",.02)
;;68382-0024-01
;;9002226.02101,"1218,68382-0024-10 ",.01)
;;68382-0024-10
;;9002226.02101,"1218,68382-0024-10 ",.02)
;;68382-0024-10
;;9002226.02101,"1218,68382-0092-01 ",.01)
;;68382-0092-01
;;9002226.02101,"1218,68382-0092-01 ",.02)
;;68382-0092-01
;;9002226.02101,"1218,68382-0092-05 ",.01)
;;68382-0092-05
;;9002226.02101,"1218,68382-0092-05 ",.02)
;;68382-0092-05
;;9002226.02101,"1218,68382-0092-17 ",.01)
;;68382-0092-17
;;9002226.02101,"1218,68382-0092-17 ",.02)
;;68382-0092-17
;;9002226.02101,"1218,68382-0093-01 ",.01)
;;68382-0093-01
;;9002226.02101,"1218,68382-0093-01 ",.02)
;;68382-0093-01
;;9002226.02101,"1218,68382-0093-05 ",.01)
;;68382-0093-05
;;9002226.02101,"1218,68382-0093-05 ",.02)
;;68382-0093-05
;;9002226.02101,"1218,68382-0093-17 ",.01)
;;68382-0093-17
;;9002226.02101,"1218,68382-0093-17 ",.02)
;;68382-0093-17
;;9002226.02101,"1218,68382-0094-01 ",.01)
;;68382-0094-01
;;9002226.02101,"1218,68382-0094-01 ",.02)
;;68382-0094-01
;;9002226.02101,"1218,68382-0094-05 ",.01)
;;68382-0094-05
;;9002226.02101,"1218,68382-0094-05 ",.02)
;;68382-0094-05
;;9002226.02101,"1218,68382-0094-17 ",.01)
;;68382-0094-17
;;9002226.02101,"1218,68382-0094-17 ",.02)
;;68382-0094-17
;;9002226.02101,"1218,68382-0095-01 ",.01)
;;68382-0095-01
;;9002226.02101,"1218,68382-0095-01 ",.02)
;;68382-0095-01
;;9002226.02101,"1218,68382-0095-05 ",.01)
;;68382-0095-05
;;9002226.02101,"1218,68382-0095-05 ",.02)
;;68382-0095-05
;;9002226.02101,"1218,68382-0095-17 ",.01)
;;68382-0095-17
;;9002226.02101,"1218,68382-0095-17 ",.02)
;;68382-0095-17
;;9002226.02101,"1218,68387-0538-30 ",.01)
;;68387-0538-30
;;9002226.02101,"1218,68387-0538-30 ",.02)
;;68387-0538-30
;;9002226.02101,"1218,68387-0539-30 ",.01)
;;68387-0539-30
;;9002226.02101,"1218,68387-0539-30 ",.02)
;;68387-0539-30
;;9002226.02101,"1218,68462-0162-01 ",.01)
;;68462-0162-01
;;9002226.02101,"1218,68462-0162-01 ",.02)
;;68462-0162-01
;;9002226.02101,"1218,68462-0162-05 ",.01)
;;68462-0162-05
;;9002226.02101,"1218,68462-0162-05 ",.02)
;;68462-0162-05
;;9002226.02101,"1218,68462-0163-01 ",.01)
;;68462-0163-01
;;9002226.02101,"1218,68462-0163-01 ",.02)
;;68462-0163-01
;;9002226.02101,"1218,68462-0163-05 ",.01)
;;68462-0163-05
;;9002226.02101,"1218,68462-0163-05 ",.02)
;;68462-0163-05
;;9002226.02101,"1218,68462-0164-01 ",.01)
;;68462-0164-01
;;9002226.02101,"1218,68462-0164-01 ",.02)
;;68462-0164-01
;;9002226.02101,"1218,68462-0164-05 ",.01)
;;68462-0164-05
;;9002226.02101,"1218,68462-0164-05 ",.02)
;;68462-0164-05
;;9002226.02101,"1218,68462-0165-01 ",.01)
;;68462-0165-01
;;9002226.02101,"1218,68462-0165-01 ",.02)
;;68462-0165-01
;;9002226.02101,"1218,68462-0165-05 ",.01)
;;68462-0165-05
;;9002226.02101,"1218,68462-0165-05 ",.02)
;;68462-0165-05
;;9002226.02101,"1218,68645-0190-59 ",.01)
;;68645-0190-59
;;9002226.02101,"1218,68645-0190-59 ",.02)
;;68645-0190-59
;;9002226.02101,"1218,68645-0191-59 ",.01)
;;68645-0191-59
;;9002226.02101,"1218,68645-0191-59 ",.02)
;;68645-0191-59
;;9002226.02101,"1218,68645-0310-54 ",.01)
;;68645-0310-54
;;9002226.02101,"1218,68645-0310-54 ",.02)
;;68645-0310-54
;;9002226.02101,"1218,68645-0350-59 ",.01)
;;68645-0350-59
;;9002226.02101,"1218,68645-0350-59 ",.02)
;;68645-0350-59
;;9002226.02101,"1218,68645-0351-59 ",.01)
;;68645-0351-59
;;9002226.02101,"1218,68645-0351-59 ",.02)
;;68645-0351-59
;;9002226.02101,"1218,68645-0352-59 ",.01)
;;68645-0352-59
;;9002226.02101,"1218,68645-0352-59 ",.02)
;;68645-0352-59
;;9002226.02101,"1218,68645-0468-59 ",.01)
;;68645-0468-59
;;9002226.02101,"1218,68645-0468-59 ",.02)
;;68645-0468-59
;;9002226.02101,"1218,68645-0477-54 ",.01)
;;68645-0477-54
;;9002226.02101,"1218,68645-0477-54 ",.02)
;;68645-0477-54
;;9002226.02101,"1218,68645-0478-54 ",.01)
;;68645-0478-54
;;9002226.02101,"1218,68645-0478-54 ",.02)
;;68645-0478-54
;;9002226.02101,"1218,68645-0479-54 ",.01)
;;68645-0479-54
;;9002226.02101,"1218,68645-0479-54 ",.02)
;;68645-0479-54
;;9002226.02101,"1218,68645-0493-54 ",.01)
;;68645-0493-54
;;9002226.02101,"1218,68645-0493-54 ",.02)
;;68645-0493-54
;;9002226.02101,"1218,68645-0496-59 ",.01)
;;68645-0496-59
;;9002226.02101,"1218,68645-0496-59 ",.02)
;;68645-0496-59
;;9002226.02101,"1218,68788-9048-03 ",.01)
;;68788-9048-03
;;9002226.02101,"1218,68788-9048-03 ",.02)
;;68788-9048-03
;;9002226.02101,"1218,68788-9049-03 ",.01)
;;68788-9049-03
;;9002226.02101,"1218,68788-9049-03 ",.02)
;;68788-9049-03
;;9002226.02101,"1218,68788-9691-03 ",.01)
;;68788-9691-03
;;9002226.02101,"1218,68788-9691-03 ",.02)
;;68788-9691-03
;;9002226.02101,"1218,68788-9738-03 ",.01)
;;68788-9738-03
;;9002226.02101,"1218,68788-9738-03 ",.02)
;;68788-9738-03
;;9002226.02101,"1218,68788-9789-03 ",.01)
;;68788-9789-03
;;9002226.02101,"1218,68788-9789-03 ",.02)
;;68788-9789-03
;;9002226.02101,"1218,76299-0420-85 ",.01)
;;76299-0420-85
;;9002226.02101,"1218,76299-0420-85 ",.02)
;;76299-0420-85
;;9002226.02101,"1218,76299-0420-88 ",.01)
;;76299-0420-88
;;9002226.02101,"1218,76299-0420-88 ",.02)
;;76299-0420-88
;;9002226.02101,"1218,76299-0422-85 ",.01)
;;76299-0422-85
;;9002226.02101,"1218,76299-0422-85 ",.02)
;;76299-0422-85
;;9002226.02101,"1218,76299-0422-88 ",.01)
;;76299-0422-88
;;9002226.02101,"1218,76299-0422-88 ",.02)
;;76299-0422-88
;;9002226.04101,"1218,1",.01)
;;BGP
BGP61E30 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
+1 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
+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 ;;9002226.02101,"1218,68258-6091-03 ",.02)
+2 ;;68258-6091-03
+3 ;;9002226.02101,"1218,68258-6092-03 ",.01)
+4 ;;68258-6092-03
+5 ;;9002226.02101,"1218,68258-6092-03 ",.02)
+6 ;;68258-6092-03
+7 ;;9002226.02101,"1218,68258-6093-03 ",.01)
+8 ;;68258-6093-03
+9 ;;9002226.02101,"1218,68258-6093-03 ",.02)
+10 ;;68258-6093-03
+11 ;;9002226.02101,"1218,68258-6104-03 ",.01)
+12 ;;68258-6104-03
+13 ;;9002226.02101,"1218,68258-6104-03 ",.02)
+14 ;;68258-6104-03
+15 ;;9002226.02101,"1218,68258-6104-09 ",.01)
+16 ;;68258-6104-09
+17 ;;9002226.02101,"1218,68258-6104-09 ",.02)
+18 ;;68258-6104-09
+19 ;;9002226.02101,"1218,68258-6964-03 ",.01)
+20 ;;68258-6964-03
+21 ;;9002226.02101,"1218,68258-6964-03 ",.02)
+22 ;;68258-6964-03
+23 ;;9002226.02101,"1218,68258-6982-30 ",.01)
+24 ;;68258-6982-30
+25 ;;9002226.02101,"1218,68258-6982-30 ",.02)
+26 ;;68258-6982-30
+27 ;;9002226.02101,"1218,68258-6987-03 ",.01)
+28 ;;68258-6987-03
+29 ;;9002226.02101,"1218,68258-6987-03 ",.02)
+30 ;;68258-6987-03
+31 ;;9002226.02101,"1218,68258-6988-03 ",.01)
+32 ;;68258-6988-03
+33 ;;9002226.02101,"1218,68258-6988-03 ",.02)
+34 ;;68258-6988-03
+35 ;;9002226.02101,"1218,68382-0022-01 ",.01)
+36 ;;68382-0022-01
+37 ;;9002226.02101,"1218,68382-0022-01 ",.02)
+38 ;;68382-0022-01
+39 ;;9002226.02101,"1218,68382-0022-10 ",.01)
+40 ;;68382-0022-10
+41 ;;9002226.02101,"1218,68382-0022-10 ",.02)
+42 ;;68382-0022-10
+43 ;;9002226.02101,"1218,68382-0023-01 ",.01)
+44 ;;68382-0023-01
+45 ;;9002226.02101,"1218,68382-0023-01 ",.02)
+46 ;;68382-0023-01
+47 ;;9002226.02101,"1218,68382-0023-10 ",.01)
+48 ;;68382-0023-10
+49 ;;9002226.02101,"1218,68382-0023-10 ",.02)
+50 ;;68382-0023-10
+51 ;;9002226.02101,"1218,68382-0024-01 ",.01)
+52 ;;68382-0024-01
+53 ;;9002226.02101,"1218,68382-0024-01 ",.02)
+54 ;;68382-0024-01
+55 ;;9002226.02101,"1218,68382-0024-10 ",.01)
+56 ;;68382-0024-10
+57 ;;9002226.02101,"1218,68382-0024-10 ",.02)
+58 ;;68382-0024-10
+59 ;;9002226.02101,"1218,68382-0092-01 ",.01)
+60 ;;68382-0092-01
+61 ;;9002226.02101,"1218,68382-0092-01 ",.02)
+62 ;;68382-0092-01
+63 ;;9002226.02101,"1218,68382-0092-05 ",.01)
+64 ;;68382-0092-05
+65 ;;9002226.02101,"1218,68382-0092-05 ",.02)
+66 ;;68382-0092-05
+67 ;;9002226.02101,"1218,68382-0092-17 ",.01)
+68 ;;68382-0092-17
+69 ;;9002226.02101,"1218,68382-0092-17 ",.02)
+70 ;;68382-0092-17
+71 ;;9002226.02101,"1218,68382-0093-01 ",.01)
+72 ;;68382-0093-01
+73 ;;9002226.02101,"1218,68382-0093-01 ",.02)
+74 ;;68382-0093-01
+75 ;;9002226.02101,"1218,68382-0093-05 ",.01)
+76 ;;68382-0093-05
+77 ;;9002226.02101,"1218,68382-0093-05 ",.02)
+78 ;;68382-0093-05
+79 ;;9002226.02101,"1218,68382-0093-17 ",.01)
+80 ;;68382-0093-17
+81 ;;9002226.02101,"1218,68382-0093-17 ",.02)
+82 ;;68382-0093-17
+83 ;;9002226.02101,"1218,68382-0094-01 ",.01)
+84 ;;68382-0094-01
+85 ;;9002226.02101,"1218,68382-0094-01 ",.02)
+86 ;;68382-0094-01
+87 ;;9002226.02101,"1218,68382-0094-05 ",.01)
+88 ;;68382-0094-05
+89 ;;9002226.02101,"1218,68382-0094-05 ",.02)
+90 ;;68382-0094-05
+91 ;;9002226.02101,"1218,68382-0094-17 ",.01)
+92 ;;68382-0094-17
+93 ;;9002226.02101,"1218,68382-0094-17 ",.02)
+94 ;;68382-0094-17
+95 ;;9002226.02101,"1218,68382-0095-01 ",.01)
+96 ;;68382-0095-01
+97 ;;9002226.02101,"1218,68382-0095-01 ",.02)
+98 ;;68382-0095-01
+99 ;;9002226.02101,"1218,68382-0095-05 ",.01)
+100 ;;68382-0095-05
+101 ;;9002226.02101,"1218,68382-0095-05 ",.02)
+102 ;;68382-0095-05
+103 ;;9002226.02101,"1218,68382-0095-17 ",.01)
+104 ;;68382-0095-17
+105 ;;9002226.02101,"1218,68382-0095-17 ",.02)
+106 ;;68382-0095-17
+107 ;;9002226.02101,"1218,68387-0538-30 ",.01)
+108 ;;68387-0538-30
+109 ;;9002226.02101,"1218,68387-0538-30 ",.02)
+110 ;;68387-0538-30
+111 ;;9002226.02101,"1218,68387-0539-30 ",.01)
+112 ;;68387-0539-30
+113 ;;9002226.02101,"1218,68387-0539-30 ",.02)
+114 ;;68387-0539-30
+115 ;;9002226.02101,"1218,68462-0162-01 ",.01)
+116 ;;68462-0162-01
+117 ;;9002226.02101,"1218,68462-0162-01 ",.02)
+118 ;;68462-0162-01
+119 ;;9002226.02101,"1218,68462-0162-05 ",.01)
+120 ;;68462-0162-05
+121 ;;9002226.02101,"1218,68462-0162-05 ",.02)
+122 ;;68462-0162-05
+123 ;;9002226.02101,"1218,68462-0163-01 ",.01)
+124 ;;68462-0163-01
+125 ;;9002226.02101,"1218,68462-0163-01 ",.02)
+126 ;;68462-0163-01
+127 ;;9002226.02101,"1218,68462-0163-05 ",.01)
+128 ;;68462-0163-05
+129 ;;9002226.02101,"1218,68462-0163-05 ",.02)
+130 ;;68462-0163-05
+131 ;;9002226.02101,"1218,68462-0164-01 ",.01)
+132 ;;68462-0164-01
+133 ;;9002226.02101,"1218,68462-0164-01 ",.02)
+134 ;;68462-0164-01
+135 ;;9002226.02101,"1218,68462-0164-05 ",.01)
+136 ;;68462-0164-05
+137 ;;9002226.02101,"1218,68462-0164-05 ",.02)
+138 ;;68462-0164-05
+139 ;;9002226.02101,"1218,68462-0165-01 ",.01)
+140 ;;68462-0165-01
+141 ;;9002226.02101,"1218,68462-0165-01 ",.02)
+142 ;;68462-0165-01
+143 ;;9002226.02101,"1218,68462-0165-05 ",.01)
+144 ;;68462-0165-05
+145 ;;9002226.02101,"1218,68462-0165-05 ",.02)
+146 ;;68462-0165-05
+147 ;;9002226.02101,"1218,68645-0190-59 ",.01)
+148 ;;68645-0190-59
+149 ;;9002226.02101,"1218,68645-0190-59 ",.02)
+150 ;;68645-0190-59
+151 ;;9002226.02101,"1218,68645-0191-59 ",.01)
+152 ;;68645-0191-59
+153 ;;9002226.02101,"1218,68645-0191-59 ",.02)
+154 ;;68645-0191-59
+155 ;;9002226.02101,"1218,68645-0310-54 ",.01)
+156 ;;68645-0310-54
+157 ;;9002226.02101,"1218,68645-0310-54 ",.02)
+158 ;;68645-0310-54
+159 ;;9002226.02101,"1218,68645-0350-59 ",.01)
+160 ;;68645-0350-59
+161 ;;9002226.02101,"1218,68645-0350-59 ",.02)
+162 ;;68645-0350-59
+163 ;;9002226.02101,"1218,68645-0351-59 ",.01)
+164 ;;68645-0351-59
+165 ;;9002226.02101,"1218,68645-0351-59 ",.02)
+166 ;;68645-0351-59
+167 ;;9002226.02101,"1218,68645-0352-59 ",.01)
+168 ;;68645-0352-59
+169 ;;9002226.02101,"1218,68645-0352-59 ",.02)
+170 ;;68645-0352-59
+171 ;;9002226.02101,"1218,68645-0468-59 ",.01)
+172 ;;68645-0468-59
+173 ;;9002226.02101,"1218,68645-0468-59 ",.02)
+174 ;;68645-0468-59
+175 ;;9002226.02101,"1218,68645-0477-54 ",.01)
+176 ;;68645-0477-54
+177 ;;9002226.02101,"1218,68645-0477-54 ",.02)
+178 ;;68645-0477-54
+179 ;;9002226.02101,"1218,68645-0478-54 ",.01)
+180 ;;68645-0478-54
+181 ;;9002226.02101,"1218,68645-0478-54 ",.02)
+182 ;;68645-0478-54
+183 ;;9002226.02101,"1218,68645-0479-54 ",.01)
+184 ;;68645-0479-54
+185 ;;9002226.02101,"1218,68645-0479-54 ",.02)
+186 ;;68645-0479-54
+187 ;;9002226.02101,"1218,68645-0493-54 ",.01)
+188 ;;68645-0493-54
+189 ;;9002226.02101,"1218,68645-0493-54 ",.02)
+190 ;;68645-0493-54
+191 ;;9002226.02101,"1218,68645-0496-59 ",.01)
+192 ;;68645-0496-59
+193 ;;9002226.02101,"1218,68645-0496-59 ",.02)
+194 ;;68645-0496-59
+195 ;;9002226.02101,"1218,68788-9048-03 ",.01)
+196 ;;68788-9048-03
+197 ;;9002226.02101,"1218,68788-9048-03 ",.02)
+198 ;;68788-9048-03
+199 ;;9002226.02101,"1218,68788-9049-03 ",.01)
+200 ;;68788-9049-03
+201 ;;9002226.02101,"1218,68788-9049-03 ",.02)
+202 ;;68788-9049-03
+203 ;;9002226.02101,"1218,68788-9691-03 ",.01)
+204 ;;68788-9691-03
+205 ;;9002226.02101,"1218,68788-9691-03 ",.02)
+206 ;;68788-9691-03
+207 ;;9002226.02101,"1218,68788-9738-03 ",.01)
+208 ;;68788-9738-03
+209 ;;9002226.02101,"1218,68788-9738-03 ",.02)
+210 ;;68788-9738-03
+211 ;;9002226.02101,"1218,68788-9789-03 ",.01)
+212 ;;68788-9789-03
+213 ;;9002226.02101,"1218,68788-9789-03 ",.02)
+214 ;;68788-9789-03
+215 ;;9002226.02101,"1218,76299-0420-85 ",.01)
+216 ;;76299-0420-85
+217 ;;9002226.02101,"1218,76299-0420-85 ",.02)
+218 ;;76299-0420-85
+219 ;;9002226.02101,"1218,76299-0420-88 ",.01)
+220 ;;76299-0420-88
+221 ;;9002226.02101,"1218,76299-0420-88 ",.02)
+222 ;;76299-0420-88
+223 ;;9002226.02101,"1218,76299-0422-85 ",.01)
+224 ;;76299-0422-85
+225 ;;9002226.02101,"1218,76299-0422-85 ",.02)
+226 ;;76299-0422-85
+227 ;;9002226.02101,"1218,76299-0422-88 ",.01)
+228 ;;76299-0422-88
+229 ;;9002226.02101,"1218,76299-0422-88 ",.02)
+230 ;;76299-0422-88
+231 ;;9002226.04101,"1218,1",.01)
+232 ;;BGP
