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