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