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

BGPM5AUH.m

Go to the documentation of this file.
  1. BGPM5AUH ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"1033,00115124601 ",.01)
  1. ;;00115124601
  1. ;;9002226.02101,"1033,00115124601 ",.02)
  1. ;;00115124601
  1. ;;9002226.02101,"1033,00115124602 ",.01)
  1. ;;00115124602
  1. ;;9002226.02101,"1033,00115124602 ",.02)
  1. ;;00115124602
  1. ;;9002226.02101,"1033,00115124603 ",.01)
  1. ;;00115124603
  1. ;;9002226.02101,"1033,00115124603 ",.02)
  1. ;;00115124603
  1. ;;9002226.02101,"1033,00115124608 ",.01)
  1. ;;00115124608
  1. ;;9002226.02101,"1033,00115124608 ",.02)
  1. ;;00115124608
  1. ;;9002226.02101,"1033,00115124610 ",.01)
  1. ;;00115124610
  1. ;;9002226.02101,"1033,00115124610 ",.02)
  1. ;;00115124610
  1. ;;9002226.02101,"1033,00115124701 ",.01)
  1. ;;00115124701
  1. ;;9002226.02101,"1033,00115124701 ",.02)
  1. ;;00115124701
  1. ;;9002226.02101,"1033,00115124702 ",.01)
  1. ;;00115124702
  1. ;;9002226.02101,"1033,00115124702 ",.02)
  1. ;;00115124702
  1. ;;9002226.02101,"1033,00115124703 ",.01)
  1. ;;00115124703
  1. ;;9002226.02101,"1033,00115124703 ",.02)
  1. ;;00115124703
  1. ;;9002226.02101,"1033,00115124708 ",.01)
  1. ;;00115124708
  1. ;;9002226.02101,"1033,00115124708 ",.02)
  1. ;;00115124708
  1. ;;9002226.02101,"1033,00115124710 ",.01)
  1. ;;00115124710
  1. ;;9002226.02101,"1033,00115124710 ",.02)
  1. ;;00115124710
  1. ;;9002226.02101,"1033,00115132701 ",.01)
  1. ;;00115132701
  1. ;;9002226.02101,"1033,00115132701 ",.02)
  1. ;;00115132701
  1. ;;9002226.02101,"1033,00115132703 ",.01)
  1. ;;00115132703
  1. ;;9002226.02101,"1033,00115132703 ",.02)
  1. ;;00115132703
  1. ;;9002226.02101,"1033,00115132708 ",.01)
  1. ;;00115132708
  1. ;;9002226.02101,"1033,00115132708 ",.02)
  1. ;;00115132708
  1. ;;9002226.02101,"1033,00115132710 ",.01)
  1. ;;00115132710
  1. ;;9002226.02101,"1033,00115132710 ",.02)
  1. ;;00115132710
  1. ;;9002226.02101,"1033,00115132713 ",.01)
  1. ;;00115132713
  1. ;;9002226.02101,"1033,00115132713 ",.02)
  1. ;;00115132713
  1. ;;9002226.02101,"1033,00115139901 ",.01)
  1. ;;00115139901
  1. ;;9002226.02101,"1033,00115139901 ",.02)
  1. ;;00115139901
  1. ;;9002226.02101,"1033,00115139903 ",.01)
  1. ;;00115139903
  1. ;;9002226.02101,"1033,00115139903 ",.02)
  1. ;;00115139903
  1. ;;9002226.02101,"1033,00115140001 ",.01)
  1. ;;00115140001
  1. ;;9002226.02101,"1033,00115140001 ",.02)
  1. ;;00115140001
  1. ;;9002226.02101,"1033,00115140003 ",.01)
  1. ;;00115140003
  1. ;;9002226.02101,"1033,00115140003 ",.02)
  1. ;;00115140003
  1. ;;9002226.02101,"1033,00115140201 ",.01)
  1. ;;00115140201
  1. ;;9002226.02101,"1033,00115140201 ",.02)
  1. ;;00115140201
  1. ;;9002226.02101,"1033,00115140203 ",.01)
  1. ;;00115140203
  1. ;;9002226.02101,"1033,00115140203 ",.02)
  1. ;;00115140203
  1. ;;9002226.02101,"1033,00115140501 ",.01)
  1. ;;00115140501
  1. ;;9002226.02101,"1033,00115140501 ",.02)
  1. ;;00115140501
  1. ;;9002226.02101,"1033,00115140503 ",.01)
  1. ;;00115140503
  1. ;;9002226.02101,"1033,00115140503 ",.02)
  1. ;;00115140503
  1. ;;9002226.02101,"1033,00115701701 ",.01)
  1. ;;00115701701
  1. ;;9002226.02101,"1033,00115701701 ",.02)
  1. ;;00115701701
  1. ;;9002226.02101,"1033,00115701806 ",.01)
  1. ;;00115701806
  1. ;;9002226.02101,"1033,00115701806 ",.02)
  1. ;;00115701806
  1. ;;9002226.02101,"1033,00115701813 ",.01)
  1. ;;00115701813
  1. ;;9002226.02101,"1033,00115701813 ",.02)
  1. ;;00115701813
  1. ;;9002226.02101,"1033,00115705401 ",.01)
  1. ;;00115705401
  1. ;;9002226.02101,"1033,00115705401 ",.02)
  1. ;;00115705401
  1. ;;9002226.02101,"1033,00121479320 ",.01)
  1. ;;00121479320
  1. ;;9002226.02101,"1033,00121479320 ",.02)
  1. ;;00121479320
  1. ;;9002226.02101,"1033,00143203601 ",.01)
  1. ;;00143203601
  1. ;;9002226.02101,"1033,00143203601 ",.02)
  1. ;;00143203601
  1. ;;9002226.02101,"1033,00143203701 ",.01)
  1. ;;00143203701
  1. ;;9002226.02101,"1033,00143203701 ",.02)
  1. ;;00143203701
  1. ;;9002226.02101,"1033,00143203705 ",.01)
  1. ;;00143203705
  1. ;;9002226.02101,"1033,00143203705 ",.02)
  1. ;;00143203705
  1. ;;9002226.02101,"1033,00143203850 ",.01)
  1. ;;00143203850
  1. ;;9002226.02101,"1033,00143203850 ",.02)
  1. ;;00143203850
  1. ;;9002226.02101,"1033,00143211201 ",.01)
  1. ;;00143211201
  1. ;;9002226.02101,"1033,00143211201 ",.02)
  1. ;;00143211201
  1. ;;9002226.02101,"1033,00143211205 ",.01)
  1. ;;00143211205
  1. ;;9002226.02101,"1033,00143211205 ",.02)
  1. ;;00143211205
  1. ;;9002226.02101,"1033,00143211250 ",.01)
  1. ;;00143211250
  1. ;;9002226.02101,"1033,00143211250 ",.02)
  1. ;;00143211250
  1. ;;9002226.02101,"1033,00143314105 ",.01)
  1. ;;00143314105
  1. ;;9002226.02101,"1033,00143314105 ",.02)
  1. ;;00143314105
  1. ;;9002226.02101,"1033,00143314125 ",.01)
  1. ;;00143314125
  1. ;;9002226.02101,"1033,00143314125 ",.02)
  1. ;;00143314125
  1. ;;9002226.02101,"1033,00143314150 ",.01)
  1. ;;00143314150
  1. ;;9002226.02101,"1033,00143314150 ",.02)
  1. ;;00143314150
  1. ;;9002226.02101,"1033,00143314205 ",.01)
  1. ;;00143314205
  1. ;;9002226.02101,"1033,00143314205 ",.02)
  1. ;;00143314205
  1. ;;9002226.02101,"1033,00143314214 ",.01)
  1. ;;00143314214
  1. ;;9002226.02101,"1033,00143314214 ",.02)
  1. ;;00143314214
  1. ;;9002226.02101,"1033,00143314225 ",.01)
  1. ;;00143314225
  1. ;;9002226.02101,"1033,00143314225 ",.02)
  1. ;;00143314225
  1. ;;9002226.02101,"1033,00143314250 ",.01)
  1. ;;00143314250
  1. ;;9002226.02101,"1033,00143314250 ",.02)
  1. ;;00143314250
  1. ;;9002226.02101,"1033,00143908305 ",.01)
  1. ;;00143908305
  1. ;;9002226.02101,"1033,00143908305 ",.02)
  1. ;;00143908305
  1. ;;9002226.02101,"1033,00143908314 ",.01)
  1. ;;00143908314
  1. ;;9002226.02101,"1033,00143908314 ",.02)
  1. ;;00143908314
  1. ;;9002226.02101,"1033,00143908320 ",.01)
  1. ;;00143908320
  1. ;;9002226.02101,"1033,00143908320 ",.02)
  1. ;;00143908320
  1. ;;9002226.02101,"1033,00143908350 ",.01)
  1. ;;00143908350
  1. ;;9002226.02101,"1033,00143908350 ",.02)
  1. ;;00143908350
  1. ;;9002226.02101,"1033,00143976801 ",.01)
  1. ;;00143976801
  1. ;;9002226.02101,"1033,00143976801 ",.02)
  1. ;;00143976801
  1. ;;9002226.02101,"1033,00143976846 ",.01)
  1. ;;00143976846
  1. ;;9002226.02101,"1033,00143976846 ",.02)
  1. ;;00143976846
  1. ;;9002226.02101,"1033,00143976901 ",.01)
  1. ;;00143976901
  1. ;;9002226.02101,"1033,00143976901 ",.02)
  1. ;;00143976901
  1. ;;9002226.02101,"1033,00143976924 ",.01)
  1. ;;00143976924
  1. ;;9002226.02101,"1033,00143976924 ",.02)
  1. ;;00143976924
  1. ;;9002226.02101,"1033,00143977001 ",.01)
  1. ;;00143977001
  1. ;;9002226.02101,"1033,00143977001 ",.02)
  1. ;;00143977001
  1. ;;9002226.02101,"1033,00143977024 ",.01)
  1. ;;00143977024
  1. ;;9002226.02101,"1033,00143977024 ",.02)
  1. ;;00143977024
  1. ;;9002226.02101,"1033,00143985316 ",.01)
  1. ;;00143985316
  1. ;;9002226.02101,"1033,00143985316 ",.02)
  1. ;;00143985316
  1. ;;9002226.02101,"1033,00143985324 ",.01)
  1. ;;00143985324
  1. ;;9002226.02101,"1033,00143985324 ",.02)
  1. ;;00143985324
  1. ;;9002226.02101,"1033,00143985375 ",.01)
  1. ;;00143985375
  1. ;;9002226.02101,"1033,00143985375 ",.02)
  1. ;;00143985375
  1. ;;9002226.02101,"1033,00143985625 ",.01)
  1. ;;00143985625
  1. ;;9002226.02101,"1033,00143985625 ",.02)
  1. ;;00143985625
  1. ;;9002226.02101,"1033,00143985725 ",.01)
  1. ;;00143985725
  1. ;;9002226.02101,"1033,00143985725 ",.02)
  1. ;;00143985725
  1. ;;9002226.02101,"1033,00143985825 ",.01)
  1. ;;00143985825
  1. ;;9002226.02101,"1033,00143985825 ",.02)
  1. ;;00143985825
  1. ;;9002226.02101,"1033,00143985925 ",.01)
  1. ;;00143985925
  1. ;;9002226.02101,"1033,00143985925 ",.02)
  1. ;;00143985925
  1. ;;9002226.02101,"1033,00143988601 ",.01)
  1. ;;00143988601
  1. ;;9002226.02101,"1033,00143988601 ",.02)
  1. ;;00143988601
  1. ;;9002226.02101,"1033,00143988650 ",.01)
  1. ;;00143988650
  1. ;;9002226.02101,"1033,00143988650 ",.02)
  1. ;;00143988650
  1. ;;9002226.02101,"1033,00143988675 ",.01)
  1. ;;00143988675
  1. ;;9002226.02101,"1033,00143988675 ",.02)
  1. ;;00143988675
  1. ;;9002226.02101,"1033,00143988701 ",.01)
  1. ;;00143988701
  1. ;;9002226.02101,"1033,00143988701 ",.02)
  1. ;;00143988701
  1. ;;9002226.02101,"1033,00143988750 ",.01)
  1. ;;00143988750
  1. ;;9002226.02101,"1033,00143988750 ",.02)
  1. ;;00143988750
  1. ;;9002226.02101,"1033,00143988775 ",.01)
  1. ;;00143988775
  1. ;;9002226.02101,"1033,00143988775 ",.02)
  1. ;;00143988775
  1. ;;9002226.02101,"1033,00143988801 ",.01)
  1. ;;00143988801
  1. ;;9002226.02101,"1033,00143988801 ",.02)
  1. ;;00143988801
  1. ;;9002226.02101,"1033,00143988805 ",.01)
  1. ;;00143988805
  1. ;;9002226.02101,"1033,00143988805 ",.02)
  1. ;;00143988805
  1. ;;9002226.02101,"1033,00143988815 ",.01)
  1. ;;00143988815
  1. ;;9002226.02101,"1033,00143988815 ",.02)
  1. ;;00143988815
  1. ;;9002226.02101,"1033,00143988880 ",.01)
  1. ;;00143988880
  1. ;;9002226.02101,"1033,00143988880 ",.02)
  1. ;;00143988880
  1. ;;9002226.02101,"1033,00143988901 ",.01)
  1. ;;00143988901
  1. ;;9002226.02101,"1033,00143988901 ",.02)
  1. ;;00143988901
  1. ;;9002226.02101,"1033,00143988905 ",.01)
  1. ;;00143988905
  1. ;;9002226.02101,"1033,00143988905 ",.02)
  1. ;;00143988905
  1. ;;9002226.02101,"1033,00143988915 ",.01)
  1. ;;00143988915
  1. ;;9002226.02101,"1033,00143988915 ",.02)
  1. ;;00143988915
  1. ;;9002226.02101,"1033,00143988980 ",.01)
  1. ;;00143988980
  1. ;;9002226.02101,"1033,00143988980 ",.02)
  1. ;;00143988980
  1. ;;9002226.02101,"1033,00143989701 ",.01)
  1. ;;00143989701
  1. ;;9002226.02101,"1033,00143989701 ",.02)
  1. ;;00143989701
  1. ;;9002226.02101,"1033,00143989705 ",.01)
  1. ;;00143989705
  1. ;;9002226.02101,"1033,00143989705 ",.02)
  1. ;;00143989705
  1. ;;9002226.02101,"1033,00143989801 ",.01)
  1. ;;00143989801
  1. ;;9002226.02101,"1033,00143989801 ",.02)
  1. ;;00143989801
  1. ;;9002226.02101,"1033,00143989805 ",.01)
  1. ;;00143989805
  1. ;;9002226.02101,"1033,00143989805 ",.02)
  1. ;;00143989805
  1. ;;9002226.02101,"1033,00143992390 ",.01)
  1. ;;00143992390
  1. ;;9002226.02101,"1033,00143992390 ",.02)
  1. ;;00143992390
  1. ;;9002226.02101,"1033,00143992490 ",.01)
  1. ;;00143992490
  1. ;;9002226.02101,"1033,00143992490 ",.02)
  1. ;;00143992490
  1. ;;9002226.02101,"1033,00143992591 ",.01)
  1. ;;00143992591
  1. ;;9002226.02101,"1033,00143992591 ",.02)
  1. ;;00143992591
  1. ;;9002226.02101,"1033,00143992701 ",.01)
  1. ;;00143992701
  1. ;;9002226.02101,"1033,00143992701 ",.02)
  1. ;;00143992701
  1. ;;9002226.02101,"1033,00143992705 ",.01)
  1. ;;00143992705
  1. ;;9002226.02101,"1033,00143992705 ",.02)
  1. ;;00143992705
  1. ;;9002226.02101,"1033,00143992730 ",.01)
  1. ;;00143992730
  1. ;;9002226.02101,"1033,00143992730 ",.02)
  1. ;;00143992730
  1. ;;9002226.02101,"1033,00143992801 ",.01)
  1. ;;00143992801
  1. ;;9002226.02101,"1033,00143992801 ",.02)
  1. ;;00143992801
  1. ;;9002226.02101,"1033,00143992805 ",.01)
  1. ;;00143992805
  1. ;;9002226.02101,"1033,00143992805 ",.02)
  1. ;;00143992805
  1. ;;9002226.02101,"1033,00143992830 ",.01)
  1. ;;00143992830
  1. ;;9002226.02101,"1033,00143992830 ",.02)
  1. ;;00143992830
  1. ;;9002226.02101,"1033,00143992901 ",.01)
  1. ;;00143992901
  1. ;;9002226.02101,"1033,00143992901 ",.02)
  1. ;;00143992901
  1. ;;9002226.02101,"1033,00143992950 ",.01)
  1. ;;00143992950
  1. ;;9002226.02101,"1033,00143992950 ",.02)
  1. ;;00143992950
  1. ;;9002226.02101,"1033,00143993801 ",.01)
  1. ;;00143993801
  1. ;;9002226.02101,"1033,00143993801 ",.02)
  1. ;;00143993801
  1. ;;9002226.02101,"1033,00143993805 ",.01)
  1. ;;00143993805
  1. ;;9002226.02101,"1033,00143993805 ",.02)
  1. ;;00143993805
  1. ;;9002226.02101,"1033,00143993830 ",.01)
  1. ;;00143993830
  1. ;;9002226.02101,"1033,00143993830 ",.02)
  1. ;;00143993830
  1. ;;9002226.02101,"1033,00143993901 ",.01)
  1. ;;00143993901
  1. ;;9002226.02101,"1033,00143993901 ",.02)
  1. ;;00143993901
  1. ;;9002226.02101,"1033,00143993905 ",.01)
  1. ;;00143993905
  1. ;;9002226.02101,"1033,00143993905 ",.02)
  1. ;;00143993905
  1. ;;9002226.02101,"1033,00143993920 ",.01)
  1. ;;00143993920
  1. ;;9002226.02101,"1033,00143993920 ",.02)
  1. ;;00143993920
  1. ;;9002226.02101,"1033,00143994701 ",.01)
  1. ;;00143994701
  1. ;;9002226.02101,"1033,00143994701 ",.02)
  1. ;;00143994701
  1. ;;9002226.02101,"1033,00143994720 ",.01)
  1. ;;00143994720
  1. ;;9002226.02101,"1033,00143994720 ",.02)
  1. ;;00143994720
  1. ;;9002226.02101,"1033,00143994750 ",.01)
  1. ;;00143994750
  1. ;;9002226.02101,"1033,00143994750 ",.02)
  1. ;;00143994750
  1. ;;9002226.02101,"1033,00143994801 ",.01)
  1. ;;00143994801
  1. ;;9002226.02101,"1033,00143994801 ",.02)
  1. ;;00143994801
  1. ;;9002226.02101,"1033,00143994850 ",.01)
  1. ;;00143994850
  1. ;;9002226.02101,"1033,00143994850 ",.02)
  1. ;;00143994850
  1. ;;9002226.02101,"1033,00143995101 ",.01)
  1. ;;00143995101
  1. ;;9002226.02101,"1033,00143995101 ",.02)
  1. ;;00143995101
  1. ;;9002226.02101,"1033,00143995120 ",.01)
  1. ;;00143995120