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.
  1. BGPM5BEZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1084,23490563801 ",.01)
  1. ;;23490563801
  1. ;;9002226.02101,"1084,23490563801 ",.02)
  1. ;;23490563801
  1. ;;9002226.02101,"1084,23490563802 ",.01)
  1. ;;23490563802
  1. ;;9002226.02101,"1084,23490563802 ",.02)
  1. ;;23490563802
  1. ;;9002226.02101,"1084,23490563901 ",.01)
  1. ;;23490563901
  1. ;;9002226.02101,"1084,23490563901 ",.02)
  1. ;;23490563901
  1. ;;9002226.02101,"1084,23490563902 ",.01)
  1. ;;23490563902
  1. ;;9002226.02101,"1084,23490563902 ",.02)
  1. ;;23490563902
  1. ;;9002226.02101,"1084,23490683801 ",.01)
  1. ;;23490683801
  1. ;;9002226.02101,"1084,23490683801 ",.02)
  1. ;;23490683801
  1. ;;9002226.02101,"1084,23490683802 ",.01)
  1. ;;23490683802
  1. ;;9002226.02101,"1084,23490683802 ",.02)
  1. ;;23490683802
  1. ;;9002226.02101,"1084,23490683803 ",.01)
  1. ;;23490683803
  1. ;;9002226.02101,"1084,23490683803 ",.02)
  1. ;;23490683803
  1. ;;9002226.02101,"1084,23490683804 ",.01)
  1. ;;23490683804
  1. ;;9002226.02101,"1084,23490683804 ",.02)
  1. ;;23490683804
  1. ;;9002226.02101,"1084,23490683901 ",.01)
  1. ;;23490683901
  1. ;;9002226.02101,"1084,23490683901 ",.02)
  1. ;;23490683901
  1. ;;9002226.02101,"1084,23490683902 ",.01)
  1. ;;23490683902
  1. ;;9002226.02101,"1084,23490683902 ",.02)
  1. ;;23490683902
  1. ;;9002226.02101,"1084,23490683903 ",.01)
  1. ;;23490683903
  1. ;;9002226.02101,"1084,23490683903 ",.02)
  1. ;;23490683903
  1. ;;9002226.02101,"1084,23490683904 ",.01)
  1. ;;23490683904
  1. ;;9002226.02101,"1084,23490683904 ",.02)
  1. ;;23490683904
  1. ;;9002226.02101,"1084,23490726001 ",.01)
  1. ;;23490726001
  1. ;;9002226.02101,"1084,23490726001 ",.02)
  1. ;;23490726001
  1. ;;9002226.02101,"1084,23490726002 ",.01)
  1. ;;23490726002
  1. ;;9002226.02101,"1084,23490726002 ",.02)
  1. ;;23490726002
  1. ;;9002226.02101,"1084,23490726003 ",.01)
  1. ;;23490726003
  1. ;;9002226.02101,"1084,23490726003 ",.02)
  1. ;;23490726003
  1. ;;9002226.02101,"1084,23490726004 ",.01)
  1. ;;23490726004
  1. ;;9002226.02101,"1084,23490726004 ",.02)
  1. ;;23490726004
  1. ;;9002226.02101,"1084,23490744901 ",.01)
  1. ;;23490744901
  1. ;;9002226.02101,"1084,23490744901 ",.02)
  1. ;;23490744901
  1. ;;9002226.02101,"1084,23490745806 ",.01)
  1. ;;23490745806
  1. ;;9002226.02101,"1084,23490745806 ",.02)
  1. ;;23490745806
  1. ;;9002226.02101,"1084,24196054501 ",.01)
  1. ;;24196054501
  1. ;;9002226.02101,"1084,24196054501 ",.02)
  1. ;;24196054501
  1. ;;9002226.02101,"1084,24196054505 ",.01)
  1. ;;24196054505
  1. ;;9002226.02101,"1084,24196054505 ",.02)
  1. ;;24196054505
  1. ;;9002226.02101,"1084,24196054510 ",.01)
  1. ;;24196054510
  1. ;;9002226.02101,"1084,24196054510 ",.02)
  1. ;;24196054510
  1. ;;9002226.02101,"1084,24196054601 ",.01)
  1. ;;24196054601
  1. ;;9002226.02101,"1084,24196054601 ",.02)
  1. ;;24196054601
  1. ;;9002226.02101,"1084,24196054605 ",.01)
  1. ;;24196054605
  1. ;;9002226.02101,"1084,24196054605 ",.02)
  1. ;;24196054605
  1. ;;9002226.02101,"1084,24196054610 ",.01)
  1. ;;24196054610
  1. ;;9002226.02101,"1084,24196054610 ",.02)
  1. ;;24196054610
  1. ;;9002226.02101,"1084,24236006402 ",.01)
  1. ;;24236006402
  1. ;;9002226.02101,"1084,24236006402 ",.02)
  1. ;;24236006402
  1. ;;9002226.02101,"1084,24236008702 ",.01)
  1. ;;24236008702
  1. ;;9002226.02101,"1084,24236008702 ",.02)
  1. ;;24236008702
  1. ;;9002226.02101,"1084,24236015702 ",.01)
  1. ;;24236015702
  1. ;;9002226.02101,"1084,24236015702 ",.02)
  1. ;;24236015702
  1. ;;9002226.02101,"1084,24236017202 ",.01)
  1. ;;24236017202
  1. ;;9002226.02101,"1084,24236017202 ",.02)
  1. ;;24236017202
  1. ;;9002226.02101,"1084,24236017702 ",.01)
  1. ;;24236017702
  1. ;;9002226.02101,"1084,24236017702 ",.02)
  1. ;;24236017702
  1. ;;9002226.02101,"1084,24236018002 ",.01)
  1. ;;24236018002
  1. ;;9002226.02101,"1084,24236018002 ",.02)
  1. ;;24236018002
  1. ;;9002226.02101,"1084,24236021602 ",.01)
  1. ;;24236021602
  1. ;;9002226.02101,"1084,24236021602 ",.02)
  1. ;;24236021602
  1. ;;9002226.02101,"1084,24236023602 ",.01)
  1. ;;24236023602
  1. ;;9002226.02101,"1084,24236023602 ",.02)
  1. ;;24236023602
  1. ;;9002226.02101,"1084,24236025202 ",.01)
  1. ;;24236025202
  1. ;;9002226.02101,"1084,24236025202 ",.02)
  1. ;;24236025202
  1. ;;9002226.02101,"1084,24236025502 ",.01)
  1. ;;24236025502
  1. ;;9002226.02101,"1084,24236025502 ",.02)
  1. ;;24236025502
  1. ;;9002226.02101,"1084,24236026602 ",.01)
  1. ;;24236026602
  1. ;;9002226.02101,"1084,24236026602 ",.02)
  1. ;;24236026602
  1. ;;9002226.02101,"1084,24236027602 ",.01)
  1. ;;24236027602
  1. ;;9002226.02101,"1084,24236027602 ",.02)
  1. ;;24236027602
  1. ;;9002226.02101,"1084,24236030402 ",.01)
  1. ;;24236030402
  1. ;;9002226.02101,"1084,24236030402 ",.02)
  1. ;;24236030402
  1. ;;9002226.02101,"1084,24236031602 ",.01)
  1. ;;24236031602
  1. ;;9002226.02101,"1084,24236031602 ",.02)
  1. ;;24236031602
  1. ;;9002226.02101,"1084,24236034002 ",.01)
  1. ;;24236034002
  1. ;;9002226.02101,"1084,24236034002 ",.02)
  1. ;;24236034002
  1. ;;9002226.02101,"1084,24236036802 ",.01)
  1. ;;24236036802
  1. ;;9002226.02101,"1084,24236036802 ",.02)
  1. ;;24236036802
  1. ;;9002226.02101,"1084,24236038102 ",.01)
  1. ;;24236038102
  1. ;;9002226.02101,"1084,24236038102 ",.02)
  1. ;;24236038102
  1. ;;9002226.02101,"1084,24236043102 ",.01)
  1. ;;24236043102
  1. ;;9002226.02101,"1084,24236043102 ",.02)
  1. ;;24236043102
  1. ;;9002226.02101,"1084,24236048902 ",.01)
  1. ;;24236048902
  1. ;;9002226.02101,"1084,24236048902 ",.02)
  1. ;;24236048902
  1. ;;9002226.02101,"1084,24236056802 ",.01)
  1. ;;24236056802
  1. ;;9002226.02101,"1084,24236056802 ",.02)
  1. ;;24236056802
  1. ;;9002226.02101,"1084,24236063202 ",.01)
  1. ;;24236063202
  1. ;;9002226.02101,"1084,24236063202 ",.02)
  1. ;;24236063202
  1. ;;9002226.02101,"1084,24236071502 ",.01)
  1. ;;24236071502
  1. ;;9002226.02101,"1084,24236071502 ",.02)
  1. ;;24236071502
  1. ;;9002226.02101,"1084,24236079102 ",.01)
  1. ;;24236079102
  1. ;;9002226.02101,"1084,24236079102 ",.02)
  1. ;;24236079102
  1. ;;9002226.02101,"1084,24236079902 ",.01)
  1. ;;24236079902
  1. ;;9002226.02101,"1084,24236079902 ",.02)
  1. ;;24236079902
  1. ;;9002226.02101,"1084,24236090802 ",.01)
  1. ;;24236090802
  1. ;;9002226.02101,"1084,24236090802 ",.02)
  1. ;;24236090802
  1. ;;9002226.02101,"1084,24236098802 ",.01)
  1. ;;24236098802
  1. ;;9002226.02101,"1084,24236098802 ",.02)
  1. ;;24236098802
  1. ;;9002226.02101,"1084,24236099402 ",.01)
  1. ;;24236099402
  1. ;;9002226.02101,"1084,24236099402 ",.02)
  1. ;;24236099402
  1. ;;9002226.02101,"1084,24724001401 ",.01)
  1. ;;24724001401
  1. ;;9002226.02101,"1084,24724001401 ",.02)
  1. ;;24724001401
  1. ;;9002226.02101,"1084,24724001450 ",.01)
  1. ;;24724001450
  1. ;;9002226.02101,"1084,24724001450 ",.02)
  1. ;;24724001450
  1. ;;9002226.02101,"1084,24724001501 ",.01)
  1. ;;24724001501
  1. ;;9002226.02101,"1084,24724001501 ",.02)
  1. ;;24724001501
  1. ;;9002226.02101,"1084,24724001550 ",.01)
  1. ;;24724001550
  1. ;;9002226.02101,"1084,24724001550 ",.02)
  1. ;;24724001550
  1. ;;9002226.02101,"1084,24724001601 ",.01)
  1. ;;24724001601
  1. ;;9002226.02101,"1084,24724001601 ",.02)
  1. ;;24724001601
  1. ;;9002226.02101,"1084,24724001650 ",.01)
  1. ;;24724001650
  1. ;;9002226.02101,"1084,24724001650 ",.02)
  1. ;;24724001650
  1. ;;9002226.02101,"1084,26053006701 ",.01)
  1. ;;26053006701
  1. ;;9002226.02101,"1084,26053006701 ",.02)
  1. ;;26053006701
  1. ;;9002226.02101,"1084,26053015701 ",.01)
  1. ;;26053015701
  1. ;;9002226.02101,"1084,26053015701 ",.02)
  1. ;;26053015701
  1. ;;9002226.02101,"1084,26053015801 ",.01)
  1. ;;26053015801
  1. ;;9002226.02101,"1084,26053015801 ",.02)
  1. ;;26053015801
  1. ;;9002226.02101,"1084,26053015901 ",.01)
  1. ;;26053015901
  1. ;;9002226.02101,"1084,26053015901 ",.02)
  1. ;;26053015901
  1. ;;9002226.02101,"1084,26053016001 ",.01)
  1. ;;26053016001
  1. ;;9002226.02101,"1084,26053016001 ",.02)
  1. ;;26053016001
  1. ;;9002226.02101,"1084,26053016101 ",.01)
  1. ;;26053016101
  1. ;;9002226.02101,"1084,26053016101 ",.02)
  1. ;;26053016101
  1. ;;9002226.02101,"1084,26053016201 ",.01)
  1. ;;26053016201
  1. ;;9002226.02101,"1084,26053016201 ",.02)
  1. ;;26053016201
  1. ;;9002226.02101,"1084,26053016301 ",.01)
  1. ;;26053016301
  1. ;;9002226.02101,"1084,26053016301 ",.02)
  1. ;;26053016301
  1. ;;9002226.02101,"1084,26053016401 ",.01)
  1. ;;26053016401
  1. ;;9002226.02101,"1084,26053016401 ",.02)
  1. ;;26053016401
  1. ;;9002226.02101,"1084,26053022001 ",.01)
  1. ;;26053022001
  1. ;;9002226.02101,"1084,26053022001 ",.02)
  1. ;;26053022001
  1. ;;9002226.02101,"1084,26053022101 ",.01)
  1. ;;26053022101
  1. ;;9002226.02101,"1084,26053022101 ",.02)
  1. ;;26053022101
  1. ;;9002226.02101,"1084,26053043901 ",.01)
  1. ;;26053043901
  1. ;;9002226.02101,"1084,26053043901 ",.02)
  1. ;;26053043901
  1. ;;9002226.02101,"1084,33358015730 ",.01)
  1. ;;33358015730
  1. ;;9002226.02101,"1084,33358015730 ",.02)
  1. ;;33358015730
  1. ;;9002226.02101,"1084,33358015760 ",.01)
  1. ;;33358015760
  1. ;;9002226.02101,"1084,33358015760 ",.02)
  1. ;;33358015760
  1. ;;9002226.02101,"1084,33358015800 ",.01)
  1. ;;33358015800
  1. ;;9002226.02101,"1084,33358015800 ",.02)
  1. ;;33358015800
  1. ;;9002226.02101,"1084,33358015830 ",.01)
  1. ;;33358015830
  1. ;;9002226.02101,"1084,33358015830 ",.02)
  1. ;;33358015830
  1. ;;9002226.02101,"1084,33358015860 ",.01)
  1. ;;33358015860
  1. ;;9002226.02101,"1084,33358015860 ",.02)
  1. ;;33358015860
  1. ;;9002226.02101,"1084,33358016030 ",.01)
  1. ;;33358016030
  1. ;;9002226.02101,"1084,33358016030 ",.02)
  1. ;;33358016030
  1. ;;9002226.02101,"1084,33358016060 ",.01)
  1. ;;33358016060
  1. ;;9002226.02101,"1084,33358016060 ",.02)
  1. ;;33358016060
  1. ;;9002226.02101,"1084,33358016101 ",.01)
  1. ;;33358016101
  1. ;;9002226.02101,"1084,33358016101 ",.02)
  1. ;;33358016101
  1. ;;9002226.02101,"1084,33358016130 ",.01)
  1. ;;33358016130
  1. ;;9002226.02101,"1084,33358016130 ",.02)
  1. ;;33358016130
  1. ;;9002226.02101,"1084,33358016160 ",.01)
  1. ;;33358016160
  1. ;;9002226.02101,"1084,33358016160 ",.02)
  1. ;;33358016160
  1. ;;9002226.02101,"1084,33358023400 ",.01)
  1. ;;33358023400
  1. ;;9002226.02101,"1084,33358023400 ",.02)
  1. ;;33358023400
  1. ;;9002226.02101,"1084,33358023430 ",.01)
  1. ;;33358023430
  1. ;;9002226.02101,"1084,33358023430 ",.02)
  1. ;;33358023430
  1. ;;9002226.02101,"1084,33358023460 ",.01)
  1. ;;33358023460
  1. ;;9002226.02101,"1084,33358023460 ",.02)
  1. ;;33358023460
  1. ;;9002226.02101,"1084,33358023560 ",.01)
  1. ;;33358023560
  1. ;;9002226.02101,"1084,33358023560 ",.02)
  1. ;;33358023560
  1. ;;9002226.02101,"1084,33358023630 ",.01)
  1. ;;33358023630
  1. ;;9002226.02101,"1084,33358023630 ",.02)
  1. ;;33358023630
  1. ;;9002226.02101,"1084,33358023660 ",.01)
  1. ;;33358023660
  1. ;;9002226.02101,"1084,33358023660 ",.02)
  1. ;;33358023660
  1. ;;9002226.02101,"1084,33358023730 ",.01)
  1. ;;33358023730
  1. ;;9002226.02101,"1084,33358023730 ",.02)
  1. ;;33358023730
  1. ;;9002226.02101,"1084,33358023760 ",.01)
  1. ;;33358023760
  1. ;;9002226.02101,"1084,33358023760 ",.02)
  1. ;;33358023760
  1. ;;9002226.02101,"1084,33358046530 ",.01)
  1. ;;33358046530
  1. ;;9002226.02101,"1084,33358046530 ",.02)
  1. ;;33358046530
  1. ;;9002226.02101,"1084,35356011300 ",.01)
  1. ;;35356011300
  1. ;;9002226.02101,"1084,35356011300 ",.02)
  1. ;;35356011300
  1. ;;9002226.02101,"1084,35356011330 ",.01)
  1. ;;35356011330
  1. ;;9002226.02101,"1084,35356011330 ",.02)
  1. ;;35356011330
  1. ;;9002226.02101,"1084,35356026928 ",.01)
  1. ;;35356026928
  1. ;;9002226.02101,"1084,35356026928 ",.02)
  1. ;;35356026928
  1. ;;9002226.02101,"1084,35356036030 ",.01)
  1. ;;35356036030
  1. ;;9002226.02101,"1084,35356036030 ",.02)
  1. ;;35356036030
  1. ;;9002226.02101,"1084,41284052301 ",.01)
  1. ;;41284052301
  1. ;;9002226.02101,"1084,41284052301 ",.02)
  1. ;;41284052301
  1. ;;9002226.02101,"1084,41284052400 ",.01)
  1. ;;41284052400
  1. ;;9002226.02101,"1084,41284052400 ",.02)
  1. ;;41284052400
  1. ;;9002226.02101,"1084,41284052401 ",.01)
  1. ;;41284052401
  1. ;;9002226.02101,"1084,41284052401 ",.02)
  1. ;;41284052401
  1. ;;9002226.02101,"1084,41284052500 ",.01)
  1. ;;41284052500
  1. ;;9002226.02101,"1084,41284052500 ",.02)
  1. ;;41284052500
  1. ;;9002226.02101,"1084,41284052501 ",.01)
  1. ;;41284052501
  1. ;;9002226.02101,"1084,41284052501 ",.02)
  1. ;;41284052501
  1. ;;9002226.02101,"1084,42291030790 ",.01)
  1. ;;42291030790
  1. ;;9002226.02101,"1084,42291030790 ",.02)
  1. ;;42291030790
  1. ;;9002226.02101,"1084,42291030890 ",.01)
  1. ;;42291030890
  1. ;;9002226.02101,"1084,42291030890 ",.02)
  1. ;;42291030890
  1. ;;9002226.02101,"1084,42291030990 ",.01)
  1. ;;42291030990
  1. ;;9002226.02101,"1084,42291030990 ",.02)
  1. ;;42291030990
  1. ;;9002226.02101,"1084,42291061018 ",.01)
  1. ;;42291061018