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

BGPM5AXD.m

Go to the documentation of this file.
BGPM5AXD ;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,68788059801 ",.01)
 ;;68788059801
 ;;9002226.02101,"1033,68788059801 ",.02)
 ;;68788059801
 ;;9002226.02101,"1033,68788061501 ",.01)
 ;;68788061501
 ;;9002226.02101,"1033,68788061501 ",.02)
 ;;68788061501
 ;;9002226.02101,"1033,68788061603 ",.01)
 ;;68788061603
 ;;9002226.02101,"1033,68788061603 ",.02)
 ;;68788061603
 ;;9002226.02101,"1033,68788064502 ",.01)
 ;;68788064502
 ;;9002226.02101,"1033,68788064502 ",.02)
 ;;68788064502
 ;;9002226.02101,"1033,68788065001 ",.01)
 ;;68788065001
 ;;9002226.02101,"1033,68788065001 ",.02)
 ;;68788065001
 ;;9002226.02101,"1033,68788065602 ",.01)
 ;;68788065602
 ;;9002226.02101,"1033,68788065602 ",.02)
 ;;68788065602
 ;;9002226.02101,"1033,68788065603 ",.01)
 ;;68788065603
 ;;9002226.02101,"1033,68788065603 ",.02)
 ;;68788065603
 ;;9002226.02101,"1033,68788065604 ",.01)
 ;;68788065604
 ;;9002226.02101,"1033,68788065604 ",.02)
 ;;68788065604
 ;;9002226.02101,"1033,68788065702 ",.01)
 ;;68788065702
 ;;9002226.02101,"1033,68788065702 ",.02)
 ;;68788065702
 ;;9002226.02101,"1033,68788065703 ",.01)
 ;;68788065703
 ;;9002226.02101,"1033,68788065703 ",.02)
 ;;68788065703
 ;;9002226.02101,"1033,68788065704 ",.01)
 ;;68788065704
 ;;9002226.02101,"1033,68788065704 ",.02)
 ;;68788065704
 ;;9002226.02101,"1033,68788065802 ",.01)
 ;;68788065802
 ;;9002226.02101,"1033,68788065802 ",.02)
 ;;68788065802
 ;;9002226.02101,"1033,68788065803 ",.01)
 ;;68788065803
 ;;9002226.02101,"1033,68788065803 ",.02)
 ;;68788065803
 ;;9002226.02101,"1033,68788065804 ",.01)
 ;;68788065804
 ;;9002226.02101,"1033,68788065804 ",.02)
 ;;68788065804
 ;;9002226.02101,"1033,68788065902 ",.01)
 ;;68788065902
 ;;9002226.02101,"1033,68788065902 ",.02)
 ;;68788065902
 ;;9002226.02101,"1033,68788065903 ",.01)
 ;;68788065903
 ;;9002226.02101,"1033,68788065903 ",.02)
 ;;68788065903
 ;;9002226.02101,"1033,68788068201 ",.01)
 ;;68788068201
 ;;9002226.02101,"1033,68788068201 ",.02)
 ;;68788068201
 ;;9002226.02101,"1033,68788068202 ",.01)
 ;;68788068202
 ;;9002226.02101,"1033,68788068202 ",.02)
 ;;68788068202
 ;;9002226.02101,"1033,68788068301 ",.01)
 ;;68788068301
 ;;9002226.02101,"1033,68788068301 ",.02)
 ;;68788068301
 ;;9002226.02101,"1033,68788068302 ",.01)
 ;;68788068302
 ;;9002226.02101,"1033,68788068302 ",.02)
 ;;68788068302
 ;;9002226.02101,"1033,68788069203 ",.01)
 ;;68788069203
 ;;9002226.02101,"1033,68788069203 ",.02)
 ;;68788069203
 ;;9002226.02101,"1033,68788069601 ",.01)
 ;;68788069601
 ;;9002226.02101,"1033,68788069601 ",.02)
 ;;68788069601
 ;;9002226.02101,"1033,68788069602 ",.01)
 ;;68788069602
 ;;9002226.02101,"1033,68788069602 ",.02)
 ;;68788069602
 ;;9002226.02101,"1033,68788069603 ",.01)
 ;;68788069603
 ;;9002226.02101,"1033,68788069603 ",.02)
 ;;68788069603
 ;;9002226.02101,"1033,68788070803 ",.01)
 ;;68788070803
 ;;9002226.02101,"1033,68788070803 ",.02)
 ;;68788070803
 ;;9002226.02101,"1033,68788070902 ",.01)
 ;;68788070902
 ;;9002226.02101,"1033,68788070902 ",.02)
 ;;68788070902
 ;;9002226.02101,"1033,68788071001 ",.01)
 ;;68788071001
 ;;9002226.02101,"1033,68788071001 ",.02)
 ;;68788071001
 ;;9002226.02101,"1033,68788071002 ",.01)
 ;;68788071002
 ;;9002226.02101,"1033,68788071002 ",.02)
 ;;68788071002
 ;;9002226.02101,"1033,68788071006 ",.01)
 ;;68788071006
 ;;9002226.02101,"1033,68788071006 ",.02)
 ;;68788071006
 ;;9002226.02101,"1033,68788071301 ",.01)
 ;;68788071301
 ;;9002226.02101,"1033,68788071301 ",.02)
 ;;68788071301
 ;;9002226.02101,"1033,68788076302 ",.01)
 ;;68788076302
 ;;9002226.02101,"1033,68788076302 ",.02)
 ;;68788076302
 ;;9002226.02101,"1033,68788080400 ",.01)
 ;;68788080400
 ;;9002226.02101,"1033,68788080400 ",.02)
 ;;68788080400
 ;;9002226.02101,"1033,68788080703 ",.01)
 ;;68788080703
 ;;9002226.02101,"1033,68788080703 ",.02)
 ;;68788080703
 ;;9002226.02101,"1033,68788082603 ",.01)
 ;;68788082603
 ;;9002226.02101,"1033,68788082603 ",.02)
 ;;68788082603
 ;;9002226.02101,"1033,68788088700 ",.01)
 ;;68788088700
 ;;9002226.02101,"1033,68788088700 ",.02)
 ;;68788088700
 ;;9002226.02101,"1033,68788088702 ",.01)
 ;;68788088702
 ;;9002226.02101,"1033,68788088702 ",.02)
 ;;68788088702
 ;;9002226.02101,"1033,68788095501 ",.01)
 ;;68788095501
 ;;9002226.02101,"1033,68788095501 ",.02)
 ;;68788095501
 ;;9002226.02101,"1033,68788095701 ",.01)
 ;;68788095701
 ;;9002226.02101,"1033,68788095701 ",.02)
 ;;68788095701
 ;;9002226.02101,"1033,68788095900 ",.01)
 ;;68788095900
 ;;9002226.02101,"1033,68788095900 ",.02)
 ;;68788095900
 ;;9002226.02101,"1033,68788097000 ",.01)
 ;;68788097000
 ;;9002226.02101,"1033,68788097000 ",.02)
 ;;68788097000
 ;;9002226.02101,"1033,68788138501 ",.01)
 ;;68788138501
 ;;9002226.02101,"1033,68788138501 ",.02)
 ;;68788138501
 ;;9002226.02101,"1033,68788138502 ",.01)
 ;;68788138502
 ;;9002226.02101,"1033,68788138502 ",.02)
 ;;68788138502
 ;;9002226.02101,"1033,68788138506 ",.01)
 ;;68788138506
 ;;9002226.02101,"1033,68788138506 ",.02)
 ;;68788138506
 ;;9002226.02101,"1033,68788165801 ",.01)
 ;;68788165801
 ;;9002226.02101,"1033,68788165801 ",.02)
 ;;68788165801
 ;;9002226.02101,"1033,68788169201 ",.01)
 ;;68788169201
 ;;9002226.02101,"1033,68788169201 ",.02)
 ;;68788169201
 ;;9002226.02101,"1033,68788211201 ",.01)
 ;;68788211201
 ;;9002226.02101,"1033,68788211201 ",.02)
 ;;68788211201
 ;;9002226.02101,"1033,68788211202 ",.01)
 ;;68788211202
 ;;9002226.02101,"1033,68788211202 ",.02)
 ;;68788211202
 ;;9002226.02101,"1033,68788211203 ",.01)
 ;;68788211203
 ;;9002226.02101,"1033,68788211203 ",.02)
 ;;68788211203
 ;;9002226.02101,"1033,68788211204 ",.01)
 ;;68788211204
 ;;9002226.02101,"1033,68788211204 ",.02)
 ;;68788211204
 ;;9002226.02101,"1033,68788211206 ",.01)
 ;;68788211206
 ;;9002226.02101,"1033,68788211206 ",.02)
 ;;68788211206
 ;;9002226.02101,"1033,68788224802 ",.01)
 ;;68788224802
 ;;9002226.02101,"1033,68788224802 ",.02)
 ;;68788224802
 ;;9002226.02101,"1033,68788224803 ",.01)
 ;;68788224803
 ;;9002226.02101,"1033,68788224803 ",.02)
 ;;68788224803
 ;;9002226.02101,"1033,68788224804 ",.01)
 ;;68788224804
 ;;9002226.02101,"1033,68788224804 ",.02)
 ;;68788224804
 ;;9002226.02101,"1033,68788225802 ",.01)
 ;;68788225802
 ;;9002226.02101,"1033,68788225802 ",.02)
 ;;68788225802
 ;;9002226.02101,"1033,68788225803 ",.01)
 ;;68788225803
 ;;9002226.02101,"1033,68788225803 ",.02)
 ;;68788225803
 ;;9002226.02101,"1033,68788225804 ",.01)
 ;;68788225804
 ;;9002226.02101,"1033,68788225804 ",.02)
 ;;68788225804
 ;;9002226.02101,"1033,68788227502 ",.01)
 ;;68788227502
 ;;9002226.02101,"1033,68788227502 ",.02)
 ;;68788227502
 ;;9002226.02101,"1033,68788314202 ",.01)
 ;;68788314202
 ;;9002226.02101,"1033,68788314202 ",.02)
 ;;68788314202
 ;;9002226.02101,"1033,68788314203 ",.01)
 ;;68788314203
 ;;9002226.02101,"1033,68788314203 ",.02)
 ;;68788314203
 ;;9002226.02101,"1033,68788314204 ",.01)
 ;;68788314204
 ;;9002226.02101,"1033,68788314204 ",.02)
 ;;68788314204
 ;;9002226.02101,"1033,68788407402 ",.01)
 ;;68788407402
 ;;9002226.02101,"1033,68788407402 ",.02)
 ;;68788407402
 ;;9002226.02101,"1033,68788407403 ",.01)
 ;;68788407403
 ;;9002226.02101,"1033,68788407403 ",.02)
 ;;68788407403
 ;;9002226.02101,"1033,68788407404 ",.01)
 ;;68788407404
 ;;9002226.02101,"1033,68788407404 ",.02)
 ;;68788407404
 ;;9002226.02101,"1033,68788604802 ",.01)
 ;;68788604802
 ;;9002226.02101,"1033,68788604802 ",.02)
 ;;68788604802
 ;;9002226.02101,"1033,68788604803 ",.01)
 ;;68788604803
 ;;9002226.02101,"1033,68788604803 ",.02)
 ;;68788604803
 ;;9002226.02101,"1033,68788604804 ",.01)
 ;;68788604804
 ;;9002226.02101,"1033,68788604804 ",.02)
 ;;68788604804
 ;;9002226.02101,"1033,68788622702 ",.01)
 ;;68788622702
 ;;9002226.02101,"1033,68788622702 ",.02)
 ;;68788622702
 ;;9002226.02101,"1033,68788622703 ",.01)
 ;;68788622703
 ;;9002226.02101,"1033,68788622703 ",.02)
 ;;68788622703
 ;;9002226.02101,"1033,68788622704 ",.01)
 ;;68788622704
 ;;9002226.02101,"1033,68788622704 ",.02)
 ;;68788622704
 ;;9002226.02101,"1033,68788740402 ",.01)
 ;;68788740402
 ;;9002226.02101,"1033,68788740402 ",.02)
 ;;68788740402
 ;;9002226.02101,"1033,68788741700 ",.01)
 ;;68788741700
 ;;9002226.02101,"1033,68788741700 ",.02)
 ;;68788741700
 ;;9002226.02101,"1033,68788741701 ",.01)
 ;;68788741701
 ;;9002226.02101,"1033,68788741701 ",.02)
 ;;68788741701
 ;;9002226.02101,"1033,68788742000 ",.01)
 ;;68788742000
 ;;9002226.02101,"1033,68788742000 ",.02)
 ;;68788742000
 ;;9002226.02101,"1033,68788900600 ",.01)
 ;;68788900600
 ;;9002226.02101,"1033,68788900600 ",.02)
 ;;68788900600
 ;;9002226.02101,"1033,68788900601 ",.01)
 ;;68788900601
 ;;9002226.02101,"1033,68788900601 ",.02)
 ;;68788900601
 ;;9002226.02101,"1033,68788900602 ",.01)
 ;;68788900602
 ;;9002226.02101,"1033,68788900602 ",.02)
 ;;68788900602
 ;;9002226.02101,"1033,68788901200 ",.01)
 ;;68788901200
 ;;9002226.02101,"1033,68788901200 ",.02)
 ;;68788901200
 ;;9002226.02101,"1033,68788901201 ",.01)
 ;;68788901201
 ;;9002226.02101,"1033,68788901201 ",.02)
 ;;68788901201
 ;;9002226.02101,"1033,68788901202 ",.01)
 ;;68788901202
 ;;9002226.02101,"1033,68788901202 ",.02)
 ;;68788901202
 ;;9002226.02101,"1033,68788901203 ",.01)
 ;;68788901203
 ;;9002226.02101,"1033,68788901203 ",.02)
 ;;68788901203
 ;;9002226.02101,"1033,68788901701 ",.01)
 ;;68788901701
 ;;9002226.02101,"1033,68788901701 ",.02)
 ;;68788901701
 ;;9002226.02101,"1033,68788901801 ",.01)
 ;;68788901801
 ;;9002226.02101,"1033,68788901801 ",.02)
 ;;68788901801
 ;;9002226.02101,"1033,68788901901 ",.01)
 ;;68788901901
 ;;9002226.02101,"1033,68788901901 ",.02)
 ;;68788901901
 ;;9002226.02101,"1033,68788902401 ",.01)
 ;;68788902401
 ;;9002226.02101,"1033,68788902401 ",.02)
 ;;68788902401
 ;;9002226.02101,"1033,68788902402 ",.01)
 ;;68788902402
 ;;9002226.02101,"1033,68788902402 ",.02)
 ;;68788902402
 ;;9002226.02101,"1033,68788902403 ",.01)
 ;;68788902403
 ;;9002226.02101,"1033,68788902403 ",.02)
 ;;68788902403
 ;;9002226.02101,"1033,68788902404 ",.01)
 ;;68788902404
 ;;9002226.02101,"1033,68788902404 ",.02)
 ;;68788902404
 ;;9002226.02101,"1033,68788903203 ",.01)
 ;;68788903203
 ;;9002226.02101,"1033,68788903203 ",.02)
 ;;68788903203
 ;;9002226.02101,"1033,68788903303 ",.01)
 ;;68788903303
 ;;9002226.02101,"1033,68788903303 ",.02)
 ;;68788903303
 ;;9002226.02101,"1033,68788903501 ",.01)
 ;;68788903501
 ;;9002226.02101,"1033,68788903501 ",.02)
 ;;68788903501
 ;;9002226.02101,"1033,68788903601 ",.01)
 ;;68788903601
 ;;9002226.02101,"1033,68788903601 ",.02)
 ;;68788903601
 ;;9002226.02101,"1033,68788903701 ",.01)
 ;;68788903701
 ;;9002226.02101,"1033,68788903701 ",.02)
 ;;68788903701
 ;;9002226.02101,"1033,68788903702 ",.01)
 ;;68788903702
 ;;9002226.02101,"1033,68788903702 ",.02)
 ;;68788903702
 ;;9002226.02101,"1033,68788903703 ",.01)
 ;;68788903703
 ;;9002226.02101,"1033,68788903703 ",.02)
 ;;68788903703
 ;;9002226.02101,"1033,68788903706 ",.01)
 ;;68788903706
 ;;9002226.02101,"1033,68788903706 ",.02)
 ;;68788903706
 ;;9002226.02101,"1033,68788903801 ",.01)
 ;;68788903801
 ;;9002226.02101,"1033,68788903801 ",.02)
 ;;68788903801
 ;;9002226.02101,"1033,68788904302 ",.01)
 ;;68788904302
 ;;9002226.02101,"1033,68788904302 ",.02)
 ;;68788904302
 ;;9002226.02101,"1033,68788904501 ",.01)
 ;;68788904501
 ;;9002226.02101,"1033,68788904501 ",.02)
 ;;68788904501
 ;;9002226.02101,"1033,68788904601 ",.01)
 ;;68788904601
 ;;9002226.02101,"1033,68788904601 ",.02)
 ;;68788904601
 ;;9002226.02101,"1033,68788904602 ",.01)
 ;;68788904602
 ;;9002226.02101,"1033,68788904602 ",.02)
 ;;68788904602
 ;;9002226.02101,"1033,68788904603 ",.01)
 ;;68788904603