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

BGPM3ABH.m

Go to the documentation of this file.
  1. BGPM3ABH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"775,00839676409 ",.01)
  1. ;;00839676409
  1. ;;9002226.02101,"775,00839676409 ",.02)
  1. ;;00839676409
  1. ;;9002226.02101,"775,00839676414 ",.01)
  1. ;;00839676414
  1. ;;9002226.02101,"775,00839676414 ",.02)
  1. ;;00839676414
  1. ;;9002226.02101,"775,00839726906 ",.01)
  1. ;;00839726906
  1. ;;9002226.02101,"775,00839726906 ",.02)
  1. ;;00839726906
  1. ;;9002226.02101,"775,00839740406 ",.01)
  1. ;;00839740406
  1. ;;9002226.02101,"775,00839740406 ",.02)
  1. ;;00839740406
  1. ;;9002226.02101,"775,00839746802 ",.01)
  1. ;;00839746802
  1. ;;9002226.02101,"775,00839746802 ",.02)
  1. ;;00839746802
  1. ;;9002226.02101,"775,00839760106 ",.01)
  1. ;;00839760106
  1. ;;9002226.02101,"775,00839760106 ",.02)
  1. ;;00839760106
  1. ;;9002226.02101,"775,00839760116 ",.01)
  1. ;;00839760116
  1. ;;9002226.02101,"775,00839760116 ",.02)
  1. ;;00839760116
  1. ;;9002226.02101,"775,00839806712 ",.01)
  1. ;;00839806712
  1. ;;9002226.02101,"775,00839806712 ",.02)
  1. ;;00839806712
  1. ;;9002226.02101,"775,00869151310 ",.01)
  1. ;;00869151310
  1. ;;9002226.02101,"775,00869151310 ",.02)
  1. ;;00869151310
  1. ;;9002226.02101,"775,00869152410 ",.01)
  1. ;;00869152410
  1. ;;9002226.02101,"775,00869152410 ",.02)
  1. ;;00869152410
  1. ;;9002226.02101,"775,00869153009 ",.01)
  1. ;;00869153009
  1. ;;9002226.02101,"775,00869153009 ",.02)
  1. ;;00869153009
  1. ;;9002226.02101,"775,00869153109 ",.01)
  1. ;;00869153109
  1. ;;9002226.02101,"775,00869153109 ",.02)
  1. ;;00869153109
  1. ;;9002226.02101,"775,00869153209 ",.01)
  1. ;;00869153209
  1. ;;9002226.02101,"775,00869153209 ",.02)
  1. ;;00869153209
  1. ;;9002226.02101,"775,00869154410 ",.01)
  1. ;;00869154410
  1. ;;9002226.02101,"775,00869154410 ",.02)
  1. ;;00869154410
  1. ;;9002226.02101,"775,00869155410 ",.01)
  1. ;;00869155410
  1. ;;9002226.02101,"775,00869155410 ",.02)
  1. ;;00869155410
  1. ;;9002226.02101,"775,00869155510 ",.01)
  1. ;;00869155510
  1. ;;9002226.02101,"775,00869155510 ",.02)
  1. ;;00869155510
  1. ;;9002226.02101,"775,00869155529 ",.01)
  1. ;;00869155529
  1. ;;9002226.02101,"775,00869155529 ",.02)
  1. ;;00869155529
  1. ;;9002226.02101,"775,00869155610 ",.01)
  1. ;;00869155610
  1. ;;9002226.02101,"775,00869155610 ",.02)
  1. ;;00869155610
  1. ;;9002226.02101,"775,00869155710 ",.01)
  1. ;;00869155710
  1. ;;9002226.02101,"775,00869155710 ",.02)
  1. ;;00869155710
  1. ;;9002226.02101,"775,00869155910 ",.01)
  1. ;;00869155910
  1. ;;9002226.02101,"775,00869155910 ",.02)
  1. ;;00869155910
  1. ;;9002226.02101,"775,00879009301 ",.01)
  1. ;;00879009301
  1. ;;9002226.02101,"775,00879009301 ",.02)
  1. ;;00879009301
  1. ;;9002226.02101,"775,00879027662 ",.01)
  1. ;;00879027662
  1. ;;9002226.02101,"775,00879027662 ",.02)
  1. ;;00879027662
  1. ;;9002226.02101,"775,00879027762 ",.01)
  1. ;;00879027762
  1. ;;9002226.02101,"775,00879027762 ",.02)
  1. ;;00879027762
  1. ;;9002226.02101,"775,00879027862 ",.01)
  1. ;;00879027862
  1. ;;9002226.02101,"775,00879027862 ",.02)
  1. ;;00879027862
  1. ;;9002226.02101,"775,00879048301 ",.01)
  1. ;;00879048301
  1. ;;9002226.02101,"775,00879048301 ",.02)
  1. ;;00879048301
  1. ;;9002226.02101,"775,00879048310 ",.01)
  1. ;;00879048310
  1. ;;9002226.02101,"775,00879048310 ",.02)
  1. ;;00879048310
  1. ;;9002226.02101,"775,00894556001 ",.01)
  1. ;;00894556001
  1. ;;9002226.02101,"775,00894556001 ",.02)
  1. ;;00894556001
  1. ;;9002226.02101,"775,00894556002 ",.01)
  1. ;;00894556002
  1. ;;9002226.02101,"775,00894556002 ",.02)
  1. ;;00894556002
  1. ;;9002226.02101,"775,00894556501 ",.01)
  1. ;;00894556501
  1. ;;9002226.02101,"775,00894556501 ",.02)
  1. ;;00894556501
  1. ;;9002226.02101,"775,00894556502 ",.01)
  1. ;;00894556502
  1. ;;9002226.02101,"775,00894556502 ",.02)
  1. ;;00894556502
  1. ;;9002226.02101,"775,00894557001 ",.01)
  1. ;;00894557001
  1. ;;9002226.02101,"775,00894557001 ",.02)
  1. ;;00894557001
  1. ;;9002226.02101,"775,00894557002 ",.01)
  1. ;;00894557002
  1. ;;9002226.02101,"775,00894557002 ",.02)
  1. ;;00894557002
  1. ;;9002226.02101,"775,00894557601 ",.01)
  1. ;;00894557601
  1. ;;9002226.02101,"775,00894557601 ",.02)
  1. ;;00894557601
  1. ;;9002226.02101,"775,00894557602 ",.01)
  1. ;;00894557602
  1. ;;9002226.02101,"775,00894557602 ",.02)
  1. ;;00894557602
  1. ;;9002226.02101,"775,00894558001 ",.01)
  1. ;;00894558001
  1. ;;9002226.02101,"775,00894558001 ",.02)
  1. ;;00894558001
  1. ;;9002226.02101,"775,00894558002 ",.01)
  1. ;;00894558002
  1. ;;9002226.02101,"775,00894558002 ",.02)
  1. ;;00894558002
  1. ;;9002226.02101,"775,00904015312 ",.01)
  1. ;;00904015312
  1. ;;9002226.02101,"775,00904015312 ",.02)
  1. ;;00904015312
  1. ;;9002226.02101,"775,00904015412 ",.01)
  1. ;;00904015412
  1. ;;9002226.02101,"775,00904015412 ",.02)
  1. ;;00904015412
  1. ;;9002226.02101,"775,00904015512 ",.01)
  1. ;;00904015512
  1. ;;9002226.02101,"775,00904015512 ",.02)
  1. ;;00904015512
  1. ;;9002226.02101,"775,00904034759 ",.01)
  1. ;;00904034759
  1. ;;9002226.02101,"775,00904034759 ",.02)
  1. ;;00904034759
  1. ;;9002226.02101,"775,00904058260 ",.01)
  1. ;;00904058260
  1. ;;9002226.02101,"775,00904058260 ",.02)
  1. ;;00904058260
  1. ;;9002226.02101,"775,00904058560 ",.01)
  1. ;;00904058560
  1. ;;9002226.02101,"775,00904058560 ",.02)
  1. ;;00904058560
  1. ;;9002226.02101,"775,00904200940 ",.01)
  1. ;;00904200940
  1. ;;9002226.02101,"775,00904200940 ",.02)
  1. ;;00904200940
  1. ;;9002226.02101,"775,00904200951 ",.01)
  1. ;;00904200951
  1. ;;9002226.02101,"775,00904200951 ",.02)
  1. ;;00904200951
  1. ;;9002226.02101,"775,00904200960 ",.01)
  1. ;;00904200960
  1. ;;9002226.02101,"775,00904200960 ",.02)
  1. ;;00904200960
  1. ;;9002226.02101,"775,00904200970 ",.01)
  1. ;;00904200970
  1. ;;9002226.02101,"775,00904200970 ",.02)
  1. ;;00904200970
  1. ;;9002226.02101,"775,00904200980 ",.01)
  1. ;;00904200980
  1. ;;9002226.02101,"775,00904200980 ",.02)
  1. ;;00904200980
  1. ;;9002226.02101,"775,00904201060 ",.01)
  1. ;;00904201060
  1. ;;9002226.02101,"775,00904201060 ",.02)
  1. ;;00904201060
  1. ;;9002226.02101,"775,00904201080 ",.01)
  1. ;;00904201080
  1. ;;9002226.02101,"775,00904201080 ",.02)
  1. ;;00904201080
  1. ;;9002226.02101,"775,00904201159 ",.01)
  1. ;;00904201159
  1. ;;9002226.02101,"775,00904201159 ",.02)
  1. ;;00904201159
  1. ;;9002226.02101,"775,00904201360 ",.01)
  1. ;;00904201360
  1. ;;9002226.02101,"775,00904201360 ",.02)
  1. ;;00904201360
  1. ;;9002226.02101,"775,00904201380 ",.01)
  1. ;;00904201380
  1. ;;9002226.02101,"775,00904201380 ",.02)
  1. ;;00904201380
  1. ;;9002226.02101,"775,00904201559 ",.01)
  1. ;;00904201559
  1. ;;9002226.02101,"775,00904201559 ",.02)
  1. ;;00904201559
  1. ;;9002226.02101,"775,00904201560 ",.01)
  1. ;;00904201560
  1. ;;9002226.02101,"775,00904201560 ",.02)
  1. ;;00904201560
  1. ;;9002226.02101,"775,00904201959 ",.01)
  1. ;;00904201959
  1. ;;9002226.02101,"775,00904201959 ",.02)
  1. ;;00904201959
  1. ;;9002226.02101,"775,00904201960 ",.01)
  1. ;;00904201960
  1. ;;9002226.02101,"775,00904201960 ",.02)
  1. ;;00904201960
  1. ;;9002226.02101,"775,00904201961 ",.01)
  1. ;;00904201961
  1. ;;9002226.02101,"775,00904201961 ",.02)
  1. ;;00904201961
  1. ;;9002226.02101,"775,00904201970 ",.01)
  1. ;;00904201970
  1. ;;9002226.02101,"775,00904201970 ",.02)
  1. ;;00904201970
  1. ;;9002226.02101,"775,00904201980 ",.01)
  1. ;;00904201980
  1. ;;9002226.02101,"775,00904201980 ",.02)
  1. ;;00904201980
  1. ;;9002226.02101,"775,00904256060 ",.01)
  1. ;;00904256060
  1. ;;9002226.02101,"775,00904256060 ",.02)
  1. ;;00904256060
  1. ;;9002226.02101,"775,00904256160 ",.01)
  1. ;;00904256160
  1. ;;9002226.02101,"775,00904256160 ",.02)
  1. ;;00904256160
  1. ;;9002226.02101,"775,00904256260 ",.01)
  1. ;;00904256260
  1. ;;9002226.02101,"775,00904256260 ",.02)
  1. ;;00904256260
  1. ;;9002226.02101,"775,00904256270 ",.01)
  1. ;;00904256270
  1. ;;9002226.02101,"775,00904256270 ",.02)
  1. ;;00904256270
  1. ;;9002226.02101,"775,00904256360 ",.01)
  1. ;;00904256360
  1. ;;9002226.02101,"775,00904256360 ",.02)
  1. ;;00904256360
  1. ;;9002226.02101,"775,00904256460 ",.01)
  1. ;;00904256460
  1. ;;9002226.02101,"775,00904256460 ",.02)
  1. ;;00904256460
  1. ;;9002226.02101,"775,00904404061 ",.01)
  1. ;;00904404061
  1. ;;9002226.02101,"775,00904404061 ",.02)
  1. ;;00904404061
  1. ;;9002226.02101,"775,00904404073 ",.01)
  1. ;;00904404073
  1. ;;9002226.02101,"775,00904404073 ",.02)
  1. ;;00904404073
  1. ;;9002226.02101,"775,00904521260 ",.01)
  1. ;;00904521260
  1. ;;9002226.02101,"775,00904521260 ",.02)
  1. ;;00904521260
  1. ;;9002226.02101,"775,00904537840 ",.01)
  1. ;;00904537840
  1. ;;9002226.02101,"775,00904537840 ",.02)
  1. ;;00904537840
  1. ;;9002226.02101,"775,00904537846 ",.01)
  1. ;;00904537846
  1. ;;9002226.02101,"775,00904537846 ",.02)
  1. ;;00904537846
  1. ;;9002226.02101,"775,00904537852 ",.01)
  1. ;;00904537852
  1. ;;9002226.02101,"775,00904537852 ",.02)
  1. ;;00904537852
  1. ;;9002226.02101,"775,00904537860 ",.01)
  1. ;;00904537860
  1. ;;9002226.02101,"775,00904537860 ",.02)
  1. ;;00904537860
  1. ;;9002226.02101,"775,00904537861 ",.01)
  1. ;;00904537861
  1. ;;9002226.02101,"775,00904537861 ",.02)
  1. ;;00904537861
  1. ;;9002226.02101,"775,04116709325 ",.01)
  1. ;;04116709325
  1. ;;9002226.02101,"775,04116709325 ",.02)
  1. ;;04116709325
  1. ;;9002226.02101,"775,04850100500 ",.01)
  1. ;;04850100500
  1. ;;9002226.02101,"775,04850100500 ",.02)
  1. ;;04850100500
  1. ;;9002226.02101,"775,04850103000 ",.01)
  1. ;;04850103000
  1. ;;9002226.02101,"775,04850103000 ",.02)
  1. ;;04850103000
  1. ;;9002226.02101,"775,04850109500 ",.01)
  1. ;;04850109500
  1. ;;9002226.02101,"775,04850109500 ",.02)
  1. ;;04850109500
  1. ;;9002226.02101,"775,04850118000 ",.01)
  1. ;;04850118000
  1. ;;9002226.02101,"775,04850118000 ",.02)
  1. ;;04850118000
  1. ;;9002226.02101,"775,04850125600 ",.01)
  1. ;;04850125600
  1. ;;9002226.02101,"775,04850125600 ",.02)
  1. ;;04850125600
  1. ;;9002226.02101,"775,05307610230 ",.01)
  1. ;;05307610230
  1. ;;9002226.02101,"775,05307610230 ",.02)
  1. ;;05307610230
  1. ;;9002226.02101,"775,06030008521 ",.01)
  1. ;;06030008521
  1. ;;9002226.02101,"775,06030008521 ",.02)
  1. ;;06030008521
  1. ;;9002226.02101,"775,08290037003 ",.01)
  1. ;;08290037003
  1. ;;9002226.02101,"775,08290037003 ",.02)
  1. ;;08290037003
  1. ;;9002226.02101,"775,08290038003 ",.01)
  1. ;;08290038003
  1. ;;9002226.02101,"775,08290038003 ",.02)
  1. ;;08290038003
  1. ;;9002226.02101,"775,08290038005 ",.01)
  1. ;;08290038005
  1. ;;9002226.02101,"775,08290038005 ",.02)
  1. ;;08290038005
  1. ;;9002226.02101,"775,08290039003 ",.01)
  1. ;;08290039003
  1. ;;9002226.02101,"775,08290039003 ",.02)
  1. ;;08290039003
  1. ;;9002226.02101,"775,08290039005 ",.01)
  1. ;;08290039005
  1. ;;9002226.02101,"775,08290039005 ",.02)
  1. ;;08290039005
  1. ;;9002226.02101,"775,08290039105 ",.01)
  1. ;;08290039105
  1. ;;9002226.02101,"775,08290039105 ",.02)
  1. ;;08290039105
  1. ;;9002226.02101,"775,10009008401 ",.01)
  1. ;;10009008401
  1. ;;9002226.02101,"775,10009008401 ",.02)
  1. ;;10009008401
  1. ;;9002226.02101,"775,10135012601 ",.01)
  1. ;;10135012601
  1. ;;9002226.02101,"775,10135012601 ",.02)
  1. ;;10135012601
  1. ;;9002226.02101,"775,10135012603 ",.01)
  1. ;;10135012603
  1. ;;9002226.02101,"775,10135012603 ",.02)
  1. ;;10135012603
  1. ;;9002226.02101,"775,10135012610 ",.01)
  1. ;;10135012610
  1. ;;9002226.02101,"775,10135012610 ",.02)
  1. ;;10135012610
  1. ;;9002226.02101,"775,10135012613 ",.01)
  1. ;;10135012613
  1. ;;9002226.02101,"775,10135012613 ",.02)
  1. ;;10135012613
  1. ;;9002226.02101,"775,10135012620 ",.01)
  1. ;;10135012620
  1. ;;9002226.02101,"775,10135012620 ",.02)
  1. ;;10135012620
  1. ;;9002226.02101,"775,10135012630 ",.01)
  1. ;;10135012630
  1. ;;9002226.02101,"775,10135012630 ",.02)
  1. ;;10135012630
  1. ;;9002226.02101,"775,10135012650 ",.01)
  1. ;;10135012650
  1. ;;9002226.02101,"775,10135012650 ",.02)
  1. ;;10135012650
  1. ;;9002226.02101,"775,10135012657 ",.01)
  1. ;;10135012657
  1. ;;9002226.02101,"775,10135012657 ",.02)
  1. ;;10135012657
  1. ;;9002226.02101,"775,10135012660 ",.01)
  1. ;;10135012660
  1. ;;9002226.02101,"775,10135012660 ",.02)
  1. ;;10135012660
  1. ;;9002226.02101,"775,10135012669 ",.01)
  1. ;;10135012669
  1. ;;9002226.02101,"775,10135012669 ",.02)
  1. ;;10135012669
  1. ;;9002226.02101,"775,10135012675 ",.01)
  1. ;;10135012675
  1. ;;9002226.02101,"775,10135012675 ",.02)
  1. ;;10135012675
  1. ;;9002226.02101,"775,10135012690 ",.01)
  1. ;;10135012690
  1. ;;9002226.02101,"775,10135012690 ",.02)
  1. ;;10135012690
  1. ;;9002226.02101,"775,10135012699 ",.01)
  1. ;;10135012699
  1. ;;9002226.02101,"775,10135012699 ",.02)
  1. ;;10135012699
  1. ;;9002226.02101,"775,10135015001 ",.01)
  1. ;;10135015001
  1. ;;9002226.02101,"775,10135015001 ",.02)
  1. ;;10135015001