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

BGPM5ASH.m

Go to the documentation of this file.
BGPM5ASH ;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,66267004090 ",.02)
 ;;66267004090
 ;;9002226.02101,"1005,66267004230 ",.01)
 ;;66267004230
 ;;9002226.02101,"1005,66267004230 ",.02)
 ;;66267004230
 ;;9002226.02101,"1005,66267004260 ",.01)
 ;;66267004260
 ;;9002226.02101,"1005,66267004260 ",.02)
 ;;66267004260
 ;;9002226.02101,"1005,66267004290 ",.01)
 ;;66267004290
 ;;9002226.02101,"1005,66267004290 ",.02)
 ;;66267004290
 ;;9002226.02101,"1005,66267025330 ",.01)
 ;;66267025330
 ;;9002226.02101,"1005,66267025330 ",.02)
 ;;66267025330
 ;;9002226.02101,"1005,66267029310 ",.01)
 ;;66267029310
 ;;9002226.02101,"1005,66267029310 ",.02)
 ;;66267029310
 ;;9002226.02101,"1005,66267029320 ",.01)
 ;;66267029320
 ;;9002226.02101,"1005,66267029320 ",.02)
 ;;66267029320
 ;;9002226.02101,"1005,66267029330 ",.01)
 ;;66267029330
 ;;9002226.02101,"1005,66267029330 ",.02)
 ;;66267029330
 ;;9002226.02101,"1005,66267029340 ",.01)
 ;;66267029340
 ;;9002226.02101,"1005,66267029340 ",.02)
 ;;66267029340
 ;;9002226.02101,"1005,66267029360 ",.01)
 ;;66267029360
 ;;9002226.02101,"1005,66267029360 ",.02)
 ;;66267029360
 ;;9002226.02101,"1005,66267029390 ",.01)
 ;;66267029390
 ;;9002226.02101,"1005,66267029390 ",.02)
 ;;66267029390
 ;;9002226.02101,"1005,66267032310 ",.01)
 ;;66267032310
 ;;9002226.02101,"1005,66267032310 ",.02)
 ;;66267032310
 ;;9002226.02101,"1005,66267032320 ",.01)
 ;;66267032320
 ;;9002226.02101,"1005,66267032320 ",.02)
 ;;66267032320
 ;;9002226.02101,"1005,66267032330 ",.01)
 ;;66267032330
 ;;9002226.02101,"1005,66267032330 ",.02)
 ;;66267032330
 ;;9002226.02101,"1005,66267032340 ",.01)
 ;;66267032340
 ;;9002226.02101,"1005,66267032340 ",.02)
 ;;66267032340
 ;;9002226.02101,"1005,66267032360 ",.01)
 ;;66267032360
 ;;9002226.02101,"1005,66267032360 ",.02)
 ;;66267032360
 ;;9002226.02101,"1005,66267032390 ",.01)
 ;;66267032390
 ;;9002226.02101,"1005,66267032390 ",.02)
 ;;66267032390
 ;;9002226.02101,"1005,66267032391 ",.01)
 ;;66267032391
 ;;9002226.02101,"1005,66267032391 ",.02)
 ;;66267032391
 ;;9002226.02101,"1005,66267032820 ",.01)
 ;;66267032820
 ;;9002226.02101,"1005,66267032820 ",.02)
 ;;66267032820
 ;;9002226.02101,"1005,66267032830 ",.01)
 ;;66267032830
 ;;9002226.02101,"1005,66267032830 ",.02)
 ;;66267032830
 ;;9002226.02101,"1005,66267032860 ",.01)
 ;;66267032860
 ;;9002226.02101,"1005,66267032860 ",.02)
 ;;66267032860
 ;;9002226.02101,"1005,66267032930 ",.01)
 ;;66267032930
 ;;9002226.02101,"1005,66267032930 ",.02)
 ;;66267032930
 ;;9002226.02101,"1005,66267033030 ",.01)
 ;;66267033030
 ;;9002226.02101,"1005,66267033030 ",.02)
 ;;66267033030
 ;;9002226.02101,"1005,66267033060 ",.01)
 ;;66267033060
 ;;9002226.02101,"1005,66267033060 ",.02)
 ;;66267033060
 ;;9002226.02101,"1005,66267036530 ",.01)
 ;;66267036530
 ;;9002226.02101,"1005,66267036530 ",.02)
 ;;66267036530
 ;;9002226.02101,"1005,66267036630 ",.01)
 ;;66267036630
 ;;9002226.02101,"1005,66267036630 ",.02)
 ;;66267036630
 ;;9002226.02101,"1005,66267036730 ",.01)
 ;;66267036730
 ;;9002226.02101,"1005,66267036730 ",.02)
 ;;66267036730
 ;;9002226.02101,"1005,66267037030 ",.01)
 ;;66267037030
 ;;9002226.02101,"1005,66267037030 ",.02)
 ;;66267037030
 ;;9002226.02101,"1005,66267038010 ",.01)
 ;;66267038010
 ;;9002226.02101,"1005,66267038010 ",.02)
 ;;66267038010
 ;;9002226.02101,"1005,66267038020 ",.01)
 ;;66267038020
 ;;9002226.02101,"1005,66267038020 ",.02)
 ;;66267038020
 ;;9002226.02101,"1005,66267038030 ",.01)
 ;;66267038030
 ;;9002226.02101,"1005,66267038030 ",.02)
 ;;66267038030
 ;;9002226.02101,"1005,66267038040 ",.01)
 ;;66267038040
 ;;9002226.02101,"1005,66267038040 ",.02)
 ;;66267038040
 ;;9002226.02101,"1005,66267038060 ",.01)
 ;;66267038060
 ;;9002226.02101,"1005,66267038060 ",.02)
 ;;66267038060
 ;;9002226.02101,"1005,66267038090 ",.01)
 ;;66267038090
 ;;9002226.02101,"1005,66267038090 ",.02)
 ;;66267038090
 ;;9002226.02101,"1005,66267038091 ",.01)
 ;;66267038091
 ;;9002226.02101,"1005,66267038091 ",.02)
 ;;66267038091
 ;;9002226.02101,"1005,66267041310 ",.01)
 ;;66267041310
 ;;9002226.02101,"1005,66267041310 ",.02)
 ;;66267041310
 ;;9002226.02101,"1005,66267041315 ",.01)
 ;;66267041315
 ;;9002226.02101,"1005,66267041315 ",.02)
 ;;66267041315
 ;;9002226.02101,"1005,66267041320 ",.01)
 ;;66267041320
 ;;9002226.02101,"1005,66267041320 ",.02)
 ;;66267041320
 ;;9002226.02101,"1005,66267041330 ",.01)
 ;;66267041330
 ;;9002226.02101,"1005,66267041330 ",.02)
 ;;66267041330
 ;;9002226.02101,"1005,66267041335 ",.01)
 ;;66267041335
 ;;9002226.02101,"1005,66267041335 ",.02)
 ;;66267041335
 ;;9002226.02101,"1005,66267041340 ",.01)
 ;;66267041340
 ;;9002226.02101,"1005,66267041340 ",.02)
 ;;66267041340
 ;;9002226.02101,"1005,66267041360 ",.01)
 ;;66267041360
 ;;9002226.02101,"1005,66267041360 ",.02)
 ;;66267041360
 ;;9002226.02101,"1005,66267041390 ",.01)
 ;;66267041390
 ;;9002226.02101,"1005,66267041390 ",.02)
 ;;66267041390
 ;;9002226.02101,"1005,66267041392 ",.01)
 ;;66267041392
 ;;9002226.02101,"1005,66267041392 ",.02)
 ;;66267041392
 ;;9002226.02101,"1005,66267045120 ",.01)
 ;;66267045120
 ;;9002226.02101,"1005,66267045120 ",.02)
 ;;66267045120
 ;;9002226.02101,"1005,66267045130 ",.01)
 ;;66267045130
 ;;9002226.02101,"1005,66267045130 ",.02)
 ;;66267045130
 ;;9002226.02101,"1005,66267045140 ",.01)
 ;;66267045140
 ;;9002226.02101,"1005,66267045140 ",.02)
 ;;66267045140
 ;;9002226.02101,"1005,66267045160 ",.01)
 ;;66267045160
 ;;9002226.02101,"1005,66267045160 ",.02)
 ;;66267045160
 ;;9002226.02101,"1005,66267045190 ",.01)
 ;;66267045190
 ;;9002226.02101,"1005,66267045190 ",.02)
 ;;66267045190
 ;;9002226.02101,"1005,66267046910 ",.01)
 ;;66267046910
 ;;9002226.02101,"1005,66267046910 ",.02)
 ;;66267046910
 ;;9002226.02101,"1005,66267046920 ",.01)
 ;;66267046920
 ;;9002226.02101,"1005,66267046920 ",.02)
 ;;66267046920
 ;;9002226.02101,"1005,66267046930 ",.01)
 ;;66267046930
 ;;9002226.02101,"1005,66267046930 ",.02)
 ;;66267046930
 ;;9002226.02101,"1005,66267046940 ",.01)
 ;;66267046940
 ;;9002226.02101,"1005,66267046940 ",.02)
 ;;66267046940
 ;;9002226.02101,"1005,66267046960 ",.01)
 ;;66267046960
 ;;9002226.02101,"1005,66267046960 ",.02)
 ;;66267046960
 ;;9002226.02101,"1005,66267050730 ",.01)
 ;;66267050730
 ;;9002226.02101,"1005,66267050730 ",.02)
 ;;66267050730
 ;;9002226.02101,"1005,66267052310 ",.01)
 ;;66267052310
 ;;9002226.02101,"1005,66267052310 ",.02)
 ;;66267052310
 ;;9002226.02101,"1005,66267052320 ",.01)
 ;;66267052320
 ;;9002226.02101,"1005,66267052320 ",.02)
 ;;66267052320
 ;;9002226.02101,"1005,66267052330 ",.01)
 ;;66267052330
 ;;9002226.02101,"1005,66267052330 ",.02)
 ;;66267052330
 ;;9002226.02101,"1005,66267052340 ",.01)
 ;;66267052340
 ;;9002226.02101,"1005,66267052340 ",.02)
 ;;66267052340
 ;;9002226.02101,"1005,66267052360 ",.01)
 ;;66267052360
 ;;9002226.02101,"1005,66267052360 ",.02)
 ;;66267052360
 ;;9002226.02101,"1005,66267052390 ",.01)
 ;;66267052390
 ;;9002226.02101,"1005,66267052390 ",.02)
 ;;66267052390
 ;;9002226.02101,"1005,66267054010 ",.01)
 ;;66267054010
 ;;9002226.02101,"1005,66267054010 ",.02)
 ;;66267054010
 ;;9002226.02101,"1005,66267054020 ",.01)
 ;;66267054020
 ;;9002226.02101,"1005,66267054020 ",.02)
 ;;66267054020
 ;;9002226.02101,"1005,66267054030 ",.01)
 ;;66267054030
 ;;9002226.02101,"1005,66267054030 ",.02)
 ;;66267054030
 ;;9002226.02101,"1005,66267054040 ",.01)
 ;;66267054040
 ;;9002226.02101,"1005,66267054040 ",.02)
 ;;66267054040
 ;;9002226.02101,"1005,66267054060 ",.01)
 ;;66267054060
 ;;9002226.02101,"1005,66267054060 ",.02)
 ;;66267054060
 ;;9002226.02101,"1005,66267054090 ",.01)
 ;;66267054090
 ;;9002226.02101,"1005,66267054090 ",.02)
 ;;66267054090
 ;;9002226.02101,"1005,66267056510 ",.01)
 ;;66267056510
 ;;9002226.02101,"1005,66267056510 ",.02)
 ;;66267056510
 ;;9002226.02101,"1005,66267056515 ",.01)
 ;;66267056515
 ;;9002226.02101,"1005,66267056515 ",.02)
 ;;66267056515
 ;;9002226.02101,"1005,66267056520 ",.01)
 ;;66267056520
 ;;9002226.02101,"1005,66267056520 ",.02)
 ;;66267056520
 ;;9002226.02101,"1005,66267056530 ",.01)
 ;;66267056530
 ;;9002226.02101,"1005,66267056530 ",.02)
 ;;66267056530
 ;;9002226.02101,"1005,66267056560 ",.01)
 ;;66267056560
 ;;9002226.02101,"1005,66267056560 ",.02)
 ;;66267056560
 ;;9002226.02101,"1005,66267057010 ",.01)
 ;;66267057010
 ;;9002226.02101,"1005,66267057010 ",.02)
 ;;66267057010
 ;;9002226.02101,"1005,66267057020 ",.01)
 ;;66267057020
 ;;9002226.02101,"1005,66267057020 ",.02)
 ;;66267057020
 ;;9002226.02101,"1005,66267057030 ",.01)
 ;;66267057030
 ;;9002226.02101,"1005,66267057030 ",.02)
 ;;66267057030
 ;;9002226.02101,"1005,66267057040 ",.01)
 ;;66267057040
 ;;9002226.02101,"1005,66267057040 ",.02)
 ;;66267057040
 ;;9002226.02101,"1005,66267057060 ",.01)
 ;;66267057060
 ;;9002226.02101,"1005,66267057060 ",.02)
 ;;66267057060
 ;;9002226.02101,"1005,66267057090 ",.01)
 ;;66267057090
 ;;9002226.02101,"1005,66267057090 ",.02)
 ;;66267057090
 ;;9002226.02101,"1005,66267057705 ",.01)
 ;;66267057705
 ;;9002226.02101,"1005,66267057705 ",.02)
 ;;66267057705
 ;;9002226.02101,"1005,66267057710 ",.01)
 ;;66267057710
 ;;9002226.02101,"1005,66267057710 ",.02)
 ;;66267057710
 ;;9002226.02101,"1005,66267057715 ",.01)
 ;;66267057715
 ;;9002226.02101,"1005,66267057715 ",.02)
 ;;66267057715
 ;;9002226.02101,"1005,66267057720 ",.01)
 ;;66267057720
 ;;9002226.02101,"1005,66267057720 ",.02)
 ;;66267057720
 ;;9002226.02101,"1005,66267057730 ",.01)
 ;;66267057730
 ;;9002226.02101,"1005,66267057730 ",.02)
 ;;66267057730
 ;;9002226.02101,"1005,66267057740 ",.01)
 ;;66267057740
 ;;9002226.02101,"1005,66267057740 ",.02)
 ;;66267057740
 ;;9002226.02101,"1005,66267057760 ",.01)
 ;;66267057760
 ;;9002226.02101,"1005,66267057760 ",.02)
 ;;66267057760
 ;;9002226.02101,"1005,66267057790 ",.01)
 ;;66267057790
 ;;9002226.02101,"1005,66267057790 ",.02)
 ;;66267057790
 ;;9002226.02101,"1005,66267057810 ",.01)
 ;;66267057810
 ;;9002226.02101,"1005,66267057810 ",.02)
 ;;66267057810
 ;;9002226.02101,"1005,66267057820 ",.01)
 ;;66267057820
 ;;9002226.02101,"1005,66267057820 ",.02)
 ;;66267057820
 ;;9002226.02101,"1005,66267057830 ",.01)
 ;;66267057830
 ;;9002226.02101,"1005,66267057830 ",.02)
 ;;66267057830
 ;;9002226.02101,"1005,66267057840 ",.01)
 ;;66267057840
 ;;9002226.02101,"1005,66267057840 ",.02)
 ;;66267057840
 ;;9002226.02101,"1005,66267057860 ",.01)
 ;;66267057860
 ;;9002226.02101,"1005,66267057860 ",.02)
 ;;66267057860
 ;;9002226.02101,"1005,66267058305 ",.01)
 ;;66267058305
 ;;9002226.02101,"1005,66267058305 ",.02)
 ;;66267058305
 ;;9002226.02101,"1005,66267058310 ",.01)
 ;;66267058310
 ;;9002226.02101,"1005,66267058310 ",.02)
 ;;66267058310
 ;;9002226.02101,"1005,66267058320 ",.01)
 ;;66267058320
 ;;9002226.02101,"1005,66267058320 ",.02)
 ;;66267058320
 ;;9002226.02101,"1005,66267058330 ",.01)
 ;;66267058330
 ;;9002226.02101,"1005,66267058330 ",.02)
 ;;66267058330
 ;;9002226.02101,"1005,66267058340 ",.01)
 ;;66267058340
 ;;9002226.02101,"1005,66267058340 ",.02)
 ;;66267058340
 ;;9002226.02101,"1005,66267058360 ",.01)
 ;;66267058360
 ;;9002226.02101,"1005,66267058360 ",.02)
 ;;66267058360
 ;;9002226.02101,"1005,66267075130 ",.01)
 ;;66267075130
 ;;9002226.02101,"1005,66267075130 ",.02)
 ;;66267075130
 ;;9002226.02101,"1005,66267075190 ",.01)
 ;;66267075190
 ;;9002226.02101,"1005,66267075190 ",.02)
 ;;66267075190
 ;;9002226.02101,"1005,66267075230 ",.01)
 ;;66267075230
 ;;9002226.02101,"1005,66267075230 ",.02)
 ;;66267075230
 ;;9002226.02101,"1005,66267075290 ",.01)
 ;;66267075290
 ;;9002226.02101,"1005,66267075290 ",.02)
 ;;66267075290