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

BGPM5AKG.m

Go to the documentation of this file.
  1. BGPM5AKG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,65243009106 ",.01)
  1. ;;65243009106
  1. ;;9002226.02101,"889,65243009106 ",.02)
  1. ;;65243009106
  1. ;;9002226.02101,"889,65243009109 ",.01)
  1. ;;65243009109
  1. ;;9002226.02101,"889,65243009109 ",.02)
  1. ;;65243009109
  1. ;;9002226.02101,"889,65243009112 ",.01)
  1. ;;65243009112
  1. ;;9002226.02101,"889,65243009112 ",.02)
  1. ;;65243009112
  1. ;;9002226.02101,"889,65243009118 ",.01)
  1. ;;65243009118
  1. ;;9002226.02101,"889,65243009118 ",.02)
  1. ;;65243009118
  1. ;;9002226.02101,"889,65243009127 ",.01)
  1. ;;65243009127
  1. ;;9002226.02101,"889,65243009127 ",.02)
  1. ;;65243009127
  1. ;;9002226.02101,"889,65243009136 ",.01)
  1. ;;65243009136
  1. ;;9002226.02101,"889,65243009136 ",.02)
  1. ;;65243009136
  1. ;;9002226.02101,"889,65243011003 ",.01)
  1. ;;65243011003
  1. ;;9002226.02101,"889,65243011003 ",.02)
  1. ;;65243011003
  1. ;;9002226.02101,"889,65243011006 ",.01)
  1. ;;65243011006
  1. ;;9002226.02101,"889,65243011006 ",.02)
  1. ;;65243011006
  1. ;;9002226.02101,"889,65243011009 ",.01)
  1. ;;65243011009
  1. ;;9002226.02101,"889,65243011009 ",.02)
  1. ;;65243011009
  1. ;;9002226.02101,"889,65243011018 ",.01)
  1. ;;65243011018
  1. ;;9002226.02101,"889,65243011018 ",.02)
  1. ;;65243011018
  1. ;;9002226.02101,"889,65243011045 ",.01)
  1. ;;65243011045
  1. ;;9002226.02101,"889,65243011045 ",.02)
  1. ;;65243011045
  1. ;;9002226.02101,"889,65243023203 ",.01)
  1. ;;65243023203
  1. ;;9002226.02101,"889,65243023203 ",.02)
  1. ;;65243023203
  1. ;;9002226.02101,"889,65243023206 ",.01)
  1. ;;65243023206
  1. ;;9002226.02101,"889,65243023206 ",.02)
  1. ;;65243023206
  1. ;;9002226.02101,"889,65243023209 ",.01)
  1. ;;65243023209
  1. ;;9002226.02101,"889,65243023209 ",.02)
  1. ;;65243023209
  1. ;;9002226.02101,"889,65243023212 ",.01)
  1. ;;65243023212
  1. ;;9002226.02101,"889,65243023212 ",.02)
  1. ;;65243023212
  1. ;;9002226.02101,"889,65243023218 ",.01)
  1. ;;65243023218
  1. ;;9002226.02101,"889,65243023218 ",.02)
  1. ;;65243023218
  1. ;;9002226.02101,"889,65243026503 ",.01)
  1. ;;65243026503
  1. ;;9002226.02101,"889,65243026503 ",.02)
  1. ;;65243026503
  1. ;;9002226.02101,"889,65243026509 ",.01)
  1. ;;65243026509
  1. ;;9002226.02101,"889,65243026509 ",.02)
  1. ;;65243026509
  1. ;;9002226.02101,"889,65243026512 ",.01)
  1. ;;65243026512
  1. ;;9002226.02101,"889,65243026512 ",.02)
  1. ;;65243026512
  1. ;;9002226.02101,"889,65243026518 ",.01)
  1. ;;65243026518
  1. ;;9002226.02101,"889,65243026518 ",.02)
  1. ;;65243026518
  1. ;;9002226.02101,"889,65243026545 ",.01)
  1. ;;65243026545
  1. ;;9002226.02101,"889,65243026545 ",.02)
  1. ;;65243026545
  1. ;;9002226.02101,"889,65243032903 ",.01)
  1. ;;65243032903
  1. ;;9002226.02101,"889,65243032903 ",.02)
  1. ;;65243032903
  1. ;;9002226.02101,"889,65243032906 ",.01)
  1. ;;65243032906
  1. ;;9002226.02101,"889,65243032906 ",.02)
  1. ;;65243032906
  1. ;;9002226.02101,"889,65243032909 ",.01)
  1. ;;65243032909
  1. ;;9002226.02101,"889,65243032909 ",.02)
  1. ;;65243032909
  1. ;;9002226.02101,"889,65243032912 ",.01)
  1. ;;65243032912
  1. ;;9002226.02101,"889,65243032912 ",.02)
  1. ;;65243032912
  1. ;;9002226.02101,"889,65243032918 ",.01)
  1. ;;65243032918
  1. ;;9002226.02101,"889,65243032918 ",.02)
  1. ;;65243032918
  1. ;;9002226.02101,"889,65243034703 ",.01)
  1. ;;65243034703
  1. ;;9002226.02101,"889,65243034703 ",.02)
  1. ;;65243034703
  1. ;;9002226.02101,"889,65243034706 ",.01)
  1. ;;65243034706
  1. ;;9002226.02101,"889,65243034706 ",.02)
  1. ;;65243034706
  1. ;;9002226.02101,"889,65243034709 ",.01)
  1. ;;65243034709
  1. ;;9002226.02101,"889,65243034709 ",.02)
  1. ;;65243034709
  1. ;;9002226.02101,"889,65243034712 ",.01)
  1. ;;65243034712
  1. ;;9002226.02101,"889,65243034712 ",.02)
  1. ;;65243034712
  1. ;;9002226.02101,"889,65243034718 ",.01)
  1. ;;65243034718
  1. ;;9002226.02101,"889,65243034718 ",.02)
  1. ;;65243034718
  1. ;;9002226.02101,"889,65243037903 ",.01)
  1. ;;65243037903
  1. ;;9002226.02101,"889,65243037903 ",.02)
  1. ;;65243037903
  1. ;;9002226.02101,"889,65243037906 ",.01)
  1. ;;65243037906
  1. ;;9002226.02101,"889,65243037906 ",.02)
  1. ;;65243037906
  1. ;;9002226.02101,"889,65243037909 ",.01)
  1. ;;65243037909
  1. ;;9002226.02101,"889,65243037909 ",.02)
  1. ;;65243037909
  1. ;;9002226.02101,"889,65243037912 ",.01)
  1. ;;65243037912
  1. ;;9002226.02101,"889,65243037912 ",.02)
  1. ;;65243037912
  1. ;;9002226.02101,"889,65243037918 ",.01)
  1. ;;65243037918
  1. ;;9002226.02101,"889,65243037918 ",.02)
  1. ;;65243037918
  1. ;;9002226.02101,"889,65243038203 ",.01)
  1. ;;65243038203
  1. ;;9002226.02101,"889,65243038203 ",.02)
  1. ;;65243038203
  1. ;;9002226.02101,"889,65243038206 ",.01)
  1. ;;65243038206
  1. ;;9002226.02101,"889,65243038206 ",.02)
  1. ;;65243038206
  1. ;;9002226.02101,"889,65243038209 ",.01)
  1. ;;65243038209
  1. ;;9002226.02101,"889,65243038209 ",.02)
  1. ;;65243038209
  1. ;;9002226.02101,"889,65243038212 ",.01)
  1. ;;65243038212
  1. ;;9002226.02101,"889,65243038212 ",.02)
  1. ;;65243038212
  1. ;;9002226.02101,"889,65243038218 ",.01)
  1. ;;65243038218
  1. ;;9002226.02101,"889,65243038218 ",.02)
  1. ;;65243038218
  1. ;;9002226.02101,"889,65483035502 ",.01)
  1. ;;65483035502
  1. ;;9002226.02101,"889,65483035502 ",.02)
  1. ;;65483035502
  1. ;;9002226.02101,"889,65483035504 ",.01)
  1. ;;65483035504
  1. ;;9002226.02101,"889,65483035504 ",.02)
  1. ;;65483035504
  1. ;;9002226.02101,"889,65483039110 ",.01)
  1. ;;65483039110
  1. ;;9002226.02101,"889,65483039110 ",.02)
  1. ;;65483039110
  1. ;;9002226.02101,"889,65483039111 ",.01)
  1. ;;65483039111
  1. ;;9002226.02101,"889,65483039111 ",.02)
  1. ;;65483039111
  1. ;;9002226.02101,"889,65483039150 ",.01)
  1. ;;65483039150
  1. ;;9002226.02101,"889,65483039150 ",.02)
  1. ;;65483039150
  1. ;;9002226.02101,"889,65483039210 ",.01)
  1. ;;65483039210
  1. ;;9002226.02101,"889,65483039210 ",.02)
  1. ;;65483039210
  1. ;;9002226.02101,"889,65483039222 ",.01)
  1. ;;65483039222
  1. ;;9002226.02101,"889,65483039222 ",.02)
  1. ;;65483039222
  1. ;;9002226.02101,"889,65483039250 ",.01)
  1. ;;65483039250
  1. ;;9002226.02101,"889,65483039250 ",.02)
  1. ;;65483039250
  1. ;;9002226.02101,"889,65483039310 ",.01)
  1. ;;65483039310
  1. ;;9002226.02101,"889,65483039310 ",.02)
  1. ;;65483039310
  1. ;;9002226.02101,"889,65483039333 ",.01)
  1. ;;65483039333
  1. ;;9002226.02101,"889,65483039333 ",.02)
  1. ;;65483039333
  1. ;;9002226.02101,"889,65483039350 ",.01)
  1. ;;65483039350
  1. ;;9002226.02101,"889,65483039350 ",.02)
  1. ;;65483039350
  1. ;;9002226.02101,"889,65726025110 ",.01)
  1. ;;65726025110
  1. ;;9002226.02101,"889,65726025110 ",.02)
  1. ;;65726025110
  1. ;;9002226.02101,"889,65841002201 ",.01)
  1. ;;65841002201
  1. ;;9002226.02101,"889,65841002201 ",.02)
  1. ;;65841002201
  1. ;;9002226.02101,"889,65841002210 ",.01)
  1. ;;65841002210
  1. ;;9002226.02101,"889,65841002210 ",.02)
  1. ;;65841002210
  1. ;;9002226.02101,"889,65841002216 ",.01)
  1. ;;65841002216
  1. ;;9002226.02101,"889,65841002216 ",.02)
  1. ;;65841002216
  1. ;;9002226.02101,"889,65841002224 ",.01)
  1. ;;65841002224
  1. ;;9002226.02101,"889,65841002224 ",.02)
  1. ;;65841002224
  1. ;;9002226.02101,"889,65841002240 ",.01)
  1. ;;65841002240
  1. ;;9002226.02101,"889,65841002240 ",.02)
  1. ;;65841002240
  1. ;;9002226.02101,"889,65841002301 ",.01)
  1. ;;65841002301
  1. ;;9002226.02101,"889,65841002301 ",.02)
  1. ;;65841002301
  1. ;;9002226.02101,"889,65841002302 ",.01)
  1. ;;65841002302
  1. ;;9002226.02101,"889,65841002302 ",.02)
  1. ;;65841002302
  1. ;;9002226.02101,"889,65841002310 ",.01)
  1. ;;65841002310
  1. ;;9002226.02101,"889,65841002310 ",.02)
  1. ;;65841002310
  1. ;;9002226.02101,"889,65841002316 ",.01)
  1. ;;65841002316
  1. ;;9002226.02101,"889,65841002316 ",.02)
  1. ;;65841002316
  1. ;;9002226.02101,"889,65841002324 ",.01)
  1. ;;65841002324
  1. ;;9002226.02101,"889,65841002324 ",.02)
  1. ;;65841002324
  1. ;;9002226.02101,"889,65841002340 ",.01)
  1. ;;65841002340
  1. ;;9002226.02101,"889,65841002340 ",.02)
  1. ;;65841002340
  1. ;;9002226.02101,"889,65841002401 ",.01)
  1. ;;65841002401
  1. ;;9002226.02101,"889,65841002401 ",.02)
  1. ;;65841002401
  1. ;;9002226.02101,"889,65841002410 ",.01)
  1. ;;65841002410
  1. ;;9002226.02101,"889,65841002410 ",.02)
  1. ;;65841002410
  1. ;;9002226.02101,"889,65841002416 ",.01)
  1. ;;65841002416
  1. ;;9002226.02101,"889,65841002416 ",.02)
  1. ;;65841002416
  1. ;;9002226.02101,"889,65841002440 ",.01)
  1. ;;65841002440
  1. ;;9002226.02101,"889,65841002440 ",.02)
  1. ;;65841002440
  1. ;;9002226.02101,"889,65862006201 ",.01)
  1. ;;65862006201
  1. ;;9002226.02101,"889,65862006201 ",.02)
  1. ;;65862006201
  1. ;;9002226.02101,"889,65862006299 ",.01)
  1. ;;65862006299
  1. ;;9002226.02101,"889,65862006299 ",.02)
  1. ;;65862006299
  1. ;;9002226.02101,"889,65862006301 ",.01)
  1. ;;65862006301
  1. ;;9002226.02101,"889,65862006301 ",.02)
  1. ;;65862006301
  1. ;;9002226.02101,"889,65862006399 ",.01)
  1. ;;65862006399
  1. ;;9002226.02101,"889,65862006399 ",.02)
  1. ;;65862006399
  1. ;;9002226.02101,"889,65862006401 ",.01)
  1. ;;65862006401
  1. ;;9002226.02101,"889,65862006401 ",.02)
  1. ;;65862006401
  1. ;;9002226.02101,"889,65862006499 ",.01)
  1. ;;65862006499
  1. ;;9002226.02101,"889,65862006499 ",.02)
  1. ;;65862006499
  1. ;;9002226.02101,"889,65862008601 ",.01)
  1. ;;65862008601
  1. ;;9002226.02101,"889,65862008601 ",.02)
  1. ;;65862008601
  1. ;;9002226.02101,"889,65862008630 ",.01)
  1. ;;65862008630
  1. ;;9002226.02101,"889,65862008630 ",.02)
  1. ;;65862008630
  1. ;;9002226.02101,"889,65862008681 ",.01)
  1. ;;65862008681
  1. ;;9002226.02101,"889,65862008681 ",.02)
  1. ;;65862008681
  1. ;;9002226.02101,"889,65862008701 ",.01)
  1. ;;65862008701
  1. ;;9002226.02101,"889,65862008701 ",.02)
  1. ;;65862008701
  1. ;;9002226.02101,"889,65862008730 ",.01)
  1. ;;65862008730
  1. ;;9002226.02101,"889,65862008730 ",.02)
  1. ;;65862008730
  1. ;;9002226.02101,"889,65862008781 ",.01)
  1. ;;65862008781
  1. ;;9002226.02101,"889,65862008781 ",.02)
  1. ;;65862008781
  1. ;;9002226.02101,"889,65862016801 ",.01)
  1. ;;65862016801
  1. ;;9002226.02101,"889,65862016801 ",.02)
  1. ;;65862016801
  1. ;;9002226.02101,"889,65862016876 ",.01)
  1. ;;65862016876
  1. ;;9002226.02101,"889,65862016876 ",.02)
  1. ;;65862016876
  1. ;;9002226.02101,"889,65862016899 ",.01)
  1. ;;65862016899
  1. ;;9002226.02101,"889,65862016899 ",.02)
  1. ;;65862016899
  1. ;;9002226.02101,"889,65862016901 ",.01)
  1. ;;65862016901
  1. ;;9002226.02101,"889,65862016901 ",.02)
  1. ;;65862016901
  1. ;;9002226.02101,"889,65862016981 ",.01)
  1. ;;65862016981
  1. ;;9002226.02101,"889,65862016981 ",.02)
  1. ;;65862016981
  1. ;;9002226.02101,"889,65862016999 ",.01)
  1. ;;65862016999
  1. ;;9002226.02101,"889,65862016999 ",.02)
  1. ;;65862016999
  1. ;;9002226.02101,"889,65862017001 ",.01)
  1. ;;65862017001
  1. ;;9002226.02101,"889,65862017001 ",.02)
  1. ;;65862017001
  1. ;;9002226.02101,"889,65862017061 ",.01)
  1. ;;65862017061
  1. ;;9002226.02101,"889,65862017061 ",.02)
  1. ;;65862017061
  1. ;;9002226.02101,"889,65862017099 ",.01)
  1. ;;65862017099
  1. ;;9002226.02101,"889,65862017099 ",.02)
  1. ;;65862017099
  1. ;;9002226.02101,"889,66105060610 ",.01)
  1. ;;66105060610
  1. ;;9002226.02101,"889,66105060610 ",.02)
  1. ;;66105060610
  1. ;;9002226.02101,"889,66105060710 ",.01)
  1. ;;66105060710
  1. ;;9002226.02101,"889,66105060710 ",.02)
  1. ;;66105060710
  1. ;;9002226.02101,"889,66105078123 ",.01)
  1. ;;66105078123
  1. ;;9002226.02101,"889,66105078123 ",.02)
  1. ;;66105078123
  1. ;;9002226.02101,"889,66105090402 ",.01)
  1. ;;66105090402
  1. ;;9002226.02101,"889,66105090402 ",.02)
  1. ;;66105090402
  1. ;;9002226.02101,"889,66105090403 ",.01)
  1. ;;66105090403
  1. ;;9002226.02101,"889,66105090403 ",.02)
  1. ;;66105090403
  1. ;;9002226.02101,"889,66105090406 ",.01)
  1. ;;66105090406
  1. ;;9002226.02101,"889,66105090406 ",.02)
  1. ;;66105090406
  1. ;;9002226.02101,"889,66105090409 ",.01)
  1. ;;66105090409
  1. ;;9002226.02101,"889,66105090409 ",.02)
  1. ;;66105090409
  1. ;;9002226.02101,"889,66105090410 ",.01)
  1. ;;66105090410
  1. ;;9002226.02101,"889,66105090410 ",.02)
  1. ;;66105090410
  1. ;;9002226.02101,"889,66105099310 ",.01)
  1. ;;66105099310
  1. ;;9002226.02101,"889,66105099310 ",.02)
  1. ;;66105099310
  1. ;;9002226.02101,"889,66105099403 ",.01)
  1. ;;66105099403
  1. ;;9002226.02101,"889,66105099403 ",.02)
  1. ;;66105099403
  1. ;;9002226.02101,"889,66105099406 ",.01)
  1. ;;66105099406
  1. ;;9002226.02101,"889,66105099406 ",.02)
  1. ;;66105099406
  1. ;;9002226.02101,"889,66105099410 ",.01)
  1. ;;66105099410
  1. ;;9002226.02101,"889,66105099410 ",.02)
  1. ;;66105099410
  1. ;;9002226.02101,"889,66105099411 ",.01)
  1. ;;66105099411
  1. ;;9002226.02101,"889,66105099411 ",.02)
  1. ;;66105099411