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

BGPM5ARF.m

Go to the documentation of this file.
  1. BGPM5ARF ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,54868141501 ",.01)
  1. ;;54868141501
  1. ;;9002226.02101,"1005,54868141501 ",.02)
  1. ;;54868141501
  1. ;;9002226.02101,"1005,54868141502 ",.01)
  1. ;;54868141502
  1. ;;9002226.02101,"1005,54868141502 ",.02)
  1. ;;54868141502
  1. ;;9002226.02101,"1005,54868150100 ",.01)
  1. ;;54868150100
  1. ;;9002226.02101,"1005,54868150100 ",.02)
  1. ;;54868150100
  1. ;;9002226.02101,"1005,54868150101 ",.01)
  1. ;;54868150101
  1. ;;9002226.02101,"1005,54868150101 ",.02)
  1. ;;54868150101
  1. ;;9002226.02101,"1005,54868150200 ",.01)
  1. ;;54868150200
  1. ;;9002226.02101,"1005,54868150200 ",.02)
  1. ;;54868150200
  1. ;;9002226.02101,"1005,54868177501 ",.01)
  1. ;;54868177501
  1. ;;9002226.02101,"1005,54868177501 ",.02)
  1. ;;54868177501
  1. ;;9002226.02101,"1005,54868177503 ",.01)
  1. ;;54868177503
  1. ;;9002226.02101,"1005,54868177503 ",.02)
  1. ;;54868177503
  1. ;;9002226.02101,"1005,54868177504 ",.01)
  1. ;;54868177504
  1. ;;9002226.02101,"1005,54868177504 ",.02)
  1. ;;54868177504
  1. ;;9002226.02101,"1005,54868196000 ",.01)
  1. ;;54868196000
  1. ;;9002226.02101,"1005,54868196000 ",.02)
  1. ;;54868196000
  1. ;;9002226.02101,"1005,54868196001 ",.01)
  1. ;;54868196001
  1. ;;9002226.02101,"1005,54868196001 ",.02)
  1. ;;54868196001
  1. ;;9002226.02101,"1005,54868196100 ",.01)
  1. ;;54868196100
  1. ;;9002226.02101,"1005,54868196100 ",.02)
  1. ;;54868196100
  1. ;;9002226.02101,"1005,54868196101 ",.01)
  1. ;;54868196101
  1. ;;9002226.02101,"1005,54868196101 ",.02)
  1. ;;54868196101
  1. ;;9002226.02101,"1005,54868196102 ",.01)
  1. ;;54868196102
  1. ;;9002226.02101,"1005,54868196102 ",.02)
  1. ;;54868196102
  1. ;;9002226.02101,"1005,54868196103 ",.01)
  1. ;;54868196103
  1. ;;9002226.02101,"1005,54868196103 ",.02)
  1. ;;54868196103
  1. ;;9002226.02101,"1005,54868197000 ",.01)
  1. ;;54868197000
  1. ;;9002226.02101,"1005,54868197000 ",.02)
  1. ;;54868197000
  1. ;;9002226.02101,"1005,54868197001 ",.01)
  1. ;;54868197001
  1. ;;9002226.02101,"1005,54868197001 ",.02)
  1. ;;54868197001
  1. ;;9002226.02101,"1005,54868197002 ",.01)
  1. ;;54868197002
  1. ;;9002226.02101,"1005,54868197002 ",.02)
  1. ;;54868197002
  1. ;;9002226.02101,"1005,54868197003 ",.01)
  1. ;;54868197003
  1. ;;9002226.02101,"1005,54868197003 ",.02)
  1. ;;54868197003
  1. ;;9002226.02101,"1005,54868228000 ",.01)
  1. ;;54868228000
  1. ;;9002226.02101,"1005,54868228000 ",.02)
  1. ;;54868228000
  1. ;;9002226.02101,"1005,54868228002 ",.01)
  1. ;;54868228002
  1. ;;9002226.02101,"1005,54868228002 ",.02)
  1. ;;54868228002
  1. ;;9002226.02101,"1005,54868236800 ",.01)
  1. ;;54868236800
  1. ;;9002226.02101,"1005,54868236800 ",.02)
  1. ;;54868236800
  1. ;;9002226.02101,"1005,54868236801 ",.01)
  1. ;;54868236801
  1. ;;9002226.02101,"1005,54868236801 ",.02)
  1. ;;54868236801
  1. ;;9002226.02101,"1005,54868236802 ",.01)
  1. ;;54868236802
  1. ;;9002226.02101,"1005,54868236802 ",.02)
  1. ;;54868236802
  1. ;;9002226.02101,"1005,54868264400 ",.01)
  1. ;;54868264400
  1. ;;9002226.02101,"1005,54868264400 ",.02)
  1. ;;54868264400
  1. ;;9002226.02101,"1005,54868264401 ",.01)
  1. ;;54868264401
  1. ;;9002226.02101,"1005,54868264401 ",.02)
  1. ;;54868264401
  1. ;;9002226.02101,"1005,54868264402 ",.01)
  1. ;;54868264402
  1. ;;9002226.02101,"1005,54868264402 ",.02)
  1. ;;54868264402
  1. ;;9002226.02101,"1005,54868264500 ",.01)
  1. ;;54868264500
  1. ;;9002226.02101,"1005,54868264500 ",.02)
  1. ;;54868264500
  1. ;;9002226.02101,"1005,54868264501 ",.01)
  1. ;;54868264501
  1. ;;9002226.02101,"1005,54868264501 ",.02)
  1. ;;54868264501
  1. ;;9002226.02101,"1005,54868264502 ",.01)
  1. ;;54868264502
  1. ;;9002226.02101,"1005,54868264502 ",.02)
  1. ;;54868264502
  1. ;;9002226.02101,"1005,54868264503 ",.01)
  1. ;;54868264503
  1. ;;9002226.02101,"1005,54868264503 ",.02)
  1. ;;54868264503
  1. ;;9002226.02101,"1005,54868266500 ",.01)
  1. ;;54868266500
  1. ;;9002226.02101,"1005,54868266500 ",.02)
  1. ;;54868266500
  1. ;;9002226.02101,"1005,54868266501 ",.01)
  1. ;;54868266501
  1. ;;9002226.02101,"1005,54868266501 ",.02)
  1. ;;54868266501
  1. ;;9002226.02101,"1005,54868266601 ",.01)
  1. ;;54868266601
  1. ;;9002226.02101,"1005,54868266601 ",.02)
  1. ;;54868266601
  1. ;;9002226.02101,"1005,54868266602 ",.01)
  1. ;;54868266602
  1. ;;9002226.02101,"1005,54868266602 ",.02)
  1. ;;54868266602
  1. ;;9002226.02101,"1005,54868266603 ",.01)
  1. ;;54868266603
  1. ;;9002226.02101,"1005,54868266603 ",.02)
  1. ;;54868266603
  1. ;;9002226.02101,"1005,54868266604 ",.01)
  1. ;;54868266604
  1. ;;9002226.02101,"1005,54868266604 ",.02)
  1. ;;54868266604
  1. ;;9002226.02101,"1005,54868327900 ",.01)
  1. ;;54868327900
  1. ;;9002226.02101,"1005,54868327900 ",.02)
  1. ;;54868327900
  1. ;;9002226.02101,"1005,54868327901 ",.01)
  1. ;;54868327901
  1. ;;9002226.02101,"1005,54868327901 ",.02)
  1. ;;54868327901
  1. ;;9002226.02101,"1005,54868327902 ",.01)
  1. ;;54868327902
  1. ;;9002226.02101,"1005,54868327902 ",.02)
  1. ;;54868327902
  1. ;;9002226.02101,"1005,54868327903 ",.01)
  1. ;;54868327903
  1. ;;9002226.02101,"1005,54868327903 ",.02)
  1. ;;54868327903
  1. ;;9002226.02101,"1005,54868330700 ",.01)
  1. ;;54868330700
  1. ;;9002226.02101,"1005,54868330700 ",.02)
  1. ;;54868330700
  1. ;;9002226.02101,"1005,54868330701 ",.01)
  1. ;;54868330701
  1. ;;9002226.02101,"1005,54868330701 ",.02)
  1. ;;54868330701
  1. ;;9002226.02101,"1005,54868344500 ",.01)
  1. ;;54868344500
  1. ;;9002226.02101,"1005,54868344500 ",.02)
  1. ;;54868344500
  1. ;;9002226.02101,"1005,54868344501 ",.01)
  1. ;;54868344501
  1. ;;9002226.02101,"1005,54868344501 ",.02)
  1. ;;54868344501
  1. ;;9002226.02101,"1005,54868372301 ",.01)
  1. ;;54868372301
  1. ;;9002226.02101,"1005,54868372301 ",.02)
  1. ;;54868372301
  1. ;;9002226.02101,"1005,54868372302 ",.01)
  1. ;;54868372302
  1. ;;9002226.02101,"1005,54868372302 ",.02)
  1. ;;54868372302
  1. ;;9002226.02101,"1005,54868372303 ",.01)
  1. ;;54868372303
  1. ;;9002226.02101,"1005,54868372303 ",.02)
  1. ;;54868372303
  1. ;;9002226.02101,"1005,54868372304 ",.01)
  1. ;;54868372304
  1. ;;9002226.02101,"1005,54868372304 ",.02)
  1. ;;54868372304
  1. ;;9002226.02101,"1005,54868372305 ",.01)
  1. ;;54868372305
  1. ;;9002226.02101,"1005,54868372305 ",.02)
  1. ;;54868372305
  1. ;;9002226.02101,"1005,54868372401 ",.01)
  1. ;;54868372401
  1. ;;9002226.02101,"1005,54868372401 ",.02)
  1. ;;54868372401
  1. ;;9002226.02101,"1005,54868372402 ",.01)
  1. ;;54868372402
  1. ;;9002226.02101,"1005,54868372402 ",.02)
  1. ;;54868372402
  1. ;;9002226.02101,"1005,54868372403 ",.01)
  1. ;;54868372403
  1. ;;9002226.02101,"1005,54868372403 ",.02)
  1. ;;54868372403
  1. ;;9002226.02101,"1005,54868372404 ",.01)
  1. ;;54868372404
  1. ;;9002226.02101,"1005,54868372404 ",.02)
  1. ;;54868372404
  1. ;;9002226.02101,"1005,54868372501 ",.01)
  1. ;;54868372501
  1. ;;9002226.02101,"1005,54868372501 ",.02)
  1. ;;54868372501
  1. ;;9002226.02101,"1005,54868372502 ",.01)
  1. ;;54868372502
  1. ;;9002226.02101,"1005,54868372502 ",.02)
  1. ;;54868372502
  1. ;;9002226.02101,"1005,54868372503 ",.01)
  1. ;;54868372503
  1. ;;9002226.02101,"1005,54868372503 ",.02)
  1. ;;54868372503
  1. ;;9002226.02101,"1005,54868372504 ",.01)
  1. ;;54868372504
  1. ;;9002226.02101,"1005,54868372504 ",.02)
  1. ;;54868372504
  1. ;;9002226.02101,"1005,54868376900 ",.01)
  1. ;;54868376900
  1. ;;9002226.02101,"1005,54868376900 ",.02)
  1. ;;54868376900
  1. ;;9002226.02101,"1005,54868384600 ",.01)
  1. ;;54868384600
  1. ;;9002226.02101,"1005,54868384600 ",.02)
  1. ;;54868384600
  1. ;;9002226.02101,"1005,54868384601 ",.01)
  1. ;;54868384601
  1. ;;9002226.02101,"1005,54868384601 ",.02)
  1. ;;54868384601
  1. ;;9002226.02101,"1005,54868384602 ",.01)
  1. ;;54868384602
  1. ;;9002226.02101,"1005,54868384602 ",.02)
  1. ;;54868384602
  1. ;;9002226.02101,"1005,54868384603 ",.01)
  1. ;;54868384603
  1. ;;9002226.02101,"1005,54868384603 ",.02)
  1. ;;54868384603
  1. ;;9002226.02101,"1005,54868389100 ",.01)
  1. ;;54868389100
  1. ;;9002226.02101,"1005,54868389100 ",.02)
  1. ;;54868389100
  1. ;;9002226.02101,"1005,54868400300 ",.01)
  1. ;;54868400300
  1. ;;9002226.02101,"1005,54868400300 ",.02)
  1. ;;54868400300
  1. ;;9002226.02101,"1005,54868406200 ",.01)
  1. ;;54868406200
  1. ;;9002226.02101,"1005,54868406200 ",.02)
  1. ;;54868406200
  1. ;;9002226.02101,"1005,54868406201 ",.01)
  1. ;;54868406201
  1. ;;9002226.02101,"1005,54868406201 ",.02)
  1. ;;54868406201
  1. ;;9002226.02101,"1005,54868408800 ",.01)
  1. ;;54868408800
  1. ;;9002226.02101,"1005,54868408800 ",.02)
  1. ;;54868408800
  1. ;;9002226.02101,"1005,54868408801 ",.01)
  1. ;;54868408801
  1. ;;9002226.02101,"1005,54868408801 ",.02)
  1. ;;54868408801
  1. ;;9002226.02101,"1005,54868408802 ",.01)
  1. ;;54868408802
  1. ;;9002226.02101,"1005,54868408802 ",.02)
  1. ;;54868408802
  1. ;;9002226.02101,"1005,54868419900 ",.01)
  1. ;;54868419900
  1. ;;9002226.02101,"1005,54868419900 ",.02)
  1. ;;54868419900
  1. ;;9002226.02101,"1005,54868419901 ",.01)
  1. ;;54868419901
  1. ;;9002226.02101,"1005,54868419901 ",.02)
  1. ;;54868419901
  1. ;;9002226.02101,"1005,54868419902 ",.01)
  1. ;;54868419902
  1. ;;9002226.02101,"1005,54868419902 ",.02)
  1. ;;54868419902
  1. ;;9002226.02101,"1005,54868420900 ",.01)
  1. ;;54868420900
  1. ;;9002226.02101,"1005,54868420900 ",.02)
  1. ;;54868420900
  1. ;;9002226.02101,"1005,54868433100 ",.01)
  1. ;;54868433100
  1. ;;9002226.02101,"1005,54868433100 ",.02)
  1. ;;54868433100
  1. ;;9002226.02101,"1005,54868433101 ",.01)
  1. ;;54868433101
  1. ;;9002226.02101,"1005,54868433101 ",.02)
  1. ;;54868433101
  1. ;;9002226.02101,"1005,54868433102 ",.01)
  1. ;;54868433102
  1. ;;9002226.02101,"1005,54868433102 ",.02)
  1. ;;54868433102
  1. ;;9002226.02101,"1005,54868433200 ",.01)
  1. ;;54868433200
  1. ;;9002226.02101,"1005,54868433200 ",.02)
  1. ;;54868433200
  1. ;;9002226.02101,"1005,54868433201 ",.01)
  1. ;;54868433201
  1. ;;9002226.02101,"1005,54868433201 ",.02)
  1. ;;54868433201
  1. ;;9002226.02101,"1005,54868433202 ",.01)
  1. ;;54868433202
  1. ;;9002226.02101,"1005,54868433202 ",.02)
  1. ;;54868433202
  1. ;;9002226.02101,"1005,54868435700 ",.01)
  1. ;;54868435700
  1. ;;9002226.02101,"1005,54868435700 ",.02)
  1. ;;54868435700
  1. ;;9002226.02101,"1005,54868435701 ",.01)
  1. ;;54868435701
  1. ;;9002226.02101,"1005,54868435701 ",.02)
  1. ;;54868435701
  1. ;;9002226.02101,"1005,54868435702 ",.01)
  1. ;;54868435702
  1. ;;9002226.02101,"1005,54868435702 ",.02)
  1. ;;54868435702
  1. ;;9002226.02101,"1005,54868435703 ",.01)
  1. ;;54868435703
  1. ;;9002226.02101,"1005,54868435703 ",.02)
  1. ;;54868435703
  1. ;;9002226.02101,"1005,54868435800 ",.01)
  1. ;;54868435800
  1. ;;9002226.02101,"1005,54868435800 ",.02)
  1. ;;54868435800
  1. ;;9002226.02101,"1005,54868435801 ",.01)
  1. ;;54868435801
  1. ;;9002226.02101,"1005,54868435801 ",.02)
  1. ;;54868435801
  1. ;;9002226.02101,"1005,54868435802 ",.01)
  1. ;;54868435802
  1. ;;9002226.02101,"1005,54868435802 ",.02)
  1. ;;54868435802
  1. ;;9002226.02101,"1005,54868435803 ",.01)
  1. ;;54868435803
  1. ;;9002226.02101,"1005,54868435803 ",.02)
  1. ;;54868435803
  1. ;;9002226.02101,"1005,54868441300 ",.01)
  1. ;;54868441300
  1. ;;9002226.02101,"1005,54868441300 ",.02)
  1. ;;54868441300
  1. ;;9002226.02101,"1005,54868441400 ",.01)
  1. ;;54868441400
  1. ;;9002226.02101,"1005,54868441400 ",.02)
  1. ;;54868441400
  1. ;;9002226.02101,"1005,54868441401 ",.01)
  1. ;;54868441401
  1. ;;9002226.02101,"1005,54868441401 ",.02)
  1. ;;54868441401
  1. ;;9002226.02101,"1005,54868441402 ",.01)
  1. ;;54868441402
  1. ;;9002226.02101,"1005,54868441402 ",.02)
  1. ;;54868441402
  1. ;;9002226.02101,"1005,54868442500 ",.01)
  1. ;;54868442500
  1. ;;9002226.02101,"1005,54868442500 ",.02)
  1. ;;54868442500
  1. ;;9002226.02101,"1005,54868442501 ",.01)
  1. ;;54868442501
  1. ;;9002226.02101,"1005,54868442501 ",.02)
  1. ;;54868442501
  1. ;;9002226.02101,"1005,54868442502 ",.01)
  1. ;;54868442502
  1. ;;9002226.02101,"1005,54868442502 ",.02)
  1. ;;54868442502
  1. ;;9002226.02101,"1005,54868442503 ",.01)
  1. ;;54868442503
  1. ;;9002226.02101,"1005,54868442503 ",.02)
  1. ;;54868442503
  1. ;;9002226.02101,"1005,54868442800 ",.01)
  1. ;;54868442800
  1. ;;9002226.02101,"1005,54868442800 ",.02)
  1. ;;54868442800
  1. ;;9002226.02101,"1005,54868442801 ",.01)
  1. ;;54868442801
  1. ;;9002226.02101,"1005,54868442801 ",.02)
  1. ;;54868442801
  1. ;;9002226.02101,"1005,54868442802 ",.01)
  1. ;;54868442802
  1. ;;9002226.02101,"1005,54868442802 ",.02)
  1. ;;54868442802
  1. ;;9002226.02101,"1005,54868442803 ",.01)
  1. ;;54868442803
  1. ;;9002226.02101,"1005,54868442803 ",.02)
  1. ;;54868442803
  1. ;;9002226.02101,"1005,54868447900 ",.01)
  1. ;;54868447900
  1. ;;9002226.02101,"1005,54868447900 ",.02)
  1. ;;54868447900
  1. ;;9002226.02101,"1005,54868447901 ",.01)
  1. ;;54868447901