Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP06P4

BGP06P4.m

Go to the documentation of this file.
  1. BGP06P4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"700,00247-0818-25 ",.02)
  1. ;;00247-0818-25
  1. ;;9002226.02101,"700,00247-0818-30 ",.01)
  1. ;;00247-0818-30
  1. ;;9002226.02101,"700,00247-0818-30 ",.02)
  1. ;;00247-0818-30
  1. ;;9002226.02101,"700,00247-0971-20 ",.01)
  1. ;;00247-0971-20
  1. ;;9002226.02101,"700,00247-0971-20 ",.02)
  1. ;;00247-0971-20
  1. ;;9002226.02101,"700,00247-0971-28 ",.01)
  1. ;;00247-0971-28
  1. ;;9002226.02101,"700,00247-0971-28 ",.02)
  1. ;;00247-0971-28
  1. ;;9002226.02101,"700,00247-1037-12 ",.01)
  1. ;;00247-1037-12
  1. ;;9002226.02101,"700,00247-1037-12 ",.02)
  1. ;;00247-1037-12
  1. ;;9002226.02101,"700,00247-1037-20 ",.01)
  1. ;;00247-1037-20
  1. ;;9002226.02101,"700,00247-1037-20 ",.02)
  1. ;;00247-1037-20
  1. ;;9002226.02101,"700,00247-1037-90 ",.01)
  1. ;;00247-1037-90
  1. ;;9002226.02101,"700,00247-1037-90 ",.02)
  1. ;;00247-1037-90
  1. ;;9002226.02101,"700,00247-1038-90 ",.01)
  1. ;;00247-1038-90
  1. ;;9002226.02101,"700,00247-1038-90 ",.02)
  1. ;;00247-1038-90
  1. ;;9002226.02101,"700,00247-1441-01 ",.01)
  1. ;;00247-1441-01
  1. ;;9002226.02101,"700,00247-1441-01 ",.02)
  1. ;;00247-1441-01
  1. ;;9002226.02101,"700,00247-1441-04 ",.01)
  1. ;;00247-1441-04
  1. ;;9002226.02101,"700,00247-1441-04 ",.02)
  1. ;;00247-1441-04
  1. ;;9002226.02101,"700,00247-1441-05 ",.01)
  1. ;;00247-1441-05
  1. ;;9002226.02101,"700,00247-1441-05 ",.02)
  1. ;;00247-1441-05
  1. ;;9002226.02101,"700,00247-1441-20 ",.01)
  1. ;;00247-1441-20
  1. ;;9002226.02101,"700,00247-1441-20 ",.02)
  1. ;;00247-1441-20
  1. ;;9002226.02101,"700,00247-2124-00 ",.01)
  1. ;;00247-2124-00
  1. ;;9002226.02101,"700,00247-2124-00 ",.02)
  1. ;;00247-2124-00
  1. ;;9002226.02101,"700,00254-5112-28 ",.01)
  1. ;;00254-5112-28
  1. ;;9002226.02101,"700,00254-5112-28 ",.02)
  1. ;;00254-5112-28
  1. ;;9002226.02101,"700,00254-5112-35 ",.01)
  1. ;;00254-5112-35
  1. ;;9002226.02101,"700,00254-5112-35 ",.02)
  1. ;;00254-5112-35
  1. ;;9002226.02101,"700,00254-5112-38 ",.01)
  1. ;;00254-5112-38
  1. ;;9002226.02101,"700,00254-5112-38 ",.02)
  1. ;;00254-5112-38
  1. ;;9002226.02101,"700,00254-5113-28 ",.01)
  1. ;;00254-5113-28
  1. ;;9002226.02101,"700,00254-5113-28 ",.02)
  1. ;;00254-5113-28
  1. ;;9002226.02101,"700,00254-5113-35 ",.01)
  1. ;;00254-5113-35
  1. ;;9002226.02101,"700,00254-5113-35 ",.02)
  1. ;;00254-5113-35
  1. ;;9002226.02101,"700,00254-5113-38 ",.01)
  1. ;;00254-5113-38
  1. ;;9002226.02101,"700,00254-5113-38 ",.02)
  1. ;;00254-5113-38
  1. ;;9002226.02101,"700,00254-5114-35 ",.01)
  1. ;;00254-5114-35
  1. ;;9002226.02101,"700,00254-5114-35 ",.02)
  1. ;;00254-5114-35
  1. ;;9002226.02101,"700,00254-5114-38 ",.01)
  1. ;;00254-5114-38
  1. ;;9002226.02101,"700,00254-5114-38 ",.02)
  1. ;;00254-5114-38
  1. ;;9002226.02101,"700,00338-2691-75 ",.01)
  1. ;;00338-2691-75
  1. ;;9002226.02101,"700,00338-2691-75 ",.02)
  1. ;;00338-2691-75
  1. ;;9002226.02101,"700,00338-9370-41 ",.01)
  1. ;;00338-9370-41
  1. ;;9002226.02101,"700,00338-9370-41 ",.02)
  1. ;;00338-9370-41
  1. ;;9002226.02101,"700,00338-9372-48 ",.01)
  1. ;;00338-9372-48
  1. ;;9002226.02101,"700,00338-9372-48 ",.02)
  1. ;;00338-9372-48
  1. ;;9002226.02101,"700,00338-9373-48 ",.01)
  1. ;;00338-9373-48
  1. ;;9002226.02101,"700,00338-9373-48 ",.02)
  1. ;;00338-9373-48
  1. ;;9002226.02101,"700,00378-0130-01 ",.01)
  1. ;;00378-0130-01
  1. ;;9002226.02101,"700,00378-0130-01 ",.02)
  1. ;;00378-0130-01
  1. ;;9002226.02101,"700,00378-0130-05 ",.01)
  1. ;;00378-0130-05
  1. ;;9002226.02101,"700,00378-0130-05 ",.02)
  1. ;;00378-0130-05
  1. ;;9002226.02101,"700,00378-0131-05 ",.01)
  1. ;;00378-0131-05
  1. ;;9002226.02101,"700,00378-0131-05 ",.02)
  1. ;;00378-0131-05
  1. ;;9002226.02101,"700,00378-0155-01 ",.01)
  1. ;;00378-0155-01
  1. ;;9002226.02101,"700,00378-0155-01 ",.02)
  1. ;;00378-0155-01
  1. ;;9002226.02101,"700,00378-0155-05 ",.01)
  1. ;;00378-0155-05
  1. ;;9002226.02101,"700,00378-0155-05 ",.02)
  1. ;;00378-0155-05
  1. ;;9002226.02101,"700,00378-7065-01 ",.01)
  1. ;;00378-7065-01
  1. ;;9002226.02101,"700,00378-7065-01 ",.02)
  1. ;;00378-7065-01
  1. ;;9002226.02101,"700,00378-7065-05 ",.01)
  1. ;;00378-7065-05
  1. ;;9002226.02101,"700,00378-7065-05 ",.02)
  1. ;;00378-7065-05
  1. ;;9002226.02101,"700,00406-1721-01 ",.01)
  1. ;;00406-1721-01
  1. ;;9002226.02101,"700,00406-1721-01 ",.02)
  1. ;;00406-1721-01
  1. ;;9002226.02101,"700,00406-1721-05 ",.01)
  1. ;;00406-1721-05
  1. ;;9002226.02101,"700,00406-1721-05 ",.02)
  1. ;;00406-1721-05
  1. ;;9002226.02101,"700,00406-1721-10 ",.01)
  1. ;;00406-1721-10
  1. ;;9002226.02101,"700,00406-1721-10 ",.02)
  1. ;;00406-1721-10
  1. ;;9002226.02101,"700,00406-1721-91 ",.01)
  1. ;;00406-1721-91
  1. ;;9002226.02101,"700,00406-1721-91 ",.02)
  1. ;;00406-1721-91
  1. ;;9002226.02101,"700,00406-1772-01 ",.01)
  1. ;;00406-1772-01
  1. ;;9002226.02101,"700,00406-1772-01 ",.02)
  1. ;;00406-1772-01
  1. ;;9002226.02101,"700,00406-1772-03 ",.01)
  1. ;;00406-1772-03
  1. ;;9002226.02101,"700,00406-1772-03 ",.02)
  1. ;;00406-1772-03
  1. ;;9002226.02101,"700,00406-1772-05 ",.01)
  1. ;;00406-1772-05
  1. ;;9002226.02101,"700,00406-1772-05 ",.02)
  1. ;;00406-1772-05
  1. ;;9002226.02101,"700,00406-1772-10 ",.01)
  1. ;;00406-1772-10
  1. ;;9002226.02101,"700,00406-1772-10 ",.02)
  1. ;;00406-1772-10
  1. ;;9002226.02101,"700,00406-1772-12 ",.01)
  1. ;;00406-1772-12
  1. ;;9002226.02101,"700,00406-1772-12 ",.02)
  1. ;;00406-1772-12
  1. ;;9002226.02101,"700,00406-1772-33 ",.01)
  1. ;;00406-1772-33
  1. ;;9002226.02101,"700,00406-1772-33 ",.02)
  1. ;;00406-1772-33
  1. ;;9002226.02101,"700,00406-1772-60 ",.01)
  1. ;;00406-1772-60
  1. ;;9002226.02101,"700,00406-1772-60 ",.02)
  1. ;;00406-1772-60
  1. ;;9002226.02101,"700,00406-1772-62 ",.01)
  1. ;;00406-1772-62
  1. ;;9002226.02101,"700,00406-1772-62 ",.02)
  1. ;;00406-1772-62
  1. ;;9002226.02101,"700,00406-1772-90 ",.01)
  1. ;;00406-1772-90
  1. ;;9002226.02101,"700,00406-1772-90 ",.02)
  1. ;;00406-1772-90
  1. ;;9002226.02101,"700,00406-1772-91 ",.01)
  1. ;;00406-1772-91
  1. ;;9002226.02101,"700,00406-1772-91 ",.02)
  1. ;;00406-1772-91
  1. ;;9002226.02101,"700,00406-3118-01 ",.01)
  1. ;;00406-3118-01
  1. ;;9002226.02101,"700,00406-3118-01 ",.02)
  1. ;;00406-3118-01
  1. ;;9002226.02101,"700,00406-7113-01 ",.01)
  1. ;;00406-7113-01
  1. ;;9002226.02101,"700,00406-7113-01 ",.02)
  1. ;;00406-7113-01
  1. ;;9002226.02101,"700,00406-7115-01 ",.01)
  1. ;;00406-7115-01
  1. ;;9002226.02101,"700,00406-7115-01 ",.02)
  1. ;;00406-7115-01
  1. ;;9002226.02101,"700,00409-1176-30 ",.01)
  1. ;;00409-1176-30
  1. ;;9002226.02101,"700,00409-1176-30 ",.02)
  1. ;;00409-1176-30
  1. ;;9002226.02101,"700,00409-1178-30 ",.01)
  1. ;;00409-1178-30
  1. ;;9002226.02101,"700,00409-1178-30 ",.02)
  1. ;;00409-1178-30
  1. ;;9002226.02101,"700,00409-1179-30 ",.01)
  1. ;;00409-1179-30
  1. ;;9002226.02101,"700,00409-1179-30 ",.02)
  1. ;;00409-1179-30
  1. ;;9002226.02101,"700,00409-1180-69 ",.01)
  1. ;;00409-1180-69
  1. ;;9002226.02101,"700,00409-1180-69 ",.02)
  1. ;;00409-1180-69
  1. ;;9002226.02101,"700,00409-1181-30 ",.01)
  1. ;;00409-1181-30
  1. ;;9002226.02101,"700,00409-1181-30 ",.02)
  1. ;;00409-1181-30
  1. ;;9002226.02101,"700,00409-1201-20 ",.01)
  1. ;;00409-1201-20
  1. ;;9002226.02101,"700,00409-1201-20 ",.02)
  1. ;;00409-1201-20
  1. ;;9002226.02101,"700,00409-1203-01 ",.01)
  1. ;;00409-1203-01
  1. ;;9002226.02101,"700,00409-1203-01 ",.02)
  1. ;;00409-1203-01
  1. ;;9002226.02101,"700,00409-1253-01 ",.01)
  1. ;;00409-1253-01
  1. ;;9002226.02101,"700,00409-1253-01 ",.02)
  1. ;;00409-1253-01
  1. ;;9002226.02101,"700,00409-1254-01 ",.01)
  1. ;;00409-1254-01
  1. ;;9002226.02101,"700,00409-1254-01 ",.02)
  1. ;;00409-1254-01
  1. ;;9002226.02101,"700,00409-1255-02 ",.01)
  1. ;;00409-1255-02
  1. ;;9002226.02101,"700,00409-1255-02 ",.02)
  1. ;;00409-1255-02
  1. ;;9002226.02101,"700,00409-1256-01 ",.01)
  1. ;;00409-1256-01
  1. ;;9002226.02101,"700,00409-1256-01 ",.02)
  1. ;;00409-1256-01
  1. ;;9002226.02101,"700,00409-1920-10 ",.01)
  1. ;;00409-1920-10
  1. ;;9002226.02101,"700,00409-1920-10 ",.02)
  1. ;;00409-1920-10
  1. ;;9002226.02101,"700,00409-1941-01 ",.01)
  1. ;;00409-1941-01
  1. ;;9002226.02101,"700,00409-1941-01 ",.02)
  1. ;;00409-1941-01
  1. ;;9002226.02101,"700,00409-6030-04 ",.01)
  1. ;;00409-6030-04
  1. ;;9002226.02101,"700,00409-6030-04 ",.02)
  1. ;;00409-6030-04
  1. ;;9002226.02101,"700,00555-0381-02 ",.01)
  1. ;;00555-0381-02
  1. ;;9002226.02101,"700,00555-0381-02 ",.02)
  1. ;;00555-0381-02
  1. ;;9002226.02101,"700,00555-0382-02 ",.01)
  1. ;;00555-0382-02
  1. ;;9002226.02101,"700,00555-0382-02 ",.02)
  1. ;;00555-0382-02
  1. ;;9002226.02101,"700,00574-7040-12 ",.01)
  1. ;;00574-7040-12
  1. ;;9002226.02101,"700,00574-7040-12 ",.02)
  1. ;;00574-7040-12
  1. ;;9002226.02101,"700,00574-7045-12 ",.01)
  1. ;;00574-7045-12
  1. ;;9002226.02101,"700,00574-7045-12 ",.02)
  1. ;;00574-7045-12
  1. ;;9002226.02101,"700,00591-0395-01 ",.01)
  1. ;;00591-0395-01
  1. ;;9002226.02101,"700,00591-0395-01 ",.02)
  1. ;;00591-0395-01
  1. ;;9002226.02101,"700,00591-0396-01 ",.01)
  1. ;;00591-0396-01
  1. ;;9002226.02101,"700,00591-0396-01 ",.02)
  1. ;;00591-0396-01
  1. ;;9002226.02101,"700,00591-0714-01 ",.01)
  1. ;;00591-0714-01
  1. ;;9002226.02101,"700,00591-0714-01 ",.02)
  1. ;;00591-0714-01
  1. ;;9002226.02101,"700,00591-0714-05 ",.01)
  1. ;;00591-0714-05
  1. ;;9002226.02101,"700,00591-0714-05 ",.02)
  1. ;;00591-0714-05
  1. ;;9002226.02101,"700,00591-0726-01 ",.01)
  1. ;;00591-0726-01
  1. ;;9002226.02101,"700,00591-0726-01 ",.02)
  1. ;;00591-0726-01
  1. ;;9002226.02101,"700,00591-0727-01 ",.01)
  1. ;;00591-0727-01
  1. ;;9002226.02101,"700,00591-0727-01 ",.02)
  1. ;;00591-0727-01
  1. ;;9002226.02101,"700,00603-4415-21 ",.01)
  1. ;;00603-4415-21
  1. ;;9002226.02101,"700,00603-4415-21 ",.02)
  1. ;;00603-4415-21
  1. ;;9002226.02101,"700,00603-4416-21 ",.01)
  1. ;;00603-4416-21
  1. ;;9002226.02101,"700,00603-4416-21 ",.02)
  1. ;;00603-4416-21
  1. ;;9002226.02101,"700,00603-4424-21 ",.01)
  1. ;;00603-4424-21
  1. ;;9002226.02101,"700,00603-4424-21 ",.02)
  1. ;;00603-4424-21
  1. ;;9002226.02101,"700,00603-5110-21 ",.01)
  1. ;;00603-5110-21
  1. ;;9002226.02101,"700,00603-5110-21 ",.02)
  1. ;;00603-5110-21
  1. ;;9002226.02101,"700,00603-5459-21 ",.01)
  1. ;;00603-5459-21
  1. ;;9002226.02101,"700,00603-5459-21 ",.02)
  1. ;;00603-5459-21
  1. ;;9002226.02101,"700,00603-5459-28 ",.01)
  1. ;;00603-5459-28
  1. ;;9002226.02101,"700,00603-5459-28 ",.02)
  1. ;;00603-5459-28
  1. ;;9002226.02101,"700,00603-5460-21 ",.01)
  1. ;;00603-5460-21
  1. ;;9002226.02101,"700,00603-5460-21 ",.02)
  1. ;;00603-5460-21
  1. ;;9002226.02101,"700,00603-5460-28 ",.01)
  1. ;;00603-5460-28
  1. ;;9002226.02101,"700,00603-5460-28 ",.02)
  1. ;;00603-5460-28
  1. ;;9002226.02101,"700,00603-5462-21 ",.01)
  1. ;;00603-5462-21
  1. ;;9002226.02101,"700,00603-5462-21 ",.02)
  1. ;;00603-5462-21
  1. ;;9002226.02101,"700,00603-5462-28 ",.01)
  1. ;;00603-5462-28
  1. ;;9002226.02101,"700,00603-5462-28 ",.02)
  1. ;;00603-5462-28
  1. ;;9002226.02101,"700,00603-5463-28 ",.01)
  1. ;;00603-5463-28
  1. ;;9002226.02101,"700,00603-5463-28 ",.02)
  1. ;;00603-5463-28
  1. ;;9002226.02101,"700,00603-5465-21 ",.01)
  1. ;;00603-5465-21
  1. ;;9002226.02101,"700,00603-5465-21 ",.02)
  1. ;;00603-5465-21
  1. ;;9002226.02101,"700,00603-5466-21 ",.01)
  1. ;;00603-5466-21
  1. ;;9002226.02101,"700,00603-5466-21 ",.02)
  1. ;;00603-5466-21
  1. ;;9002226.02101,"700,00603-5466-28 ",.01)
  1. ;;00603-5466-28
  1. ;;9002226.02101,"700,00603-5466-28 ",.02)
  1. ;;00603-5466-28
  1. ;;9002226.02101,"700,00603-5466-32 ",.01)
  1. ;;00603-5466-32
  1. ;;9002226.02101,"700,00603-5466-32 ",.02)
  1. ;;00603-5466-32
  1. ;;9002226.02101,"700,00603-5467-16 ",.01)
  1. ;;00603-5467-16
  1. ;;9002226.02101,"700,00603-5467-16 ",.02)
  1. ;;00603-5467-16
  1. ;;9002226.02101,"700,00603-5467-21 ",.01)
  1. ;;00603-5467-21
  1. ;;9002226.02101,"700,00603-5467-21 ",.02)
  1. ;;00603-5467-21
  1. ;;9002226.02101,"700,00603-5467-28 ",.01)
  1. ;;00603-5467-28
  1. ;;9002226.02101,"700,00603-5467-28 ",.02)
  1. ;;00603-5467-28
  1. ;;9002226.02101,"700,00603-5467-32 ",.01)
  1. ;;00603-5467-32
  1. ;;9002226.02101,"700,00603-5467-32 ",.02)
  1. ;;00603-5467-32
  1. ;;9002226.02101,"700,00603-5468-16 ",.01)
  1. ;;00603-5468-16
  1. ;;9002226.02101,"700,00603-5468-16 ",.02)
  1. ;;00603-5468-16
  1. ;;9002226.02101,"700,00603-5468-19 ",.01)
  1. ;;00603-5468-19
  1. ;;9002226.02101,"700,00603-5468-19 ",.02)
  1. ;;00603-5468-19
  1. ;;9002226.02101,"700,00603-5468-21 ",.01)
  1. ;;00603-5468-21
  1. ;;9002226.02101,"700,00603-5468-21 ",.02)
  1. ;;00603-5468-21
  1. ;;9002226.02101,"700,00603-5468-28 ",.01)
  1. ;;00603-5468-28
  1. ;;9002226.02101,"700,00603-5468-28 ",.02)
  1. ;;00603-5468-28
  1. ;;9002226.02101,"700,00603-5468-32 ",.01)
  1. ;;00603-5468-32
  1. ;;9002226.02101,"700,00603-5468-32 ",.02)
  1. ;;00603-5468-32
  1. ;;9002226.02101,"700,00641-1130-25 ",.01)
  1. ;;00641-1130-25
  1. ;;9002226.02101,"700,00641-1130-25 ",.02)
  1. ;;00641-1130-25
  1. ;;9002226.02101,"700,00641-1140-25 ",.01)
  1. ;;00641-1140-25
  1. ;;9002226.02101,"700,00641-1140-25 ",.02)
  1. ;;00641-1140-25
  1. ;;9002226.02101,"700,00677-0356-01 ",.01)
  1. ;;00677-0356-01
  1. ;;9002226.02101,"700,00677-0356-01 ",.02)
  1. ;;00677-0356-01
  1. ;;9002226.02101,"700,00677-0356-05 ",.01)
  1. ;;00677-0356-05
  1. ;;9002226.02101,"700,00677-0356-05 ",.02)
  1. ;;00677-0356-05
  1. ;;9002226.02101,"700,00781-1378-13 ",.01)
  1. ;;00781-1378-13
  1. ;;9002226.02101,"700,00781-1378-13 ",.02)
  1. ;;00781-1378-13
  1. ;;9002226.02101,"700,00781-2140-01 ",.01)
  1. ;;00781-2140-01
  1. ;;9002226.02101,"700,00781-2140-01 ",.02)
  1. ;;00781-2140-01
  1. ;;9002226.02101,"700,00781-2140-10 ",.01)
  1. ;;00781-2140-10
  1. ;;9002226.02101,"700,00781-2140-10 ",.02)
  1. ;;00781-2140-10
  1. ;;9002226.02101,"700,00781-2367-01 ",.01)
  1. ;;00781-2367-01
  1. ;;9002226.02101,"700,00781-2367-01 ",.02)
  1. ;;00781-2367-01
  1. ;;9002226.02101,"700,00781-2367-10 ",.01)
  1. ;;00781-2367-10
  1. ;;9002226.02101,"700,00781-2367-10 ",.02)
  1. ;;00781-2367-10
  1. ;;9002226.02101,"700,00904-1977-60 ",.01)
  1. ;;00904-1977-60
  1. ;;9002226.02101,"700,00904-1977-60 ",.02)
  1. ;;00904-1977-60
  1. ;;9002226.02101,"700,00904-1978-60 ",.01)
  1. ;;00904-1978-60
  1. ;;9002226.02101,"700,00904-1978-60 ",.02)
  1. ;;00904-1978-60
  1. ;;9002226.02101,"700,00904-2280-60 ",.01)
  1. ;;00904-2280-60
  1. ;;9002226.02101,"700,00904-2280-60 ",.02)
  1. ;;00904-2280-60
  1. ;;9002226.02101,"700,00904-2281-40 ",.01)
  1. ;;00904-2281-40
  1. ;;9002226.02101,"700,00904-2281-40 ",.02)
  1. ;;00904-2281-40
  1. ;;9002226.02101,"700,00904-2281-60 ",.01)
  1. ;;00904-2281-60
  1. ;;9002226.02101,"700,00904-2281-60 ",.02)
  1. ;;00904-2281-60
  1. ;;9002226.02101,"700,00904-7700-40 ",.01)
  1. ;;00904-7700-40