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

BGP7LXAE.m

Go to the documentation of this file.
  1. BGP7LXAE ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  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,"622,00182-0205-01 ",.02)
  1. ;;00182-0205-01
  1. ;;9002226.02101,"622,00182-0205-10 ",.01)
  1. ;;00182-0205-10
  1. ;;9002226.02101,"622,00182-0205-10 ",.02)
  1. ;;00182-0205-10
  1. ;;9002226.02101,"622,00182-0317-00 ",.01)
  1. ;;00182-0317-00
  1. ;;9002226.02101,"622,00182-0317-00 ",.02)
  1. ;;00182-0317-00
  1. ;;9002226.02101,"622,00182-0800-01 ",.01)
  1. ;;00182-0800-01
  1. ;;9002226.02101,"622,00182-0800-01 ",.02)
  1. ;;00182-0800-01
  1. ;;9002226.02101,"622,00182-0800-05 ",.01)
  1. ;;00182-0800-05
  1. ;;9002226.02101,"622,00182-0800-05 ",.02)
  1. ;;00182-0800-05
  1. ;;9002226.02101,"622,00182-0870-01 ",.01)
  1. ;;00182-0870-01
  1. ;;9002226.02101,"622,00182-0870-01 ",.02)
  1. ;;00182-0870-01
  1. ;;9002226.02101,"622,00182-0870-02 ",.01)
  1. ;;00182-0870-02
  1. ;;9002226.02101,"622,00182-0870-02 ",.02)
  1. ;;00182-0870-02
  1. ;;9002226.02101,"622,00182-1066-01 ",.01)
  1. ;;00182-1066-01
  1. ;;9002226.02101,"622,00182-1066-01 ",.02)
  1. ;;00182-1066-01
  1. ;;9002226.02101,"622,00182-1066-10 ",.01)
  1. ;;00182-1066-10
  1. ;;9002226.02101,"622,00182-1066-10 ",.02)
  1. ;;00182-1066-10
  1. ;;9002226.02101,"622,00182-1173-01 ",.01)
  1. ;;00182-1173-01
  1. ;;9002226.02101,"622,00182-1173-01 ",.02)
  1. ;;00182-1173-01
  1. ;;9002226.02101,"622,00182-1173-10 ",.01)
  1. ;;00182-1173-10
  1. ;;9002226.02101,"622,00182-1173-10 ",.02)
  1. ;;00182-1173-10
  1. ;;9002226.02101,"622,00182-1174-01 ",.01)
  1. ;;00182-1174-01
  1. ;;9002226.02101,"622,00182-1174-01 ",.02)
  1. ;;00182-1174-01
  1. ;;9002226.02101,"622,00182-1436-01 ",.01)
  1. ;;00182-1436-01
  1. ;;9002226.02101,"622,00182-1436-01 ",.02)
  1. ;;00182-1436-01
  1. ;;9002226.02101,"622,00182-1673-10 ",.01)
  1. ;;00182-1673-10
  1. ;;9002226.02101,"622,00182-1673-10 ",.02)
  1. ;;00182-1673-10
  1. ;;9002226.02101,"622,00182-2155-19 ",.01)
  1. ;;00182-2155-19
  1. ;;9002226.02101,"622,00182-2155-19 ",.02)
  1. ;;00182-2155-19
  1. ;;9002226.02101,"622,00182-9147-01 ",.01)
  1. ;;00182-9147-01
  1. ;;9002226.02101,"622,00182-9147-01 ",.02)
  1. ;;00182-9147-01
  1. ;;9002226.02101,"622,00185-0084-01 ",.01)
  1. ;;00185-0084-01
  1. ;;9002226.02101,"622,00185-0084-01 ",.02)
  1. ;;00185-0084-01
  1. ;;9002226.02101,"622,00185-0111-01 ",.01)
  1. ;;00185-0111-01
  1. ;;9002226.02101,"622,00185-0111-01 ",.02)
  1. ;;00185-0111-01
  1. ;;9002226.02101,"622,00185-0401-01 ",.01)
  1. ;;00185-0401-01
  1. ;;9002226.02101,"622,00185-0401-01 ",.02)
  1. ;;00185-0401-01
  1. ;;9002226.02101,"622,00185-0404-01 ",.01)
  1. ;;00185-0404-01
  1. ;;9002226.02101,"622,00185-0404-01 ",.02)
  1. ;;00185-0404-01
  1. ;;9002226.02101,"622,00185-0635-10 ",.01)
  1. ;;00185-0635-10
  1. ;;9002226.02101,"622,00185-0635-10 ",.02)
  1. ;;00185-0635-10
  1. ;;9002226.02101,"622,00185-0640-10 ",.01)
  1. ;;00185-0640-10
  1. ;;9002226.02101,"622,00185-0640-10 ",.02)
  1. ;;00185-0640-10
  1. ;;9002226.02101,"622,00185-0644-01 ",.01)
  1. ;;00185-0644-01
  1. ;;9002226.02101,"622,00185-0644-01 ",.02)
  1. ;;00185-0644-01
  1. ;;9002226.02101,"622,00185-0644-10 ",.01)
  1. ;;00185-0644-10
  1. ;;9002226.02101,"622,00185-0644-10 ",.02)
  1. ;;00185-0644-10
  1. ;;9002226.02101,"622,00185-0647-01 ",.01)
  1. ;;00185-0647-01
  1. ;;9002226.02101,"622,00185-0647-01 ",.02)
  1. ;;00185-0647-01
  1. ;;9002226.02101,"622,00185-0647-10 ",.01)
  1. ;;00185-0647-10
  1. ;;9002226.02101,"622,00185-0647-10 ",.02)
  1. ;;00185-0647-10
  1. ;;9002226.02101,"622,00185-4055-10 ",.01)
  1. ;;00185-4055-10
  1. ;;9002226.02101,"622,00185-4055-10 ",.02)
  1. ;;00185-4055-10
  1. ;;9002226.02101,"622,00185-4057-01 ",.01)
  1. ;;00185-4057-01
  1. ;;9002226.02101,"622,00185-4057-01 ",.02)
  1. ;;00185-4057-01
  1. ;;9002226.02101,"622,00185-4057-10 ",.01)
  1. ;;00185-4057-10
  1. ;;9002226.02101,"622,00185-4057-10 ",.02)
  1. ;;00185-4057-10
  1. ;;9002226.02101,"622,00185-4095-10 ",.01)
  1. ;;00185-4095-10
  1. ;;9002226.02101,"622,00185-4095-10 ",.02)
  1. ;;00185-4095-10
  1. ;;9002226.02101,"622,00185-5000-01 ",.01)
  1. ;;00185-5000-01
  1. ;;9002226.02101,"622,00185-5000-01 ",.02)
  1. ;;00185-5000-01
  1. ;;9002226.02101,"622,00185-5000-10 ",.01)
  1. ;;00185-5000-10
  1. ;;9002226.02101,"622,00185-5000-10 ",.02)
  1. ;;00185-5000-10
  1. ;;9002226.02101,"622,00185-5254-01 ",.01)
  1. ;;00185-5254-01
  1. ;;9002226.02101,"622,00185-5254-01 ",.02)
  1. ;;00185-5254-01
  1. ;;9002226.02101,"622,00185-5254-10 ",.01)
  1. ;;00185-5254-10
  1. ;;9002226.02101,"622,00185-5254-10 ",.02)
  1. ;;00185-5254-10
  1. ;;9002226.02101,"622,00187-0497-01 ",.01)
  1. ;;00187-0497-01
  1. ;;9002226.02101,"622,00187-0497-01 ",.02)
  1. ;;00187-0497-01
  1. ;;9002226.02101,"622,00187-0498-01 ",.01)
  1. ;;00187-0498-01
  1. ;;9002226.02101,"622,00187-0498-01 ",.02)
  1. ;;00187-0498-01
  1. ;;9002226.02101,"622,00228-2089-10 ",.01)
  1. ;;00228-2089-10
  1. ;;9002226.02101,"622,00228-2089-10 ",.02)
  1. ;;00228-2089-10
  1. ;;9002226.02101,"622,00228-2091-10 ",.01)
  1. ;;00228-2091-10
  1. ;;9002226.02101,"622,00228-2091-10 ",.02)
  1. ;;00228-2091-10
  1. ;;9002226.02101,"622,00228-2092-10 ",.01)
  1. ;;00228-2092-10
  1. ;;9002226.02101,"622,00228-2092-10 ",.02)
  1. ;;00228-2092-10
  1. ;;9002226.02101,"622,00228-3016-11 ",.01)
  1. ;;00228-3016-11
  1. ;;9002226.02101,"622,00228-3016-11 ",.02)
  1. ;;00228-3016-11
  1. ;;9002226.02101,"622,00228-3016-96 ",.01)
  1. ;;00228-3016-96
  1. ;;9002226.02101,"622,00228-3016-96 ",.02)
  1. ;;00228-3016-96
  1. ;;9002226.02101,"622,00298-1008-01 ",.01)
  1. ;;00298-1008-01
  1. ;;9002226.02101,"622,00298-1008-01 ",.02)
  1. ;;00298-1008-01
  1. ;;9002226.02101,"622,00298-1008-11 ",.01)
  1. ;;00298-1008-11
  1. ;;9002226.02101,"622,00298-1008-11 ",.02)
  1. ;;00298-1008-11
  1. ;;9002226.02101,"622,00298-1554-01 ",.01)
  1. ;;00298-1554-01
  1. ;;9002226.02101,"622,00298-1554-01 ",.02)
  1. ;;00298-1554-01
  1. ;;9002226.02101,"622,00298-1554-11 ",.01)
  1. ;;00298-1554-11
  1. ;;9002226.02101,"622,00298-1554-11 ",.02)
  1. ;;00298-1554-11
  1. ;;9002226.02101,"622,00298-2896-11 ",.01)
  1. ;;00298-2896-11
  1. ;;9002226.02101,"622,00298-2896-11 ",.02)
  1. ;;00298-2896-11
  1. ;;9002226.02101,"622,00298-2903-11 ",.01)
  1. ;;00298-2903-11
  1. ;;9002226.02101,"622,00298-2903-11 ",.02)
  1. ;;00298-2903-11
  1. ;;9002226.02101,"622,00302-5840-05 ",.01)
  1. ;;00302-5840-05
  1. ;;9002226.02101,"622,00302-5840-05 ",.02)
  1. ;;00302-5840-05
  1. ;;9002226.02101,"622,00302-5842-01 ",.01)
  1. ;;00302-5842-01
  1. ;;9002226.02101,"622,00302-5842-01 ",.02)
  1. ;;00302-5842-01
  1. ;;9002226.02101,"622,00302-5842-05 ",.01)
  1. ;;00302-5842-05
  1. ;;9002226.02101,"622,00302-5842-05 ",.02)
  1. ;;00302-5842-05
  1. ;;9002226.02101,"622,00302-5846-01 ",.01)
  1. ;;00302-5846-01
  1. ;;9002226.02101,"622,00302-5846-01 ",.02)
  1. ;;00302-5846-01
  1. ;;9002226.02101,"622,00302-5846-05 ",.01)
  1. ;;00302-5846-05
  1. ;;9002226.02101,"622,00302-5846-05 ",.02)
  1. ;;00302-5846-05
  1. ;;9002226.02101,"622,00302-5847-01 ",.01)
  1. ;;00302-5847-01
  1. ;;9002226.02101,"622,00302-5847-01 ",.02)
  1. ;;00302-5847-01
  1. ;;9002226.02101,"622,00302-5847-05 ",.01)
  1. ;;00302-5847-05
  1. ;;9002226.02101,"622,00302-5847-05 ",.02)
  1. ;;00302-5847-05
  1. ;;9002226.02101,"622,00314-0135-20 ",.01)
  1. ;;00314-0135-20
  1. ;;9002226.02101,"622,00314-0135-20 ",.02)
  1. ;;00314-0135-20
  1. ;;9002226.02101,"622,00314-0206-10 ",.01)
  1. ;;00314-0206-10
  1. ;;9002226.02101,"622,00314-0206-10 ",.02)
  1. ;;00314-0206-10
  1. ;;9002226.02101,"622,00314-5462-10 ",.01)
  1. ;;00314-5462-10
  1. ;;9002226.02101,"622,00314-5462-10 ",.02)
  1. ;;00314-5462-10
  1. ;;9002226.02101,"622,00339-4031-12 ",.01)
  1. ;;00339-4031-12
  1. ;;9002226.02101,"622,00339-4031-12 ",.02)
  1. ;;00339-4031-12
  1. ;;9002226.02101,"622,00339-4053-12 ",.01)
  1. ;;00339-4053-12
  1. ;;9002226.02101,"622,00339-4053-12 ",.02)
  1. ;;00339-4053-12
  1. ;;9002226.02101,"622,00349-2187-01 ",.01)
  1. ;;00349-2187-01
  1. ;;9002226.02101,"622,00349-2187-01 ",.02)
  1. ;;00349-2187-01
  1. ;;9002226.02101,"622,00349-2187-05 ",.01)
  1. ;;00349-2187-05
  1. ;;9002226.02101,"622,00349-2187-05 ",.02)
  1. ;;00349-2187-05
  1. ;;9002226.02101,"622,00349-8287-10 ",.01)
  1. ;;00349-8287-10
  1. ;;9002226.02101,"622,00349-8287-10 ",.02)
  1. ;;00349-8287-10
  1. ;;9002226.02101,"622,00349-8577-05 ",.01)
  1. ;;00349-8577-05
  1. ;;9002226.02101,"622,00349-8577-05 ",.02)
  1. ;;00349-8577-05
  1. ;;9002226.02101,"622,00349-8814-01 ",.01)
  1. ;;00349-8814-01
  1. ;;9002226.02101,"622,00349-8814-01 ",.02)
  1. ;;00349-8814-01
  1. ;;9002226.02101,"622,00349-8814-05 ",.01)
  1. ;;00349-8814-05
  1. ;;9002226.02101,"622,00349-8814-05 ",.02)
  1. ;;00349-8814-05
  1. ;;9002226.02101,"622,00349-8834-01 ",.01)
  1. ;;00349-8834-01
  1. ;;9002226.02101,"622,00349-8834-01 ",.02)
  1. ;;00349-8834-01
  1. ;;9002226.02101,"622,00349-8889-01 ",.01)
  1. ;;00349-8889-01
  1. ;;9002226.02101,"622,00349-8889-01 ",.02)
  1. ;;00349-8889-01
  1. ;;9002226.02101,"622,00349-8889-53 ",.01)
  1. ;;00349-8889-53
  1. ;;9002226.02101,"622,00349-8889-53 ",.02)
  1. ;;00349-8889-53
  1. ;;9002226.02101,"622,00363-0235-06 ",.01)
  1. ;;00363-0235-06
  1. ;;9002226.02101,"622,00363-0235-06 ",.02)
  1. ;;00363-0235-06
  1. ;;9002226.02101,"622,00364-0396-01 ",.01)
  1. ;;00364-0396-01
  1. ;;9002226.02101,"622,00364-0396-01 ",.02)
  1. ;;00364-0396-01
  1. ;;9002226.02101,"622,00364-0396-05 ",.01)
  1. ;;00364-0396-05
  1. ;;9002226.02101,"622,00364-0396-05 ",.02)
  1. ;;00364-0396-05
  1. ;;9002226.02101,"622,00364-0479-01 ",.01)
  1. ;;00364-0479-01
  1. ;;9002226.02101,"622,00364-0479-01 ",.02)
  1. ;;00364-0479-01
  1. ;;9002226.02101,"622,00364-0479-02 ",.01)
  1. ;;00364-0479-02
  1. ;;9002226.02101,"622,00364-0479-02 ",.02)
  1. ;;00364-0479-02
  1. ;;9002226.02101,"622,00364-0500-01 ",.01)
  1. ;;00364-0500-01
  1. ;;9002226.02101,"622,00364-0500-01 ",.02)
  1. ;;00364-0500-01
  1. ;;9002226.02101,"622,00364-0501-01 ",.01)
  1. ;;00364-0501-01
  1. ;;9002226.02101,"622,00364-0501-01 ",.02)
  1. ;;00364-0501-01
  1. ;;9002226.02101,"622,00364-0561-01 ",.01)
  1. ;;00364-0561-01
  1. ;;9002226.02101,"622,00364-0561-01 ",.02)
  1. ;;00364-0561-01
  1. ;;9002226.02101,"622,00364-0561-02 ",.01)
  1. ;;00364-0561-02
  1. ;;9002226.02101,"622,00364-0561-02 ",.02)
  1. ;;00364-0561-02
  1. ;;9002226.02101,"622,00364-0562-01 ",.01)
  1. ;;00364-0562-01
  1. ;;9002226.02101,"622,00364-0562-01 ",.02)
  1. ;;00364-0562-01
  1. ;;9002226.02101,"622,00364-0562-02 ",.01)
  1. ;;00364-0562-02
  1. ;;9002226.02101,"622,00364-0562-02 ",.02)
  1. ;;00364-0562-02
  1. ;;9002226.02101,"622,00364-0668-02 ",.01)
  1. ;;00364-0668-02
  1. ;;9002226.02101,"622,00364-0668-02 ",.02)
  1. ;;00364-0668-02
  1. ;;9002226.02101,"622,00378-0521-05 ",.01)
  1. ;;00378-0521-05
  1. ;;9002226.02101,"622,00378-0521-05 ",.02)
  1. ;;00378-0521-05
  1. ;;9002226.02101,"622,00378-7065-01 ",.01)
  1. ;;00378-7065-01
  1. ;;9002226.02101,"622,00378-7065-01 ",.02)
  1. ;;00378-7065-01
  1. ;;9002226.02101,"622,00378-7065-05 ",.01)
  1. ;;00378-7065-05
  1. ;;9002226.02101,"622,00378-7065-05 ",.02)
  1. ;;00378-7065-05
  1. ;;9002226.02101,"622,00403-0130-12 ",.01)
  1. ;;00403-0130-12
  1. ;;9002226.02101,"622,00403-0130-12 ",.02)
  1. ;;00403-0130-12
  1. ;;9002226.02101,"622,00403-0727-12 ",.01)
  1. ;;00403-0727-12
  1. ;;9002226.02101,"622,00403-0727-12 ",.02)
  1. ;;00403-0727-12
  1. ;;9002226.02101,"622,00403-0727-30 ",.01)
  1. ;;00403-0727-30
  1. ;;9002226.02101,"622,00403-0727-30 ",.02)
  1. ;;00403-0727-30
  1. ;;9002226.02101,"622,00403-0728-12 ",.01)
  1. ;;00403-0728-12
  1. ;;9002226.02101,"622,00403-0728-12 ",.02)
  1. ;;00403-0728-12
  1. ;;9002226.02101,"622,00403-0728-14 ",.01)
  1. ;;00403-0728-14
  1. ;;9002226.02101,"622,00403-0728-14 ",.02)
  1. ;;00403-0728-14
  1. ;;9002226.02101,"622,00403-0728-15 ",.01)
  1. ;;00403-0728-15
  1. ;;9002226.02101,"622,00403-0728-15 ",.02)
  1. ;;00403-0728-15
  1. ;;9002226.02101,"622,00403-0728-20 ",.01)
  1. ;;00403-0728-20
  1. ;;9002226.02101,"622,00403-0728-20 ",.02)
  1. ;;00403-0728-20
  1. ;;9002226.02101,"622,00403-0728-24 ",.01)
  1. ;;00403-0728-24
  1. ;;9002226.02101,"622,00403-0728-24 ",.02)
  1. ;;00403-0728-24
  1. ;;9002226.02101,"622,00403-0728-30 ",.01)
  1. ;;00403-0728-30
  1. ;;9002226.02101,"622,00403-0728-30 ",.02)
  1. ;;00403-0728-30
  1. ;;9002226.02101,"622,00403-1096-12 ",.01)
  1. ;;00403-1096-12
  1. ;;9002226.02101,"622,00403-1096-12 ",.02)
  1. ;;00403-1096-12
  1. ;;9002226.02101,"622,00403-1096-30 ",.01)
  1. ;;00403-1096-30
  1. ;;9002226.02101,"622,00403-1096-30 ",.02)
  1. ;;00403-1096-30
  1. ;;9002226.02101,"622,00403-1640-18 ",.01)
  1. ;;00403-1640-18
  1. ;;9002226.02101,"622,00403-1640-18 ",.02)
  1. ;;00403-1640-18
  1. ;;9002226.02101,"622,00403-2019-15 ",.01)
  1. ;;00403-2019-15
  1. ;;9002226.02101,"622,00403-2019-15 ",.02)
  1. ;;00403-2019-15
  1. ;;9002226.02101,"622,00403-2019-30 ",.01)
  1. ;;00403-2019-30
  1. ;;9002226.02101,"622,00403-2019-30 ",.02)
  1. ;;00403-2019-30
  1. ;;9002226.02101,"622,00405-0125-01 ",.01)
  1. ;;00405-0125-01
  1. ;;9002226.02101,"622,00405-0125-01 ",.02)
  1. ;;00405-0125-01
  1. ;;9002226.02101,"622,00405-0125-03 ",.01)
  1. ;;00405-0125-03
  1. ;;9002226.02101,"622,00405-0125-03 ",.02)
  1. ;;00405-0125-03
  1. ;;9002226.02101,"622,00405-0126-01 ",.01)
  1. ;;00405-0126-01
  1. ;;9002226.02101,"622,00405-0126-01 ",.02)
  1. ;;00405-0126-01
  1. ;;9002226.02101,"622,00405-0126-03 ",.01)
  1. ;;00405-0126-03
  1. ;;9002226.02101,"622,00405-0126-03 ",.02)
  1. ;;00405-0126-03
  1. ;;9002226.02101,"622,00405-0127-01 ",.01)
  1. ;;00405-0127-01
  1. ;;9002226.02101,"622,00405-0127-01 ",.02)
  1. ;;00405-0127-01
  1. ;;9002226.02101,"622,00405-0127-03 ",.01)
  1. ;;00405-0127-03
  1. ;;9002226.02101,"622,00405-0127-03 ",.02)
  1. ;;00405-0127-03
  1. ;;9002226.02101,"622,00405-0128-01 ",.01)
  1. ;;00405-0128-01
  1. ;;9002226.02101,"622,00405-0128-01 ",.02)
  1. ;;00405-0128-01
  1. ;;9002226.02101,"622,00405-4796-01 ",.01)
  1. ;;00405-4796-01
  1. ;;9002226.02101,"622,00405-4796-01 ",.02)
  1. ;;00405-4796-01
  1. ;;9002226.02101,"622,00405-4796-03 ",.01)
  1. ;;00405-4796-03
  1. ;;9002226.02101,"622,00405-4796-03 ",.02)
  1. ;;00405-4796-03
  1. ;;9002226.02101,"622,00406-1121-01 ",.01)
  1. ;;00406-1121-01
  1. ;;9002226.02101,"622,00406-1121-01 ",.02)
  1. ;;00406-1121-01
  1. ;;9002226.02101,"622,00406-1121-10 ",.01)
  1. ;;00406-1121-10
  1. ;;9002226.02101,"622,00406-1121-10 ",.02)
  1. ;;00406-1121-10
  1. ;;9002226.02101,"622,00406-1122-01 ",.01)
  1. ;;00406-1122-01
  1. ;;9002226.02101,"622,00406-1122-01 ",.02)
  1. ;;00406-1122-01
  1. ;;9002226.02101,"622,00406-1122-10 ",.01)
  1. ;;00406-1122-10
  1. ;;9002226.02101,"622,00406-1122-10 ",.02)
  1. ;;00406-1122-10
  1. ;;9002226.02101,"622,00406-1124-01 ",.01)
  1. ;;00406-1124-01
  1. ;;9002226.02101,"622,00406-1124-01 ",.02)
  1. ;;00406-1124-01
  1. ;;9002226.02101,"622,00406-1124-10 ",.01)
  1. ;;00406-1124-10