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

BGP7LXAF.m

Go to the documentation of this file.
  1. BGP7LXAF ; 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,00406-1124-10 ",.02)
  1. ;;00406-1124-10
  1. ;;9002226.02101,"622,00406-1423-01 ",.01)
  1. ;;00406-1423-01
  1. ;;9002226.02101,"622,00406-1423-01 ",.02)
  1. ;;00406-1423-01
  1. ;;9002226.02101,"622,00406-1451-01 ",.01)
  1. ;;00406-1451-01
  1. ;;9002226.02101,"622,00406-1451-01 ",.02)
  1. ;;00406-1451-01
  1. ;;9002226.02101,"622,00406-1552-01 ",.01)
  1. ;;00406-1552-01
  1. ;;9002226.02101,"622,00406-1552-01 ",.02)
  1. ;;00406-1552-01
  1. ;;9002226.02101,"622,00406-1554-01 ",.01)
  1. ;;00406-1554-01
  1. ;;9002226.02101,"622,00406-1554-01 ",.02)
  1. ;;00406-1554-01
  1. ;;9002226.02101,"622,00406-1558-01 ",.01)
  1. ;;00406-1558-01
  1. ;;9002226.02101,"622,00406-1558-01 ",.02)
  1. ;;00406-1558-01
  1. ;;9002226.02101,"622,00406-1721-91 ",.01)
  1. ;;00406-1721-91
  1. ;;9002226.02101,"622,00406-1721-91 ",.02)
  1. ;;00406-1721-91
  1. ;;9002226.02101,"622,00406-8854-01 ",.01)
  1. ;;00406-8854-01
  1. ;;9002226.02101,"622,00406-8854-01 ",.02)
  1. ;;00406-8854-01
  1. ;;9002226.02101,"622,00406-8884-01 ",.01)
  1. ;;00406-8884-01
  1. ;;9002226.02101,"622,00406-8884-01 ",.02)
  1. ;;00406-8884-01
  1. ;;9002226.02101,"622,00406-8885-01 ",.01)
  1. ;;00406-8885-01
  1. ;;9002226.02101,"622,00406-8885-01 ",.02)
  1. ;;00406-8885-01
  1. ;;9002226.02101,"622,00406-8886-01 ",.01)
  1. ;;00406-8886-01
  1. ;;9002226.02101,"622,00406-8886-01 ",.02)
  1. ;;00406-8886-01
  1. ;;9002226.02101,"622,00406-8891-01 ",.01)
  1. ;;00406-8891-01
  1. ;;9002226.02101,"622,00406-8891-01 ",.02)
  1. ;;00406-8891-01
  1. ;;9002226.02101,"622,00406-8892-01 ",.01)
  1. ;;00406-8892-01
  1. ;;9002226.02101,"622,00406-8892-01 ",.02)
  1. ;;00406-8892-01
  1. ;;9002226.02101,"622,00406-8893-01 ",.01)
  1. ;;00406-8893-01
  1. ;;9002226.02101,"622,00406-8893-01 ",.02)
  1. ;;00406-8893-01
  1. ;;9002226.02101,"622,00406-8894-01 ",.01)
  1. ;;00406-8894-01
  1. ;;9002226.02101,"622,00406-8894-01 ",.02)
  1. ;;00406-8894-01
  1. ;;9002226.02101,"622,00406-8958-01 ",.01)
  1. ;;00406-8958-01
  1. ;;9002226.02101,"622,00406-8958-01 ",.02)
  1. ;;00406-8958-01
  1. ;;9002226.02101,"622,00406-8959-01 ",.01)
  1. ;;00406-8959-01
  1. ;;9002226.02101,"622,00406-8959-01 ",.02)
  1. ;;00406-8959-01
  1. ;;9002226.02101,"622,00406-8960-01 ",.01)
  1. ;;00406-8960-01
  1. ;;9002226.02101,"622,00406-8960-01 ",.02)
  1. ;;00406-8960-01
  1. ;;9002226.02101,"622,00406-8961-01 ",.01)
  1. ;;00406-8961-01
  1. ;;9002226.02101,"622,00406-8961-01 ",.02)
  1. ;;00406-8961-01
  1. ;;9002226.02101,"622,00406-8962-01 ",.01)
  1. ;;00406-8962-01
  1. ;;9002226.02101,"622,00406-8962-01 ",.02)
  1. ;;00406-8962-01
  1. ;;9002226.02101,"622,00440-8200-30 ",.01)
  1. ;;00440-8200-30
  1. ;;9002226.02101,"622,00440-8200-30 ",.02)
  1. ;;00440-8200-30
  1. ;;9002226.02101,"622,00440-8200-40 ",.01)
  1. ;;00440-8200-40
  1. ;;9002226.02101,"622,00440-8200-40 ",.02)
  1. ;;00440-8200-40
  1. ;;9002226.02101,"622,00440-8210-10 ",.01)
  1. ;;00440-8210-10
  1. ;;9002226.02101,"622,00440-8210-10 ",.02)
  1. ;;00440-8210-10
  1. ;;9002226.02101,"622,00440-8215-10 ",.01)
  1. ;;00440-8215-10
  1. ;;9002226.02101,"622,00440-8215-10 ",.02)
  1. ;;00440-8215-10
  1. ;;9002226.02101,"622,00463-2043-10 ",.01)
  1. ;;00463-2043-10
  1. ;;9002226.02101,"622,00463-2043-10 ",.02)
  1. ;;00463-2043-10
  1. ;;9002226.02101,"622,00463-3029-10 ",.01)
  1. ;;00463-3029-10
  1. ;;9002226.02101,"622,00463-3029-10 ",.02)
  1. ;;00463-3029-10
  1. ;;9002226.02101,"622,00463-3036-10 ",.01)
  1. ;;00463-3036-10
  1. ;;9002226.02101,"622,00463-3036-10 ",.02)
  1. ;;00463-3036-10
  1. ;;9002226.02101,"622,00463-6266-10 ",.01)
  1. ;;00463-6266-10
  1. ;;9002226.02101,"622,00463-6266-10 ",.02)
  1. ;;00463-6266-10
  1. ;;9002226.02101,"622,00463-6273-10 ",.01)
  1. ;;00463-6273-10
  1. ;;9002226.02101,"622,00463-6273-10 ",.02)
  1. ;;00463-6273-10
  1. ;;9002226.02101,"622,00477-5432-01 ",.01)
  1. ;;00477-5432-01
  1. ;;9002226.02101,"622,00477-5432-01 ",.02)
  1. ;;00477-5432-01
  1. ;;9002226.02101,"622,00477-5432-05 ",.01)
  1. ;;00477-5432-05
  1. ;;9002226.02101,"622,00477-5432-05 ",.02)
  1. ;;00477-5432-05
  1. ;;9002226.02101,"622,00477-5432-10 ",.01)
  1. ;;00477-5432-10
  1. ;;9002226.02101,"622,00477-5432-10 ",.02)
  1. ;;00477-5432-10
  1. ;;9002226.02101,"622,00477-5433-01 ",.01)
  1. ;;00477-5433-01
  1. ;;9002226.02101,"622,00477-5433-01 ",.02)
  1. ;;00477-5433-01
  1. ;;9002226.02101,"622,00477-5433-05 ",.01)
  1. ;;00477-5433-05
  1. ;;9002226.02101,"622,00477-5433-05 ",.02)
  1. ;;00477-5433-05
  1. ;;9002226.02101,"622,00477-5433-10 ",.01)
  1. ;;00477-5433-10
  1. ;;9002226.02101,"622,00477-5433-10 ",.02)
  1. ;;00477-5433-10
  1. ;;9002226.02101,"622,00478-5451-01 ",.01)
  1. ;;00478-5451-01
  1. ;;9002226.02101,"622,00478-5451-01 ",.02)
  1. ;;00478-5451-01
  1. ;;9002226.02101,"622,00478-5451-05 ",.01)
  1. ;;00478-5451-05
  1. ;;9002226.02101,"622,00478-5451-05 ",.02)
  1. ;;00478-5451-05
  1. ;;9002226.02101,"622,00478-5451-10 ",.01)
  1. ;;00478-5451-10
  1. ;;9002226.02101,"622,00478-5451-10 ",.02)
  1. ;;00478-5451-10
  1. ;;9002226.02101,"622,00478-5452-01 ",.01)
  1. ;;00478-5452-01
  1. ;;9002226.02101,"622,00478-5452-01 ",.02)
  1. ;;00478-5452-01
  1. ;;9002226.02101,"622,00478-5452-05 ",.01)
  1. ;;00478-5452-05
  1. ;;9002226.02101,"622,00478-5452-05 ",.02)
  1. ;;00478-5452-05
  1. ;;9002226.02101,"622,00478-5452-10 ",.01)
  1. ;;00478-5452-10
  1. ;;9002226.02101,"622,00478-5452-10 ",.02)
  1. ;;00478-5452-10
  1. ;;9002226.02101,"622,00478-5460-01 ",.01)
  1. ;;00478-5460-01
  1. ;;9002226.02101,"622,00478-5460-01 ",.02)
  1. ;;00478-5460-01
  1. ;;9002226.02101,"622,00478-5460-10 ",.01)
  1. ;;00478-5460-10
  1. ;;9002226.02101,"622,00478-5460-10 ",.02)
  1. ;;00478-5460-10
  1. ;;9002226.02101,"622,00478-5460-50 ",.01)
  1. ;;00478-5460-50
  1. ;;9002226.02101,"622,00478-5460-50 ",.02)
  1. ;;00478-5460-50
  1. ;;9002226.02101,"622,00478-5462-01 ",.01)
  1. ;;00478-5462-01
  1. ;;9002226.02101,"622,00478-5462-01 ",.02)
  1. ;;00478-5462-01
  1. ;;9002226.02101,"622,00478-5462-02 ",.01)
  1. ;;00478-5462-02
  1. ;;9002226.02101,"622,00478-5462-02 ",.02)
  1. ;;00478-5462-02
  1. ;;9002226.02101,"622,00478-5462-05 ",.01)
  1. ;;00478-5462-05
  1. ;;9002226.02101,"622,00478-5462-05 ",.02)
  1. ;;00478-5462-05
  1. ;;9002226.02101,"622,00478-5462-10 ",.01)
  1. ;;00478-5462-10
  1. ;;9002226.02101,"622,00478-5462-10 ",.02)
  1. ;;00478-5462-10
  1. ;;9002226.02101,"622,00478-5469-01 ",.01)
  1. ;;00478-5469-01
  1. ;;9002226.02101,"622,00478-5469-01 ",.02)
  1. ;;00478-5469-01
  1. ;;9002226.02101,"622,00478-5469-10 ",.01)
  1. ;;00478-5469-10
  1. ;;9002226.02101,"622,00478-5469-10 ",.02)
  1. ;;00478-5469-10
  1. ;;9002226.02101,"622,00501-2004-24 ",.01)
  1. ;;00501-2004-24
  1. ;;9002226.02101,"622,00501-2004-24 ",.02)
  1. ;;00501-2004-24
  1. ;;9002226.02101,"622,00501-2005-48 ",.01)
  1. ;;00501-2005-48
  1. ;;9002226.02101,"622,00501-2005-48 ",.02)
  1. ;;00501-2005-48
  1. ;;9002226.02101,"622,00525-0509-01 ",.01)
  1. ;;00525-0509-01
  1. ;;9002226.02101,"622,00525-0509-01 ",.02)
  1. ;;00525-0509-01
  1. ;;9002226.02101,"622,00527-1317-01 ",.01)
  1. ;;00527-1317-01
  1. ;;9002226.02101,"622,00527-1317-01 ",.02)
  1. ;;00527-1317-01
  1. ;;9002226.02101,"622,00536-4061-01 ",.01)
  1. ;;00536-4061-01
  1. ;;9002226.02101,"622,00536-4061-01 ",.02)
  1. ;;00536-4061-01
  1. ;;9002226.02101,"622,00536-4062-01 ",.01)
  1. ;;00536-4062-01
  1. ;;9002226.02101,"622,00536-4062-01 ",.02)
  1. ;;00536-4062-01
  1. ;;9002226.02101,"622,00536-4236-01 ",.01)
  1. ;;00536-4236-01
  1. ;;9002226.02101,"622,00536-4236-01 ",.02)
  1. ;;00536-4236-01
  1. ;;9002226.02101,"622,00536-4361-10 ",.01)
  1. ;;00536-4361-10
  1. ;;9002226.02101,"622,00536-4361-10 ",.02)
  1. ;;00536-4361-10
  1. ;;9002226.02101,"622,00536-4369-01 ",.01)
  1. ;;00536-4369-01
  1. ;;9002226.02101,"622,00536-4369-01 ",.02)
  1. ;;00536-4369-01
  1. ;;9002226.02101,"622,00536-4370-10 ",.01)
  1. ;;00536-4370-10
  1. ;;9002226.02101,"622,00536-4370-10 ",.02)
  1. ;;00536-4370-10
  1. ;;9002226.02101,"622,00536-4374-10 ",.01)
  1. ;;00536-4374-10
  1. ;;9002226.02101,"622,00536-4374-10 ",.02)
  1. ;;00536-4374-10
  1. ;;9002226.02101,"622,00536-4387-01 ",.01)
  1. ;;00536-4387-01
  1. ;;9002226.02101,"622,00536-4387-01 ",.02)
  1. ;;00536-4387-01
  1. ;;9002226.02101,"622,00536-4387-05 ",.01)
  1. ;;00536-4387-05
  1. ;;9002226.02101,"622,00536-4387-05 ",.02)
  1. ;;00536-4387-05
  1. ;;9002226.02101,"622,00536-5673-01 ",.01)
  1. ;;00536-5673-01
  1. ;;9002226.02101,"622,00536-5673-01 ",.02)
  1. ;;00536-5673-01
  1. ;;9002226.02101,"622,00536-5925-01 ",.01)
  1. ;;00536-5925-01
  1. ;;9002226.02101,"622,00536-5925-01 ",.02)
  1. ;;00536-5925-01
  1. ;;9002226.02101,"622,00555-0317-04 ",.01)
  1. ;;00555-0317-04
  1. ;;9002226.02101,"622,00555-0317-04 ",.02)
  1. ;;00555-0317-04
  1. ;;9002226.02101,"622,00555-0775-02 ",.01)
  1. ;;00555-0775-02
  1. ;;9002226.02101,"622,00555-0775-02 ",.02)
  1. ;;00555-0775-02
  1. ;;9002226.02101,"622,00555-0776-02 ",.01)
  1. ;;00555-0776-02
  1. ;;9002226.02101,"622,00555-0776-02 ",.02)
  1. ;;00555-0776-02
  1. ;;9002226.02101,"622,00555-0777-02 ",.01)
  1. ;;00555-0777-02
  1. ;;9002226.02101,"622,00555-0777-02 ",.02)
  1. ;;00555-0777-02
  1. ;;9002226.02101,"622,00555-0952-02 ",.01)
  1. ;;00555-0952-02
  1. ;;9002226.02101,"622,00555-0952-02 ",.02)
  1. ;;00555-0952-02
  1. ;;9002226.02101,"622,00555-0953-02 ",.01)
  1. ;;00555-0953-02
  1. ;;9002226.02101,"622,00555-0953-02 ",.02)
  1. ;;00555-0953-02
  1. ;;9002226.02101,"622,00555-0954-02 ",.01)
  1. ;;00555-0954-02
  1. ;;9002226.02101,"622,00555-0954-02 ",.02)
  1. ;;00555-0954-02
  1. ;;9002226.02101,"622,00555-0955-02 ",.01)
  1. ;;00555-0955-02
  1. ;;9002226.02101,"622,00555-0955-02 ",.02)
  1. ;;00555-0955-02
  1. ;;9002226.02101,"622,00555-0956-02 ",.01)
  1. ;;00555-0956-02
  1. ;;9002226.02101,"622,00555-0956-02 ",.02)
  1. ;;00555-0956-02
  1. ;;9002226.02101,"622,00555-0971-02 ",.01)
  1. ;;00555-0971-02
  1. ;;9002226.02101,"622,00555-0971-02 ",.02)
  1. ;;00555-0971-02
  1. ;;9002226.02101,"622,00555-0972-02 ",.01)
  1. ;;00555-0972-02
  1. ;;9002226.02101,"622,00555-0972-02 ",.02)
  1. ;;00555-0972-02
  1. ;;9002226.02101,"622,00555-0973-02 ",.01)
  1. ;;00555-0973-02
  1. ;;9002226.02101,"622,00555-0973-02 ",.02)
  1. ;;00555-0973-02
  1. ;;9002226.02101,"622,00555-0974-02 ",.01)
  1. ;;00555-0974-02
  1. ;;9002226.02101,"622,00555-0974-02 ",.02)
  1. ;;00555-0974-02
  1. ;;9002226.02101,"622,00556-0214-10 ",.01)
  1. ;;00556-0214-10
  1. ;;9002226.02101,"622,00556-0214-10 ",.02)
  1. ;;00556-0214-10
  1. ;;9002226.02101,"622,00585-0903-71 ",.01)
  1. ;;00585-0903-71
  1. ;;9002226.02101,"622,00585-0903-71 ",.02)
  1. ;;00585-0903-71
  1. ;;9002226.02101,"622,00585-0904-84 ",.01)
  1. ;;00585-0904-84
  1. ;;9002226.02101,"622,00585-0904-84 ",.02)
  1. ;;00585-0904-84
  1. ;;9002226.02101,"622,00591-0782-01 ",.01)
  1. ;;00591-0782-01
  1. ;;9002226.02101,"622,00591-0782-01 ",.02)
  1. ;;00591-0782-01
  1. ;;9002226.02101,"622,00591-0783-01 ",.01)
  1. ;;00591-0783-01
  1. ;;9002226.02101,"622,00591-0783-01 ",.02)
  1. ;;00591-0783-01
  1. ;;9002226.02101,"622,00591-3111-01 ",.01)
  1. ;;00591-3111-01
  1. ;;9002226.02101,"622,00591-3111-01 ",.02)
  1. ;;00591-3111-01
  1. ;;9002226.02101,"622,00591-5882-01 ",.01)
  1. ;;00591-5882-01
  1. ;;9002226.02101,"622,00591-5882-01 ",.02)
  1. ;;00591-5882-01
  1. ;;9002226.02101,"622,00591-5882-10 ",.01)
  1. ;;00591-5882-10
  1. ;;9002226.02101,"622,00591-5882-10 ",.02)
  1. ;;00591-5882-10
  1. ;;9002226.02101,"622,00591-5883-01 ",.01)
  1. ;;00591-5883-01
  1. ;;9002226.02101,"622,00591-5883-01 ",.02)
  1. ;;00591-5883-01
  1. ;;9002226.02101,"622,00591-5883-10 ",.01)
  1. ;;00591-5883-10
  1. ;;9002226.02101,"622,00591-5883-10 ",.02)
  1. ;;00591-5883-10
  1. ;;9002226.02101,"622,00591-5884-01 ",.01)
  1. ;;00591-5884-01
  1. ;;9002226.02101,"622,00591-5884-01 ",.02)
  1. ;;00591-5884-01
  1. ;;9002226.02101,"622,00591-5884-10 ",.01)
  1. ;;00591-5884-10
  1. ;;9002226.02101,"622,00591-5884-10 ",.02)
  1. ;;00591-5884-10
  1. ;;9002226.02101,"622,00603-3290-21 ",.01)
  1. ;;00603-3290-21
  1. ;;9002226.02101,"622,00603-3290-21 ",.02)
  1. ;;00603-3290-21
  1. ;;9002226.02101,"622,00603-3290-24 ",.01)
  1. ;;00603-3290-24
  1. ;;9002226.02101,"622,00603-3290-24 ",.02)
  1. ;;00603-3290-24
  1. ;;9002226.02101,"622,00603-4569-21 ",.01)
  1. ;;00603-4569-21
  1. ;;9002226.02101,"622,00603-4569-21 ",.02)
  1. ;;00603-4569-21
  1. ;;9002226.02101,"622,00603-4569-32 ",.01)
  1. ;;00603-4569-32
  1. ;;9002226.02101,"622,00603-4569-32 ",.02)
  1. ;;00603-4569-32
  1. ;;9002226.02101,"622,00603-4570-21 ",.01)
  1. ;;00603-4570-21
  1. ;;9002226.02101,"622,00603-4570-21 ",.02)
  1. ;;00603-4570-21
  1. ;;9002226.02101,"622,00603-4570-32 ",.01)
  1. ;;00603-4570-32
  1. ;;9002226.02101,"622,00603-4570-32 ",.02)
  1. ;;00603-4570-32
  1. ;;9002226.02101,"622,00603-4571-21 ",.01)
  1. ;;00603-4571-21
  1. ;;9002226.02101,"622,00603-4571-21 ",.02)
  1. ;;00603-4571-21
  1. ;;9002226.02101,"622,00603-4571-32 ",.01)
  1. ;;00603-4571-32
  1. ;;9002226.02101,"622,00603-4571-32 ",.02)
  1. ;;00603-4571-32
  1. ;;9002226.02101,"622,00603-4572-21 ",.01)
  1. ;;00603-4572-21
  1. ;;9002226.02101,"622,00603-4572-21 ",.02)
  1. ;;00603-4572-21
  1. ;;9002226.02101,"622,00603-5055-21 ",.01)
  1. ;;00603-5055-21
  1. ;;9002226.02101,"622,00603-5055-21 ",.02)
  1. ;;00603-5055-21
  1. ;;9002226.02101,"622,00603-5056-21 ",.01)
  1. ;;00603-5056-21
  1. ;;9002226.02101,"622,00603-5056-21 ",.02)
  1. ;;00603-5056-21
  1. ;;9002226.02101,"622,00603-5056-28 ",.01)
  1. ;;00603-5056-28
  1. ;;9002226.02101,"622,00603-5056-28 ",.02)
  1. ;;00603-5056-28
  1. ;;9002226.02101,"622,00603-5057-21 ",.01)
  1. ;;00603-5057-21
  1. ;;9002226.02101,"622,00603-5057-21 ",.02)
  1. ;;00603-5057-21
  1. ;;9002226.02101,"622,00603-5190-21 ",.01)
  1. ;;00603-5190-21
  1. ;;9002226.02101,"622,00603-5190-21 ",.02)
  1. ;;00603-5190-21
  1. ;;9002226.02101,"622,00603-5190-32 ",.01)
  1. ;;00603-5190-32
  1. ;;9002226.02101,"622,00603-5190-32 ",.02)
  1. ;;00603-5190-32
  1. ;;9002226.02101,"622,00603-5192-21 ",.01)
  1. ;;00603-5192-21
  1. ;;9002226.02101,"622,00603-5192-21 ",.02)
  1. ;;00603-5192-21
  1. ;;9002226.02101,"622,00603-5192-32 ",.01)
  1. ;;00603-5192-32
  1. ;;9002226.02101,"622,00603-5192-32 ",.02)
  1. ;;00603-5192-32
  1. ;;9002226.02101,"622,00615-0455-29 ",.01)
  1. ;;00615-0455-29
  1. ;;9002226.02101,"622,00615-0455-29 ",.02)
  1. ;;00615-0455-29
  1. ;;9002226.02101,"622,00615-0455-43 ",.01)
  1. ;;00615-0455-43
  1. ;;9002226.02101,"622,00615-0455-43 ",.02)
  1. ;;00615-0455-43
  1. ;;9002226.02101,"622,00615-0455-53 ",.01)
  1. ;;00615-0455-53
  1. ;;9002226.02101,"622,00615-0455-53 ",.02)
  1. ;;00615-0455-53
  1. ;;9002226.02101,"622,00615-0455-65 ",.01)
  1. ;;00615-0455-65
  1. ;;9002226.02101,"622,00615-0455-65 ",.02)
  1. ;;00615-0455-65
  1. ;;9002226.02101,"622,00641-0140-26 ",.01)
  1. ;;00641-0140-26