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

BGPM5ARK.m

Go to the documentation of this file.
BGPM5ARK ;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,55648092401 ",.02)
 ;;55648092401
 ;;9002226.02101,"1005,55648092402 ",.01)
 ;;55648092402
 ;;9002226.02101,"1005,55648092402 ",.02)
 ;;55648092402
 ;;9002226.02101,"1005,55648092403 ",.01)
 ;;55648092403
 ;;9002226.02101,"1005,55648092403 ",.02)
 ;;55648092403
 ;;9002226.02101,"1005,55648092501 ",.01)
 ;;55648092501
 ;;9002226.02101,"1005,55648092501 ",.02)
 ;;55648092501
 ;;9002226.02101,"1005,55648092502 ",.01)
 ;;55648092502
 ;;9002226.02101,"1005,55648092502 ",.02)
 ;;55648092502
 ;;9002226.02101,"1005,55648092503 ",.01)
 ;;55648092503
 ;;9002226.02101,"1005,55648092503 ",.02)
 ;;55648092503
 ;;9002226.02101,"1005,55648092601 ",.01)
 ;;55648092601
 ;;9002226.02101,"1005,55648092601 ",.02)
 ;;55648092601
 ;;9002226.02101,"1005,55648092602 ",.01)
 ;;55648092602
 ;;9002226.02101,"1005,55648092602 ",.02)
 ;;55648092602
 ;;9002226.02101,"1005,55648092603 ",.01)
 ;;55648092603
 ;;9002226.02101,"1005,55648092603 ",.02)
 ;;55648092603
 ;;9002226.02101,"1005,55648092701 ",.01)
 ;;55648092701
 ;;9002226.02101,"1005,55648092701 ",.02)
 ;;55648092701
 ;;9002226.02101,"1005,55648092702 ",.01)
 ;;55648092702
 ;;9002226.02101,"1005,55648092702 ",.02)
 ;;55648092702
 ;;9002226.02101,"1005,55648092705 ",.01)
 ;;55648092705
 ;;9002226.02101,"1005,55648092705 ",.02)
 ;;55648092705
 ;;9002226.02101,"1005,55648092801 ",.01)
 ;;55648092801
 ;;9002226.02101,"1005,55648092801 ",.02)
 ;;55648092801
 ;;9002226.02101,"1005,55648092802 ",.01)
 ;;55648092802
 ;;9002226.02101,"1005,55648092802 ",.02)
 ;;55648092802
 ;;9002226.02101,"1005,55648092805 ",.01)
 ;;55648092805
 ;;9002226.02101,"1005,55648092805 ",.02)
 ;;55648092805
 ;;9002226.02101,"1005,55648092806 ",.01)
 ;;55648092806
 ;;9002226.02101,"1005,55648092806 ",.02)
 ;;55648092806
 ;;9002226.02101,"1005,55648092901 ",.01)
 ;;55648092901
 ;;9002226.02101,"1005,55648092901 ",.02)
 ;;55648092901
 ;;9002226.02101,"1005,55648092902 ",.01)
 ;;55648092902
 ;;9002226.02101,"1005,55648092902 ",.02)
 ;;55648092902
 ;;9002226.02101,"1005,55648092905 ",.01)
 ;;55648092905
 ;;9002226.02101,"1005,55648092905 ",.02)
 ;;55648092905
 ;;9002226.02101,"1005,55648092906 ",.01)
 ;;55648092906
 ;;9002226.02101,"1005,55648092906 ",.02)
 ;;55648092906
 ;;9002226.02101,"1005,55648094101 ",.01)
 ;;55648094101
 ;;9002226.02101,"1005,55648094101 ",.02)
 ;;55648094101
 ;;9002226.02101,"1005,55648094102 ",.01)
 ;;55648094102
 ;;9002226.02101,"1005,55648094102 ",.02)
 ;;55648094102
 ;;9002226.02101,"1005,55648094105 ",.01)
 ;;55648094105
 ;;9002226.02101,"1005,55648094105 ",.02)
 ;;55648094105
 ;;9002226.02101,"1005,55648094106 ",.01)
 ;;55648094106
 ;;9002226.02101,"1005,55648094106 ",.02)
 ;;55648094106
 ;;9002226.02101,"1005,55648094201 ",.01)
 ;;55648094201
 ;;9002226.02101,"1005,55648094201 ",.02)
 ;;55648094201
 ;;9002226.02101,"1005,55648094202 ",.01)
 ;;55648094202
 ;;9002226.02101,"1005,55648094202 ",.02)
 ;;55648094202
 ;;9002226.02101,"1005,55648094205 ",.01)
 ;;55648094205
 ;;9002226.02101,"1005,55648094205 ",.02)
 ;;55648094205
 ;;9002226.02101,"1005,55648095301 ",.01)
 ;;55648095301
 ;;9002226.02101,"1005,55648095301 ",.02)
 ;;55648095301
 ;;9002226.02101,"1005,55648095302 ",.01)
 ;;55648095302
 ;;9002226.02101,"1005,55648095302 ",.02)
 ;;55648095302
 ;;9002226.02101,"1005,55648095305 ",.01)
 ;;55648095305
 ;;9002226.02101,"1005,55648095305 ",.02)
 ;;55648095305
 ;;9002226.02101,"1005,55887009930 ",.01)
 ;;55887009930
 ;;9002226.02101,"1005,55887009930 ",.02)
 ;;55887009930
 ;;9002226.02101,"1005,55887010230 ",.01)
 ;;55887010230
 ;;9002226.02101,"1005,55887010230 ",.02)
 ;;55887010230
 ;;9002226.02101,"1005,55887010330 ",.01)
 ;;55887010330
 ;;9002226.02101,"1005,55887010330 ",.02)
 ;;55887010330
 ;;9002226.02101,"1005,55887010530 ",.01)
 ;;55887010530
 ;;9002226.02101,"1005,55887010530 ",.02)
 ;;55887010530
 ;;9002226.02101,"1005,55887022730 ",.01)
 ;;55887022730
 ;;9002226.02101,"1005,55887022730 ",.02)
 ;;55887022730
 ;;9002226.02101,"1005,55887022760 ",.01)
 ;;55887022760
 ;;9002226.02101,"1005,55887022760 ",.02)
 ;;55887022760
 ;;9002226.02101,"1005,55887022790 ",.01)
 ;;55887022790
 ;;9002226.02101,"1005,55887022790 ",.02)
 ;;55887022790
 ;;9002226.02101,"1005,55887030430 ",.01)
 ;;55887030430
 ;;9002226.02101,"1005,55887030430 ",.02)
 ;;55887030430
 ;;9002226.02101,"1005,55887030460 ",.01)
 ;;55887030460
 ;;9002226.02101,"1005,55887030460 ",.02)
 ;;55887030460
 ;;9002226.02101,"1005,55887030490 ",.01)
 ;;55887030490
 ;;9002226.02101,"1005,55887030490 ",.02)
 ;;55887030490
 ;;9002226.02101,"1005,55887030730 ",.01)
 ;;55887030730
 ;;9002226.02101,"1005,55887030730 ",.02)
 ;;55887030730
 ;;9002226.02101,"1005,55887042520 ",.01)
 ;;55887042520
 ;;9002226.02101,"1005,55887042520 ",.02)
 ;;55887042520
 ;;9002226.02101,"1005,55887042530 ",.01)
 ;;55887042530
 ;;9002226.02101,"1005,55887042530 ",.02)
 ;;55887042530
 ;;9002226.02101,"1005,55887042560 ",.01)
 ;;55887042560
 ;;9002226.02101,"1005,55887042560 ",.02)
 ;;55887042560
 ;;9002226.02101,"1005,55887042590 ",.01)
 ;;55887042590
 ;;9002226.02101,"1005,55887042590 ",.02)
 ;;55887042590
 ;;9002226.02101,"1005,55887042620 ",.01)
 ;;55887042620
 ;;9002226.02101,"1005,55887042620 ",.02)
 ;;55887042620
 ;;9002226.02101,"1005,55887042630 ",.01)
 ;;55887042630
 ;;9002226.02101,"1005,55887042630 ",.02)
 ;;55887042630
 ;;9002226.02101,"1005,55887042660 ",.01)
 ;;55887042660
 ;;9002226.02101,"1005,55887042660 ",.02)
 ;;55887042660
 ;;9002226.02101,"1005,55887042690 ",.01)
 ;;55887042690
 ;;9002226.02101,"1005,55887042690 ",.02)
 ;;55887042690
 ;;9002226.02101,"1005,55887043030 ",.01)
 ;;55887043030
 ;;9002226.02101,"1005,55887043030 ",.02)
 ;;55887043030
 ;;9002226.02101,"1005,55887053201 ",.01)
 ;;55887053201
 ;;9002226.02101,"1005,55887053201 ",.02)
 ;;55887053201
 ;;9002226.02101,"1005,55887053230 ",.01)
 ;;55887053230
 ;;9002226.02101,"1005,55887053230 ",.02)
 ;;55887053230
 ;;9002226.02101,"1005,55887053260 ",.01)
 ;;55887053260
 ;;9002226.02101,"1005,55887053260 ",.02)
 ;;55887053260
 ;;9002226.02101,"1005,55887053290 ",.01)
 ;;55887053290
 ;;9002226.02101,"1005,55887053290 ",.02)
 ;;55887053290
 ;;9002226.02101,"1005,55887055830 ",.01)
 ;;55887055830
 ;;9002226.02101,"1005,55887055830 ",.02)
 ;;55887055830
 ;;9002226.02101,"1005,55887055860 ",.01)
 ;;55887055860
 ;;9002226.02101,"1005,55887055860 ",.02)
 ;;55887055860
 ;;9002226.02101,"1005,55887055890 ",.01)
 ;;55887055890
 ;;9002226.02101,"1005,55887055890 ",.02)
 ;;55887055890
 ;;9002226.02101,"1005,55887056930 ",.01)
 ;;55887056930
 ;;9002226.02101,"1005,55887056930 ",.02)
 ;;55887056930
 ;;9002226.02101,"1005,55887056960 ",.01)
 ;;55887056960
 ;;9002226.02101,"1005,55887056960 ",.02)
 ;;55887056960
 ;;9002226.02101,"1005,55887056990 ",.01)
 ;;55887056990
 ;;9002226.02101,"1005,55887056990 ",.02)
 ;;55887056990
 ;;9002226.02101,"1005,55887058101 ",.01)
 ;;55887058101
 ;;9002226.02101,"1005,55887058101 ",.02)
 ;;55887058101
 ;;9002226.02101,"1005,55887058130 ",.01)
 ;;55887058130
 ;;9002226.02101,"1005,55887058130 ",.02)
 ;;55887058130
 ;;9002226.02101,"1005,55887058160 ",.01)
 ;;55887058160
 ;;9002226.02101,"1005,55887058160 ",.02)
 ;;55887058160
 ;;9002226.02101,"1005,55887058190 ",.01)
 ;;55887058190
 ;;9002226.02101,"1005,55887058190 ",.02)
 ;;55887058190
 ;;9002226.02101,"1005,55887058201 ",.01)
 ;;55887058201
 ;;9002226.02101,"1005,55887058201 ",.02)
 ;;55887058201
 ;;9002226.02101,"1005,55887058230 ",.01)
 ;;55887058230
 ;;9002226.02101,"1005,55887058230 ",.02)
 ;;55887058230
 ;;9002226.02101,"1005,55887058260 ",.01)
 ;;55887058260
 ;;9002226.02101,"1005,55887058260 ",.02)
 ;;55887058260
 ;;9002226.02101,"1005,55887058290 ",.01)
 ;;55887058290
 ;;9002226.02101,"1005,55887058290 ",.02)
 ;;55887058290
 ;;9002226.02101,"1005,55887058930 ",.01)
 ;;55887058930
 ;;9002226.02101,"1005,55887058930 ",.02)
 ;;55887058930
 ;;9002226.02101,"1005,55887058990 ",.01)
 ;;55887058990
 ;;9002226.02101,"1005,55887058990 ",.02)
 ;;55887058990
 ;;9002226.02101,"1005,55887059030 ",.01)
 ;;55887059030
 ;;9002226.02101,"1005,55887059030 ",.02)
 ;;55887059030
 ;;9002226.02101,"1005,55887059060 ",.01)
 ;;55887059060
 ;;9002226.02101,"1005,55887059060 ",.02)
 ;;55887059060
 ;;9002226.02101,"1005,55887059090 ",.01)
 ;;55887059090
 ;;9002226.02101,"1005,55887059090 ",.02)
 ;;55887059090
 ;;9002226.02101,"1005,55887059101 ",.01)
 ;;55887059101
 ;;9002226.02101,"1005,55887059101 ",.02)
 ;;55887059101
 ;;9002226.02101,"1005,55887059110 ",.01)
 ;;55887059110
 ;;9002226.02101,"1005,55887059110 ",.02)
 ;;55887059110
 ;;9002226.02101,"1005,55887059120 ",.01)
 ;;55887059120
 ;;9002226.02101,"1005,55887059120 ",.02)
 ;;55887059120
 ;;9002226.02101,"1005,55887059130 ",.01)
 ;;55887059130
 ;;9002226.02101,"1005,55887059130 ",.02)
 ;;55887059130
 ;;9002226.02101,"1005,55887059160 ",.01)
 ;;55887059160
 ;;9002226.02101,"1005,55887059160 ",.02)
 ;;55887059160
 ;;9002226.02101,"1005,55887059190 ",.01)
 ;;55887059190
 ;;9002226.02101,"1005,55887059190 ",.02)
 ;;55887059190
 ;;9002226.02101,"1005,55887059430 ",.01)
 ;;55887059430
 ;;9002226.02101,"1005,55887059430 ",.02)
 ;;55887059430
 ;;9002226.02101,"1005,55887059490 ",.01)
 ;;55887059490
 ;;9002226.02101,"1005,55887059490 ",.02)
 ;;55887059490
 ;;9002226.02101,"1005,55887059530 ",.01)
 ;;55887059530
 ;;9002226.02101,"1005,55887059530 ",.02)
 ;;55887059530
 ;;9002226.02101,"1005,55887059590 ",.01)
 ;;55887059590
 ;;9002226.02101,"1005,55887059590 ",.02)
 ;;55887059590
 ;;9002226.02101,"1005,55887061201 ",.01)
 ;;55887061201
 ;;9002226.02101,"1005,55887061201 ",.02)
 ;;55887061201
 ;;9002226.02101,"1005,55887061230 ",.01)
 ;;55887061230
 ;;9002226.02101,"1005,55887061230 ",.02)
 ;;55887061230
 ;;9002226.02101,"1005,55887061260 ",.01)
 ;;55887061260
 ;;9002226.02101,"1005,55887061260 ",.02)
 ;;55887061260
 ;;9002226.02101,"1005,55887061290 ",.01)
 ;;55887061290
 ;;9002226.02101,"1005,55887061290 ",.02)
 ;;55887061290
 ;;9002226.02101,"1005,55887061292 ",.01)
 ;;55887061292
 ;;9002226.02101,"1005,55887061292 ",.02)
 ;;55887061292
 ;;9002226.02101,"1005,55887098430 ",.01)
 ;;55887098430
 ;;9002226.02101,"1005,55887098430 ",.02)
 ;;55887098430
 ;;9002226.02101,"1005,57297051201 ",.01)
 ;;57297051201
 ;;9002226.02101,"1005,57297051201 ",.02)
 ;;57297051201
 ;;9002226.02101,"1005,57297051202 ",.01)
 ;;57297051202
 ;;9002226.02101,"1005,57297051202 ",.02)
 ;;57297051202
 ;;9002226.02101,"1005,57297051203 ",.01)
 ;;57297051203
 ;;9002226.02101,"1005,57297051203 ",.02)
 ;;57297051203
 ;;9002226.02101,"1005,57297051301 ",.01)
 ;;57297051301
 ;;9002226.02101,"1005,57297051301 ",.02)
 ;;57297051301
 ;;9002226.02101,"1005,57297051302 ",.01)
 ;;57297051302
 ;;9002226.02101,"1005,57297051302 ",.02)
 ;;57297051302
 ;;9002226.02101,"1005,57297051303 ",.01)
 ;;57297051303
 ;;9002226.02101,"1005,57297051303 ",.02)
 ;;57297051303
 ;;9002226.02101,"1005,57297051304 ",.01)
 ;;57297051304
 ;;9002226.02101,"1005,57297051304 ",.02)
 ;;57297051304
 ;;9002226.02101,"1005,57297051401 ",.01)
 ;;57297051401
 ;;9002226.02101,"1005,57297051401 ",.02)
 ;;57297051401
 ;;9002226.02101,"1005,57297051402 ",.01)
 ;;57297051402
 ;;9002226.02101,"1005,57297051402 ",.02)
 ;;57297051402
 ;;9002226.02101,"1005,57297051403 ",.01)
 ;;57297051403
 ;;9002226.02101,"1005,57297051403 ",.02)
 ;;57297051403
 ;;9002226.02101,"1005,57297051404 ",.01)
 ;;57297051404
 ;;9002226.02101,"1005,57297051404 ",.02)
 ;;57297051404
 ;;9002226.02101,"1005,57297051501 ",.01)
 ;;57297051501
 ;;9002226.02101,"1005,57297051501 ",.02)
 ;;57297051501