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

BGP7LXLO.m

Go to the documentation of this file.
  1. BGP7LXLO ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 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,"629,54868-1253-02 ",.01)
  1. ;;54868-1253-02
  1. ;;9002226.02101,"629,54868-1253-02 ",.02)
  1. ;;54868-1253-02
  1. ;;9002226.02101,"629,54868-1534-00 ",.01)
  1. ;;54868-1534-00
  1. ;;9002226.02101,"629,54868-1534-00 ",.02)
  1. ;;54868-1534-00
  1. ;;9002226.02101,"629,54868-1746-00 ",.01)
  1. ;;54868-1746-00
  1. ;;9002226.02101,"629,54868-1746-00 ",.02)
  1. ;;54868-1746-00
  1. ;;9002226.02101,"629,54868-1826-01 ",.01)
  1. ;;54868-1826-01
  1. ;;9002226.02101,"629,54868-1826-01 ",.02)
  1. ;;54868-1826-01
  1. ;;9002226.02101,"629,54868-2206-00 ",.01)
  1. ;;54868-2206-00
  1. ;;9002226.02101,"629,54868-2206-00 ",.02)
  1. ;;54868-2206-00
  1. ;;9002226.02101,"629,54868-2956-00 ",.01)
  1. ;;54868-2956-00
  1. ;;9002226.02101,"629,54868-2956-00 ",.02)
  1. ;;54868-2956-00
  1. ;;9002226.02101,"629,54868-2956-01 ",.01)
  1. ;;54868-2956-01
  1. ;;9002226.02101,"629,54868-2956-01 ",.02)
  1. ;;54868-2956-01
  1. ;;9002226.02101,"629,54868-2956-03 ",.01)
  1. ;;54868-2956-03
  1. ;;9002226.02101,"629,54868-2956-03 ",.02)
  1. ;;54868-2956-03
  1. ;;9002226.02101,"629,54868-2956-04 ",.01)
  1. ;;54868-2956-04
  1. ;;9002226.02101,"629,54868-2956-04 ",.02)
  1. ;;54868-2956-04
  1. ;;9002226.02101,"629,54868-2956-05 ",.01)
  1. ;;54868-2956-05
  1. ;;9002226.02101,"629,54868-2956-05 ",.02)
  1. ;;54868-2956-05
  1. ;;9002226.02101,"629,54868-4102-00 ",.01)
  1. ;;54868-4102-00
  1. ;;9002226.02101,"629,54868-4102-00 ",.02)
  1. ;;54868-4102-00
  1. ;;9002226.02101,"629,54868-4102-01 ",.01)
  1. ;;54868-4102-01
  1. ;;9002226.02101,"629,54868-4102-01 ",.02)
  1. ;;54868-4102-01
  1. ;;9002226.02101,"629,54868-4102-02 ",.01)
  1. ;;54868-4102-02
  1. ;;9002226.02101,"629,54868-4102-02 ",.02)
  1. ;;54868-4102-02
  1. ;;9002226.02101,"629,54868-4102-03 ",.01)
  1. ;;54868-4102-03
  1. ;;9002226.02101,"629,54868-4102-03 ",.02)
  1. ;;54868-4102-03
  1. ;;9002226.02101,"629,54868-4102-04 ",.01)
  1. ;;54868-4102-04
  1. ;;9002226.02101,"629,54868-4102-04 ",.02)
  1. ;;54868-4102-04
  1. ;;9002226.02101,"629,54868-4733-00 ",.01)
  1. ;;54868-4733-00
  1. ;;9002226.02101,"629,54868-4733-00 ",.02)
  1. ;;54868-4733-00
  1. ;;9002226.02101,"629,54868-4733-01 ",.01)
  1. ;;54868-4733-01
  1. ;;9002226.02101,"629,54868-4733-01 ",.02)
  1. ;;54868-4733-01
  1. ;;9002226.02101,"629,54868-4733-02 ",.01)
  1. ;;54868-4733-02
  1. ;;9002226.02101,"629,54868-4733-02 ",.02)
  1. ;;54868-4733-02
  1. ;;9002226.02101,"629,54868-4733-03 ",.01)
  1. ;;54868-4733-03
  1. ;;9002226.02101,"629,54868-4733-03 ",.02)
  1. ;;54868-4733-03
  1. ;;9002226.02101,"629,54868-4733-04 ",.01)
  1. ;;54868-4733-04
  1. ;;9002226.02101,"629,54868-4733-04 ",.02)
  1. ;;54868-4733-04
  1. ;;9002226.02101,"629,54868-4733-05 ",.01)
  1. ;;54868-4733-05
  1. ;;9002226.02101,"629,54868-4733-05 ",.02)
  1. ;;54868-4733-05
  1. ;;9002226.02101,"629,54868-4733-06 ",.01)
  1. ;;54868-4733-06
  1. ;;9002226.02101,"629,54868-4733-06 ",.02)
  1. ;;54868-4733-06
  1. ;;9002226.02101,"629,54868-4979-00 ",.01)
  1. ;;54868-4979-00
  1. ;;9002226.02101,"629,54868-4979-00 ",.02)
  1. ;;54868-4979-00
  1. ;;9002226.02101,"629,54868-4979-01 ",.01)
  1. ;;54868-4979-01
  1. ;;9002226.02101,"629,54868-4979-01 ",.02)
  1. ;;54868-4979-01
  1. ;;9002226.02101,"629,54868-4982-01 ",.01)
  1. ;;54868-4982-01
  1. ;;9002226.02101,"629,54868-4982-01 ",.02)
  1. ;;54868-4982-01
  1. ;;9002226.02101,"629,54868-5073-00 ",.01)
  1. ;;54868-5073-00
  1. ;;9002226.02101,"629,54868-5073-00 ",.02)
  1. ;;54868-5073-00
  1. ;;9002226.02101,"629,54868-5073-01 ",.01)
  1. ;;54868-5073-01
  1. ;;9002226.02101,"629,54868-5073-01 ",.02)
  1. ;;54868-5073-01
  1. ;;9002226.02101,"629,54868-5073-02 ",.01)
  1. ;;54868-5073-02
  1. ;;9002226.02101,"629,54868-5073-02 ",.02)
  1. ;;54868-5073-02
  1. ;;9002226.02101,"629,54868-5073-03 ",.01)
  1. ;;54868-5073-03
  1. ;;9002226.02101,"629,54868-5073-03 ",.02)
  1. ;;54868-5073-03
  1. ;;9002226.02101,"629,54868-5159-00 ",.01)
  1. ;;54868-5159-00
  1. ;;9002226.02101,"629,54868-5159-00 ",.02)
  1. ;;54868-5159-00
  1. ;;9002226.02101,"629,55045-1325-05 ",.01)
  1. ;;55045-1325-05
  1. ;;9002226.02101,"629,55045-1325-05 ",.02)
  1. ;;55045-1325-05
  1. ;;9002226.02101,"629,55045-1325-07 ",.01)
  1. ;;55045-1325-07
  1. ;;9002226.02101,"629,55045-1325-07 ",.02)
  1. ;;55045-1325-07
  1. ;;9002226.02101,"629,55045-1325-08 ",.01)
  1. ;;55045-1325-08
  1. ;;9002226.02101,"629,55045-1325-08 ",.02)
  1. ;;55045-1325-08
  1. ;;9002226.02101,"629,55045-1386-00 ",.01)
  1. ;;55045-1386-00
  1. ;;9002226.02101,"629,55045-1386-00 ",.02)
  1. ;;55045-1386-00
  1. ;;9002226.02101,"629,55045-1386-02 ",.01)
  1. ;;55045-1386-02
  1. ;;9002226.02101,"629,55045-1386-02 ",.02)
  1. ;;55045-1386-02
  1. ;;9002226.02101,"629,55045-1386-04 ",.01)
  1. ;;55045-1386-04
  1. ;;9002226.02101,"629,55045-1386-04 ",.02)
  1. ;;55045-1386-04
  1. ;;9002226.02101,"629,55045-1386-07 ",.01)
  1. ;;55045-1386-07
  1. ;;9002226.02101,"629,55045-1386-07 ",.02)
  1. ;;55045-1386-07
  1. ;;9002226.02101,"629,55045-1386-08 ",.01)
  1. ;;55045-1386-08
  1. ;;9002226.02101,"629,55045-1386-08 ",.02)
  1. ;;55045-1386-08
  1. ;;9002226.02101,"629,55045-1386-09 ",.01)
  1. ;;55045-1386-09
  1. ;;9002226.02101,"629,55045-1386-09 ",.02)
  1. ;;55045-1386-09
  1. ;;9002226.02101,"629,55045-1433-01 ",.01)
  1. ;;55045-1433-01
  1. ;;9002226.02101,"629,55045-1433-01 ",.02)
  1. ;;55045-1433-01
  1. ;;9002226.02101,"629,55045-1433-02 ",.01)
  1. ;;55045-1433-02
  1. ;;9002226.02101,"629,55045-1433-02 ",.02)
  1. ;;55045-1433-02
  1. ;;9002226.02101,"629,55045-1433-03 ",.01)
  1. ;;55045-1433-03
  1. ;;9002226.02101,"629,55045-1433-03 ",.02)
  1. ;;55045-1433-03
  1. ;;9002226.02101,"629,55045-1433-05 ",.01)
  1. ;;55045-1433-05
  1. ;;9002226.02101,"629,55045-1433-05 ",.02)
  1. ;;55045-1433-05
  1. ;;9002226.02101,"629,55045-1493-08 ",.01)
  1. ;;55045-1493-08
  1. ;;9002226.02101,"629,55045-1493-08 ",.02)
  1. ;;55045-1493-08
  1. ;;9002226.02101,"629,55045-1531-01 ",.01)
  1. ;;55045-1531-01
  1. ;;9002226.02101,"629,55045-1531-01 ",.02)
  1. ;;55045-1531-01
  1. ;;9002226.02101,"629,55045-1531-03 ",.01)
  1. ;;55045-1531-03
  1. ;;9002226.02101,"629,55045-1531-03 ",.02)
  1. ;;55045-1531-03
  1. ;;9002226.02101,"629,55045-1531-08 ",.01)
  1. ;;55045-1531-08
  1. ;;9002226.02101,"629,55045-1531-08 ",.02)
  1. ;;55045-1531-08
  1. ;;9002226.02101,"629,55045-1531-09 ",.01)
  1. ;;55045-1531-09
  1. ;;9002226.02101,"629,55045-1531-09 ",.02)
  1. ;;55045-1531-09
  1. ;;9002226.02101,"629,55045-1566-00 ",.01)
  1. ;;55045-1566-00
  1. ;;9002226.02101,"629,55045-1566-00 ",.02)
  1. ;;55045-1566-00
  1. ;;9002226.02101,"629,55045-1566-01 ",.01)
  1. ;;55045-1566-01
  1. ;;9002226.02101,"629,55045-1566-01 ",.02)
  1. ;;55045-1566-01
  1. ;;9002226.02101,"629,55045-1566-02 ",.01)
  1. ;;55045-1566-02
  1. ;;9002226.02101,"629,55045-1566-02 ",.02)
  1. ;;55045-1566-02
  1. ;;9002226.02101,"629,55045-1566-03 ",.01)
  1. ;;55045-1566-03
  1. ;;9002226.02101,"629,55045-1566-03 ",.02)
  1. ;;55045-1566-03
  1. ;;9002226.02101,"629,55045-1566-06 ",.01)
  1. ;;55045-1566-06
  1. ;;9002226.02101,"629,55045-1566-06 ",.02)
  1. ;;55045-1566-06
  1. ;;9002226.02101,"629,55045-1566-09 ",.01)
  1. ;;55045-1566-09
  1. ;;9002226.02101,"629,55045-1566-09 ",.02)
  1. ;;55045-1566-09
  1. ;;9002226.02101,"629,55045-1586-08 ",.01)
  1. ;;55045-1586-08
  1. ;;9002226.02101,"629,55045-1586-08 ",.02)
  1. ;;55045-1586-08
  1. ;;9002226.02101,"629,55045-1594-03 ",.01)
  1. ;;55045-1594-03
  1. ;;9002226.02101,"629,55045-1594-03 ",.02)
  1. ;;55045-1594-03
  1. ;;9002226.02101,"629,55045-1594-04 ",.01)
  1. ;;55045-1594-04
  1. ;;9002226.02101,"629,55045-1594-04 ",.02)
  1. ;;55045-1594-04
  1. ;;9002226.02101,"629,55045-1594-06 ",.01)
  1. ;;55045-1594-06
  1. ;;9002226.02101,"629,55045-1594-06 ",.02)
  1. ;;55045-1594-06
  1. ;;9002226.02101,"629,55045-1594-07 ",.01)
  1. ;;55045-1594-07
  1. ;;9002226.02101,"629,55045-1594-07 ",.02)
  1. ;;55045-1594-07
  1. ;;9002226.02101,"629,55045-1594-08 ",.01)
  1. ;;55045-1594-08
  1. ;;9002226.02101,"629,55045-1594-08 ",.02)
  1. ;;55045-1594-08
  1. ;;9002226.02101,"629,55045-1594-09 ",.01)
  1. ;;55045-1594-09
  1. ;;9002226.02101,"629,55045-1594-09 ",.02)
  1. ;;55045-1594-09
  1. ;;9002226.02101,"629,55045-1598-00 ",.01)
  1. ;;55045-1598-00
  1. ;;9002226.02101,"629,55045-1598-00 ",.02)
  1. ;;55045-1598-00
  1. ;;9002226.02101,"629,55045-1598-03 ",.01)
  1. ;;55045-1598-03
  1. ;;9002226.02101,"629,55045-1598-03 ",.02)
  1. ;;55045-1598-03
  1. ;;9002226.02101,"629,55045-1598-05 ",.01)
  1. ;;55045-1598-05
  1. ;;9002226.02101,"629,55045-1598-05 ",.02)
  1. ;;55045-1598-05
  1. ;;9002226.02101,"629,55045-1598-06 ",.01)
  1. ;;55045-1598-06
  1. ;;9002226.02101,"629,55045-1598-06 ",.02)
  1. ;;55045-1598-06
  1. ;;9002226.02101,"629,55045-1598-07 ",.01)
  1. ;;55045-1598-07
  1. ;;9002226.02101,"629,55045-1598-07 ",.02)
  1. ;;55045-1598-07
  1. ;;9002226.02101,"629,55045-1598-08 ",.01)
  1. ;;55045-1598-08
  1. ;;9002226.02101,"629,55045-1598-08 ",.02)
  1. ;;55045-1598-08
  1. ;;9002226.02101,"629,55045-1598-09 ",.01)
  1. ;;55045-1598-09
  1. ;;9002226.02101,"629,55045-1598-09 ",.02)
  1. ;;55045-1598-09
  1. ;;9002226.02101,"629,55045-1620-09 ",.01)
  1. ;;55045-1620-09
  1. ;;9002226.02101,"629,55045-1620-09 ",.02)
  1. ;;55045-1620-09
  1. ;;9002226.02101,"629,55045-1637-05 ",.01)
  1. ;;55045-1637-05
  1. ;;9002226.02101,"629,55045-1637-05 ",.02)
  1. ;;55045-1637-05
  1. ;;9002226.02101,"629,55045-1690-04 ",.01)
  1. ;;55045-1690-04
  1. ;;9002226.02101,"629,55045-1690-04 ",.02)
  1. ;;55045-1690-04
  1. ;;9002226.02101,"629,55045-2777-06 ",.01)
  1. ;;55045-2777-06
  1. ;;9002226.02101,"629,55045-2777-06 ",.02)
  1. ;;55045-2777-06
  1. ;;9002226.02101,"629,55045-2777-08 ",.01)
  1. ;;55045-2777-08
  1. ;;9002226.02101,"629,55045-2777-08 ",.02)
  1. ;;55045-2777-08
  1. ;;9002226.02101,"629,55045-2972-05 ",.01)
  1. ;;55045-2972-05
  1. ;;9002226.02101,"629,55045-2972-05 ",.02)
  1. ;;55045-2972-05
  1. ;;9002226.02101,"629,55045-2972-06 ",.01)
  1. ;;55045-2972-06
  1. ;;9002226.02101,"629,55045-2972-06 ",.02)
  1. ;;55045-2972-06
  1. ;;9002226.02101,"629,55045-2972-07 ",.01)
  1. ;;55045-2972-07
  1. ;;9002226.02101,"629,55045-2972-07 ",.02)
  1. ;;55045-2972-07
  1. ;;9002226.02101,"629,55045-2972-08 ",.01)
  1. ;;55045-2972-08
  1. ;;9002226.02101,"629,55045-2972-08 ",.02)
  1. ;;55045-2972-08
  1. ;;9002226.02101,"629,55175-0587-00 ",.01)
  1. ;;55175-0587-00
  1. ;;9002226.02101,"629,55175-0587-00 ",.02)
  1. ;;55175-0587-00
  1. ;;9002226.02101,"629,55175-0587-01 ",.01)
  1. ;;55175-0587-01
  1. ;;9002226.02101,"629,55175-0587-01 ",.02)
  1. ;;55175-0587-01
  1. ;;9002226.02101,"629,55175-0587-02 ",.01)
  1. ;;55175-0587-02
  1. ;;9002226.02101,"629,55175-0587-02 ",.02)
  1. ;;55175-0587-02
  1. ;;9002226.02101,"629,55175-0587-03 ",.01)
  1. ;;55175-0587-03
  1. ;;9002226.02101,"629,55175-0587-03 ",.02)
  1. ;;55175-0587-03
  1. ;;9002226.02101,"629,55175-0587-04 ",.01)
  1. ;;55175-0587-04
  1. ;;9002226.02101,"629,55175-0587-04 ",.02)
  1. ;;55175-0587-04
  1. ;;9002226.02101,"629,55175-0587-05 ",.01)
  1. ;;55175-0587-05
  1. ;;9002226.02101,"629,55175-0587-05 ",.02)
  1. ;;55175-0587-05
  1. ;;9002226.02101,"629,55175-0587-06 ",.01)
  1. ;;55175-0587-06
  1. ;;9002226.02101,"629,55175-0587-06 ",.02)
  1. ;;55175-0587-06
  1. ;;9002226.02101,"629,55175-0587-07 ",.01)
  1. ;;55175-0587-07
  1. ;;9002226.02101,"629,55175-0587-07 ",.02)
  1. ;;55175-0587-07
  1. ;;9002226.02101,"629,55175-0587-08 ",.01)
  1. ;;55175-0587-08
  1. ;;9002226.02101,"629,55175-0587-08 ",.02)
  1. ;;55175-0587-08
  1. ;;9002226.02101,"629,55175-0587-09 ",.01)
  1. ;;55175-0587-09
  1. ;;9002226.02101,"629,55175-0587-09 ",.02)
  1. ;;55175-0587-09
  1. ;;9002226.02101,"629,55175-0588-02 ",.01)
  1. ;;55175-0588-02
  1. ;;9002226.02101,"629,55175-0588-02 ",.02)
  1. ;;55175-0588-02
  1. ;;9002226.02101,"629,55175-1313-08 ",.01)
  1. ;;55175-1313-08
  1. ;;9002226.02101,"629,55175-1313-08 ",.02)
  1. ;;55175-1313-08
  1. ;;9002226.02101,"629,55175-1931-00 ",.01)
  1. ;;55175-1931-00
  1. ;;9002226.02101,"629,55175-1931-00 ",.02)
  1. ;;55175-1931-00
  1. ;;9002226.02101,"629,55175-1931-01 ",.01)
  1. ;;55175-1931-01
  1. ;;9002226.02101,"629,55175-1931-01 ",.02)
  1. ;;55175-1931-01
  1. ;;9002226.02101,"629,55175-1931-02 ",.01)
  1. ;;55175-1931-02
  1. ;;9002226.02101,"629,55175-1931-02 ",.02)
  1. ;;55175-1931-02
  1. ;;9002226.02101,"629,55175-1931-03 ",.01)
  1. ;;55175-1931-03
  1. ;;9002226.02101,"629,55175-1931-03 ",.02)
  1. ;;55175-1931-03
  1. ;;9002226.02101,"629,55175-1931-04 ",.01)
  1. ;;55175-1931-04
  1. ;;9002226.02101,"629,55175-1931-04 ",.02)
  1. ;;55175-1931-04
  1. ;;9002226.02101,"629,55175-1931-05 ",.01)
  1. ;;55175-1931-05
  1. ;;9002226.02101,"629,55175-1931-05 ",.02)
  1. ;;55175-1931-05
  1. ;;9002226.02101,"629,55175-1931-06 ",.01)
  1. ;;55175-1931-06
  1. ;;9002226.02101,"629,55175-1931-06 ",.02)
  1. ;;55175-1931-06
  1. ;;9002226.02101,"629,55175-1931-07 ",.01)
  1. ;;55175-1931-07
  1. ;;9002226.02101,"629,55175-1931-07 ",.02)
  1. ;;55175-1931-07
  1. ;;9002226.02101,"629,55175-1931-08 ",.01)
  1. ;;55175-1931-08
  1. ;;9002226.02101,"629,55175-1931-08 ",.02)
  1. ;;55175-1931-08
  1. ;;9002226.02101,"629,55175-1931-09 ",.01)
  1. ;;55175-1931-09
  1. ;;9002226.02101,"629,55175-1931-09 ",.02)
  1. ;;55175-1931-09
  1. ;;9002226.02101,"629,55175-2739-02 ",.01)
  1. ;;55175-2739-02
  1. ;;9002226.02101,"629,55175-2739-02 ",.02)
  1. ;;55175-2739-02
  1. ;;9002226.02101,"629,55175-2739-04 ",.01)
  1. ;;55175-2739-04
  1. ;;9002226.02101,"629,55175-2739-04 ",.02)
  1. ;;55175-2739-04
  1. ;;9002226.02101,"629,55175-2740-00 ",.01)
  1. ;;55175-2740-00
  1. ;;9002226.02101,"629,55175-2740-00 ",.02)
  1. ;;55175-2740-00
  1. ;;9002226.02101,"629,55175-2740-01 ",.01)
  1. ;;55175-2740-01
  1. ;;9002226.02101,"629,55175-2740-01 ",.02)
  1. ;;55175-2740-01
  1. ;;9002226.02101,"629,55175-2740-02 ",.01)
  1. ;;55175-2740-02
  1. ;;9002226.02101,"629,55175-2740-02 ",.02)
  1. ;;55175-2740-02
  1. ;;9002226.02101,"629,55175-2740-03 ",.01)
  1. ;;55175-2740-03
  1. ;;9002226.02101,"629,55175-2740-03 ",.02)
  1. ;;55175-2740-03
  1. ;;9002226.02101,"629,55175-2740-04 ",.01)
  1. ;;55175-2740-04
  1. ;;9002226.02101,"629,55175-2740-04 ",.02)
  1. ;;55175-2740-04
  1. ;;9002226.02101,"629,55175-2740-08 ",.01)
  1. ;;55175-2740-08
  1. ;;9002226.02101,"629,55175-2740-08 ",.02)
  1. ;;55175-2740-08
  1. ;;9002226.02101,"629,55175-2780-00 ",.01)
  1. ;;55175-2780-00
  1. ;;9002226.02101,"629,55175-2780-00 ",.02)
  1. ;;55175-2780-00
  1. ;;9002226.02101,"629,55175-2780-01 ",.01)
  1. ;;55175-2780-01
  1. ;;9002226.02101,"629,55175-2780-01 ",.02)
  1. ;;55175-2780-01
  1. ;;9002226.02101,"629,55175-2780-02 ",.01)
  1. ;;55175-2780-02
  1. ;;9002226.02101,"629,55175-2780-02 ",.02)
  1. ;;55175-2780-02
  1. ;;9002226.02101,"629,55175-2780-03 ",.01)
  1. ;;55175-2780-03
  1. ;;9002226.02101,"629,55175-2780-03 ",.02)
  1. ;;55175-2780-03