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