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

BGPM5AGE.m

Go to the documentation of this file.
BGPM5AGE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,00172503360 ",.02)
 ;;00172503360
 ;;9002226.02101,"882,00172503370 ",.01)
 ;;00172503370
 ;;9002226.02101,"882,00172503370 ",.02)
 ;;00172503370
 ;;9002226.02101,"882,00172503400 ",.01)
 ;;00172503400
 ;;9002226.02101,"882,00172503400 ",.02)
 ;;00172503400
 ;;9002226.02101,"882,00172503410 ",.01)
 ;;00172503410
 ;;9002226.02101,"882,00172503410 ",.02)
 ;;00172503410
 ;;9002226.02101,"882,00172503460 ",.01)
 ;;00172503460
 ;;9002226.02101,"882,00172503460 ",.02)
 ;;00172503460
 ;;9002226.02101,"882,00172503470 ",.01)
 ;;00172503470
 ;;9002226.02101,"882,00172503470 ",.02)
 ;;00172503470
 ;;9002226.02101,"882,00172565260 ",.01)
 ;;00172565260
 ;;9002226.02101,"882,00172565260 ",.02)
 ;;00172565260
 ;;9002226.02101,"882,00172565270 ",.01)
 ;;00172565270
 ;;9002226.02101,"882,00172565270 ",.02)
 ;;00172565270
 ;;9002226.02101,"882,00172565360 ",.01)
 ;;00172565360
 ;;9002226.02101,"882,00172565360 ",.02)
 ;;00172565360
 ;;9002226.02101,"882,00172565380 ",.01)
 ;;00172565380
 ;;9002226.02101,"882,00172565380 ",.02)
 ;;00172565380
 ;;9002226.02101,"882,00179115701 ",.01)
 ;;00179115701
 ;;9002226.02101,"882,00179115701 ",.02)
 ;;00179115701
 ;;9002226.02101,"882,00179115705 ",.01)
 ;;00179115705
 ;;9002226.02101,"882,00179115705 ",.02)
 ;;00179115705
 ;;9002226.02101,"882,00179115730 ",.01)
 ;;00179115730
 ;;9002226.02101,"882,00179115730 ",.02)
 ;;00179115730
 ;;9002226.02101,"882,00179115745 ",.01)
 ;;00179115745
 ;;9002226.02101,"882,00179115745 ",.02)
 ;;00179115745
 ;;9002226.02101,"882,00179115750 ",.01)
 ;;00179115750
 ;;9002226.02101,"882,00179115750 ",.02)
 ;;00179115750
 ;;9002226.02101,"882,00179115777 ",.01)
 ;;00179115777
 ;;9002226.02101,"882,00179115777 ",.02)
 ;;00179115777
 ;;9002226.02101,"882,00179116801 ",.01)
 ;;00179116801
 ;;9002226.02101,"882,00179116801 ",.02)
 ;;00179116801
 ;;9002226.02101,"882,00179116802 ",.01)
 ;;00179116802
 ;;9002226.02101,"882,00179116802 ",.02)
 ;;00179116802
 ;;9002226.02101,"882,00179116830 ",.01)
 ;;00179116830
 ;;9002226.02101,"882,00179116830 ",.02)
 ;;00179116830
 ;;9002226.02101,"882,00179116850 ",.01)
 ;;00179116850
 ;;9002226.02101,"882,00179116850 ",.02)
 ;;00179116850
 ;;9002226.02101,"882,00179116890 ",.01)
 ;;00179116890
 ;;9002226.02101,"882,00179116890 ",.02)
 ;;00179116890
 ;;9002226.02101,"882,00179116901 ",.01)
 ;;00179116901
 ;;9002226.02101,"882,00179116901 ",.02)
 ;;00179116901
 ;;9002226.02101,"882,00179116930 ",.01)
 ;;00179116930
 ;;9002226.02101,"882,00179116930 ",.02)
 ;;00179116930
 ;;9002226.02101,"882,00179116945 ",.01)
 ;;00179116945
 ;;9002226.02101,"882,00179116945 ",.02)
 ;;00179116945
 ;;9002226.02101,"882,00179116950 ",.01)
 ;;00179116950
 ;;9002226.02101,"882,00179116950 ",.02)
 ;;00179116950
 ;;9002226.02101,"882,00179120301 ",.01)
 ;;00179120301
 ;;9002226.02101,"882,00179120301 ",.02)
 ;;00179120301
 ;;9002226.02101,"882,00179120304 ",.01)
 ;;00179120304
 ;;9002226.02101,"882,00179120304 ",.02)
 ;;00179120304
 ;;9002226.02101,"882,00179120330 ",.01)
 ;;00179120330
 ;;9002226.02101,"882,00179120330 ",.02)
 ;;00179120330
 ;;9002226.02101,"882,00179120345 ",.01)
 ;;00179120345
 ;;9002226.02101,"882,00179120345 ",.02)
 ;;00179120345
 ;;9002226.02101,"882,00179120350 ",.01)
 ;;00179120350
 ;;9002226.02101,"882,00179120350 ",.02)
 ;;00179120350
 ;;9002226.02101,"882,00179120360 ",.01)
 ;;00179120360
 ;;9002226.02101,"882,00179120360 ",.02)
 ;;00179120360
 ;;9002226.02101,"882,00179145601 ",.01)
 ;;00179145601
 ;;9002226.02101,"882,00179145601 ",.02)
 ;;00179145601
 ;;9002226.02101,"882,00179145630 ",.01)
 ;;00179145630
 ;;9002226.02101,"882,00179145630 ",.02)
 ;;00179145630
 ;;9002226.02101,"882,00179145650 ",.01)
 ;;00179145650
 ;;9002226.02101,"882,00179145650 ",.02)
 ;;00179145650
 ;;9002226.02101,"882,00179145660 ",.01)
 ;;00179145660
 ;;9002226.02101,"882,00179145660 ",.02)
 ;;00179145660
 ;;9002226.02101,"882,00179145690 ",.01)
 ;;00179145690
 ;;9002226.02101,"882,00179145690 ",.02)
 ;;00179145690
 ;;9002226.02101,"882,00179150801 ",.01)
 ;;00179150801
 ;;9002226.02101,"882,00179150801 ",.02)
 ;;00179150801
 ;;9002226.02101,"882,00179150811 ",.01)
 ;;00179150811
 ;;9002226.02101,"882,00179150811 ",.02)
 ;;00179150811
 ;;9002226.02101,"882,00179150820 ",.01)
 ;;00179150820
 ;;9002226.02101,"882,00179150820 ",.02)
 ;;00179150820
 ;;9002226.02101,"882,00179150830 ",.01)
 ;;00179150830
 ;;9002226.02101,"882,00179150830 ",.02)
 ;;00179150830
 ;;9002226.02101,"882,00179150850 ",.01)
 ;;00179150850
 ;;9002226.02101,"882,00179150850 ",.02)
 ;;00179150850
 ;;9002226.02101,"882,00179150860 ",.01)
 ;;00179150860
 ;;9002226.02101,"882,00179150860 ",.02)
 ;;00179150860
 ;;9002226.02101,"882,00179150890 ",.01)
 ;;00179150890
 ;;9002226.02101,"882,00179150890 ",.02)
 ;;00179150890
 ;;9002226.02101,"882,00179153970 ",.01)
 ;;00179153970
 ;;9002226.02101,"882,00179153970 ",.02)
 ;;00179153970
 ;;9002226.02101,"882,00179153971 ",.01)
 ;;00179153971
 ;;9002226.02101,"882,00179153971 ",.02)
 ;;00179153971
 ;;9002226.02101,"882,00179153972 ",.01)
 ;;00179153972
 ;;9002226.02101,"882,00179153972 ",.02)
 ;;00179153972
 ;;9002226.02101,"882,00179160770 ",.01)
 ;;00179160770
 ;;9002226.02101,"882,00179160770 ",.02)
 ;;00179160770
 ;;9002226.02101,"882,00179160771 ",.01)
 ;;00179160771
 ;;9002226.02101,"882,00179160771 ",.02)
 ;;00179160771
 ;;9002226.02101,"882,00179160772 ",.01)
 ;;00179160772
 ;;9002226.02101,"882,00179160772 ",.02)
 ;;00179160772
 ;;9002226.02101,"882,00179162770 ",.01)
 ;;00179162770
 ;;9002226.02101,"882,00179162770 ",.02)
 ;;00179162770
 ;;9002226.02101,"882,00179162771 ",.01)
 ;;00179162771
 ;;9002226.02101,"882,00179162771 ",.02)
 ;;00179162771
 ;;9002226.02101,"882,00179162772 ",.01)
 ;;00179162772
 ;;9002226.02101,"882,00179162772 ",.02)
 ;;00179162772
 ;;9002226.02101,"882,00179176870 ",.01)
 ;;00179176870
 ;;9002226.02101,"882,00179176870 ",.02)
 ;;00179176870
 ;;9002226.02101,"882,00179176871 ",.01)
 ;;00179176871
 ;;9002226.02101,"882,00179176871 ",.02)
 ;;00179176871
 ;;9002226.02101,"882,00179176872 ",.01)
 ;;00179176872
 ;;9002226.02101,"882,00179176872 ",.02)
 ;;00179176872
 ;;9002226.02101,"882,00179190601 ",.01)
 ;;00179190601
 ;;9002226.02101,"882,00179190601 ",.02)
 ;;00179190601
 ;;9002226.02101,"882,00179190630 ",.01)
 ;;00179190630
 ;;9002226.02101,"882,00179190630 ",.02)
 ;;00179190630
 ;;9002226.02101,"882,00179190650 ",.01)
 ;;00179190650
 ;;9002226.02101,"882,00179190650 ",.02)
 ;;00179190650
 ;;9002226.02101,"882,00179190660 ",.01)
 ;;00179190660
 ;;9002226.02101,"882,00179190660 ",.02)
 ;;00179190660
 ;;9002226.02101,"882,00179190690 ",.01)
 ;;00179190690
 ;;9002226.02101,"882,00179190690 ",.02)
 ;;00179190690
 ;;9002226.02101,"882,00179190770 ",.01)
 ;;00179190770
 ;;9002226.02101,"882,00179190770 ",.02)
 ;;00179190770
 ;;9002226.02101,"882,00179190771 ",.01)
 ;;00179190771
 ;;9002226.02101,"882,00179190771 ",.02)
 ;;00179190771
 ;;9002226.02101,"882,00179190772 ",.01)
 ;;00179190772
 ;;9002226.02101,"882,00179190772 ",.02)
 ;;00179190772
 ;;9002226.02101,"882,00179191501 ",.01)
 ;;00179191501
 ;;9002226.02101,"882,00179191501 ",.02)
 ;;00179191501
 ;;9002226.02101,"882,00179191530 ",.01)
 ;;00179191530
 ;;9002226.02101,"882,00179191530 ",.02)
 ;;00179191530
 ;;9002226.02101,"882,00179191550 ",.01)
 ;;00179191550
 ;;9002226.02101,"882,00179191550 ",.02)
 ;;00179191550
 ;;9002226.02101,"882,00179191560 ",.01)
 ;;00179191560
 ;;9002226.02101,"882,00179191560 ",.02)
 ;;00179191560
 ;;9002226.02101,"882,00179191590 ",.01)
 ;;00179191590
 ;;9002226.02101,"882,00179191590 ",.02)
 ;;00179191590
 ;;9002226.02101,"882,00179192470 ",.01)
 ;;00179192470
 ;;9002226.02101,"882,00179192470 ",.02)
 ;;00179192470
 ;;9002226.02101,"882,00179192471 ",.01)
 ;;00179192471
 ;;9002226.02101,"882,00179192471 ",.02)
 ;;00179192471
 ;;9002226.02101,"882,00179192472 ",.01)
 ;;00179192472
 ;;9002226.02101,"882,00179192472 ",.02)
 ;;00179192472
 ;;9002226.02101,"882,00179192501 ",.01)
 ;;00179192501
 ;;9002226.02101,"882,00179192501 ",.02)
 ;;00179192501
 ;;9002226.02101,"882,00179192530 ",.01)
 ;;00179192530
 ;;9002226.02101,"882,00179192530 ",.02)
 ;;00179192530
 ;;9002226.02101,"882,00179192550 ",.01)
 ;;00179192550
 ;;9002226.02101,"882,00179192550 ",.02)
 ;;00179192550
 ;;9002226.02101,"882,00179192560 ",.01)
 ;;00179192560
 ;;9002226.02101,"882,00179192560 ",.02)
 ;;00179192560
 ;;9002226.02101,"882,00179192590 ",.01)
 ;;00179192590
 ;;9002226.02101,"882,00179192590 ",.02)
 ;;00179192590
 ;;9002226.02101,"882,00179198370 ",.01)
 ;;00179198370
 ;;9002226.02101,"882,00179198370 ",.02)
 ;;00179198370
 ;;9002226.02101,"882,00179198371 ",.01)
 ;;00179198371
 ;;9002226.02101,"882,00179198371 ",.02)
 ;;00179198371
 ;;9002226.02101,"882,00179198372 ",.01)
 ;;00179198372
 ;;9002226.02101,"882,00179198372 ",.02)
 ;;00179198372
 ;;9002226.02101,"882,00179198401 ",.01)
 ;;00179198401
 ;;9002226.02101,"882,00179198401 ",.02)
 ;;00179198401
 ;;9002226.02101,"882,00179198430 ",.01)
 ;;00179198430
 ;;9002226.02101,"882,00179198430 ",.02)
 ;;00179198430
 ;;9002226.02101,"882,00179198450 ",.01)
 ;;00179198450
 ;;9002226.02101,"882,00179198450 ",.02)
 ;;00179198450
 ;;9002226.02101,"882,00179198460 ",.01)
 ;;00179198460
 ;;9002226.02101,"882,00179198460 ",.02)
 ;;00179198460
 ;;9002226.02101,"882,00179198490 ",.01)
 ;;00179198490
 ;;9002226.02101,"882,00179198490 ",.02)
 ;;00179198490
 ;;9002226.02101,"882,00179198501 ",.01)
 ;;00179198501
 ;;9002226.02101,"882,00179198501 ",.02)
 ;;00179198501
 ;;9002226.02101,"882,00179198530 ",.01)
 ;;00179198530
 ;;9002226.02101,"882,00179198530 ",.02)
 ;;00179198530
 ;;9002226.02101,"882,00179198550 ",.01)
 ;;00179198550
 ;;9002226.02101,"882,00179198550 ",.02)
 ;;00179198550
 ;;9002226.02101,"882,00179198560 ",.01)
 ;;00179198560
 ;;9002226.02101,"882,00179198560 ",.02)
 ;;00179198560
 ;;9002226.02101,"882,00179198590 ",.01)
 ;;00179198590
 ;;9002226.02101,"882,00179198590 ",.02)
 ;;00179198590
 ;;9002226.02101,"882,00179198770 ",.01)
 ;;00179198770
 ;;9002226.02101,"882,00179198770 ",.02)
 ;;00179198770
 ;;9002226.02101,"882,00179198771 ",.01)
 ;;00179198771
 ;;9002226.02101,"882,00179198771 ",.02)
 ;;00179198771
 ;;9002226.02101,"882,00179198772 ",.01)
 ;;00179198772
 ;;9002226.02101,"882,00179198772 ",.02)
 ;;00179198772
 ;;9002226.02101,"882,00179198801 ",.01)
 ;;00179198801
 ;;9002226.02101,"882,00179198801 ",.02)
 ;;00179198801
 ;;9002226.02101,"882,00179198830 ",.01)
 ;;00179198830
 ;;9002226.02101,"882,00179198830 ",.02)
 ;;00179198830
 ;;9002226.02101,"882,00179198850 ",.01)
 ;;00179198850
 ;;9002226.02101,"882,00179198850 ",.02)
 ;;00179198850
 ;;9002226.02101,"882,00179198860 ",.01)
 ;;00179198860
 ;;9002226.02101,"882,00179198860 ",.02)
 ;;00179198860
 ;;9002226.02101,"882,00179198890 ",.01)
 ;;00179198890
 ;;9002226.02101,"882,00179198890 ",.02)
 ;;00179198890
 ;;9002226.02101,"882,00179199270 ",.01)
 ;;00179199270
 ;;9002226.02101,"882,00179199270 ",.02)
 ;;00179199270
 ;;9002226.02101,"882,00179199271 ",.01)
 ;;00179199271
 ;;9002226.02101,"882,00179199271 ",.02)
 ;;00179199271
 ;;9002226.02101,"882,00179199272 ",.01)
 ;;00179199272
 ;;9002226.02101,"882,00179199272 ",.02)
 ;;00179199272
 ;;9002226.02101,"882,00185002301 ",.01)
 ;;00185002301
 ;;9002226.02101,"882,00185002301 ",.02)
 ;;00185002301
 ;;9002226.02101,"882,00185002305 ",.01)
 ;;00185002305
 ;;9002226.02101,"882,00185002305 ",.02)
 ;;00185002305
 ;;9002226.02101,"882,00185002309 ",.01)
 ;;00185002309