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

BGP7LXFH.m

Go to the documentation of this file.
  1. BGP7LXFH ; 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,"623,54868-1053-01 ",.01)
  1. ;;54868-1053-01
  1. ;;9002226.02101,"623,54868-1053-01 ",.02)
  1. ;;54868-1053-01
  1. ;;9002226.02101,"623,54868-1053-02 ",.01)
  1. ;;54868-1053-02
  1. ;;9002226.02101,"623,54868-1053-02 ",.02)
  1. ;;54868-1053-02
  1. ;;9002226.02101,"623,54868-1053-03 ",.01)
  1. ;;54868-1053-03
  1. ;;9002226.02101,"623,54868-1053-03 ",.02)
  1. ;;54868-1053-03
  1. ;;9002226.02101,"623,54868-1053-04 ",.01)
  1. ;;54868-1053-04
  1. ;;9002226.02101,"623,54868-1053-04 ",.02)
  1. ;;54868-1053-04
  1. ;;9002226.02101,"623,54868-1075-00 ",.01)
  1. ;;54868-1075-00
  1. ;;9002226.02101,"623,54868-1075-00 ",.02)
  1. ;;54868-1075-00
  1. ;;9002226.02101,"623,54868-1075-01 ",.01)
  1. ;;54868-1075-01
  1. ;;9002226.02101,"623,54868-1075-01 ",.02)
  1. ;;54868-1075-01
  1. ;;9002226.02101,"623,54868-1075-02 ",.01)
  1. ;;54868-1075-02
  1. ;;9002226.02101,"623,54868-1075-02 ",.02)
  1. ;;54868-1075-02
  1. ;;9002226.02101,"623,54868-1075-03 ",.01)
  1. ;;54868-1075-03
  1. ;;9002226.02101,"623,54868-1075-03 ",.02)
  1. ;;54868-1075-03
  1. ;;9002226.02101,"623,54868-1109-00 ",.01)
  1. ;;54868-1109-00
  1. ;;9002226.02101,"623,54868-1109-00 ",.02)
  1. ;;54868-1109-00
  1. ;;9002226.02101,"623,54868-1227-02 ",.01)
  1. ;;54868-1227-02
  1. ;;9002226.02101,"623,54868-1227-02 ",.02)
  1. ;;54868-1227-02
  1. ;;9002226.02101,"623,54868-2048-00 ",.01)
  1. ;;54868-2048-00
  1. ;;9002226.02101,"623,54868-2048-00 ",.02)
  1. ;;54868-2048-00
  1. ;;9002226.02101,"623,54868-2048-01 ",.01)
  1. ;;54868-2048-01
  1. ;;9002226.02101,"623,54868-2048-01 ",.02)
  1. ;;54868-2048-01
  1. ;;9002226.02101,"623,54868-2778-00 ",.01)
  1. ;;54868-2778-00
  1. ;;9002226.02101,"623,54868-2778-00 ",.02)
  1. ;;54868-2778-00
  1. ;;9002226.02101,"623,54868-2778-01 ",.01)
  1. ;;54868-2778-01
  1. ;;9002226.02101,"623,54868-2778-01 ",.02)
  1. ;;54868-2778-01
  1. ;;9002226.02101,"623,54868-2778-02 ",.01)
  1. ;;54868-2778-02
  1. ;;9002226.02101,"623,54868-2778-02 ",.02)
  1. ;;54868-2778-02
  1. ;;9002226.02101,"623,54868-2778-03 ",.01)
  1. ;;54868-2778-03
  1. ;;9002226.02101,"623,54868-2778-03 ",.02)
  1. ;;54868-2778-03
  1. ;;9002226.02101,"623,55045-1208-07 ",.01)
  1. ;;55045-1208-07
  1. ;;9002226.02101,"623,55045-1208-07 ",.02)
  1. ;;55045-1208-07
  1. ;;9002226.02101,"623,55045-1252-02 ",.01)
  1. ;;55045-1252-02
  1. ;;9002226.02101,"623,55045-1252-02 ",.02)
  1. ;;55045-1252-02
  1. ;;9002226.02101,"623,55045-1582-05 ",.01)
  1. ;;55045-1582-05
  1. ;;9002226.02101,"623,55045-1582-05 ",.02)
  1. ;;55045-1582-05
  1. ;;9002226.02101,"623,55045-1582-07 ",.01)
  1. ;;55045-1582-07
  1. ;;9002226.02101,"623,55045-1582-07 ",.02)
  1. ;;55045-1582-07
  1. ;;9002226.02101,"623,55045-1582-08 ",.01)
  1. ;;55045-1582-08
  1. ;;9002226.02101,"623,55045-1582-08 ",.02)
  1. ;;55045-1582-08
  1. ;;9002226.02101,"623,55045-1661-08 ",.01)
  1. ;;55045-1661-08
  1. ;;9002226.02101,"623,55045-1661-08 ",.02)
  1. ;;55045-1661-08
  1. ;;9002226.02101,"623,55045-2195-04 ",.01)
  1. ;;55045-2195-04
  1. ;;9002226.02101,"623,55045-2195-04 ",.02)
  1. ;;55045-2195-04
  1. ;;9002226.02101,"623,55045-2195-05 ",.01)
  1. ;;55045-2195-05
  1. ;;9002226.02101,"623,55045-2195-05 ",.02)
  1. ;;55045-2195-05
  1. ;;9002226.02101,"623,55175-1857-00 ",.01)
  1. ;;55175-1857-00
  1. ;;9002226.02101,"623,55175-1857-00 ",.02)
  1. ;;55175-1857-00
  1. ;;9002226.02101,"623,55175-1858-01 ",.01)
  1. ;;55175-1858-01
  1. ;;9002226.02101,"623,55175-1858-01 ",.02)
  1. ;;55175-1858-01
  1. ;;9002226.02101,"623,55175-4090-00 ",.01)
  1. ;;55175-4090-00
  1. ;;9002226.02101,"623,55175-4090-00 ",.02)
  1. ;;55175-4090-00
  1. ;;9002226.02101,"623,55175-4090-02 ",.01)
  1. ;;55175-4090-02
  1. ;;9002226.02101,"623,55175-4090-02 ",.02)
  1. ;;55175-4090-02
  1. ;;9002226.02101,"623,55175-4090-03 ",.01)
  1. ;;55175-4090-03
  1. ;;9002226.02101,"623,55175-4090-03 ",.02)
  1. ;;55175-4090-03
  1. ;;9002226.02101,"623,55175-4090-04 ",.01)
  1. ;;55175-4090-04
  1. ;;9002226.02101,"623,55175-4090-04 ",.02)
  1. ;;55175-4090-04
  1. ;;9002226.02101,"623,55175-4091-00 ",.01)
  1. ;;55175-4091-00
  1. ;;9002226.02101,"623,55175-4091-00 ",.02)
  1. ;;55175-4091-00
  1. ;;9002226.02101,"623,55175-4091-01 ",.01)
  1. ;;55175-4091-01
  1. ;;9002226.02101,"623,55175-4091-01 ",.02)
  1. ;;55175-4091-01
  1. ;;9002226.02101,"623,55175-4091-02 ",.01)
  1. ;;55175-4091-02
  1. ;;9002226.02101,"623,55175-4091-02 ",.02)
  1. ;;55175-4091-02
  1. ;;9002226.02101,"623,55175-4091-03 ",.01)
  1. ;;55175-4091-03
  1. ;;9002226.02101,"623,55175-4091-03 ",.02)
  1. ;;55175-4091-03
  1. ;;9002226.02101,"623,55289-0040-15 ",.01)
  1. ;;55289-0040-15
  1. ;;9002226.02101,"623,55289-0040-15 ",.02)
  1. ;;55289-0040-15
  1. ;;9002226.02101,"623,55289-0040-20 ",.01)
  1. ;;55289-0040-20
  1. ;;9002226.02101,"623,55289-0040-20 ",.02)
  1. ;;55289-0040-20
  1. ;;9002226.02101,"623,55289-0040-30 ",.01)
  1. ;;55289-0040-30
  1. ;;9002226.02101,"623,55289-0040-30 ",.02)
  1. ;;55289-0040-30
  1. ;;9002226.02101,"623,55289-0127-15 ",.01)
  1. ;;55289-0127-15
  1. ;;9002226.02101,"623,55289-0127-15 ",.02)
  1. ;;55289-0127-15
  1. ;;9002226.02101,"623,55289-0127-25 ",.01)
  1. ;;55289-0127-25
  1. ;;9002226.02101,"623,55289-0127-25 ",.02)
  1. ;;55289-0127-25
  1. ;;9002226.02101,"623,55289-0165-97 ",.01)
  1. ;;55289-0165-97
  1. ;;9002226.02101,"623,55289-0165-97 ",.02)
  1. ;;55289-0165-97
  1. ;;9002226.02101,"623,55289-0264-12 ",.01)
  1. ;;55289-0264-12
  1. ;;9002226.02101,"623,55289-0264-12 ",.02)
  1. ;;55289-0264-12
  1. ;;9002226.02101,"623,55289-0337-97 ",.01)
  1. ;;55289-0337-97
  1. ;;9002226.02101,"623,55289-0337-97 ",.02)
  1. ;;55289-0337-97
  1. ;;9002226.02101,"623,55289-0354-10 ",.01)
  1. ;;55289-0354-10
  1. ;;9002226.02101,"623,55289-0354-10 ",.02)
  1. ;;55289-0354-10
  1. ;;9002226.02101,"623,55289-0377-97 ",.01)
  1. ;;55289-0377-97
  1. ;;9002226.02101,"623,55289-0377-97 ",.02)
  1. ;;55289-0377-97
  1. ;;9002226.02101,"623,55289-0439-12 ",.01)
  1. ;;55289-0439-12
  1. ;;9002226.02101,"623,55289-0439-12 ",.02)
  1. ;;55289-0439-12
  1. ;;9002226.02101,"623,55289-0690-12 ",.01)
  1. ;;55289-0690-12
  1. ;;9002226.02101,"623,55289-0690-12 ",.02)
  1. ;;55289-0690-12
  1. ;;9002226.02101,"623,55289-0778-18 ",.01)
  1. ;;55289-0778-18
  1. ;;9002226.02101,"623,55289-0778-18 ",.02)
  1. ;;55289-0778-18
  1. ;;9002226.02101,"623,55289-0879-10 ",.01)
  1. ;;55289-0879-10
  1. ;;9002226.02101,"623,55289-0879-10 ",.02)
  1. ;;55289-0879-10
  1. ;;9002226.02101,"623,55289-0879-15 ",.01)
  1. ;;55289-0879-15
  1. ;;9002226.02101,"623,55289-0879-15 ",.02)
  1. ;;55289-0879-15
  1. ;;9002226.02101,"623,55289-0879-20 ",.01)
  1. ;;55289-0879-20
  1. ;;9002226.02101,"623,55289-0879-20 ",.02)
  1. ;;55289-0879-20
  1. ;;9002226.02101,"623,55289-0879-30 ",.01)
  1. ;;55289-0879-30
  1. ;;9002226.02101,"623,55289-0879-30 ",.02)
  1. ;;55289-0879-30
  1. ;;9002226.02101,"623,55629-0155-04 ",.01)
  1. ;;55629-0155-04
  1. ;;9002226.02101,"623,55629-0155-04 ",.02)
  1. ;;55629-0155-04
  1. ;;9002226.02101,"623,55629-0155-16 ",.01)
  1. ;;55629-0155-16
  1. ;;9002226.02101,"623,55629-0155-16 ",.02)
  1. ;;55629-0155-16
  1. ;;9002226.02101,"623,55629-0155-28 ",.01)
  1. ;;55629-0155-28
  1. ;;9002226.02101,"623,55629-0155-28 ",.02)
  1. ;;55629-0155-28
  1. ;;9002226.02101,"623,55829-0815-10 ",.01)
  1. ;;55829-0815-10
  1. ;;9002226.02101,"623,55829-0815-10 ",.02)
  1. ;;55829-0815-10
  1. ;;9002226.02101,"623,55829-0857-10 ",.01)
  1. ;;55829-0857-10
  1. ;;9002226.02101,"623,55829-0857-10 ",.02)
  1. ;;55829-0857-10
  1. ;;9002226.02101,"623,55829-0858-10 ",.01)
  1. ;;55829-0858-10
  1. ;;9002226.02101,"623,55829-0858-10 ",.02)
  1. ;;55829-0858-10
  1. ;;9002226.02101,"623,55829-0859-10 ",.01)
  1. ;;55829-0859-10
  1. ;;9002226.02101,"623,55829-0859-10 ",.02)
  1. ;;55829-0859-10
  1. ;;9002226.02101,"623,55887-0355-20 ",.01)
  1. ;;55887-0355-20
  1. ;;9002226.02101,"623,55887-0355-20 ",.02)
  1. ;;55887-0355-20
  1. ;;9002226.02101,"623,55887-0355-30 ",.01)
  1. ;;55887-0355-30
  1. ;;9002226.02101,"623,55887-0355-30 ",.02)
  1. ;;55887-0355-30
  1. ;;9002226.02101,"623,55887-0355-40 ",.01)
  1. ;;55887-0355-40
  1. ;;9002226.02101,"623,55887-0355-40 ",.02)
  1. ;;55887-0355-40
  1. ;;9002226.02101,"623,55887-0566-20 ",.01)
  1. ;;55887-0566-20
  1. ;;9002226.02101,"623,55887-0566-20 ",.02)
  1. ;;55887-0566-20
  1. ;;9002226.02101,"623,55887-0566-30 ",.01)
  1. ;;55887-0566-30
  1. ;;9002226.02101,"623,55887-0566-30 ",.02)
  1. ;;55887-0566-30
  1. ;;9002226.02101,"623,55887-0566-60 ",.01)
  1. ;;55887-0566-60
  1. ;;9002226.02101,"623,55887-0566-60 ",.02)
  1. ;;55887-0566-60
  1. ;;9002226.02101,"623,55887-0918-30 ",.01)
  1. ;;55887-0918-30
  1. ;;9002226.02101,"623,55887-0918-30 ",.02)
  1. ;;55887-0918-30
  1. ;;9002226.02101,"623,55887-0918-60 ",.01)
  1. ;;55887-0918-60
  1. ;;9002226.02101,"623,55887-0918-60 ",.02)
  1. ;;55887-0918-60
  1. ;;9002226.02101,"623,55887-0918-90 ",.01)
  1. ;;55887-0918-90
  1. ;;9002226.02101,"623,55887-0918-90 ",.02)
  1. ;;55887-0918-90
  1. ;;9002226.02101,"623,55887-0988-20 ",.01)
  1. ;;55887-0988-20
  1. ;;9002226.02101,"623,55887-0988-20 ",.02)
  1. ;;55887-0988-20
  1. ;;9002226.02101,"623,55887-0988-30 ",.01)
  1. ;;55887-0988-30
  1. ;;9002226.02101,"623,55887-0988-30 ",.02)
  1. ;;55887-0988-30
  1. ;;9002226.02101,"623,55887-0988-60 ",.01)
  1. ;;55887-0988-60
  1. ;;9002226.02101,"623,55887-0988-60 ",.02)
  1. ;;55887-0988-60
  1. ;;9002226.02101,"623,55887-0988-82 ",.01)
  1. ;;55887-0988-82
  1. ;;9002226.02101,"623,55887-0988-82 ",.02)
  1. ;;55887-0988-82
  1. ;;9002226.02101,"623,55887-0988-90 ",.01)
  1. ;;55887-0988-90
  1. ;;9002226.02101,"623,55887-0988-90 ",.02)
  1. ;;55887-0988-90
  1. ;;9002226.02101,"623,55953-0633-40 ",.01)
  1. ;;55953-0633-40
  1. ;;9002226.02101,"623,55953-0633-40 ",.02)
  1. ;;55953-0633-40
  1. ;;9002226.02101,"623,57480-0504-01 ",.01)
  1. ;;57480-0504-01
  1. ;;9002226.02101,"623,57480-0504-01 ",.02)
  1. ;;57480-0504-01
  1. ;;9002226.02101,"623,57480-0505-01 ",.01)
  1. ;;57480-0505-01
  1. ;;9002226.02101,"623,57480-0505-01 ",.02)
  1. ;;57480-0505-01
  1. ;;9002226.02101,"623,57480-0505-06 ",.01)
  1. ;;57480-0505-06
  1. ;;9002226.02101,"623,57480-0505-06 ",.02)
  1. ;;57480-0505-06
  1. ;;9002226.02101,"623,57866-3938-01 ",.01)
  1. ;;57866-3938-01
  1. ;;9002226.02101,"623,57866-3938-01 ",.02)
  1. ;;57866-3938-01
  1. ;;9002226.02101,"623,57866-4170-01 ",.01)
  1. ;;57866-4170-01
  1. ;;9002226.02101,"623,57866-4170-01 ",.02)
  1. ;;57866-4170-01
  1. ;;9002226.02101,"623,57866-4170-02 ",.01)
  1. ;;57866-4170-02
  1. ;;9002226.02101,"623,57866-4170-02 ",.02)
  1. ;;57866-4170-02
  1. ;;9002226.02101,"623,57866-4224-01 ",.01)
  1. ;;57866-4224-01
  1. ;;9002226.02101,"623,57866-4224-01 ",.02)
  1. ;;57866-4224-01
  1. ;;9002226.02101,"623,57866-4224-02 ",.01)
  1. ;;57866-4224-02
  1. ;;9002226.02101,"623,57866-4224-02 ",.02)
  1. ;;57866-4224-02
  1. ;;9002226.02101,"623,57866-4224-03 ",.01)
  1. ;;57866-4224-03
  1. ;;9002226.02101,"623,57866-4224-03 ",.02)
  1. ;;57866-4224-03
  1. ;;9002226.02101,"623,57866-4856-02 ",.01)
  1. ;;57866-4856-02
  1. ;;9002226.02101,"623,57866-4856-02 ",.02)
  1. ;;57866-4856-02
  1. ;;9002226.02101,"623,57866-4856-03 ",.01)
  1. ;;57866-4856-03
  1. ;;9002226.02101,"623,57866-4856-03 ",.02)
  1. ;;57866-4856-03
  1. ;;9002226.02101,"623,57866-4856-04 ",.01)
  1. ;;57866-4856-04
  1. ;;9002226.02101,"623,57866-4856-04 ",.02)
  1. ;;57866-4856-04
  1. ;;9002226.02101,"623,57866-4856-05 ",.01)
  1. ;;57866-4856-05
  1. ;;9002226.02101,"623,57866-4856-05 ",.02)
  1. ;;57866-4856-05
  1. ;;9002226.02101,"623,57866-4856-06 ",.01)
  1. ;;57866-4856-06
  1. ;;9002226.02101,"623,57866-4856-06 ",.02)
  1. ;;57866-4856-06
  1. ;;9002226.02101,"623,57866-4857-01 ",.01)
  1. ;;57866-4857-01
  1. ;;9002226.02101,"623,57866-4857-01 ",.02)
  1. ;;57866-4857-01
  1. ;;9002226.02101,"623,57866-4857-02 ",.01)
  1. ;;57866-4857-02
  1. ;;9002226.02101,"623,57866-4857-02 ",.02)
  1. ;;57866-4857-02
  1. ;;9002226.02101,"623,57866-4857-03 ",.01)
  1. ;;57866-4857-03
  1. ;;9002226.02101,"623,57866-4857-03 ",.02)
  1. ;;57866-4857-03
  1. ;;9002226.02101,"623,57866-4857-04 ",.01)
  1. ;;57866-4857-04
  1. ;;9002226.02101,"623,57866-4857-04 ",.02)
  1. ;;57866-4857-04
  1. ;;9002226.02101,"623,57866-7288-01 ",.01)
  1. ;;57866-7288-01
  1. ;;9002226.02101,"623,57866-7288-01 ",.02)
  1. ;;57866-7288-01
  1. ;;9002226.02101,"623,58016-0233-00 ",.01)
  1. ;;58016-0233-00
  1. ;;9002226.02101,"623,58016-0233-00 ",.02)
  1. ;;58016-0233-00
  1. ;;9002226.02101,"623,58016-0233-02 ",.01)
  1. ;;58016-0233-02
  1. ;;9002226.02101,"623,58016-0233-02 ",.02)
  1. ;;58016-0233-02
  1. ;;9002226.02101,"623,58016-0233-10 ",.01)
  1. ;;58016-0233-10
  1. ;;9002226.02101,"623,58016-0233-10 ",.02)
  1. ;;58016-0233-10
  1. ;;9002226.02101,"623,58016-0233-12 ",.01)
  1. ;;58016-0233-12
  1. ;;9002226.02101,"623,58016-0233-12 ",.02)
  1. ;;58016-0233-12
  1. ;;9002226.02101,"623,58016-0233-14 ",.01)
  1. ;;58016-0233-14
  1. ;;9002226.02101,"623,58016-0233-14 ",.02)
  1. ;;58016-0233-14
  1. ;;9002226.02101,"623,58016-0233-15 ",.01)
  1. ;;58016-0233-15
  1. ;;9002226.02101,"623,58016-0233-15 ",.02)
  1. ;;58016-0233-15
  1. ;;9002226.02101,"623,58016-0233-20 ",.01)
  1. ;;58016-0233-20
  1. ;;9002226.02101,"623,58016-0233-20 ",.02)
  1. ;;58016-0233-20
  1. ;;9002226.02101,"623,58016-0233-21 ",.01)
  1. ;;58016-0233-21
  1. ;;9002226.02101,"623,58016-0233-21 ",.02)
  1. ;;58016-0233-21
  1. ;;9002226.02101,"623,58016-0233-24 ",.01)
  1. ;;58016-0233-24
  1. ;;9002226.02101,"623,58016-0233-24 ",.02)
  1. ;;58016-0233-24
  1. ;;9002226.02101,"623,58016-0233-25 ",.01)
  1. ;;58016-0233-25
  1. ;;9002226.02101,"623,58016-0233-25 ",.02)
  1. ;;58016-0233-25
  1. ;;9002226.02101,"623,58016-0233-28 ",.01)
  1. ;;58016-0233-28
  1. ;;9002226.02101,"623,58016-0233-28 ",.02)
  1. ;;58016-0233-28
  1. ;;9002226.02101,"623,58016-0233-30 ",.01)
  1. ;;58016-0233-30
  1. ;;9002226.02101,"623,58016-0233-30 ",.02)
  1. ;;58016-0233-30
  1. ;;9002226.02101,"623,58016-0233-40 ",.01)
  1. ;;58016-0233-40
  1. ;;9002226.02101,"623,58016-0233-40 ",.02)
  1. ;;58016-0233-40
  1. ;;9002226.02101,"623,58016-0233-50 ",.01)
  1. ;;58016-0233-50
  1. ;;9002226.02101,"623,58016-0233-50 ",.02)
  1. ;;58016-0233-50
  1. ;;9002226.02101,"623,58016-0233-60 ",.01)
  1. ;;58016-0233-60
  1. ;;9002226.02101,"623,58016-0233-60 ",.02)
  1. ;;58016-0233-60
  1. ;;9002226.02101,"623,58016-0826-06 ",.01)
  1. ;;58016-0826-06
  1. ;;9002226.02101,"623,58016-0826-06 ",.02)
  1. ;;58016-0826-06
  1. ;;9002226.02101,"623,58016-0826-50 ",.01)
  1. ;;58016-0826-50
  1. ;;9002226.02101,"623,58016-0826-50 ",.02)
  1. ;;58016-0826-50
  1. ;;9002226.02101,"623,58016-0995-00 ",.01)
  1. ;;58016-0995-00
  1. ;;9002226.02101,"623,58016-0995-00 ",.02)
  1. ;;58016-0995-00
  1. ;;9002226.02101,"623,58016-0995-10 ",.01)
  1. ;;58016-0995-10
  1. ;;9002226.02101,"623,58016-0995-10 ",.02)
  1. ;;58016-0995-10