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