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

BGPM5BGH.m

Go to the documentation of this file.
BGPM5BGH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON OCT 28, 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,"768,00067503807 ",.01)
 ;;00067503807
 ;;9002226.02101,"768,00067503807 ",.02)
 ;;00067503807
 ;;9002226.02101,"768,00067503814 ",.01)
 ;;00067503814
 ;;9002226.02101,"768,00067503814 ",.02)
 ;;00067503814
 ;;9002226.02101,"768,00067512402 ",.01)
 ;;00067512402
 ;;9002226.02101,"768,00067512402 ",.02)
 ;;00067512402
 ;;9002226.02101,"768,00067512407 ",.01)
 ;;00067512407
 ;;9002226.02101,"768,00067512407 ",.02)
 ;;00067512407
 ;;9002226.02101,"768,00067512409 ",.01)
 ;;00067512409
 ;;9002226.02101,"768,00067512409 ",.02)
 ;;00067512409
 ;;9002226.02101,"768,00067512414 ",.01)
 ;;00067512414
 ;;9002226.02101,"768,00067512414 ",.02)
 ;;00067512414
 ;;9002226.02101,"768,00067512502 ",.01)
 ;;00067512502
 ;;9002226.02101,"768,00067512502 ",.02)
 ;;00067512502
 ;;9002226.02101,"768,00067512507 ",.01)
 ;;00067512507
 ;;9002226.02101,"768,00067512507 ",.02)
 ;;00067512507
 ;;9002226.02101,"768,00067512509 ",.01)
 ;;00067512509
 ;;9002226.02101,"768,00067512509 ",.02)
 ;;00067512509
 ;;9002226.02101,"768,00067512514 ",.01)
 ;;00067512514
 ;;9002226.02101,"768,00067512514 ",.02)
 ;;00067512514
 ;;9002226.02101,"768,00067512607 ",.01)
 ;;00067512607
 ;;9002226.02101,"768,00067512607 ",.02)
 ;;00067512607
 ;;9002226.02101,"768,00067512609 ",.01)
 ;;00067512609
 ;;9002226.02101,"768,00067512609 ",.02)
 ;;00067512609
 ;;9002226.02101,"768,00067512614 ",.01)
 ;;00067512614
 ;;9002226.02101,"768,00067512614 ",.02)
 ;;00067512614
 ;;9002226.02101,"768,00067512628 ",.01)
 ;;00067512628
 ;;9002226.02101,"768,00067512628 ",.02)
 ;;00067512628
 ;;9002226.02101,"768,00067612814 ",.01)
 ;;00067612814
 ;;9002226.02101,"768,00067612814 ",.02)
 ;;00067612814
 ;;9002226.02101,"768,00067612914 ",.01)
 ;;00067612914
 ;;9002226.02101,"768,00067612914 ",.02)
 ;;00067612914
 ;;9002226.02101,"768,00067613014 ",.01)
 ;;00067613014
 ;;9002226.02101,"768,00067613014 ",.02)
 ;;00067613014
 ;;9002226.02101,"768,00068004501 ",.01)
 ;;00068004501
 ;;9002226.02101,"768,00068004501 ",.02)
 ;;00068004501
 ;;9002226.02101,"768,00068004525 ",.01)
 ;;00068004525
 ;;9002226.02101,"768,00068004525 ",.02)
 ;;00068004525
 ;;9002226.02101,"768,00071985308 ",.01)
 ;;00071985308
 ;;9002226.02101,"768,00071985308 ",.02)
 ;;00071985308
 ;;9002226.02101,"768,00113020625 ",.01)
 ;;00113020625
 ;;9002226.02101,"768,00113020625 ",.02)
 ;;00113020625
 ;;9002226.02101,"768,00113034405 ",.01)
 ;;00113034405
 ;;9002226.02101,"768,00113034405 ",.02)
 ;;00113034405
 ;;9002226.02101,"768,00113042225 ",.01)
 ;;00113042225
 ;;9002226.02101,"768,00113042225 ",.02)
 ;;00113042225
 ;;9002226.02101,"768,00113045678 ",.01)
 ;;00113045678
 ;;9002226.02101,"768,00113045678 ",.02)
 ;;00113045678
 ;;9002226.02101,"768,00113053278 ",.01)
 ;;00113053278
 ;;9002226.02101,"768,00113053278 ",.02)
 ;;00113053278
 ;;9002226.02101,"768,00113087305 ",.01)
 ;;00113087305
 ;;9002226.02101,"768,00113087305 ",.02)
 ;;00113087305
 ;;9002226.02101,"768,00247056507 ",.01)
 ;;00247056507
 ;;9002226.02101,"768,00247056507 ",.02)
 ;;00247056507
 ;;9002226.02101,"768,00247056514 ",.01)
 ;;00247056514
 ;;9002226.02101,"768,00247056514 ",.02)
 ;;00247056514
 ;;9002226.02101,"768,00247192907 ",.01)
 ;;00247192907
 ;;9002226.02101,"768,00247192907 ",.02)
 ;;00247192907
 ;;9002226.02101,"768,00247192915 ",.01)
 ;;00247192915
 ;;9002226.02101,"768,00247192915 ",.02)
 ;;00247192915
 ;;9002226.02101,"768,00247192930 ",.01)
 ;;00247192930
 ;;9002226.02101,"768,00247192930 ",.02)
 ;;00247192930
 ;;9002226.02101,"768,00247193007 ",.01)
 ;;00247193007
 ;;9002226.02101,"768,00247193007 ",.02)
 ;;00247193007
 ;;9002226.02101,"768,00247193015 ",.01)
 ;;00247193015
 ;;9002226.02101,"768,00247193015 ",.02)
 ;;00247193015
 ;;9002226.02101,"768,00247193030 ",.01)
 ;;00247193030
 ;;9002226.02101,"768,00247193030 ",.02)
 ;;00247193030
 ;;9002226.02101,"768,00247193107 ",.01)
 ;;00247193107
 ;;9002226.02101,"768,00247193107 ",.02)
 ;;00247193107
 ;;9002226.02101,"768,00247193115 ",.01)
 ;;00247193115
 ;;9002226.02101,"768,00247193115 ",.02)
 ;;00247193115
 ;;9002226.02101,"768,00247193130 ",.01)
 ;;00247193130
 ;;9002226.02101,"768,00247193130 ",.02)
 ;;00247193130
 ;;9002226.02101,"768,00363012403 ",.01)
 ;;00363012403
 ;;9002226.02101,"768,00363012403 ",.02)
 ;;00363012403
 ;;9002226.02101,"768,00363012405 ",.01)
 ;;00363012405
 ;;9002226.02101,"768,00363012405 ",.02)
 ;;00363012405
 ;;9002226.02101,"768,00363012406 ",.01)
 ;;00363012406
 ;;9002226.02101,"768,00363012406 ",.02)
 ;;00363012406
 ;;9002226.02101,"768,00363012409 ",.01)
 ;;00363012409
 ;;9002226.02101,"768,00363012409 ",.02)
 ;;00363012409
 ;;9002226.02101,"768,00363012410 ",.01)
 ;;00363012410
 ;;9002226.02101,"768,00363012410 ",.02)
 ;;00363012410
 ;;9002226.02101,"768,00363019003 ",.01)
 ;;00363019003
 ;;9002226.02101,"768,00363019003 ",.02)
 ;;00363019003
 ;;9002226.02101,"768,00363019005 ",.01)
 ;;00363019005
 ;;9002226.02101,"768,00363019005 ",.02)
 ;;00363019005
 ;;9002226.02101,"768,00363019006 ",.01)
 ;;00363019006
 ;;9002226.02101,"768,00363019006 ",.02)
 ;;00363019006
 ;;9002226.02101,"768,00363019009 ",.01)
 ;;00363019009
 ;;9002226.02101,"768,00363019009 ",.02)
 ;;00363019009
 ;;9002226.02101,"768,00363019010 ",.01)
 ;;00363019010
 ;;9002226.02101,"768,00363019010 ",.02)
 ;;00363019010
 ;;9002226.02101,"768,00363019402 ",.01)
 ;;00363019402
 ;;9002226.02101,"768,00363019402 ",.02)
 ;;00363019402
 ;;9002226.02101,"768,00363019502 ",.01)
 ;;00363019502
 ;;9002226.02101,"768,00363019502 ",.02)
 ;;00363019502
 ;;9002226.02101,"768,00363019602 ",.01)
 ;;00363019602
 ;;9002226.02101,"768,00363019602 ",.02)
 ;;00363019602
 ;;9002226.02101,"768,00363020801 ",.01)
 ;;00363020801
 ;;9002226.02101,"768,00363020801 ",.02)
 ;;00363020801
 ;;9002226.02101,"768,00363020807 ",.01)
 ;;00363020807
 ;;9002226.02101,"768,00363020807 ",.02)
 ;;00363020807
 ;;9002226.02101,"768,00363020901 ",.01)
 ;;00363020901
 ;;9002226.02101,"768,00363020901 ",.02)
 ;;00363020901
 ;;9002226.02101,"768,00363020907 ",.01)
 ;;00363020907
 ;;9002226.02101,"768,00363020907 ",.02)
 ;;00363020907
 ;;9002226.02101,"768,00363034408 ",.01)
 ;;00363034408
 ;;9002226.02101,"768,00363034408 ",.02)
 ;;00363034408
 ;;9002226.02101,"768,00363034467 ",.01)
 ;;00363034467
 ;;9002226.02101,"768,00363034467 ",.02)
 ;;00363034467
 ;;9002226.02101,"768,00363042050 ",.01)
 ;;00363042050
 ;;9002226.02101,"768,00363042050 ",.02)
 ;;00363042050
 ;;9002226.02101,"768,00363042062 ",.01)
 ;;00363042062
 ;;9002226.02101,"768,00363042062 ",.02)
 ;;00363042062
 ;;9002226.02101,"768,00363042098 ",.01)
 ;;00363042098
 ;;9002226.02101,"768,00363042098 ",.02)
 ;;00363042098
 ;;9002226.02101,"768,00363042150 ",.01)
 ;;00363042150
 ;;9002226.02101,"768,00363042150 ",.02)
 ;;00363042150
 ;;9002226.02101,"768,00363042162 ",.01)
 ;;00363042162
 ;;9002226.02101,"768,00363042162 ",.02)
 ;;00363042162
 ;;9002226.02101,"768,00363042198 ",.01)
 ;;00363042198
 ;;9002226.02101,"768,00363042198 ",.02)
 ;;00363042198
 ;;9002226.02101,"768,00363042405 ",.01)
 ;;00363042405
 ;;9002226.02101,"768,00363042405 ",.02)
 ;;00363042405
 ;;9002226.02101,"768,00363042406 ",.01)
 ;;00363042406
 ;;9002226.02101,"768,00363042406 ",.02)
 ;;00363042406
 ;;9002226.02101,"768,00363045678 ",.01)
 ;;00363045678
 ;;9002226.02101,"768,00363045678 ",.02)
 ;;00363045678
 ;;9002226.02101,"768,00363053258 ",.01)
 ;;00363053258
 ;;9002226.02101,"768,00363053258 ",.02)
 ;;00363053258
 ;;9002226.02101,"768,00363053278 ",.01)
 ;;00363053278
 ;;9002226.02101,"768,00363053278 ",.02)
 ;;00363053278
 ;;9002226.02101,"768,00363087308 ",.01)
 ;;00363087308
 ;;9002226.02101,"768,00363087308 ",.02)
 ;;00363087308
 ;;9002226.02101,"768,00363087323 ",.01)
 ;;00363087323
 ;;9002226.02101,"768,00363087323 ",.02)
 ;;00363087323
 ;;9002226.02101,"768,00363087367 ",.01)
 ;;00363087367
 ;;9002226.02101,"768,00363087367 ",.02)
 ;;00363087367
 ;;9002226.02101,"768,00363412250 ",.01)
 ;;00363412250
 ;;9002226.02101,"768,00363412250 ",.02)
 ;;00363412250
 ;;9002226.02101,"768,00363412262 ",.01)
 ;;00363412262
 ;;9002226.02101,"768,00363412262 ",.02)
 ;;00363412262
 ;;9002226.02101,"768,00363412298 ",.01)
 ;;00363412298
 ;;9002226.02101,"768,00363412298 ",.02)
 ;;00363412298
 ;;9002226.02101,"768,00363414950 ",.01)
 ;;00363414950
 ;;9002226.02101,"768,00363414950 ",.02)
 ;;00363414950
 ;;9002226.02101,"768,00363414962 ",.01)
 ;;00363414962
 ;;9002226.02101,"768,00363414962 ",.02)
 ;;00363414962
 ;;9002226.02101,"768,00363414998 ",.01)
 ;;00363414998
 ;;9002226.02101,"768,00363414998 ",.02)
 ;;00363414998
 ;;9002226.02101,"768,00364289030 ",.01)
 ;;00364289030
 ;;9002226.02101,"768,00364289030 ",.02)
 ;;00364289030
 ;;9002226.02101,"768,00364289330 ",.01)
 ;;00364289330
 ;;9002226.02101,"768,00364289330 ",.02)
 ;;00364289330
 ;;9002226.02101,"768,00364290130 ",.01)
 ;;00364290130
 ;;9002226.02101,"768,00364290130 ",.02)
 ;;00364290130
 ;;9002226.02101,"768,00536136206 ",.01)
 ;;00536136206
 ;;9002226.02101,"768,00536136206 ",.02)
 ;;00536136206
 ;;9002226.02101,"768,00536136223 ",.01)
 ;;00536136223
 ;;9002226.02101,"768,00536136223 ",.02)
 ;;00536136223
 ;;9002226.02101,"768,00536136234 ",.01)
 ;;00536136234
 ;;9002226.02101,"768,00536136234 ",.02)
 ;;00536136234
 ;;9002226.02101,"768,00536137206 ",.01)
 ;;00536137206
 ;;9002226.02101,"768,00536137206 ",.02)
 ;;00536137206
 ;;9002226.02101,"768,00536137223 ",.01)
 ;;00536137223
 ;;9002226.02101,"768,00536137223 ",.02)
 ;;00536137223
 ;;9002226.02101,"768,00536137234 ",.01)
 ;;00536137234
 ;;9002226.02101,"768,00536137234 ",.02)
 ;;00536137234
 ;;9002226.02101,"768,00536302906 ",.01)
 ;;00536302906
 ;;9002226.02101,"768,00536302906 ",.02)
 ;;00536302906
 ;;9002226.02101,"768,00536302923 ",.01)
 ;;00536302923
 ;;9002226.02101,"768,00536302923 ",.02)
 ;;00536302923
 ;;9002226.02101,"768,00536303006 ",.01)
 ;;00536303006
 ;;9002226.02101,"768,00536303006 ",.02)
 ;;00536303006
 ;;9002226.02101,"768,00536303023 ",.01)
 ;;00536303023
 ;;9002226.02101,"768,00536303023 ",.02)
 ;;00536303023
 ;;9002226.02101,"768,00536310606 ",.01)
 ;;00536310606
 ;;9002226.02101,"768,00536310606 ",.02)
 ;;00536310606
 ;;9002226.02101,"768,00536310618 ",.01)
 ;;00536310618
 ;;9002226.02101,"768,00536310618 ",.02)
 ;;00536310618
 ;;9002226.02101,"768,00536310623 ",.01)
 ;;00536310623
 ;;9002226.02101,"768,00536310623 ",.02)
 ;;00536310623
 ;;9002226.02101,"768,00536310634 ",.01)
 ;;00536310634
 ;;9002226.02101,"768,00536310634 ",.02)
 ;;00536310634
 ;;9002226.02101,"768,00536310643 ",.01)
 ;;00536310643
 ;;9002226.02101,"768,00536310643 ",.02)
 ;;00536310643
 ;;9002226.02101,"768,00536310706 ",.01)
 ;;00536310706
 ;;9002226.02101,"768,00536310706 ",.02)
 ;;00536310706
 ;;9002226.02101,"768,00536310718 ",.01)
 ;;00536310718
 ;;9002226.02101,"768,00536310718 ",.02)
 ;;00536310718
 ;;9002226.02101,"768,00536310723 ",.01)
 ;;00536310723
 ;;9002226.02101,"768,00536310723 ",.02)
 ;;00536310723
 ;;9002226.02101,"768,00536310734 ",.01)
 ;;00536310734
 ;;9002226.02101,"768,00536310734 ",.02)
 ;;00536310734
 ;;9002226.02101,"768,00536310743 ",.01)
 ;;00536310743
 ;;9002226.02101,"768,00536310743 ",.02)
 ;;00536310743
 ;;9002226.02101,"768,00536311201 ",.01)
 ;;00536311201
 ;;9002226.02101,"768,00536311201 ",.02)
 ;;00536311201
 ;;9002226.02101,"768,00536311237 ",.01)
 ;;00536311237
 ;;9002226.02101,"768,00536311237 ",.02)
 ;;00536311237
 ;;9002226.02101,"768,00536311301 ",.01)
 ;;00536311301
 ;;9002226.02101,"768,00536311301 ",.02)
 ;;00536311301