BGP72E7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
;
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,"1227,68084-0620-11 ",.02)
;;68084-0620-11
;;9002226.02101,"1227,68084-0638-11 ",.01)
;;68084-0638-11
;;9002226.02101,"1227,68084-0638-11 ",.02)
;;68084-0638-11
;;9002226.02101,"1227,68084-0638-21 ",.01)
;;68084-0638-21
;;9002226.02101,"1227,68084-0638-21 ",.02)
;;68084-0638-21
;;9002226.02101,"1227,68084-0864-01 ",.01)
;;68084-0864-01
;;9002226.02101,"1227,68084-0864-01 ",.02)
;;68084-0864-01
;;9002226.02101,"1227,68084-0864-11 ",.01)
;;68084-0864-11
;;9002226.02101,"1227,68084-0864-11 ",.02)
;;68084-0864-11
;;9002226.02101,"1227,68084-0875-01 ",.01)
;;68084-0875-01
;;9002226.02101,"1227,68084-0875-01 ",.02)
;;68084-0875-01
;;9002226.02101,"1227,68084-0875-11 ",.01)
;;68084-0875-11
;;9002226.02101,"1227,68084-0875-11 ",.02)
;;68084-0875-11
;;9002226.02101,"1227,68258-3031-01 ",.01)
;;68258-3031-01
;;9002226.02101,"1227,68258-3031-01 ",.02)
;;68258-3031-01
;;9002226.02101,"1227,68258-3032-03 ",.01)
;;68258-3032-03
;;9002226.02101,"1227,68258-3032-03 ",.02)
;;68258-3032-03
;;9002226.02101,"1227,68258-3033-03 ",.01)
;;68258-3033-03
;;9002226.02101,"1227,68258-3033-03 ",.02)
;;68258-3033-03
;;9002226.02101,"1227,68258-8961-06 ",.01)
;;68258-8961-06
;;9002226.02101,"1227,68258-8961-06 ",.02)
;;68258-8961-06
;;9002226.02101,"1227,68462-0356-01 ",.01)
;;68462-0356-01
;;9002226.02101,"1227,68462-0356-01 ",.02)
;;68462-0356-01
;;9002226.02101,"1227,68462-0380-01 ",.01)
;;68462-0380-01
;;9002226.02101,"1227,68462-0380-01 ",.02)
;;68462-0380-01
;;9002226.02101,"1227,68462-0392-05 ",.01)
;;68462-0392-05
;;9002226.02101,"1227,68462-0392-05 ",.02)
;;68462-0392-05
;;9002226.02101,"1227,68462-0392-30 ",.01)
;;68462-0392-30
;;9002226.02101,"1227,68462-0392-30 ",.02)
;;68462-0392-30
;;9002226.02101,"1227,68462-0392-90 ",.01)
;;68462-0392-90
;;9002226.02101,"1227,68462-0392-90 ",.02)
;;68462-0392-90
;;9002226.02101,"1227,68645-0466-54 ",.01)
;;68645-0466-54
;;9002226.02101,"1227,68645-0466-54 ",.02)
;;68645-0466-54
;;9002226.02101,"1227,68645-0484-70 ",.01)
;;68645-0484-70
;;9002226.02101,"1227,68645-0484-70 ",.02)
;;68645-0484-70
;;9002226.02101,"1227,68788-8988-01 ",.01)
;;68788-8988-01
;;9002226.02101,"1227,68788-8988-01 ",.02)
;;68788-8988-01
;;9002226.02101,"1227,68788-8988-02 ",.01)
;;68788-8988-02
;;9002226.02101,"1227,68788-8988-02 ",.02)
;;68788-8988-02
;;9002226.02101,"1227,68788-8988-03 ",.01)
;;68788-8988-03
;;9002226.02101,"1227,68788-8988-03 ",.02)
;;68788-8988-03
;;9002226.02101,"1227,68788-8988-04 ",.01)
;;68788-8988-04
;;9002226.02101,"1227,68788-8988-04 ",.02)
;;68788-8988-04
;;9002226.02101,"1227,68788-8988-06 ",.01)
;;68788-8988-06
;;9002226.02101,"1227,68788-8988-06 ",.02)
;;68788-8988-06
;;9002226.02101,"1227,68788-8988-09 ",.01)
;;68788-8988-09
;;9002226.02101,"1227,68788-8988-09 ",.02)
;;68788-8988-09
;;9002226.02101,"1227,69452-0105-13 ",.01)
;;69452-0105-13
;;9002226.02101,"1227,69452-0105-13 ",.02)
;;69452-0105-13
;;9002226.02101,"1227,69452-0105-19 ",.01)
;;69452-0105-19
;;9002226.02101,"1227,69452-0105-19 ",.02)
;;69452-0105-19
;;9002226.02101,"1227,69452-0105-32 ",.01)
;;69452-0105-32
;;9002226.02101,"1227,69452-0105-32 ",.02)
;;69452-0105-32
;;9002226.02101,"1227,69452-0106-13 ",.01)
;;69452-0106-13
;;9002226.02101,"1227,69452-0106-13 ",.02)
;;69452-0106-13
;;9002226.02101,"1227,69452-0106-19 ",.01)
;;69452-0106-19
;;9002226.02101,"1227,69452-0106-19 ",.02)
;;69452-0106-19
;;9002226.02101,"1227,69452-0107-13 ",.01)
;;69452-0107-13
;;9002226.02101,"1227,69452-0107-13 ",.02)
;;69452-0107-13
;;9002226.02101,"1227,69452-0107-19 ",.01)
;;69452-0107-19
;;9002226.02101,"1227,69452-0107-19 ",.02)
;;69452-0107-19
;;9002226.02101,"1227,75989-0550-06 ",.01)
;;75989-0550-06
;;9002226.02101,"1227,75989-0550-06 ",.02)
;;75989-0550-06
;;9002226.02101,"1227,75989-0550-12 ",.01)
;;75989-0550-12
;;9002226.02101,"1227,75989-0550-12 ",.02)
;;75989-0550-12
;;9002226.04101,"1227,1",.01)
;;BGP
BGP72E7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
+1 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
+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,"1227,68084-0620-11 ",.02)
+2 ;;68084-0620-11
+3 ;;9002226.02101,"1227,68084-0638-11 ",.01)
+4 ;;68084-0638-11
+5 ;;9002226.02101,"1227,68084-0638-11 ",.02)
+6 ;;68084-0638-11
+7 ;;9002226.02101,"1227,68084-0638-21 ",.01)
+8 ;;68084-0638-21
+9 ;;9002226.02101,"1227,68084-0638-21 ",.02)
+10 ;;68084-0638-21
+11 ;;9002226.02101,"1227,68084-0864-01 ",.01)
+12 ;;68084-0864-01
+13 ;;9002226.02101,"1227,68084-0864-01 ",.02)
+14 ;;68084-0864-01
+15 ;;9002226.02101,"1227,68084-0864-11 ",.01)
+16 ;;68084-0864-11
+17 ;;9002226.02101,"1227,68084-0864-11 ",.02)
+18 ;;68084-0864-11
+19 ;;9002226.02101,"1227,68084-0875-01 ",.01)
+20 ;;68084-0875-01
+21 ;;9002226.02101,"1227,68084-0875-01 ",.02)
+22 ;;68084-0875-01
+23 ;;9002226.02101,"1227,68084-0875-11 ",.01)
+24 ;;68084-0875-11
+25 ;;9002226.02101,"1227,68084-0875-11 ",.02)
+26 ;;68084-0875-11
+27 ;;9002226.02101,"1227,68258-3031-01 ",.01)
+28 ;;68258-3031-01
+29 ;;9002226.02101,"1227,68258-3031-01 ",.02)
+30 ;;68258-3031-01
+31 ;;9002226.02101,"1227,68258-3032-03 ",.01)
+32 ;;68258-3032-03
+33 ;;9002226.02101,"1227,68258-3032-03 ",.02)
+34 ;;68258-3032-03
+35 ;;9002226.02101,"1227,68258-3033-03 ",.01)
+36 ;;68258-3033-03
+37 ;;9002226.02101,"1227,68258-3033-03 ",.02)
+38 ;;68258-3033-03
+39 ;;9002226.02101,"1227,68258-8961-06 ",.01)
+40 ;;68258-8961-06
+41 ;;9002226.02101,"1227,68258-8961-06 ",.02)
+42 ;;68258-8961-06
+43 ;;9002226.02101,"1227,68462-0356-01 ",.01)
+44 ;;68462-0356-01
+45 ;;9002226.02101,"1227,68462-0356-01 ",.02)
+46 ;;68462-0356-01
+47 ;;9002226.02101,"1227,68462-0380-01 ",.01)
+48 ;;68462-0380-01
+49 ;;9002226.02101,"1227,68462-0380-01 ",.02)
+50 ;;68462-0380-01
+51 ;;9002226.02101,"1227,68462-0392-05 ",.01)
+52 ;;68462-0392-05
+53 ;;9002226.02101,"1227,68462-0392-05 ",.02)
+54 ;;68462-0392-05
+55 ;;9002226.02101,"1227,68462-0392-30 ",.01)
+56 ;;68462-0392-30
+57 ;;9002226.02101,"1227,68462-0392-30 ",.02)
+58 ;;68462-0392-30
+59 ;;9002226.02101,"1227,68462-0392-90 ",.01)
+60 ;;68462-0392-90
+61 ;;9002226.02101,"1227,68462-0392-90 ",.02)
+62 ;;68462-0392-90
+63 ;;9002226.02101,"1227,68645-0466-54 ",.01)
+64 ;;68645-0466-54
+65 ;;9002226.02101,"1227,68645-0466-54 ",.02)
+66 ;;68645-0466-54
+67 ;;9002226.02101,"1227,68645-0484-70 ",.01)
+68 ;;68645-0484-70
+69 ;;9002226.02101,"1227,68645-0484-70 ",.02)
+70 ;;68645-0484-70
+71 ;;9002226.02101,"1227,68788-8988-01 ",.01)
+72 ;;68788-8988-01
+73 ;;9002226.02101,"1227,68788-8988-01 ",.02)
+74 ;;68788-8988-01
+75 ;;9002226.02101,"1227,68788-8988-02 ",.01)
+76 ;;68788-8988-02
+77 ;;9002226.02101,"1227,68788-8988-02 ",.02)
+78 ;;68788-8988-02
+79 ;;9002226.02101,"1227,68788-8988-03 ",.01)
+80 ;;68788-8988-03
+81 ;;9002226.02101,"1227,68788-8988-03 ",.02)
+82 ;;68788-8988-03
+83 ;;9002226.02101,"1227,68788-8988-04 ",.01)
+84 ;;68788-8988-04
+85 ;;9002226.02101,"1227,68788-8988-04 ",.02)
+86 ;;68788-8988-04
+87 ;;9002226.02101,"1227,68788-8988-06 ",.01)
+88 ;;68788-8988-06
+89 ;;9002226.02101,"1227,68788-8988-06 ",.02)
+90 ;;68788-8988-06
+91 ;;9002226.02101,"1227,68788-8988-09 ",.01)
+92 ;;68788-8988-09
+93 ;;9002226.02101,"1227,68788-8988-09 ",.02)
+94 ;;68788-8988-09
+95 ;;9002226.02101,"1227,69452-0105-13 ",.01)
+96 ;;69452-0105-13
+97 ;;9002226.02101,"1227,69452-0105-13 ",.02)
+98 ;;69452-0105-13
+99 ;;9002226.02101,"1227,69452-0105-19 ",.01)
+100 ;;69452-0105-19
+101 ;;9002226.02101,"1227,69452-0105-19 ",.02)
+102 ;;69452-0105-19
+103 ;;9002226.02101,"1227,69452-0105-32 ",.01)
+104 ;;69452-0105-32
+105 ;;9002226.02101,"1227,69452-0105-32 ",.02)
+106 ;;69452-0105-32
+107 ;;9002226.02101,"1227,69452-0106-13 ",.01)
+108 ;;69452-0106-13
+109 ;;9002226.02101,"1227,69452-0106-13 ",.02)
+110 ;;69452-0106-13
+111 ;;9002226.02101,"1227,69452-0106-19 ",.01)
+112 ;;69452-0106-19
+113 ;;9002226.02101,"1227,69452-0106-19 ",.02)
+114 ;;69452-0106-19
+115 ;;9002226.02101,"1227,69452-0107-13 ",.01)
+116 ;;69452-0107-13
+117 ;;9002226.02101,"1227,69452-0107-13 ",.02)
+118 ;;69452-0107-13
+119 ;;9002226.02101,"1227,69452-0107-19 ",.01)
+120 ;;69452-0107-19
+121 ;;9002226.02101,"1227,69452-0107-19 ",.02)
+122 ;;69452-0107-19
+123 ;;9002226.02101,"1227,75989-0550-06 ",.01)
+124 ;;75989-0550-06
+125 ;;9002226.02101,"1227,75989-0550-06 ",.02)
+126 ;;75989-0550-06
+127 ;;9002226.02101,"1227,75989-0550-12 ",.01)
+128 ;;75989-0550-12
+129 ;;9002226.02101,"1227,75989-0550-12 ",.02)
+130 ;;75989-0550-12
+131 ;;9002226.04101,"1227,1",.01)
+132 ;;BGP
