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

BGPM5BFV.m

Go to the documentation of this file.
BGPM5BFV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,65243023918 ",.02)
 ;;65243023918
 ;;9002226.02101,"1084,65243023927 ",.01)
 ;;65243023927
 ;;9002226.02101,"1084,65243023927 ",.02)
 ;;65243023927
 ;;9002226.02101,"1084,65243028503 ",.01)
 ;;65243028503
 ;;9002226.02101,"1084,65243028503 ",.02)
 ;;65243028503
 ;;9002226.02101,"1084,65243028506 ",.01)
 ;;65243028506
 ;;9002226.02101,"1084,65243028506 ",.02)
 ;;65243028506
 ;;9002226.02101,"1084,65243028509 ",.01)
 ;;65243028509
 ;;9002226.02101,"1084,65243028509 ",.02)
 ;;65243028509
 ;;9002226.02101,"1084,65243028512 ",.01)
 ;;65243028512
 ;;9002226.02101,"1084,65243028512 ",.02)
 ;;65243028512
 ;;9002226.02101,"1084,65243028518 ",.01)
 ;;65243028518
 ;;9002226.02101,"1084,65243028518 ",.02)
 ;;65243028518
 ;;9002226.02101,"1084,65243028803 ",.01)
 ;;65243028803
 ;;9002226.02101,"1084,65243028803 ",.02)
 ;;65243028803
 ;;9002226.02101,"1084,65243028806 ",.01)
 ;;65243028806
 ;;9002226.02101,"1084,65243028806 ",.02)
 ;;65243028806
 ;;9002226.02101,"1084,65243028809 ",.01)
 ;;65243028809
 ;;9002226.02101,"1084,65243028809 ",.02)
 ;;65243028809
 ;;9002226.02101,"1084,65243028812 ",.01)
 ;;65243028812
 ;;9002226.02101,"1084,65243028812 ",.02)
 ;;65243028812
 ;;9002226.02101,"1084,65243028818 ",.01)
 ;;65243028818
 ;;9002226.02101,"1084,65243028818 ",.02)
 ;;65243028818
 ;;9002226.02101,"1084,65243028906 ",.01)
 ;;65243028906
 ;;9002226.02101,"1084,65243028906 ",.02)
 ;;65243028906
 ;;9002226.02101,"1084,65243028909 ",.01)
 ;;65243028909
 ;;9002226.02101,"1084,65243028909 ",.02)
 ;;65243028909
 ;;9002226.02101,"1084,65243028912 ",.01)
 ;;65243028912
 ;;9002226.02101,"1084,65243028912 ",.02)
 ;;65243028912
 ;;9002226.02101,"1084,65243028918 ",.01)
 ;;65243028918
 ;;9002226.02101,"1084,65243028918 ",.02)
 ;;65243028918
 ;;9002226.02101,"1084,65243028927 ",.01)
 ;;65243028927
 ;;9002226.02101,"1084,65243028927 ",.02)
 ;;65243028927
 ;;9002226.02101,"1084,65243032509 ",.01)
 ;;65243032509
 ;;9002226.02101,"1084,65243032509 ",.02)
 ;;65243032509
 ;;9002226.02101,"1084,65243032518 ",.01)
 ;;65243032518
 ;;9002226.02101,"1084,65243032518 ",.02)
 ;;65243032518
 ;;9002226.02101,"1084,65243037103 ",.01)
 ;;65243037103
 ;;9002226.02101,"1084,65243037103 ",.02)
 ;;65243037103
 ;;9002226.02101,"1084,65243037106 ",.01)
 ;;65243037106
 ;;9002226.02101,"1084,65243037106 ",.02)
 ;;65243037106
 ;;9002226.02101,"1084,65243037109 ",.01)
 ;;65243037109
 ;;9002226.02101,"1084,65243037109 ",.02)
 ;;65243037109
 ;;9002226.02101,"1084,65243037112 ",.01)
 ;;65243037112
 ;;9002226.02101,"1084,65243037112 ",.02)
 ;;65243037112
 ;;9002226.02101,"1084,65243037118 ",.01)
 ;;65243037118
 ;;9002226.02101,"1084,65243037118 ",.02)
 ;;65243037118
 ;;9002226.02101,"1084,65243037203 ",.01)
 ;;65243037203
 ;;9002226.02101,"1084,65243037203 ",.02)
 ;;65243037203
 ;;9002226.02101,"1084,65243037206 ",.01)
 ;;65243037206
 ;;9002226.02101,"1084,65243037206 ",.02)
 ;;65243037206
 ;;9002226.02101,"1084,65243037209 ",.01)
 ;;65243037209
 ;;9002226.02101,"1084,65243037209 ",.02)
 ;;65243037209
 ;;9002226.02101,"1084,65243037212 ",.01)
 ;;65243037212
 ;;9002226.02101,"1084,65243037212 ",.02)
 ;;65243037212
 ;;9002226.02101,"1084,65243037218 ",.01)
 ;;65243037218
 ;;9002226.02101,"1084,65243037218 ",.02)
 ;;65243037218
 ;;9002226.02101,"1084,65243037803 ",.01)
 ;;65243037803
 ;;9002226.02101,"1084,65243037803 ",.02)
 ;;65243037803
 ;;9002226.02101,"1084,65243037806 ",.01)
 ;;65243037806
 ;;9002226.02101,"1084,65243037806 ",.02)
 ;;65243037806
 ;;9002226.02101,"1084,65243037809 ",.01)
 ;;65243037809
 ;;9002226.02101,"1084,65243037809 ",.02)
 ;;65243037809
 ;;9002226.02101,"1084,65243037812 ",.01)
 ;;65243037812
 ;;9002226.02101,"1084,65243037812 ",.02)
 ;;65243037812
 ;;9002226.02101,"1084,65243037818 ",.01)
 ;;65243037818
 ;;9002226.02101,"1084,65243037818 ",.02)
 ;;65243037818
 ;;9002226.02101,"1084,65427003101 ",.01)
 ;;65427003101
 ;;9002226.02101,"1084,65427003101 ",.02)
 ;;65427003101
 ;;9002226.02101,"1084,65427003201 ",.01)
 ;;65427003201
 ;;9002226.02101,"1084,65427003201 ",.02)
 ;;65427003201
 ;;9002226.02101,"1084,65427003202 ",.01)
 ;;65427003202
 ;;9002226.02101,"1084,65427003202 ",.02)
 ;;65427003202
 ;;9002226.02101,"1084,65427003301 ",.01)
 ;;65427003301
 ;;9002226.02101,"1084,65427003301 ",.02)
 ;;65427003301
 ;;9002226.02101,"1084,65427003302 ",.01)
 ;;65427003302
 ;;9002226.02101,"1084,65427003302 ",.02)
 ;;65427003302
 ;;9002226.02101,"1084,65427037501 ",.01)
 ;;65427037501
 ;;9002226.02101,"1084,65427037501 ",.02)
 ;;65427037501
 ;;9002226.02101,"1084,65427037603 ",.01)
 ;;65427037603
 ;;9002226.02101,"1084,65427037603 ",.02)
 ;;65427037603
 ;;9002226.02101,"1084,65427037704 ",.01)
 ;;65427037704
 ;;9002226.02101,"1084,65427037704 ",.02)
 ;;65427037704
 ;;9002226.02101,"1084,65427037706 ",.01)
 ;;65427037706
 ;;9002226.02101,"1084,65427037706 ",.02)
 ;;65427037706
 ;;9002226.02101,"1084,65427037707 ",.01)
 ;;65427037707
 ;;9002226.02101,"1084,65427037707 ",.02)
 ;;65427037707
 ;;9002226.02101,"1084,65427087201 ",.01)
 ;;65427087201
 ;;9002226.02101,"1084,65427087201 ",.02)
 ;;65427087201
 ;;9002226.02101,"1084,65427087205 ",.01)
 ;;65427087205
 ;;9002226.02101,"1084,65427087205 ",.02)
 ;;65427087205
 ;;9002226.02101,"1084,65427087301 ",.01)
 ;;65427087301
 ;;9002226.02101,"1084,65427087301 ",.02)
 ;;65427087301
 ;;9002226.02101,"1084,65427087305 ",.01)
 ;;65427087305
 ;;9002226.02101,"1084,65427087305 ",.02)
 ;;65427087305
 ;;9002226.02101,"1084,65841002701 ",.01)
 ;;65841002701
 ;;9002226.02101,"1084,65841002701 ",.02)
 ;;65841002701
 ;;9002226.02101,"1084,65841002705 ",.01)
 ;;65841002705
 ;;9002226.02101,"1084,65841002705 ",.02)
 ;;65841002705
 ;;9002226.02101,"1084,65841002801 ",.01)
 ;;65841002801
 ;;9002226.02101,"1084,65841002801 ",.02)
 ;;65841002801
 ;;9002226.02101,"1084,65841002805 ",.01)
 ;;65841002805
 ;;9002226.02101,"1084,65841002805 ",.02)
 ;;65841002805
 ;;9002226.02101,"1084,65841002810 ",.01)
 ;;65841002810
 ;;9002226.02101,"1084,65841002810 ",.02)
 ;;65841002810
 ;;9002226.02101,"1084,65841002816 ",.01)
 ;;65841002816
 ;;9002226.02101,"1084,65841002816 ",.02)
 ;;65841002816
 ;;9002226.02101,"1084,65841002830 ",.01)
 ;;65841002830
 ;;9002226.02101,"1084,65841002830 ",.02)
 ;;65841002830
 ;;9002226.02101,"1084,65841002861 ",.01)
 ;;65841002861
 ;;9002226.02101,"1084,65841002861 ",.02)
 ;;65841002861
 ;;9002226.02101,"1084,65841002901 ",.01)
 ;;65841002901
 ;;9002226.02101,"1084,65841002901 ",.02)
 ;;65841002901
 ;;9002226.02101,"1084,65841002905 ",.01)
 ;;65841002905
 ;;9002226.02101,"1084,65841002905 ",.02)
 ;;65841002905
 ;;9002226.02101,"1084,65841002910 ",.01)
 ;;65841002910
 ;;9002226.02101,"1084,65841002910 ",.02)
 ;;65841002910
 ;;9002226.02101,"1084,65841002916 ",.01)
 ;;65841002916
 ;;9002226.02101,"1084,65841002916 ",.02)
 ;;65841002916
 ;;9002226.02101,"1084,65841002930 ",.01)
 ;;65841002930
 ;;9002226.02101,"1084,65841002930 ",.02)
 ;;65841002930
 ;;9002226.02101,"1084,65841002961 ",.01)
 ;;65841002961
 ;;9002226.02101,"1084,65841002961 ",.02)
 ;;65841002961
 ;;9002226.02101,"1084,65841003001 ",.01)
 ;;65841003001
 ;;9002226.02101,"1084,65841003001 ",.02)
 ;;65841003001
 ;;9002226.02101,"1084,65841003005 ",.01)
 ;;65841003005
 ;;9002226.02101,"1084,65841003005 ",.02)
 ;;65841003005
 ;;9002226.02101,"1084,65841003010 ",.01)
 ;;65841003010
 ;;9002226.02101,"1084,65841003010 ",.02)
 ;;65841003010
 ;;9002226.02101,"1084,65841003016 ",.01)
 ;;65841003016
 ;;9002226.02101,"1084,65841003016 ",.02)
 ;;65841003016
 ;;9002226.02101,"1084,65841003030 ",.01)
 ;;65841003030
 ;;9002226.02101,"1084,65841003030 ",.02)
 ;;65841003030
 ;;9002226.02101,"1084,65841003061 ",.01)
 ;;65841003061
 ;;9002226.02101,"1084,65841003061 ",.02)
 ;;65841003061
 ;;9002226.02101,"1084,65841003901 ",.01)
 ;;65841003901
 ;;9002226.02101,"1084,65841003901 ",.02)
 ;;65841003901
 ;;9002226.02101,"1084,65841003905 ",.01)
 ;;65841003905
 ;;9002226.02101,"1084,65841003905 ",.02)
 ;;65841003905
 ;;9002226.02101,"1084,65862000801 ",.01)
 ;;65862000801
 ;;9002226.02101,"1084,65862000801 ",.02)
 ;;65862000801
 ;;9002226.02101,"1084,65862000805 ",.01)
 ;;65862000805
 ;;9002226.02101,"1084,65862000805 ",.02)
 ;;65862000805
 ;;9002226.02101,"1084,65862000833 ",.01)
 ;;65862000833
 ;;9002226.02101,"1084,65862000833 ",.02)
 ;;65862000833
 ;;9002226.02101,"1084,65862000845 ",.01)
 ;;65862000845
 ;;9002226.02101,"1084,65862000845 ",.02)
 ;;65862000845
 ;;9002226.02101,"1084,65862000849 ",.01)
 ;;65862000849
 ;;9002226.02101,"1084,65862000849 ",.02)
 ;;65862000849
 ;;9002226.02101,"1084,65862000850 ",.01)
 ;;65862000850
 ;;9002226.02101,"1084,65862000850 ",.02)
 ;;65862000850
 ;;9002226.02101,"1084,65862000860 ",.01)
 ;;65862000860
 ;;9002226.02101,"1084,65862000860 ",.02)
 ;;65862000860
 ;;9002226.02101,"1084,65862000890 ",.01)
 ;;65862000890
 ;;9002226.02101,"1084,65862000890 ",.02)
 ;;65862000890
 ;;9002226.02101,"1084,65862000899 ",.01)
 ;;65862000899
 ;;9002226.02101,"1084,65862000899 ",.02)
 ;;65862000899
 ;;9002226.02101,"1084,65862000901 ",.01)
 ;;65862000901
 ;;9002226.02101,"1084,65862000901 ",.02)
 ;;65862000901
 ;;9002226.02101,"1084,65862000905 ",.01)
 ;;65862000905
 ;;9002226.02101,"1084,65862000905 ",.02)
 ;;65862000905
 ;;9002226.02101,"1084,65862000926 ",.01)
 ;;65862000926
 ;;9002226.02101,"1084,65862000926 ",.02)
 ;;65862000926
 ;;9002226.02101,"1084,65862000933 ",.01)
 ;;65862000933
 ;;9002226.02101,"1084,65862000933 ",.02)
 ;;65862000933
 ;;9002226.02101,"1084,65862000944 ",.01)
 ;;65862000944
 ;;9002226.02101,"1084,65862000944 ",.02)
 ;;65862000944
 ;;9002226.02101,"1084,65862000950 ",.01)
 ;;65862000950
 ;;9002226.02101,"1084,65862000950 ",.02)
 ;;65862000950
 ;;9002226.02101,"1084,65862000960 ",.01)
 ;;65862000960
 ;;9002226.02101,"1084,65862000960 ",.02)
 ;;65862000960
 ;;9002226.02101,"1084,65862000990 ",.01)
 ;;65862000990
 ;;9002226.02101,"1084,65862000990 ",.02)
 ;;65862000990
 ;;9002226.02101,"1084,65862000999 ",.01)
 ;;65862000999
 ;;9002226.02101,"1084,65862000999 ",.02)
 ;;65862000999
 ;;9002226.02101,"1084,65862001001 ",.01)
 ;;65862001001
 ;;9002226.02101,"1084,65862001001 ",.02)
 ;;65862001001
 ;;9002226.02101,"1084,65862001005 ",.01)
 ;;65862001005
 ;;9002226.02101,"1084,65862001005 ",.02)
 ;;65862001005
 ;;9002226.02101,"1084,65862001022 ",.01)
 ;;65862001022
 ;;9002226.02101,"1084,65862001022 ",.02)
 ;;65862001022
 ;;9002226.02101,"1084,65862001033 ",.01)
 ;;65862001033
 ;;9002226.02101,"1084,65862001033 ",.02)
 ;;65862001033
 ;;9002226.02101,"1084,65862001046 ",.01)
 ;;65862001046
 ;;9002226.02101,"1084,65862001046 ",.02)
 ;;65862001046
 ;;9002226.02101,"1084,65862001050 ",.01)
 ;;65862001050
 ;;9002226.02101,"1084,65862001050 ",.02)
 ;;65862001050
 ;;9002226.02101,"1084,65862001060 ",.01)
 ;;65862001060
 ;;9002226.02101,"1084,65862001060 ",.02)
 ;;65862001060
 ;;9002226.02101,"1084,65862001090 ",.01)
 ;;65862001090
 ;;9002226.02101,"1084,65862001090 ",.02)
 ;;65862001090
 ;;9002226.02101,"1084,65862001099 ",.01)
 ;;65862001099
 ;;9002226.02101,"1084,65862001099 ",.02)
 ;;65862001099
 ;;9002226.02101,"1084,65862002801 ",.01)
 ;;65862002801
 ;;9002226.02101,"1084,65862002801 ",.02)
 ;;65862002801
 ;;9002226.02101,"1084,65862002817 ",.01)
 ;;65862002817
 ;;9002226.02101,"1084,65862002817 ",.02)
 ;;65862002817
 ;;9002226.02101,"1084,65862002830 ",.01)
 ;;65862002830
 ;;9002226.02101,"1084,65862002830 ",.02)
 ;;65862002830
 ;;9002226.02101,"1084,65862002850 ",.01)
 ;;65862002850
 ;;9002226.02101,"1084,65862002850 ",.02)
 ;;65862002850