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

BGPM5AJE.m

Go to the documentation of this file.
  1. BGPM5AJE ;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,00781118292 ",.01)
  1. ;;00781118292
  1. ;;9002226.02101,"889,00781118292 ",.02)
  1. ;;00781118292
  1. ;;9002226.02101,"889,00781118301 ",.01)
  1. ;;00781118301
  1. ;;9002226.02101,"889,00781118301 ",.02)
  1. ;;00781118301
  1. ;;9002226.02101,"889,00781118310 ",.01)
  1. ;;00781118310
  1. ;;9002226.02101,"889,00781118310 ",.02)
  1. ;;00781118310
  1. ;;9002226.02101,"889,00781118376 ",.01)
  1. ;;00781118376
  1. ;;9002226.02101,"889,00781118376 ",.02)
  1. ;;00781118376
  1. ;;9002226.02101,"889,00781118392 ",.01)
  1. ;;00781118392
  1. ;;9002226.02101,"889,00781118392 ",.02)
  1. ;;00781118392
  1. ;;9002226.02101,"889,00781122301 ",.01)
  1. ;;00781122301
  1. ;;9002226.02101,"889,00781122301 ",.02)
  1. ;;00781122301
  1. ;;9002226.02101,"889,00781122305 ",.01)
  1. ;;00781122305
  1. ;;9002226.02101,"889,00781122305 ",.02)
  1. ;;00781122305
  1. ;;9002226.02101,"889,00781122310 ",.01)
  1. ;;00781122310
  1. ;;9002226.02101,"889,00781122310 ",.02)
  1. ;;00781122310
  1. ;;9002226.02101,"889,00781122313 ",.01)
  1. ;;00781122313
  1. ;;9002226.02101,"889,00781122313 ",.02)
  1. ;;00781122313
  1. ;;9002226.02101,"889,00781122801 ",.01)
  1. ;;00781122801
  1. ;;9002226.02101,"889,00781122801 ",.02)
  1. ;;00781122801
  1. ;;9002226.02101,"889,00781122805 ",.01)
  1. ;;00781122805
  1. ;;9002226.02101,"889,00781122805 ",.02)
  1. ;;00781122805
  1. ;;9002226.02101,"889,00781122810 ",.01)
  1. ;;00781122810
  1. ;;9002226.02101,"889,00781122810 ",.02)
  1. ;;00781122810
  1. ;;9002226.02101,"889,00781122813 ",.01)
  1. ;;00781122813
  1. ;;9002226.02101,"889,00781122813 ",.02)
  1. ;;00781122813
  1. ;;9002226.02101,"889,00781150600 ",.01)
  1. ;;00781150600
  1. ;;9002226.02101,"889,00781150600 ",.02)
  1. ;;00781150600
  1. ;;9002226.02101,"889,00781150601 ",.01)
  1. ;;00781150601
  1. ;;9002226.02101,"889,00781150601 ",.02)
  1. ;;00781150601
  1. ;;9002226.02101,"889,00781150603 ",.01)
  1. ;;00781150603
  1. ;;9002226.02101,"889,00781150603 ",.02)
  1. ;;00781150603
  1. ;;9002226.02101,"889,00781150605 ",.01)
  1. ;;00781150605
  1. ;;9002226.02101,"889,00781150605 ",.02)
  1. ;;00781150605
  1. ;;9002226.02101,"889,00781150610 ",.01)
  1. ;;00781150610
  1. ;;9002226.02101,"889,00781150610 ",.02)
  1. ;;00781150610
  1. ;;9002226.02101,"889,00781150613 ",.01)
  1. ;;00781150613
  1. ;;9002226.02101,"889,00781150613 ",.02)
  1. ;;00781150613
  1. ;;9002226.02101,"889,00781150615 ",.01)
  1. ;;00781150615
  1. ;;9002226.02101,"889,00781150615 ",.02)
  1. ;;00781150615
  1. ;;9002226.02101,"889,00781150701 ",.01)
  1. ;;00781150701
  1. ;;9002226.02101,"889,00781150701 ",.02)
  1. ;;00781150701
  1. ;;9002226.02101,"889,00781150705 ",.01)
  1. ;;00781150705
  1. ;;9002226.02101,"889,00781150705 ",.02)
  1. ;;00781150705
  1. ;;9002226.02101,"889,00781150710 ",.01)
  1. ;;00781150710
  1. ;;9002226.02101,"889,00781150710 ",.02)
  1. ;;00781150710
  1. ;;9002226.02101,"889,00781150713 ",.01)
  1. ;;00781150713
  1. ;;9002226.02101,"889,00781150713 ",.02)
  1. ;;00781150713
  1. ;;9002226.02101,"889,00781182401 ",.01)
  1. ;;00781182401
  1. ;;9002226.02101,"889,00781182401 ",.02)
  1. ;;00781182401
  1. ;;9002226.02101,"889,00781182405 ",.01)
  1. ;;00781182405
  1. ;;9002226.02101,"889,00781182405 ",.02)
  1. ;;00781182405
  1. ;;9002226.02101,"889,00781182431 ",.01)
  1. ;;00781182431
  1. ;;9002226.02101,"889,00781182431 ",.02)
  1. ;;00781182431
  1. ;;9002226.02101,"889,00781183301 ",.01)
  1. ;;00781183301
  1. ;;9002226.02101,"889,00781183301 ",.02)
  1. ;;00781183301
  1. ;;9002226.02101,"889,00781183305 ",.01)
  1. ;;00781183305
  1. ;;9002226.02101,"889,00781183305 ",.02)
  1. ;;00781183305
  1. ;;9002226.02101,"889,00781183331 ",.01)
  1. ;;00781183331
  1. ;;9002226.02101,"889,00781183331 ",.02)
  1. ;;00781183331
  1. ;;9002226.02101,"889,00781184101 ",.01)
  1. ;;00781184101
  1. ;;9002226.02101,"889,00781184101 ",.02)
  1. ;;00781184101
  1. ;;9002226.02101,"889,00781184105 ",.01)
  1. ;;00781184105
  1. ;;9002226.02101,"889,00781184105 ",.02)
  1. ;;00781184105
  1. ;;9002226.02101,"889,00781184131 ",.01)
  1. ;;00781184131
  1. ;;9002226.02101,"889,00781184131 ",.02)
  1. ;;00781184131
  1. ;;9002226.02101,"889,00781307075 ",.01)
  1. ;;00781307075
  1. ;;9002226.02101,"889,00781307075 ",.02)
  1. ;;00781307075
  1. ;;9002226.02101,"889,00781307095 ",.01)
  1. ;;00781307095
  1. ;;9002226.02101,"889,00781307095 ",.02)
  1. ;;00781307095
  1. ;;9002226.02101,"889,00781307175 ",.01)
  1. ;;00781307175
  1. ;;9002226.02101,"889,00781307175 ",.02)
  1. ;;00781307175
  1. ;;9002226.02101,"889,00781307195 ",.01)
  1. ;;00781307195
  1. ;;9002226.02101,"889,00781307195 ",.02)
  1. ;;00781307195
  1. ;;9002226.02101,"889,00781377771 ",.01)
  1. ;;00781377771
  1. ;;9002226.02101,"889,00781377771 ",.02)
  1. ;;00781377771
  1. ;;9002226.02101,"889,00781377795 ",.01)
  1. ;;00781377795
  1. ;;9002226.02101,"889,00781377795 ",.02)
  1. ;;00781377795
  1. ;;9002226.02101,"889,00781563001 ",.01)
  1. ;;00781563001
  1. ;;9002226.02101,"889,00781563001 ",.02)
  1. ;;00781563001
  1. ;;9002226.02101,"889,00781563101 ",.01)
  1. ;;00781563101
  1. ;;9002226.02101,"889,00781563101 ",.02)
  1. ;;00781563101
  1. ;;9002226.02101,"889,00781563201 ",.01)
  1. ;;00781563201
  1. ;;9002226.02101,"889,00781563201 ",.02)
  1. ;;00781563201
  1. ;;9002226.02101,"889,00904041160 ",.01)
  1. ;;00904041160
  1. ;;9002226.02101,"889,00904041160 ",.02)
  1. ;;00904041160
  1. ;;9002226.02101,"889,00904041161 ",.01)
  1. ;;00904041161
  1. ;;9002226.02101,"889,00904041161 ",.02)
  1. ;;00904041161
  1. ;;9002226.02101,"889,00904041180 ",.01)
  1. ;;00904041180
  1. ;;9002226.02101,"889,00904041180 ",.02)
  1. ;;00904041180
  1. ;;9002226.02101,"889,00904041260 ",.01)
  1. ;;00904041260
  1. ;;9002226.02101,"889,00904041260 ",.02)
  1. ;;00904041260
  1. ;;9002226.02101,"889,00904041261 ",.01)
  1. ;;00904041261
  1. ;;9002226.02101,"889,00904041261 ",.02)
  1. ;;00904041261
  1. ;;9002226.02101,"889,00904041280 ",.01)
  1. ;;00904041280
  1. ;;9002226.02101,"889,00904041280 ",.02)
  1. ;;00904041280
  1. ;;9002226.02101,"889,00904041460 ",.01)
  1. ;;00904041460
  1. ;;9002226.02101,"889,00904041460 ",.02)
  1. ;;00904041460
  1. ;;9002226.02101,"889,00904041480 ",.01)
  1. ;;00904041480
  1. ;;9002226.02101,"889,00904041480 ",.02)
  1. ;;00904041480
  1. ;;9002226.02101,"889,00904041840 ",.01)
  1. ;;00904041840
  1. ;;9002226.02101,"889,00904041840 ",.02)
  1. ;;00904041840
  1. ;;9002226.02101,"889,00904041860 ",.01)
  1. ;;00904041860
  1. ;;9002226.02101,"889,00904041860 ",.02)
  1. ;;00904041860
  1. ;;9002226.02101,"889,00904042160 ",.01)
  1. ;;00904042160
  1. ;;9002226.02101,"889,00904042160 ",.02)
  1. ;;00904042160
  1. ;;9002226.02101,"889,00904042260 ",.01)
  1. ;;00904042260
  1. ;;9002226.02101,"889,00904042260 ",.02)
  1. ;;00904042260
  1. ;;9002226.02101,"889,00904042360 ",.01)
  1. ;;00904042360
  1. ;;9002226.02101,"889,00904042360 ",.02)
  1. ;;00904042360
  1. ;;9002226.02101,"889,00904042460 ",.01)
  1. ;;00904042460
  1. ;;9002226.02101,"889,00904042460 ",.02)
  1. ;;00904042460
  1. ;;9002226.02101,"889,00904506960 ",.01)
  1. ;;00904506960
  1. ;;9002226.02101,"889,00904506960 ",.02)
  1. ;;00904506960
  1. ;;9002226.02101,"889,00904507060 ",.01)
  1. ;;00904507060
  1. ;;9002226.02101,"889,00904507060 ",.02)
  1. ;;00904507060
  1. ;;9002226.02101,"889,00904507160 ",.01)
  1. ;;00904507160
  1. ;;9002226.02101,"889,00904507160 ",.02)
  1. ;;00904507160
  1. ;;9002226.02101,"889,00904511060 ",.01)
  1. ;;00904511060
  1. ;;9002226.02101,"889,00904511060 ",.02)
  1. ;;00904511060
  1. ;;9002226.02101,"889,00904511080 ",.01)
  1. ;;00904511080
  1. ;;9002226.02101,"889,00904511080 ",.02)
  1. ;;00904511080
  1. ;;9002226.02101,"889,00904511160 ",.01)
  1. ;;00904511160
  1. ;;9002226.02101,"889,00904511160 ",.02)
  1. ;;00904511160
  1. ;;9002226.02101,"889,00904511180 ",.01)
  1. ;;00904511180
  1. ;;9002226.02101,"889,00904511180 ",.02)
  1. ;;00904511180
  1. ;;9002226.02101,"889,00904539261 ",.01)
  1. ;;00904539261
  1. ;;9002226.02101,"889,00904539261 ",.02)
  1. ;;00904539261
  1. ;;9002226.02101,"889,00904589061 ",.01)
  1. ;;00904589061
  1. ;;9002226.02101,"889,00904589061 ",.02)
  1. ;;00904589061
  1. ;;9002226.02101,"889,00904592861 ",.01)
  1. ;;00904592861
  1. ;;9002226.02101,"889,00904592861 ",.02)
  1. ;;00904592861
  1. ;;9002226.02101,"889,00904592961 ",.01)
  1. ;;00904592961
  1. ;;9002226.02101,"889,00904592961 ",.02)
  1. ;;00904592961
  1. ;;9002226.02101,"889,00904593061 ",.01)
  1. ;;00904593061
  1. ;;9002226.02101,"889,00904593061 ",.02)
  1. ;;00904593061
  1. ;;9002226.02101,"889,00904594761 ",.01)
  1. ;;00904594761
  1. ;;9002226.02101,"889,00904594761 ",.02)
  1. ;;00904594761
  1. ;;9002226.02101,"889,00904594861 ",.01)
  1. ;;00904594861
  1. ;;9002226.02101,"889,00904594861 ",.02)
  1. ;;00904594861
  1. ;;9002226.02101,"889,00904594961 ",.01)
  1. ;;00904594961
  1. ;;9002226.02101,"889,00904594961 ",.02)
  1. ;;00904594961
  1. ;;9002226.02101,"889,00904595061 ",.01)
  1. ;;00904595061
  1. ;;9002226.02101,"889,00904595061 ",.02)
  1. ;;00904595061
  1. ;;9002226.02101,"889,00904603360 ",.01)
  1. ;;00904603360
  1. ;;9002226.02101,"889,00904603360 ",.02)
  1. ;;00904603360
  1. ;;9002226.02101,"889,00904603361 ",.01)
  1. ;;00904603361
  1. ;;9002226.02101,"889,00904603361 ",.02)
  1. ;;00904603361
  1. ;;9002226.02101,"889,00904603380 ",.01)
  1. ;;00904603380
  1. ;;9002226.02101,"889,00904603380 ",.02)
  1. ;;00904603380
  1. ;;9002226.02101,"889,00904603460 ",.01)
  1. ;;00904603460
  1. ;;9002226.02101,"889,00904603460 ",.02)
  1. ;;00904603460
  1. ;;9002226.02101,"889,00904603461 ",.01)
  1. ;;00904603461
  1. ;;9002226.02101,"889,00904603461 ",.02)
  1. ;;00904603461
  1. ;;9002226.02101,"889,00904603480 ",.01)
  1. ;;00904603480
  1. ;;9002226.02101,"889,00904603480 ",.02)
  1. ;;00904603480
  1. ;;9002226.02101,"889,00904616261 ",.01)
  1. ;;00904616261
  1. ;;9002226.02101,"889,00904616261 ",.02)
  1. ;;00904616261
  1. ;;9002226.02101,"889,00904620060 ",.01)
  1. ;;00904620060
  1. ;;9002226.02101,"889,00904620060 ",.02)
  1. ;;00904620060
  1. ;;9002226.02101,"889,00904763460 ",.01)
  1. ;;00904763460
  1. ;;9002226.02101,"889,00904763460 ",.02)
  1. ;;00904763460
  1. ;;9002226.02101,"889,00904763461 ",.01)
  1. ;;00904763461
  1. ;;9002226.02101,"889,00904763461 ",.02)
  1. ;;00904763461
  1. ;;9002226.02101,"889,00904763480 ",.01)
  1. ;;00904763480
  1. ;;9002226.02101,"889,00904763480 ",.02)
  1. ;;00904763480
  1. ;;9002226.02101,"889,00904763560 ",.01)
  1. ;;00904763560
  1. ;;9002226.02101,"889,00904763560 ",.02)
  1. ;;00904763560
  1. ;;9002226.02101,"889,00904763561 ",.01)
  1. ;;00904763561
  1. ;;9002226.02101,"889,00904763561 ",.02)
  1. ;;00904763561
  1. ;;9002226.02101,"889,00904777260 ",.01)
  1. ;;00904777260
  1. ;;9002226.02101,"889,00904777260 ",.02)
  1. ;;00904777260
  1. ;;9002226.02101,"889,00904777261 ",.01)
  1. ;;00904777261
  1. ;;9002226.02101,"889,00904777261 ",.02)
  1. ;;00904777261
  1. ;;9002226.02101,"889,00904777280 ",.01)
  1. ;;00904777280
  1. ;;9002226.02101,"889,00904777280 ",.02)
  1. ;;00904777280
  1. ;;9002226.02101,"889,00904777360 ",.01)
  1. ;;00904777360
  1. ;;9002226.02101,"889,00904777360 ",.02)
  1. ;;00904777360
  1. ;;9002226.02101,"889,00904777361 ",.01)
  1. ;;00904777361
  1. ;;9002226.02101,"889,00904777361 ",.02)
  1. ;;00904777361
  1. ;;9002226.02101,"889,00904777380 ",.01)
  1. ;;00904777380
  1. ;;9002226.02101,"889,00904777380 ",.02)
  1. ;;00904777380
  1. ;;9002226.02101,"889,00904781660 ",.01)
  1. ;;00904781660
  1. ;;9002226.02101,"889,00904781660 ",.02)
  1. ;;00904781660
  1. ;;9002226.02101,"889,00904781760 ",.01)
  1. ;;00904781760
  1. ;;9002226.02101,"889,00904781760 ",.02)
  1. ;;00904781760
  1. ;;9002226.02101,"889,00904781860 ",.01)
  1. ;;00904781860
  1. ;;9002226.02101,"889,00904781860 ",.02)
  1. ;;00904781860
  1. ;;9002226.02101,"889,00904788160 ",.01)
  1. ;;00904788160
  1. ;;9002226.02101,"889,00904788160 ",.02)
  1. ;;00904788160
  1. ;;9002226.02101,"889,00904788260 ",.01)
  1. ;;00904788260
  1. ;;9002226.02101,"889,00904788260 ",.02)
  1. ;;00904788260
  1. ;;9002226.02101,"889,00904789360 ",.01)
  1. ;;00904789360
  1. ;;9002226.02101,"889,00904789360 ",.02)
  1. ;;00904789360
  1. ;;9002226.02101,"889,00904789460 ",.01)
  1. ;;00904789460
  1. ;;9002226.02101,"889,00904789460 ",.02)
  1. ;;00904789460
  1. ;;9002226.02101,"889,00904794660 ",.01)
  1. ;;00904794660
  1. ;;9002226.02101,"889,00904794660 ",.02)
  1. ;;00904794660
  1. ;;9002226.02101,"889,00904794680 ",.01)
  1. ;;00904794680
  1. ;;9002226.02101,"889,00904794680 ",.02)
  1. ;;00904794680
  1. ;;9002226.02101,"889,00904794760 ",.01)
  1. ;;00904794760
  1. ;;9002226.02101,"889,00904794760 ",.02)
  1. ;;00904794760
  1. ;;9002226.02101,"889,00904794780 ",.01)
  1. ;;00904794780
  1. ;;9002226.02101,"889,00904794780 ",.02)
  1. ;;00904794780