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

BGPM5ASL.m

Go to the documentation of this file.
BGPM5ASL ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,68071078530 ",.02)
 ;;68071078530
 ;;9002226.02101,"1005,68071078560 ",.01)
 ;;68071078560
 ;;9002226.02101,"1005,68071078560 ",.02)
 ;;68071078560
 ;;9002226.02101,"1005,68071078630 ",.01)
 ;;68071078630
 ;;9002226.02101,"1005,68071078630 ",.02)
 ;;68071078630
 ;;9002226.02101,"1005,68071078660 ",.01)
 ;;68071078660
 ;;9002226.02101,"1005,68071078660 ",.02)
 ;;68071078660
 ;;9002226.02101,"1005,68071099730 ",.01)
 ;;68071099730
 ;;9002226.02101,"1005,68071099730 ",.02)
 ;;68071099730
 ;;9002226.02101,"1005,68084005801 ",.01)
 ;;68084005801
 ;;9002226.02101,"1005,68084005801 ",.02)
 ;;68084005801
 ;;9002226.02101,"1005,68084006001 ",.01)
 ;;68084006001
 ;;9002226.02101,"1005,68084006001 ",.02)
 ;;68084006001
 ;;9002226.02101,"1005,68084006011 ",.01)
 ;;68084006011
 ;;9002226.02101,"1005,68084006011 ",.02)
 ;;68084006011
 ;;9002226.02101,"1005,68084006101 ",.01)
 ;;68084006101
 ;;9002226.02101,"1005,68084006101 ",.02)
 ;;68084006101
 ;;9002226.02101,"1005,68084006111 ",.01)
 ;;68084006111
 ;;9002226.02101,"1005,68084006111 ",.02)
 ;;68084006111
 ;;9002226.02101,"1005,68084006201 ",.01)
 ;;68084006201
 ;;9002226.02101,"1005,68084006201 ",.02)
 ;;68084006201
 ;;9002226.02101,"1005,68084006211 ",.01)
 ;;68084006211
 ;;9002226.02101,"1005,68084006211 ",.02)
 ;;68084006211
 ;;9002226.02101,"1005,68084006401 ",.01)
 ;;68084006401
 ;;9002226.02101,"1005,68084006401 ",.02)
 ;;68084006401
 ;;9002226.02101,"1005,68084006411 ",.01)
 ;;68084006411
 ;;9002226.02101,"1005,68084006411 ",.02)
 ;;68084006411
 ;;9002226.02101,"1005,68084009800 ",.01)
 ;;68084009800
 ;;9002226.02101,"1005,68084009800 ",.02)
 ;;68084009800
 ;;9002226.02101,"1005,68084009806 ",.01)
 ;;68084009806
 ;;9002226.02101,"1005,68084009806 ",.02)
 ;;68084009806
 ;;9002226.02101,"1005,68084009900 ",.01)
 ;;68084009900
 ;;9002226.02101,"1005,68084009900 ",.02)
 ;;68084009900
 ;;9002226.02101,"1005,68084009906 ",.01)
 ;;68084009906
 ;;9002226.02101,"1005,68084009906 ",.02)
 ;;68084009906
 ;;9002226.02101,"1005,68084039001 ",.01)
 ;;68084039001
 ;;9002226.02101,"1005,68084039001 ",.02)
 ;;68084039001
 ;;9002226.02101,"1005,68084039011 ",.01)
 ;;68084039011
 ;;9002226.02101,"1005,68084039011 ",.02)
 ;;68084039011
 ;;9002226.02101,"1005,68084039101 ",.01)
 ;;68084039101
 ;;9002226.02101,"1005,68084039101 ",.02)
 ;;68084039101
 ;;9002226.02101,"1005,68084039111 ",.01)
 ;;68084039111
 ;;9002226.02101,"1005,68084039111 ",.02)
 ;;68084039111
 ;;9002226.02101,"1005,68084039201 ",.01)
 ;;68084039201
 ;;9002226.02101,"1005,68084039201 ",.02)
 ;;68084039201
 ;;9002226.02101,"1005,68084039211 ",.01)
 ;;68084039211
 ;;9002226.02101,"1005,68084039211 ",.02)
 ;;68084039211
 ;;9002226.02101,"1005,68115012715 ",.01)
 ;;68115012715
 ;;9002226.02101,"1005,68115012715 ",.02)
 ;;68115012715
 ;;9002226.02101,"1005,68115012860 ",.01)
 ;;68115012860
 ;;9002226.02101,"1005,68115012860 ",.02)
 ;;68115012860
 ;;9002226.02101,"1005,68115012890 ",.01)
 ;;68115012890
 ;;9002226.02101,"1005,68115012890 ",.02)
 ;;68115012890
 ;;9002226.02101,"1005,68115036260 ",.01)
 ;;68115036260
 ;;9002226.02101,"1005,68115036260 ",.02)
 ;;68115036260
 ;;9002226.02101,"1005,68115036330 ",.01)
 ;;68115036330
 ;;9002226.02101,"1005,68115036330 ",.02)
 ;;68115036330
 ;;9002226.02101,"1005,68115066900 ",.01)
 ;;68115066900
 ;;9002226.02101,"1005,68115066900 ",.02)
 ;;68115066900
 ;;9002226.02101,"1005,68115070330 ",.01)
 ;;68115070330
 ;;9002226.02101,"1005,68115070330 ",.02)
 ;;68115070330
 ;;9002226.02101,"1005,68115085400 ",.01)
 ;;68115085400
 ;;9002226.02101,"1005,68115085400 ",.02)
 ;;68115085400
 ;;9002226.02101,"1005,68180051201 ",.01)
 ;;68180051201
 ;;9002226.02101,"1005,68180051201 ",.02)
 ;;68180051201
 ;;9002226.02101,"1005,68180051202 ",.01)
 ;;68180051202
 ;;9002226.02101,"1005,68180051202 ",.02)
 ;;68180051202
 ;;9002226.02101,"1005,68180051203 ",.01)
 ;;68180051203
 ;;9002226.02101,"1005,68180051203 ",.02)
 ;;68180051203
 ;;9002226.02101,"1005,68180051209 ",.01)
 ;;68180051209
 ;;9002226.02101,"1005,68180051209 ",.02)
 ;;68180051209
 ;;9002226.02101,"1005,68180051230 ",.01)
 ;;68180051230
 ;;9002226.02101,"1005,68180051230 ",.02)
 ;;68180051230
 ;;9002226.02101,"1005,68180051301 ",.01)
 ;;68180051301
 ;;9002226.02101,"1005,68180051301 ",.02)
 ;;68180051301
 ;;9002226.02101,"1005,68180051302 ",.01)
 ;;68180051302
 ;;9002226.02101,"1005,68180051302 ",.02)
 ;;68180051302
 ;;9002226.02101,"1005,68180051303 ",.01)
 ;;68180051303
 ;;9002226.02101,"1005,68180051303 ",.02)
 ;;68180051303
 ;;9002226.02101,"1005,68180051304 ",.01)
 ;;68180051304
 ;;9002226.02101,"1005,68180051304 ",.02)
 ;;68180051304
 ;;9002226.02101,"1005,68180051305 ",.01)
 ;;68180051305
 ;;9002226.02101,"1005,68180051305 ",.02)
 ;;68180051305
 ;;9002226.02101,"1005,68180051309 ",.01)
 ;;68180051309
 ;;9002226.02101,"1005,68180051309 ",.02)
 ;;68180051309
 ;;9002226.02101,"1005,68180051330 ",.01)
 ;;68180051330
 ;;9002226.02101,"1005,68180051330 ",.02)
 ;;68180051330
 ;;9002226.02101,"1005,68180051401 ",.01)
 ;;68180051401
 ;;9002226.02101,"1005,68180051401 ",.02)
 ;;68180051401
 ;;9002226.02101,"1005,68180051402 ",.01)
 ;;68180051402
 ;;9002226.02101,"1005,68180051402 ",.02)
 ;;68180051402
 ;;9002226.02101,"1005,68180051403 ",.01)
 ;;68180051403
 ;;9002226.02101,"1005,68180051403 ",.02)
 ;;68180051403
 ;;9002226.02101,"1005,68180051404 ",.01)
 ;;68180051404
 ;;9002226.02101,"1005,68180051404 ",.02)
 ;;68180051404
 ;;9002226.02101,"1005,68180051405 ",.01)
 ;;68180051405
 ;;9002226.02101,"1005,68180051405 ",.02)
 ;;68180051405
 ;;9002226.02101,"1005,68180051409 ",.01)
 ;;68180051409
 ;;9002226.02101,"1005,68180051409 ",.02)
 ;;68180051409
 ;;9002226.02101,"1005,68180051430 ",.01)
 ;;68180051430
 ;;9002226.02101,"1005,68180051430 ",.02)
 ;;68180051430
 ;;9002226.02101,"1005,68180051501 ",.01)
 ;;68180051501
 ;;9002226.02101,"1005,68180051501 ",.02)
 ;;68180051501
 ;;9002226.02101,"1005,68180051502 ",.01)
 ;;68180051502
 ;;9002226.02101,"1005,68180051502 ",.02)
 ;;68180051502
 ;;9002226.02101,"1005,68180051503 ",.01)
 ;;68180051503
 ;;9002226.02101,"1005,68180051503 ",.02)
 ;;68180051503
 ;;9002226.02101,"1005,68180051504 ",.01)
 ;;68180051504
 ;;9002226.02101,"1005,68180051504 ",.02)
 ;;68180051504
 ;;9002226.02101,"1005,68180051505 ",.01)
 ;;68180051505
 ;;9002226.02101,"1005,68180051505 ",.02)
 ;;68180051505
 ;;9002226.02101,"1005,68180051509 ",.01)
 ;;68180051509
 ;;9002226.02101,"1005,68180051509 ",.02)
 ;;68180051509
 ;;9002226.02101,"1005,68180051530 ",.01)
 ;;68180051530
 ;;9002226.02101,"1005,68180051530 ",.02)
 ;;68180051530
 ;;9002226.02101,"1005,68180051601 ",.01)
 ;;68180051601
 ;;9002226.02101,"1005,68180051601 ",.02)
 ;;68180051601
 ;;9002226.02101,"1005,68180051602 ",.01)
 ;;68180051602
 ;;9002226.02101,"1005,68180051602 ",.02)
 ;;68180051602
 ;;9002226.02101,"1005,68180051603 ",.01)
 ;;68180051603
 ;;9002226.02101,"1005,68180051603 ",.02)
 ;;68180051603
 ;;9002226.02101,"1005,68180051609 ",.01)
 ;;68180051609
 ;;9002226.02101,"1005,68180051609 ",.02)
 ;;68180051609
 ;;9002226.02101,"1005,68180051630 ",.01)
 ;;68180051630
 ;;9002226.02101,"1005,68180051630 ",.02)
 ;;68180051630
 ;;9002226.02101,"1005,68180051701 ",.01)
 ;;68180051701
 ;;9002226.02101,"1005,68180051701 ",.02)
 ;;68180051701
 ;;9002226.02101,"1005,68180051702 ",.01)
 ;;68180051702
 ;;9002226.02101,"1005,68180051702 ",.02)
 ;;68180051702
 ;;9002226.02101,"1005,68180051703 ",.01)
 ;;68180051703
 ;;9002226.02101,"1005,68180051703 ",.02)
 ;;68180051703
 ;;9002226.02101,"1005,68180051704 ",.01)
 ;;68180051704
 ;;9002226.02101,"1005,68180051704 ",.02)
 ;;68180051704
 ;;9002226.02101,"1005,68180051709 ",.01)
 ;;68180051709
 ;;9002226.02101,"1005,68180051709 ",.02)
 ;;68180051709
 ;;9002226.02101,"1005,68180051730 ",.01)
 ;;68180051730
 ;;9002226.02101,"1005,68180051730 ",.02)
 ;;68180051730
 ;;9002226.02101,"1005,68180051790 ",.01)
 ;;68180051790
 ;;9002226.02101,"1005,68180051790 ",.02)
 ;;68180051790
 ;;9002226.02101,"1005,68180051801 ",.01)
 ;;68180051801
 ;;9002226.02101,"1005,68180051801 ",.02)
 ;;68180051801
 ;;9002226.02101,"1005,68180051802 ",.01)
 ;;68180051802
 ;;9002226.02101,"1005,68180051802 ",.02)
 ;;68180051802
 ;;9002226.02101,"1005,68180051830 ",.01)
 ;;68180051830
 ;;9002226.02101,"1005,68180051830 ",.02)
 ;;68180051830
 ;;9002226.02101,"1005,68180051901 ",.01)
 ;;68180051901
 ;;9002226.02101,"1005,68180051901 ",.02)
 ;;68180051901
 ;;9002226.02101,"1005,68180051902 ",.01)
 ;;68180051902
 ;;9002226.02101,"1005,68180051902 ",.02)
 ;;68180051902
 ;;9002226.02101,"1005,68180051930 ",.01)
 ;;68180051930
 ;;9002226.02101,"1005,68180051930 ",.02)
 ;;68180051930
 ;;9002226.02101,"1005,68180052001 ",.01)
 ;;68180052001
 ;;9002226.02101,"1005,68180052001 ",.02)
 ;;68180052001
 ;;9002226.02101,"1005,68180052002 ",.01)
 ;;68180052002
 ;;9002226.02101,"1005,68180052002 ",.02)
 ;;68180052002
 ;;9002226.02101,"1005,68180052030 ",.01)
 ;;68180052030
 ;;9002226.02101,"1005,68180052030 ",.02)
 ;;68180052030
 ;;9002226.02101,"1005,68180055609 ",.01)
 ;;68180055609
 ;;9002226.02101,"1005,68180055609 ",.02)
 ;;68180055609
 ;;9002226.02101,"1005,68180055703 ",.01)
 ;;68180055703
 ;;9002226.02101,"1005,68180055703 ",.02)
 ;;68180055703
 ;;9002226.02101,"1005,68180055709 ",.01)
 ;;68180055709
 ;;9002226.02101,"1005,68180055709 ",.02)
 ;;68180055709
 ;;9002226.02101,"1005,68180055803 ",.01)
 ;;68180055803
 ;;9002226.02101,"1005,68180055803 ",.02)
 ;;68180055803
 ;;9002226.02101,"1005,68180055809 ",.01)
 ;;68180055809
 ;;9002226.02101,"1005,68180055809 ",.02)
 ;;68180055809
 ;;9002226.02101,"1005,68180055903 ",.01)
 ;;68180055903
 ;;9002226.02101,"1005,68180055903 ",.02)
 ;;68180055903
 ;;9002226.02101,"1005,68180055909 ",.01)
 ;;68180055909
 ;;9002226.02101,"1005,68180055909 ",.02)
 ;;68180055909
 ;;9002226.02101,"1005,68387052110 ",.01)
 ;;68387052110
 ;;9002226.02101,"1005,68387052110 ",.02)
 ;;68387052110
 ;;9002226.02101,"1005,68387054330 ",.01)
 ;;68387054330
 ;;9002226.02101,"1005,68387054330 ",.02)
 ;;68387054330
 ;;9002226.02101,"1005,68462020801 ",.01)
 ;;68462020801
 ;;9002226.02101,"1005,68462020801 ",.02)
 ;;68462020801
 ;;9002226.02101,"1005,68462020810 ",.01)
 ;;68462020810
 ;;9002226.02101,"1005,68462020810 ",.02)
 ;;68462020810
 ;;9002226.02101,"1005,68462020890 ",.01)
 ;;68462020890
 ;;9002226.02101,"1005,68462020890 ",.02)
 ;;68462020890
 ;;9002226.02101,"1005,68462020901 ",.01)
 ;;68462020901
 ;;9002226.02101,"1005,68462020901 ",.02)
 ;;68462020901
 ;;9002226.02101,"1005,68462020910 ",.01)
 ;;68462020910
 ;;9002226.02101,"1005,68462020910 ",.02)
 ;;68462020910
 ;;9002226.02101,"1005,68462020990 ",.01)
 ;;68462020990
 ;;9002226.02101,"1005,68462020990 ",.02)
 ;;68462020990
 ;;9002226.02101,"1005,68462036705 ",.01)
 ;;68462036705
 ;;9002226.02101,"1005,68462036705 ",.02)
 ;;68462036705
 ;;9002226.02101,"1005,68462036710 ",.01)
 ;;68462036710
 ;;9002226.02101,"1005,68462036710 ",.02)
 ;;68462036710
 ;;9002226.02101,"1005,68462036790 ",.01)
 ;;68462036790
 ;;9002226.02101,"1005,68462036790 ",.02)
 ;;68462036790
 ;;9002226.02101,"1005,68462036805 ",.01)
 ;;68462036805
 ;;9002226.02101,"1005,68462036805 ",.02)
 ;;68462036805
 ;;9002226.02101,"1005,68462036810 ",.01)
 ;;68462036810
 ;;9002226.02101,"1005,68462036810 ",.02)
 ;;68462036810
 ;;9002226.02101,"1005,68462036890 ",.01)
 ;;68462036890
 ;;9002226.02101,"1005,68462036890 ",.02)
 ;;68462036890
 ;;9002226.02101,"1005,68462036910 ",.01)
 ;;68462036910
 ;;9002226.02101,"1005,68462036910 ",.02)
 ;;68462036910