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