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.
  1. BGPM5BGH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON OCT 28, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"768,00067503807 ",.01)
  1. ;;00067503807
  1. ;;9002226.02101,"768,00067503807 ",.02)
  1. ;;00067503807
  1. ;;9002226.02101,"768,00067503814 ",.01)
  1. ;;00067503814
  1. ;;9002226.02101,"768,00067503814 ",.02)
  1. ;;00067503814
  1. ;;9002226.02101,"768,00067512402 ",.01)
  1. ;;00067512402
  1. ;;9002226.02101,"768,00067512402 ",.02)
  1. ;;00067512402
  1. ;;9002226.02101,"768,00067512407 ",.01)
  1. ;;00067512407
  1. ;;9002226.02101,"768,00067512407 ",.02)
  1. ;;00067512407
  1. ;;9002226.02101,"768,00067512409 ",.01)
  1. ;;00067512409
  1. ;;9002226.02101,"768,00067512409 ",.02)
  1. ;;00067512409
  1. ;;9002226.02101,"768,00067512414 ",.01)
  1. ;;00067512414
  1. ;;9002226.02101,"768,00067512414 ",.02)
  1. ;;00067512414
  1. ;;9002226.02101,"768,00067512502 ",.01)
  1. ;;00067512502
  1. ;;9002226.02101,"768,00067512502 ",.02)
  1. ;;00067512502
  1. ;;9002226.02101,"768,00067512507 ",.01)
  1. ;;00067512507
  1. ;;9002226.02101,"768,00067512507 ",.02)
  1. ;;00067512507
  1. ;;9002226.02101,"768,00067512509 ",.01)
  1. ;;00067512509
  1. ;;9002226.02101,"768,00067512509 ",.02)
  1. ;;00067512509
  1. ;;9002226.02101,"768,00067512514 ",.01)
  1. ;;00067512514
  1. ;;9002226.02101,"768,00067512514 ",.02)
  1. ;;00067512514
  1. ;;9002226.02101,"768,00067512607 ",.01)
  1. ;;00067512607
  1. ;;9002226.02101,"768,00067512607 ",.02)
  1. ;;00067512607
  1. ;;9002226.02101,"768,00067512609 ",.01)
  1. ;;00067512609
  1. ;;9002226.02101,"768,00067512609 ",.02)
  1. ;;00067512609
  1. ;;9002226.02101,"768,00067512614 ",.01)
  1. ;;00067512614
  1. ;;9002226.02101,"768,00067512614 ",.02)
  1. ;;00067512614
  1. ;;9002226.02101,"768,00067512628 ",.01)
  1. ;;00067512628
  1. ;;9002226.02101,"768,00067512628 ",.02)
  1. ;;00067512628
  1. ;;9002226.02101,"768,00067612814 ",.01)
  1. ;;00067612814
  1. ;;9002226.02101,"768,00067612814 ",.02)
  1. ;;00067612814
  1. ;;9002226.02101,"768,00067612914 ",.01)
  1. ;;00067612914
  1. ;;9002226.02101,"768,00067612914 ",.02)
  1. ;;00067612914
  1. ;;9002226.02101,"768,00067613014 ",.01)
  1. ;;00067613014
  1. ;;9002226.02101,"768,00067613014 ",.02)
  1. ;;00067613014
  1. ;;9002226.02101,"768,00068004501 ",.01)
  1. ;;00068004501
  1. ;;9002226.02101,"768,00068004501 ",.02)
  1. ;;00068004501
  1. ;;9002226.02101,"768,00068004525 ",.01)
  1. ;;00068004525
  1. ;;9002226.02101,"768,00068004525 ",.02)
  1. ;;00068004525
  1. ;;9002226.02101,"768,00071985308 ",.01)
  1. ;;00071985308
  1. ;;9002226.02101,"768,00071985308 ",.02)
  1. ;;00071985308
  1. ;;9002226.02101,"768,00113020625 ",.01)
  1. ;;00113020625
  1. ;;9002226.02101,"768,00113020625 ",.02)
  1. ;;00113020625
  1. ;;9002226.02101,"768,00113034405 ",.01)
  1. ;;00113034405
  1. ;;9002226.02101,"768,00113034405 ",.02)
  1. ;;00113034405
  1. ;;9002226.02101,"768,00113042225 ",.01)
  1. ;;00113042225
  1. ;;9002226.02101,"768,00113042225 ",.02)
  1. ;;00113042225
  1. ;;9002226.02101,"768,00113045678 ",.01)
  1. ;;00113045678
  1. ;;9002226.02101,"768,00113045678 ",.02)
  1. ;;00113045678
  1. ;;9002226.02101,"768,00113053278 ",.01)
  1. ;;00113053278
  1. ;;9002226.02101,"768,00113053278 ",.02)
  1. ;;00113053278
  1. ;;9002226.02101,"768,00113087305 ",.01)
  1. ;;00113087305
  1. ;;9002226.02101,"768,00113087305 ",.02)
  1. ;;00113087305
  1. ;;9002226.02101,"768,00247056507 ",.01)
  1. ;;00247056507
  1. ;;9002226.02101,"768,00247056507 ",.02)
  1. ;;00247056507
  1. ;;9002226.02101,"768,00247056514 ",.01)
  1. ;;00247056514
  1. ;;9002226.02101,"768,00247056514 ",.02)
  1. ;;00247056514
  1. ;;9002226.02101,"768,00247192907 ",.01)
  1. ;;00247192907
  1. ;;9002226.02101,"768,00247192907 ",.02)
  1. ;;00247192907
  1. ;;9002226.02101,"768,00247192915 ",.01)
  1. ;;00247192915
  1. ;;9002226.02101,"768,00247192915 ",.02)
  1. ;;00247192915
  1. ;;9002226.02101,"768,00247192930 ",.01)
  1. ;;00247192930
  1. ;;9002226.02101,"768,00247192930 ",.02)
  1. ;;00247192930
  1. ;;9002226.02101,"768,00247193007 ",.01)
  1. ;;00247193007
  1. ;;9002226.02101,"768,00247193007 ",.02)
  1. ;;00247193007
  1. ;;9002226.02101,"768,00247193015 ",.01)
  1. ;;00247193015
  1. ;;9002226.02101,"768,00247193015 ",.02)
  1. ;;00247193015
  1. ;;9002226.02101,"768,00247193030 ",.01)
  1. ;;00247193030
  1. ;;9002226.02101,"768,00247193030 ",.02)
  1. ;;00247193030
  1. ;;9002226.02101,"768,00247193107 ",.01)
  1. ;;00247193107
  1. ;;9002226.02101,"768,00247193107 ",.02)
  1. ;;00247193107
  1. ;;9002226.02101,"768,00247193115 ",.01)
  1. ;;00247193115
  1. ;;9002226.02101,"768,00247193115 ",.02)
  1. ;;00247193115
  1. ;;9002226.02101,"768,00247193130 ",.01)
  1. ;;00247193130
  1. ;;9002226.02101,"768,00247193130 ",.02)
  1. ;;00247193130
  1. ;;9002226.02101,"768,00363012403 ",.01)
  1. ;;00363012403
  1. ;;9002226.02101,"768,00363012403 ",.02)
  1. ;;00363012403
  1. ;;9002226.02101,"768,00363012405 ",.01)
  1. ;;00363012405
  1. ;;9002226.02101,"768,00363012405 ",.02)
  1. ;;00363012405
  1. ;;9002226.02101,"768,00363012406 ",.01)
  1. ;;00363012406
  1. ;;9002226.02101,"768,00363012406 ",.02)
  1. ;;00363012406
  1. ;;9002226.02101,"768,00363012409 ",.01)
  1. ;;00363012409
  1. ;;9002226.02101,"768,00363012409 ",.02)
  1. ;;00363012409
  1. ;;9002226.02101,"768,00363012410 ",.01)
  1. ;;00363012410
  1. ;;9002226.02101,"768,00363012410 ",.02)
  1. ;;00363012410
  1. ;;9002226.02101,"768,00363019003 ",.01)
  1. ;;00363019003
  1. ;;9002226.02101,"768,00363019003 ",.02)
  1. ;;00363019003
  1. ;;9002226.02101,"768,00363019005 ",.01)
  1. ;;00363019005
  1. ;;9002226.02101,"768,00363019005 ",.02)
  1. ;;00363019005
  1. ;;9002226.02101,"768,00363019006 ",.01)
  1. ;;00363019006
  1. ;;9002226.02101,"768,00363019006 ",.02)
  1. ;;00363019006
  1. ;;9002226.02101,"768,00363019009 ",.01)
  1. ;;00363019009
  1. ;;9002226.02101,"768,00363019009 ",.02)
  1. ;;00363019009
  1. ;;9002226.02101,"768,00363019010 ",.01)
  1. ;;00363019010
  1. ;;9002226.02101,"768,00363019010 ",.02)
  1. ;;00363019010
  1. ;;9002226.02101,"768,00363019402 ",.01)
  1. ;;00363019402
  1. ;;9002226.02101,"768,00363019402 ",.02)
  1. ;;00363019402
  1. ;;9002226.02101,"768,00363019502 ",.01)
  1. ;;00363019502
  1. ;;9002226.02101,"768,00363019502 ",.02)
  1. ;;00363019502
  1. ;;9002226.02101,"768,00363019602 ",.01)
  1. ;;00363019602
  1. ;;9002226.02101,"768,00363019602 ",.02)
  1. ;;00363019602
  1. ;;9002226.02101,"768,00363020801 ",.01)
  1. ;;00363020801
  1. ;;9002226.02101,"768,00363020801 ",.02)
  1. ;;00363020801
  1. ;;9002226.02101,"768,00363020807 ",.01)
  1. ;;00363020807
  1. ;;9002226.02101,"768,00363020807 ",.02)
  1. ;;00363020807
  1. ;;9002226.02101,"768,00363020901 ",.01)
  1. ;;00363020901
  1. ;;9002226.02101,"768,00363020901 ",.02)
  1. ;;00363020901
  1. ;;9002226.02101,"768,00363020907 ",.01)
  1. ;;00363020907
  1. ;;9002226.02101,"768,00363020907 ",.02)
  1. ;;00363020907
  1. ;;9002226.02101,"768,00363034408 ",.01)
  1. ;;00363034408
  1. ;;9002226.02101,"768,00363034408 ",.02)
  1. ;;00363034408
  1. ;;9002226.02101,"768,00363034467 ",.01)
  1. ;;00363034467
  1. ;;9002226.02101,"768,00363034467 ",.02)
  1. ;;00363034467
  1. ;;9002226.02101,"768,00363042050 ",.01)
  1. ;;00363042050
  1. ;;9002226.02101,"768,00363042050 ",.02)
  1. ;;00363042050
  1. ;;9002226.02101,"768,00363042062 ",.01)
  1. ;;00363042062
  1. ;;9002226.02101,"768,00363042062 ",.02)
  1. ;;00363042062
  1. ;;9002226.02101,"768,00363042098 ",.01)
  1. ;;00363042098
  1. ;;9002226.02101,"768,00363042098 ",.02)
  1. ;;00363042098
  1. ;;9002226.02101,"768,00363042150 ",.01)
  1. ;;00363042150
  1. ;;9002226.02101,"768,00363042150 ",.02)
  1. ;;00363042150
  1. ;;9002226.02101,"768,00363042162 ",.01)
  1. ;;00363042162
  1. ;;9002226.02101,"768,00363042162 ",.02)
  1. ;;00363042162
  1. ;;9002226.02101,"768,00363042198 ",.01)
  1. ;;00363042198
  1. ;;9002226.02101,"768,00363042198 ",.02)
  1. ;;00363042198
  1. ;;9002226.02101,"768,00363042405 ",.01)
  1. ;;00363042405
  1. ;;9002226.02101,"768,00363042405 ",.02)
  1. ;;00363042405
  1. ;;9002226.02101,"768,00363042406 ",.01)
  1. ;;00363042406
  1. ;;9002226.02101,"768,00363042406 ",.02)
  1. ;;00363042406
  1. ;;9002226.02101,"768,00363045678 ",.01)
  1. ;;00363045678
  1. ;;9002226.02101,"768,00363045678 ",.02)
  1. ;;00363045678
  1. ;;9002226.02101,"768,00363053258 ",.01)
  1. ;;00363053258
  1. ;;9002226.02101,"768,00363053258 ",.02)
  1. ;;00363053258
  1. ;;9002226.02101,"768,00363053278 ",.01)
  1. ;;00363053278
  1. ;;9002226.02101,"768,00363053278 ",.02)
  1. ;;00363053278
  1. ;;9002226.02101,"768,00363087308 ",.01)
  1. ;;00363087308
  1. ;;9002226.02101,"768,00363087308 ",.02)
  1. ;;00363087308
  1. ;;9002226.02101,"768,00363087323 ",.01)
  1. ;;00363087323
  1. ;;9002226.02101,"768,00363087323 ",.02)
  1. ;;00363087323
  1. ;;9002226.02101,"768,00363087367 ",.01)
  1. ;;00363087367
  1. ;;9002226.02101,"768,00363087367 ",.02)
  1. ;;00363087367
  1. ;;9002226.02101,"768,00363412250 ",.01)
  1. ;;00363412250
  1. ;;9002226.02101,"768,00363412250 ",.02)
  1. ;;00363412250
  1. ;;9002226.02101,"768,00363412262 ",.01)
  1. ;;00363412262
  1. ;;9002226.02101,"768,00363412262 ",.02)
  1. ;;00363412262
  1. ;;9002226.02101,"768,00363412298 ",.01)
  1. ;;00363412298
  1. ;;9002226.02101,"768,00363412298 ",.02)
  1. ;;00363412298
  1. ;;9002226.02101,"768,00363414950 ",.01)
  1. ;;00363414950
  1. ;;9002226.02101,"768,00363414950 ",.02)
  1. ;;00363414950
  1. ;;9002226.02101,"768,00363414962 ",.01)
  1. ;;00363414962
  1. ;;9002226.02101,"768,00363414962 ",.02)
  1. ;;00363414962
  1. ;;9002226.02101,"768,00363414998 ",.01)
  1. ;;00363414998
  1. ;;9002226.02101,"768,00363414998 ",.02)
  1. ;;00363414998
  1. ;;9002226.02101,"768,00364289030 ",.01)
  1. ;;00364289030
  1. ;;9002226.02101,"768,00364289030 ",.02)
  1. ;;00364289030
  1. ;;9002226.02101,"768,00364289330 ",.01)
  1. ;;00364289330
  1. ;;9002226.02101,"768,00364289330 ",.02)
  1. ;;00364289330
  1. ;;9002226.02101,"768,00364290130 ",.01)
  1. ;;00364290130
  1. ;;9002226.02101,"768,00364290130 ",.02)
  1. ;;00364290130
  1. ;;9002226.02101,"768,00536136206 ",.01)
  1. ;;00536136206
  1. ;;9002226.02101,"768,00536136206 ",.02)
  1. ;;00536136206
  1. ;;9002226.02101,"768,00536136223 ",.01)
  1. ;;00536136223
  1. ;;9002226.02101,"768,00536136223 ",.02)
  1. ;;00536136223
  1. ;;9002226.02101,"768,00536136234 ",.01)
  1. ;;00536136234
  1. ;;9002226.02101,"768,00536136234 ",.02)
  1. ;;00536136234
  1. ;;9002226.02101,"768,00536137206 ",.01)
  1. ;;00536137206
  1. ;;9002226.02101,"768,00536137206 ",.02)
  1. ;;00536137206
  1. ;;9002226.02101,"768,00536137223 ",.01)
  1. ;;00536137223
  1. ;;9002226.02101,"768,00536137223 ",.02)
  1. ;;00536137223
  1. ;;9002226.02101,"768,00536137234 ",.01)
  1. ;;00536137234
  1. ;;9002226.02101,"768,00536137234 ",.02)
  1. ;;00536137234
  1. ;;9002226.02101,"768,00536302906 ",.01)
  1. ;;00536302906
  1. ;;9002226.02101,"768,00536302906 ",.02)
  1. ;;00536302906
  1. ;;9002226.02101,"768,00536302923 ",.01)
  1. ;;00536302923
  1. ;;9002226.02101,"768,00536302923 ",.02)
  1. ;;00536302923
  1. ;;9002226.02101,"768,00536303006 ",.01)
  1. ;;00536303006
  1. ;;9002226.02101,"768,00536303006 ",.02)
  1. ;;00536303006
  1. ;;9002226.02101,"768,00536303023 ",.01)
  1. ;;00536303023
  1. ;;9002226.02101,"768,00536303023 ",.02)
  1. ;;00536303023
  1. ;;9002226.02101,"768,00536310606 ",.01)
  1. ;;00536310606
  1. ;;9002226.02101,"768,00536310606 ",.02)
  1. ;;00536310606
  1. ;;9002226.02101,"768,00536310618 ",.01)
  1. ;;00536310618
  1. ;;9002226.02101,"768,00536310618 ",.02)
  1. ;;00536310618
  1. ;;9002226.02101,"768,00536310623 ",.01)
  1. ;;00536310623
  1. ;;9002226.02101,"768,00536310623 ",.02)
  1. ;;00536310623
  1. ;;9002226.02101,"768,00536310634 ",.01)
  1. ;;00536310634
  1. ;;9002226.02101,"768,00536310634 ",.02)
  1. ;;00536310634
  1. ;;9002226.02101,"768,00536310643 ",.01)
  1. ;;00536310643
  1. ;;9002226.02101,"768,00536310643 ",.02)
  1. ;;00536310643
  1. ;;9002226.02101,"768,00536310706 ",.01)
  1. ;;00536310706
  1. ;;9002226.02101,"768,00536310706 ",.02)
  1. ;;00536310706
  1. ;;9002226.02101,"768,00536310718 ",.01)
  1. ;;00536310718
  1. ;;9002226.02101,"768,00536310718 ",.02)
  1. ;;00536310718
  1. ;;9002226.02101,"768,00536310723 ",.01)
  1. ;;00536310723
  1. ;;9002226.02101,"768,00536310723 ",.02)
  1. ;;00536310723
  1. ;;9002226.02101,"768,00536310734 ",.01)
  1. ;;00536310734
  1. ;;9002226.02101,"768,00536310734 ",.02)
  1. ;;00536310734
  1. ;;9002226.02101,"768,00536310743 ",.01)
  1. ;;00536310743
  1. ;;9002226.02101,"768,00536310743 ",.02)
  1. ;;00536310743
  1. ;;9002226.02101,"768,00536311201 ",.01)
  1. ;;00536311201
  1. ;;9002226.02101,"768,00536311201 ",.02)
  1. ;;00536311201
  1. ;;9002226.02101,"768,00536311237 ",.01)
  1. ;;00536311237
  1. ;;9002226.02101,"768,00536311237 ",.02)
  1. ;;00536311237
  1. ;;9002226.02101,"768,00536311301 ",.01)
  1. ;;00536311301
  1. ;;9002226.02101,"768,00536311301 ",.02)
  1. ;;00536311301