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

BGPM5BFD.m

Go to the documentation of this file.
BGPM5BFD ;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,51138036730 ",.02)
 ;;51138036730
 ;;9002226.02101,"1084,51138036830 ",.01)
 ;;51138036830
 ;;9002226.02101,"1084,51138036830 ",.02)
 ;;51138036830
 ;;9002226.02101,"1084,51138036930 ",.01)
 ;;51138036930
 ;;9002226.02101,"1084,51138036930 ",.02)
 ;;51138036930
 ;;9002226.02101,"1084,51138037030 ",.01)
 ;;51138037030
 ;;9002226.02101,"1084,51138037030 ",.02)
 ;;51138037030
 ;;9002226.02101,"1084,51138037130 ",.01)
 ;;51138037130
 ;;9002226.02101,"1084,51138037130 ",.02)
 ;;51138037130
 ;;9002226.02101,"1084,51138037210 ",.01)
 ;;51138037210
 ;;9002226.02101,"1084,51138037210 ",.02)
 ;;51138037210
 ;;9002226.02101,"1084,51138037230 ",.01)
 ;;51138037230
 ;;9002226.02101,"1084,51138037230 ",.02)
 ;;51138037230
 ;;9002226.02101,"1084,51138047030 ",.01)
 ;;51138047030
 ;;9002226.02101,"1084,51138047030 ",.02)
 ;;51138047030
 ;;9002226.02101,"1084,51138047130 ",.01)
 ;;51138047130
 ;;9002226.02101,"1084,51138047130 ",.02)
 ;;51138047130
 ;;9002226.02101,"1084,51138047230 ",.01)
 ;;51138047230
 ;;9002226.02101,"1084,51138047230 ",.02)
 ;;51138047230
 ;;9002226.02101,"1084,51138047330 ",.01)
 ;;51138047330
 ;;9002226.02101,"1084,51138047330 ",.02)
 ;;51138047330
 ;;9002226.02101,"1084,51138047430 ",.01)
 ;;51138047430
 ;;9002226.02101,"1084,51138047430 ",.02)
 ;;51138047430
 ;;9002226.02101,"1084,51138047530 ",.01)
 ;;51138047530
 ;;9002226.02101,"1084,51138047530 ",.02)
 ;;51138047530
 ;;9002226.02101,"1084,51285059804 ",.01)
 ;;51285059804
 ;;9002226.02101,"1084,51285059804 ",.02)
 ;;51285059804
 ;;9002226.02101,"1084,51285059904 ",.01)
 ;;51285059904
 ;;9002226.02101,"1084,51285059904 ",.02)
 ;;51285059904
 ;;9002226.02101,"1084,51641040501 ",.01)
 ;;51641040501
 ;;9002226.02101,"1084,51641040501 ",.02)
 ;;51641040501
 ;;9002226.02101,"1084,51655004504 ",.01)
 ;;51655004504
 ;;9002226.02101,"1084,51655004504 ",.02)
 ;;51655004504
 ;;9002226.02101,"1084,51655004524 ",.01)
 ;;51655004524
 ;;9002226.02101,"1084,51655004524 ",.02)
 ;;51655004524
 ;;9002226.02101,"1084,51655004528 ",.01)
 ;;51655004528
 ;;9002226.02101,"1084,51655004528 ",.02)
 ;;51655004528
 ;;9002226.02101,"1084,51655004552 ",.01)
 ;;51655004552
 ;;9002226.02101,"1084,51655004552 ",.02)
 ;;51655004552
 ;;9002226.02101,"1084,51655004553 ",.01)
 ;;51655004553
 ;;9002226.02101,"1084,51655004553 ",.02)
 ;;51655004553
 ;;9002226.02101,"1084,51655006324 ",.01)
 ;;51655006324
 ;;9002226.02101,"1084,51655006324 ",.02)
 ;;51655006324
 ;;9002226.02101,"1084,51655006352 ",.01)
 ;;51655006352
 ;;9002226.02101,"1084,51655006352 ",.02)
 ;;51655006352
 ;;9002226.02101,"1084,51655019124 ",.01)
 ;;51655019124
 ;;9002226.02101,"1084,51655019124 ",.02)
 ;;51655019124
 ;;9002226.02101,"1084,51655019125 ",.01)
 ;;51655019125
 ;;9002226.02101,"1084,51655019125 ",.02)
 ;;51655019125
 ;;9002226.02101,"1084,51655019126 ",.01)
 ;;51655019126
 ;;9002226.02101,"1084,51655019126 ",.02)
 ;;51655019126
 ;;9002226.02101,"1084,51655019182 ",.01)
 ;;51655019182
 ;;9002226.02101,"1084,51655019182 ",.02)
 ;;51655019182
 ;;9002226.02101,"1084,51655019183 ",.01)
 ;;51655019183
 ;;9002226.02101,"1084,51655019183 ",.02)
 ;;51655019183
 ;;9002226.02101,"1084,51655029124 ",.01)
 ;;51655029124
 ;;9002226.02101,"1084,51655029124 ",.02)
 ;;51655029124
 ;;9002226.02101,"1084,51655029125 ",.01)
 ;;51655029125
 ;;9002226.02101,"1084,51655029125 ",.02)
 ;;51655029125
 ;;9002226.02101,"1084,51655029152 ",.01)
 ;;51655029152
 ;;9002226.02101,"1084,51655029152 ",.02)
 ;;51655029152
 ;;9002226.02101,"1084,51655029153 ",.01)
 ;;51655029153
 ;;9002226.02101,"1084,51655029153 ",.02)
 ;;51655029153
 ;;9002226.02101,"1084,51655040024 ",.01)
 ;;51655040024
 ;;9002226.02101,"1084,51655040024 ",.02)
 ;;51655040024
 ;;9002226.02101,"1084,51655040025 ",.01)
 ;;51655040025
 ;;9002226.02101,"1084,51655040025 ",.02)
 ;;51655040025
 ;;9002226.02101,"1084,51655040052 ",.01)
 ;;51655040052
 ;;9002226.02101,"1084,51655040052 ",.02)
 ;;51655040052
 ;;9002226.02101,"1084,51655040053 ",.01)
 ;;51655040053
 ;;9002226.02101,"1084,51655040053 ",.02)
 ;;51655040053
 ;;9002226.02101,"1084,51655090424 ",.01)
 ;;51655090424
 ;;9002226.02101,"1084,51655090424 ",.02)
 ;;51655090424
 ;;9002226.02101,"1084,51655090425 ",.01)
 ;;51655090425
 ;;9002226.02101,"1084,51655090425 ",.02)
 ;;51655090425
 ;;9002226.02101,"1084,51655096124 ",.01)
 ;;51655096124
 ;;9002226.02101,"1084,51655096124 ",.02)
 ;;51655096124
 ;;9002226.02101,"1084,51655096125 ",.01)
 ;;51655096125
 ;;9002226.02101,"1084,51655096125 ",.02)
 ;;51655096125
 ;;9002226.02101,"1084,51655096224 ",.01)
 ;;51655096224
 ;;9002226.02101,"1084,51655096224 ",.02)
 ;;51655096224
 ;;9002226.02101,"1084,52544046001 ",.01)
 ;;52544046001
 ;;9002226.02101,"1084,52544046001 ",.02)
 ;;52544046001
 ;;9002226.02101,"1084,52544046005 ",.01)
 ;;52544046005
 ;;9002226.02101,"1084,52544046005 ",.02)
 ;;52544046005
 ;;9002226.02101,"1084,52544046010 ",.01)
 ;;52544046010
 ;;9002226.02101,"1084,52544046010 ",.02)
 ;;52544046010
 ;;9002226.02101,"1084,52544055901 ",.01)
 ;;52544055901
 ;;9002226.02101,"1084,52544055901 ",.02)
 ;;52544055901
 ;;9002226.02101,"1084,52544055905 ",.01)
 ;;52544055905
 ;;9002226.02101,"1084,52544055905 ",.02)
 ;;52544055905
 ;;9002226.02101,"1084,52544056001 ",.01)
 ;;52544056001
 ;;9002226.02101,"1084,52544056001 ",.02)
 ;;52544056001
 ;;9002226.02101,"1084,52544056005 ",.01)
 ;;52544056005
 ;;9002226.02101,"1084,52544056005 ",.02)
 ;;52544056005
 ;;9002226.02101,"1084,52959020700 ",.01)
 ;;52959020700
 ;;9002226.02101,"1084,52959020700 ",.02)
 ;;52959020700
 ;;9002226.02101,"1084,52959020728 ",.01)
 ;;52959020728
 ;;9002226.02101,"1084,52959020728 ",.02)
 ;;52959020728
 ;;9002226.02101,"1084,52959020730 ",.01)
 ;;52959020730
 ;;9002226.02101,"1084,52959020730 ",.02)
 ;;52959020730
 ;;9002226.02101,"1084,52959020760 ",.01)
 ;;52959020760
 ;;9002226.02101,"1084,52959020760 ",.02)
 ;;52959020760
 ;;9002226.02101,"1084,52959044901 ",.01)
 ;;52959044901
 ;;9002226.02101,"1084,52959044901 ",.02)
 ;;52959044901
 ;;9002226.02101,"1084,52959044930 ",.01)
 ;;52959044930
 ;;9002226.02101,"1084,52959044930 ",.02)
 ;;52959044930
 ;;9002226.02101,"1084,52959044960 ",.01)
 ;;52959044960
 ;;9002226.02101,"1084,52959044960 ",.02)
 ;;52959044960
 ;;9002226.02101,"1084,52959082200 ",.01)
 ;;52959082200
 ;;9002226.02101,"1084,52959082200 ",.02)
 ;;52959082200
 ;;9002226.02101,"1084,52959082230 ",.01)
 ;;52959082230
 ;;9002226.02101,"1084,52959082230 ",.02)
 ;;52959082230
 ;;9002226.02101,"1084,52959082260 ",.01)
 ;;52959082260
 ;;9002226.02101,"1084,52959082260 ",.02)
 ;;52959082260
 ;;9002226.02101,"1084,52959082320 ",.01)
 ;;52959082320
 ;;9002226.02101,"1084,52959082320 ",.02)
 ;;52959082320
 ;;9002226.02101,"1084,52959082360 ",.01)
 ;;52959082360
 ;;9002226.02101,"1084,52959082360 ",.02)
 ;;52959082360
 ;;9002226.02101,"1084,52959086002 ",.01)
 ;;52959086002
 ;;9002226.02101,"1084,52959086002 ",.02)
 ;;52959086002
 ;;9002226.02101,"1084,52959086030 ",.01)
 ;;52959086030
 ;;9002226.02101,"1084,52959086030 ",.02)
 ;;52959086030
 ;;9002226.02101,"1084,52959086060 ",.01)
 ;;52959086060
 ;;9002226.02101,"1084,52959086060 ",.02)
 ;;52959086060
 ;;9002226.02101,"1084,52959086090 ",.01)
 ;;52959086090
 ;;9002226.02101,"1084,52959086090 ",.02)
 ;;52959086090
 ;;9002226.02101,"1084,52959088800 ",.01)
 ;;52959088800
 ;;9002226.02101,"1084,52959088800 ",.02)
 ;;52959088800
 ;;9002226.02101,"1084,52959088830 ",.01)
 ;;52959088830
 ;;9002226.02101,"1084,52959088830 ",.02)
 ;;52959088830
 ;;9002226.02101,"1084,52959089601 ",.01)
 ;;52959089601
 ;;9002226.02101,"1084,52959089601 ",.02)
 ;;52959089601
 ;;9002226.02101,"1084,52959089660 ",.01)
 ;;52959089660
 ;;9002226.02101,"1084,52959089660 ",.02)
 ;;52959089660
 ;;9002226.02101,"1084,52959093630 ",.01)
 ;;52959093630
 ;;9002226.02101,"1084,52959093630 ",.02)
 ;;52959093630
 ;;9002226.02101,"1084,52959093660 ",.01)
 ;;52959093660
 ;;9002226.02101,"1084,52959093660 ",.02)
 ;;52959093660
 ;;9002226.02101,"1084,53002034700 ",.01)
 ;;53002034700
 ;;9002226.02101,"1084,53002034700 ",.02)
 ;;53002034700
 ;;9002226.02101,"1084,53002034720 ",.01)
 ;;53002034720
 ;;9002226.02101,"1084,53002034720 ",.02)
 ;;53002034720
 ;;9002226.02101,"1084,53002034730 ",.01)
 ;;53002034730
 ;;9002226.02101,"1084,53002034730 ",.02)
 ;;53002034730
 ;;9002226.02101,"1084,53002034750 ",.01)
 ;;53002034750
 ;;9002226.02101,"1084,53002034750 ",.02)
 ;;53002034750
 ;;9002226.02101,"1084,53002034760 ",.01)
 ;;53002034760
 ;;9002226.02101,"1084,53002034760 ",.02)
 ;;53002034760
 ;;9002226.02101,"1084,53002041700 ",.01)
 ;;53002041700
 ;;9002226.02101,"1084,53002041700 ",.02)
 ;;53002041700
 ;;9002226.02101,"1084,53002041720 ",.01)
 ;;53002041720
 ;;9002226.02101,"1084,53002041720 ",.02)
 ;;53002041720
 ;;9002226.02101,"1084,53002041730 ",.01)
 ;;53002041730
 ;;9002226.02101,"1084,53002041730 ",.02)
 ;;53002041730
 ;;9002226.02101,"1084,53002041750 ",.01)
 ;;53002041750
 ;;9002226.02101,"1084,53002041750 ",.02)
 ;;53002041750
 ;;9002226.02101,"1084,53002041760 ",.01)
 ;;53002041760
 ;;9002226.02101,"1084,53002041760 ",.02)
 ;;53002041760
 ;;9002226.02101,"1084,53002044630 ",.01)
 ;;53002044630
 ;;9002226.02101,"1084,53002044630 ",.02)
 ;;53002044630
 ;;9002226.02101,"1084,53002044660 ",.01)
 ;;53002044660
 ;;9002226.02101,"1084,53002044660 ",.02)
 ;;53002044660
 ;;9002226.02101,"1084,53002044690 ",.01)
 ;;53002044690
 ;;9002226.02101,"1084,53002044690 ",.02)
 ;;53002044690
 ;;9002226.02101,"1084,53002051900 ",.01)
 ;;53002051900
 ;;9002226.02101,"1084,53002051900 ",.02)
 ;;53002051900
 ;;9002226.02101,"1084,53002051930 ",.01)
 ;;53002051930
 ;;9002226.02101,"1084,53002051930 ",.02)
 ;;53002051930
 ;;9002226.02101,"1084,53002051950 ",.01)
 ;;53002051950
 ;;9002226.02101,"1084,53002051950 ",.02)
 ;;53002051950
 ;;9002226.02101,"1084,53002051960 ",.01)
 ;;53002051960
 ;;9002226.02101,"1084,53002051960 ",.02)
 ;;53002051960
 ;;9002226.02101,"1084,53002051990 ",.01)
 ;;53002051990
 ;;9002226.02101,"1084,53002051990 ",.02)
 ;;53002051990
 ;;9002226.02101,"1084,53002080072 ",.01)
 ;;53002080072
 ;;9002226.02101,"1084,53002080072 ",.02)
 ;;53002080072
 ;;9002226.02101,"1084,53489015101 ",.01)
 ;;53489015101
 ;;9002226.02101,"1084,53489015101 ",.02)
 ;;53489015101
 ;;9002226.02101,"1084,53489015110 ",.01)
 ;;53489015110
 ;;9002226.02101,"1084,53489015110 ",.02)
 ;;53489015110
 ;;9002226.02101,"1084,53489015201 ",.01)
 ;;53489015201
 ;;9002226.02101,"1084,53489015201 ",.02)
 ;;53489015201
 ;;9002226.02101,"1084,53489015204 ",.01)
 ;;53489015204
 ;;9002226.02101,"1084,53489015204 ",.02)
 ;;53489015204
 ;;9002226.02101,"1084,53489015205 ",.01)
 ;;53489015205
 ;;9002226.02101,"1084,53489015205 ",.02)
 ;;53489015205
 ;;9002226.02101,"1084,53489015210 ",.01)
 ;;53489015210
 ;;9002226.02101,"1084,53489015210 ",.02)
 ;;53489015210
 ;;9002226.02101,"1084,53489015301 ",.01)
 ;;53489015301
 ;;9002226.02101,"1084,53489015301 ",.02)
 ;;53489015301
 ;;9002226.02101,"1084,53489015303 ",.01)
 ;;53489015303
 ;;9002226.02101,"1084,53489015303 ",.02)
 ;;53489015303
 ;;9002226.02101,"1084,53489015305 ",.01)
 ;;53489015305
 ;;9002226.02101,"1084,53489015305 ",.02)
 ;;53489015305
 ;;9002226.02101,"1084,53489046701 ",.01)
 ;;53489046701
 ;;9002226.02101,"1084,53489046701 ",.02)
 ;;53489046701
 ;;9002226.02101,"1084,53489046703 ",.01)
 ;;53489046703
 ;;9002226.02101,"1084,53489046703 ",.02)
 ;;53489046703
 ;;9002226.02101,"1084,53489046705 ",.01)
 ;;53489046705
 ;;9002226.02101,"1084,53489046705 ",.02)
 ;;53489046705