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

BGPM5AUX.m

Go to the documentation of this file.
BGPM5AUX ;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,53002020240 ",.02)
 ;;53002020240
 ;;9002226.02101,"1033,53002020620 ",.01)
 ;;53002020620
 ;;9002226.02101,"1033,53002020620 ",.02)
 ;;53002020620
 ;;9002226.02101,"1033,53002020621 ",.01)
 ;;53002020621
 ;;9002226.02101,"1033,53002020621 ",.02)
 ;;53002020621
 ;;9002226.02101,"1033,53002020624 ",.01)
 ;;53002020624
 ;;9002226.02101,"1033,53002020624 ",.02)
 ;;53002020624
 ;;9002226.02101,"1033,53002020628 ",.01)
 ;;53002020628
 ;;9002226.02101,"1033,53002020628 ",.02)
 ;;53002020628
 ;;9002226.02101,"1033,53002020630 ",.01)
 ;;53002020630
 ;;9002226.02101,"1033,53002020630 ",.02)
 ;;53002020630
 ;;9002226.02101,"1033,53002020640 ",.01)
 ;;53002020640
 ;;9002226.02101,"1033,53002020640 ",.02)
 ;;53002020640
 ;;9002226.02101,"1033,53002020656 ",.01)
 ;;53002020656
 ;;9002226.02101,"1033,53002020656 ",.02)
 ;;53002020656
 ;;9002226.02101,"1033,53002020660 ",.01)
 ;;53002020660
 ;;9002226.02101,"1033,53002020660 ",.02)
 ;;53002020660
 ;;9002226.02101,"1033,53002020715 ",.01)
 ;;53002020715
 ;;9002226.02101,"1033,53002020715 ",.02)
 ;;53002020715
 ;;9002226.02101,"1033,53002020721 ",.01)
 ;;53002020721
 ;;9002226.02101,"1033,53002020721 ",.02)
 ;;53002020721
 ;;9002226.02101,"1033,53002020730 ",.01)
 ;;53002020730
 ;;9002226.02101,"1033,53002020730 ",.02)
 ;;53002020730
 ;;9002226.02101,"1033,53002020745 ",.01)
 ;;53002020745
 ;;9002226.02101,"1033,53002020745 ",.02)
 ;;53002020745
 ;;9002226.02101,"1033,53002021004 ",.01)
 ;;53002021004
 ;;9002226.02101,"1033,53002021004 ",.02)
 ;;53002021004
 ;;9002226.02101,"1033,53002021006 ",.01)
 ;;53002021006
 ;;9002226.02101,"1033,53002021006 ",.02)
 ;;53002021006
 ;;9002226.02101,"1033,53002021007 ",.01)
 ;;53002021007
 ;;9002226.02101,"1033,53002021007 ",.02)
 ;;53002021007
 ;;9002226.02101,"1033,53002021010 ",.01)
 ;;53002021010
 ;;9002226.02101,"1033,53002021010 ",.02)
 ;;53002021010
 ;;9002226.02101,"1033,53002021012 ",.01)
 ;;53002021012
 ;;9002226.02101,"1033,53002021012 ",.02)
 ;;53002021012
 ;;9002226.02101,"1033,53002021014 ",.01)
 ;;53002021014
 ;;9002226.02101,"1033,53002021014 ",.02)
 ;;53002021014
 ;;9002226.02101,"1033,53002021020 ",.01)
 ;;53002021020
 ;;9002226.02101,"1033,53002021020 ",.02)
 ;;53002021020
 ;;9002226.02101,"1033,53002021028 ",.01)
 ;;53002021028
 ;;9002226.02101,"1033,53002021028 ",.02)
 ;;53002021028
 ;;9002226.02101,"1033,53002021030 ",.01)
 ;;53002021030
 ;;9002226.02101,"1033,53002021030 ",.02)
 ;;53002021030
 ;;9002226.02101,"1033,53002021040 ",.01)
 ;;53002021040
 ;;9002226.02101,"1033,53002021040 ",.02)
 ;;53002021040
 ;;9002226.02101,"1033,53002021108 ",.01)
 ;;53002021108
 ;;9002226.02101,"1033,53002021108 ",.02)
 ;;53002021108
 ;;9002226.02101,"1033,53002021110 ",.01)
 ;;53002021110
 ;;9002226.02101,"1033,53002021110 ",.02)
 ;;53002021110
 ;;9002226.02101,"1033,53002021115 ",.01)
 ;;53002021115
 ;;9002226.02101,"1033,53002021115 ",.02)
 ;;53002021115
 ;;9002226.02101,"1033,53002021121 ",.01)
 ;;53002021121
 ;;9002226.02101,"1033,53002021121 ",.02)
 ;;53002021121
 ;;9002226.02101,"1033,53002021130 ",.01)
 ;;53002021130
 ;;9002226.02101,"1033,53002021130 ",.02)
 ;;53002021130
 ;;9002226.02101,"1033,53002021145 ",.01)
 ;;53002021145
 ;;9002226.02101,"1033,53002021145 ",.02)
 ;;53002021145
 ;;9002226.02101,"1033,53002021202 ",.01)
 ;;53002021202
 ;;9002226.02101,"1033,53002021202 ",.02)
 ;;53002021202
 ;;9002226.02101,"1033,53002021204 ",.01)
 ;;53002021204
 ;;9002226.02101,"1033,53002021204 ",.02)
 ;;53002021204
 ;;9002226.02101,"1033,53002021207 ",.01)
 ;;53002021207
 ;;9002226.02101,"1033,53002021207 ",.02)
 ;;53002021207
 ;;9002226.02101,"1033,53002021210 ",.01)
 ;;53002021210
 ;;9002226.02101,"1033,53002021210 ",.02)
 ;;53002021210
 ;;9002226.02101,"1033,53002021211 ",.01)
 ;;53002021211
 ;;9002226.02101,"1033,53002021211 ",.02)
 ;;53002021211
 ;;9002226.02101,"1033,53002021212 ",.01)
 ;;53002021212
 ;;9002226.02101,"1033,53002021212 ",.02)
 ;;53002021212
 ;;9002226.02101,"1033,53002021214 ",.01)
 ;;53002021214
 ;;9002226.02101,"1033,53002021214 ",.02)
 ;;53002021214
 ;;9002226.02101,"1033,53002021215 ",.01)
 ;;53002021215
 ;;9002226.02101,"1033,53002021215 ",.02)
 ;;53002021215
 ;;9002226.02101,"1033,53002021220 ",.01)
 ;;53002021220
 ;;9002226.02101,"1033,53002021220 ",.02)
 ;;53002021220
 ;;9002226.02101,"1033,53002021228 ",.01)
 ;;53002021228
 ;;9002226.02101,"1033,53002021228 ",.02)
 ;;53002021228
 ;;9002226.02101,"1033,53002021230 ",.01)
 ;;53002021230
 ;;9002226.02101,"1033,53002021230 ",.02)
 ;;53002021230
 ;;9002226.02101,"1033,53002021391 ",.01)
 ;;53002021391
 ;;9002226.02101,"1033,53002021391 ",.02)
 ;;53002021391
 ;;9002226.02101,"1033,53002021394 ",.01)
 ;;53002021394
 ;;9002226.02101,"1033,53002021394 ",.02)
 ;;53002021394
 ;;9002226.02101,"1033,53002021484 ",.01)
 ;;53002021484
 ;;9002226.02101,"1033,53002021484 ",.02)
 ;;53002021484
 ;;9002226.02101,"1033,53002021491 ",.01)
 ;;53002021491
 ;;9002226.02101,"1033,53002021491 ",.02)
 ;;53002021491
 ;;9002226.02101,"1033,53002021493 ",.01)
 ;;53002021493
 ;;9002226.02101,"1033,53002021493 ",.02)
 ;;53002021493
 ;;9002226.02101,"1033,53002021494 ",.01)
 ;;53002021494
 ;;9002226.02101,"1033,53002021494 ",.02)
 ;;53002021494
 ;;9002226.02101,"1033,53002021700 ",.01)
 ;;53002021700
 ;;9002226.02101,"1033,53002021700 ",.02)
 ;;53002021700
 ;;9002226.02101,"1033,53002021714 ",.01)
 ;;53002021714
 ;;9002226.02101,"1033,53002021714 ",.02)
 ;;53002021714
 ;;9002226.02101,"1033,53002021720 ",.01)
 ;;53002021720
 ;;9002226.02101,"1033,53002021720 ",.02)
 ;;53002021720
 ;;9002226.02101,"1033,53002021721 ",.01)
 ;;53002021721
 ;;9002226.02101,"1033,53002021721 ",.02)
 ;;53002021721
 ;;9002226.02101,"1033,53002021724 ",.01)
 ;;53002021724
 ;;9002226.02101,"1033,53002021724 ",.02)
 ;;53002021724
 ;;9002226.02101,"1033,53002021728 ",.01)
 ;;53002021728
 ;;9002226.02101,"1033,53002021728 ",.02)
 ;;53002021728
 ;;9002226.02101,"1033,53002021730 ",.01)
 ;;53002021730
 ;;9002226.02101,"1033,53002021730 ",.02)
 ;;53002021730
 ;;9002226.02101,"1033,53002021740 ",.01)
 ;;53002021740
 ;;9002226.02101,"1033,53002021740 ",.02)
 ;;53002021740
 ;;9002226.02101,"1033,53002021760 ",.01)
 ;;53002021760
 ;;9002226.02101,"1033,53002021760 ",.02)
 ;;53002021760
 ;;9002226.02101,"1033,53002021808 ",.01)
 ;;53002021808
 ;;9002226.02101,"1033,53002021808 ",.02)
 ;;53002021808
 ;;9002226.02101,"1033,53002021810 ",.01)
 ;;53002021810
 ;;9002226.02101,"1033,53002021810 ",.02)
 ;;53002021810
 ;;9002226.02101,"1033,53002021814 ",.01)
 ;;53002021814
 ;;9002226.02101,"1033,53002021814 ",.02)
 ;;53002021814
 ;;9002226.02101,"1033,53002021820 ",.01)
 ;;53002021820
 ;;9002226.02101,"1033,53002021820 ",.02)
 ;;53002021820
 ;;9002226.02101,"1033,53002021821 ",.01)
 ;;53002021821
 ;;9002226.02101,"1033,53002021821 ",.02)
 ;;53002021821
 ;;9002226.02101,"1033,53002021824 ",.01)
 ;;53002021824
 ;;9002226.02101,"1033,53002021824 ",.02)
 ;;53002021824
 ;;9002226.02101,"1033,53002021828 ",.01)
 ;;53002021828
 ;;9002226.02101,"1033,53002021828 ",.02)
 ;;53002021828
 ;;9002226.02101,"1033,53002021830 ",.01)
 ;;53002021830
 ;;9002226.02101,"1033,53002021830 ",.02)
 ;;53002021830
 ;;9002226.02101,"1033,53002021840 ",.01)
 ;;53002021840
 ;;9002226.02101,"1033,53002021840 ",.02)
 ;;53002021840
 ;;9002226.02101,"1033,53002021991 ",.01)
 ;;53002021991
 ;;9002226.02101,"1033,53002021991 ",.02)
 ;;53002021991
 ;;9002226.02101,"1033,53002021994 ",.01)
 ;;53002021994
 ;;9002226.02101,"1033,53002021994 ",.02)
 ;;53002021994
 ;;9002226.02101,"1033,53002022020 ",.01)
 ;;53002022020
 ;;9002226.02101,"1033,53002022020 ",.02)
 ;;53002022020
 ;;9002226.02101,"1033,53002022024 ",.01)
 ;;53002022024
 ;;9002226.02101,"1033,53002022024 ",.02)
 ;;53002022024
 ;;9002226.02101,"1033,53002022028 ",.01)
 ;;53002022028
 ;;9002226.02101,"1033,53002022028 ",.02)
 ;;53002022028
 ;;9002226.02101,"1033,53002022030 ",.01)
 ;;53002022030
 ;;9002226.02101,"1033,53002022030 ",.02)
 ;;53002022030
 ;;9002226.02101,"1033,53002022040 ",.01)
 ;;53002022040
 ;;9002226.02101,"1033,53002022040 ",.02)
 ;;53002022040
 ;;9002226.02101,"1033,53002022291 ",.01)
 ;;53002022291
 ;;9002226.02101,"1033,53002022291 ",.02)
 ;;53002022291
 ;;9002226.02101,"1033,53002022294 ",.01)
 ;;53002022294
 ;;9002226.02101,"1033,53002022294 ",.02)
 ;;53002022294
 ;;9002226.02101,"1033,53002022491 ",.01)
 ;;53002022491
 ;;9002226.02101,"1033,53002022491 ",.02)
 ;;53002022491
 ;;9002226.02101,"1033,53002022494 ",.01)
 ;;53002022494
 ;;9002226.02101,"1033,53002022494 ",.02)
 ;;53002022494
 ;;9002226.02101,"1033,53002022504 ",.01)
 ;;53002022504
 ;;9002226.02101,"1033,53002022504 ",.02)
 ;;53002022504
 ;;9002226.02101,"1033,53002022508 ",.01)
 ;;53002022508
 ;;9002226.02101,"1033,53002022508 ",.02)
 ;;53002022508
 ;;9002226.02101,"1033,53002022512 ",.01)
 ;;53002022512
 ;;9002226.02101,"1033,53002022512 ",.02)
 ;;53002022512
 ;;9002226.02101,"1033,53002022520 ",.01)
 ;;53002022520
 ;;9002226.02101,"1033,53002022520 ",.02)
 ;;53002022520
 ;;9002226.02101,"1033,53002022524 ",.01)
 ;;53002022524
 ;;9002226.02101,"1033,53002022524 ",.02)
 ;;53002022524
 ;;9002226.02101,"1033,53002022528 ",.01)
 ;;53002022528
 ;;9002226.02101,"1033,53002022528 ",.02)
 ;;53002022528
 ;;9002226.02101,"1033,53002022530 ",.01)
 ;;53002022530
 ;;9002226.02101,"1033,53002022530 ",.02)
 ;;53002022530
 ;;9002226.02101,"1033,53002022540 ",.01)
 ;;53002022540
 ;;9002226.02101,"1033,53002022540 ",.02)
 ;;53002022540
 ;;9002226.02101,"1033,53002022610 ",.01)
 ;;53002022610
 ;;9002226.02101,"1033,53002022610 ",.02)
 ;;53002022610
 ;;9002226.02101,"1033,53002022620 ",.01)
 ;;53002022620
 ;;9002226.02101,"1033,53002022620 ",.02)
 ;;53002022620
 ;;9002226.02101,"1033,53002022621 ",.01)
 ;;53002022621
 ;;9002226.02101,"1033,53002022621 ",.02)
 ;;53002022621
 ;;9002226.02101,"1033,53002022624 ",.01)
 ;;53002022624
 ;;9002226.02101,"1033,53002022624 ",.02)
 ;;53002022624
 ;;9002226.02101,"1033,53002022628 ",.01)
 ;;53002022628
 ;;9002226.02101,"1033,53002022628 ",.02)
 ;;53002022628
 ;;9002226.02101,"1033,53002022630 ",.01)
 ;;53002022630
 ;;9002226.02101,"1033,53002022630 ",.02)
 ;;53002022630
 ;;9002226.02101,"1033,53002022640 ",.01)
 ;;53002022640
 ;;9002226.02101,"1033,53002022640 ",.02)
 ;;53002022640
 ;;9002226.02101,"1033,53002022648 ",.01)
 ;;53002022648
 ;;9002226.02101,"1033,53002022648 ",.02)
 ;;53002022648
 ;;9002226.02101,"1033,53002022786 ",.01)
 ;;53002022786
 ;;9002226.02101,"1033,53002022786 ",.02)
 ;;53002022786
 ;;9002226.02101,"1033,53002022793 ",.01)
 ;;53002022793
 ;;9002226.02101,"1033,53002022793 ",.02)
 ;;53002022793
 ;;9002226.02101,"1033,53002022814 ",.01)
 ;;53002022814
 ;;9002226.02101,"1033,53002022814 ",.02)
 ;;53002022814
 ;;9002226.02101,"1033,53002022820 ",.01)
 ;;53002022820
 ;;9002226.02101,"1033,53002022820 ",.02)
 ;;53002022820
 ;;9002226.02101,"1033,53002022824 ",.01)
 ;;53002022824
 ;;9002226.02101,"1033,53002022824 ",.02)
 ;;53002022824
 ;;9002226.02101,"1033,53002022828 ",.01)
 ;;53002022828
 ;;9002226.02101,"1033,53002022828 ",.02)
 ;;53002022828
 ;;9002226.02101,"1033,53002022830 ",.01)
 ;;53002022830
 ;;9002226.02101,"1033,53002022830 ",.02)
 ;;53002022830
 ;;9002226.02101,"1033,53002022840 ",.01)
 ;;53002022840
 ;;9002226.02101,"1033,53002022840 ",.02)
 ;;53002022840
 ;;9002226.02101,"1033,53002022910 ",.01)
 ;;53002022910
 ;;9002226.02101,"1033,53002022910 ",.02)
 ;;53002022910
 ;;9002226.02101,"1033,53002022912 ",.01)
 ;;53002022912
 ;;9002226.02101,"1033,53002022912 ",.02)
 ;;53002022912