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