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