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

BGPM5AWE.m

Go to the documentation of this file.
BGPM5AWE ;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,60429074301 ",.02)
 ;;60429074301
 ;;9002226.02101,"1033,60429074305 ",.01)
 ;;60429074305
 ;;9002226.02101,"1033,60429074305 ",.02)
 ;;60429074305
 ;;9002226.02101,"1033,60429074320 ",.01)
 ;;60429074320
 ;;9002226.02101,"1033,60429074320 ",.02)
 ;;60429074320
 ;;9002226.02101,"1033,60429074401 ",.01)
 ;;60429074401
 ;;9002226.02101,"1033,60429074401 ",.02)
 ;;60429074401
 ;;9002226.02101,"1033,60432006500 ",.01)
 ;;60432006500
 ;;9002226.02101,"1033,60432006500 ",.02)
 ;;60432006500
 ;;9002226.02101,"1033,60432006547 ",.01)
 ;;60432006547
 ;;9002226.02101,"1033,60432006547 ",.02)
 ;;60432006547
 ;;9002226.02101,"1033,60432006575 ",.01)
 ;;60432006575
 ;;9002226.02101,"1033,60432006575 ",.02)
 ;;60432006575
 ;;9002226.02101,"1033,60432069330 ",.01)
 ;;60432069330
 ;;9002226.02101,"1033,60432069330 ",.02)
 ;;60432069330
 ;;9002226.02101,"1033,60432069360 ",.01)
 ;;60432069360
 ;;9002226.02101,"1033,60432069360 ",.02)
 ;;60432069360
 ;;9002226.02101,"1033,60505067905 ",.01)
 ;;60505067905
 ;;9002226.02101,"1033,60505067905 ",.02)
 ;;60505067905
 ;;9002226.02101,"1033,60505067908 ",.01)
 ;;60505067908
 ;;9002226.02101,"1033,60505067908 ",.02)
 ;;60505067908
 ;;9002226.02101,"1033,60505067909 ",.01)
 ;;60505067909
 ;;9002226.02101,"1033,60505067909 ",.02)
 ;;60505067909
 ;;9002226.02101,"1033,60505068002 ",.01)
 ;;60505068002
 ;;9002226.02101,"1033,60505068002 ",.02)
 ;;60505068002
 ;;9002226.02101,"1033,60505068005 ",.01)
 ;;60505068005
 ;;9002226.02101,"1033,60505068005 ",.02)
 ;;60505068005
 ;;9002226.02101,"1033,60505074804 ",.01)
 ;;60505074804
 ;;9002226.02101,"1033,60505074804 ",.02)
 ;;60505074804
 ;;9002226.02101,"1033,60505074805 ",.01)
 ;;60505074805
 ;;9002226.02101,"1033,60505074805 ",.02)
 ;;60505074805
 ;;9002226.02101,"1033,60505074904 ",.01)
 ;;60505074904
 ;;9002226.02101,"1033,60505074904 ",.02)
 ;;60505074904
 ;;9002226.02101,"1033,60505074905 ",.01)
 ;;60505074905
 ;;9002226.02101,"1033,60505074905 ",.02)
 ;;60505074905
 ;;9002226.02101,"1033,60505075000 ",.01)
 ;;60505075000
 ;;9002226.02101,"1033,60505075000 ",.02)
 ;;60505075000
 ;;9002226.02101,"1033,60505075004 ",.01)
 ;;60505075004
 ;;9002226.02101,"1033,60505075004 ",.02)
 ;;60505075004
 ;;9002226.02101,"1033,60505075100 ",.01)
 ;;60505075100
 ;;9002226.02101,"1033,60505075100 ",.02)
 ;;60505075100
 ;;9002226.02101,"1033,60505075104 ",.01)
 ;;60505075104
 ;;9002226.02101,"1033,60505075104 ",.02)
 ;;60505075104
 ;;9002226.02101,"1033,60505075200 ",.01)
 ;;60505075200
 ;;9002226.02101,"1033,60505075200 ",.02)
 ;;60505075200
 ;;9002226.02101,"1033,60505075204 ",.01)
 ;;60505075204
 ;;9002226.02101,"1033,60505075204 ",.02)
 ;;60505075204
 ;;9002226.02101,"1033,60505075300 ",.01)
 ;;60505075300
 ;;9002226.02101,"1033,60505075300 ",.02)
 ;;60505075300
 ;;9002226.02101,"1033,60505075304 ",.01)
 ;;60505075304
 ;;9002226.02101,"1033,60505075304 ",.02)
 ;;60505075304
 ;;9002226.02101,"1033,60505076900 ",.01)
 ;;60505076900
 ;;9002226.02101,"1033,60505076900 ",.02)
 ;;60505076900
 ;;9002226.02101,"1033,60505120100 ",.01)
 ;;60505120100
 ;;9002226.02101,"1033,60505120100 ",.02)
 ;;60505120100
 ;;9002226.02101,"1033,60505120103 ",.01)
 ;;60505120103
 ;;9002226.02101,"1033,60505120103 ",.02)
 ;;60505120103
 ;;9002226.02101,"1033,60505120200 ",.01)
 ;;60505120200
 ;;9002226.02101,"1033,60505120200 ",.02)
 ;;60505120200
 ;;9002226.02101,"1033,60505120203 ",.01)
 ;;60505120203
 ;;9002226.02101,"1033,60505120203 ",.02)
 ;;60505120203
 ;;9002226.02101,"1033,60505130801 ",.01)
 ;;60505130801
 ;;9002226.02101,"1033,60505130801 ",.02)
 ;;60505130801
 ;;9002226.02101,"1033,60505130802 ",.01)
 ;;60505130802
 ;;9002226.02101,"1033,60505130802 ",.02)
 ;;60505130802
 ;;9002226.02101,"1033,60505130808 ",.01)
 ;;60505130808
 ;;9002226.02101,"1033,60505130808 ",.02)
 ;;60505130808
 ;;9002226.02101,"1033,60505130901 ",.01)
 ;;60505130901
 ;;9002226.02101,"1033,60505130901 ",.02)
 ;;60505130901
 ;;9002226.02101,"1033,60505130902 ",.01)
 ;;60505130902
 ;;9002226.02101,"1033,60505130902 ",.02)
 ;;60505130902
 ;;9002226.02101,"1033,60505130907 ",.01)
 ;;60505130907
 ;;9002226.02101,"1033,60505130907 ",.02)
 ;;60505130907
 ;;9002226.02101,"1033,60505130908 ",.01)
 ;;60505130908
 ;;9002226.02101,"1033,60505130908 ",.02)
 ;;60505130908
 ;;9002226.02101,"1033,60505131001 ",.01)
 ;;60505131001
 ;;9002226.02101,"1033,60505131001 ",.02)
 ;;60505131001
 ;;9002226.02101,"1033,60505131002 ",.01)
 ;;60505131002
 ;;9002226.02101,"1033,60505131002 ",.02)
 ;;60505131002
 ;;9002226.02101,"1033,60505131004 ",.01)
 ;;60505131004
 ;;9002226.02101,"1033,60505131004 ",.02)
 ;;60505131004
 ;;9002226.02101,"1033,60505131005 ",.01)
 ;;60505131005
 ;;9002226.02101,"1033,60505131005 ",.02)
 ;;60505131005
 ;;9002226.02101,"1033,60505253201 ",.01)
 ;;60505253201
 ;;9002226.02101,"1033,60505253201 ",.02)
 ;;60505253201
 ;;9002226.02101,"1033,60505253203 ",.01)
 ;;60505253203
 ;;9002226.02101,"1033,60505253203 ",.02)
 ;;60505253203
 ;;9002226.02101,"1033,60505253205 ",.01)
 ;;60505253205
 ;;9002226.02101,"1033,60505253205 ",.02)
 ;;60505253205
 ;;9002226.02101,"1033,60505253208 ",.01)
 ;;60505253208
 ;;9002226.02101,"1033,60505253208 ",.02)
 ;;60505253208
 ;;9002226.02101,"1033,60505253301 ",.01)
 ;;60505253301
 ;;9002226.02101,"1033,60505253301 ",.02)
 ;;60505253301
 ;;9002226.02101,"1033,60505253303 ",.01)
 ;;60505253303
 ;;9002226.02101,"1033,60505253303 ",.02)
 ;;60505253303
 ;;9002226.02101,"1033,60505253305 ",.01)
 ;;60505253305
 ;;9002226.02101,"1033,60505253305 ",.02)
 ;;60505253305
 ;;9002226.02101,"1033,60505253308 ",.01)
 ;;60505253308
 ;;9002226.02101,"1033,60505253308 ",.02)
 ;;60505253308
 ;;9002226.02101,"1033,60505253902 ",.01)
 ;;60505253902
 ;;9002226.02101,"1033,60505253902 ",.02)
 ;;60505253902
 ;;9002226.02101,"1033,60505253903 ",.01)
 ;;60505253903
 ;;9002226.02101,"1033,60505253903 ",.02)
 ;;60505253903
 ;;9002226.02101,"1033,60505253905 ",.01)
 ;;60505253905
 ;;9002226.02101,"1033,60505253905 ",.02)
 ;;60505253905
 ;;9002226.02101,"1033,60505254002 ",.01)
 ;;60505254002
 ;;9002226.02101,"1033,60505254002 ",.02)
 ;;60505254002
 ;;9002226.02101,"1033,60505254003 ",.01)
 ;;60505254003
 ;;9002226.02101,"1033,60505254003 ",.02)
 ;;60505254003
 ;;9002226.02101,"1033,60505254005 ",.01)
 ;;60505254005
 ;;9002226.02101,"1033,60505254005 ",.02)
 ;;60505254005
 ;;9002226.02101,"1033,60505254102 ",.01)
 ;;60505254102
 ;;9002226.02101,"1033,60505254102 ",.02)
 ;;60505254102
 ;;9002226.02101,"1033,60505254103 ",.01)
 ;;60505254103
 ;;9002226.02101,"1033,60505254103 ",.02)
 ;;60505254103
 ;;9002226.02101,"1033,60505254105 ",.01)
 ;;60505254105
 ;;9002226.02101,"1033,60505254105 ",.02)
 ;;60505254105
 ;;9002226.02101,"1033,60505257302 ",.01)
 ;;60505257302
 ;;9002226.02101,"1033,60505257302 ",.02)
 ;;60505257302
 ;;9002226.02101,"1033,60505257305 ",.01)
 ;;60505257305
 ;;9002226.02101,"1033,60505257305 ",.02)
 ;;60505257305
 ;;9002226.02101,"1033,60505257307 ",.01)
 ;;60505257307
 ;;9002226.02101,"1033,60505257307 ",.02)
 ;;60505257307
 ;;9002226.02101,"1033,60505257402 ",.01)
 ;;60505257402
 ;;9002226.02101,"1033,60505257402 ",.02)
 ;;60505257402
 ;;9002226.02101,"1033,60505257405 ",.01)
 ;;60505257405
 ;;9002226.02101,"1033,60505257405 ",.02)
 ;;60505257405
 ;;9002226.02101,"1033,60505257407 ",.01)
 ;;60505257407
 ;;9002226.02101,"1033,60505257407 ",.02)
 ;;60505257407
 ;;9002226.02101,"1033,60505258100 ",.01)
 ;;60505258100
 ;;9002226.02101,"1033,60505258100 ",.02)
 ;;60505258100
 ;;9002226.02101,"1033,60505258102 ",.01)
 ;;60505258102
 ;;9002226.02101,"1033,60505258102 ",.02)
 ;;60505258102
 ;;9002226.02101,"1033,60505258103 ",.01)
 ;;60505258103
 ;;9002226.02101,"1033,60505258103 ",.02)
 ;;60505258103
 ;;9002226.02101,"1033,60505258105 ",.01)
 ;;60505258105
 ;;9002226.02101,"1033,60505258105 ",.02)
 ;;60505258105
 ;;9002226.02101,"1033,60505261500 ",.01)
 ;;60505261500
 ;;9002226.02101,"1033,60505261500 ",.02)
 ;;60505261500
 ;;9002226.02101,"1033,60505261501 ",.01)
 ;;60505261501
 ;;9002226.02101,"1033,60505261501 ",.02)
 ;;60505261501
 ;;9002226.02101,"1033,60505261503 ",.01)
 ;;60505261503
 ;;9002226.02101,"1033,60505261503 ",.02)
 ;;60505261503
 ;;9002226.02101,"1033,60505261505 ",.01)
 ;;60505261505
 ;;9002226.02101,"1033,60505261505 ",.02)
 ;;60505261505
 ;;9002226.02101,"1033,60505261506 ",.01)
 ;;60505261506
 ;;9002226.02101,"1033,60505261506 ",.02)
 ;;60505261506
 ;;9002226.02101,"1033,60505261600 ",.01)
 ;;60505261600
 ;;9002226.02101,"1033,60505261600 ",.02)
 ;;60505261600
 ;;9002226.02101,"1033,60505261601 ",.01)
 ;;60505261601
 ;;9002226.02101,"1033,60505261601 ",.02)
 ;;60505261601
 ;;9002226.02101,"1033,60505261603 ",.01)
 ;;60505261603
 ;;9002226.02101,"1033,60505261603 ",.02)
 ;;60505261603
 ;;9002226.02101,"1033,60505261606 ",.01)
 ;;60505261606
 ;;9002226.02101,"1033,60505261606 ",.02)
 ;;60505261606
 ;;9002226.02101,"1033,60505261608 ",.01)
 ;;60505261608
 ;;9002226.02101,"1033,60505261608 ",.02)
 ;;60505261608
 ;;9002226.02101,"1033,60505261802 ",.01)
 ;;60505261802
 ;;9002226.02101,"1033,60505261802 ",.02)
 ;;60505261802
 ;;9002226.02101,"1033,60505261806 ",.01)
 ;;60505261806
 ;;9002226.02101,"1033,60505261806 ",.02)
 ;;60505261806
 ;;9002226.02101,"1033,60505268102 ",.01)
 ;;60505268102
 ;;9002226.02101,"1033,60505268102 ",.02)
 ;;60505268102
 ;;9002226.02101,"1033,60505268106 ",.01)
 ;;60505268106
 ;;9002226.02101,"1033,60505268106 ",.02)
 ;;60505268106
 ;;9002226.02101,"1033,60505268201 ",.01)
 ;;60505268201
 ;;9002226.02101,"1033,60505268201 ",.02)
 ;;60505268201
 ;;9002226.02101,"1033,60505268202 ",.01)
 ;;60505268202
 ;;9002226.02101,"1033,60505268202 ",.02)
 ;;60505268202
 ;;9002226.02101,"1033,60505268206 ",.01)
 ;;60505268206
 ;;9002226.02101,"1033,60505268206 ",.02)
 ;;60505268206
 ;;9002226.02101,"1033,60505607604 ",.01)
 ;;60505607604
 ;;9002226.02101,"1033,60505607604 ",.02)
 ;;60505607604
 ;;9002226.02101,"1033,60505608701 ",.01)
 ;;60505608701
 ;;9002226.02101,"1033,60505608701 ",.02)
 ;;60505608701
 ;;9002226.02101,"1033,60505608801 ",.01)
 ;;60505608801
 ;;9002226.02101,"1033,60505608801 ",.02)
 ;;60505608801
 ;;9002226.02101,"1033,60758090810 ",.01)
 ;;60758090810
 ;;9002226.02101,"1033,60758090810 ",.02)
 ;;60758090810
 ;;9002226.02101,"1033,60760000820 ",.01)
 ;;60760000820
 ;;9002226.02101,"1033,60760000820 ",.02)
 ;;60760000820
 ;;9002226.02101,"1033,60760000821 ",.01)
 ;;60760000821
 ;;9002226.02101,"1033,60760000821 ",.02)
 ;;60760000821
 ;;9002226.02101,"1033,60760000828 ",.01)
 ;;60760000828
 ;;9002226.02101,"1033,60760000828 ",.02)
 ;;60760000828
 ;;9002226.02101,"1033,60760000830 ",.01)
 ;;60760000830
 ;;9002226.02101,"1033,60760000830 ",.02)
 ;;60760000830
 ;;9002226.02101,"1033,60760000840 ",.01)
 ;;60760000840
 ;;9002226.02101,"1033,60760000840 ",.02)
 ;;60760000840
 ;;9002226.02101,"1033,60760006920 ",.01)
 ;;60760006920
 ;;9002226.02101,"1033,60760006920 ",.02)
 ;;60760006920
 ;;9002226.02101,"1033,60760010709 ",.01)
 ;;60760010709
 ;;9002226.02101,"1033,60760010709 ",.02)
 ;;60760010709
 ;;9002226.02101,"1033,60760010728 ",.01)
 ;;60760010728
 ;;9002226.02101,"1033,60760010728 ",.02)
 ;;60760010728
 ;;9002226.02101,"1033,60760010740 ",.01)
 ;;60760010740
 ;;9002226.02101,"1033,60760010740 ",.02)
 ;;60760010740
 ;;9002226.02101,"1033,60760011408 ",.01)
 ;;60760011408
 ;;9002226.02101,"1033,60760011408 ",.02)
 ;;60760011408
 ;;9002226.02101,"1033,60760011415 ",.01)
 ;;60760011415
 ;;9002226.02101,"1033,60760011415 ",.02)
 ;;60760011415