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

BGPM5AVH.m

Go to the documentation of this file.
BGPM5AVH ;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,55045200400 ",.01)
 ;;55045200400
 ;;9002226.02101,"1033,55045200400 ",.02)
 ;;55045200400
 ;;9002226.02101,"1033,55045200403 ",.01)
 ;;55045200403
 ;;9002226.02101,"1033,55045200403 ",.02)
 ;;55045200403
 ;;9002226.02101,"1033,55045200404 ",.01)
 ;;55045200404
 ;;9002226.02101,"1033,55045200404 ",.02)
 ;;55045200404
 ;;9002226.02101,"1033,55045200405 ",.01)
 ;;55045200405
 ;;9002226.02101,"1033,55045200405 ",.02)
 ;;55045200405
 ;;9002226.02101,"1033,55045200406 ",.01)
 ;;55045200406
 ;;9002226.02101,"1033,55045200406 ",.02)
 ;;55045200406
 ;;9002226.02101,"1033,55045200408 ",.01)
 ;;55045200408
 ;;9002226.02101,"1033,55045200408 ",.02)
 ;;55045200408
 ;;9002226.02101,"1033,55045200600 ",.01)
 ;;55045200600
 ;;9002226.02101,"1033,55045200600 ",.02)
 ;;55045200600
 ;;9002226.02101,"1033,55045200601 ",.01)
 ;;55045200601
 ;;9002226.02101,"1033,55045200601 ",.02)
 ;;55045200601
 ;;9002226.02101,"1033,55045200602 ",.01)
 ;;55045200602
 ;;9002226.02101,"1033,55045200602 ",.02)
 ;;55045200602
 ;;9002226.02101,"1033,55045200603 ",.01)
 ;;55045200603
 ;;9002226.02101,"1033,55045200603 ",.02)
 ;;55045200603
 ;;9002226.02101,"1033,55045200604 ",.01)
 ;;55045200604
 ;;9002226.02101,"1033,55045200604 ",.02)
 ;;55045200604
 ;;9002226.02101,"1033,55045200605 ",.01)
 ;;55045200605
 ;;9002226.02101,"1033,55045200605 ",.02)
 ;;55045200605
 ;;9002226.02101,"1033,55045200606 ",.01)
 ;;55045200606
 ;;9002226.02101,"1033,55045200606 ",.02)
 ;;55045200606
 ;;9002226.02101,"1033,55045200607 ",.01)
 ;;55045200607
 ;;9002226.02101,"1033,55045200607 ",.02)
 ;;55045200607
 ;;9002226.02101,"1033,55045200608 ",.01)
 ;;55045200608
 ;;9002226.02101,"1033,55045200608 ",.02)
 ;;55045200608
 ;;9002226.02101,"1033,55045200609 ",.01)
 ;;55045200609
 ;;9002226.02101,"1033,55045200609 ",.02)
 ;;55045200609
 ;;9002226.02101,"1033,55045201309 ",.01)
 ;;55045201309
 ;;9002226.02101,"1033,55045201309 ",.02)
 ;;55045201309
 ;;9002226.02101,"1033,55045212701 ",.01)
 ;;55045212701
 ;;9002226.02101,"1033,55045212701 ",.02)
 ;;55045212701
 ;;9002226.02101,"1033,55045215407 ",.01)
 ;;55045215407
 ;;9002226.02101,"1033,55045215407 ",.02)
 ;;55045215407
 ;;9002226.02101,"1033,55045215408 ",.01)
 ;;55045215408
 ;;9002226.02101,"1033,55045215408 ",.02)
 ;;55045215408
 ;;9002226.02101,"1033,55045215409 ",.01)
 ;;55045215409
 ;;9002226.02101,"1033,55045215409 ",.02)
 ;;55045215409
 ;;9002226.02101,"1033,55045215503 ",.01)
 ;;55045215503
 ;;9002226.02101,"1033,55045215503 ",.02)
 ;;55045215503
 ;;9002226.02101,"1033,55045215801 ",.01)
 ;;55045215801
 ;;9002226.02101,"1033,55045215801 ",.02)
 ;;55045215801
 ;;9002226.02101,"1033,55045215804 ",.01)
 ;;55045215804
 ;;9002226.02101,"1033,55045215804 ",.02)
 ;;55045215804
 ;;9002226.02101,"1033,55045226001 ",.01)
 ;;55045226001
 ;;9002226.02101,"1033,55045226001 ",.02)
 ;;55045226001
 ;;9002226.02101,"1033,55045230201 ",.01)
 ;;55045230201
 ;;9002226.02101,"1033,55045230201 ",.02)
 ;;55045230201
 ;;9002226.02101,"1033,55045230203 ",.01)
 ;;55045230203
 ;;9002226.02101,"1033,55045230203 ",.02)
 ;;55045230203
 ;;9002226.02101,"1033,55045233707 ",.01)
 ;;55045233707
 ;;9002226.02101,"1033,55045233707 ",.02)
 ;;55045233707
 ;;9002226.02101,"1033,55045233708 ",.01)
 ;;55045233708
 ;;9002226.02101,"1033,55045233708 ",.02)
 ;;55045233708
 ;;9002226.02101,"1033,55045242601 ",.01)
 ;;55045242601
 ;;9002226.02101,"1033,55045242601 ",.02)
 ;;55045242601
 ;;9002226.02101,"1033,55045242602 ",.01)
 ;;55045242602
 ;;9002226.02101,"1033,55045242602 ",.02)
 ;;55045242602
 ;;9002226.02101,"1033,55045242603 ",.01)
 ;;55045242603
 ;;9002226.02101,"1033,55045242603 ",.02)
 ;;55045242603
 ;;9002226.02101,"1033,55045242606 ",.01)
 ;;55045242606
 ;;9002226.02101,"1033,55045242606 ",.02)
 ;;55045242606
 ;;9002226.02101,"1033,55045242607 ",.01)
 ;;55045242607
 ;;9002226.02101,"1033,55045242607 ",.02)
 ;;55045242607
 ;;9002226.02101,"1033,55045242608 ",.01)
 ;;55045242608
 ;;9002226.02101,"1033,55045242608 ",.02)
 ;;55045242608
 ;;9002226.02101,"1033,55045261001 ",.01)
 ;;55045261001
 ;;9002226.02101,"1033,55045261001 ",.02)
 ;;55045261001
 ;;9002226.02101,"1033,55045261002 ",.01)
 ;;55045261002
 ;;9002226.02101,"1033,55045261002 ",.02)
 ;;55045261002
 ;;9002226.02101,"1033,55045261004 ",.01)
 ;;55045261004
 ;;9002226.02101,"1033,55045261004 ",.02)
 ;;55045261004
 ;;9002226.02101,"1033,55045261006 ",.01)
 ;;55045261006
 ;;9002226.02101,"1033,55045261006 ",.02)
 ;;55045261006
 ;;9002226.02101,"1033,55045261007 ",.01)
 ;;55045261007
 ;;9002226.02101,"1033,55045261007 ",.02)
 ;;55045261007
 ;;9002226.02101,"1033,55045261009 ",.01)
 ;;55045261009
 ;;9002226.02101,"1033,55045261009 ",.02)
 ;;55045261009
 ;;9002226.02101,"1033,55045267201 ",.01)
 ;;55045267201
 ;;9002226.02101,"1033,55045267201 ",.02)
 ;;55045267201
 ;;9002226.02101,"1033,55045267202 ",.01)
 ;;55045267202
 ;;9002226.02101,"1033,55045267202 ",.02)
 ;;55045267202
 ;;9002226.02101,"1033,55045267206 ",.01)
 ;;55045267206
 ;;9002226.02101,"1033,55045267206 ",.02)
 ;;55045267206
 ;;9002226.02101,"1033,55045267208 ",.01)
 ;;55045267208
 ;;9002226.02101,"1033,55045267208 ",.02)
 ;;55045267208
 ;;9002226.02101,"1033,55045267209 ",.01)
 ;;55045267209
 ;;9002226.02101,"1033,55045267209 ",.02)
 ;;55045267209
 ;;9002226.02101,"1033,55045273107 ",.01)
 ;;55045273107
 ;;9002226.02101,"1033,55045273107 ",.02)
 ;;55045273107
 ;;9002226.02101,"1033,55045278704 ",.01)
 ;;55045278704
 ;;9002226.02101,"1033,55045278704 ",.02)
 ;;55045278704
 ;;9002226.02101,"1033,55045295302 ",.01)
 ;;55045295302
 ;;9002226.02101,"1033,55045295302 ",.02)
 ;;55045295302
 ;;9002226.02101,"1033,55045295304 ",.01)
 ;;55045295304
 ;;9002226.02101,"1033,55045295304 ",.02)
 ;;55045295304
 ;;9002226.02101,"1033,55045295305 ",.01)
 ;;55045295305
 ;;9002226.02101,"1033,55045295305 ",.02)
 ;;55045295305
 ;;9002226.02101,"1033,55045295306 ",.01)
 ;;55045295306
 ;;9002226.02101,"1033,55045295306 ",.02)
 ;;55045295306
 ;;9002226.02101,"1033,55045295307 ",.01)
 ;;55045295307
 ;;9002226.02101,"1033,55045295307 ",.02)
 ;;55045295307
 ;;9002226.02101,"1033,55045295308 ",.01)
 ;;55045295308
 ;;9002226.02101,"1033,55045295308 ",.02)
 ;;55045295308
 ;;9002226.02101,"1033,55045296603 ",.01)
 ;;55045296603
 ;;9002226.02101,"1033,55045296603 ",.02)
 ;;55045296603
 ;;9002226.02101,"1033,55045296607 ",.01)
 ;;55045296607
 ;;9002226.02101,"1033,55045296607 ",.02)
 ;;55045296607
 ;;9002226.02101,"1033,55045296608 ",.01)
 ;;55045296608
 ;;9002226.02101,"1033,55045296608 ",.02)
 ;;55045296608
 ;;9002226.02101,"1033,55045299202 ",.01)
 ;;55045299202
 ;;9002226.02101,"1033,55045299202 ",.02)
 ;;55045299202
 ;;9002226.02101,"1033,55045299302 ",.01)
 ;;55045299302
 ;;9002226.02101,"1033,55045299302 ",.02)
 ;;55045299302
 ;;9002226.02101,"1033,55045301601 ",.01)
 ;;55045301601
 ;;9002226.02101,"1033,55045301601 ",.02)
 ;;55045301601
 ;;9002226.02101,"1033,55045301607 ",.01)
 ;;55045301607
 ;;9002226.02101,"1033,55045301607 ",.02)
 ;;55045301607
 ;;9002226.02101,"1033,55045308000 ",.01)
 ;;55045308000
 ;;9002226.02101,"1033,55045308000 ",.02)
 ;;55045308000
 ;;9002226.02101,"1033,55045308001 ",.01)
 ;;55045308001
 ;;9002226.02101,"1033,55045308001 ",.02)
 ;;55045308001
 ;;9002226.02101,"1033,55045308002 ",.01)
 ;;55045308002
 ;;9002226.02101,"1033,55045308002 ",.02)
 ;;55045308002
 ;;9002226.02101,"1033,55045308003 ",.01)
 ;;55045308003
 ;;9002226.02101,"1033,55045308003 ",.02)
 ;;55045308003
 ;;9002226.02101,"1033,55045308004 ",.01)
 ;;55045308004
 ;;9002226.02101,"1033,55045308004 ",.02)
 ;;55045308004
 ;;9002226.02101,"1033,55045308005 ",.01)
 ;;55045308005
 ;;9002226.02101,"1033,55045308005 ",.02)
 ;;55045308005
 ;;9002226.02101,"1033,55045308007 ",.01)
 ;;55045308007
 ;;9002226.02101,"1033,55045308007 ",.02)
 ;;55045308007
 ;;9002226.02101,"1033,55045308008 ",.01)
 ;;55045308008
 ;;9002226.02101,"1033,55045308008 ",.02)
 ;;55045308008
 ;;9002226.02101,"1033,55045308100 ",.01)
 ;;55045308100
 ;;9002226.02101,"1033,55045308100 ",.02)
 ;;55045308100
 ;;9002226.02101,"1033,55045308101 ",.01)
 ;;55045308101
 ;;9002226.02101,"1033,55045308101 ",.02)
 ;;55045308101
 ;;9002226.02101,"1033,55045308102 ",.01)
 ;;55045308102
 ;;9002226.02101,"1033,55045308102 ",.02)
 ;;55045308102
 ;;9002226.02101,"1033,55045308103 ",.01)
 ;;55045308103
 ;;9002226.02101,"1033,55045308103 ",.02)
 ;;55045308103
 ;;9002226.02101,"1033,55045308106 ",.01)
 ;;55045308106
 ;;9002226.02101,"1033,55045308106 ",.02)
 ;;55045308106
 ;;9002226.02101,"1033,55045308107 ",.01)
 ;;55045308107
 ;;9002226.02101,"1033,55045308107 ",.02)
 ;;55045308107
 ;;9002226.02101,"1033,55045308108 ",.01)
 ;;55045308108
 ;;9002226.02101,"1033,55045308108 ",.02)
 ;;55045308108
 ;;9002226.02101,"1033,55045308109 ",.01)
 ;;55045308109
 ;;9002226.02101,"1033,55045308109 ",.02)
 ;;55045308109
 ;;9002226.02101,"1033,55045314201 ",.01)
 ;;55045314201
 ;;9002226.02101,"1033,55045314201 ",.02)
 ;;55045314201
 ;;9002226.02101,"1033,55045314205 ",.01)
 ;;55045314205
 ;;9002226.02101,"1033,55045314205 ",.02)
 ;;55045314205
 ;;9002226.02101,"1033,55045314207 ",.01)
 ;;55045314207
 ;;9002226.02101,"1033,55045314207 ",.02)
 ;;55045314207
 ;;9002226.02101,"1033,55045319401 ",.01)
 ;;55045319401
 ;;9002226.02101,"1033,55045319401 ",.02)
 ;;55045319401
 ;;9002226.02101,"1033,55045319403 ",.01)
 ;;55045319403
 ;;9002226.02101,"1033,55045319403 ",.02)
 ;;55045319403
 ;;9002226.02101,"1033,55045319404 ",.01)
 ;;55045319404
 ;;9002226.02101,"1033,55045319404 ",.02)
 ;;55045319404
 ;;9002226.02101,"1033,55045319406 ",.01)
 ;;55045319406
 ;;9002226.02101,"1033,55045319406 ",.02)
 ;;55045319406
 ;;9002226.02101,"1033,55045319409 ",.01)
 ;;55045319409
 ;;9002226.02101,"1033,55045319409 ",.02)
 ;;55045319409
 ;;9002226.02101,"1033,55045323201 ",.01)
 ;;55045323201
 ;;9002226.02101,"1033,55045323201 ",.02)
 ;;55045323201
 ;;9002226.02101,"1033,55045323202 ",.01)
 ;;55045323202
 ;;9002226.02101,"1033,55045323202 ",.02)
 ;;55045323202
 ;;9002226.02101,"1033,55045323308 ",.01)
 ;;55045323308
 ;;9002226.02101,"1033,55045323308 ",.02)
 ;;55045323308
 ;;9002226.02101,"1033,55045326001 ",.01)
 ;;55045326001
 ;;9002226.02101,"1033,55045326001 ",.02)
 ;;55045326001
 ;;9002226.02101,"1033,55045326006 ",.01)
 ;;55045326006
 ;;9002226.02101,"1033,55045326006 ",.02)
 ;;55045326006
 ;;9002226.02101,"1033,55045326009 ",.01)
 ;;55045326009
 ;;9002226.02101,"1033,55045326009 ",.02)
 ;;55045326009
 ;;9002226.02101,"1033,55045326804 ",.01)
 ;;55045326804
 ;;9002226.02101,"1033,55045326804 ",.02)
 ;;55045326804
 ;;9002226.02101,"1033,55045326806 ",.01)
 ;;55045326806
 ;;9002226.02101,"1033,55045326806 ",.02)
 ;;55045326806
 ;;9002226.02101,"1033,55045326808 ",.01)
 ;;55045326808
 ;;9002226.02101,"1033,55045326808 ",.02)
 ;;55045326808
 ;;9002226.02101,"1033,55045328802 ",.01)
 ;;55045328802
 ;;9002226.02101,"1033,55045328802 ",.02)
 ;;55045328802
 ;;9002226.02101,"1033,55045328805 ",.01)
 ;;55045328805
 ;;9002226.02101,"1033,55045328805 ",.02)
 ;;55045328805
 ;;9002226.02101,"1033,55045328808 ",.01)
 ;;55045328808
 ;;9002226.02101,"1033,55045328808 ",.02)
 ;;55045328808
 ;;9002226.02101,"1033,55045330604 ",.01)
 ;;55045330604
 ;;9002226.02101,"1033,55045330604 ",.02)
 ;;55045330604
 ;;9002226.02101,"1033,55045330605 ",.01)
 ;;55045330605
 ;;9002226.02101,"1033,55045330605 ",.02)
 ;;55045330605
 ;;9002226.02101,"1033,55045330606 ",.01)
 ;;55045330606
 ;;9002226.02101,"1033,55045330606 ",.02)
 ;;55045330606
 ;;9002226.02101,"1033,55045330608 ",.01)
 ;;55045330608