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

BGPM5BDT.m

Go to the documentation of this file.
BGPM5BDT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,64679071705 ",.01)
 ;;64679071705
 ;;9002226.02101,"1044,64679071705 ",.02)
 ;;64679071705
 ;;9002226.02101,"1044,64679071801 ",.01)
 ;;64679071801
 ;;9002226.02101,"1044,64679071801 ",.02)
 ;;64679071801
 ;;9002226.02101,"1044,64679071802 ",.01)
 ;;64679071802
 ;;9002226.02101,"1044,64679071802 ",.02)
 ;;64679071802
 ;;9002226.02101,"1044,64679071803 ",.01)
 ;;64679071803
 ;;9002226.02101,"1044,64679071803 ",.02)
 ;;64679071803
 ;;9002226.02101,"1044,64679071804 ",.01)
 ;;64679071804
 ;;9002226.02101,"1044,64679071804 ",.02)
 ;;64679071804
 ;;9002226.02101,"1044,64679071805 ",.01)
 ;;64679071805
 ;;9002226.02101,"1044,64679071805 ",.02)
 ;;64679071805
 ;;9002226.02101,"1044,64679075101 ",.01)
 ;;64679075101
 ;;9002226.02101,"1044,64679075101 ",.02)
 ;;64679075101
 ;;9002226.02101,"1044,64679075201 ",.01)
 ;;64679075201
 ;;9002226.02101,"1044,64679075201 ",.02)
 ;;64679075201
 ;;9002226.02101,"1044,64679075202 ",.01)
 ;;64679075202
 ;;9002226.02101,"1044,64679075202 ",.02)
 ;;64679075202
 ;;9002226.02101,"1044,64679075203 ",.01)
 ;;64679075203
 ;;9002226.02101,"1044,64679075203 ",.02)
 ;;64679075203
 ;;9002226.02101,"1044,64679075204 ",.01)
 ;;64679075204
 ;;9002226.02101,"1044,64679075204 ",.02)
 ;;64679075204
 ;;9002226.02101,"1044,64679075207 ",.01)
 ;;64679075207
 ;;9002226.02101,"1044,64679075207 ",.02)
 ;;64679075207
 ;;9002226.02101,"1044,64679075301 ",.01)
 ;;64679075301
 ;;9002226.02101,"1044,64679075301 ",.02)
 ;;64679075301
 ;;9002226.02101,"1044,64679075302 ",.01)
 ;;64679075302
 ;;9002226.02101,"1044,64679075302 ",.02)
 ;;64679075302
 ;;9002226.02101,"1044,64679075303 ",.01)
 ;;64679075303
 ;;9002226.02101,"1044,64679075303 ",.02)
 ;;64679075303
 ;;9002226.02101,"1044,64679075304 ",.01)
 ;;64679075304
 ;;9002226.02101,"1044,64679075304 ",.02)
 ;;64679075304
 ;;9002226.02101,"1044,64679075307 ",.01)
 ;;64679075307
 ;;9002226.02101,"1044,64679075307 ",.02)
 ;;64679075307
 ;;9002226.02101,"1044,64679096914 ",.01)
 ;;64679096914
 ;;9002226.02101,"1044,64679096914 ",.02)
 ;;64679096914
 ;;9002226.02101,"1044,64679097014 ",.01)
 ;;64679097014
 ;;9002226.02101,"1044,64679097014 ",.02)
 ;;64679097014
 ;;9002226.02101,"1044,64679097114 ",.01)
 ;;64679097114
 ;;9002226.02101,"1044,64679097114 ",.02)
 ;;64679097114
 ;;9002226.02101,"1044,64720017003 ",.01)
 ;;64720017003
 ;;9002226.02101,"1044,64720017003 ",.02)
 ;;64720017003
 ;;9002226.02101,"1044,64720017010 ",.01)
 ;;64720017010
 ;;9002226.02101,"1044,64720017010 ",.02)
 ;;64720017010
 ;;9002226.02101,"1044,64720017103 ",.01)
 ;;64720017103
 ;;9002226.02101,"1044,64720017103 ",.02)
 ;;64720017103
 ;;9002226.02101,"1044,64720017110 ",.01)
 ;;64720017110
 ;;9002226.02101,"1044,64720017110 ",.02)
 ;;64720017110
 ;;9002226.02101,"1044,64720017111 ",.01)
 ;;64720017111
 ;;9002226.02101,"1044,64720017111 ",.02)
 ;;64720017111
 ;;9002226.02101,"1044,64720017203 ",.01)
 ;;64720017203
 ;;9002226.02101,"1044,64720017203 ",.02)
 ;;64720017203
 ;;9002226.02101,"1044,64720017210 ",.01)
 ;;64720017210
 ;;9002226.02101,"1044,64720017210 ",.02)
 ;;64720017210
 ;;9002226.02101,"1044,64720017211 ",.01)
 ;;64720017211
 ;;9002226.02101,"1044,64720017211 ",.02)
 ;;64720017211
 ;;9002226.02101,"1044,64725013903 ",.01)
 ;;64725013903
 ;;9002226.02101,"1044,64725013903 ",.02)
 ;;64725013903
 ;;9002226.02101,"1044,64725021503 ",.01)
 ;;64725021503
 ;;9002226.02101,"1044,64725021503 ",.02)
 ;;64725021503
 ;;9002226.02101,"1044,64725021703 ",.01)
 ;;64725021703
 ;;9002226.02101,"1044,64725021703 ",.02)
 ;;64725021703
 ;;9002226.02101,"1044,64980015801 ",.01)
 ;;64980015801
 ;;9002226.02101,"1044,64980015801 ",.02)
 ;;64980015801
 ;;9002226.02101,"1044,64980015901 ",.01)
 ;;64980015901
 ;;9002226.02101,"1044,64980015901 ",.02)
 ;;64980015901
 ;;9002226.02101,"1044,65015003714 ",.01)
 ;;65015003714
 ;;9002226.02101,"1044,65015003714 ",.02)
 ;;65015003714
 ;;9002226.02101,"1044,65015003719 ",.01)
 ;;65015003719
 ;;9002226.02101,"1044,65015003719 ",.02)
 ;;65015003719
 ;;9002226.02101,"1044,65015003725 ",.01)
 ;;65015003725
 ;;9002226.02101,"1044,65015003725 ",.02)
 ;;65015003725
 ;;9002226.02101,"1044,65015003782 ",.01)
 ;;65015003782
 ;;9002226.02101,"1044,65015003782 ",.02)
 ;;65015003782
 ;;9002226.02101,"1044,65015003785 ",.01)
 ;;65015003785
 ;;9002226.02101,"1044,65015003785 ",.02)
 ;;65015003785
 ;;9002226.02101,"1044,65015003799 ",.01)
 ;;65015003799
 ;;9002226.02101,"1044,65015003799 ",.02)
 ;;65015003799
 ;;9002226.02101,"1044,65015003814 ",.01)
 ;;65015003814
 ;;9002226.02101,"1044,65015003814 ",.02)
 ;;65015003814
 ;;9002226.02101,"1044,65015003819 ",.01)
 ;;65015003819
 ;;9002226.02101,"1044,65015003819 ",.02)
 ;;65015003819
 ;;9002226.02101,"1044,65015003825 ",.01)
 ;;65015003825
 ;;9002226.02101,"1044,65015003825 ",.02)
 ;;65015003825
 ;;9002226.02101,"1044,65015003899 ",.01)
 ;;65015003899
 ;;9002226.02101,"1044,65015003899 ",.02)
 ;;65015003899
 ;;9002226.02101,"1044,65015003914 ",.01)
 ;;65015003914
 ;;9002226.02101,"1044,65015003914 ",.02)
 ;;65015003914
 ;;9002226.02101,"1044,65015003919 ",.01)
 ;;65015003919
 ;;9002226.02101,"1044,65015003919 ",.02)
 ;;65015003919
 ;;9002226.02101,"1044,65015003925 ",.01)
 ;;65015003925
 ;;9002226.02101,"1044,65015003925 ",.02)
 ;;65015003925
 ;;9002226.02101,"1044,65015003999 ",.01)
 ;;65015003999
 ;;9002226.02101,"1044,65015003999 ",.02)
 ;;65015003999
 ;;9002226.02101,"1044,65084037314 ",.01)
 ;;65084037314
 ;;9002226.02101,"1044,65084037314 ",.02)
 ;;65084037314
 ;;9002226.02101,"1044,65084037318 ",.01)
 ;;65084037318
 ;;9002226.02101,"1044,65084037318 ",.02)
 ;;65084037318
 ;;9002226.02101,"1044,65084037320 ",.01)
 ;;65084037320
 ;;9002226.02101,"1044,65084037320 ",.02)
 ;;65084037320
 ;;9002226.02101,"1044,65084037336 ",.01)
 ;;65084037336
 ;;9002226.02101,"1044,65084037336 ",.02)
 ;;65084037336
 ;;9002226.02101,"1044,65162005203 ",.01)
 ;;65162005203
 ;;9002226.02101,"1044,65162005203 ",.02)
 ;;65162005203
 ;;9002226.02101,"1044,65162005210 ",.01)
 ;;65162005210
 ;;9002226.02101,"1044,65162005210 ",.02)
 ;;65162005210
 ;;9002226.02101,"1044,65162005250 ",.01)
 ;;65162005250
 ;;9002226.02101,"1044,65162005250 ",.02)
 ;;65162005250
 ;;9002226.02101,"1044,65162005303 ",.01)
 ;;65162005303
 ;;9002226.02101,"1044,65162005303 ",.02)
 ;;65162005303
 ;;9002226.02101,"1044,65162005310 ",.01)
 ;;65162005310
 ;;9002226.02101,"1044,65162005310 ",.02)
 ;;65162005310
 ;;9002226.02101,"1044,65162005350 ",.01)
 ;;65162005350
 ;;9002226.02101,"1044,65162005350 ",.02)
 ;;65162005350
 ;;9002226.02101,"1044,65162005403 ",.01)
 ;;65162005403
 ;;9002226.02101,"1044,65162005403 ",.02)
 ;;65162005403
 ;;9002226.02101,"1044,65162005410 ",.01)
 ;;65162005410
 ;;9002226.02101,"1044,65162005410 ",.02)
 ;;65162005410
 ;;9002226.02101,"1044,65162005450 ",.01)
 ;;65162005450
 ;;9002226.02101,"1044,65162005450 ",.02)
 ;;65162005450
 ;;9002226.02101,"1044,65162017610 ",.01)
 ;;65162017610
 ;;9002226.02101,"1044,65162017610 ",.02)
 ;;65162017610
 ;;9002226.02101,"1044,65162017611 ",.01)
 ;;65162017611
 ;;9002226.02101,"1044,65162017611 ",.02)
 ;;65162017611
 ;;9002226.02101,"1044,65162017810 ",.01)
 ;;65162017810
 ;;9002226.02101,"1044,65162017810 ",.02)
 ;;65162017810
 ;;9002226.02101,"1044,65162017811 ",.01)
 ;;65162017811
 ;;9002226.02101,"1044,65162017811 ",.02)
 ;;65162017811
 ;;9002226.02101,"1044,65162030009 ",.01)
 ;;65162030009
 ;;9002226.02101,"1044,65162030009 ",.02)
 ;;65162030009
 ;;9002226.02101,"1044,65162030209 ",.01)
 ;;65162030209
 ;;9002226.02101,"1044,65162030209 ",.02)
 ;;65162030209
 ;;9002226.02101,"1044,65162030509 ",.01)
 ;;65162030509
 ;;9002226.02101,"1044,65162030509 ",.02)
 ;;65162030509
 ;;9002226.02101,"1044,65162030609 ",.01)
 ;;65162030609
 ;;9002226.02101,"1044,65162030609 ",.02)
 ;;65162030609
 ;;9002226.02101,"1044,65162030709 ",.01)
 ;;65162030709
 ;;9002226.02101,"1044,65162030709 ",.02)
 ;;65162030709
 ;;9002226.02101,"1044,65243000603 ",.01)
 ;;65243000603
 ;;9002226.02101,"1044,65243000603 ",.02)
 ;;65243000603
 ;;9002226.02101,"1044,65243000606 ",.01)
 ;;65243000606
 ;;9002226.02101,"1044,65243000606 ",.02)
 ;;65243000606
 ;;9002226.02101,"1044,65243000609 ",.01)
 ;;65243000609
 ;;9002226.02101,"1044,65243000609 ",.02)
 ;;65243000609
 ;;9002226.02101,"1044,65243011203 ",.01)
 ;;65243011203
 ;;9002226.02101,"1044,65243011203 ",.02)
 ;;65243011203
 ;;9002226.02101,"1044,65243011206 ",.01)
 ;;65243011206
 ;;9002226.02101,"1044,65243011206 ",.02)
 ;;65243011206
 ;;9002226.02101,"1044,65243011209 ",.01)
 ;;65243011209
 ;;9002226.02101,"1044,65243011209 ",.02)
 ;;65243011209
 ;;9002226.02101,"1044,65243024203 ",.01)
 ;;65243024203
 ;;9002226.02101,"1044,65243024203 ",.02)
 ;;65243024203
 ;;9002226.02101,"1044,65243024209 ",.01)
 ;;65243024209
 ;;9002226.02101,"1044,65243024209 ",.02)
 ;;65243024209
 ;;9002226.02101,"1044,65243031003 ",.01)
 ;;65243031003
 ;;9002226.02101,"1044,65243031003 ",.02)
 ;;65243031003
 ;;9002226.02101,"1044,65243031009 ",.01)
 ;;65243031009
 ;;9002226.02101,"1044,65243031009 ",.02)
 ;;65243031009
 ;;9002226.02101,"1044,65243031012 ",.01)
 ;;65243031012
 ;;9002226.02101,"1044,65243031012 ",.02)
 ;;65243031012
 ;;9002226.02101,"1044,65243031015 ",.01)
 ;;65243031015
 ;;9002226.02101,"1044,65243031015 ",.02)
 ;;65243031015
 ;;9002226.02101,"1044,65243031045 ",.01)
 ;;65243031045
 ;;9002226.02101,"1044,65243031045 ",.02)
 ;;65243031045
 ;;9002226.02101,"1044,65243031903 ",.01)
 ;;65243031903
 ;;9002226.02101,"1044,65243031903 ",.02)
 ;;65243031903
 ;;9002226.02101,"1044,65243031906 ",.01)
 ;;65243031906
 ;;9002226.02101,"1044,65243031906 ",.02)
 ;;65243031906
 ;;9002226.02101,"1044,65243031909 ",.01)
 ;;65243031909
 ;;9002226.02101,"1044,65243031909 ",.02)
 ;;65243031909
 ;;9002226.02101,"1044,65243031912 ",.01)
 ;;65243031912
 ;;9002226.02101,"1044,65243031912 ",.02)
 ;;65243031912
 ;;9002226.02101,"1044,65243031945 ",.01)
 ;;65243031945
 ;;9002226.02101,"1044,65243031945 ",.02)
 ;;65243031945
 ;;9002226.02101,"1044,65243032703 ",.01)
 ;;65243032703
 ;;9002226.02101,"1044,65243032703 ",.02)
 ;;65243032703
 ;;9002226.02101,"1044,65243032706 ",.01)
 ;;65243032706
 ;;9002226.02101,"1044,65243032706 ",.02)
 ;;65243032706
 ;;9002226.02101,"1044,65243032709 ",.01)
 ;;65243032709
 ;;9002226.02101,"1044,65243032709 ",.02)
 ;;65243032709
 ;;9002226.02101,"1044,65243032712 ",.01)
 ;;65243032712
 ;;9002226.02101,"1044,65243032712 ",.02)
 ;;65243032712
 ;;9002226.02101,"1044,65243032718 ",.01)
 ;;65243032718
 ;;9002226.02101,"1044,65243032718 ",.02)
 ;;65243032718
 ;;9002226.02101,"1044,65243033606 ",.01)
 ;;65243033606
 ;;9002226.02101,"1044,65243033606 ",.02)
 ;;65243033606
 ;;9002226.02101,"1044,65243033609 ",.01)
 ;;65243033609
 ;;9002226.02101,"1044,65243033609 ",.02)
 ;;65243033609
 ;;9002226.02101,"1044,65243038103 ",.01)
 ;;65243038103
 ;;9002226.02101,"1044,65243038103 ",.02)
 ;;65243038103
 ;;9002226.02101,"1044,65243038106 ",.01)
 ;;65243038106
 ;;9002226.02101,"1044,65243038106 ",.02)
 ;;65243038106
 ;;9002226.02101,"1044,65243038109 ",.01)
 ;;65243038109
 ;;9002226.02101,"1044,65243038109 ",.02)
 ;;65243038109
 ;;9002226.02101,"1044,65243038118 ",.01)
 ;;65243038118
 ;;9002226.02101,"1044,65243038118 ",.02)
 ;;65243038118
 ;;9002226.02101,"1044,65243038145 ",.01)
 ;;65243038145
 ;;9002226.02101,"1044,65243038145 ",.02)
 ;;65243038145
 ;;9002226.02101,"1044,65243038403 ",.01)
 ;;65243038403
 ;;9002226.02101,"1044,65243038403 ",.02)
 ;;65243038403
 ;;9002226.02101,"1044,65243038406 ",.01)
 ;;65243038406