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

BGPM5AWR.m

Go to the documentation of this file.
BGPM5AWR ;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,65862001401 ",.01)
 ;;65862001401
 ;;9002226.02101,"1033,65862001401 ",.02)
 ;;65862001401
 ;;9002226.02101,"1033,65862001405 ",.01)
 ;;65862001405
 ;;9002226.02101,"1033,65862001405 ",.02)
 ;;65862001405
 ;;9002226.02101,"1033,65862001420 ",.01)
 ;;65862001420
 ;;9002226.02101,"1033,65862001420 ",.02)
 ;;65862001420
 ;;9002226.02101,"1033,65862001422 ",.01)
 ;;65862001422
 ;;9002226.02101,"1033,65862001422 ",.02)
 ;;65862001422
 ;;9002226.02101,"1033,65862001431 ",.01)
 ;;65862001431
 ;;9002226.02101,"1033,65862001431 ",.02)
 ;;65862001431
 ;;9002226.02101,"1033,65862001501 ",.01)
 ;;65862001501
 ;;9002226.02101,"1033,65862001501 ",.02)
 ;;65862001501
 ;;9002226.02101,"1033,65862001505 ",.01)
 ;;65862001505
 ;;9002226.02101,"1033,65862001505 ",.02)
 ;;65862001505
 ;;9002226.02101,"1033,65862001520 ",.01)
 ;;65862001520
 ;;9002226.02101,"1033,65862001520 ",.02)
 ;;65862001520
 ;;9002226.02101,"1033,65862001589 ",.01)
 ;;65862001589
 ;;9002226.02101,"1033,65862001589 ",.02)
 ;;65862001589
 ;;9002226.02101,"1033,65862001599 ",.01)
 ;;65862001599
 ;;9002226.02101,"1033,65862001599 ",.02)
 ;;65862001599
 ;;9002226.02101,"1033,65862001601 ",.01)
 ;;65862001601
 ;;9002226.02101,"1033,65862001601 ",.02)
 ;;65862001601
 ;;9002226.02101,"1033,65862001605 ",.01)
 ;;65862001605
 ;;9002226.02101,"1033,65862001605 ",.02)
 ;;65862001605
 ;;9002226.02101,"1033,65862001618 ",.01)
 ;;65862001618
 ;;9002226.02101,"1033,65862001618 ",.02)
 ;;65862001618
 ;;9002226.02101,"1033,65862001620 ",.01)
 ;;65862001620
 ;;9002226.02101,"1033,65862001620 ",.02)
 ;;65862001620
 ;;9002226.02101,"1033,65862001622 ",.01)
 ;;65862001622
 ;;9002226.02101,"1033,65862001622 ",.02)
 ;;65862001622
 ;;9002226.02101,"1033,65862001701 ",.01)
 ;;65862001701
 ;;9002226.02101,"1033,65862001701 ",.02)
 ;;65862001701
 ;;9002226.02101,"1033,65862001705 ",.01)
 ;;65862001705
 ;;9002226.02101,"1033,65862001705 ",.02)
 ;;65862001705
 ;;9002226.02101,"1033,65862001715 ",.01)
 ;;65862001715
 ;;9002226.02101,"1033,65862001715 ",.02)
 ;;65862001715
 ;;9002226.02101,"1033,65862001720 ",.01)
 ;;65862001720
 ;;9002226.02101,"1033,65862001720 ",.02)
 ;;65862001720
 ;;9002226.02101,"1033,65862001799 ",.01)
 ;;65862001799
 ;;9002226.02101,"1033,65862001799 ",.02)
 ;;65862001799
 ;;9002226.02101,"1033,65862001801 ",.01)
 ;;65862001801
 ;;9002226.02101,"1033,65862001801 ",.02)
 ;;65862001801
 ;;9002226.02101,"1033,65862001805 ",.01)
 ;;65862001805
 ;;9002226.02101,"1033,65862001805 ",.02)
 ;;65862001805
 ;;9002226.02101,"1033,65862001820 ",.01)
 ;;65862001820
 ;;9002226.02101,"1033,65862001820 ",.02)
 ;;65862001820
 ;;9002226.02101,"1033,65862001822 ",.01)
 ;;65862001822
 ;;9002226.02101,"1033,65862001822 ",.02)
 ;;65862001822
 ;;9002226.02101,"1033,65862001840 ",.01)
 ;;65862001840
 ;;9002226.02101,"1033,65862001840 ",.02)
 ;;65862001840
 ;;9002226.02101,"1033,65862001901 ",.01)
 ;;65862001901
 ;;9002226.02101,"1033,65862001901 ",.02)
 ;;65862001901
 ;;9002226.02101,"1033,65862001905 ",.01)
 ;;65862001905
 ;;9002226.02101,"1033,65862001905 ",.02)
 ;;65862001905
 ;;9002226.02101,"1033,65862001920 ",.01)
 ;;65862001920
 ;;9002226.02101,"1033,65862001920 ",.02)
 ;;65862001920
 ;;9002226.02101,"1033,65862001940 ",.01)
 ;;65862001940
 ;;9002226.02101,"1033,65862001940 ",.02)
 ;;65862001940
 ;;9002226.02101,"1033,65862001952 ",.01)
 ;;65862001952
 ;;9002226.02101,"1033,65862001952 ",.02)
 ;;65862001952
 ;;9002226.02101,"1033,65862003320 ",.01)
 ;;65862003320
 ;;9002226.02101,"1033,65862003320 ",.02)
 ;;65862003320
 ;;9002226.02101,"1033,65862003360 ",.01)
 ;;65862003360
 ;;9002226.02101,"1033,65862003360 ",.02)
 ;;65862003360
 ;;9002226.02101,"1033,65862003375 ",.01)
 ;;65862003375
 ;;9002226.02101,"1033,65862003375 ",.02)
 ;;65862003375
 ;;9002226.02101,"1033,65862003420 ",.01)
 ;;65862003420
 ;;9002226.02101,"1033,65862003420 ",.02)
 ;;65862003420
 ;;9002226.02101,"1033,65862003436 ",.01)
 ;;65862003436
 ;;9002226.02101,"1033,65862003436 ",.02)
 ;;65862003436
 ;;9002226.02101,"1033,65862003460 ",.01)
 ;;65862003460
 ;;9002226.02101,"1033,65862003460 ",.02)
 ;;65862003460
 ;;9002226.02101,"1033,65862003515 ",.01)
 ;;65862003515
 ;;9002226.02101,"1033,65862003515 ",.02)
 ;;65862003515
 ;;9002226.02101,"1033,65862003520 ",.01)
 ;;65862003520
 ;;9002226.02101,"1033,65862003520 ",.02)
 ;;65862003520
 ;;9002226.02101,"1033,65862003560 ",.01)
 ;;65862003560
 ;;9002226.02101,"1033,65862003560 ",.02)
 ;;65862003560
 ;;9002226.02101,"1033,65862006501 ",.01)
 ;;65862006501
 ;;9002226.02101,"1033,65862006501 ",.02)
 ;;65862006501
 ;;9002226.02101,"1033,65862006505 ",.01)
 ;;65862006505
 ;;9002226.02101,"1033,65862006505 ",.02)
 ;;65862006505
 ;;9002226.02101,"1033,65862006520 ",.01)
 ;;65862006520
 ;;9002226.02101,"1033,65862006520 ",.02)
 ;;65862006520
 ;;9002226.02101,"1033,65862006522 ",.01)
 ;;65862006522
 ;;9002226.02101,"1033,65862006522 ",.02)
 ;;65862006522
 ;;9002226.02101,"1033,65862006601 ",.01)
 ;;65862006601
 ;;9002226.02101,"1033,65862006601 ",.02)
 ;;65862006601
 ;;9002226.02101,"1033,65862006605 ",.01)
 ;;65862006605
 ;;9002226.02101,"1033,65862006605 ",.02)
 ;;65862006605
 ;;9002226.02101,"1033,65862006612 ",.01)
 ;;65862006612
 ;;9002226.02101,"1033,65862006612 ",.02)
 ;;65862006612
 ;;9002226.02101,"1033,65862006620 ",.01)
 ;;65862006620
 ;;9002226.02101,"1033,65862006620 ",.02)
 ;;65862006620
 ;;9002226.02101,"1033,65862006801 ",.01)
 ;;65862006801
 ;;9002226.02101,"1033,65862006801 ",.02)
 ;;65862006801
 ;;9002226.02101,"1033,65862006805 ",.01)
 ;;65862006805
 ;;9002226.02101,"1033,65862006805 ",.02)
 ;;65862006805
 ;;9002226.02101,"1033,65862006830 ",.01)
 ;;65862006830
 ;;9002226.02101,"1033,65862006830 ",.02)
 ;;65862006830
 ;;9002226.02101,"1033,65862006839 ",.01)
 ;;65862006839
 ;;9002226.02101,"1033,65862006839 ",.02)
 ;;65862006839
 ;;9002226.02101,"1033,65862006850 ",.01)
 ;;65862006850
 ;;9002226.02101,"1033,65862006850 ",.02)
 ;;65862006850
 ;;9002226.02101,"1033,65862006901 ",.01)
 ;;65862006901
 ;;9002226.02101,"1033,65862006901 ",.02)
 ;;65862006901
 ;;9002226.02101,"1033,65862006905 ",.01)
 ;;65862006905
 ;;9002226.02101,"1033,65862006905 ",.02)
 ;;65862006905
 ;;9002226.02101,"1033,65862006915 ",.01)
 ;;65862006915
 ;;9002226.02101,"1033,65862006915 ",.02)
 ;;65862006915
 ;;9002226.02101,"1033,65862006930 ",.01)
 ;;65862006930
 ;;9002226.02101,"1033,65862006930 ",.02)
 ;;65862006930
 ;;9002226.02101,"1033,65862006950 ",.01)
 ;;65862006950
 ;;9002226.02101,"1033,65862006950 ",.02)
 ;;65862006950
 ;;9002226.02101,"1033,65862007001 ",.01)
 ;;65862007001
 ;;9002226.02101,"1033,65862007001 ",.02)
 ;;65862007001
 ;;9002226.02101,"1033,65862007050 ",.01)
 ;;65862007050
 ;;9002226.02101,"1033,65862007050 ",.02)
 ;;65862007050
 ;;9002226.02101,"1033,65862007075 ",.01)
 ;;65862007075
 ;;9002226.02101,"1033,65862007075 ",.02)
 ;;65862007075
 ;;9002226.02101,"1033,65862007101 ",.01)
 ;;65862007101
 ;;9002226.02101,"1033,65862007101 ",.02)
 ;;65862007101
 ;;9002226.02101,"1033,65862007150 ",.01)
 ;;65862007150
 ;;9002226.02101,"1033,65862007150 ",.02)
 ;;65862007150
 ;;9002226.02101,"1033,65862007175 ",.01)
 ;;65862007175
 ;;9002226.02101,"1033,65862007175 ",.02)
 ;;65862007175
 ;;9002226.02101,"1033,65862007601 ",.01)
 ;;65862007601
 ;;9002226.02101,"1033,65862007601 ",.02)
 ;;65862007601
 ;;9002226.02101,"1033,65862007630 ",.01)
 ;;65862007630
 ;;9002226.02101,"1033,65862007630 ",.02)
 ;;65862007630
 ;;9002226.02101,"1033,65862007639 ",.01)
 ;;65862007639
 ;;9002226.02101,"1033,65862007639 ",.02)
 ;;65862007639
 ;;9002226.02101,"1033,65862007699 ",.01)
 ;;65862007699
 ;;9002226.02101,"1033,65862007699 ",.02)
 ;;65862007699
 ;;9002226.02101,"1033,65862007701 ",.01)
 ;;65862007701
 ;;9002226.02101,"1033,65862007701 ",.02)
 ;;65862007701
 ;;9002226.02101,"1033,65862007705 ",.01)
 ;;65862007705
 ;;9002226.02101,"1033,65862007705 ",.02)
 ;;65862007705
 ;;9002226.02101,"1033,65862007715 ",.01)
 ;;65862007715
 ;;9002226.02101,"1033,65862007715 ",.02)
 ;;65862007715
 ;;9002226.02101,"1033,65862007730 ",.01)
 ;;65862007730
 ;;9002226.02101,"1033,65862007730 ",.02)
 ;;65862007730
 ;;9002226.02101,"1033,65862007799 ",.01)
 ;;65862007799
 ;;9002226.02101,"1033,65862007799 ",.02)
 ;;65862007799
 ;;9002226.02101,"1033,65862007850 ",.01)
 ;;65862007850
 ;;9002226.02101,"1033,65862007850 ",.02)
 ;;65862007850
 ;;9002226.02101,"1033,65862007899 ",.01)
 ;;65862007899
 ;;9002226.02101,"1033,65862007899 ",.02)
 ;;65862007899
 ;;9002226.02101,"1033,65862008501 ",.01)
 ;;65862008501
 ;;9002226.02101,"1033,65862008501 ",.02)
 ;;65862008501
 ;;9002226.02101,"1033,65862008512 ",.01)
 ;;65862008512
 ;;9002226.02101,"1033,65862008512 ",.02)
 ;;65862008512
 ;;9002226.02101,"1033,65862008550 ",.01)
 ;;65862008550
 ;;9002226.02101,"1033,65862008550 ",.02)
 ;;65862008550
 ;;9002226.02101,"1033,65862009501 ",.01)
 ;;65862009501
 ;;9002226.02101,"1033,65862009501 ",.02)
 ;;65862009501
 ;;9002226.02101,"1033,65862009520 ",.01)
 ;;65862009520
 ;;9002226.02101,"1033,65862009520 ",.02)
 ;;65862009520
 ;;9002226.02101,"1033,65862009545 ",.01)
 ;;65862009545
 ;;9002226.02101,"1033,65862009545 ",.02)
 ;;65862009545
 ;;9002226.02101,"1033,65862009599 ",.01)
 ;;65862009599
 ;;9002226.02101,"1033,65862009599 ",.02)
 ;;65862009599
 ;;9002226.02101,"1033,65862009601 ",.01)
 ;;65862009601
 ;;9002226.02101,"1033,65862009601 ",.02)
 ;;65862009601
 ;;9002226.02101,"1033,65862009620 ",.01)
 ;;65862009620
 ;;9002226.02101,"1033,65862009620 ",.02)
 ;;65862009620
 ;;9002226.02101,"1033,65862009626 ",.01)
 ;;65862009626
 ;;9002226.02101,"1033,65862009626 ",.02)
 ;;65862009626
 ;;9002226.02101,"1033,65862009699 ",.01)
 ;;65862009699
 ;;9002226.02101,"1033,65862009699 ",.02)
 ;;65862009699
 ;;9002226.02101,"1033,65862009901 ",.01)
 ;;65862009901
 ;;9002226.02101,"1033,65862009901 ",.02)
 ;;65862009901
 ;;9002226.02101,"1033,65862009950 ",.01)
 ;;65862009950
 ;;9002226.02101,"1033,65862009950 ",.02)
 ;;65862009950
 ;;9002226.02101,"1033,65862009975 ",.01)
 ;;65862009975
 ;;9002226.02101,"1033,65862009975 ",.02)
 ;;65862009975
 ;;9002226.02101,"1033,65862010001 ",.01)
 ;;65862010001
 ;;9002226.02101,"1033,65862010001 ",.02)
 ;;65862010001
 ;;9002226.02101,"1033,65862010050 ",.01)
 ;;65862010050
 ;;9002226.02101,"1033,65862010050 ",.02)
 ;;65862010050
 ;;9002226.02101,"1033,65862010075 ",.01)
 ;;65862010075
 ;;9002226.02101,"1033,65862010075 ",.02)
 ;;65862010075
 ;;9002226.02101,"1033,65862012905 ",.01)
 ;;65862012905
 ;;9002226.02101,"1033,65862012905 ",.02)
 ;;65862012905
 ;;9002226.02101,"1033,65862013001 ",.01)
 ;;65862013001
 ;;9002226.02101,"1033,65862013001 ",.02)
 ;;65862013001
 ;;9002226.02101,"1033,65862013005 ",.01)
 ;;65862013005
 ;;9002226.02101,"1033,65862013005 ",.02)
 ;;65862013005
 ;;9002226.02101,"1033,65862013525 ",.01)
 ;;65862013525
 ;;9002226.02101,"1033,65862013525 ",.02)
 ;;65862013525
 ;;9002226.02101,"1033,65862013605 ",.01)
 ;;65862013605
 ;;9002226.02101,"1033,65862013605 ",.02)
 ;;65862013605
 ;;9002226.02101,"1033,65862013701 ",.01)
 ;;65862013701
 ;;9002226.02101,"1033,65862013701 ",.02)
 ;;65862013701
 ;;9002226.02101,"1033,65862013802 ",.01)
 ;;65862013802
 ;;9002226.02101,"1033,65862013802 ",.02)
 ;;65862013802
 ;;9002226.02101,"1033,65862013910 ",.01)
 ;;65862013910
 ;;9002226.02101,"1033,65862013910 ",.02)
 ;;65862013910
 ;;9002226.02101,"1033,65862014001 ",.01)
 ;;65862014001
 ;;9002226.02101,"1033,65862014001 ",.02)
 ;;65862014001
 ;;9002226.02101,"1033,65862014050 ",.01)
 ;;65862014050