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

BGPM5BED.m

Go to the documentation of this file.
BGPM5BED ;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,68387012060 ",.02)
 ;;68387012060
 ;;9002226.02101,"1044,68387012090 ",.01)
 ;;68387012090
 ;;9002226.02101,"1044,68387012090 ",.02)
 ;;68387012090
 ;;9002226.02101,"1044,68387012530 ",.01)
 ;;68387012530
 ;;9002226.02101,"1044,68387012530 ",.02)
 ;;68387012530
 ;;9002226.02101,"1044,68387016030 ",.01)
 ;;68387016030
 ;;9002226.02101,"1044,68387016030 ",.02)
 ;;68387016030
 ;;9002226.02101,"1044,68387016530 ",.01)
 ;;68387016530
 ;;9002226.02101,"1044,68387016530 ",.02)
 ;;68387016530
 ;;9002226.02101,"1044,68387016560 ",.01)
 ;;68387016560
 ;;9002226.02101,"1044,68387016560 ",.02)
 ;;68387016560
 ;;9002226.02101,"1044,68387016590 ",.01)
 ;;68387016590
 ;;9002226.02101,"1044,68387016590 ",.02)
 ;;68387016590
 ;;9002226.02101,"1044,68387016630 ",.01)
 ;;68387016630
 ;;9002226.02101,"1044,68387016630 ",.02)
 ;;68387016630
 ;;9002226.02101,"1044,68387016660 ",.01)
 ;;68387016660
 ;;9002226.02101,"1044,68387016660 ",.02)
 ;;68387016660
 ;;9002226.02101,"1044,68387033015 ",.01)
 ;;68387033015
 ;;9002226.02101,"1044,68387033015 ",.02)
 ;;68387033015
 ;;9002226.02101,"1044,68387033030 ",.01)
 ;;68387033030
 ;;9002226.02101,"1044,68387033030 ",.02)
 ;;68387033030
 ;;9002226.02101,"1044,68387033060 ",.01)
 ;;68387033060
 ;;9002226.02101,"1044,68387033060 ",.02)
 ;;68387033060
 ;;9002226.02101,"1044,68387033515 ",.01)
 ;;68387033515
 ;;9002226.02101,"1044,68387033515 ",.02)
 ;;68387033515
 ;;9002226.02101,"1044,68387033524 ",.01)
 ;;68387033524
 ;;9002226.02101,"1044,68387033524 ",.02)
 ;;68387033524
 ;;9002226.02101,"1044,68387033530 ",.01)
 ;;68387033530
 ;;9002226.02101,"1044,68387033530 ",.02)
 ;;68387033530
 ;;9002226.02101,"1044,68387033560 ",.01)
 ;;68387033560
 ;;9002226.02101,"1044,68387033560 ",.02)
 ;;68387033560
 ;;9002226.02101,"1044,68387033590 ",.01)
 ;;68387033590
 ;;9002226.02101,"1044,68387033590 ",.02)
 ;;68387033590
 ;;9002226.02101,"1044,68387033630 ",.01)
 ;;68387033630
 ;;9002226.02101,"1044,68387033630 ",.02)
 ;;68387033630
 ;;9002226.02101,"1044,68387033690 ",.01)
 ;;68387033690
 ;;9002226.02101,"1044,68387033690 ",.02)
 ;;68387033690
 ;;9002226.02101,"1044,68387033724 ",.01)
 ;;68387033724
 ;;9002226.02101,"1044,68387033724 ",.02)
 ;;68387033724
 ;;9002226.02101,"1044,68387033730 ",.01)
 ;;68387033730
 ;;9002226.02101,"1044,68387033730 ",.02)
 ;;68387033730
 ;;9002226.02101,"1044,68387033830 ",.01)
 ;;68387033830
 ;;9002226.02101,"1044,68387033830 ",.02)
 ;;68387033830
 ;;9002226.02101,"1044,68387033930 ",.01)
 ;;68387033930
 ;;9002226.02101,"1044,68387033930 ",.02)
 ;;68387033930
 ;;9002226.02101,"1044,68387034830 ",.01)
 ;;68387034830
 ;;9002226.02101,"1044,68387034830 ",.02)
 ;;68387034830
 ;;9002226.02101,"1044,68387036060 ",.01)
 ;;68387036060
 ;;9002226.02101,"1044,68387036060 ",.02)
 ;;68387036060
 ;;9002226.02101,"1044,68387036307 ",.01)
 ;;68387036307
 ;;9002226.02101,"1044,68387036307 ",.02)
 ;;68387036307
 ;;9002226.02101,"1044,68387036315 ",.01)
 ;;68387036315
 ;;9002226.02101,"1044,68387036315 ",.02)
 ;;68387036315
 ;;9002226.02101,"1044,68387036330 ",.01)
 ;;68387036330
 ;;9002226.02101,"1044,68387036330 ",.02)
 ;;68387036330
 ;;9002226.02101,"1044,68462011301 ",.01)
 ;;68462011301
 ;;9002226.02101,"1044,68462011301 ",.02)
 ;;68462011301
 ;;9002226.02101,"1044,68462011305 ",.01)
 ;;68462011305
 ;;9002226.02101,"1044,68462011305 ",.02)
 ;;68462011305
 ;;9002226.02101,"1044,68462011401 ",.01)
 ;;68462011401
 ;;9002226.02101,"1044,68462011401 ",.02)
 ;;68462011401
 ;;9002226.02101,"1044,68462011405 ",.01)
 ;;68462011405
 ;;9002226.02101,"1044,68462011405 ",.02)
 ;;68462011405
 ;;9002226.02101,"1044,68462011501 ",.01)
 ;;68462011501
 ;;9002226.02101,"1044,68462011501 ",.02)
 ;;68462011501
 ;;9002226.02101,"1044,68462011505 ",.01)
 ;;68462011505
 ;;9002226.02101,"1044,68462011505 ",.02)
 ;;68462011505
 ;;9002226.02101,"1044,68533001000 ",.01)
 ;;68533001000
 ;;9002226.02101,"1044,68533001000 ",.02)
 ;;68533001000
 ;;9002226.02101,"1044,68533001017 ",.01)
 ;;68533001017
 ;;9002226.02101,"1044,68533001017 ",.02)
 ;;68533001017
 ;;9002226.02101,"1044,68533001028 ",.01)
 ;;68533001028
 ;;9002226.02101,"1044,68533001028 ",.02)
 ;;68533001028
 ;;9002226.02101,"1044,68533001040 ",.01)
 ;;68533001040
 ;;9002226.02101,"1044,68533001040 ",.02)
 ;;68533001040
 ;;9002226.02101,"1044,68533001100 ",.01)
 ;;68533001100
 ;;9002226.02101,"1044,68533001100 ",.02)
 ;;68533001100
 ;;9002226.02101,"1044,68533001117 ",.01)
 ;;68533001117
 ;;9002226.02101,"1044,68533001117 ",.02)
 ;;68533001117
 ;;9002226.02101,"1044,68533001126 ",.01)
 ;;68533001126
 ;;9002226.02101,"1044,68533001126 ",.02)
 ;;68533001126
 ;;9002226.02101,"1044,68533001140 ",.01)
 ;;68533001140
 ;;9002226.02101,"1044,68533001140 ",.02)
 ;;68533001140
 ;;9002226.02101,"1044,68533001200 ",.01)
 ;;68533001200
 ;;9002226.02101,"1044,68533001200 ",.02)
 ;;68533001200
 ;;9002226.02101,"1044,68533001217 ",.01)
 ;;68533001217
 ;;9002226.02101,"1044,68533001217 ",.02)
 ;;68533001217
 ;;9002226.02101,"1044,68533001225 ",.01)
 ;;68533001225
 ;;9002226.02101,"1044,68533001225 ",.02)
 ;;68533001225
 ;;9002226.02101,"1044,68533001240 ",.01)
 ;;68533001240
 ;;9002226.02101,"1044,68533001240 ",.02)
 ;;68533001240
 ;;9002226.02101,"1044,68533005500 ",.01)
 ;;68533005500
 ;;9002226.02101,"1044,68533005500 ",.02)
 ;;68533005500
 ;;9002226.02101,"1044,68533005512 ",.01)
 ;;68533005512
 ;;9002226.02101,"1044,68533005512 ",.02)
 ;;68533005512
 ;;9002226.02101,"1044,68533005525 ",.01)
 ;;68533005525
 ;;9002226.02101,"1044,68533005525 ",.02)
 ;;68533005525
 ;;9002226.02101,"1044,68533005540 ",.01)
 ;;68533005540
 ;;9002226.02101,"1044,68533005540 ",.02)
 ;;68533005540
 ;;9002226.02101,"1044,68533005600 ",.01)
 ;;68533005600
 ;;9002226.02101,"1044,68533005600 ",.02)
 ;;68533005600
 ;;9002226.02101,"1044,68533005612 ",.01)
 ;;68533005612
 ;;9002226.02101,"1044,68533005612 ",.02)
 ;;68533005612
 ;;9002226.02101,"1044,68533005625 ",.01)
 ;;68533005625
 ;;9002226.02101,"1044,68533005625 ",.02)
 ;;68533005625
 ;;9002226.02101,"1044,68533005640 ",.01)
 ;;68533005640
 ;;9002226.02101,"1044,68533005640 ",.02)
 ;;68533005640
 ;;9002226.02101,"1044,68533005700 ",.01)
 ;;68533005700
 ;;9002226.02101,"1044,68533005700 ",.02)
 ;;68533005700
 ;;9002226.02101,"1044,68533005712 ",.01)
 ;;68533005712
 ;;9002226.02101,"1044,68533005712 ",.02)
 ;;68533005712
 ;;9002226.02101,"1044,68533005725 ",.01)
 ;;68533005725
 ;;9002226.02101,"1044,68533005725 ",.02)
 ;;68533005725
 ;;9002226.02101,"1044,68533005740 ",.01)
 ;;68533005740
 ;;9002226.02101,"1044,68533005740 ",.02)
 ;;68533005740
 ;;9002226.02101,"1044,68533053350 ",.01)
 ;;68533053350
 ;;9002226.02101,"1044,68533053350 ",.02)
 ;;68533053350
 ;;9002226.02101,"1044,68533053390 ",.01)
 ;;68533053390
 ;;9002226.02101,"1044,68533053390 ",.02)
 ;;68533053390
 ;;9002226.02101,"1044,68533053450 ",.01)
 ;;68533053450
 ;;9002226.02101,"1044,68533053450 ",.02)
 ;;68533053450
 ;;9002226.02101,"1044,68533053490 ",.01)
 ;;68533053490
 ;;9002226.02101,"1044,68533053490 ",.02)
 ;;68533053490
 ;;9002226.02101,"1044,68533053550 ",.01)
 ;;68533053550
 ;;9002226.02101,"1044,68533053550 ",.02)
 ;;68533053550
 ;;9002226.02101,"1044,68533053590 ",.01)
 ;;68533053590
 ;;9002226.02101,"1044,68533053590 ",.02)
 ;;68533053590
 ;;9002226.02101,"1044,68645013054 ",.01)
 ;;68645013054
 ;;9002226.02101,"1044,68645013054 ",.02)
 ;;68645013054
 ;;9002226.02101,"1044,68645013154 ",.01)
 ;;68645013154
 ;;9002226.02101,"1044,68645013154 ",.02)
 ;;68645013154
 ;;9002226.02101,"1044,68645018054 ",.01)
 ;;68645018054
 ;;9002226.02101,"1044,68645018054 ",.02)
 ;;68645018054
 ;;9002226.02101,"1044,68645025254 ",.01)
 ;;68645025254
 ;;9002226.02101,"1044,68645025254 ",.02)
 ;;68645025254
 ;;9002226.02101,"1044,68645028254 ",.01)
 ;;68645028254
 ;;9002226.02101,"1044,68645028254 ",.02)
 ;;68645028254
 ;;9002226.02101,"1044,68788000501 ",.01)
 ;;68788000501
 ;;9002226.02101,"1044,68788000501 ",.02)
 ;;68788000501
 ;;9002226.02101,"1044,68788000503 ",.01)
 ;;68788000503
 ;;9002226.02101,"1044,68788000503 ",.02)
 ;;68788000503
 ;;9002226.02101,"1044,68788000506 ",.01)
 ;;68788000506
 ;;9002226.02101,"1044,68788000506 ",.02)
 ;;68788000506
 ;;9002226.02101,"1044,68788000509 ",.01)
 ;;68788000509
 ;;9002226.02101,"1044,68788000509 ",.02)
 ;;68788000509
 ;;9002226.02101,"1044,68788000703 ",.01)
 ;;68788000703
 ;;9002226.02101,"1044,68788000703 ",.02)
 ;;68788000703
 ;;9002226.02101,"1044,68788000706 ",.01)
 ;;68788000706
 ;;9002226.02101,"1044,68788000706 ",.02)
 ;;68788000706
 ;;9002226.02101,"1044,68788033002 ",.01)
 ;;68788033002
 ;;9002226.02101,"1044,68788033002 ",.02)
 ;;68788033002
 ;;9002226.02101,"1044,68788033003 ",.01)
 ;;68788033003
 ;;9002226.02101,"1044,68788033003 ",.02)
 ;;68788033003
 ;;9002226.02101,"1044,68788033006 ",.01)
 ;;68788033006
 ;;9002226.02101,"1044,68788033006 ",.02)
 ;;68788033006
 ;;9002226.02101,"1044,68788033009 ",.01)
 ;;68788033009
 ;;9002226.02101,"1044,68788033009 ",.02)
 ;;68788033009
 ;;9002226.02101,"1044,68788054900 ",.01)
 ;;68788054900
 ;;9002226.02101,"1044,68788054900 ",.02)
 ;;68788054900
 ;;9002226.02101,"1044,68788054903 ",.01)
 ;;68788054903
 ;;9002226.02101,"1044,68788054903 ",.02)
 ;;68788054903
 ;;9002226.02101,"1044,68788054906 ",.01)
 ;;68788054906
 ;;9002226.02101,"1044,68788054906 ",.02)
 ;;68788054906
 ;;9002226.02101,"1044,68788054909 ",.01)
 ;;68788054909
 ;;9002226.02101,"1044,68788054909 ",.02)
 ;;68788054909
 ;;9002226.02101,"1044,68788060203 ",.01)
 ;;68788060203
 ;;9002226.02101,"1044,68788060203 ",.02)
 ;;68788060203
 ;;9002226.02101,"1044,68788060603 ",.01)
 ;;68788060603
 ;;9002226.02101,"1044,68788060603 ",.02)
 ;;68788060603
 ;;9002226.02101,"1044,68788060606 ",.01)
 ;;68788060606
 ;;9002226.02101,"1044,68788060606 ",.02)
 ;;68788060606
 ;;9002226.02101,"1044,68788060609 ",.01)
 ;;68788060609
 ;;9002226.02101,"1044,68788060609 ",.02)
 ;;68788060609
 ;;9002226.02101,"1044,68788064702 ",.01)
 ;;68788064702
 ;;9002226.02101,"1044,68788064702 ",.02)
 ;;68788064702
 ;;9002226.02101,"1044,68788064703 ",.01)
 ;;68788064703
 ;;9002226.02101,"1044,68788064703 ",.02)
 ;;68788064703
 ;;9002226.02101,"1044,68788064704 ",.01)
 ;;68788064704
 ;;9002226.02101,"1044,68788064704 ",.02)
 ;;68788064704
 ;;9002226.02101,"1044,68788064706 ",.01)
 ;;68788064706
 ;;9002226.02101,"1044,68788064706 ",.02)
 ;;68788064706
 ;;9002226.02101,"1044,68788064709 ",.01)
 ;;68788064709
 ;;9002226.02101,"1044,68788064709 ",.02)
 ;;68788064709
 ;;9002226.02101,"1044,68788064802 ",.01)
 ;;68788064802
 ;;9002226.02101,"1044,68788064802 ",.02)
 ;;68788064802
 ;;9002226.02101,"1044,68788064803 ",.01)
 ;;68788064803
 ;;9002226.02101,"1044,68788064803 ",.02)
 ;;68788064803
 ;;9002226.02101,"1044,68788064806 ",.01)
 ;;68788064806
 ;;9002226.02101,"1044,68788064806 ",.02)
 ;;68788064806
 ;;9002226.02101,"1044,68788064809 ",.01)
 ;;68788064809
 ;;9002226.02101,"1044,68788064809 ",.02)
 ;;68788064809
 ;;9002226.02101,"1044,68788070503 ",.01)
 ;;68788070503
 ;;9002226.02101,"1044,68788070503 ",.02)
 ;;68788070503
 ;;9002226.02101,"1044,68788070506 ",.01)
 ;;68788070506
 ;;9002226.02101,"1044,68788070506 ",.02)
 ;;68788070506
 ;;9002226.02101,"1044,68788070509 ",.01)
 ;;68788070509
 ;;9002226.02101,"1044,68788070509 ",.02)
 ;;68788070509
 ;;9002226.02101,"1044,68788073500 ",.01)
 ;;68788073500
 ;;9002226.02101,"1044,68788073500 ",.02)
 ;;68788073500
 ;;9002226.02101,"1044,68788073503 ",.01)
 ;;68788073503
 ;;9002226.02101,"1044,68788073503 ",.02)
 ;;68788073503