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