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

BGPM5AVA.m

Go to the documentation of this file.
BGPM5AVA ;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,54569307400 ",.02)
 ;;54569307400
 ;;9002226.02101,"1033,54569307401 ",.01)
 ;;54569307401
 ;;9002226.02101,"1033,54569307401 ",.02)
 ;;54569307401
 ;;9002226.02101,"1033,54569307402 ",.01)
 ;;54569307402
 ;;9002226.02101,"1033,54569307402 ",.02)
 ;;54569307402
 ;;9002226.02101,"1033,54569307405 ",.01)
 ;;54569307405
 ;;9002226.02101,"1033,54569307405 ",.02)
 ;;54569307405
 ;;9002226.02101,"1033,54569307406 ",.01)
 ;;54569307406
 ;;9002226.02101,"1033,54569307406 ",.02)
 ;;54569307406
 ;;9002226.02101,"1033,54569307407 ",.01)
 ;;54569307407
 ;;9002226.02101,"1033,54569307407 ",.02)
 ;;54569307407
 ;;9002226.02101,"1033,54569307408 ",.01)
 ;;54569307408
 ;;9002226.02101,"1033,54569307408 ",.02)
 ;;54569307408
 ;;9002226.02101,"1033,54569315300 ",.01)
 ;;54569315300
 ;;9002226.02101,"1033,54569315300 ",.02)
 ;;54569315300
 ;;9002226.02101,"1033,54569315302 ",.01)
 ;;54569315302
 ;;9002226.02101,"1033,54569315302 ",.02)
 ;;54569315302
 ;;9002226.02101,"1033,54569315303 ",.01)
 ;;54569315303
 ;;9002226.02101,"1033,54569315303 ",.02)
 ;;54569315303
 ;;9002226.02101,"1033,54569331500 ",.01)
 ;;54569331500
 ;;9002226.02101,"1033,54569331500 ",.02)
 ;;54569331500
 ;;9002226.02101,"1033,54569332401 ",.01)
 ;;54569332401
 ;;9002226.02101,"1033,54569332401 ",.02)
 ;;54569332401
 ;;9002226.02101,"1033,54569332402 ",.01)
 ;;54569332402
 ;;9002226.02101,"1033,54569332402 ",.02)
 ;;54569332402
 ;;9002226.02101,"1033,54569332403 ",.01)
 ;;54569332403
 ;;9002226.02101,"1033,54569332403 ",.02)
 ;;54569332403
 ;;9002226.02101,"1033,54569332404 ",.01)
 ;;54569332404
 ;;9002226.02101,"1033,54569332404 ",.02)
 ;;54569332404
 ;;9002226.02101,"1033,54569332405 ",.01)
 ;;54569332405
 ;;9002226.02101,"1033,54569332405 ",.02)
 ;;54569332405
 ;;9002226.02101,"1033,54569332406 ",.01)
 ;;54569332406
 ;;9002226.02101,"1033,54569332406 ",.02)
 ;;54569332406
 ;;9002226.02101,"1033,54569333500 ",.01)
 ;;54569333500
 ;;9002226.02101,"1033,54569333500 ",.02)
 ;;54569333500
 ;;9002226.02101,"1033,54569333501 ",.01)
 ;;54569333501
 ;;9002226.02101,"1033,54569333501 ",.02)
 ;;54569333501
 ;;9002226.02101,"1033,54569333502 ",.01)
 ;;54569333502
 ;;9002226.02101,"1033,54569333502 ",.02)
 ;;54569333502
 ;;9002226.02101,"1033,54569333503 ",.01)
 ;;54569333503
 ;;9002226.02101,"1033,54569333503 ",.02)
 ;;54569333503
 ;;9002226.02101,"1033,54569333504 ",.01)
 ;;54569333504
 ;;9002226.02101,"1033,54569333504 ",.02)
 ;;54569333504
 ;;9002226.02101,"1033,54569333505 ",.01)
 ;;54569333505
 ;;9002226.02101,"1033,54569333505 ",.02)
 ;;54569333505
 ;;9002226.02101,"1033,54569333506 ",.01)
 ;;54569333506
 ;;9002226.02101,"1033,54569333506 ",.02)
 ;;54569333506
 ;;9002226.02101,"1033,54569333507 ",.01)
 ;;54569333507
 ;;9002226.02101,"1033,54569333507 ",.02)
 ;;54569333507
 ;;9002226.02101,"1033,54569333509 ",.01)
 ;;54569333509
 ;;9002226.02101,"1033,54569333509 ",.02)
 ;;54569333509
 ;;9002226.02101,"1033,54569345600 ",.01)
 ;;54569345600
 ;;9002226.02101,"1033,54569345600 ",.02)
 ;;54569345600
 ;;9002226.02101,"1033,54569345601 ",.01)
 ;;54569345601
 ;;9002226.02101,"1033,54569345601 ",.02)
 ;;54569345601
 ;;9002226.02101,"1033,54569345602 ",.01)
 ;;54569345602
 ;;9002226.02101,"1033,54569345602 ",.02)
 ;;54569345602
 ;;9002226.02101,"1033,54569345603 ",.01)
 ;;54569345603
 ;;9002226.02101,"1033,54569345603 ",.02)
 ;;54569345603
 ;;9002226.02101,"1033,54569345604 ",.01)
 ;;54569345604
 ;;9002226.02101,"1033,54569345604 ",.02)
 ;;54569345604
 ;;9002226.02101,"1033,54569345606 ",.01)
 ;;54569345606
 ;;9002226.02101,"1033,54569345606 ",.02)
 ;;54569345606
 ;;9002226.02101,"1033,54569350301 ",.01)
 ;;54569350301
 ;;9002226.02101,"1033,54569350301 ",.02)
 ;;54569350301
 ;;9002226.02101,"1033,54569353102 ",.01)
 ;;54569353102
 ;;9002226.02101,"1033,54569353102 ",.02)
 ;;54569353102
 ;;9002226.02101,"1033,54569368900 ",.01)
 ;;54569368900
 ;;9002226.02101,"1033,54569368900 ",.02)
 ;;54569368900
 ;;9002226.02101,"1033,54569368901 ",.01)
 ;;54569368901
 ;;9002226.02101,"1033,54569368901 ",.02)
 ;;54569368901
 ;;9002226.02101,"1033,54569368902 ",.01)
 ;;54569368902
 ;;9002226.02101,"1033,54569368902 ",.02)
 ;;54569368902
 ;;9002226.02101,"1033,54569368903 ",.01)
 ;;54569368903
 ;;9002226.02101,"1033,54569368903 ",.02)
 ;;54569368903
 ;;9002226.02101,"1033,54569368904 ",.01)
 ;;54569368904
 ;;9002226.02101,"1033,54569368904 ",.02)
 ;;54569368904
 ;;9002226.02101,"1033,54569368905 ",.01)
 ;;54569368905
 ;;9002226.02101,"1033,54569368905 ",.02)
 ;;54569368905
 ;;9002226.02101,"1033,54569368906 ",.01)
 ;;54569368906
 ;;9002226.02101,"1033,54569368906 ",.02)
 ;;54569368906
 ;;9002226.02101,"1033,54569368907 ",.01)
 ;;54569368907
 ;;9002226.02101,"1033,54569368907 ",.02)
 ;;54569368907
 ;;9002226.02101,"1033,54569387600 ",.01)
 ;;54569387600
 ;;9002226.02101,"1033,54569387600 ",.02)
 ;;54569387600
 ;;9002226.02101,"1033,54569390100 ",.01)
 ;;54569390100
 ;;9002226.02101,"1033,54569390100 ",.02)
 ;;54569390100
 ;;9002226.02101,"1033,54569390101 ",.01)
 ;;54569390101
 ;;9002226.02101,"1033,54569390101 ",.02)
 ;;54569390101
 ;;9002226.02101,"1033,54569390200 ",.01)
 ;;54569390200
 ;;9002226.02101,"1033,54569390200 ",.02)
 ;;54569390200
 ;;9002226.02101,"1033,54569390201 ",.01)
 ;;54569390201
 ;;9002226.02101,"1033,54569390201 ",.02)
 ;;54569390201
 ;;9002226.02101,"1033,54569390400 ",.01)
 ;;54569390400
 ;;9002226.02101,"1033,54569390400 ",.02)
 ;;54569390400
 ;;9002226.02101,"1033,54569398601 ",.01)
 ;;54569398601
 ;;9002226.02101,"1033,54569398601 ",.02)
 ;;54569398601
 ;;9002226.02101,"1033,54569400300 ",.01)
 ;;54569400300
 ;;9002226.02101,"1033,54569400300 ",.02)
 ;;54569400300
 ;;9002226.02101,"1033,54569400301 ",.01)
 ;;54569400301
 ;;9002226.02101,"1033,54569400301 ",.02)
 ;;54569400301
 ;;9002226.02101,"1033,54569400302 ",.01)
 ;;54569400302
 ;;9002226.02101,"1033,54569400302 ",.02)
 ;;54569400302
 ;;9002226.02101,"1033,54569424100 ",.01)
 ;;54569424100
 ;;9002226.02101,"1033,54569424100 ",.02)
 ;;54569424100
 ;;9002226.02101,"1033,54569429400 ",.01)
 ;;54569429400
 ;;9002226.02101,"1033,54569429400 ",.02)
 ;;54569429400
 ;;9002226.02101,"1033,54569431100 ",.01)
 ;;54569431100
 ;;9002226.02101,"1033,54569431100 ",.02)
 ;;54569431100
 ;;9002226.02101,"1033,54569434900 ",.01)
 ;;54569434900
 ;;9002226.02101,"1033,54569434900 ",.02)
 ;;54569434900
 ;;9002226.02101,"1033,54569439100 ",.01)
 ;;54569439100
 ;;9002226.02101,"1033,54569439100 ",.02)
 ;;54569439100
 ;;9002226.02101,"1033,54569439101 ",.01)
 ;;54569439101
 ;;9002226.02101,"1033,54569439101 ",.02)
 ;;54569439101
 ;;9002226.02101,"1033,54569439102 ",.01)
 ;;54569439102
 ;;9002226.02101,"1033,54569439102 ",.02)
 ;;54569439102
 ;;9002226.02101,"1033,54569439103 ",.01)
 ;;54569439103
 ;;9002226.02101,"1033,54569439103 ",.02)
 ;;54569439103
 ;;9002226.02101,"1033,54569439104 ",.01)
 ;;54569439104
 ;;9002226.02101,"1033,54569439104 ",.02)
 ;;54569439104
 ;;9002226.02101,"1033,54569448700 ",.01)
 ;;54569448700
 ;;9002226.02101,"1033,54569448700 ",.02)
 ;;54569448700
 ;;9002226.02101,"1033,54569471200 ",.01)
 ;;54569471200
 ;;9002226.02101,"1033,54569471200 ",.02)
 ;;54569471200
 ;;9002226.02101,"1033,54569471201 ",.01)
 ;;54569471201
 ;;9002226.02101,"1033,54569471201 ",.02)
 ;;54569471201
 ;;9002226.02101,"1033,54569471300 ",.01)
 ;;54569471300
 ;;9002226.02101,"1033,54569471300 ",.02)
 ;;54569471300
 ;;9002226.02101,"1033,54569471302 ",.01)
 ;;54569471302
 ;;9002226.02101,"1033,54569471302 ",.02)
 ;;54569471302
 ;;9002226.02101,"1033,54569497200 ",.01)
 ;;54569497200
 ;;9002226.02101,"1033,54569497200 ",.02)
 ;;54569497200
 ;;9002226.02101,"1033,54569518200 ",.01)
 ;;54569518200
 ;;9002226.02101,"1033,54569518200 ",.02)
 ;;54569518200
 ;;9002226.02101,"1033,54569519300 ",.01)
 ;;54569519300
 ;;9002226.02101,"1033,54569519300 ",.02)
 ;;54569519300
 ;;9002226.02101,"1033,54569535900 ",.01)
 ;;54569535900
 ;;9002226.02101,"1033,54569535900 ",.02)
 ;;54569535900
 ;;9002226.02101,"1033,54569538600 ",.01)
 ;;54569538600
 ;;9002226.02101,"1033,54569538600 ",.02)
 ;;54569538600
 ;;9002226.02101,"1033,54569538601 ",.01)
 ;;54569538601
 ;;9002226.02101,"1033,54569538601 ",.02)
 ;;54569538601
 ;;9002226.02101,"1033,54569538602 ",.01)
 ;;54569538602
 ;;9002226.02101,"1033,54569538602 ",.02)
 ;;54569538602
 ;;9002226.02101,"1033,54569538603 ",.01)
 ;;54569538603
 ;;9002226.02101,"1033,54569538603 ",.02)
 ;;54569538603
 ;;9002226.02101,"1033,54569541800 ",.01)
 ;;54569541800
 ;;9002226.02101,"1033,54569541800 ",.02)
 ;;54569541800
 ;;9002226.02101,"1033,54569547000 ",.01)
 ;;54569547000
 ;;9002226.02101,"1033,54569547000 ",.02)
 ;;54569547000
 ;;9002226.02101,"1033,54569547001 ",.01)
 ;;54569547001
 ;;9002226.02101,"1033,54569547001 ",.02)
 ;;54569547001
 ;;9002226.02101,"1033,54569547002 ",.01)
 ;;54569547002
 ;;9002226.02101,"1033,54569547002 ",.02)
 ;;54569547002
 ;;9002226.02101,"1033,54569547003 ",.01)
 ;;54569547003
 ;;9002226.02101,"1033,54569547003 ",.02)
 ;;54569547003
 ;;9002226.02101,"1033,54569547100 ",.01)
 ;;54569547100
 ;;9002226.02101,"1033,54569547100 ",.02)
 ;;54569547100
 ;;9002226.02101,"1033,54569547101 ",.01)
 ;;54569547101
 ;;9002226.02101,"1033,54569547101 ",.02)
 ;;54569547101
 ;;9002226.02101,"1033,54569547102 ",.01)
 ;;54569547102
 ;;9002226.02101,"1033,54569547102 ",.02)
 ;;54569547102
 ;;9002226.02101,"1033,54569547103 ",.01)
 ;;54569547103
 ;;9002226.02101,"1033,54569547103 ",.02)
 ;;54569547103
 ;;9002226.02101,"1033,54569547104 ",.01)
 ;;54569547104
 ;;9002226.02101,"1033,54569547104 ",.02)
 ;;54569547104
 ;;9002226.02101,"1033,54569548700 ",.01)
 ;;54569548700
 ;;9002226.02101,"1033,54569548700 ",.02)
 ;;54569548700
 ;;9002226.02101,"1033,54569548800 ",.01)
 ;;54569548800
 ;;9002226.02101,"1033,54569548800 ",.02)
 ;;54569548800
 ;;9002226.02101,"1033,54569555300 ",.01)
 ;;54569555300
 ;;9002226.02101,"1033,54569555300 ",.02)
 ;;54569555300
 ;;9002226.02101,"1033,54569557400 ",.01)
 ;;54569557400
 ;;9002226.02101,"1033,54569557400 ",.02)
 ;;54569557400
 ;;9002226.02101,"1033,54569557401 ",.01)
 ;;54569557401
 ;;9002226.02101,"1033,54569557401 ",.02)
 ;;54569557401
 ;;9002226.02101,"1033,54569557402 ",.01)
 ;;54569557402
 ;;9002226.02101,"1033,54569557402 ",.02)
 ;;54569557402
 ;;9002226.02101,"1033,54569557403 ",.01)
 ;;54569557403
 ;;9002226.02101,"1033,54569557403 ",.02)
 ;;54569557403
 ;;9002226.02101,"1033,54569557404 ",.01)
 ;;54569557404
 ;;9002226.02101,"1033,54569557404 ",.02)
 ;;54569557404
 ;;9002226.02101,"1033,54569557405 ",.01)
 ;;54569557405
 ;;9002226.02101,"1033,54569557405 ",.02)
 ;;54569557405
 ;;9002226.02101,"1033,54569557406 ",.01)
 ;;54569557406
 ;;9002226.02101,"1033,54569557406 ",.02)
 ;;54569557406
 ;;9002226.02101,"1033,54569558300 ",.01)
 ;;54569558300
 ;;9002226.02101,"1033,54569558300 ",.02)
 ;;54569558300
 ;;9002226.02101,"1033,54569558301 ",.01)
 ;;54569558301
 ;;9002226.02101,"1033,54569558301 ",.02)
 ;;54569558301
 ;;9002226.02101,"1033,54569558400 ",.01)
 ;;54569558400
 ;;9002226.02101,"1033,54569558400 ",.02)
 ;;54569558400
 ;;9002226.02101,"1033,54569558401 ",.01)
 ;;54569558401
 ;;9002226.02101,"1033,54569558401 ",.02)
 ;;54569558401
 ;;9002226.02101,"1033,54569558402 ",.01)
 ;;54569558402
 ;;9002226.02101,"1033,54569558402 ",.02)
 ;;54569558402
 ;;9002226.02101,"1033,54569563800 ",.01)
 ;;54569563800
 ;;9002226.02101,"1033,54569563800 ",.02)
 ;;54569563800
 ;;9002226.02101,"1033,54569563801 ",.01)
 ;;54569563801
 ;;9002226.02101,"1033,54569563801 ",.02)
 ;;54569563801