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

BGPM5BFF.m

Go to the documentation of this file.
BGPM5BFF ;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,54569561800 ",.02)
 ;;54569561800
 ;;9002226.02101,"1084,54569561801 ",.01)
 ;;54569561801
 ;;9002226.02101,"1084,54569561801 ",.02)
 ;;54569561801
 ;;9002226.02101,"1084,54569561900 ",.01)
 ;;54569561900
 ;;9002226.02101,"1084,54569561900 ",.02)
 ;;54569561900
 ;;9002226.02101,"1084,54569561901 ",.01)
 ;;54569561901
 ;;9002226.02101,"1084,54569561901 ",.02)
 ;;54569561901
 ;;9002226.02101,"1084,54569585500 ",.01)
 ;;54569585500
 ;;9002226.02101,"1084,54569585500 ",.02)
 ;;54569585500
 ;;9002226.02101,"1084,54569599100 ",.01)
 ;;54569599100
 ;;9002226.02101,"1084,54569599100 ",.02)
 ;;54569599100
 ;;9002226.02101,"1084,54569599200 ",.01)
 ;;54569599200
 ;;9002226.02101,"1084,54569599200 ",.02)
 ;;54569599200
 ;;9002226.02101,"1084,54569599300 ",.01)
 ;;54569599300
 ;;9002226.02101,"1084,54569599300 ",.02)
 ;;54569599300
 ;;9002226.02101,"1084,54569599301 ",.01)
 ;;54569599301
 ;;9002226.02101,"1084,54569599301 ",.02)
 ;;54569599301
 ;;9002226.02101,"1084,54569606100 ",.01)
 ;;54569606100
 ;;9002226.02101,"1084,54569606100 ",.02)
 ;;54569606100
 ;;9002226.02101,"1084,54569607200 ",.01)
 ;;54569607200
 ;;9002226.02101,"1084,54569607200 ",.02)
 ;;54569607200
 ;;9002226.02101,"1084,54569860100 ",.01)
 ;;54569860100
 ;;9002226.02101,"1084,54569860100 ",.02)
 ;;54569860100
 ;;9002226.02101,"1084,54569860101 ",.01)
 ;;54569860101
 ;;9002226.02101,"1084,54569860101 ",.02)
 ;;54569860101
 ;;9002226.02101,"1084,54569860102 ",.01)
 ;;54569860102
 ;;9002226.02101,"1084,54569860102 ",.02)
 ;;54569860102
 ;;9002226.02101,"1084,54569860103 ",.01)
 ;;54569860103
 ;;9002226.02101,"1084,54569860103 ",.02)
 ;;54569860103
 ;;9002226.02101,"1084,54868003600 ",.01)
 ;;54868003600
 ;;9002226.02101,"1084,54868003600 ",.02)
 ;;54868003600
 ;;9002226.02101,"1084,54868003602 ",.01)
 ;;54868003602
 ;;9002226.02101,"1084,54868003602 ",.02)
 ;;54868003602
 ;;9002226.02101,"1084,54868003603 ",.01)
 ;;54868003603
 ;;9002226.02101,"1084,54868003603 ",.02)
 ;;54868003603
 ;;9002226.02101,"1084,54868003604 ",.01)
 ;;54868003604
 ;;9002226.02101,"1084,54868003604 ",.02)
 ;;54868003604
 ;;9002226.02101,"1084,54868079500 ",.01)
 ;;54868079500
 ;;9002226.02101,"1084,54868079500 ",.02)
 ;;54868079500
 ;;9002226.02101,"1084,54868087700 ",.01)
 ;;54868087700
 ;;9002226.02101,"1084,54868087700 ",.02)
 ;;54868087700
 ;;9002226.02101,"1084,54868087701 ",.01)
 ;;54868087701
 ;;9002226.02101,"1084,54868087701 ",.02)
 ;;54868087701
 ;;9002226.02101,"1084,54868102000 ",.01)
 ;;54868102000
 ;;9002226.02101,"1084,54868102000 ",.02)
 ;;54868102000
 ;;9002226.02101,"1084,54868136101 ",.01)
 ;;54868136101
 ;;9002226.02101,"1084,54868136101 ",.02)
 ;;54868136101
 ;;9002226.02101,"1084,54868326500 ",.01)
 ;;54868326500
 ;;9002226.02101,"1084,54868326500 ",.02)
 ;;54868326500
 ;;9002226.02101,"1084,54868326501 ",.01)
 ;;54868326501
 ;;9002226.02101,"1084,54868326501 ",.02)
 ;;54868326501
 ;;9002226.02101,"1084,54868326503 ",.01)
 ;;54868326503
 ;;9002226.02101,"1084,54868326503 ",.02)
 ;;54868326503
 ;;9002226.02101,"1084,54868326504 ",.01)
 ;;54868326504
 ;;9002226.02101,"1084,54868326504 ",.02)
 ;;54868326504
 ;;9002226.02101,"1084,54868326505 ",.01)
 ;;54868326505
 ;;9002226.02101,"1084,54868326505 ",.02)
 ;;54868326505
 ;;9002226.02101,"1084,54868326601 ",.01)
 ;;54868326601
 ;;9002226.02101,"1084,54868326601 ",.02)
 ;;54868326601
 ;;9002226.02101,"1084,54868326602 ",.01)
 ;;54868326602
 ;;9002226.02101,"1084,54868326602 ",.02)
 ;;54868326602
 ;;9002226.02101,"1084,54868326603 ",.01)
 ;;54868326603
 ;;9002226.02101,"1084,54868326603 ",.02)
 ;;54868326603
 ;;9002226.02101,"1084,54868326604 ",.01)
 ;;54868326604
 ;;9002226.02101,"1084,54868326604 ",.02)
 ;;54868326604
 ;;9002226.02101,"1084,54868331801 ",.01)
 ;;54868331801
 ;;9002226.02101,"1084,54868331801 ",.02)
 ;;54868331801
 ;;9002226.02101,"1084,54868331802 ",.01)
 ;;54868331802
 ;;9002226.02101,"1084,54868331802 ",.02)
 ;;54868331802
 ;;9002226.02101,"1084,54868331803 ",.01)
 ;;54868331803
 ;;9002226.02101,"1084,54868331803 ",.02)
 ;;54868331803
 ;;9002226.02101,"1084,54868331804 ",.01)
 ;;54868331804
 ;;9002226.02101,"1084,54868331804 ",.02)
 ;;54868331804
 ;;9002226.02101,"1084,54868331805 ",.01)
 ;;54868331805
 ;;9002226.02101,"1084,54868331805 ",.02)
 ;;54868331805
 ;;9002226.02101,"1084,54868331901 ",.01)
 ;;54868331901
 ;;9002226.02101,"1084,54868331901 ",.02)
 ;;54868331901
 ;;9002226.02101,"1084,54868331902 ",.01)
 ;;54868331902
 ;;9002226.02101,"1084,54868331902 ",.02)
 ;;54868331902
 ;;9002226.02101,"1084,54868331903 ",.01)
 ;;54868331903
 ;;9002226.02101,"1084,54868331903 ",.02)
 ;;54868331903
 ;;9002226.02101,"1084,54868331904 ",.01)
 ;;54868331904
 ;;9002226.02101,"1084,54868331904 ",.02)
 ;;54868331904
 ;;9002226.02101,"1084,54868331905 ",.01)
 ;;54868331905
 ;;9002226.02101,"1084,54868331905 ",.02)
 ;;54868331905
 ;;9002226.02101,"1084,54868331906 ",.01)
 ;;54868331906
 ;;9002226.02101,"1084,54868331906 ",.02)
 ;;54868331906
 ;;9002226.02101,"1084,54868331907 ",.01)
 ;;54868331907
 ;;9002226.02101,"1084,54868331907 ",.02)
 ;;54868331907
 ;;9002226.02101,"1084,54868332700 ",.01)
 ;;54868332700
 ;;9002226.02101,"1084,54868332700 ",.02)
 ;;54868332700
 ;;9002226.02101,"1084,54868332701 ",.01)
 ;;54868332701
 ;;9002226.02101,"1084,54868332701 ",.02)
 ;;54868332701
 ;;9002226.02101,"1084,54868337700 ",.01)
 ;;54868337700
 ;;9002226.02101,"1084,54868337700 ",.02)
 ;;54868337700
 ;;9002226.02101,"1084,54868337701 ",.01)
 ;;54868337701
 ;;9002226.02101,"1084,54868337701 ",.02)
 ;;54868337701
 ;;9002226.02101,"1084,54868337702 ",.01)
 ;;54868337702
 ;;9002226.02101,"1084,54868337702 ",.02)
 ;;54868337702
 ;;9002226.02101,"1084,54868342600 ",.01)
 ;;54868342600
 ;;9002226.02101,"1084,54868342600 ",.02)
 ;;54868342600
 ;;9002226.02101,"1084,54868342601 ",.01)
 ;;54868342601
 ;;9002226.02101,"1084,54868342601 ",.02)
 ;;54868342601
 ;;9002226.02101,"1084,54868409100 ",.01)
 ;;54868409100
 ;;9002226.02101,"1084,54868409100 ",.02)
 ;;54868409100
 ;;9002226.02101,"1084,54868409101 ",.01)
 ;;54868409101
 ;;9002226.02101,"1084,54868409101 ",.02)
 ;;54868409101
 ;;9002226.02101,"1084,54868409102 ",.01)
 ;;54868409102
 ;;9002226.02101,"1084,54868409102 ",.02)
 ;;54868409102
 ;;9002226.02101,"1084,54868409103 ",.01)
 ;;54868409103
 ;;9002226.02101,"1084,54868409103 ",.02)
 ;;54868409103
 ;;9002226.02101,"1084,54868456100 ",.01)
 ;;54868456100
 ;;9002226.02101,"1084,54868456100 ",.02)
 ;;54868456100
 ;;9002226.02101,"1084,54868456101 ",.01)
 ;;54868456101
 ;;9002226.02101,"1084,54868456101 ",.02)
 ;;54868456101
 ;;9002226.02101,"1084,54868456102 ",.01)
 ;;54868456102
 ;;9002226.02101,"1084,54868456102 ",.02)
 ;;54868456102
 ;;9002226.02101,"1084,54868456103 ",.01)
 ;;54868456103
 ;;9002226.02101,"1084,54868456103 ",.02)
 ;;54868456103
 ;;9002226.02101,"1084,54868456104 ",.01)
 ;;54868456104
 ;;9002226.02101,"1084,54868456104 ",.02)
 ;;54868456104
 ;;9002226.02101,"1084,54868456400 ",.01)
 ;;54868456400
 ;;9002226.02101,"1084,54868456400 ",.02)
 ;;54868456400
 ;;9002226.02101,"1084,54868456401 ",.01)
 ;;54868456401
 ;;9002226.02101,"1084,54868456401 ",.02)
 ;;54868456401
 ;;9002226.02101,"1084,54868456402 ",.01)
 ;;54868456402
 ;;9002226.02101,"1084,54868456402 ",.02)
 ;;54868456402
 ;;9002226.02101,"1084,54868456403 ",.01)
 ;;54868456403
 ;;9002226.02101,"1084,54868456403 ",.02)
 ;;54868456403
 ;;9002226.02101,"1084,54868456404 ",.01)
 ;;54868456404
 ;;9002226.02101,"1084,54868456404 ",.02)
 ;;54868456404
 ;;9002226.02101,"1084,54868456405 ",.01)
 ;;54868456405
 ;;9002226.02101,"1084,54868456405 ",.02)
 ;;54868456405
 ;;9002226.02101,"1084,54868456600 ",.01)
 ;;54868456600
 ;;9002226.02101,"1084,54868456600 ",.02)
 ;;54868456600
 ;;9002226.02101,"1084,54868456601 ",.01)
 ;;54868456601
 ;;9002226.02101,"1084,54868456601 ",.02)
 ;;54868456601
 ;;9002226.02101,"1084,54868456602 ",.01)
 ;;54868456602
 ;;9002226.02101,"1084,54868456602 ",.02)
 ;;54868456602
 ;;9002226.02101,"1084,54868456603 ",.01)
 ;;54868456603
 ;;9002226.02101,"1084,54868456603 ",.02)
 ;;54868456603
 ;;9002226.02101,"1084,54868456604 ",.01)
 ;;54868456604
 ;;9002226.02101,"1084,54868456604 ",.02)
 ;;54868456604
 ;;9002226.02101,"1084,54868484200 ",.01)
 ;;54868484200
 ;;9002226.02101,"1084,54868484200 ",.02)
 ;;54868484200
 ;;9002226.02101,"1084,54868484201 ",.01)
 ;;54868484201
 ;;9002226.02101,"1084,54868484201 ",.02)
 ;;54868484201
 ;;9002226.02101,"1084,54868484202 ",.01)
 ;;54868484202
 ;;9002226.02101,"1084,54868484202 ",.02)
 ;;54868484202
 ;;9002226.02101,"1084,54868498800 ",.01)
 ;;54868498800
 ;;9002226.02101,"1084,54868498800 ",.02)
 ;;54868498800
 ;;9002226.02101,"1084,54868498801 ",.01)
 ;;54868498801
 ;;9002226.02101,"1084,54868498801 ",.02)
 ;;54868498801
 ;;9002226.02101,"1084,54868498802 ",.01)
 ;;54868498802
 ;;9002226.02101,"1084,54868498802 ",.02)
 ;;54868498802
 ;;9002226.02101,"1084,54868498803 ",.01)
 ;;54868498803
 ;;9002226.02101,"1084,54868498803 ",.02)
 ;;54868498803
 ;;9002226.02101,"1084,54868498804 ",.01)
 ;;54868498804
 ;;9002226.02101,"1084,54868498804 ",.02)
 ;;54868498804
 ;;9002226.02101,"1084,54868514800 ",.01)
 ;;54868514800
 ;;9002226.02101,"1084,54868514800 ",.02)
 ;;54868514800
 ;;9002226.02101,"1084,54868514801 ",.01)
 ;;54868514801
 ;;9002226.02101,"1084,54868514801 ",.02)
 ;;54868514801
 ;;9002226.02101,"1084,54868514802 ",.01)
 ;;54868514802
 ;;9002226.02101,"1084,54868514802 ",.02)
 ;;54868514802
 ;;9002226.02101,"1084,54868514803 ",.01)
 ;;54868514803
 ;;9002226.02101,"1084,54868514803 ",.02)
 ;;54868514803
 ;;9002226.02101,"1084,54868514804 ",.01)
 ;;54868514804
 ;;9002226.02101,"1084,54868514804 ",.02)
 ;;54868514804
 ;;9002226.02101,"1084,54868518500 ",.01)
 ;;54868518500
 ;;9002226.02101,"1084,54868518500 ",.02)
 ;;54868518500
 ;;9002226.02101,"1084,54868518501 ",.01)
 ;;54868518501
 ;;9002226.02101,"1084,54868518501 ",.02)
 ;;54868518501
 ;;9002226.02101,"1084,54868518502 ",.01)
 ;;54868518502
 ;;9002226.02101,"1084,54868518502 ",.02)
 ;;54868518502
 ;;9002226.02101,"1084,54868518503 ",.01)
 ;;54868518503
 ;;9002226.02101,"1084,54868518503 ",.02)
 ;;54868518503
 ;;9002226.02101,"1084,54868518800 ",.01)
 ;;54868518800
 ;;9002226.02101,"1084,54868518800 ",.02)
 ;;54868518800
 ;;9002226.02101,"1084,54868518801 ",.01)
 ;;54868518801
 ;;9002226.02101,"1084,54868518801 ",.02)
 ;;54868518801
 ;;9002226.02101,"1084,54868518802 ",.01)
 ;;54868518802
 ;;9002226.02101,"1084,54868518802 ",.02)
 ;;54868518802
 ;;9002226.02101,"1084,54868521000 ",.01)
 ;;54868521000
 ;;9002226.02101,"1084,54868521000 ",.02)
 ;;54868521000
 ;;9002226.02101,"1084,54868521001 ",.01)
 ;;54868521001
 ;;9002226.02101,"1084,54868521001 ",.02)
 ;;54868521001
 ;;9002226.02101,"1084,54868521002 ",.01)
 ;;54868521002
 ;;9002226.02101,"1084,54868521002 ",.02)
 ;;54868521002
 ;;9002226.02101,"1084,54868521003 ",.01)
 ;;54868521003
 ;;9002226.02101,"1084,54868521003 ",.02)
 ;;54868521003
 ;;9002226.02101,"1084,54868521700 ",.01)
 ;;54868521700
 ;;9002226.02101,"1084,54868521700 ",.02)
 ;;54868521700
 ;;9002226.02101,"1084,54868521701 ",.01)
 ;;54868521701
 ;;9002226.02101,"1084,54868521701 ",.02)
 ;;54868521701
 ;;9002226.02101,"1084,54868521702 ",.01)
 ;;54868521702
 ;;9002226.02101,"1084,54868521702 ",.02)
 ;;54868521702
 ;;9002226.02101,"1084,54868521703 ",.01)
 ;;54868521703
 ;;9002226.02101,"1084,54868521703 ",.02)
 ;;54868521703
 ;;9002226.02101,"1084,54868521704 ",.01)
 ;;54868521704
 ;;9002226.02101,"1084,54868521704 ",.02)
 ;;54868521704