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

BGP06A21.m

Go to the documentation of this file.
  1. BGP06A21 ;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,"974,00074-6301-13 ",.01)
  1. ;;00074-6301-13
  1. ;;9002226.02101,"974,00074-6301-13 ",.02)
  1. ;;00074-6301-13
  1. ;;9002226.02101,"974,00074-6301-53 ",.01)
  1. ;;00074-6301-53
  1. ;;9002226.02101,"974,00074-6301-53 ",.02)
  1. ;;00074-6301-53
  1. ;;9002226.02101,"974,00074-6302-05 ",.01)
  1. ;;00074-6302-05
  1. ;;9002226.02101,"974,00074-6302-05 ",.02)
  1. ;;00074-6302-05
  1. ;;9002226.02101,"974,00074-6302-13 ",.01)
  1. ;;00074-6302-13
  1. ;;9002226.02101,"974,00074-6302-13 ",.02)
  1. ;;00074-6302-13
  1. ;;9002226.02101,"974,00074-6302-53 ",.01)
  1. ;;00074-6302-53
  1. ;;9002226.02101,"974,00074-6302-53 ",.02)
  1. ;;00074-6302-53
  1. ;;9002226.02101,"974,00074-6303-50 ",.01)
  1. ;;00074-6303-50
  1. ;;9002226.02101,"974,00074-6303-50 ",.02)
  1. ;;00074-6303-50
  1. ;;9002226.02101,"974,00074-6304-11 ",.01)
  1. ;;00074-6304-11
  1. ;;9002226.02101,"974,00074-6304-11 ",.02)
  1. ;;00074-6304-11
  1. ;;9002226.02101,"974,00074-6304-13 ",.01)
  1. ;;00074-6304-13
  1. ;;9002226.02101,"974,00074-6304-13 ",.02)
  1. ;;00074-6304-13
  1. ;;9002226.02101,"974,00074-6304-30 ",.01)
  1. ;;00074-6304-30
  1. ;;9002226.02101,"974,00074-6304-30 ",.02)
  1. ;;00074-6304-30
  1. ;;9002226.02101,"974,00074-6304-40 ",.01)
  1. ;;00074-6304-40
  1. ;;9002226.02101,"974,00074-6304-40 ",.02)
  1. ;;00074-6304-40
  1. ;;9002226.02101,"974,00074-6304-53 ",.01)
  1. ;;00074-6304-53
  1. ;;9002226.02101,"974,00074-6304-53 ",.02)
  1. ;;00074-6304-53
  1. ;;9002226.02101,"974,00074-6305-13 ",.01)
  1. ;;00074-6305-13
  1. ;;9002226.02101,"974,00074-6305-13 ",.02)
  1. ;;00074-6305-13
  1. ;;9002226.02101,"974,00074-6305-53 ",.01)
  1. ;;00074-6305-53
  1. ;;9002226.02101,"974,00074-6305-53 ",.02)
  1. ;;00074-6305-53
  1. ;;9002226.02101,"974,00074-6305-60 ",.01)
  1. ;;00074-6305-60
  1. ;;9002226.02101,"974,00074-6305-60 ",.02)
  1. ;;00074-6305-60
  1. ;;9002226.02101,"974,00074-6306-13 ",.01)
  1. ;;00074-6306-13
  1. ;;9002226.02101,"974,00074-6306-13 ",.02)
  1. ;;00074-6306-13
  1. ;;9002226.02101,"974,00074-6306-16 ",.01)
  1. ;;00074-6306-16
  1. ;;9002226.02101,"974,00074-6306-16 ",.02)
  1. ;;00074-6306-16
  1. ;;9002226.02101,"974,00074-6314-40 ",.01)
  1. ;;00074-6314-40
  1. ;;9002226.02101,"974,00074-6314-40 ",.02)
  1. ;;00074-6314-40
  1. ;;9002226.02101,"974,00074-6316-13 ",.01)
  1. ;;00074-6316-13
  1. ;;9002226.02101,"974,00074-6316-13 ",.02)
  1. ;;00074-6316-13
  1. ;;9002226.02101,"974,00074-6320-11 ",.01)
  1. ;;00074-6320-11
  1. ;;9002226.02101,"974,00074-6320-11 ",.02)
  1. ;;00074-6320-11
  1. ;;9002226.02101,"974,00074-6320-13 ",.01)
  1. ;;00074-6320-13
  1. ;;9002226.02101,"974,00074-6320-13 ",.02)
  1. ;;00074-6320-13
  1. ;;9002226.02101,"974,00074-6320-30 ",.01)
  1. ;;00074-6320-30
  1. ;;9002226.02101,"974,00074-6320-30 ",.02)
  1. ;;00074-6320-30
  1. ;;9002226.02101,"974,00074-6320-53 ",.01)
  1. ;;00074-6320-53
  1. ;;9002226.02101,"974,00074-6320-53 ",.02)
  1. ;;00074-6320-53
  1. ;;9002226.02101,"974,00074-6321-11 ",.01)
  1. ;;00074-6321-11
  1. ;;9002226.02101,"974,00074-6321-11 ",.02)
  1. ;;00074-6321-11
  1. ;;9002226.02101,"974,00074-6321-13 ",.01)
  1. ;;00074-6321-13
  1. ;;9002226.02101,"974,00074-6321-13 ",.02)
  1. ;;00074-6321-13
  1. ;;9002226.02101,"974,00074-6326-11 ",.01)
  1. ;;00074-6326-11
  1. ;;9002226.02101,"974,00074-6326-11 ",.02)
  1. ;;00074-6326-11
  1. ;;9002226.02101,"974,00074-6326-13 ",.01)
  1. ;;00074-6326-13
  1. ;;9002226.02101,"974,00074-6326-13 ",.02)
  1. ;;00074-6326-13
  1. ;;9002226.02101,"974,00074-6326-53 ",.01)
  1. ;;00074-6326-53
  1. ;;9002226.02101,"974,00074-6326-53 ",.02)
  1. ;;00074-6326-53
  1. ;;9002226.02101,"974,00074-6342-05 ",.01)
  1. ;;00074-6342-05
  1. ;;9002226.02101,"974,00074-6342-05 ",.02)
  1. ;;00074-6342-05
  1. ;;9002226.02101,"974,00074-6346-19 ",.01)
  1. ;;00074-6346-19
  1. ;;9002226.02101,"974,00074-6346-19 ",.02)
  1. ;;00074-6346-19
  1. ;;9002226.02101,"974,00074-6346-20 ",.01)
  1. ;;00074-6346-20
  1. ;;9002226.02101,"974,00074-6346-20 ",.02)
  1. ;;00074-6346-20
  1. ;;9002226.02101,"974,00074-6346-38 ",.01)
  1. ;;00074-6346-38
  1. ;;9002226.02101,"974,00074-6346-38 ",.02)
  1. ;;00074-6346-38
  1. ;;9002226.02101,"974,00074-6346-41 ",.01)
  1. ;;00074-6346-41
  1. ;;9002226.02101,"974,00074-6346-41 ",.02)
  1. ;;00074-6346-41
  1. ;;9002226.02101,"974,00074-6346-53 ",.01)
  1. ;;00074-6346-53
  1. ;;9002226.02101,"974,00074-6346-53 ",.02)
  1. ;;00074-6346-53
  1. ;;9002226.02101,"974,00074-6365-02 ",.01)
  1. ;;00074-6365-02
  1. ;;9002226.02101,"974,00074-6365-02 ",.02)
  1. ;;00074-6365-02
  1. ;;9002226.02101,"974,00074-6369-02 ",.01)
  1. ;;00074-6369-02
  1. ;;9002226.02101,"974,00074-6369-02 ",.02)
  1. ;;00074-6369-02
  1. ;;9002226.02101,"974,00074-6369-10 ",.01)
  1. ;;00074-6369-10
  1. ;;9002226.02101,"974,00074-6369-10 ",.02)
  1. ;;00074-6369-10
  1. ;;9002226.02101,"974,00074-6373-13 ",.01)
  1. ;;00074-6373-13
  1. ;;9002226.02101,"974,00074-6373-13 ",.02)
  1. ;;00074-6373-13
  1. ;;9002226.02101,"974,00074-6373-16 ",.01)
  1. ;;00074-6373-16
  1. ;;9002226.02101,"974,00074-6373-16 ",.02)
  1. ;;00074-6373-16
  1. ;;9002226.02101,"974,00074-6476-44 ",.01)
  1. ;;00074-6476-44
  1. ;;9002226.02101,"974,00074-6476-44 ",.02)
  1. ;;00074-6476-44
  1. ;;9002226.02101,"974,00074-6478-44 ",.01)
  1. ;;00074-6478-44
  1. ;;9002226.02101,"974,00074-6478-44 ",.02)
  1. ;;00074-6478-44
  1. ;;9002226.02101,"974,00074-6481-01 ",.01)
  1. ;;00074-6481-01
  1. ;;9002226.02101,"974,00074-6481-01 ",.02)
  1. ;;00074-6481-01
  1. ;;9002226.02101,"974,00074-6482-01 ",.01)
  1. ;;00074-6482-01
  1. ;;9002226.02101,"974,00074-6482-01 ",.02)
  1. ;;00074-6482-01
  1. ;;9002226.02101,"974,00074-6612-07 ",.01)
  1. ;;00074-6612-07
  1. ;;9002226.02101,"974,00074-6612-07 ",.02)
  1. ;;00074-6612-07
  1. ;;9002226.02101,"974,00074-7156-13 ",.01)
  1. ;;00074-7156-13
  1. ;;9002226.02101,"974,00074-7156-13 ",.02)
  1. ;;00074-7156-13
  1. ;;9002226.02101,"974,00074-7156-43 ",.01)
  1. ;;00074-7156-43
  1. ;;9002226.02101,"974,00074-7156-43 ",.02)
  1. ;;00074-7156-43
  1. ;;9002226.02101,"974,00074-7156-53 ",.01)
  1. ;;00074-7156-53
  1. ;;9002226.02101,"974,00074-7156-53 ",.02)
  1. ;;00074-7156-53
  1. ;;9002226.02101,"974,00074-8030-13 ",.01)
  1. ;;00074-8030-13
  1. ;;9002226.02101,"974,00074-8030-13 ",.02)
  1. ;;00074-8030-13
  1. ;;9002226.02101,"974,00074-8030-43 ",.01)
  1. ;;00074-8030-43
  1. ;;9002226.02101,"974,00074-8030-43 ",.02)
  1. ;;00074-8030-43
  1. ;;9002226.02101,"974,00074-8030-53 ",.01)
  1. ;;00074-8030-53
  1. ;;9002226.02101,"974,00074-8030-53 ",.02)
  1. ;;00074-8030-53
  1. ;;9002226.02101,"974,00074-8030-55 ",.01)
  1. ;;00074-8030-55
  1. ;;9002226.02101,"974,00074-8030-55 ",.02)
  1. ;;00074-8030-55
  1. ;;9002226.02101,"974,00074-8030-73 ",.01)
  1. ;;00074-8030-73
  1. ;;9002226.02101,"974,00074-8030-73 ",.02)
  1. ;;00074-8030-73
  1. ;;9002226.02101,"974,00074-9621-13 ",.01)
  1. ;;00074-9621-13
  1. ;;9002226.02101,"974,00074-9621-13 ",.02)
  1. ;;00074-9621-13
  1. ;;9002226.02101,"974,00074-9622-13 ",.01)
  1. ;;00074-9622-13
  1. ;;9002226.02101,"974,00074-9622-13 ",.02)
  1. ;;00074-9622-13
  1. ;;9002226.02101,"974,00074-9623-13 ",.01)
  1. ;;00074-9623-13
  1. ;;9002226.02101,"974,00074-9623-13 ",.02)
  1. ;;00074-9623-13
  1. ;;9002226.02101,"974,00085-0691-01 ",.01)
  1. ;;00085-0691-01
  1. ;;9002226.02101,"974,00085-0691-01 ",.02)
  1. ;;00085-0691-01
  1. ;;9002226.02101,"974,00085-0691-02 ",.01)
  1. ;;00085-0691-02
  1. ;;9002226.02101,"974,00085-0691-02 ",.02)
  1. ;;00085-0691-02
  1. ;;9002226.02101,"974,00085-0777-01 ",.01)
  1. ;;00085-0777-01
  1. ;;9002226.02101,"974,00085-0777-01 ",.02)
  1. ;;00085-0777-01
  1. ;;9002226.02101,"974,00085-0777-02 ",.01)
  1. ;;00085-0777-02
  1. ;;9002226.02101,"974,00085-0777-02 ",.02)
  1. ;;00085-0777-02
  1. ;;9002226.02101,"974,00085-0777-03 ",.01)
  1. ;;00085-0777-03
  1. ;;9002226.02101,"974,00085-0777-03 ",.02)
  1. ;;00085-0777-03
  1. ;;9002226.02101,"974,00085-0777-04 ",.01)
  1. ;;00085-0777-04
  1. ;;9002226.02101,"974,00085-0777-04 ",.02)
  1. ;;00085-0777-04
  1. ;;9002226.02101,"974,00085-1731-01 ",.01)
  1. ;;00085-1731-01
  1. ;;9002226.02101,"974,00085-1731-01 ",.02)
  1. ;;00085-1731-01
  1. ;;9002226.02101,"974,00085-1741-02 ",.01)
  1. ;;00085-1741-02
  1. ;;9002226.02101,"974,00085-1741-02 ",.02)
  1. ;;00085-1741-02
  1. ;;9002226.02101,"974,00085-1754-01 ",.01)
  1. ;;00085-1754-01
  1. ;;9002226.02101,"974,00085-1754-01 ",.02)
  1. ;;00085-1754-01
  1. ;;9002226.02101,"974,00085-1754-02 ",.01)
  1. ;;00085-1754-02
  1. ;;9002226.02101,"974,00085-1754-02 ",.02)
  1. ;;00085-1754-02
  1. ;;9002226.02101,"974,00085-1755-02 ",.01)
  1. ;;00085-1755-02
  1. ;;9002226.02101,"974,00085-1755-02 ",.02)
  1. ;;00085-1755-02
  1. ;;9002226.02101,"974,00085-1756-01 ",.01)
  1. ;;00085-1756-01
  1. ;;9002226.02101,"974,00085-1756-01 ",.02)
  1. ;;00085-1756-01
  1. ;;9002226.02101,"974,00085-1756-02 ",.01)
  1. ;;00085-1756-02
  1. ;;9002226.02101,"974,00085-1756-02 ",.02)
  1. ;;00085-1756-02
  1. ;;9002226.02101,"974,00085-1758-01 ",.01)
  1. ;;00085-1758-01
  1. ;;9002226.02101,"974,00085-1758-01 ",.02)
  1. ;;00085-1758-01
  1. ;;9002226.02101,"974,00085-1758-02 ",.01)
  1. ;;00085-1758-02
  1. ;;9002226.02101,"974,00085-1758-02 ",.02)
  1. ;;00085-1758-02
  1. ;;9002226.02101,"974,00085-1762-01 ",.01)
  1. ;;00085-1762-01
  1. ;;9002226.02101,"974,00085-1762-01 ",.02)
  1. ;;00085-1762-01
  1. ;;9002226.02101,"974,00085-1763-03 ",.01)
  1. ;;00085-1763-03
  1. ;;9002226.02101,"974,00085-1763-03 ",.02)
  1. ;;00085-1763-03
  1. ;;9002226.02101,"974,00085-1773-01 ",.01)
  1. ;;00085-1773-01
  1. ;;9002226.02101,"974,00085-1773-01 ",.02)
  1. ;;00085-1773-01
  1. ;;9002226.02101,"974,00085-1775-01 ",.01)
  1. ;;00085-1775-01
  1. ;;9002226.02101,"974,00085-1775-01 ",.02)
  1. ;;00085-1775-01
  1. ;;9002226.02101,"974,00085-1775-02 ",.01)
  1. ;;00085-1775-02
  1. ;;9002226.02101,"974,00085-1775-02 ",.02)
  1. ;;00085-1775-02
  1. ;;9002226.02101,"974,00085-1777-01 ",.01)
  1. ;;00085-1777-01
  1. ;;9002226.02101,"974,00085-1777-01 ",.02)
  1. ;;00085-1777-01
  1. ;;9002226.02101,"974,00085-1778-02 ",.01)
  1. ;;00085-1778-02
  1. ;;9002226.02101,"974,00085-1778-02 ",.02)
  1. ;;00085-1778-02
  1. ;;9002226.02101,"974,00085-1778-03 ",.01)
  1. ;;00085-1778-03
  1. ;;9002226.02101,"974,00085-1778-03 ",.02)
  1. ;;00085-1778-03
  1. ;;9002226.02101,"974,00085-1781-01 ",.01)
  1. ;;00085-1781-01
  1. ;;9002226.02101,"974,00085-1781-01 ",.02)
  1. ;;00085-1781-01
  1. ;;9002226.02101,"974,00087-0782-41 ",.01)
  1. ;;00087-0782-41
  1. ;;9002226.02101,"974,00087-0782-41 ",.02)
  1. ;;00087-0782-41
  1. ;;9002226.02101,"974,00087-0782-42 ",.01)
  1. ;;00087-0782-42
  1. ;;9002226.02101,"974,00087-0782-42 ",.02)
  1. ;;00087-0782-42
  1. ;;9002226.02101,"974,00087-0783-05 ",.01)
  1. ;;00087-0783-05
  1. ;;9002226.02101,"974,00087-0783-05 ",.02)
  1. ;;00087-0783-05
  1. ;;9002226.02101,"974,00087-0783-41 ",.01)
  1. ;;00087-0783-41
  1. ;;9002226.02101,"974,00087-0783-41 ",.02)
  1. ;;00087-0783-41
  1. ;;9002226.02101,"974,00087-0783-42 ",.01)
  1. ;;00087-0783-42
  1. ;;9002226.02101,"974,00087-0783-42 ",.02)
  1. ;;00087-0783-42
  1. ;;9002226.02101,"974,00087-0784-07 ",.01)
  1. ;;00087-0784-07
  1. ;;9002226.02101,"974,00087-0784-07 ",.02)
  1. ;;00087-0784-07
  1. ;;9002226.02101,"974,00087-0784-42 ",.01)
  1. ;;00087-0784-42
  1. ;;9002226.02101,"974,00087-0784-42 ",.02)
  1. ;;00087-0784-42
  1. ;;9002226.02101,"974,00087-0784-44 ",.01)
  1. ;;00087-0784-44
  1. ;;9002226.02101,"974,00087-0784-44 ",.02)
  1. ;;00087-0784-44
  1. ;;9002226.02101,"974,00087-0784-46 ",.01)
  1. ;;00087-0784-46
  1. ;;9002226.02101,"974,00087-0784-46 ",.02)
  1. ;;00087-0784-46
  1. ;;9002226.02101,"974,00087-0785-42 ",.01)
  1. ;;00087-0785-42
  1. ;;9002226.02101,"974,00087-0785-42 ",.02)
  1. ;;00087-0785-42
  1. ;;9002226.02101,"974,00087-0785-43 ",.01)
  1. ;;00087-0785-43
  1. ;;9002226.02101,"974,00087-0785-43 ",.02)
  1. ;;00087-0785-43
  1. ;;9002226.02101,"974,00087-0785-44 ",.01)
  1. ;;00087-0785-44
  1. ;;9002226.02101,"974,00087-0785-44 ",.02)
  1. ;;00087-0785-44
  1. ;;9002226.02101,"974,00087-0786-41 ",.01)
  1. ;;00087-0786-41
  1. ;;9002226.02101,"974,00087-0786-41 ",.02)
  1. ;;00087-0786-41
  1. ;;9002226.02101,"974,00087-0786-42 ",.01)
  1. ;;00087-0786-42
  1. ;;9002226.02101,"974,00087-0786-42 ",.02)
  1. ;;00087-0786-42
  1. ;;9002226.02101,"974,00087-7718-40 ",.01)
  1. ;;00087-7718-40
  1. ;;9002226.02101,"974,00087-7718-40 ",.02)
  1. ;;00087-7718-40
  1. ;;9002226.02101,"974,00087-7718-62 ",.01)
  1. ;;00087-7718-62
  1. ;;9002226.02101,"974,00087-7718-62 ",.02)
  1. ;;00087-7718-62
  1. ;;9002226.02101,"974,00087-7718-64 ",.01)
  1. ;;00087-7718-64
  1. ;;9002226.02101,"974,00087-7718-64 ",.02)
  1. ;;00087-7718-64
  1. ;;9002226.02101,"974,00087-7719-40 ",.01)
  1. ;;00087-7719-40
  1. ;;9002226.02101,"974,00087-7719-40 ",.02)
  1. ;;00087-7719-40
  1. ;;9002226.02101,"974,00087-7719-62 ",.01)
  1. ;;00087-7719-62
  1. ;;9002226.02101,"974,00087-7719-62 ",.02)
  1. ;;00087-7719-62
  1. ;;9002226.02101,"974,00087-7719-64 ",.01)
  1. ;;00087-7719-64
  1. ;;9002226.02101,"974,00087-7719-64 ",.02)
  1. ;;00087-7719-64
  1. ;;9002226.02101,"974,00087-7720-60 ",.01)
  1. ;;00087-7720-60
  1. ;;9002226.02101,"974,00087-7720-60 ",.02)
  1. ;;00087-7720-60
  1. ;;9002226.02101,"974,00087-7720-66 ",.01)
  1. ;;00087-7720-66
  1. ;;9002226.02101,"974,00087-7720-66 ",.02)
  1. ;;00087-7720-66
  1. ;;9002226.02101,"974,00087-7721-50 ",.01)
  1. ;;00087-7721-50
  1. ;;9002226.02101,"974,00087-7721-50 ",.02)
  1. ;;00087-7721-50
  1. ;;9002226.02101,"974,00087-7721-60 ",.01)
  1. ;;00087-7721-60
  1. ;;9002226.02101,"974,00087-7721-60 ",.02)
  1. ;;00087-7721-60
  1. ;;9002226.02101,"974,00087-7721-66 ",.01)
  1. ;;00087-7721-66
  1. ;;9002226.02101,"974,00087-7721-66 ",.02)
  1. ;;00087-7721-66
  1. ;;9002226.02101,"974,00093-0088-01 ",.01)
  1. ;;00093-0088-01
  1. ;;9002226.02101,"974,00093-0088-01 ",.02)
  1. ;;00093-0088-01
  1. ;;9002226.02101,"974,00093-0088-05 ",.01)
  1. ;;00093-0088-05
  1. ;;9002226.02101,"974,00093-0088-05 ",.02)
  1. ;;00093-0088-05
  1. ;;9002226.02101,"974,00093-0089-01 ",.01)
  1. ;;00093-0089-01
  1. ;;9002226.02101,"974,00093-0089-01 ",.02)
  1. ;;00093-0089-01
  1. ;;9002226.02101,"974,00093-0089-05 ",.01)
  1. ;;00093-0089-05
  1. ;;9002226.02101,"974,00093-0089-05 ",.02)
  1. ;;00093-0089-05
  1. ;;9002226.02101,"974,00093-0190-16 ",.01)
  1. ;;00093-0190-16
  1. ;;9002226.02101,"974,00093-0190-16 ",.02)
  1. ;;00093-0190-16
  1. ;;9002226.02101,"974,00093-0562-16 ",.01)
  1. ;;00093-0562-16
  1. ;;9002226.02101,"974,00093-0562-16 ",.02)
  1. ;;00093-0562-16
  1. ;;9002226.02101,"974,00093-0863-01 ",.01)
  1. ;;00093-0863-01
  1. ;;9002226.02101,"974,00093-0863-01 ",.02)
  1. ;;00093-0863-01
  1. ;;9002226.02101,"974,00093-0864-01 ",.01)
  1. ;;00093-0864-01
  1. ;;9002226.02101,"974,00093-0864-01 ",.02)
  1. ;;00093-0864-01