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