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

BGPM5AXK.m

Go to the documentation of this file.
BGPM5AXK ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 30, 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,"1034,54868553100 ",.02)
 ;;54868553100
 ;;9002226.02101,"1034,54868553101 ",.01)
 ;;54868553101
 ;;9002226.02101,"1034,54868553101 ",.02)
 ;;54868553101
 ;;9002226.02101,"1034,55045131202 ",.01)
 ;;55045131202
 ;;9002226.02101,"1034,55045131202 ",.02)
 ;;55045131202
 ;;9002226.02101,"1034,55045131203 ",.01)
 ;;55045131203
 ;;9002226.02101,"1034,55045131203 ",.02)
 ;;55045131203
 ;;9002226.02101,"1034,55045131207 ",.01)
 ;;55045131207
 ;;9002226.02101,"1034,55045131207 ",.02)
 ;;55045131207
 ;;9002226.02101,"1034,55045131208 ",.01)
 ;;55045131208
 ;;9002226.02101,"1034,55045131208 ",.02)
 ;;55045131208
 ;;9002226.02101,"1034,55045131209 ",.01)
 ;;55045131209
 ;;9002226.02101,"1034,55045131209 ",.02)
 ;;55045131209
 ;;9002226.02101,"1034,55045155602 ",.01)
 ;;55045155602
 ;;9002226.02101,"1034,55045155602 ",.02)
 ;;55045155602
 ;;9002226.02101,"1034,55045187103 ",.01)
 ;;55045187103
 ;;9002226.02101,"1034,55045187103 ",.02)
 ;;55045187103
 ;;9002226.02101,"1034,55045227908 ",.01)
 ;;55045227908
 ;;9002226.02101,"1034,55045227908 ",.02)
 ;;55045227908
 ;;9002226.02101,"1034,55045228007 ",.01)
 ;;55045228007
 ;;9002226.02101,"1034,55045228007 ",.02)
 ;;55045228007
 ;;9002226.02101,"1034,55045228008 ",.01)
 ;;55045228008
 ;;9002226.02101,"1034,55045228008 ",.02)
 ;;55045228008
 ;;9002226.02101,"1034,55045376808 ",.01)
 ;;55045376808
 ;;9002226.02101,"1034,55045376808 ",.02)
 ;;55045376808
 ;;9002226.02101,"1034,55053052201 ",.01)
 ;;55053052201
 ;;9002226.02101,"1034,55053052201 ",.02)
 ;;55053052201
 ;;9002226.02101,"1034,55154068200 ",.01)
 ;;55154068200
 ;;9002226.02101,"1034,55154068200 ",.02)
 ;;55154068200
 ;;9002226.02101,"1034,55154236605 ",.01)
 ;;55154236605
 ;;9002226.02101,"1034,55154236605 ",.02)
 ;;55154236605
 ;;9002226.02101,"1034,55246033601 ",.01)
 ;;55246033601
 ;;9002226.02101,"1034,55246033601 ",.02)
 ;;55246033601
 ;;9002226.02101,"1034,55246095301 ",.01)
 ;;55246095301
 ;;9002226.02101,"1034,55246095301 ",.02)
 ;;55246095301
 ;;9002226.02101,"1034,55289025901 ",.01)
 ;;55289025901
 ;;9002226.02101,"1034,55289025901 ",.02)
 ;;55289025901
 ;;9002226.02101,"1034,55289025930 ",.01)
 ;;55289025930
 ;;9002226.02101,"1034,55289025930 ",.02)
 ;;55289025930
 ;;9002226.02101,"1034,55289025960 ",.01)
 ;;55289025960
 ;;9002226.02101,"1034,55289025960 ",.02)
 ;;55289025960
 ;;9002226.02101,"1034,55289026001 ",.01)
 ;;55289026001
 ;;9002226.02101,"1034,55289026001 ",.02)
 ;;55289026001
 ;;9002226.02101,"1034,55289026006 ",.01)
 ;;55289026006
 ;;9002226.02101,"1034,55289026006 ",.02)
 ;;55289026006
 ;;9002226.02101,"1034,55289026020 ",.01)
 ;;55289026020
 ;;9002226.02101,"1034,55289026020 ",.02)
 ;;55289026020
 ;;9002226.02101,"1034,55289026030 ",.01)
 ;;55289026030
 ;;9002226.02101,"1034,55289026030 ",.02)
 ;;55289026030
 ;;9002226.02101,"1034,55289026060 ",.01)
 ;;55289026060
 ;;9002226.02101,"1034,55289026060 ",.02)
 ;;55289026060
 ;;9002226.02101,"1034,55289026097 ",.01)
 ;;55289026097
 ;;9002226.02101,"1034,55289026097 ",.02)
 ;;55289026097
 ;;9002226.02101,"1034,55887027730 ",.01)
 ;;55887027730
 ;;9002226.02101,"1034,55887027730 ",.02)
 ;;55887027730
 ;;9002226.02101,"1034,55887027760 ",.01)
 ;;55887027760
 ;;9002226.02101,"1034,55887027760 ",.02)
 ;;55887027760
 ;;9002226.02101,"1034,55887084760 ",.01)
 ;;55887084760
 ;;9002226.02101,"1034,55887084760 ",.02)
 ;;55887084760
 ;;9002226.02101,"1034,55887084790 ",.01)
 ;;55887084790
 ;;9002226.02101,"1034,55887084790 ",.02)
 ;;55887084790
 ;;9002226.02101,"1034,57866465101 ",.01)
 ;;57866465101
 ;;9002226.02101,"1034,57866465101 ",.02)
 ;;57866465101
 ;;9002226.02101,"1034,57866465102 ",.01)
 ;;57866465102
 ;;9002226.02101,"1034,57866465102 ",.02)
 ;;57866465102
 ;;9002226.02101,"1034,57866465201 ",.01)
 ;;57866465201
 ;;9002226.02101,"1034,57866465201 ",.02)
 ;;57866465201
 ;;9002226.02101,"1034,57866465202 ",.01)
 ;;57866465202
 ;;9002226.02101,"1034,57866465202 ",.02)
 ;;57866465202
 ;;9002226.02101,"1034,57866465203 ",.01)
 ;;57866465203
 ;;9002226.02101,"1034,57866465203 ",.02)
 ;;57866465203
 ;;9002226.02101,"1034,58016039700 ",.01)
 ;;58016039700
 ;;9002226.02101,"1034,58016039700 ",.02)
 ;;58016039700
 ;;9002226.02101,"1034,58016039730 ",.01)
 ;;58016039730
 ;;9002226.02101,"1034,58016039730 ",.02)
 ;;58016039730
 ;;9002226.02101,"1034,58016043082 ",.01)
 ;;58016043082
 ;;9002226.02101,"1034,58016043082 ",.02)
 ;;58016043082
 ;;9002226.02101,"1034,58864050117 ",.01)
 ;;58864050117
 ;;9002226.02101,"1034,58864050117 ",.02)
 ;;58864050117
 ;;9002226.02101,"1034,59930166001 ",.01)
 ;;59930166001
 ;;9002226.02101,"1034,59930166001 ",.02)
 ;;59930166001
 ;;9002226.02101,"1034,59930166002 ",.01)
 ;;59930166002
 ;;9002226.02101,"1034,59930166002 ",.02)
 ;;59930166002
 ;;9002226.02101,"1034,59930166003 ",.01)
 ;;59930166003
 ;;9002226.02101,"1034,59930166003 ",.02)
 ;;59930166003
 ;;9002226.02101,"1034,59930167001 ",.01)
 ;;59930167001
 ;;9002226.02101,"1034,59930167001 ",.02)
 ;;59930167001
 ;;9002226.02101,"1034,59930167002 ",.01)
 ;;59930167002
 ;;9002226.02101,"1034,59930167002 ",.02)
 ;;59930167002
 ;;9002226.02101,"1034,59930167003 ",.01)
 ;;59930167003
 ;;9002226.02101,"1034,59930167003 ",.02)
 ;;59930167003
 ;;9002226.02101,"1034,59930168001 ",.01)
 ;;59930168001
 ;;9002226.02101,"1034,59930168001 ",.02)
 ;;59930168001
 ;;9002226.02101,"1034,60258033601 ",.01)
 ;;60258033601
 ;;9002226.02101,"1034,60258033601 ",.02)
 ;;60258033601
 ;;9002226.02101,"1034,60258037116 ",.01)
 ;;60258037116
 ;;9002226.02101,"1034,60258037116 ",.02)
 ;;60258037116
 ;;9002226.02101,"1034,60432001916 ",.01)
 ;;60432001916
 ;;9002226.02101,"1034,60432001916 ",.02)
 ;;60432001916
 ;;9002226.02101,"1034,60432001928 ",.01)
 ;;60432001928
 ;;9002226.02101,"1034,60432001928 ",.02)
 ;;60432001928
 ;;9002226.02101,"1034,61392001625 ",.01)
 ;;61392001625
 ;;9002226.02101,"1034,61392001625 ",.02)
 ;;61392001625
 ;;9002226.02101,"1034,61392001630 ",.01)
 ;;61392001630
 ;;9002226.02101,"1034,61392001630 ",.02)
 ;;61392001630
 ;;9002226.02101,"1034,61392001631 ",.01)
 ;;61392001631
 ;;9002226.02101,"1034,61392001631 ",.02)
 ;;61392001631
 ;;9002226.02101,"1034,61392001639 ",.01)
 ;;61392001639
 ;;9002226.02101,"1034,61392001639 ",.02)
 ;;61392001639
 ;;9002226.02101,"1034,61392001645 ",.01)
 ;;61392001645
 ;;9002226.02101,"1034,61392001645 ",.02)
 ;;61392001645
 ;;9002226.02101,"1034,61392001654 ",.01)
 ;;61392001654
 ;;9002226.02101,"1034,61392001654 ",.02)
 ;;61392001654
 ;;9002226.02101,"1034,61392001656 ",.01)
 ;;61392001656
 ;;9002226.02101,"1034,61392001656 ",.02)
 ;;61392001656
 ;;9002226.02101,"1034,61392001660 ",.01)
 ;;61392001660
 ;;9002226.02101,"1034,61392001660 ",.02)
 ;;61392001660
 ;;9002226.02101,"1034,61392001690 ",.01)
 ;;61392001690
 ;;9002226.02101,"1034,61392001690 ",.02)
 ;;61392001690
 ;;9002226.02101,"1034,61392001691 ",.01)
 ;;61392001691
 ;;9002226.02101,"1034,61392001691 ",.02)
 ;;61392001691
 ;;9002226.02101,"1034,61392001725 ",.01)
 ;;61392001725
 ;;9002226.02101,"1034,61392001725 ",.02)
 ;;61392001725
 ;;9002226.02101,"1034,61392001730 ",.01)
 ;;61392001730
 ;;9002226.02101,"1034,61392001730 ",.02)
 ;;61392001730
 ;;9002226.02101,"1034,61392001731 ",.01)
 ;;61392001731
 ;;9002226.02101,"1034,61392001731 ",.02)
 ;;61392001731
 ;;9002226.02101,"1034,61392001739 ",.01)
 ;;61392001739
 ;;9002226.02101,"1034,61392001739 ",.02)
 ;;61392001739
 ;;9002226.02101,"1034,61392001754 ",.01)
 ;;61392001754
 ;;9002226.02101,"1034,61392001754 ",.02)
 ;;61392001754
 ;;9002226.02101,"1034,61392001756 ",.01)
 ;;61392001756
 ;;9002226.02101,"1034,61392001756 ",.02)
 ;;61392001756
 ;;9002226.02101,"1034,61392001760 ",.01)
 ;;61392001760
 ;;9002226.02101,"1034,61392001760 ",.02)
 ;;61392001760
 ;;9002226.02101,"1034,61392001765 ",.01)
 ;;61392001765
 ;;9002226.02101,"1034,61392001765 ",.02)
 ;;61392001765
 ;;9002226.02101,"1034,61392001790 ",.01)
 ;;61392001790
 ;;9002226.02101,"1034,61392001790 ",.02)
 ;;61392001790
 ;;9002226.02101,"1034,61392001791 ",.01)
 ;;61392001791
 ;;9002226.02101,"1034,61392001791 ",.02)
 ;;61392001791
 ;;9002226.02101,"1034,63629279201 ",.01)
 ;;63629279201
 ;;9002226.02101,"1034,63629279201 ",.02)
 ;;63629279201
 ;;9002226.02101,"1034,63629279202 ",.01)
 ;;63629279202
 ;;9002226.02101,"1034,63629279202 ",.02)
 ;;63629279202
 ;;9002226.02101,"1034,63629355101 ",.01)
 ;;63629355101
 ;;9002226.02101,"1034,63629355101 ",.02)
 ;;63629355101
 ;;9002226.02101,"1034,63874044301 ",.01)
 ;;63874044301
 ;;9002226.02101,"1034,63874044301 ",.02)
 ;;63874044301
 ;;9002226.02101,"1034,63874044315 ",.01)
 ;;63874044315
 ;;9002226.02101,"1034,63874044315 ",.02)
 ;;63874044315
 ;;9002226.02101,"1034,63874044320 ",.01)
 ;;63874044320
 ;;9002226.02101,"1034,63874044320 ",.02)
 ;;63874044320
 ;;9002226.02101,"1034,63874044330 ",.01)
 ;;63874044330
 ;;9002226.02101,"1034,63874044330 ",.02)
 ;;63874044330
 ;;9002226.02101,"1034,63874044701 ",.01)
 ;;63874044701
 ;;9002226.02101,"1034,63874044701 ",.02)
 ;;63874044701
 ;;9002226.02101,"1034,63874044715 ",.01)
 ;;63874044715
 ;;9002226.02101,"1034,63874044715 ",.02)
 ;;63874044715
 ;;9002226.02101,"1034,63874044720 ",.01)
 ;;63874044720
 ;;9002226.02101,"1034,63874044720 ",.02)
 ;;63874044720
 ;;9002226.02101,"1034,63874044730 ",.01)
 ;;63874044730
 ;;9002226.02101,"1034,63874044730 ",.02)
 ;;63874044730
 ;;9002226.02101,"1034,63874044760 ",.01)
 ;;63874044760
 ;;9002226.02101,"1034,63874044760 ",.02)
 ;;63874044760
 ;;9002226.02101,"1034,63874067501 ",.01)
 ;;63874067501
 ;;9002226.02101,"1034,63874067501 ",.02)
 ;;63874067501
 ;;9002226.02101,"1034,63874067515 ",.01)
 ;;63874067515
 ;;9002226.02101,"1034,63874067515 ",.02)
 ;;63874067515
 ;;9002226.02101,"1034,63874067520 ",.01)
 ;;63874067520
 ;;9002226.02101,"1034,63874067520 ",.02)
 ;;63874067520
 ;;9002226.02101,"1034,64725032703 ",.01)
 ;;64725032703
 ;;9002226.02101,"1034,64725032703 ",.02)
 ;;64725032703
 ;;9002226.02101,"1034,64725032803 ",.01)
 ;;64725032803
 ;;9002226.02101,"1034,64725032803 ",.02)
 ;;64725032803
 ;;9002226.02101,"1034,65162032411 ",.01)
 ;;65162032411
 ;;9002226.02101,"1034,65162032411 ",.02)
 ;;65162032411
 ;;9002226.02101,"1034,65162032510 ",.01)
 ;;65162032510
 ;;9002226.02101,"1034,65162032510 ",.02)
 ;;65162032510
 ;;9002226.02101,"1034,65162032511 ",.01)
 ;;65162032511
 ;;9002226.02101,"1034,65162032511 ",.02)
 ;;65162032511
 ;;9002226.02101,"1034,65162033510 ",.01)
 ;;65162033510
 ;;9002226.02101,"1034,65162033510 ",.02)
 ;;65162033510
 ;;9002226.02101,"1034,66267082310 ",.01)
 ;;66267082310
 ;;9002226.02101,"1034,66267082310 ",.02)
 ;;66267082310
 ;;9002226.02101,"1034,66466304600 ",.01)
 ;;66466304600
 ;;9002226.02101,"1034,66466304600 ",.02)
 ;;66466304600
 ;;9002226.02101,"1034,66466304601 ",.01)
 ;;66466304601
 ;;9002226.02101,"1034,66466304601 ",.02)
 ;;66466304601
 ;;9002226.02101,"1034,67228013903 ",.01)
 ;;67228013903
 ;;9002226.02101,"1034,67228013903 ",.02)
 ;;67228013903
 ;;9002226.02101,"1034,67228013906 ",.01)
 ;;67228013906
 ;;9002226.02101,"1034,67228013906 ",.02)
 ;;67228013906
 ;;9002226.02101,"1034,67228018003 ",.01)
 ;;67228018003
 ;;9002226.02101,"1034,67228018003 ",.02)
 ;;67228018003
 ;;9002226.02101,"1034,67228018006 ",.01)
 ;;67228018006
 ;;9002226.02101,"1034,67228018006 ",.02)
 ;;67228018006
 ;;9002226.02101,"1034,67228018103 ",.01)
 ;;67228018103
 ;;9002226.02101,"1034,67228018103 ",.02)
 ;;67228018103
 ;;9002226.02101,"1034,67228018106 ",.01)
 ;;67228018106
 ;;9002226.02101,"1034,67228018106 ",.02)
 ;;67228018106