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

BGPM5AVK.m

Go to the documentation of this file.
BGPM5AVK ;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,55289002009 ",.02)
 ;;55289002009
 ;;9002226.02101,"1033,55289002014 ",.01)
 ;;55289002014
 ;;9002226.02101,"1033,55289002014 ",.02)
 ;;55289002014
 ;;9002226.02101,"1033,55289002015 ",.01)
 ;;55289002015
 ;;9002226.02101,"1033,55289002015 ",.02)
 ;;55289002015
 ;;9002226.02101,"1033,55289002021 ",.01)
 ;;55289002021
 ;;9002226.02101,"1033,55289002021 ",.02)
 ;;55289002021
 ;;9002226.02101,"1033,55289002024 ",.01)
 ;;55289002024
 ;;9002226.02101,"1033,55289002024 ",.02)
 ;;55289002024
 ;;9002226.02101,"1033,55289002028 ",.01)
 ;;55289002028
 ;;9002226.02101,"1033,55289002028 ",.02)
 ;;55289002028
 ;;9002226.02101,"1033,55289002030 ",.01)
 ;;55289002030
 ;;9002226.02101,"1033,55289002030 ",.02)
 ;;55289002030
 ;;9002226.02101,"1033,55289002040 ",.01)
 ;;55289002040
 ;;9002226.02101,"1033,55289002040 ",.02)
 ;;55289002040
 ;;9002226.02101,"1033,55289002042 ",.01)
 ;;55289002042
 ;;9002226.02101,"1033,55289002042 ",.02)
 ;;55289002042
 ;;9002226.02101,"1033,55289002050 ",.01)
 ;;55289002050
 ;;9002226.02101,"1033,55289002050 ",.02)
 ;;55289002050
 ;;9002226.02101,"1033,55289002056 ",.01)
 ;;55289002056
 ;;9002226.02101,"1033,55289002056 ",.02)
 ;;55289002056
 ;;9002226.02101,"1033,55289002060 ",.01)
 ;;55289002060
 ;;9002226.02101,"1033,55289002060 ",.02)
 ;;55289002060
 ;;9002226.02101,"1033,55289002063 ",.01)
 ;;55289002063
 ;;9002226.02101,"1033,55289002063 ",.02)
 ;;55289002063
 ;;9002226.02101,"1033,55289002301 ",.01)
 ;;55289002301
 ;;9002226.02101,"1033,55289002301 ",.02)
 ;;55289002301
 ;;9002226.02101,"1033,55289002310 ",.01)
 ;;55289002310
 ;;9002226.02101,"1033,55289002310 ",.02)
 ;;55289002310
 ;;9002226.02101,"1033,55289002320 ",.01)
 ;;55289002320
 ;;9002226.02101,"1033,55289002320 ",.02)
 ;;55289002320
 ;;9002226.02101,"1033,55289002328 ",.01)
 ;;55289002328
 ;;9002226.02101,"1033,55289002328 ",.02)
 ;;55289002328
 ;;9002226.02101,"1033,55289002330 ",.01)
 ;;55289002330
 ;;9002226.02101,"1033,55289002330 ",.02)
 ;;55289002330
 ;;9002226.02101,"1033,55289002340 ",.01)
 ;;55289002340
 ;;9002226.02101,"1033,55289002340 ",.02)
 ;;55289002340
 ;;9002226.02101,"1033,55289002404 ",.01)
 ;;55289002404
 ;;9002226.02101,"1033,55289002404 ",.02)
 ;;55289002404
 ;;9002226.02101,"1033,55289002407 ",.01)
 ;;55289002407
 ;;9002226.02101,"1033,55289002407 ",.02)
 ;;55289002407
 ;;9002226.02101,"1033,55289002410 ",.01)
 ;;55289002410
 ;;9002226.02101,"1033,55289002410 ",.02)
 ;;55289002410
 ;;9002226.02101,"1033,55289002420 ",.01)
 ;;55289002420
 ;;9002226.02101,"1033,55289002420 ",.02)
 ;;55289002420
 ;;9002226.02101,"1033,55289002428 ",.01)
 ;;55289002428
 ;;9002226.02101,"1033,55289002428 ",.02)
 ;;55289002428
 ;;9002226.02101,"1033,55289002430 ",.01)
 ;;55289002430
 ;;9002226.02101,"1033,55289002430 ",.02)
 ;;55289002430
 ;;9002226.02101,"1033,55289002440 ",.01)
 ;;55289002440
 ;;9002226.02101,"1033,55289002440 ",.02)
 ;;55289002440
 ;;9002226.02101,"1033,55289002497 ",.01)
 ;;55289002497
 ;;9002226.02101,"1033,55289002497 ",.02)
 ;;55289002497
 ;;9002226.02101,"1033,55289002504 ",.01)
 ;;55289002504
 ;;9002226.02101,"1033,55289002504 ",.02)
 ;;55289002504
 ;;9002226.02101,"1033,55289002520 ",.01)
 ;;55289002520
 ;;9002226.02101,"1033,55289002520 ",.02)
 ;;55289002520
 ;;9002226.02101,"1033,55289002528 ",.01)
 ;;55289002528
 ;;9002226.02101,"1033,55289002528 ",.02)
 ;;55289002528
 ;;9002226.02101,"1033,55289002530 ",.01)
 ;;55289002530
 ;;9002226.02101,"1033,55289002530 ",.02)
 ;;55289002530
 ;;9002226.02101,"1033,55289002540 ",.01)
 ;;55289002540
 ;;9002226.02101,"1033,55289002540 ",.02)
 ;;55289002540
 ;;9002226.02101,"1033,55289003328 ",.01)
 ;;55289003328
 ;;9002226.02101,"1033,55289003328 ",.02)
 ;;55289003328
 ;;9002226.02101,"1033,55289003340 ",.01)
 ;;55289003340
 ;;9002226.02101,"1033,55289003340 ",.02)
 ;;55289003340
 ;;9002226.02101,"1033,55289005701 ",.01)
 ;;55289005701
 ;;9002226.02101,"1033,55289005701 ",.02)
 ;;55289005701
 ;;9002226.02101,"1033,55289005706 ",.01)
 ;;55289005706
 ;;9002226.02101,"1033,55289005706 ",.02)
 ;;55289005706
 ;;9002226.02101,"1033,55289005710 ",.01)
 ;;55289005710
 ;;9002226.02101,"1033,55289005710 ",.02)
 ;;55289005710
 ;;9002226.02101,"1033,55289005715 ",.01)
 ;;55289005715
 ;;9002226.02101,"1033,55289005715 ",.02)
 ;;55289005715
 ;;9002226.02101,"1033,55289005717 ",.01)
 ;;55289005717
 ;;9002226.02101,"1033,55289005717 ",.02)
 ;;55289005717
 ;;9002226.02101,"1033,55289005720 ",.01)
 ;;55289005720
 ;;9002226.02101,"1033,55289005720 ",.02)
 ;;55289005720
 ;;9002226.02101,"1033,55289005724 ",.01)
 ;;55289005724
 ;;9002226.02101,"1033,55289005724 ",.02)
 ;;55289005724
 ;;9002226.02101,"1033,55289005728 ",.01)
 ;;55289005728
 ;;9002226.02101,"1033,55289005728 ",.02)
 ;;55289005728
 ;;9002226.02101,"1033,55289005730 ",.01)
 ;;55289005730
 ;;9002226.02101,"1033,55289005730 ",.02)
 ;;55289005730
 ;;9002226.02101,"1033,55289005740 ",.01)
 ;;55289005740
 ;;9002226.02101,"1033,55289005740 ",.02)
 ;;55289005740
 ;;9002226.02101,"1033,55289005797 ",.01)
 ;;55289005797
 ;;9002226.02101,"1033,55289005797 ",.02)
 ;;55289005797
 ;;9002226.02101,"1033,55289005801 ",.01)
 ;;55289005801
 ;;9002226.02101,"1033,55289005801 ",.02)
 ;;55289005801
 ;;9002226.02101,"1033,55289005804 ",.01)
 ;;55289005804
 ;;9002226.02101,"1033,55289005804 ",.02)
 ;;55289005804
 ;;9002226.02101,"1033,55289005808 ",.01)
 ;;55289005808
 ;;9002226.02101,"1033,55289005808 ",.02)
 ;;55289005808
 ;;9002226.02101,"1033,55289005810 ",.01)
 ;;55289005810
 ;;9002226.02101,"1033,55289005810 ",.02)
 ;;55289005810
 ;;9002226.02101,"1033,55289005814 ",.01)
 ;;55289005814
 ;;9002226.02101,"1033,55289005814 ",.02)
 ;;55289005814
 ;;9002226.02101,"1033,55289005817 ",.01)
 ;;55289005817
 ;;9002226.02101,"1033,55289005817 ",.02)
 ;;55289005817
 ;;9002226.02101,"1033,55289005820 ",.01)
 ;;55289005820
 ;;9002226.02101,"1033,55289005820 ",.02)
 ;;55289005820
 ;;9002226.02101,"1033,55289005821 ",.01)
 ;;55289005821
 ;;9002226.02101,"1033,55289005821 ",.02)
 ;;55289005821
 ;;9002226.02101,"1033,55289005824 ",.01)
 ;;55289005824
 ;;9002226.02101,"1033,55289005824 ",.02)
 ;;55289005824
 ;;9002226.02101,"1033,55289005828 ",.01)
 ;;55289005828
 ;;9002226.02101,"1033,55289005828 ",.02)
 ;;55289005828
 ;;9002226.02101,"1033,55289005830 ",.01)
 ;;55289005830
 ;;9002226.02101,"1033,55289005830 ",.02)
 ;;55289005830
 ;;9002226.02101,"1033,55289005840 ",.01)
 ;;55289005840
 ;;9002226.02101,"1033,55289005840 ",.02)
 ;;55289005840
 ;;9002226.02101,"1033,55289005856 ",.01)
 ;;55289005856
 ;;9002226.02101,"1033,55289005856 ",.02)
 ;;55289005856
 ;;9002226.02101,"1033,55289007201 ",.01)
 ;;55289007201
 ;;9002226.02101,"1033,55289007201 ",.02)
 ;;55289007201
 ;;9002226.02101,"1033,55289007240 ",.01)
 ;;55289007240
 ;;9002226.02101,"1033,55289007240 ",.02)
 ;;55289007240
 ;;9002226.02101,"1033,55289008120 ",.01)
 ;;55289008120
 ;;9002226.02101,"1033,55289008120 ",.02)
 ;;55289008120
 ;;9002226.02101,"1033,55289009410 ",.01)
 ;;55289009410
 ;;9002226.02101,"1033,55289009410 ",.02)
 ;;55289009410
 ;;9002226.02101,"1033,55289009420 ",.01)
 ;;55289009420
 ;;9002226.02101,"1033,55289009420 ",.02)
 ;;55289009420
 ;;9002226.02101,"1033,55289009430 ",.01)
 ;;55289009430
 ;;9002226.02101,"1033,55289009430 ",.02)
 ;;55289009430
 ;;9002226.02101,"1033,55289009440 ",.01)
 ;;55289009440
 ;;9002226.02101,"1033,55289009440 ",.02)
 ;;55289009440
 ;;9002226.02101,"1033,55289010701 ",.01)
 ;;55289010701
 ;;9002226.02101,"1033,55289010701 ",.02)
 ;;55289010701
 ;;9002226.02101,"1033,55289010702 ",.01)
 ;;55289010702
 ;;9002226.02101,"1033,55289010702 ",.02)
 ;;55289010702
 ;;9002226.02101,"1033,55289010706 ",.01)
 ;;55289010706
 ;;9002226.02101,"1033,55289010706 ",.02)
 ;;55289010706
 ;;9002226.02101,"1033,55289010710 ",.01)
 ;;55289010710
 ;;9002226.02101,"1033,55289010710 ",.02)
 ;;55289010710
 ;;9002226.02101,"1033,55289010712 ",.01)
 ;;55289010712
 ;;9002226.02101,"1033,55289010712 ",.02)
 ;;55289010712
 ;;9002226.02101,"1033,55289010714 ",.01)
 ;;55289010714
 ;;9002226.02101,"1033,55289010714 ",.02)
 ;;55289010714
 ;;9002226.02101,"1033,55289010717 ",.01)
 ;;55289010717
 ;;9002226.02101,"1033,55289010717 ",.02)
 ;;55289010717
 ;;9002226.02101,"1033,55289010720 ",.01)
 ;;55289010720
 ;;9002226.02101,"1033,55289010720 ",.02)
 ;;55289010720
 ;;9002226.02101,"1033,55289010728 ",.01)
 ;;55289010728
 ;;9002226.02101,"1033,55289010728 ",.02)
 ;;55289010728
 ;;9002226.02101,"1033,55289010730 ",.01)
 ;;55289010730
 ;;9002226.02101,"1033,55289010730 ",.02)
 ;;55289010730
 ;;9002226.02101,"1033,55289010740 ",.01)
 ;;55289010740
 ;;9002226.02101,"1033,55289010740 ",.02)
 ;;55289010740
 ;;9002226.02101,"1033,55289010750 ",.01)
 ;;55289010750
 ;;9002226.02101,"1033,55289010750 ",.02)
 ;;55289010750
 ;;9002226.02101,"1033,55289010756 ",.01)
 ;;55289010756
 ;;9002226.02101,"1033,55289010756 ",.02)
 ;;55289010756
 ;;9002226.02101,"1033,55289010760 ",.01)
 ;;55289010760
 ;;9002226.02101,"1033,55289010760 ",.02)
 ;;55289010760
 ;;9002226.02101,"1033,55289010779 ",.01)
 ;;55289010779
 ;;9002226.02101,"1033,55289010779 ",.02)
 ;;55289010779
 ;;9002226.02101,"1033,55289010793 ",.01)
 ;;55289010793
 ;;9002226.02101,"1033,55289010793 ",.02)
 ;;55289010793
 ;;9002226.02101,"1033,55289011003 ",.01)
 ;;55289011003
 ;;9002226.02101,"1033,55289011003 ",.02)
 ;;55289011003
 ;;9002226.02101,"1033,55289011009 ",.01)
 ;;55289011009
 ;;9002226.02101,"1033,55289011009 ",.02)
 ;;55289011009
 ;;9002226.02101,"1033,55289011020 ",.01)
 ;;55289011020
 ;;9002226.02101,"1033,55289011020 ",.02)
 ;;55289011020
 ;;9002226.02101,"1033,55289011028 ",.01)
 ;;55289011028
 ;;9002226.02101,"1033,55289011028 ",.02)
 ;;55289011028
 ;;9002226.02101,"1033,55289011030 ",.01)
 ;;55289011030
 ;;9002226.02101,"1033,55289011030 ",.02)
 ;;55289011030
 ;;9002226.02101,"1033,55289011040 ",.01)
 ;;55289011040
 ;;9002226.02101,"1033,55289011040 ",.02)
 ;;55289011040
 ;;9002226.02101,"1033,55289011056 ",.01)
 ;;55289011056
 ;;9002226.02101,"1033,55289011056 ",.02)
 ;;55289011056
 ;;9002226.02101,"1033,55289011201 ",.01)
 ;;55289011201
 ;;9002226.02101,"1033,55289011201 ",.02)
 ;;55289011201
 ;;9002226.02101,"1033,55289011204 ",.01)
 ;;55289011204
 ;;9002226.02101,"1033,55289011204 ",.02)
 ;;55289011204
 ;;9002226.02101,"1033,55289011210 ",.01)
 ;;55289011210
 ;;9002226.02101,"1033,55289011210 ",.02)
 ;;55289011210
 ;;9002226.02101,"1033,55289011215 ",.01)
 ;;55289011215
 ;;9002226.02101,"1033,55289011215 ",.02)
 ;;55289011215
 ;;9002226.02101,"1033,55289011220 ",.01)
 ;;55289011220
 ;;9002226.02101,"1033,55289011220 ",.02)
 ;;55289011220
 ;;9002226.02101,"1033,55289011228 ",.01)
 ;;55289011228
 ;;9002226.02101,"1033,55289011228 ",.02)
 ;;55289011228
 ;;9002226.02101,"1033,55289011240 ",.01)
 ;;55289011240
 ;;9002226.02101,"1033,55289011240 ",.02)
 ;;55289011240
 ;;9002226.02101,"1033,55289011256 ",.01)
 ;;55289011256
 ;;9002226.02101,"1033,55289011256 ",.02)
 ;;55289011256
 ;;9002226.02101,"1033,55289011298 ",.01)
 ;;55289011298
 ;;9002226.02101,"1033,55289011298 ",.02)
 ;;55289011298
 ;;9002226.02101,"1033,55289018206 ",.01)
 ;;55289018206
 ;;9002226.02101,"1033,55289018206 ",.02)
 ;;55289018206
 ;;9002226.02101,"1033,55289018209 ",.01)
 ;;55289018209
 ;;9002226.02101,"1033,55289018209 ",.02)
 ;;55289018209
 ;;9002226.02101,"1033,55289018214 ",.01)
 ;;55289018214
 ;;9002226.02101,"1033,55289018214 ",.02)
 ;;55289018214
 ;;9002226.02101,"1033,55289018230 ",.01)
 ;;55289018230
 ;;9002226.02101,"1033,55289018230 ",.02)
 ;;55289018230