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

BGPM5BEZ.m

Go to the documentation of this file.
BGPM5BEZ ;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,23490563801 ",.01)
 ;;23490563801
 ;;9002226.02101,"1084,23490563801 ",.02)
 ;;23490563801
 ;;9002226.02101,"1084,23490563802 ",.01)
 ;;23490563802
 ;;9002226.02101,"1084,23490563802 ",.02)
 ;;23490563802
 ;;9002226.02101,"1084,23490563901 ",.01)
 ;;23490563901
 ;;9002226.02101,"1084,23490563901 ",.02)
 ;;23490563901
 ;;9002226.02101,"1084,23490563902 ",.01)
 ;;23490563902
 ;;9002226.02101,"1084,23490563902 ",.02)
 ;;23490563902
 ;;9002226.02101,"1084,23490683801 ",.01)
 ;;23490683801
 ;;9002226.02101,"1084,23490683801 ",.02)
 ;;23490683801
 ;;9002226.02101,"1084,23490683802 ",.01)
 ;;23490683802
 ;;9002226.02101,"1084,23490683802 ",.02)
 ;;23490683802
 ;;9002226.02101,"1084,23490683803 ",.01)
 ;;23490683803
 ;;9002226.02101,"1084,23490683803 ",.02)
 ;;23490683803
 ;;9002226.02101,"1084,23490683804 ",.01)
 ;;23490683804
 ;;9002226.02101,"1084,23490683804 ",.02)
 ;;23490683804
 ;;9002226.02101,"1084,23490683901 ",.01)
 ;;23490683901
 ;;9002226.02101,"1084,23490683901 ",.02)
 ;;23490683901
 ;;9002226.02101,"1084,23490683902 ",.01)
 ;;23490683902
 ;;9002226.02101,"1084,23490683902 ",.02)
 ;;23490683902
 ;;9002226.02101,"1084,23490683903 ",.01)
 ;;23490683903
 ;;9002226.02101,"1084,23490683903 ",.02)
 ;;23490683903
 ;;9002226.02101,"1084,23490683904 ",.01)
 ;;23490683904
 ;;9002226.02101,"1084,23490683904 ",.02)
 ;;23490683904
 ;;9002226.02101,"1084,23490726001 ",.01)
 ;;23490726001
 ;;9002226.02101,"1084,23490726001 ",.02)
 ;;23490726001
 ;;9002226.02101,"1084,23490726002 ",.01)
 ;;23490726002
 ;;9002226.02101,"1084,23490726002 ",.02)
 ;;23490726002
 ;;9002226.02101,"1084,23490726003 ",.01)
 ;;23490726003
 ;;9002226.02101,"1084,23490726003 ",.02)
 ;;23490726003
 ;;9002226.02101,"1084,23490726004 ",.01)
 ;;23490726004
 ;;9002226.02101,"1084,23490726004 ",.02)
 ;;23490726004
 ;;9002226.02101,"1084,23490744901 ",.01)
 ;;23490744901
 ;;9002226.02101,"1084,23490744901 ",.02)
 ;;23490744901
 ;;9002226.02101,"1084,23490745806 ",.01)
 ;;23490745806
 ;;9002226.02101,"1084,23490745806 ",.02)
 ;;23490745806
 ;;9002226.02101,"1084,24196054501 ",.01)
 ;;24196054501
 ;;9002226.02101,"1084,24196054501 ",.02)
 ;;24196054501
 ;;9002226.02101,"1084,24196054505 ",.01)
 ;;24196054505
 ;;9002226.02101,"1084,24196054505 ",.02)
 ;;24196054505
 ;;9002226.02101,"1084,24196054510 ",.01)
 ;;24196054510
 ;;9002226.02101,"1084,24196054510 ",.02)
 ;;24196054510
 ;;9002226.02101,"1084,24196054601 ",.01)
 ;;24196054601
 ;;9002226.02101,"1084,24196054601 ",.02)
 ;;24196054601
 ;;9002226.02101,"1084,24196054605 ",.01)
 ;;24196054605
 ;;9002226.02101,"1084,24196054605 ",.02)
 ;;24196054605
 ;;9002226.02101,"1084,24196054610 ",.01)
 ;;24196054610
 ;;9002226.02101,"1084,24196054610 ",.02)
 ;;24196054610
 ;;9002226.02101,"1084,24236006402 ",.01)
 ;;24236006402
 ;;9002226.02101,"1084,24236006402 ",.02)
 ;;24236006402
 ;;9002226.02101,"1084,24236008702 ",.01)
 ;;24236008702
 ;;9002226.02101,"1084,24236008702 ",.02)
 ;;24236008702
 ;;9002226.02101,"1084,24236015702 ",.01)
 ;;24236015702
 ;;9002226.02101,"1084,24236015702 ",.02)
 ;;24236015702
 ;;9002226.02101,"1084,24236017202 ",.01)
 ;;24236017202
 ;;9002226.02101,"1084,24236017202 ",.02)
 ;;24236017202
 ;;9002226.02101,"1084,24236017702 ",.01)
 ;;24236017702
 ;;9002226.02101,"1084,24236017702 ",.02)
 ;;24236017702
 ;;9002226.02101,"1084,24236018002 ",.01)
 ;;24236018002
 ;;9002226.02101,"1084,24236018002 ",.02)
 ;;24236018002
 ;;9002226.02101,"1084,24236021602 ",.01)
 ;;24236021602
 ;;9002226.02101,"1084,24236021602 ",.02)
 ;;24236021602
 ;;9002226.02101,"1084,24236023602 ",.01)
 ;;24236023602
 ;;9002226.02101,"1084,24236023602 ",.02)
 ;;24236023602
 ;;9002226.02101,"1084,24236025202 ",.01)
 ;;24236025202
 ;;9002226.02101,"1084,24236025202 ",.02)
 ;;24236025202
 ;;9002226.02101,"1084,24236025502 ",.01)
 ;;24236025502
 ;;9002226.02101,"1084,24236025502 ",.02)
 ;;24236025502
 ;;9002226.02101,"1084,24236026602 ",.01)
 ;;24236026602
 ;;9002226.02101,"1084,24236026602 ",.02)
 ;;24236026602
 ;;9002226.02101,"1084,24236027602 ",.01)
 ;;24236027602
 ;;9002226.02101,"1084,24236027602 ",.02)
 ;;24236027602
 ;;9002226.02101,"1084,24236030402 ",.01)
 ;;24236030402
 ;;9002226.02101,"1084,24236030402 ",.02)
 ;;24236030402
 ;;9002226.02101,"1084,24236031602 ",.01)
 ;;24236031602
 ;;9002226.02101,"1084,24236031602 ",.02)
 ;;24236031602
 ;;9002226.02101,"1084,24236034002 ",.01)
 ;;24236034002
 ;;9002226.02101,"1084,24236034002 ",.02)
 ;;24236034002
 ;;9002226.02101,"1084,24236036802 ",.01)
 ;;24236036802
 ;;9002226.02101,"1084,24236036802 ",.02)
 ;;24236036802
 ;;9002226.02101,"1084,24236038102 ",.01)
 ;;24236038102
 ;;9002226.02101,"1084,24236038102 ",.02)
 ;;24236038102
 ;;9002226.02101,"1084,24236043102 ",.01)
 ;;24236043102
 ;;9002226.02101,"1084,24236043102 ",.02)
 ;;24236043102
 ;;9002226.02101,"1084,24236048902 ",.01)
 ;;24236048902
 ;;9002226.02101,"1084,24236048902 ",.02)
 ;;24236048902
 ;;9002226.02101,"1084,24236056802 ",.01)
 ;;24236056802
 ;;9002226.02101,"1084,24236056802 ",.02)
 ;;24236056802
 ;;9002226.02101,"1084,24236063202 ",.01)
 ;;24236063202
 ;;9002226.02101,"1084,24236063202 ",.02)
 ;;24236063202
 ;;9002226.02101,"1084,24236071502 ",.01)
 ;;24236071502
 ;;9002226.02101,"1084,24236071502 ",.02)
 ;;24236071502
 ;;9002226.02101,"1084,24236079102 ",.01)
 ;;24236079102
 ;;9002226.02101,"1084,24236079102 ",.02)
 ;;24236079102
 ;;9002226.02101,"1084,24236079902 ",.01)
 ;;24236079902
 ;;9002226.02101,"1084,24236079902 ",.02)
 ;;24236079902
 ;;9002226.02101,"1084,24236090802 ",.01)
 ;;24236090802
 ;;9002226.02101,"1084,24236090802 ",.02)
 ;;24236090802
 ;;9002226.02101,"1084,24236098802 ",.01)
 ;;24236098802
 ;;9002226.02101,"1084,24236098802 ",.02)
 ;;24236098802
 ;;9002226.02101,"1084,24236099402 ",.01)
 ;;24236099402
 ;;9002226.02101,"1084,24236099402 ",.02)
 ;;24236099402
 ;;9002226.02101,"1084,24724001401 ",.01)
 ;;24724001401
 ;;9002226.02101,"1084,24724001401 ",.02)
 ;;24724001401
 ;;9002226.02101,"1084,24724001450 ",.01)
 ;;24724001450
 ;;9002226.02101,"1084,24724001450 ",.02)
 ;;24724001450
 ;;9002226.02101,"1084,24724001501 ",.01)
 ;;24724001501
 ;;9002226.02101,"1084,24724001501 ",.02)
 ;;24724001501
 ;;9002226.02101,"1084,24724001550 ",.01)
 ;;24724001550
 ;;9002226.02101,"1084,24724001550 ",.02)
 ;;24724001550
 ;;9002226.02101,"1084,24724001601 ",.01)
 ;;24724001601
 ;;9002226.02101,"1084,24724001601 ",.02)
 ;;24724001601
 ;;9002226.02101,"1084,24724001650 ",.01)
 ;;24724001650
 ;;9002226.02101,"1084,24724001650 ",.02)
 ;;24724001650
 ;;9002226.02101,"1084,26053006701 ",.01)
 ;;26053006701
 ;;9002226.02101,"1084,26053006701 ",.02)
 ;;26053006701
 ;;9002226.02101,"1084,26053015701 ",.01)
 ;;26053015701
 ;;9002226.02101,"1084,26053015701 ",.02)
 ;;26053015701
 ;;9002226.02101,"1084,26053015801 ",.01)
 ;;26053015801
 ;;9002226.02101,"1084,26053015801 ",.02)
 ;;26053015801
 ;;9002226.02101,"1084,26053015901 ",.01)
 ;;26053015901
 ;;9002226.02101,"1084,26053015901 ",.02)
 ;;26053015901
 ;;9002226.02101,"1084,26053016001 ",.01)
 ;;26053016001
 ;;9002226.02101,"1084,26053016001 ",.02)
 ;;26053016001
 ;;9002226.02101,"1084,26053016101 ",.01)
 ;;26053016101
 ;;9002226.02101,"1084,26053016101 ",.02)
 ;;26053016101
 ;;9002226.02101,"1084,26053016201 ",.01)
 ;;26053016201
 ;;9002226.02101,"1084,26053016201 ",.02)
 ;;26053016201
 ;;9002226.02101,"1084,26053016301 ",.01)
 ;;26053016301
 ;;9002226.02101,"1084,26053016301 ",.02)
 ;;26053016301
 ;;9002226.02101,"1084,26053016401 ",.01)
 ;;26053016401
 ;;9002226.02101,"1084,26053016401 ",.02)
 ;;26053016401
 ;;9002226.02101,"1084,26053022001 ",.01)
 ;;26053022001
 ;;9002226.02101,"1084,26053022001 ",.02)
 ;;26053022001
 ;;9002226.02101,"1084,26053022101 ",.01)
 ;;26053022101
 ;;9002226.02101,"1084,26053022101 ",.02)
 ;;26053022101
 ;;9002226.02101,"1084,26053043901 ",.01)
 ;;26053043901
 ;;9002226.02101,"1084,26053043901 ",.02)
 ;;26053043901
 ;;9002226.02101,"1084,33358015730 ",.01)
 ;;33358015730
 ;;9002226.02101,"1084,33358015730 ",.02)
 ;;33358015730
 ;;9002226.02101,"1084,33358015760 ",.01)
 ;;33358015760
 ;;9002226.02101,"1084,33358015760 ",.02)
 ;;33358015760
 ;;9002226.02101,"1084,33358015800 ",.01)
 ;;33358015800
 ;;9002226.02101,"1084,33358015800 ",.02)
 ;;33358015800
 ;;9002226.02101,"1084,33358015830 ",.01)
 ;;33358015830
 ;;9002226.02101,"1084,33358015830 ",.02)
 ;;33358015830
 ;;9002226.02101,"1084,33358015860 ",.01)
 ;;33358015860
 ;;9002226.02101,"1084,33358015860 ",.02)
 ;;33358015860
 ;;9002226.02101,"1084,33358016030 ",.01)
 ;;33358016030
 ;;9002226.02101,"1084,33358016030 ",.02)
 ;;33358016030
 ;;9002226.02101,"1084,33358016060 ",.01)
 ;;33358016060
 ;;9002226.02101,"1084,33358016060 ",.02)
 ;;33358016060
 ;;9002226.02101,"1084,33358016101 ",.01)
 ;;33358016101
 ;;9002226.02101,"1084,33358016101 ",.02)
 ;;33358016101
 ;;9002226.02101,"1084,33358016130 ",.01)
 ;;33358016130
 ;;9002226.02101,"1084,33358016130 ",.02)
 ;;33358016130
 ;;9002226.02101,"1084,33358016160 ",.01)
 ;;33358016160
 ;;9002226.02101,"1084,33358016160 ",.02)
 ;;33358016160
 ;;9002226.02101,"1084,33358023400 ",.01)
 ;;33358023400
 ;;9002226.02101,"1084,33358023400 ",.02)
 ;;33358023400
 ;;9002226.02101,"1084,33358023430 ",.01)
 ;;33358023430
 ;;9002226.02101,"1084,33358023430 ",.02)
 ;;33358023430
 ;;9002226.02101,"1084,33358023460 ",.01)
 ;;33358023460
 ;;9002226.02101,"1084,33358023460 ",.02)
 ;;33358023460
 ;;9002226.02101,"1084,33358023560 ",.01)
 ;;33358023560
 ;;9002226.02101,"1084,33358023560 ",.02)
 ;;33358023560
 ;;9002226.02101,"1084,33358023630 ",.01)
 ;;33358023630
 ;;9002226.02101,"1084,33358023630 ",.02)
 ;;33358023630
 ;;9002226.02101,"1084,33358023660 ",.01)
 ;;33358023660
 ;;9002226.02101,"1084,33358023660 ",.02)
 ;;33358023660
 ;;9002226.02101,"1084,33358023730 ",.01)
 ;;33358023730
 ;;9002226.02101,"1084,33358023730 ",.02)
 ;;33358023730
 ;;9002226.02101,"1084,33358023760 ",.01)
 ;;33358023760
 ;;9002226.02101,"1084,33358023760 ",.02)
 ;;33358023760
 ;;9002226.02101,"1084,33358046530 ",.01)
 ;;33358046530
 ;;9002226.02101,"1084,33358046530 ",.02)
 ;;33358046530
 ;;9002226.02101,"1084,35356011300 ",.01)
 ;;35356011300
 ;;9002226.02101,"1084,35356011300 ",.02)
 ;;35356011300
 ;;9002226.02101,"1084,35356011330 ",.01)
 ;;35356011330
 ;;9002226.02101,"1084,35356011330 ",.02)
 ;;35356011330
 ;;9002226.02101,"1084,35356026928 ",.01)
 ;;35356026928
 ;;9002226.02101,"1084,35356026928 ",.02)
 ;;35356026928
 ;;9002226.02101,"1084,35356036030 ",.01)
 ;;35356036030
 ;;9002226.02101,"1084,35356036030 ",.02)
 ;;35356036030
 ;;9002226.02101,"1084,41284052301 ",.01)
 ;;41284052301
 ;;9002226.02101,"1084,41284052301 ",.02)
 ;;41284052301
 ;;9002226.02101,"1084,41284052400 ",.01)
 ;;41284052400
 ;;9002226.02101,"1084,41284052400 ",.02)
 ;;41284052400
 ;;9002226.02101,"1084,41284052401 ",.01)
 ;;41284052401
 ;;9002226.02101,"1084,41284052401 ",.02)
 ;;41284052401
 ;;9002226.02101,"1084,41284052500 ",.01)
 ;;41284052500
 ;;9002226.02101,"1084,41284052500 ",.02)
 ;;41284052500
 ;;9002226.02101,"1084,41284052501 ",.01)
 ;;41284052501
 ;;9002226.02101,"1084,41284052501 ",.02)
 ;;41284052501
 ;;9002226.02101,"1084,42291030790 ",.01)
 ;;42291030790
 ;;9002226.02101,"1084,42291030790 ",.02)
 ;;42291030790
 ;;9002226.02101,"1084,42291030890 ",.01)
 ;;42291030890
 ;;9002226.02101,"1084,42291030890 ",.02)
 ;;42291030890
 ;;9002226.02101,"1084,42291030990 ",.01)
 ;;42291030990
 ;;9002226.02101,"1084,42291030990 ",.02)
 ;;42291030990
 ;;9002226.02101,"1084,42291061018 ",.01)
 ;;42291061018