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

BGPM3AAJ.m

Go to the documentation of this file.
BGPM3AAJ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"774,25021040010 ",.02)
 ;;25021040010
 ;;9002226.02101,"774,25021040030 ",.01)
 ;;25021040030
 ;;9002226.02101,"774,25021040030 ",.02)
 ;;25021040030
 ;;9002226.02101,"774,25021040102 ",.01)
 ;;25021040102
 ;;9002226.02101,"774,25021040102 ",.02)
 ;;25021040102
 ;;9002226.02101,"774,25021040201 ",.01)
 ;;25021040201
 ;;9002226.02101,"774,25021040201 ",.02)
 ;;25021040201
 ;;9002226.02101,"774,25021040210 ",.01)
 ;;25021040210
 ;;9002226.02101,"774,25021040210 ",.02)
 ;;25021040210
 ;;9002226.02101,"774,25021040301 ",.01)
 ;;25021040301
 ;;9002226.02101,"774,25021040301 ",.02)
 ;;25021040301
 ;;9002226.02101,"774,25021040304 ",.01)
 ;;25021040304
 ;;9002226.02101,"774,25021040304 ",.02)
 ;;25021040304
 ;;9002226.02101,"774,25021040401 ",.01)
 ;;25021040401
 ;;9002226.02101,"774,25021040401 ",.02)
 ;;25021040401
 ;;9002226.02101,"774,35470053501 ",.01)
 ;;35470053501
 ;;9002226.02101,"774,35470053501 ",.02)
 ;;35470053501
 ;;9002226.02101,"774,39769001101 ",.01)
 ;;39769001101
 ;;9002226.02101,"774,39769001101 ",.02)
 ;;39769001101
 ;;9002226.02101,"774,39769001102 ",.01)
 ;;39769001102
 ;;9002226.02101,"774,39769001102 ",.02)
 ;;39769001102
 ;;9002226.02101,"774,39769001105 ",.01)
 ;;39769001105
 ;;9002226.02101,"774,39769001105 ",.02)
 ;;39769001105
 ;;9002226.02101,"774,39769001171 ",.01)
 ;;39769001171
 ;;9002226.02101,"774,39769001171 ",.02)
 ;;39769001171
 ;;9002226.02101,"774,39769001173 ",.01)
 ;;39769001173
 ;;9002226.02101,"774,39769001173 ",.02)
 ;;39769001173
 ;;9002226.02101,"774,39769001175 ",.01)
 ;;39769001175
 ;;9002226.02101,"774,39769001175 ",.02)
 ;;39769001175
 ;;9002226.02101,"774,39769001910 ",.01)
 ;;39769001910
 ;;9002226.02101,"774,39769001910 ",.02)
 ;;39769001910
 ;;9002226.02101,"774,39769001930 ",.01)
 ;;39769001930
 ;;9002226.02101,"774,39769001930 ",.02)
 ;;39769001930
 ;;9002226.02101,"774,39769002601 ",.01)
 ;;39769002601
 ;;9002226.02101,"774,39769002601 ",.02)
 ;;39769002601
 ;;9002226.02101,"774,39769002701 ",.01)
 ;;39769002701
 ;;9002226.02101,"774,39769002701 ",.02)
 ;;39769002701
 ;;9002226.02101,"774,39769002801 ",.01)
 ;;39769002801
 ;;9002226.02101,"774,39769002801 ",.02)
 ;;39769002801
 ;;9002226.02101,"774,39769002905 ",.01)
 ;;39769002905
 ;;9002226.02101,"774,39769002905 ",.02)
 ;;39769002905
 ;;9002226.02101,"774,39769003005 ",.01)
 ;;39769003005
 ;;9002226.02101,"774,39769003005 ",.02)
 ;;39769003005
 ;;9002226.02101,"774,39769003610 ",.01)
 ;;39769003610
 ;;9002226.02101,"774,39769003610 ",.02)
 ;;39769003610
 ;;9002226.02101,"774,39769003630 ",.01)
 ;;39769003630
 ;;9002226.02101,"774,39769003630 ",.02)
 ;;39769003630
 ;;9002226.02101,"774,39769003671 ",.01)
 ;;39769003671
 ;;9002226.02101,"774,39769003671 ",.02)
 ;;39769003671
 ;;9002226.02101,"774,39769010771 ",.01)
 ;;39769010771
 ;;9002226.02101,"774,39769010771 ",.02)
 ;;39769010771
 ;;9002226.02101,"774,39769010773 ",.01)
 ;;39769010773
 ;;9002226.02101,"774,39769010773 ",.02)
 ;;39769010773
 ;;9002226.02101,"774,39769010775 ",.01)
 ;;39769010775
 ;;9002226.02101,"774,39769010775 ",.02)
 ;;39769010775
 ;;9002226.02101,"774,39769011871 ",.01)
 ;;39769011871
 ;;9002226.02101,"774,39769011871 ",.02)
 ;;39769011871
 ;;9002226.02101,"774,39769011873 ",.01)
 ;;39769011873
 ;;9002226.02101,"774,39769011873 ",.02)
 ;;39769011873
 ;;9002226.02101,"774,39769011875 ",.01)
 ;;39769011875
 ;;9002226.02101,"774,39769011875 ",.02)
 ;;39769011875
 ;;9002226.02101,"774,43683011730 ",.01)
 ;;43683011730
 ;;9002226.02101,"774,43683011730 ",.02)
 ;;43683011730
 ;;9002226.02101,"774,43683011830 ",.01)
 ;;43683011830
 ;;9002226.02101,"774,43683011830 ",.02)
 ;;43683011830
 ;;9002226.02101,"774,49072029130 ",.01)
 ;;49072029130
 ;;9002226.02101,"774,49072029130 ",.02)
 ;;49072029130
 ;;9002226.02101,"774,49072029710 ",.01)
 ;;49072029710
 ;;9002226.02101,"774,49072029710 ",.02)
 ;;49072029710
 ;;9002226.02101,"774,49910000606 ",.01)
 ;;49910000606
 ;;9002226.02101,"774,49910000606 ",.02)
 ;;49910000606
 ;;9002226.02101,"774,49999057600 ",.01)
 ;;49999057600
 ;;9002226.02101,"774,49999057600 ",.02)
 ;;49999057600
 ;;9002226.02101,"774,49999057610 ",.01)
 ;;49999057610
 ;;9002226.02101,"774,49999057610 ",.02)
 ;;49999057610
 ;;9002226.02101,"774,49999057620 ",.01)
 ;;49999057620
 ;;9002226.02101,"774,49999057620 ",.02)
 ;;49999057620
 ;;9002226.02101,"774,49999082900 ",.01)
 ;;49999082900
 ;;9002226.02101,"774,49999082900 ",.02)
 ;;49999082900
 ;;9002226.02101,"774,49999092310 ",.01)
 ;;49999092310
 ;;9002226.02101,"774,49999092310 ",.02)
 ;;49999092310
 ;;9002226.02101,"774,50111092201 ",.01)
 ;;50111092201
 ;;9002226.02101,"774,50111092201 ",.02)
 ;;50111092201
 ;;9002226.02101,"774,50111092203 ",.01)
 ;;50111092203
 ;;9002226.02101,"774,50111092203 ",.02)
 ;;50111092203
 ;;9002226.02101,"774,50111092210 ",.01)
 ;;50111092210
 ;;9002226.02101,"774,50111092210 ",.02)
 ;;50111092210
 ;;9002226.02101,"774,50111092258 ",.01)
 ;;50111092258
 ;;9002226.02101,"774,50111092258 ",.02)
 ;;50111092258
 ;;9002226.02101,"774,50111092401 ",.01)
 ;;50111092401
 ;;9002226.02101,"774,50111092401 ",.02)
 ;;50111092401
 ;;9002226.02101,"774,50111092403 ",.01)
 ;;50111092403
 ;;9002226.02101,"774,50111092403 ",.02)
 ;;50111092403
 ;;9002226.02101,"774,50111092410 ",.01)
 ;;50111092410
 ;;9002226.02101,"774,50111092410 ",.02)
 ;;50111092410
 ;;9002226.02101,"774,50111092458 ",.01)
 ;;50111092458
 ;;9002226.02101,"774,50111092458 ",.02)
 ;;50111092458
 ;;9002226.02101,"774,50111092501 ",.01)
 ;;50111092501
 ;;9002226.02101,"774,50111092501 ",.02)
 ;;50111092501
 ;;9002226.02101,"774,50111092503 ",.01)
 ;;50111092503
 ;;9002226.02101,"774,50111092503 ",.02)
 ;;50111092503
 ;;9002226.02101,"774,50111092510 ",.01)
 ;;50111092510
 ;;9002226.02101,"774,50111092510 ",.02)
 ;;50111092510
 ;;9002226.02101,"774,50111092558 ",.01)
 ;;50111092558
 ;;9002226.02101,"774,50111092558 ",.02)
 ;;50111092558
 ;;9002226.02101,"774,50111092601 ",.01)
 ;;50111092601
 ;;9002226.02101,"774,50111092601 ",.02)
 ;;50111092601
 ;;9002226.02101,"774,50111092603 ",.01)
 ;;50111092603
 ;;9002226.02101,"774,50111092603 ",.02)
 ;;50111092603
 ;;9002226.02101,"774,50111092610 ",.01)
 ;;50111092610
 ;;9002226.02101,"774,50111092610 ",.02)
 ;;50111092610
 ;;9002226.02101,"774,50111092658 ",.01)
 ;;50111092658
 ;;9002226.02101,"774,50111092658 ",.02)
 ;;50111092658
 ;;9002226.02101,"774,50111092701 ",.01)
 ;;50111092701
 ;;9002226.02101,"774,50111092701 ",.02)
 ;;50111092701
 ;;9002226.02101,"774,50111092703 ",.01)
 ;;50111092703
 ;;9002226.02101,"774,50111092703 ",.02)
 ;;50111092703
 ;;9002226.02101,"774,50111092710 ",.01)
 ;;50111092710
 ;;9002226.02101,"774,50111092710 ",.02)
 ;;50111092710
 ;;9002226.02101,"774,50111092758 ",.01)
 ;;50111092758
 ;;9002226.02101,"774,50111092758 ",.02)
 ;;50111092758
 ;;9002226.02101,"774,50111092801 ",.01)
 ;;50111092801
 ;;9002226.02101,"774,50111092801 ",.02)
 ;;50111092801
 ;;9002226.02101,"774,50111092803 ",.01)
 ;;50111092803
 ;;9002226.02101,"774,50111092803 ",.02)
 ;;50111092803
 ;;9002226.02101,"774,50111092810 ",.01)
 ;;50111092810
 ;;9002226.02101,"774,50111092810 ",.02)
 ;;50111092810
 ;;9002226.02101,"774,50111092858 ",.01)
 ;;50111092858
 ;;9002226.02101,"774,50111092858 ",.02)
 ;;50111092858
 ;;9002226.02101,"774,50111092901 ",.01)
 ;;50111092901
 ;;9002226.02101,"774,50111092901 ",.02)
 ;;50111092901
 ;;9002226.02101,"774,50111092903 ",.01)
 ;;50111092903
 ;;9002226.02101,"774,50111092903 ",.02)
 ;;50111092903
 ;;9002226.02101,"774,50111092910 ",.01)
 ;;50111092910
 ;;9002226.02101,"774,50111092910 ",.02)
 ;;50111092910
 ;;9002226.02101,"774,50111092958 ",.01)
 ;;50111092958
 ;;9002226.02101,"774,50111092958 ",.02)
 ;;50111092958
 ;;9002226.02101,"774,51079090820 ",.01)
 ;;51079090820
 ;;9002226.02101,"774,51079090820 ",.02)
 ;;51079090820
 ;;9002226.02101,"774,51079090920 ",.01)
 ;;51079090920
 ;;9002226.02101,"774,51079090920 ",.02)
 ;;51079090920
 ;;9002226.02101,"774,51079091020 ",.01)
 ;;51079091020
 ;;9002226.02101,"774,51079091020 ",.02)
 ;;51079091020
 ;;9002226.02101,"774,51079091320 ",.01)
 ;;51079091320
 ;;9002226.02101,"774,51079091320 ",.02)
 ;;51079091320
 ;;9002226.02101,"774,51079091520 ",.01)
 ;;51079091520
 ;;9002226.02101,"774,51079091520 ",.02)
 ;;51079091520
 ;;9002226.02101,"774,51129181201 ",.01)
 ;;51129181201
 ;;9002226.02101,"774,51129181201 ",.02)
 ;;51129181201
 ;;9002226.02101,"774,51129201801 ",.01)
 ;;51129201801
 ;;9002226.02101,"774,51129201801 ",.02)
 ;;51129201801
 ;;9002226.02101,"774,51129247001 ",.01)
 ;;51129247001
 ;;9002226.02101,"774,51129247001 ",.02)
 ;;51129247001
 ;;9002226.02101,"774,51129254801 ",.01)
 ;;51129254801
 ;;9002226.02101,"774,51129254801 ",.02)
 ;;51129254801
 ;;9002226.02101,"774,51129257101 ",.01)
 ;;51129257101
 ;;9002226.02101,"774,51129257101 ",.02)
 ;;51129257101
 ;;9002226.02101,"774,51129267801 ",.01)
 ;;51129267801
 ;;9002226.02101,"774,51129267801 ",.02)
 ;;51129267801
 ;;9002226.02101,"774,51129276101 ",.01)
 ;;51129276101
 ;;9002226.02101,"774,51129276101 ",.02)
 ;;51129276101
 ;;9002226.02101,"774,51129282501 ",.01)
 ;;51129282501
 ;;9002226.02101,"774,51129282501 ",.02)
 ;;51129282501
 ;;9002226.02101,"774,51129282502 ",.01)
 ;;51129282502
 ;;9002226.02101,"774,51129282502 ",.02)
 ;;51129282502
 ;;9002226.02101,"774,51129284001 ",.01)
 ;;51129284001
 ;;9002226.02101,"774,51129284001 ",.02)
 ;;51129284001
 ;;9002226.02101,"774,51129285101 ",.01)
 ;;51129285101
 ;;9002226.02101,"774,51129285101 ",.02)
 ;;51129285101
 ;;9002226.02101,"774,51129285102 ",.01)
 ;;51129285102
 ;;9002226.02101,"774,51129285102 ",.02)
 ;;51129285102
 ;;9002226.02101,"774,51129292001 ",.01)
 ;;51129292001
 ;;9002226.02101,"774,51129292001 ",.02)
 ;;51129292001
 ;;9002226.02101,"774,51129294501 ",.01)
 ;;51129294501
 ;;9002226.02101,"774,51129294501 ",.02)
 ;;51129294501
 ;;9002226.02101,"774,51129294502 ",.01)
 ;;51129294502
 ;;9002226.02101,"774,51129294502 ",.02)
 ;;51129294502
 ;;9002226.02101,"774,51129294601 ",.01)
 ;;51129294601
 ;;9002226.02101,"774,51129294601 ",.02)
 ;;51129294601
 ;;9002226.02101,"774,51129294602 ",.01)
 ;;51129294602
 ;;9002226.02101,"774,51129294602 ",.02)
 ;;51129294602
 ;;9002226.02101,"774,51129302601 ",.01)
 ;;51129302601
 ;;9002226.02101,"774,51129302601 ",.02)
 ;;51129302601
 ;;9002226.02101,"774,51129302602 ",.01)
 ;;51129302602
 ;;9002226.02101,"774,51129302602 ",.02)
 ;;51129302602
 ;;9002226.02101,"774,51129323301 ",.01)
 ;;51129323301
 ;;9002226.02101,"774,51129323301 ",.02)
 ;;51129323301
 ;;9002226.02101,"774,51129323302 ",.01)
 ;;51129323302
 ;;9002226.02101,"774,51129323302 ",.02)
 ;;51129323302
 ;;9002226.02101,"774,51129324801 ",.01)
 ;;51129324801
 ;;9002226.02101,"774,51129324801 ",.02)
 ;;51129324801
 ;;9002226.02101,"774,51129324802 ",.01)
 ;;51129324802
 ;;9002226.02101,"774,51129324802 ",.02)
 ;;51129324802
 ;;9002226.02101,"774,51129382601 ",.01)
 ;;51129382601
 ;;9002226.02101,"774,51129382601 ",.02)
 ;;51129382601
 ;;9002226.02101,"774,51129382602 ",.01)
 ;;51129382602
 ;;9002226.02101,"774,51129382602 ",.02)
 ;;51129382602
 ;;9002226.02101,"774,51129382701 ",.01)
 ;;51129382701
 ;;9002226.02101,"774,51129382701 ",.02)
 ;;51129382701
 ;;9002226.02101,"774,51129382702 ",.01)
 ;;51129382702
 ;;9002226.02101,"774,51129382702 ",.02)
 ;;51129382702
 ;;9002226.02101,"774,51129382901 ",.01)
 ;;51129382901
 ;;9002226.02101,"774,51129382901 ",.02)
 ;;51129382901
 ;;9002226.02101,"774,51129382902 ",.01)
 ;;51129382902