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

BGPM5AWW.m

Go to the documentation of this file.
BGPM5AWW ;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,66336002220 ",.02)
 ;;66336002220
 ;;9002226.02101,"1033,66336005506 ",.01)
 ;;66336005506
 ;;9002226.02101,"1033,66336005506 ",.02)
 ;;66336005506
 ;;9002226.02101,"1033,66336005508 ",.01)
 ;;66336005508
 ;;9002226.02101,"1033,66336005508 ",.02)
 ;;66336005508
 ;;9002226.02101,"1033,66336005510 ",.01)
 ;;66336005510
 ;;9002226.02101,"1033,66336005510 ",.02)
 ;;66336005510
 ;;9002226.02101,"1033,66336005514 ",.01)
 ;;66336005514
 ;;9002226.02101,"1033,66336005514 ",.02)
 ;;66336005514
 ;;9002226.02101,"1033,66336005520 ",.01)
 ;;66336005520
 ;;9002226.02101,"1033,66336005520 ",.02)
 ;;66336005520
 ;;9002226.02101,"1033,66336005528 ",.01)
 ;;66336005528
 ;;9002226.02101,"1033,66336005528 ",.02)
 ;;66336005528
 ;;9002226.02101,"1033,66336005530 ",.01)
 ;;66336005530
 ;;9002226.02101,"1033,66336005530 ",.02)
 ;;66336005530
 ;;9002226.02101,"1033,66336005540 ",.01)
 ;;66336005540
 ;;9002226.02101,"1033,66336005540 ",.02)
 ;;66336005540
 ;;9002226.02101,"1033,66336007420 ",.01)
 ;;66336007420
 ;;9002226.02101,"1033,66336007420 ",.02)
 ;;66336007420
 ;;9002226.02101,"1033,663360077 ",.01)
 ;;663360077
 ;;9002226.02101,"1033,663360077 ",.02)
 ;;663360077
 ;;9002226.02101,"1033,66336007720 ",.01)
 ;;66336007720
 ;;9002226.02101,"1033,66336007720 ",.02)
 ;;66336007720
 ;;9002226.02101,"1033,66336007728 ",.01)
 ;;66336007728
 ;;9002226.02101,"1033,66336007728 ",.02)
 ;;66336007728
 ;;9002226.02101,"1033,66336008706 ",.01)
 ;;66336008706
 ;;9002226.02101,"1033,66336008706 ",.02)
 ;;66336008706
 ;;9002226.02101,"1033,66336008710 ",.01)
 ;;66336008710
 ;;9002226.02101,"1033,66336008710 ",.02)
 ;;66336008710
 ;;9002226.02101,"1033,66336008714 ",.01)
 ;;66336008714
 ;;9002226.02101,"1033,66336008714 ",.02)
 ;;66336008714
 ;;9002226.02101,"1033,66336008720 ",.01)
 ;;66336008720
 ;;9002226.02101,"1033,66336008720 ",.02)
 ;;66336008720
 ;;9002226.02101,"1033,66336008740 ",.01)
 ;;66336008740
 ;;9002226.02101,"1033,66336008740 ",.02)
 ;;66336008740
 ;;9002226.02101,"1033,66336008760 ",.01)
 ;;66336008760
 ;;9002226.02101,"1033,66336008760 ",.02)
 ;;66336008760
 ;;9002226.02101,"1033,66336009506 ",.01)
 ;;66336009506
 ;;9002226.02101,"1033,66336009506 ",.02)
 ;;66336009506
 ;;9002226.02101,"1033,66336009510 ",.01)
 ;;66336009510
 ;;9002226.02101,"1033,66336009510 ",.02)
 ;;66336009510
 ;;9002226.02101,"1033,66336009520 ",.01)
 ;;66336009520
 ;;9002226.02101,"1033,66336009520 ",.02)
 ;;66336009520
 ;;9002226.02101,"1033,66336009528 ",.01)
 ;;66336009528
 ;;9002226.02101,"1033,66336009528 ",.02)
 ;;66336009528
 ;;9002226.02101,"1033,66336009530 ",.01)
 ;;66336009530
 ;;9002226.02101,"1033,66336009530 ",.02)
 ;;66336009530
 ;;9002226.02101,"1033,66336009540 ",.01)
 ;;66336009540
 ;;9002226.02101,"1033,66336009540 ",.02)
 ;;66336009540
 ;;9002226.02101,"1033,66336010420 ",.01)
 ;;66336010420
 ;;9002226.02101,"1033,66336010420 ",.02)
 ;;66336010420
 ;;9002226.02101,"1033,66336010840 ",.01)
 ;;66336010840
 ;;9002226.02101,"1033,66336010840 ",.02)
 ;;66336010840
 ;;9002226.02101,"1033,66336010914 ",.01)
 ;;66336010914
 ;;9002226.02101,"1033,66336010914 ",.02)
 ;;66336010914
 ;;9002226.02101,"1033,66336010920 ",.01)
 ;;66336010920
 ;;9002226.02101,"1033,66336010920 ",.02)
 ;;66336010920
 ;;9002226.02101,"1033,66336010928 ",.01)
 ;;66336010928
 ;;9002226.02101,"1033,66336010928 ",.02)
 ;;66336010928
 ;;9002226.02101,"1033,66336010930 ",.01)
 ;;66336010930
 ;;9002226.02101,"1033,66336010930 ",.02)
 ;;66336010930
 ;;9002226.02101,"1033,66336010950 ",.01)
 ;;66336010950
 ;;9002226.02101,"1033,66336010950 ",.02)
 ;;66336010950
 ;;9002226.02101,"1033,66336010960 ",.01)
 ;;66336010960
 ;;9002226.02101,"1033,66336010960 ",.02)
 ;;66336010960
 ;;9002226.02101,"1033,66336011330 ",.01)
 ;;66336011330
 ;;9002226.02101,"1033,66336011330 ",.02)
 ;;66336011330
 ;;9002226.02101,"1033,66336020230 ",.01)
 ;;66336020230
 ;;9002226.02101,"1033,66336020230 ",.02)
 ;;66336020230
 ;;9002226.02101,"1033,66336022920 ",.01)
 ;;66336022920
 ;;9002226.02101,"1033,66336022920 ",.02)
 ;;66336022920
 ;;9002226.02101,"1033,66336022956 ",.01)
 ;;66336022956
 ;;9002226.02101,"1033,66336022956 ",.02)
 ;;66336022956
 ;;9002226.02101,"1033,66336022984 ",.01)
 ;;66336022984
 ;;9002226.02101,"1033,66336022984 ",.02)
 ;;66336022984
 ;;9002226.02101,"1033,66336029330 ",.01)
 ;;66336029330
 ;;9002226.02101,"1033,66336029330 ",.02)
 ;;66336029330
 ;;9002226.02101,"1033,66336034720 ",.01)
 ;;66336034720
 ;;9002226.02101,"1033,66336034720 ",.02)
 ;;66336034720
 ;;9002226.02101,"1033,66336036920 ",.01)
 ;;66336036920
 ;;9002226.02101,"1033,66336036920 ",.02)
 ;;66336036920
 ;;9002226.02101,"1033,66336041420 ",.01)
 ;;66336041420
 ;;9002226.02101,"1033,66336041420 ",.02)
 ;;66336041420
 ;;9002226.02101,"1033,66336041428 ",.01)
 ;;66336041428
 ;;9002226.02101,"1033,66336041428 ",.02)
 ;;66336041428
 ;;9002226.02101,"1033,66336041440 ",.01)
 ;;66336041440
 ;;9002226.02101,"1033,66336041440 ",.02)
 ;;66336041440
 ;;9002226.02101,"1033,66336043314 ",.01)
 ;;66336043314
 ;;9002226.02101,"1033,66336043314 ",.02)
 ;;66336043314
 ;;9002226.02101,"1033,66336043520 ",.01)
 ;;66336043520
 ;;9002226.02101,"1033,66336043520 ",.02)
 ;;66336043520
 ;;9002226.02101,"1033,66336043530 ",.01)
 ;;66336043530
 ;;9002226.02101,"1033,66336043530 ",.02)
 ;;66336043530
 ;;9002226.02101,"1033,66336043540 ",.01)
 ;;66336043540
 ;;9002226.02101,"1033,66336043540 ",.02)
 ;;66336043540
 ;;9002226.02101,"1033,66336043560 ",.01)
 ;;66336043560
 ;;9002226.02101,"1033,66336043560 ",.02)
 ;;66336043560
 ;;9002226.02101,"1033,66336044103 ",.01)
 ;;66336044103
 ;;9002226.02101,"1033,66336044103 ",.02)
 ;;66336044103
 ;;9002226.02101,"1033,66336044106 ",.01)
 ;;66336044106
 ;;9002226.02101,"1033,66336044106 ",.02)
 ;;66336044106
 ;;9002226.02101,"1033,66336044108 ",.01)
 ;;66336044108
 ;;9002226.02101,"1033,66336044108 ",.02)
 ;;66336044108
 ;;9002226.02101,"1033,66336044120 ",.01)
 ;;66336044120
 ;;9002226.02101,"1033,66336044120 ",.02)
 ;;66336044120
 ;;9002226.02101,"1033,66336044128 ",.01)
 ;;66336044128
 ;;9002226.02101,"1033,66336044128 ",.02)
 ;;66336044128
 ;;9002226.02101,"1033,66336044140 ",.01)
 ;;66336044140
 ;;9002226.02101,"1033,66336044140 ",.02)
 ;;66336044140
 ;;9002226.02101,"1033,66336044914 ",.01)
 ;;66336044914
 ;;9002226.02101,"1033,66336044914 ",.02)
 ;;66336044914
 ;;9002226.02101,"1033,66336044920 ",.01)
 ;;66336044920
 ;;9002226.02101,"1033,66336044920 ",.02)
 ;;66336044920
 ;;9002226.02101,"1033,66336045430 ",.01)
 ;;66336045430
 ;;9002226.02101,"1033,66336045430 ",.02)
 ;;66336045430
 ;;9002226.02101,"1033,66336048020 ",.01)
 ;;66336048020
 ;;9002226.02101,"1033,66336048020 ",.02)
 ;;66336048020
 ;;9002226.02101,"1033,66336048040 ",.01)
 ;;66336048040
 ;;9002226.02101,"1033,66336048040 ",.02)
 ;;66336048040
 ;;9002226.02101,"1033,66336051020 ",.01)
 ;;66336051020
 ;;9002226.02101,"1033,66336051020 ",.02)
 ;;66336051020
 ;;9002226.02101,"1033,66336051050 ",.01)
 ;;66336051050
 ;;9002226.02101,"1033,66336051050 ",.02)
 ;;66336051050
 ;;9002226.02101,"1033,66336051130 ",.01)
 ;;66336051130
 ;;9002226.02101,"1033,66336051130 ",.02)
 ;;66336051130
 ;;9002226.02101,"1033,66336052430 ",.01)
 ;;66336052430
 ;;9002226.02101,"1033,66336052430 ",.02)
 ;;66336052430
 ;;9002226.02101,"1033,66336052520 ",.01)
 ;;66336052520
 ;;9002226.02101,"1033,66336052520 ",.02)
 ;;66336052520
 ;;9002226.02101,"1033,66336052630 ",.01)
 ;;66336052630
 ;;9002226.02101,"1033,66336052630 ",.02)
 ;;66336052630
 ;;9002226.02101,"1033,66336052720 ",.01)
 ;;66336052720
 ;;9002226.02101,"1033,66336052720 ",.02)
 ;;66336052720
 ;;9002226.02101,"1033,66336058375 ",.01)
 ;;66336058375
 ;;9002226.02101,"1033,66336058375 ",.02)
 ;;66336058375
 ;;9002226.02101,"1033,66336059328 ",.01)
 ;;66336059328
 ;;9002226.02101,"1033,66336059328 ",.02)
 ;;66336059328
 ;;9002226.02101,"1033,66336059330 ",.01)
 ;;66336059330
 ;;9002226.02101,"1033,66336059330 ",.02)
 ;;66336059330
 ;;9002226.02101,"1033,66336059340 ",.01)
 ;;66336059340
 ;;9002226.02101,"1033,66336059340 ",.02)
 ;;66336059340
 ;;9002226.02101,"1033,66336060906 ",.01)
 ;;66336060906
 ;;9002226.02101,"1033,66336060906 ",.02)
 ;;66336060906
 ;;9002226.02101,"1033,66336060912 ",.01)
 ;;66336060912
 ;;9002226.02101,"1033,66336060912 ",.02)
 ;;66336060912
 ;;9002226.02101,"1033,66336060920 ",.01)
 ;;66336060920
 ;;9002226.02101,"1033,66336060920 ",.02)
 ;;66336060920
 ;;9002226.02101,"1033,66336060928 ",.01)
 ;;66336060928
 ;;9002226.02101,"1033,66336060928 ",.02)
 ;;66336060928
 ;;9002226.02101,"1033,66336060930 ",.01)
 ;;66336060930
 ;;9002226.02101,"1033,66336060930 ",.02)
 ;;66336060930
 ;;9002226.02101,"1033,66336060940 ",.01)
 ;;66336060940
 ;;9002226.02101,"1033,66336060940 ",.02)
 ;;66336060940
 ;;9002226.02101,"1033,66336061720 ",.01)
 ;;66336061720
 ;;9002226.02101,"1033,66336061720 ",.02)
 ;;66336061720
 ;;9002226.02101,"1033,66336063408 ",.01)
 ;;66336063408
 ;;9002226.02101,"1033,66336063408 ",.02)
 ;;66336063408
 ;;9002226.02101,"1033,66336063415 ",.01)
 ;;66336063415
 ;;9002226.02101,"1033,66336063415 ",.02)
 ;;66336063415
 ;;9002226.02101,"1033,66336063421 ",.01)
 ;;66336063421
 ;;9002226.02101,"1033,66336063421 ",.02)
 ;;66336063421
 ;;9002226.02101,"1033,66336063430 ",.01)
 ;;66336063430
 ;;9002226.02101,"1033,66336063430 ",.02)
 ;;66336063430
 ;;9002226.02101,"1033,66336063440 ",.01)
 ;;66336063440
 ;;9002226.02101,"1033,66336063440 ",.02)
 ;;66336063440
 ;;9002226.02101,"1033,66336063442 ",.01)
 ;;66336063442
 ;;9002226.02101,"1033,66336063442 ",.02)
 ;;66336063442
 ;;9002226.02101,"1033,66336064528 ",.01)
 ;;66336064528
 ;;9002226.02101,"1033,66336064528 ",.02)
 ;;66336064528
 ;;9002226.02101,"1033,66336064840 ",.01)
 ;;66336064840
 ;;9002226.02101,"1033,66336064840 ",.02)
 ;;66336064840
 ;;9002226.02101,"1033,66336065520 ",.01)
 ;;66336065520
 ;;9002226.02101,"1033,66336065520 ",.02)
 ;;66336065520
 ;;9002226.02101,"1033,66336065521 ",.01)
 ;;66336065521
 ;;9002226.02101,"1033,66336065521 ",.02)
 ;;66336065521
 ;;9002226.02101,"1033,66336065530 ",.01)
 ;;66336065530
 ;;9002226.02101,"1033,66336065530 ",.02)
 ;;66336065530
 ;;9002226.02101,"1033,66336090310 ",.01)
 ;;66336090310
 ;;9002226.02101,"1033,66336090310 ",.02)
 ;;66336090310
 ;;9002226.02101,"1033,66336090314 ",.01)
 ;;66336090314
 ;;9002226.02101,"1033,66336090314 ",.02)
 ;;66336090314
 ;;9002226.02101,"1033,66336090320 ",.01)
 ;;66336090320
 ;;9002226.02101,"1033,66336090320 ",.02)
 ;;66336090320
 ;;9002226.02101,"1033,66336090328 ",.01)
 ;;66336090328
 ;;9002226.02101,"1033,66336090328 ",.02)
 ;;66336090328
 ;;9002226.02101,"1033,66336090399 ",.01)
 ;;66336090399
 ;;9002226.02101,"1033,66336090399 ",.02)
 ;;66336090399
 ;;9002226.02101,"1033,66336090628 ",.01)
 ;;66336090628
 ;;9002226.02101,"1033,66336090628 ",.02)
 ;;66336090628
 ;;9002226.02101,"1033,66336090630 ",.01)
 ;;66336090630
 ;;9002226.02101,"1033,66336090630 ",.02)
 ;;66336090630
 ;;9002226.02101,"1033,66406004901 ",.01)
 ;;66406004901
 ;;9002226.02101,"1033,66406004901 ",.02)
 ;;66406004901
 ;;9002226.02101,"1033,66406004909 ",.01)
 ;;66406004909
 ;;9002226.02101,"1033,66406004909 ",.02)
 ;;66406004909
 ;;9002226.02101,"1033,66406005303 ",.01)
 ;;66406005303
 ;;9002226.02101,"1033,66406005303 ",.02)
 ;;66406005303
 ;;9002226.02101,"1033,66466001000 ",.01)
 ;;66466001000
 ;;9002226.02101,"1033,66466001000 ",.02)
 ;;66466001000
 ;;9002226.02101,"1033,66466001001 ",.01)
 ;;66466001001
 ;;9002226.02101,"1033,66466001001 ",.02)
 ;;66466001001