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

BGPM5AWU.m

Go to the documentation of this file.
BGPM5AWU ;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,66267009128 ",.02)
 ;;66267009128
 ;;9002226.02101,"1033,66267009130 ",.01)
 ;;66267009130
 ;;9002226.02101,"1033,66267009130 ",.02)
 ;;66267009130
 ;;9002226.02101,"1033,66267009140 ",.01)
 ;;66267009140
 ;;9002226.02101,"1033,66267009140 ",.02)
 ;;66267009140
 ;;9002226.02101,"1033,66267015906 ",.01)
 ;;66267015906
 ;;9002226.02101,"1033,66267015906 ",.02)
 ;;66267015906
 ;;9002226.02101,"1033,66267015909 ",.01)
 ;;66267015909
 ;;9002226.02101,"1033,66267015909 ",.02)
 ;;66267015909
 ;;9002226.02101,"1033,66267015910 ",.01)
 ;;66267015910
 ;;9002226.02101,"1033,66267015910 ",.02)
 ;;66267015910
 ;;9002226.02101,"1033,66267015915 ",.01)
 ;;66267015915
 ;;9002226.02101,"1033,66267015915 ",.02)
 ;;66267015915
 ;;9002226.02101,"1033,66267015920 ",.01)
 ;;66267015920
 ;;9002226.02101,"1033,66267015920 ",.02)
 ;;66267015920
 ;;9002226.02101,"1033,66267015925 ",.01)
 ;;66267015925
 ;;9002226.02101,"1033,66267015925 ",.02)
 ;;66267015925
 ;;9002226.02101,"1033,66267015928 ",.01)
 ;;66267015928
 ;;9002226.02101,"1033,66267015928 ",.02)
 ;;66267015928
 ;;9002226.02101,"1033,66267015930 ",.01)
 ;;66267015930
 ;;9002226.02101,"1033,66267015930 ",.02)
 ;;66267015930
 ;;9002226.02101,"1033,66267015940 ",.01)
 ;;66267015940
 ;;9002226.02101,"1033,66267015940 ",.02)
 ;;66267015940
 ;;9002226.02101,"1033,66267015950 ",.01)
 ;;66267015950
 ;;9002226.02101,"1033,66267015950 ",.02)
 ;;66267015950
 ;;9002226.02101,"1033,66267015960 ",.01)
 ;;66267015960
 ;;9002226.02101,"1033,66267015960 ",.02)
 ;;66267015960
 ;;9002226.02101,"1033,66267015990 ",.01)
 ;;66267015990
 ;;9002226.02101,"1033,66267015990 ",.02)
 ;;66267015990
 ;;9002226.02101,"1033,66267016004 ",.01)
 ;;66267016004
 ;;9002226.02101,"1033,66267016004 ",.02)
 ;;66267016004
 ;;9002226.02101,"1033,66267016005 ",.01)
 ;;66267016005
 ;;9002226.02101,"1033,66267016005 ",.02)
 ;;66267016005
 ;;9002226.02101,"1033,66267016006 ",.01)
 ;;66267016006
 ;;9002226.02101,"1033,66267016006 ",.02)
 ;;66267016006
 ;;9002226.02101,"1033,66267016010 ",.01)
 ;;66267016010
 ;;9002226.02101,"1033,66267016010 ",.02)
 ;;66267016010
 ;;9002226.02101,"1033,66267016012 ",.01)
 ;;66267016012
 ;;9002226.02101,"1033,66267016012 ",.02)
 ;;66267016012
 ;;9002226.02101,"1033,66267016015 ",.01)
 ;;66267016015
 ;;9002226.02101,"1033,66267016015 ",.02)
 ;;66267016015
 ;;9002226.02101,"1033,66267016020 ",.01)
 ;;66267016020
 ;;9002226.02101,"1033,66267016020 ",.02)
 ;;66267016020
 ;;9002226.02101,"1033,66267016028 ",.01)
 ;;66267016028
 ;;9002226.02101,"1033,66267016028 ",.02)
 ;;66267016028
 ;;9002226.02101,"1033,66267016030 ",.01)
 ;;66267016030
 ;;9002226.02101,"1033,66267016030 ",.02)
 ;;66267016030
 ;;9002226.02101,"1033,66267016040 ",.01)
 ;;66267016040
 ;;9002226.02101,"1033,66267016040 ",.02)
 ;;66267016040
 ;;9002226.02101,"1033,66267016060 ",.01)
 ;;66267016060
 ;;9002226.02101,"1033,66267016060 ",.02)
 ;;66267016060
 ;;9002226.02101,"1033,66267016090 ",.01)
 ;;66267016090
 ;;9002226.02101,"1033,66267016090 ",.02)
 ;;66267016090
 ;;9002226.02101,"1033,66267019602 ",.01)
 ;;66267019602
 ;;9002226.02101,"1033,66267019602 ",.02)
 ;;66267019602
 ;;9002226.02101,"1033,66267019606 ",.01)
 ;;66267019606
 ;;9002226.02101,"1033,66267019606 ",.02)
 ;;66267019606
 ;;9002226.02101,"1033,66267019610 ",.01)
 ;;66267019610
 ;;9002226.02101,"1033,66267019610 ",.02)
 ;;66267019610
 ;;9002226.02101,"1033,66267019614 ",.01)
 ;;66267019614
 ;;9002226.02101,"1033,66267019614 ",.02)
 ;;66267019614
 ;;9002226.02101,"1033,66267019615 ",.01)
 ;;66267019615
 ;;9002226.02101,"1033,66267019615 ",.02)
 ;;66267019615
 ;;9002226.02101,"1033,66267019620 ",.01)
 ;;66267019620
 ;;9002226.02101,"1033,66267019620 ",.02)
 ;;66267019620
 ;;9002226.02101,"1033,66267019628 ",.01)
 ;;66267019628
 ;;9002226.02101,"1033,66267019628 ",.02)
 ;;66267019628
 ;;9002226.02101,"1033,66267019630 ",.01)
 ;;66267019630
 ;;9002226.02101,"1033,66267019630 ",.02)
 ;;66267019630
 ;;9002226.02101,"1033,66267019640 ",.01)
 ;;66267019640
 ;;9002226.02101,"1033,66267019640 ",.02)
 ;;66267019640
 ;;9002226.02101,"1033,66267019660 ",.01)
 ;;66267019660
 ;;9002226.02101,"1033,66267019660 ",.02)
 ;;66267019660
 ;;9002226.02101,"1033,66267020012 ",.01)
 ;;66267020012
 ;;9002226.02101,"1033,66267020012 ",.02)
 ;;66267020012
 ;;9002226.02101,"1033,66267020028 ",.01)
 ;;66267020028
 ;;9002226.02101,"1033,66267020028 ",.02)
 ;;66267020028
 ;;9002226.02101,"1033,66267020040 ",.01)
 ;;66267020040
 ;;9002226.02101,"1033,66267020040 ",.02)
 ;;66267020040
 ;;9002226.02101,"1033,66267020114 ",.01)
 ;;66267020114
 ;;9002226.02101,"1033,66267020114 ",.02)
 ;;66267020114
 ;;9002226.02101,"1033,66267020120 ",.01)
 ;;66267020120
 ;;9002226.02101,"1033,66267020120 ",.02)
 ;;66267020120
 ;;9002226.02101,"1033,66267020128 ",.01)
 ;;66267020128
 ;;9002226.02101,"1033,66267020128 ",.02)
 ;;66267020128
 ;;9002226.02101,"1033,66267020140 ",.01)
 ;;66267020140
 ;;9002226.02101,"1033,66267020140 ",.02)
 ;;66267020140
 ;;9002226.02101,"1033,66267025614 ",.01)
 ;;66267025614
 ;;9002226.02101,"1033,66267025614 ",.02)
 ;;66267025614
 ;;9002226.02101,"1033,66267025620 ",.01)
 ;;66267025620
 ;;9002226.02101,"1033,66267025620 ",.02)
 ;;66267025620
 ;;9002226.02101,"1033,66267025621 ",.01)
 ;;66267025621
 ;;9002226.02101,"1033,66267025621 ",.02)
 ;;66267025621
 ;;9002226.02101,"1033,66267025630 ",.01)
 ;;66267025630
 ;;9002226.02101,"1033,66267025630 ",.02)
 ;;66267025630
 ;;9002226.02101,"1033,66267025640 ",.01)
 ;;66267025640
 ;;9002226.02101,"1033,66267025640 ",.02)
 ;;66267025640
 ;;9002226.02101,"1033,66267025660 ",.01)
 ;;66267025660
 ;;9002226.02101,"1033,66267025660 ",.02)
 ;;66267025660
 ;;9002226.02101,"1033,66267026215 ",.01)
 ;;66267026215
 ;;9002226.02101,"1033,66267026215 ",.02)
 ;;66267026215
 ;;9002226.02101,"1033,66267026220 ",.01)
 ;;66267026220
 ;;9002226.02101,"1033,66267026220 ",.02)
 ;;66267026220
 ;;9002226.02101,"1033,66267026230 ",.01)
 ;;66267026230
 ;;9002226.02101,"1033,66267026230 ",.02)
 ;;66267026230
 ;;9002226.02101,"1033,66267026240 ",.01)
 ;;66267026240
 ;;9002226.02101,"1033,66267026240 ",.02)
 ;;66267026240
 ;;9002226.02101,"1033,66267026260 ",.01)
 ;;66267026260
 ;;9002226.02101,"1033,66267026260 ",.02)
 ;;66267026260
 ;;9002226.02101,"1033,66267030612 ",.01)
 ;;66267030612
 ;;9002226.02101,"1033,66267030612 ",.02)
 ;;66267030612
 ;;9002226.02101,"1033,66267030620 ",.01)
 ;;66267030620
 ;;9002226.02101,"1033,66267030620 ",.02)
 ;;66267030620
 ;;9002226.02101,"1033,66267030630 ",.01)
 ;;66267030630
 ;;9002226.02101,"1033,66267030630 ",.02)
 ;;66267030630
 ;;9002226.02101,"1033,66267030707 ",.01)
 ;;66267030707
 ;;9002226.02101,"1033,66267030707 ",.02)
 ;;66267030707
 ;;9002226.02101,"1033,66267030710 ",.01)
 ;;66267030710
 ;;9002226.02101,"1033,66267030710 ",.02)
 ;;66267030710
 ;;9002226.02101,"1033,66267030715 ",.01)
 ;;66267030715
 ;;9002226.02101,"1033,66267030715 ",.02)
 ;;66267030715
 ;;9002226.02101,"1033,66267030720 ",.01)
 ;;66267030720
 ;;9002226.02101,"1033,66267030720 ",.02)
 ;;66267030720
 ;;9002226.02101,"1033,66267030730 ",.01)
 ;;66267030730
 ;;9002226.02101,"1033,66267030730 ",.02)
 ;;66267030730
 ;;9002226.02101,"1033,66267031207 ",.01)
 ;;66267031207
 ;;9002226.02101,"1033,66267031207 ",.02)
 ;;66267031207
 ;;9002226.02101,"1033,66267031210 ",.01)
 ;;66267031210
 ;;9002226.02101,"1033,66267031210 ",.02)
 ;;66267031210
 ;;9002226.02101,"1033,66267031215 ",.01)
 ;;66267031215
 ;;9002226.02101,"1033,66267031215 ",.02)
 ;;66267031215
 ;;9002226.02101,"1033,66267031220 ",.01)
 ;;66267031220
 ;;9002226.02101,"1033,66267031220 ",.02)
 ;;66267031220
 ;;9002226.02101,"1033,66267031230 ",.01)
 ;;66267031230
 ;;9002226.02101,"1033,66267031230 ",.02)
 ;;66267031230
 ;;9002226.02101,"1033,66267031240 ",.01)
 ;;66267031240
 ;;9002226.02101,"1033,66267031240 ",.02)
 ;;66267031240
 ;;9002226.02101,"1033,66267031415 ",.01)
 ;;66267031415
 ;;9002226.02101,"1033,66267031415 ",.02)
 ;;66267031415
 ;;9002226.02101,"1033,66267031420 ",.01)
 ;;66267031420
 ;;9002226.02101,"1033,66267031420 ",.02)
 ;;66267031420
 ;;9002226.02101,"1033,66267031430 ",.01)
 ;;66267031430
 ;;9002226.02101,"1033,66267031430 ",.02)
 ;;66267031430
 ;;9002226.02101,"1033,66267031440 ",.01)
 ;;66267031440
 ;;9002226.02101,"1033,66267031440 ",.02)
 ;;66267031440
 ;;9002226.02101,"1033,66267031460 ",.01)
 ;;66267031460
 ;;9002226.02101,"1033,66267031460 ",.02)
 ;;66267031460
 ;;9002226.02101,"1033,66267041610 ",.01)
 ;;66267041610
 ;;9002226.02101,"1033,66267041610 ",.02)
 ;;66267041610
 ;;9002226.02101,"1033,66267041620 ",.01)
 ;;66267041620
 ;;9002226.02101,"1033,66267041620 ",.02)
 ;;66267041620
 ;;9002226.02101,"1033,66267041630 ",.01)
 ;;66267041630
 ;;9002226.02101,"1033,66267041630 ",.02)
 ;;66267041630
 ;;9002226.02101,"1033,66267041640 ",.01)
 ;;66267041640
 ;;9002226.02101,"1033,66267041640 ",.02)
 ;;66267041640
 ;;9002226.02101,"1033,66267041660 ",.01)
 ;;66267041660
 ;;9002226.02101,"1033,66267041660 ",.02)
 ;;66267041660
 ;;9002226.02101,"1033,66267042315 ",.01)
 ;;66267042315
 ;;9002226.02101,"1033,66267042315 ",.02)
 ;;66267042315
 ;;9002226.02101,"1033,66267042320 ",.01)
 ;;66267042320
 ;;9002226.02101,"1033,66267042320 ",.02)
 ;;66267042320
 ;;9002226.02101,"1033,66267042330 ",.01)
 ;;66267042330
 ;;9002226.02101,"1033,66267042330 ",.02)
 ;;66267042330
 ;;9002226.02101,"1033,66267042340 ",.01)
 ;;66267042340
 ;;9002226.02101,"1033,66267042340 ",.02)
 ;;66267042340
 ;;9002226.02101,"1033,66267042360 ",.01)
 ;;66267042360
 ;;9002226.02101,"1033,66267042360 ",.02)
 ;;66267042360
 ;;9002226.02101,"1033,66267045506 ",.01)
 ;;66267045506
 ;;9002226.02101,"1033,66267045506 ",.02)
 ;;66267045506
 ;;9002226.02101,"1033,66267045510 ",.01)
 ;;66267045510
 ;;9002226.02101,"1033,66267045510 ",.02)
 ;;66267045510
 ;;9002226.02101,"1033,66267045520 ",.01)
 ;;66267045520
 ;;9002226.02101,"1033,66267045520 ",.02)
 ;;66267045520
 ;;9002226.02101,"1033,66267045530 ",.01)
 ;;66267045530
 ;;9002226.02101,"1033,66267045530 ",.02)
 ;;66267045530
 ;;9002226.02101,"1033,66267045540 ",.01)
 ;;66267045540
 ;;9002226.02101,"1033,66267045540 ",.02)
 ;;66267045540
 ;;9002226.02101,"1033,66267050410 ",.01)
 ;;66267050410
 ;;9002226.02101,"1033,66267050410 ",.02)
 ;;66267050410
 ;;9002226.02101,"1033,66267050420 ",.01)
 ;;66267050420
 ;;9002226.02101,"1033,66267050420 ",.02)
 ;;66267050420
 ;;9002226.02101,"1033,66267050430 ",.01)
 ;;66267050430
 ;;9002226.02101,"1033,66267050430 ",.02)
 ;;66267050430
 ;;9002226.02101,"1033,66267050440 ",.01)
 ;;66267050440
 ;;9002226.02101,"1033,66267050440 ",.02)
 ;;66267050440
 ;;9002226.02101,"1033,66267050450 ",.01)
 ;;66267050450
 ;;9002226.02101,"1033,66267050450 ",.02)
 ;;66267050450
 ;;9002226.02101,"1033,66267054903 ",.01)
 ;;66267054903
 ;;9002226.02101,"1033,66267054903 ",.02)
 ;;66267054903
 ;;9002226.02101,"1033,66267054914 ",.01)
 ;;66267054914
 ;;9002226.02101,"1033,66267054914 ",.02)
 ;;66267054914
 ;;9002226.02101,"1033,66267054915 ",.01)
 ;;66267054915
 ;;9002226.02101,"1033,66267054915 ",.02)
 ;;66267054915
 ;;9002226.02101,"1033,66267054920 ",.01)
 ;;66267054920
 ;;9002226.02101,"1033,66267054920 ",.02)
 ;;66267054920
 ;;9002226.02101,"1033,66267054930 ",.01)
 ;;66267054930
 ;;9002226.02101,"1033,66267054930 ",.02)
 ;;66267054930
 ;;9002226.02101,"1033,66267054940 ",.01)
 ;;66267054940
 ;;9002226.02101,"1033,66267054940 ",.02)
 ;;66267054940
 ;;9002226.02101,"1033,66267055915 ",.01)
 ;;66267055915
 ;;9002226.02101,"1033,66267055915 ",.02)
 ;;66267055915