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

BGPM5AX.m

Go to the documentation of this file.
  1. BGPM5AX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,67296024603 ",.01)
  1. ;;67296024603
  1. ;;9002226.02101,"1033,67296024603 ",.02)
  1. ;;67296024603
  1. ;;9002226.02101,"1033,67296024604 ",.01)
  1. ;;67296024604
  1. ;;9002226.02101,"1033,67296024604 ",.02)
  1. ;;67296024604
  1. ;;9002226.02101,"1033,67296024605 ",.01)
  1. ;;67296024605
  1. ;;9002226.02101,"1033,67296024605 ",.02)
  1. ;;67296024605
  1. ;;9002226.02101,"1033,67296024606 ",.01)
  1. ;;67296024606
  1. ;;9002226.02101,"1033,67296024606 ",.02)
  1. ;;67296024606
  1. ;;9002226.02101,"1033,67296025401 ",.01)
  1. ;;67296025401
  1. ;;9002226.02101,"1033,67296025401 ",.02)
  1. ;;67296025401
  1. ;;9002226.02101,"1033,67296025801 ",.01)
  1. ;;67296025801
  1. ;;9002226.02101,"1033,67296025801 ",.02)
  1. ;;67296025801
  1. ;;9002226.02101,"1033,67296025802 ",.01)
  1. ;;67296025802
  1. ;;9002226.02101,"1033,67296025802 ",.02)
  1. ;;67296025802
  1. ;;9002226.02101,"1033,67296026001 ",.01)
  1. ;;67296026001
  1. ;;9002226.02101,"1033,67296026001 ",.02)
  1. ;;67296026001
  1. ;;9002226.02101,"1033,67296026101 ",.01)
  1. ;;67296026101
  1. ;;9002226.02101,"1033,67296026101 ",.02)
  1. ;;67296026101
  1. ;;9002226.02101,"1033,67296026201 ",.01)
  1. ;;67296026201
  1. ;;9002226.02101,"1033,67296026201 ",.02)
  1. ;;67296026201
  1. ;;9002226.02101,"1033,67296026202 ",.01)
  1. ;;67296026202
  1. ;;9002226.02101,"1033,67296026202 ",.02)
  1. ;;67296026202
  1. ;;9002226.02101,"1033,67296026401 ",.01)
  1. ;;67296026401
  1. ;;9002226.02101,"1033,67296026401 ",.02)
  1. ;;67296026401
  1. ;;9002226.02101,"1033,67296026402 ",.01)
  1. ;;67296026402
  1. ;;9002226.02101,"1033,67296026402 ",.02)
  1. ;;67296026402
  1. ;;9002226.02101,"1033,67296026403 ",.01)
  1. ;;67296026403
  1. ;;9002226.02101,"1033,67296026403 ",.02)
  1. ;;67296026403
  1. ;;9002226.02101,"1033,67296026701 ",.01)
  1. ;;67296026701
  1. ;;9002226.02101,"1033,67296026701 ",.02)
  1. ;;67296026701
  1. ;;9002226.02101,"1033,67296029601 ",.01)
  1. ;;67296029601
  1. ;;9002226.02101,"1033,67296029601 ",.02)
  1. ;;67296029601
  1. ;;9002226.02101,"1033,67296031501 ",.01)
  1. ;;67296031501
  1. ;;9002226.02101,"1033,67296031501 ",.02)
  1. ;;67296031501
  1. ;;9002226.02101,"1033,67296031503 ",.01)
  1. ;;67296031503
  1. ;;9002226.02101,"1033,67296031503 ",.02)
  1. ;;67296031503
  1. ;;9002226.02101,"1033,67296032001 ",.01)
  1. ;;67296032001
  1. ;;9002226.02101,"1033,67296032001 ",.02)
  1. ;;67296032001
  1. ;;9002226.02101,"1033,67296032002 ",.01)
  1. ;;67296032002
  1. ;;9002226.02101,"1033,67296032002 ",.02)
  1. ;;67296032002
  1. ;;9002226.02101,"1033,67296032003 ",.01)
  1. ;;67296032003
  1. ;;9002226.02101,"1033,67296032003 ",.02)
  1. ;;67296032003
  1. ;;9002226.02101,"1033,67296032004 ",.01)
  1. ;;67296032004
  1. ;;9002226.02101,"1033,67296032004 ",.02)
  1. ;;67296032004
  1. ;;9002226.02101,"1033,67296032005 ",.01)
  1. ;;67296032005
  1. ;;9002226.02101,"1033,67296032005 ",.02)
  1. ;;67296032005
  1. ;;9002226.02101,"1033,67296032007 ",.01)
  1. ;;67296032007
  1. ;;9002226.02101,"1033,67296032007 ",.02)
  1. ;;67296032007
  1. ;;9002226.02101,"1033,67296032102 ",.01)
  1. ;;67296032102
  1. ;;9002226.02101,"1033,67296032102 ",.02)
  1. ;;67296032102
  1. ;;9002226.02101,"1033,67296032701 ",.01)
  1. ;;67296032701
  1. ;;9002226.02101,"1033,67296032701 ",.02)
  1. ;;67296032701
  1. ;;9002226.02101,"1033,67296032901 ",.01)
  1. ;;67296032901
  1. ;;9002226.02101,"1033,67296032901 ",.02)
  1. ;;67296032901
  1. ;;9002226.02101,"1033,67296032902 ",.01)
  1. ;;67296032902
  1. ;;9002226.02101,"1033,67296032902 ",.02)
  1. ;;67296032902
  1. ;;9002226.02101,"1033,67296033201 ",.01)
  1. ;;67296033201
  1. ;;9002226.02101,"1033,67296033201 ",.02)
  1. ;;67296033201
  1. ;;9002226.02101,"1033,67296033202 ",.01)
  1. ;;67296033202
  1. ;;9002226.02101,"1033,67296033202 ",.02)
  1. ;;67296033202
  1. ;;9002226.02101,"1033,67296033203 ",.01)
  1. ;;67296033203
  1. ;;9002226.02101,"1033,67296033203 ",.02)
  1. ;;67296033203
  1. ;;9002226.02101,"1033,67296033401 ",.01)
  1. ;;67296033401
  1. ;;9002226.02101,"1033,67296033401 ",.02)
  1. ;;67296033401
  1. ;;9002226.02101,"1033,67296034801 ",.01)
  1. ;;67296034801
  1. ;;9002226.02101,"1033,67296034801 ",.02)
  1. ;;67296034801
  1. ;;9002226.02101,"1033,67296035801 ",.01)
  1. ;;67296035801
  1. ;;9002226.02101,"1033,67296035801 ",.02)
  1. ;;67296035801
  1. ;;9002226.02101,"1033,67296036801 ",.01)
  1. ;;67296036801
  1. ;;9002226.02101,"1033,67296036801 ",.02)
  1. ;;67296036801
  1. ;;9002226.02101,"1033,67296037401 ",.01)
  1. ;;67296037401
  1. ;;9002226.02101,"1033,67296037401 ",.02)
  1. ;;67296037401
  1. ;;9002226.02101,"1033,67296037601 ",.01)
  1. ;;67296037601
  1. ;;9002226.02101,"1033,67296037601 ",.02)
  1. ;;67296037601
  1. ;;9002226.02101,"1033,67296040701 ",.01)
  1. ;;67296040701
  1. ;;9002226.02101,"1033,67296040701 ",.02)
  1. ;;67296040701
  1. ;;9002226.02101,"1033,67296040801 ",.01)
  1. ;;67296040801
  1. ;;9002226.02101,"1033,67296040801 ",.02)
  1. ;;67296040801
  1. ;;9002226.02101,"1033,67296040901 ",.01)
  1. ;;67296040901
  1. ;;9002226.02101,"1033,67296040901 ",.02)
  1. ;;67296040901
  1. ;;9002226.02101,"1033,67296043301 ",.01)
  1. ;;67296043301
  1. ;;9002226.02101,"1033,67296043301 ",.02)
  1. ;;67296043301
  1. ;;9002226.02101,"1033,67296045501 ",.01)
  1. ;;67296045501
  1. ;;9002226.02101,"1033,67296045501 ",.02)
  1. ;;67296045501
  1. ;;9002226.02101,"1033,67296046401 ",.01)
  1. ;;67296046401
  1. ;;9002226.02101,"1033,67296046401 ",.02)
  1. ;;67296046401
  1. ;;9002226.02101,"1033,67296046901 ",.01)
  1. ;;67296046901
  1. ;;9002226.02101,"1033,67296046901 ",.02)
  1. ;;67296046901
  1. ;;9002226.02101,"1033,67296054302 ",.01)
  1. ;;67296054302
  1. ;;9002226.02101,"1033,67296054302 ",.02)
  1. ;;67296054302
  1. ;;9002226.02101,"1033,67296054303 ",.01)
  1. ;;67296054303
  1. ;;9002226.02101,"1033,67296054303 ",.02)
  1. ;;67296054303
  1. ;;9002226.02101,"1033,67296054304 ",.01)
  1. ;;67296054304
  1. ;;9002226.02101,"1033,67296054304 ",.02)
  1. ;;67296054304
  1. ;;9002226.02101,"1033,67296054305 ",.01)
  1. ;;67296054305
  1. ;;9002226.02101,"1033,67296054305 ",.02)
  1. ;;67296054305
  1. ;;9002226.02101,"1033,67296057902 ",.01)
  1. ;;67296057902
  1. ;;9002226.02101,"1033,67296057902 ",.02)
  1. ;;67296057902
  1. ;;9002226.02101,"1033,67296058002 ",.01)
  1. ;;67296058002
  1. ;;9002226.02101,"1033,67296058002 ",.02)
  1. ;;67296058002
  1. ;;9002226.02101,"1033,67296058003 ",.01)
  1. ;;67296058003
  1. ;;9002226.02101,"1033,67296058003 ",.02)
  1. ;;67296058003
  1. ;;9002226.02101,"1033,67296058004 ",.01)
  1. ;;67296058004
  1. ;;9002226.02101,"1033,67296058004 ",.02)
  1. ;;67296058004
  1. ;;9002226.02101,"1033,67296058005 ",.01)
  1. ;;67296058005
  1. ;;9002226.02101,"1033,67296058005 ",.02)
  1. ;;67296058005
  1. ;;9002226.02101,"1033,67296059001 ",.01)
  1. ;;67296059001
  1. ;;9002226.02101,"1033,67296059001 ",.02)
  1. ;;67296059001
  1. ;;9002226.02101,"1033,67296059905 ",.01)
  1. ;;67296059905
  1. ;;9002226.02101,"1033,67296059905 ",.02)
  1. ;;67296059905
  1. ;;9002226.02101,"1033,67296060803 ",.01)
  1. ;;67296060803
  1. ;;9002226.02101,"1033,67296060803 ",.02)
  1. ;;67296060803
  1. ;;9002226.02101,"1033,67296061601 ",.01)
  1. ;;67296061601
  1. ;;9002226.02101,"1033,67296061601 ",.02)
  1. ;;67296061601
  1. ;;9002226.02101,"1033,67296061602 ",.01)
  1. ;;67296061602
  1. ;;9002226.02101,"1033,67296061602 ",.02)
  1. ;;67296061602
  1. ;;9002226.02101,"1033,67296061606 ",.01)
  1. ;;67296061606
  1. ;;9002226.02101,"1033,67296061606 ",.02)
  1. ;;67296061606
  1. ;;9002226.02101,"1033,67296062001 ",.01)
  1. ;;67296062001
  1. ;;9002226.02101,"1033,67296062001 ",.02)
  1. ;;67296062001
  1. ;;9002226.02101,"1033,67296062002 ",.01)
  1. ;;67296062002
  1. ;;9002226.02101,"1033,67296062002 ",.02)
  1. ;;67296062002
  1. ;;9002226.02101,"1033,67296062003 ",.01)
  1. ;;67296062003
  1. ;;9002226.02101,"1033,67296062003 ",.02)
  1. ;;67296062003
  1. ;;9002226.02101,"1033,67296062701 ",.01)
  1. ;;67296062701
  1. ;;9002226.02101,"1033,67296062701 ",.02)
  1. ;;67296062701
  1. ;;9002226.02101,"1033,67296062801 ",.01)
  1. ;;67296062801
  1. ;;9002226.02101,"1033,67296062801 ",.02)
  1. ;;67296062801
  1. ;;9002226.02101,"1033,67296071601 ",.01)
  1. ;;67296071601
  1. ;;9002226.02101,"1033,67296071601 ",.02)
  1. ;;67296071601
  1. ;;9002226.02101,"1033,67544060313 ",.01)
  1. ;;67544060313
  1. ;;9002226.02101,"1033,67544060313 ",.02)
  1. ;;67544060313
  1. ;;9002226.02101,"1033,67544060332 ",.01)
  1. ;;67544060332
  1. ;;9002226.02101,"1033,67544060332 ",.02)
  1. ;;67544060332
  1. ;;9002226.02101,"1033,67544062014 ",.01)
  1. ;;67544062014
  1. ;;9002226.02101,"1033,67544062014 ",.02)
  1. ;;67544062014
  1. ;;9002226.02101,"1033,67544062020 ",.01)
  1. ;;67544062020
  1. ;;9002226.02101,"1033,67544062020 ",.02)
  1. ;;67544062020
  1. ;;9002226.02101,"1033,67544062023 ",.01)
  1. ;;67544062023
  1. ;;9002226.02101,"1033,67544062023 ",.02)
  1. ;;67544062023
  1. ;;9002226.02101,"1033,67544062032 ",.01)
  1. ;;67544062032
  1. ;;9002226.02101,"1033,67544062032 ",.02)
  1. ;;67544062032
  1. ;;9002226.02101,"1033,67544077432 ",.01)
  1. ;;67544077432
  1. ;;9002226.02101,"1033,67544077432 ",.02)
  1. ;;67544077432
  1. ;;9002226.02101,"1033,67544077528 ",.01)
  1. ;;67544077528
  1. ;;9002226.02101,"1033,67544077528 ",.02)
  1. ;;67544077528
  1. ;;9002226.02101,"1033,67544077532 ",.01)
  1. ;;67544077532
  1. ;;9002226.02101,"1033,67544077532 ",.02)
  1. ;;67544077532
  1. ;;9002226.02101,"1033,67544079632 ",.01)
  1. ;;67544079632
  1. ;;9002226.02101,"1033,67544079632 ",.02)
  1. ;;67544079632
  1. ;;9002226.02101,"1033,67544079710 ",.01)
  1. ;;67544079710
  1. ;;9002226.02101,"1033,67544079710 ",.02)
  1. ;;67544079710
  1. ;;9002226.02101,"1033,67544079732 ",.01)
  1. ;;67544079732
  1. ;;9002226.02101,"1033,67544079732 ",.02)
  1. ;;67544079732
  1. ;;9002226.02101,"1033,67544082004 ",.01)
  1. ;;67544082004
  1. ;;9002226.02101,"1033,67544082004 ",.02)
  1. ;;67544082004
  1. ;;9002226.02101,"1033,67544082019 ",.01)
  1. ;;67544082019
  1. ;;9002226.02101,"1033,67544082019 ",.02)
  1. ;;67544082019
  1. ;;9002226.02101,"1033,67544082024 ",.01)
  1. ;;67544082024
  1. ;;9002226.02101,"1033,67544082024 ",.02)
  1. ;;67544082024
  1. ;;9002226.02101,"1033,67544082314 ",.01)
  1. ;;67544082314
  1. ;;9002226.02101,"1033,67544082314 ",.02)
  1. ;;67544082314
  1. ;;9002226.02101,"1033,67544082320 ",.01)
  1. ;;67544082320
  1. ;;9002226.02101,"1033,67544082320 ",.02)
  1. ;;67544082320
  1. ;;9002226.02101,"1033,67544086723 ",.01)
  1. ;;67544086723
  1. ;;9002226.02101,"1033,67544086723 ",.02)
  1. ;;67544086723
  1. ;;9002226.02101,"1033,67544097832 ",.01)
  1. ;;67544097832
  1. ;;9002226.02101,"1033,67544097832 ",.02)
  1. ;;67544097832
  1. ;;9002226.02101,"1033,67668012150 ",.01)
  1. ;;67668012150
  1. ;;9002226.02101,"1033,67668012150 ",.02)
  1. ;;67668012150
  1. ;;9002226.02101,"1033,67668012151 ",.01)
  1. ;;67668012151
  1. ;;9002226.02101,"1033,67668012151 ",.02)
  1. ;;67668012151
  1. ;;9002226.02101,"1033,67668012250 ",.01)
  1. ;;67668012250
  1. ;;9002226.02101,"1033,67668012250 ",.02)
  1. ;;67668012250
  1. ;;9002226.02101,"1033,67668012251 ",.01)
  1. ;;67668012251
  1. ;;9002226.02101,"1033,67668012251 ",.02)
  1. ;;67668012251
  1. ;;9002226.02101,"1033,67668012350 ",.01)
  1. ;;67668012350
  1. ;;9002226.02101,"1033,67668012350 ",.02)
  1. ;;67668012350
  1. ;;9002226.02101,"1033,67668012351 ",.01)
  1. ;;67668012351
  1. ;;9002226.02101,"1033,67668012351 ",.02)
  1. ;;67668012351
  1. ;;9002226.02101,"1033,67767013701 ",.01)
  1. ;;67767013701
  1. ;;9002226.02101,"1033,67767013701 ",.02)
  1. ;;67767013701
  1. ;;9002226.02101,"1033,67767013710 ",.01)
  1. ;;67767013710
  1. ;;9002226.02101,"1033,67767013710 ",.02)
  1. ;;67767013710
  1. ;;9002226.02101,"1033,67767013801 ",.01)
  1. ;;67767013801
  1. ;;9002226.02101,"1033,67767013801 ",.02)
  1. ;;67767013801
  1. ;;9002226.02101,"1033,67767013865 ",.01)
  1. ;;67767013865
  1. ;;9002226.02101,"1033,67767013865 ",.02)
  1. ;;67767013865
  1. ;;9002226.02101,"1033,67767013911 ",.01)
  1. ;;67767013911
  1. ;;9002226.02101,"1033,67767013911 ",.02)
  1. ;;67767013911
  1. ;;9002226.02101,"1033,67767013930 ",.01)
  1. ;;67767013930
  1. ;;9002226.02101,"1033,67767013930 ",.02)
  1. ;;67767013930
  1. ;;9002226.02101,"1033,67767013935 ",.01)
  1. ;;67767013935
  1. ;;9002226.02101,"1033,67767013935 ",.02)
  1. ;;67767013935
  1. ;;9002226.02101,"1033,67870011205 ",.01)
  1. ;;67870011205
  1. ;;9002226.02101,"1033,67870011205 ",.02)
  1. ;;67870011205
  1. ;;9002226.02101,"1033,67877021501 ",.01)
  1. ;;67877021501
  1. ;;9002226.02101,"1033,67877021501 ",.02)
  1. ;;67877021501
  1. ;;9002226.02101,"1033,67877021520 ",.01)
  1. ;;67877021520
  1. ;;9002226.02101,"1033,67877021520 ",.02)
  1. ;;67877021520
  1. ;;9002226.02101,"1033,67877021560 ",.01)
  1. ;;67877021560