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

BGPM5AQL.m

Go to the documentation of this file.
BGPM5AQL ;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,00172376080 ",.02)
 ;;00172376080
 ;;9002226.02101,"1005,00172376100 ",.01)
 ;;00172376100
 ;;9002226.02101,"1005,00172376100 ",.02)
 ;;00172376100
 ;;9002226.02101,"1005,00172376110 ",.01)
 ;;00172376110
 ;;9002226.02101,"1005,00172376110 ",.02)
 ;;00172376110
 ;;9002226.02101,"1005,00172376160 ",.01)
 ;;00172376160
 ;;9002226.02101,"1005,00172376160 ",.02)
 ;;00172376160
 ;;9002226.02101,"1005,00172376170 ",.01)
 ;;00172376170
 ;;9002226.02101,"1005,00172376170 ",.02)
 ;;00172376170
 ;;9002226.02101,"1005,00172376180 ",.01)
 ;;00172376180
 ;;9002226.02101,"1005,00172376180 ",.02)
 ;;00172376180
 ;;9002226.02101,"1005,00172376200 ",.01)
 ;;00172376200
 ;;9002226.02101,"1005,00172376200 ",.02)
 ;;00172376200
 ;;9002226.02101,"1005,00172376210 ",.01)
 ;;00172376210
 ;;9002226.02101,"1005,00172376210 ",.02)
 ;;00172376210
 ;;9002226.02101,"1005,00172376260 ",.01)
 ;;00172376260
 ;;9002226.02101,"1005,00172376260 ",.02)
 ;;00172376260
 ;;9002226.02101,"1005,00172376270 ",.01)
 ;;00172376270
 ;;9002226.02101,"1005,00172376270 ",.02)
 ;;00172376270
 ;;9002226.02101,"1005,00172419510 ",.01)
 ;;00172419510
 ;;9002226.02101,"1005,00172419510 ",.02)
 ;;00172419510
 ;;9002226.02101,"1005,00172419610 ",.01)
 ;;00172419610
 ;;9002226.02101,"1005,00172419610 ",.02)
 ;;00172419610
 ;;9002226.02101,"1005,00172419710 ",.01)
 ;;00172419710
 ;;9002226.02101,"1005,00172419710 ",.02)
 ;;00172419710
 ;;9002226.02101,"1005,00172419810 ",.01)
 ;;00172419810
 ;;9002226.02101,"1005,00172419810 ",.02)
 ;;00172419810
 ;;9002226.02101,"1005,00172503200 ",.01)
 ;;00172503200
 ;;9002226.02101,"1005,00172503200 ",.02)
 ;;00172503200
 ;;9002226.02101,"1005,00172503210 ",.01)
 ;;00172503210
 ;;9002226.02101,"1005,00172503210 ",.02)
 ;;00172503210
 ;;9002226.02101,"1005,00172503260 ",.01)
 ;;00172503260
 ;;9002226.02101,"1005,00172503260 ",.02)
 ;;00172503260
 ;;9002226.02101,"1005,00172503270 ",.01)
 ;;00172503270
 ;;9002226.02101,"1005,00172503270 ",.02)
 ;;00172503270
 ;;9002226.02101,"1005,00172503300 ",.01)
 ;;00172503300
 ;;9002226.02101,"1005,00172503300 ",.02)
 ;;00172503300
 ;;9002226.02101,"1005,00172503310 ",.01)
 ;;00172503310
 ;;9002226.02101,"1005,00172503310 ",.02)
 ;;00172503310
 ;;9002226.02101,"1005,00172503360 ",.01)
 ;;00172503360
 ;;9002226.02101,"1005,00172503360 ",.02)
 ;;00172503360
 ;;9002226.02101,"1005,00172503370 ",.01)
 ;;00172503370
 ;;9002226.02101,"1005,00172503370 ",.02)
 ;;00172503370
 ;;9002226.02101,"1005,00172503400 ",.01)
 ;;00172503400
 ;;9002226.02101,"1005,00172503400 ",.02)
 ;;00172503400
 ;;9002226.02101,"1005,00172503410 ",.01)
 ;;00172503410
 ;;9002226.02101,"1005,00172503410 ",.02)
 ;;00172503410
 ;;9002226.02101,"1005,00172503460 ",.01)
 ;;00172503460
 ;;9002226.02101,"1005,00172503460 ",.02)
 ;;00172503460
 ;;9002226.02101,"1005,00172503470 ",.01)
 ;;00172503470
 ;;9002226.02101,"1005,00172503470 ",.02)
 ;;00172503470
 ;;9002226.02101,"1005,00172565260 ",.01)
 ;;00172565260
 ;;9002226.02101,"1005,00172565260 ",.02)
 ;;00172565260
 ;;9002226.02101,"1005,00172565270 ",.01)
 ;;00172565270
 ;;9002226.02101,"1005,00172565270 ",.02)
 ;;00172565270
 ;;9002226.02101,"1005,00172565360 ",.01)
 ;;00172565360
 ;;9002226.02101,"1005,00172565360 ",.02)
 ;;00172565360
 ;;9002226.02101,"1005,00172565380 ",.01)
 ;;00172565380
 ;;9002226.02101,"1005,00172565380 ",.02)
 ;;00172565380
 ;;9002226.02101,"1005,00179115701 ",.01)
 ;;00179115701
 ;;9002226.02101,"1005,00179115701 ",.02)
 ;;00179115701
 ;;9002226.02101,"1005,00179115705 ",.01)
 ;;00179115705
 ;;9002226.02101,"1005,00179115705 ",.02)
 ;;00179115705
 ;;9002226.02101,"1005,00179115730 ",.01)
 ;;00179115730
 ;;9002226.02101,"1005,00179115730 ",.02)
 ;;00179115730
 ;;9002226.02101,"1005,00179115745 ",.01)
 ;;00179115745
 ;;9002226.02101,"1005,00179115745 ",.02)
 ;;00179115745
 ;;9002226.02101,"1005,00179115750 ",.01)
 ;;00179115750
 ;;9002226.02101,"1005,00179115750 ",.02)
 ;;00179115750
 ;;9002226.02101,"1005,00179115777 ",.01)
 ;;00179115777
 ;;9002226.02101,"1005,00179115777 ",.02)
 ;;00179115777
 ;;9002226.02101,"1005,00179116801 ",.01)
 ;;00179116801
 ;;9002226.02101,"1005,00179116801 ",.02)
 ;;00179116801
 ;;9002226.02101,"1005,00179116802 ",.01)
 ;;00179116802
 ;;9002226.02101,"1005,00179116802 ",.02)
 ;;00179116802
 ;;9002226.02101,"1005,00179116830 ",.01)
 ;;00179116830
 ;;9002226.02101,"1005,00179116830 ",.02)
 ;;00179116830
 ;;9002226.02101,"1005,00179116850 ",.01)
 ;;00179116850
 ;;9002226.02101,"1005,00179116850 ",.02)
 ;;00179116850
 ;;9002226.02101,"1005,00179116890 ",.01)
 ;;00179116890
 ;;9002226.02101,"1005,00179116890 ",.02)
 ;;00179116890
 ;;9002226.02101,"1005,00179116901 ",.01)
 ;;00179116901
 ;;9002226.02101,"1005,00179116901 ",.02)
 ;;00179116901
 ;;9002226.02101,"1005,00179116930 ",.01)
 ;;00179116930
 ;;9002226.02101,"1005,00179116930 ",.02)
 ;;00179116930
 ;;9002226.02101,"1005,00179116945 ",.01)
 ;;00179116945
 ;;9002226.02101,"1005,00179116945 ",.02)
 ;;00179116945
 ;;9002226.02101,"1005,00179116950 ",.01)
 ;;00179116950
 ;;9002226.02101,"1005,00179116950 ",.02)
 ;;00179116950
 ;;9002226.02101,"1005,00179120301 ",.01)
 ;;00179120301
 ;;9002226.02101,"1005,00179120301 ",.02)
 ;;00179120301
 ;;9002226.02101,"1005,00179120304 ",.01)
 ;;00179120304
 ;;9002226.02101,"1005,00179120304 ",.02)
 ;;00179120304
 ;;9002226.02101,"1005,00179120330 ",.01)
 ;;00179120330
 ;;9002226.02101,"1005,00179120330 ",.02)
 ;;00179120330
 ;;9002226.02101,"1005,00179120345 ",.01)
 ;;00179120345
 ;;9002226.02101,"1005,00179120345 ",.02)
 ;;00179120345
 ;;9002226.02101,"1005,00179120350 ",.01)
 ;;00179120350
 ;;9002226.02101,"1005,00179120350 ",.02)
 ;;00179120350
 ;;9002226.02101,"1005,00179120360 ",.01)
 ;;00179120360
 ;;9002226.02101,"1005,00179120360 ",.02)
 ;;00179120360
 ;;9002226.02101,"1005,00179145601 ",.01)
 ;;00179145601
 ;;9002226.02101,"1005,00179145601 ",.02)
 ;;00179145601
 ;;9002226.02101,"1005,00179145630 ",.01)
 ;;00179145630
 ;;9002226.02101,"1005,00179145630 ",.02)
 ;;00179145630
 ;;9002226.02101,"1005,00179145650 ",.01)
 ;;00179145650
 ;;9002226.02101,"1005,00179145650 ",.02)
 ;;00179145650
 ;;9002226.02101,"1005,00179145660 ",.01)
 ;;00179145660
 ;;9002226.02101,"1005,00179145660 ",.02)
 ;;00179145660
 ;;9002226.02101,"1005,00179145690 ",.01)
 ;;00179145690
 ;;9002226.02101,"1005,00179145690 ",.02)
 ;;00179145690
 ;;9002226.02101,"1005,00179150801 ",.01)
 ;;00179150801
 ;;9002226.02101,"1005,00179150801 ",.02)
 ;;00179150801
 ;;9002226.02101,"1005,00179150811 ",.01)
 ;;00179150811
 ;;9002226.02101,"1005,00179150811 ",.02)
 ;;00179150811
 ;;9002226.02101,"1005,00179150820 ",.01)
 ;;00179150820
 ;;9002226.02101,"1005,00179150820 ",.02)
 ;;00179150820
 ;;9002226.02101,"1005,00179150830 ",.01)
 ;;00179150830
 ;;9002226.02101,"1005,00179150830 ",.02)
 ;;00179150830
 ;;9002226.02101,"1005,00179150850 ",.01)
 ;;00179150850
 ;;9002226.02101,"1005,00179150850 ",.02)
 ;;00179150850
 ;;9002226.02101,"1005,00179150860 ",.01)
 ;;00179150860
 ;;9002226.02101,"1005,00179150860 ",.02)
 ;;00179150860
 ;;9002226.02101,"1005,00179150890 ",.01)
 ;;00179150890
 ;;9002226.02101,"1005,00179150890 ",.02)
 ;;00179150890
 ;;9002226.02101,"1005,00179153970 ",.01)
 ;;00179153970
 ;;9002226.02101,"1005,00179153970 ",.02)
 ;;00179153970
 ;;9002226.02101,"1005,00179153971 ",.01)
 ;;00179153971
 ;;9002226.02101,"1005,00179153971 ",.02)
 ;;00179153971
 ;;9002226.02101,"1005,00179153972 ",.01)
 ;;00179153972
 ;;9002226.02101,"1005,00179153972 ",.02)
 ;;00179153972
 ;;9002226.02101,"1005,00179160770 ",.01)
 ;;00179160770
 ;;9002226.02101,"1005,00179160770 ",.02)
 ;;00179160770
 ;;9002226.02101,"1005,00179160771 ",.01)
 ;;00179160771
 ;;9002226.02101,"1005,00179160771 ",.02)
 ;;00179160771
 ;;9002226.02101,"1005,00179160772 ",.01)
 ;;00179160772
 ;;9002226.02101,"1005,00179160772 ",.02)
 ;;00179160772
 ;;9002226.02101,"1005,00179162770 ",.01)
 ;;00179162770
 ;;9002226.02101,"1005,00179162770 ",.02)
 ;;00179162770
 ;;9002226.02101,"1005,00179162771 ",.01)
 ;;00179162771
 ;;9002226.02101,"1005,00179162771 ",.02)
 ;;00179162771
 ;;9002226.02101,"1005,00179162772 ",.01)
 ;;00179162772
 ;;9002226.02101,"1005,00179162772 ",.02)
 ;;00179162772
 ;;9002226.02101,"1005,00179175970 ",.01)
 ;;00179175970
 ;;9002226.02101,"1005,00179175970 ",.02)
 ;;00179175970
 ;;9002226.02101,"1005,00179175971 ",.01)
 ;;00179175971
 ;;9002226.02101,"1005,00179175971 ",.02)
 ;;00179175971
 ;;9002226.02101,"1005,00179175972 ",.01)
 ;;00179175972
 ;;9002226.02101,"1005,00179175972 ",.02)
 ;;00179175972
 ;;9002226.02101,"1005,00179176870 ",.01)
 ;;00179176870
 ;;9002226.02101,"1005,00179176870 ",.02)
 ;;00179176870
 ;;9002226.02101,"1005,00179176871 ",.01)
 ;;00179176871
 ;;9002226.02101,"1005,00179176871 ",.02)
 ;;00179176871
 ;;9002226.02101,"1005,00179176872 ",.01)
 ;;00179176872
 ;;9002226.02101,"1005,00179176872 ",.02)
 ;;00179176872
 ;;9002226.02101,"1005,00179190601 ",.01)
 ;;00179190601
 ;;9002226.02101,"1005,00179190601 ",.02)
 ;;00179190601
 ;;9002226.02101,"1005,00179190630 ",.01)
 ;;00179190630
 ;;9002226.02101,"1005,00179190630 ",.02)
 ;;00179190630
 ;;9002226.02101,"1005,00179190650 ",.01)
 ;;00179190650
 ;;9002226.02101,"1005,00179190650 ",.02)
 ;;00179190650
 ;;9002226.02101,"1005,00179190660 ",.01)
 ;;00179190660
 ;;9002226.02101,"1005,00179190660 ",.02)
 ;;00179190660
 ;;9002226.02101,"1005,00179190690 ",.01)
 ;;00179190690
 ;;9002226.02101,"1005,00179190690 ",.02)
 ;;00179190690
 ;;9002226.02101,"1005,00179190770 ",.01)
 ;;00179190770
 ;;9002226.02101,"1005,00179190770 ",.02)
 ;;00179190770
 ;;9002226.02101,"1005,00179190771 ",.01)
 ;;00179190771
 ;;9002226.02101,"1005,00179190771 ",.02)
 ;;00179190771
 ;;9002226.02101,"1005,00179190772 ",.01)
 ;;00179190772
 ;;9002226.02101,"1005,00179190772 ",.02)
 ;;00179190772
 ;;9002226.02101,"1005,00179191501 ",.01)
 ;;00179191501
 ;;9002226.02101,"1005,00179191501 ",.02)
 ;;00179191501
 ;;9002226.02101,"1005,00179191530 ",.01)
 ;;00179191530
 ;;9002226.02101,"1005,00179191530 ",.02)
 ;;00179191530
 ;;9002226.02101,"1005,00179191550 ",.01)
 ;;00179191550
 ;;9002226.02101,"1005,00179191550 ",.02)
 ;;00179191550
 ;;9002226.02101,"1005,00179191560 ",.01)
 ;;00179191560
 ;;9002226.02101,"1005,00179191560 ",.02)
 ;;00179191560
 ;;9002226.02101,"1005,00179191590 ",.01)
 ;;00179191590
 ;;9002226.02101,"1005,00179191590 ",.02)
 ;;00179191590
 ;;9002226.02101,"1005,00179192470 ",.01)
 ;;00179192470
 ;;9002226.02101,"1005,00179192470 ",.02)
 ;;00179192470
 ;;9002226.02101,"1005,00179192471 ",.01)
 ;;00179192471
 ;;9002226.02101,"1005,00179192471 ",.02)
 ;;00179192471
 ;;9002226.02101,"1005,00179192472 ",.01)
 ;;00179192472
 ;;9002226.02101,"1005,00179192472 ",.02)
 ;;00179192472
 ;;9002226.02101,"1005,00179192501 ",.01)
 ;;00179192501
 ;;9002226.02101,"1005,00179192501 ",.02)
 ;;00179192501
 ;;9002226.02101,"1005,00179192530 ",.01)
 ;;00179192530
 ;;9002226.02101,"1005,00179192530 ",.02)
 ;;00179192530
 ;;9002226.02101,"1005,00179192550 ",.01)
 ;;00179192550
 ;;9002226.02101,"1005,00179192550 ",.02)
 ;;00179192550
 ;;9002226.02101,"1005,00179192560 ",.01)
 ;;00179192560
 ;;9002226.02101,"1005,00179192560 ",.02)
 ;;00179192560
 ;;9002226.02101,"1005,00179192590 ",.01)
 ;;00179192590
 ;;9002226.02101,"1005,00179192590 ",.02)
 ;;00179192590
 ;;9002226.02101,"1005,00179198370 ",.01)
 ;;00179198370
 ;;9002226.02101,"1005,00179198370 ",.02)
 ;;00179198370
 ;;9002226.02101,"1005,00179198371 ",.01)
 ;;00179198371
 ;;9002226.02101,"1005,00179198371 ",.02)
 ;;00179198371