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

BGPM5AVE.m

Go to the documentation of this file.
BGPM5AVE ;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,54868510103 ",.02)
 ;;54868510103
 ;;9002226.02101,"1033,54868516500 ",.01)
 ;;54868516500
 ;;9002226.02101,"1033,54868516500 ",.02)
 ;;54868516500
 ;;9002226.02101,"1033,54868516501 ",.01)
 ;;54868516501
 ;;9002226.02101,"1033,54868516501 ",.02)
 ;;54868516501
 ;;9002226.02101,"1033,54868517500 ",.01)
 ;;54868517500
 ;;9002226.02101,"1033,54868517500 ",.02)
 ;;54868517500
 ;;9002226.02101,"1033,54868521100 ",.01)
 ;;54868521100
 ;;9002226.02101,"1033,54868521100 ",.02)
 ;;54868521100
 ;;9002226.02101,"1033,54868521101 ",.01)
 ;;54868521101
 ;;9002226.02101,"1033,54868521101 ",.02)
 ;;54868521101
 ;;9002226.02101,"1033,54868521102 ",.01)
 ;;54868521102
 ;;9002226.02101,"1033,54868521102 ",.02)
 ;;54868521102
 ;;9002226.02101,"1033,54868521103 ",.01)
 ;;54868521103
 ;;9002226.02101,"1033,54868521103 ",.02)
 ;;54868521103
 ;;9002226.02101,"1033,54868521104 ",.01)
 ;;54868521104
 ;;9002226.02101,"1033,54868521104 ",.02)
 ;;54868521104
 ;;9002226.02101,"1033,54868521105 ",.01)
 ;;54868521105
 ;;9002226.02101,"1033,54868521105 ",.02)
 ;;54868521105
 ;;9002226.02101,"1033,54868526900 ",.01)
 ;;54868526900
 ;;9002226.02101,"1033,54868526900 ",.02)
 ;;54868526900
 ;;9002226.02101,"1033,54868530700 ",.01)
 ;;54868530700
 ;;9002226.02101,"1033,54868530700 ",.02)
 ;;54868530700
 ;;9002226.02101,"1033,54868543000 ",.01)
 ;;54868543000
 ;;9002226.02101,"1033,54868543000 ",.02)
 ;;54868543000
 ;;9002226.02101,"1033,54868543001 ",.01)
 ;;54868543001
 ;;9002226.02101,"1033,54868543001 ",.02)
 ;;54868543001
 ;;9002226.02101,"1033,54868543002 ",.01)
 ;;54868543002
 ;;9002226.02101,"1033,54868543002 ",.02)
 ;;54868543002
 ;;9002226.02101,"1033,54868543003 ",.01)
 ;;54868543003
 ;;9002226.02101,"1033,54868543003 ",.02)
 ;;54868543003
 ;;9002226.02101,"1033,54868547100 ",.01)
 ;;54868547100
 ;;9002226.02101,"1033,54868547100 ",.02)
 ;;54868547100
 ;;9002226.02101,"1033,54868547801 ",.01)
 ;;54868547801
 ;;9002226.02101,"1033,54868547801 ",.02)
 ;;54868547801
 ;;9002226.02101,"1033,54868547802 ",.01)
 ;;54868547802
 ;;9002226.02101,"1033,54868547802 ",.02)
 ;;54868547802
 ;;9002226.02101,"1033,54868553300 ",.01)
 ;;54868553300
 ;;9002226.02101,"1033,54868553300 ",.02)
 ;;54868553300
 ;;9002226.02101,"1033,54868558900 ",.01)
 ;;54868558900
 ;;9002226.02101,"1033,54868558900 ",.02)
 ;;54868558900
 ;;9002226.02101,"1033,54868564700 ",.01)
 ;;54868564700
 ;;9002226.02101,"1033,54868564700 ",.02)
 ;;54868564700
 ;;9002226.02101,"1033,54868564701 ",.01)
 ;;54868564701
 ;;9002226.02101,"1033,54868564701 ",.02)
 ;;54868564701
 ;;9002226.02101,"1033,54868564800 ",.01)
 ;;54868564800
 ;;9002226.02101,"1033,54868564800 ",.02)
 ;;54868564800
 ;;9002226.02101,"1033,54868564801 ",.01)
 ;;54868564801
 ;;9002226.02101,"1033,54868564801 ",.02)
 ;;54868564801
 ;;9002226.02101,"1033,54868564802 ",.01)
 ;;54868564802
 ;;9002226.02101,"1033,54868564802 ",.02)
 ;;54868564802
 ;;9002226.02101,"1033,54868569300 ",.01)
 ;;54868569300
 ;;9002226.02101,"1033,54868569300 ",.02)
 ;;54868569300
 ;;9002226.02101,"1033,54868569400 ",.01)
 ;;54868569400
 ;;9002226.02101,"1033,54868569400 ",.02)
 ;;54868569400
 ;;9002226.02101,"1033,54868575600 ",.01)
 ;;54868575600
 ;;9002226.02101,"1033,54868575600 ",.02)
 ;;54868575600
 ;;9002226.02101,"1033,54868575700 ",.01)
 ;;54868575700
 ;;9002226.02101,"1033,54868575700 ",.02)
 ;;54868575700
 ;;9002226.02101,"1033,54868576700 ",.01)
 ;;54868576700
 ;;9002226.02101,"1033,54868576700 ",.02)
 ;;54868576700
 ;;9002226.02101,"1033,54868576701 ",.01)
 ;;54868576701
 ;;9002226.02101,"1033,54868576701 ",.02)
 ;;54868576701
 ;;9002226.02101,"1033,54868576800 ",.01)
 ;;54868576800
 ;;9002226.02101,"1033,54868576800 ",.02)
 ;;54868576800
 ;;9002226.02101,"1033,54868576801 ",.01)
 ;;54868576801
 ;;9002226.02101,"1033,54868576801 ",.02)
 ;;54868576801
 ;;9002226.02101,"1033,54868576900 ",.01)
 ;;54868576900
 ;;9002226.02101,"1033,54868576900 ",.02)
 ;;54868576900
 ;;9002226.02101,"1033,54868576901 ",.01)
 ;;54868576901
 ;;9002226.02101,"1033,54868576901 ",.02)
 ;;54868576901
 ;;9002226.02101,"1033,54868593800 ",.01)
 ;;54868593800
 ;;9002226.02101,"1033,54868593800 ",.02)
 ;;54868593800
 ;;9002226.02101,"1033,54868598100 ",.01)
 ;;54868598100
 ;;9002226.02101,"1033,54868598100 ",.02)
 ;;54868598100
 ;;9002226.02101,"1033,54868619000 ",.01)
 ;;54868619000
 ;;9002226.02101,"1033,54868619000 ",.02)
 ;;54868619000
 ;;9002226.02101,"1033,54868627100 ",.01)
 ;;54868627100
 ;;9002226.02101,"1033,54868627100 ",.02)
 ;;54868627100
 ;;9002226.02101,"1033,54868627900 ",.01)
 ;;54868627900
 ;;9002226.02101,"1033,54868627900 ",.02)
 ;;54868627900
 ;;9002226.02101,"1033,54868627901 ",.01)
 ;;54868627901
 ;;9002226.02101,"1033,54868627901 ",.02)
 ;;54868627901
 ;;9002226.02101,"1033,54868687501 ",.01)
 ;;54868687501
 ;;9002226.02101,"1033,54868687501 ",.02)
 ;;54868687501
 ;;9002226.02101,"1033,54907014801 ",.01)
 ;;54907014801
 ;;9002226.02101,"1033,54907014801 ",.02)
 ;;54907014801
 ;;9002226.02101,"1033,54907014805 ",.01)
 ;;54907014805
 ;;9002226.02101,"1033,54907014805 ",.02)
 ;;54907014805
 ;;9002226.02101,"1033,54907014901 ",.01)
 ;;54907014901
 ;;9002226.02101,"1033,54907014901 ",.02)
 ;;54907014901
 ;;9002226.02101,"1033,54907014904 ",.01)
 ;;54907014904
 ;;9002226.02101,"1033,54907014904 ",.02)
 ;;54907014904
 ;;9002226.02101,"1033,54907014905 ",.01)
 ;;54907014905
 ;;9002226.02101,"1033,54907014905 ",.02)
 ;;54907014905
 ;;9002226.02101,"1033,54907050902 ",.01)
 ;;54907050902
 ;;9002226.02101,"1033,54907050902 ",.02)
 ;;54907050902
 ;;9002226.02101,"1033,54907051503 ",.01)
 ;;54907051503
 ;;9002226.02101,"1033,54907051503 ",.02)
 ;;54907051503
 ;;9002226.02101,"1033,54907052001 ",.01)
 ;;54907052001
 ;;9002226.02101,"1033,54907052001 ",.02)
 ;;54907052001
 ;;9002226.02101,"1033,54907052002 ",.01)
 ;;54907052002
 ;;9002226.02101,"1033,54907052002 ",.02)
 ;;54907052002
 ;;9002226.02101,"1033,54907052101 ",.01)
 ;;54907052101
 ;;9002226.02101,"1033,54907052101 ",.02)
 ;;54907052101
 ;;9002226.02101,"1033,54907052102 ",.01)
 ;;54907052102
 ;;9002226.02101,"1033,54907052102 ",.02)
 ;;54907052102
 ;;9002226.02101,"1033,54907058200 ",.01)
 ;;54907058200
 ;;9002226.02101,"1033,54907058200 ",.02)
 ;;54907058200
 ;;9002226.02101,"1033,54907058201 ",.01)
 ;;54907058201
 ;;9002226.02101,"1033,54907058201 ",.02)
 ;;54907058201
 ;;9002226.02101,"1033,54907065701 ",.01)
 ;;54907065701
 ;;9002226.02101,"1033,54907065701 ",.02)
 ;;54907065701
 ;;9002226.02101,"1033,54907065702 ",.01)
 ;;54907065702
 ;;9002226.02101,"1033,54907065702 ",.02)
 ;;54907065702
 ;;9002226.02101,"1033,54907065705 ",.01)
 ;;54907065705
 ;;9002226.02101,"1033,54907065705 ",.02)
 ;;54907065705
 ;;9002226.02101,"1033,54907070901 ",.01)
 ;;54907070901
 ;;9002226.02101,"1033,54907070901 ",.02)
 ;;54907070901
 ;;9002226.02101,"1033,54907070903 ",.01)
 ;;54907070903
 ;;9002226.02101,"1033,54907070903 ",.02)
 ;;54907070903
 ;;9002226.02101,"1033,54907071001 ",.01)
 ;;54907071001
 ;;9002226.02101,"1033,54907071001 ",.02)
 ;;54907071001
 ;;9002226.02101,"1033,54907071002 ",.01)
 ;;54907071002
 ;;9002226.02101,"1033,54907071002 ",.02)
 ;;54907071002
 ;;9002226.02101,"1033,54907071302 ",.01)
 ;;54907071302
 ;;9002226.02101,"1033,54907071302 ",.02)
 ;;54907071302
 ;;9002226.02101,"1033,54907071504 ",.01)
 ;;54907071504
 ;;9002226.02101,"1033,54907071504 ",.02)
 ;;54907071504
 ;;9002226.02101,"1033,54907071505 ",.01)
 ;;54907071505
 ;;9002226.02101,"1033,54907071505 ",.02)
 ;;54907071505
 ;;9002226.02101,"1033,54907071603 ",.01)
 ;;54907071603
 ;;9002226.02101,"1033,54907071603 ",.02)
 ;;54907071603
 ;;9002226.02101,"1033,54907071604 ",.01)
 ;;54907071604
 ;;9002226.02101,"1033,54907071604 ",.02)
 ;;54907071604
 ;;9002226.02101,"1033,54907071701 ",.01)
 ;;54907071701
 ;;9002226.02101,"1033,54907071701 ",.02)
 ;;54907071701
 ;;9002226.02101,"1033,54907071708 ",.01)
 ;;54907071708
 ;;9002226.02101,"1033,54907071708 ",.02)
 ;;54907071708
 ;;9002226.02101,"1033,54907072501 ",.01)
 ;;54907072501
 ;;9002226.02101,"1033,54907072501 ",.02)
 ;;54907072501
 ;;9002226.02101,"1033,54907072506 ",.01)
 ;;54907072506
 ;;9002226.02101,"1033,54907072506 ",.02)
 ;;54907072506
 ;;9002226.02101,"1033,54907072601 ",.01)
 ;;54907072601
 ;;9002226.02101,"1033,54907072601 ",.02)
 ;;54907072601
 ;;9002226.02101,"1033,54907072606 ",.01)
 ;;54907072606
 ;;9002226.02101,"1033,54907072606 ",.02)
 ;;54907072606
 ;;9002226.02101,"1033,54907075001 ",.01)
 ;;54907075001
 ;;9002226.02101,"1033,54907075001 ",.02)
 ;;54907075001
 ;;9002226.02101,"1033,54907075006 ",.01)
 ;;54907075006
 ;;9002226.02101,"1033,54907075006 ",.02)
 ;;54907075006
 ;;9002226.02101,"1033,54907075101 ",.01)
 ;;54907075101
 ;;9002226.02101,"1033,54907075101 ",.02)
 ;;54907075101
 ;;9002226.02101,"1033,54907075102 ",.01)
 ;;54907075102
 ;;9002226.02101,"1033,54907075102 ",.02)
 ;;54907075102
 ;;9002226.02101,"1033,54907075106 ",.01)
 ;;54907075106
 ;;9002226.02101,"1033,54907075106 ",.02)
 ;;54907075106
 ;;9002226.02101,"1033,54907075107 ",.01)
 ;;54907075107
 ;;9002226.02101,"1033,54907075107 ",.02)
 ;;54907075107
 ;;9002226.02101,"1033,54907075201 ",.01)
 ;;54907075201
 ;;9002226.02101,"1033,54907075201 ",.02)
 ;;54907075201
 ;;9002226.02101,"1033,54907075202 ",.01)
 ;;54907075202
 ;;9002226.02101,"1033,54907075202 ",.02)
 ;;54907075202
 ;;9002226.02101,"1033,54907075206 ",.01)
 ;;54907075206
 ;;9002226.02101,"1033,54907075206 ",.02)
 ;;54907075206
 ;;9002226.02101,"1033,54907075207 ",.01)
 ;;54907075207
 ;;9002226.02101,"1033,54907075207 ",.02)
 ;;54907075207
 ;;9002226.02101,"1033,54907075302 ",.01)
 ;;54907075302
 ;;9002226.02101,"1033,54907075302 ",.02)
 ;;54907075302
 ;;9002226.02101,"1033,54907075402 ",.01)
 ;;54907075402
 ;;9002226.02101,"1033,54907075402 ",.02)
 ;;54907075402
 ;;9002226.02101,"1033,54907076801 ",.01)
 ;;54907076801
 ;;9002226.02101,"1033,54907076801 ",.02)
 ;;54907076801
 ;;9002226.02101,"1033,54907076802 ",.01)
 ;;54907076802
 ;;9002226.02101,"1033,54907076802 ",.02)
 ;;54907076802
 ;;9002226.02101,"1033,54907076807 ",.01)
 ;;54907076807
 ;;9002226.02101,"1033,54907076807 ",.02)
 ;;54907076807
 ;;9002226.02101,"1033,54907082103 ",.01)
 ;;54907082103
 ;;9002226.02101,"1033,54907082103 ",.02)
 ;;54907082103
 ;;9002226.02101,"1033,54907082104 ",.01)
 ;;54907082104
 ;;9002226.02101,"1033,54907082104 ",.02)
 ;;54907082104
 ;;9002226.02101,"1033,54907082203 ",.01)
 ;;54907082203
 ;;9002226.02101,"1033,54907082203 ",.02)
 ;;54907082203
 ;;9002226.02101,"1033,54907082204 ",.01)
 ;;54907082204
 ;;9002226.02101,"1033,54907082204 ",.02)
 ;;54907082204
 ;;9002226.02101,"1033,54907096001 ",.01)
 ;;54907096001
 ;;9002226.02101,"1033,54907096001 ",.02)
 ;;54907096001
 ;;9002226.02101,"1033,54907096003 ",.01)
 ;;54907096003
 ;;9002226.02101,"1033,54907096003 ",.02)
 ;;54907096003
 ;;9002226.02101,"1033,54907096004 ",.01)
 ;;54907096004
 ;;9002226.02101,"1033,54907096004 ",.02)
 ;;54907096004
 ;;9002226.02101,"1033,54907096101 ",.01)
 ;;54907096101
 ;;9002226.02101,"1033,54907096101 ",.02)
 ;;54907096101
 ;;9002226.02101,"1033,54907096103 ",.01)
 ;;54907096103
 ;;9002226.02101,"1033,54907096103 ",.02)
 ;;54907096103
 ;;9002226.02101,"1033,54907096104 ",.01)
 ;;54907096104
 ;;9002226.02101,"1033,54907096104 ",.02)
 ;;54907096104
 ;;9002226.02101,"1033,54907096304 ",.01)
 ;;54907096304
 ;;9002226.02101,"1033,54907096304 ",.02)
 ;;54907096304
 ;;9002226.02101,"1033,54907096403 ",.01)
 ;;54907096403
 ;;9002226.02101,"1033,54907096403 ",.02)
 ;;54907096403