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

BGPM5ARH.m

Go to the documentation of this file.
BGPM5ARH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,54868519600 ",.01)
 ;;54868519600
 ;;9002226.02101,"1005,54868519600 ",.02)
 ;;54868519600
 ;;9002226.02101,"1005,54868519601 ",.01)
 ;;54868519601
 ;;9002226.02101,"1005,54868519601 ",.02)
 ;;54868519601
 ;;9002226.02101,"1005,54868519602 ",.01)
 ;;54868519602
 ;;9002226.02101,"1005,54868519602 ",.02)
 ;;54868519602
 ;;9002226.02101,"1005,54868524100 ",.01)
 ;;54868524100
 ;;9002226.02101,"1005,54868524100 ",.02)
 ;;54868524100
 ;;9002226.02101,"1005,54868524101 ",.01)
 ;;54868524101
 ;;9002226.02101,"1005,54868524101 ",.02)
 ;;54868524101
 ;;9002226.02101,"1005,54868524102 ",.01)
 ;;54868524102
 ;;9002226.02101,"1005,54868524102 ",.02)
 ;;54868524102
 ;;9002226.02101,"1005,54868524500 ",.01)
 ;;54868524500
 ;;9002226.02101,"1005,54868524500 ",.02)
 ;;54868524500
 ;;9002226.02101,"1005,54868524501 ",.01)
 ;;54868524501
 ;;9002226.02101,"1005,54868524501 ",.02)
 ;;54868524501
 ;;9002226.02101,"1005,54868524502 ",.01)
 ;;54868524502
 ;;9002226.02101,"1005,54868524502 ",.02)
 ;;54868524502
 ;;9002226.02101,"1005,54868524600 ",.01)
 ;;54868524600
 ;;9002226.02101,"1005,54868524600 ",.02)
 ;;54868524600
 ;;9002226.02101,"1005,54868524601 ",.01)
 ;;54868524601
 ;;9002226.02101,"1005,54868524601 ",.02)
 ;;54868524601
 ;;9002226.02101,"1005,54868527900 ",.01)
 ;;54868527900
 ;;9002226.02101,"1005,54868527900 ",.02)
 ;;54868527900
 ;;9002226.02101,"1005,54868528100 ",.01)
 ;;54868528100
 ;;9002226.02101,"1005,54868528100 ",.02)
 ;;54868528100
 ;;9002226.02101,"1005,54868528101 ",.01)
 ;;54868528101
 ;;9002226.02101,"1005,54868528101 ",.02)
 ;;54868528101
 ;;9002226.02101,"1005,54868529700 ",.01)
 ;;54868529700
 ;;9002226.02101,"1005,54868529700 ",.02)
 ;;54868529700
 ;;9002226.02101,"1005,54868532300 ",.01)
 ;;54868532300
 ;;9002226.02101,"1005,54868532300 ",.02)
 ;;54868532300
 ;;9002226.02101,"1005,54868532301 ",.01)
 ;;54868532301
 ;;9002226.02101,"1005,54868532301 ",.02)
 ;;54868532301
 ;;9002226.02101,"1005,54868534600 ",.01)
 ;;54868534600
 ;;9002226.02101,"1005,54868534600 ",.02)
 ;;54868534600
 ;;9002226.02101,"1005,54868534601 ",.01)
 ;;54868534601
 ;;9002226.02101,"1005,54868534601 ",.02)
 ;;54868534601
 ;;9002226.02101,"1005,54868541800 ",.01)
 ;;54868541800
 ;;9002226.02101,"1005,54868541800 ",.02)
 ;;54868541800
 ;;9002226.02101,"1005,54868542300 ",.01)
 ;;54868542300
 ;;9002226.02101,"1005,54868542300 ",.02)
 ;;54868542300
 ;;9002226.02101,"1005,54868542301 ",.01)
 ;;54868542301
 ;;9002226.02101,"1005,54868542301 ",.02)
 ;;54868542301
 ;;9002226.02101,"1005,54868546500 ",.01)
 ;;54868546500
 ;;9002226.02101,"1005,54868546500 ",.02)
 ;;54868546500
 ;;9002226.02101,"1005,54868546501 ",.01)
 ;;54868546501
 ;;9002226.02101,"1005,54868546501 ",.02)
 ;;54868546501
 ;;9002226.02101,"1005,54868546600 ",.01)
 ;;54868546600
 ;;9002226.02101,"1005,54868546600 ",.02)
 ;;54868546600
 ;;9002226.02101,"1005,54868546601 ",.01)
 ;;54868546601
 ;;9002226.02101,"1005,54868546601 ",.02)
 ;;54868546601
 ;;9002226.02101,"1005,54868546900 ",.01)
 ;;54868546900
 ;;9002226.02101,"1005,54868546900 ",.02)
 ;;54868546900
 ;;9002226.02101,"1005,54868546901 ",.01)
 ;;54868546901
 ;;9002226.02101,"1005,54868546901 ",.02)
 ;;54868546901
 ;;9002226.02101,"1005,54868548900 ",.01)
 ;;54868548900
 ;;9002226.02101,"1005,54868548900 ",.02)
 ;;54868548900
 ;;9002226.02101,"1005,54868550300 ",.01)
 ;;54868550300
 ;;9002226.02101,"1005,54868550300 ",.02)
 ;;54868550300
 ;;9002226.02101,"1005,54868550301 ",.01)
 ;;54868550301
 ;;9002226.02101,"1005,54868550301 ",.02)
 ;;54868550301
 ;;9002226.02101,"1005,54868559100 ",.01)
 ;;54868559100
 ;;9002226.02101,"1005,54868559100 ",.02)
 ;;54868559100
 ;;9002226.02101,"1005,54868574700 ",.01)
 ;;54868574700
 ;;9002226.02101,"1005,54868574700 ",.02)
 ;;54868574700
 ;;9002226.02101,"1005,54868574701 ",.01)
 ;;54868574701
 ;;9002226.02101,"1005,54868574701 ",.02)
 ;;54868574701
 ;;9002226.02101,"1005,54868578700 ",.01)
 ;;54868578700
 ;;9002226.02101,"1005,54868578700 ",.02)
 ;;54868578700
 ;;9002226.02101,"1005,54868592800 ",.01)
 ;;54868592800
 ;;9002226.02101,"1005,54868592800 ",.02)
 ;;54868592800
 ;;9002226.02101,"1005,54868597700 ",.01)
 ;;54868597700
 ;;9002226.02101,"1005,54868597700 ",.02)
 ;;54868597700
 ;;9002226.02101,"1005,54868619300 ",.01)
 ;;54868619300
 ;;9002226.02101,"1005,54868619300 ",.02)
 ;;54868619300
 ;;9002226.02101,"1005,54907040301 ",.01)
 ;;54907040301
 ;;9002226.02101,"1005,54907040301 ",.02)
 ;;54907040301
 ;;9002226.02101,"1005,54907040401 ",.01)
 ;;54907040401
 ;;9002226.02101,"1005,54907040401 ",.02)
 ;;54907040401
 ;;9002226.02101,"1005,54907077501 ",.01)
 ;;54907077501
 ;;9002226.02101,"1005,54907077501 ",.02)
 ;;54907077501
 ;;9002226.02101,"1005,54907077509 ",.01)
 ;;54907077509
 ;;9002226.02101,"1005,54907077509 ",.02)
 ;;54907077509
 ;;9002226.02101,"1005,54907077601 ",.01)
 ;;54907077601
 ;;9002226.02101,"1005,54907077601 ",.02)
 ;;54907077601
 ;;9002226.02101,"1005,54907077609 ",.01)
 ;;54907077609
 ;;9002226.02101,"1005,54907077609 ",.02)
 ;;54907077609
 ;;9002226.02101,"1005,54907077701 ",.01)
 ;;54907077701
 ;;9002226.02101,"1005,54907077701 ",.02)
 ;;54907077701
 ;;9002226.02101,"1005,54907077709 ",.01)
 ;;54907077709
 ;;9002226.02101,"1005,54907077709 ",.02)
 ;;54907077709
 ;;9002226.02101,"1005,54921013002 ",.01)
 ;;54921013002
 ;;9002226.02101,"1005,54921013002 ",.02)
 ;;54921013002
 ;;9002226.02101,"1005,54921013010 ",.01)
 ;;54921013010
 ;;9002226.02101,"1005,54921013010 ",.02)
 ;;54921013010
 ;;9002226.02101,"1005,54921013034 ",.01)
 ;;54921013034
 ;;9002226.02101,"1005,54921013034 ",.02)
 ;;54921013034
 ;;9002226.02101,"1005,54921013039 ",.01)
 ;;54921013039
 ;;9002226.02101,"1005,54921013039 ",.02)
 ;;54921013039
 ;;9002226.02101,"1005,54921013095 ",.01)
 ;;54921013095
 ;;9002226.02101,"1005,54921013095 ",.02)
 ;;54921013095
 ;;9002226.02101,"1005,54921013102 ",.01)
 ;;54921013102
 ;;9002226.02101,"1005,54921013102 ",.02)
 ;;54921013102
 ;;9002226.02101,"1005,54921013110 ",.01)
 ;;54921013110
 ;;9002226.02101,"1005,54921013110 ",.02)
 ;;54921013110
 ;;9002226.02101,"1005,54921013134 ",.01)
 ;;54921013134
 ;;9002226.02101,"1005,54921013134 ",.02)
 ;;54921013134
 ;;9002226.02101,"1005,54921013139 ",.01)
 ;;54921013139
 ;;9002226.02101,"1005,54921013139 ",.02)
 ;;54921013139
 ;;9002226.02101,"1005,54921013195 ",.01)
 ;;54921013195
 ;;9002226.02101,"1005,54921013195 ",.02)
 ;;54921013195
 ;;9002226.02101,"1005,54921013202 ",.01)
 ;;54921013202
 ;;9002226.02101,"1005,54921013202 ",.02)
 ;;54921013202
 ;;9002226.02101,"1005,54921013210 ",.01)
 ;;54921013210
 ;;9002226.02101,"1005,54921013210 ",.02)
 ;;54921013210
 ;;9002226.02101,"1005,54921013234 ",.01)
 ;;54921013234
 ;;9002226.02101,"1005,54921013234 ",.02)
 ;;54921013234
 ;;9002226.02101,"1005,54921013239 ",.01)
 ;;54921013239
 ;;9002226.02101,"1005,54921013239 ",.02)
 ;;54921013239
 ;;9002226.02101,"1005,54921013295 ",.01)
 ;;54921013295
 ;;9002226.02101,"1005,54921013295 ",.02)
 ;;54921013295
 ;;9002226.02101,"1005,54921013410 ",.01)
 ;;54921013410
 ;;9002226.02101,"1005,54921013410 ",.02)
 ;;54921013410
 ;;9002226.02101,"1005,54921013510 ",.01)
 ;;54921013510
 ;;9002226.02101,"1005,54921013510 ",.02)
 ;;54921013510
 ;;9002226.02101,"1005,54921014102 ",.01)
 ;;54921014102
 ;;9002226.02101,"1005,54921014102 ",.02)
 ;;54921014102
 ;;9002226.02101,"1005,54921014110 ",.01)
 ;;54921014110
 ;;9002226.02101,"1005,54921014110 ",.02)
 ;;54921014110
 ;;9002226.02101,"1005,54921014195 ",.01)
 ;;54921014195
 ;;9002226.02101,"1005,54921014195 ",.02)
 ;;54921014195
 ;;9002226.02101,"1005,54921014202 ",.01)
 ;;54921014202
 ;;9002226.02101,"1005,54921014202 ",.02)
 ;;54921014202
 ;;9002226.02101,"1005,54921014210 ",.01)
 ;;54921014210
 ;;9002226.02101,"1005,54921014210 ",.02)
 ;;54921014210
 ;;9002226.02101,"1005,54921014295 ",.01)
 ;;54921014295
 ;;9002226.02101,"1005,54921014295 ",.02)
 ;;54921014295
 ;;9002226.02101,"1005,54921014502 ",.01)
 ;;54921014502
 ;;9002226.02101,"1005,54921014502 ",.02)
 ;;54921014502
 ;;9002226.02101,"1005,54921014510 ",.01)
 ;;54921014510
 ;;9002226.02101,"1005,54921014510 ",.02)
 ;;54921014510
 ;;9002226.02101,"1005,54921014595 ",.01)
 ;;54921014595
 ;;9002226.02101,"1005,54921014595 ",.02)
 ;;54921014595
 ;;9002226.02101,"1005,55045206101 ",.01)
 ;;55045206101
 ;;9002226.02101,"1005,55045206101 ",.02)
 ;;55045206101
 ;;9002226.02101,"1005,55045206108 ",.01)
 ;;55045206108
 ;;9002226.02101,"1005,55045206108 ",.02)
 ;;55045206108
 ;;9002226.02101,"1005,55045222301 ",.01)
 ;;55045222301
 ;;9002226.02101,"1005,55045222301 ",.02)
 ;;55045222301
 ;;9002226.02101,"1005,55045229208 ",.01)
 ;;55045229208
 ;;9002226.02101,"1005,55045229208 ",.02)
 ;;55045229208
 ;;9002226.02101,"1005,55045231908 ",.01)
 ;;55045231908
 ;;9002226.02101,"1005,55045231908 ",.02)
 ;;55045231908
 ;;9002226.02101,"1005,55045237600 ",.01)
 ;;55045237600
 ;;9002226.02101,"1005,55045237600 ",.02)
 ;;55045237600
 ;;9002226.02101,"1005,55045237608 ",.01)
 ;;55045237608
 ;;9002226.02101,"1005,55045237608 ",.02)
 ;;55045237608
 ;;9002226.02101,"1005,55045237609 ",.01)
 ;;55045237609
 ;;9002226.02101,"1005,55045237609 ",.02)
 ;;55045237609
 ;;9002226.02101,"1005,55045238908 ",.01)
 ;;55045238908
 ;;9002226.02101,"1005,55045238908 ",.02)
 ;;55045238908
 ;;9002226.02101,"1005,55045279900 ",.01)
 ;;55045279900
 ;;9002226.02101,"1005,55045279900 ",.02)
 ;;55045279900
 ;;9002226.02101,"1005,55045279901 ",.01)
 ;;55045279901
 ;;9002226.02101,"1005,55045279901 ",.02)
 ;;55045279901
 ;;9002226.02101,"1005,55045279902 ",.01)
 ;;55045279902
 ;;9002226.02101,"1005,55045279902 ",.02)
 ;;55045279902
 ;;9002226.02101,"1005,55045279906 ",.01)
 ;;55045279906
 ;;9002226.02101,"1005,55045279906 ",.02)
 ;;55045279906
 ;;9002226.02101,"1005,55045279909 ",.01)
 ;;55045279909
 ;;9002226.02101,"1005,55045279909 ",.02)
 ;;55045279909
 ;;9002226.02101,"1005,55045282700 ",.01)
 ;;55045282700
 ;;9002226.02101,"1005,55045282700 ",.02)
 ;;55045282700
 ;;9002226.02101,"1005,55045282704 ",.01)
 ;;55045282704
 ;;9002226.02101,"1005,55045282704 ",.02)
 ;;55045282704
 ;;9002226.02101,"1005,55045282706 ",.01)
 ;;55045282706
 ;;9002226.02101,"1005,55045282706 ",.02)
 ;;55045282706
 ;;9002226.02101,"1005,55045282708 ",.01)
 ;;55045282708
 ;;9002226.02101,"1005,55045282708 ",.02)
 ;;55045282708
 ;;9002226.02101,"1005,55045282709 ",.01)
 ;;55045282709
 ;;9002226.02101,"1005,55045282709 ",.02)
 ;;55045282709
 ;;9002226.02101,"1005,55045282800 ",.01)
 ;;55045282800
 ;;9002226.02101,"1005,55045282800 ",.02)
 ;;55045282800
 ;;9002226.02101,"1005,55045283208 ",.01)
 ;;55045283208
 ;;9002226.02101,"1005,55045283208 ",.02)
 ;;55045283208
 ;;9002226.02101,"1005,55045292900 ",.01)
 ;;55045292900
 ;;9002226.02101,"1005,55045292900 ",.02)
 ;;55045292900
 ;;9002226.02101,"1005,55045292906 ",.01)
 ;;55045292906
 ;;9002226.02101,"1005,55045292906 ",.02)
 ;;55045292906
 ;;9002226.02101,"1005,55045292908 ",.01)
 ;;55045292908
 ;;9002226.02101,"1005,55045292908 ",.02)
 ;;55045292908
 ;;9002226.02101,"1005,55045293600 ",.01)
 ;;55045293600
 ;;9002226.02101,"1005,55045293600 ",.02)
 ;;55045293600
 ;;9002226.02101,"1005,55045293608 ",.01)
 ;;55045293608
 ;;9002226.02101,"1005,55045293608 ",.02)
 ;;55045293608
 ;;9002226.02101,"1005,55045293700 ",.01)
 ;;55045293700
 ;;9002226.02101,"1005,55045293700 ",.02)
 ;;55045293700
 ;;9002226.02101,"1005,55045293800 ",.01)
 ;;55045293800
 ;;9002226.02101,"1005,55045293800 ",.02)
 ;;55045293800
 ;;9002226.02101,"1005,55045293808 ",.01)
 ;;55045293808