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