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

BGPM3AAM.m

Go to the documentation of this file.
  1. BGPM3AAM ;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,55289077314 ",.02)
  1. ;;55289077314
  1. ;;9002226.02101,"774,55289077330 ",.01)
  1. ;;55289077330
  1. ;;9002226.02101,"774,55289077330 ",.02)
  1. ;;55289077330
  1. ;;9002226.02101,"774,55289077360 ",.01)
  1. ;;55289077360
  1. ;;9002226.02101,"774,55289077360 ",.02)
  1. ;;55289077360
  1. ;;9002226.02101,"774,55289077390 ",.01)
  1. ;;55289077390
  1. ;;9002226.02101,"774,55289077390 ",.02)
  1. ;;55289077390
  1. ;;9002226.02101,"774,55567010000 ",.01)
  1. ;;55567010000
  1. ;;9002226.02101,"774,55567010000 ",.02)
  1. ;;55567010000
  1. ;;9002226.02101,"774,55567010001 ",.01)
  1. ;;55567010001
  1. ;;9002226.02101,"774,55567010001 ",.02)
  1. ;;55567010001
  1. ;;9002226.02101,"774,55567010010 ",.01)
  1. ;;55567010010
  1. ;;9002226.02101,"774,55567010010 ",.02)
  1. ;;55567010010
  1. ;;9002226.02101,"774,55567010100 ",.01)
  1. ;;55567010100
  1. ;;9002226.02101,"774,55567010100 ",.02)
  1. ;;55567010100
  1. ;;9002226.02101,"774,55567010101 ",.01)
  1. ;;55567010101
  1. ;;9002226.02101,"774,55567010101 ",.02)
  1. ;;55567010101
  1. ;;9002226.02101,"774,55567010110 ",.01)
  1. ;;55567010110
  1. ;;9002226.02101,"774,55567010110 ",.02)
  1. ;;55567010110
  1. ;;9002226.02101,"774,55567010118 ",.01)
  1. ;;55567010118
  1. ;;9002226.02101,"774,55567010118 ",.02)
  1. ;;55567010118
  1. ;;9002226.02101,"774,55567010135 ",.01)
  1. ;;55567010135
  1. ;;9002226.02101,"774,55567010135 ",.02)
  1. ;;55567010135
  1. ;;9002226.02101,"774,55567010200 ",.01)
  1. ;;55567010200
  1. ;;9002226.02101,"774,55567010200 ",.02)
  1. ;;55567010200
  1. ;;9002226.02101,"774,55567010201 ",.01)
  1. ;;55567010201
  1. ;;9002226.02101,"774,55567010201 ",.02)
  1. ;;55567010201
  1. ;;9002226.02101,"774,55567010210 ",.01)
  1. ;;55567010210
  1. ;;9002226.02101,"774,55567010210 ",.02)
  1. ;;55567010210
  1. ;;9002226.02101,"774,55567010218 ",.01)
  1. ;;55567010218
  1. ;;9002226.02101,"774,55567010218 ",.02)
  1. ;;55567010218
  1. ;;9002226.02101,"774,55567010235 ",.01)
  1. ;;55567010235
  1. ;;9002226.02101,"774,55567010235 ",.02)
  1. ;;55567010235
  1. ;;9002226.02101,"774,55567010600 ",.01)
  1. ;;55567010600
  1. ;;9002226.02101,"774,55567010600 ",.02)
  1. ;;55567010600
  1. ;;9002226.02101,"774,55567010601 ",.01)
  1. ;;55567010601
  1. ;;9002226.02101,"774,55567010601 ",.02)
  1. ;;55567010601
  1. ;;9002226.02101,"774,55567010610 ",.01)
  1. ;;55567010610
  1. ;;9002226.02101,"774,55567010610 ",.02)
  1. ;;55567010610
  1. ;;9002226.02101,"774,55567010618 ",.01)
  1. ;;55567010618
  1. ;;9002226.02101,"774,55567010618 ",.02)
  1. ;;55567010618
  1. ;;9002226.02101,"774,55567010635 ",.01)
  1. ;;55567010635
  1. ;;9002226.02101,"774,55567010635 ",.02)
  1. ;;55567010635
  1. ;;9002226.02101,"774,55567010700 ",.01)
  1. ;;55567010700
  1. ;;9002226.02101,"774,55567010700 ",.02)
  1. ;;55567010700
  1. ;;9002226.02101,"774,55567010701 ",.01)
  1. ;;55567010701
  1. ;;9002226.02101,"774,55567010701 ",.02)
  1. ;;55567010701
  1. ;;9002226.02101,"774,55567010710 ",.01)
  1. ;;55567010710
  1. ;;9002226.02101,"774,55567010710 ",.02)
  1. ;;55567010710
  1. ;;9002226.02101,"774,55567010718 ",.01)
  1. ;;55567010718
  1. ;;9002226.02101,"774,55567010718 ",.02)
  1. ;;55567010718
  1. ;;9002226.02101,"774,55567010735 ",.01)
  1. ;;55567010735
  1. ;;9002226.02101,"774,55567010735 ",.02)
  1. ;;55567010735
  1. ;;9002226.02101,"774,55567010800 ",.01)
  1. ;;55567010800
  1. ;;9002226.02101,"774,55567010800 ",.02)
  1. ;;55567010800
  1. ;;9002226.02101,"774,55567010801 ",.01)
  1. ;;55567010801
  1. ;;9002226.02101,"774,55567010801 ",.02)
  1. ;;55567010801
  1. ;;9002226.02101,"774,55567010810 ",.01)
  1. ;;55567010810
  1. ;;9002226.02101,"774,55567010810 ",.02)
  1. ;;55567010810
  1. ;;9002226.02101,"774,55567010818 ",.01)
  1. ;;55567010818
  1. ;;9002226.02101,"774,55567010818 ",.02)
  1. ;;55567010818
  1. ;;9002226.02101,"774,55567010835 ",.01)
  1. ;;55567010835
  1. ;;9002226.02101,"774,55567010835 ",.02)
  1. ;;55567010835
  1. ;;9002226.02101,"774,55567026600 ",.01)
  1. ;;55567026600
  1. ;;9002226.02101,"774,55567026600 ",.02)
  1. ;;55567026600
  1. ;;9002226.02101,"774,55567026601 ",.01)
  1. ;;55567026601
  1. ;;9002226.02101,"774,55567026601 ",.02)
  1. ;;55567026601
  1. ;;9002226.02101,"774,55567026610 ",.01)
  1. ;;55567026610
  1. ;;9002226.02101,"774,55567026610 ",.02)
  1. ;;55567026610
  1. ;;9002226.02101,"774,55567026700 ",.01)
  1. ;;55567026700
  1. ;;9002226.02101,"774,55567026700 ",.02)
  1. ;;55567026700
  1. ;;9002226.02101,"774,55567026701 ",.01)
  1. ;;55567026701
  1. ;;9002226.02101,"774,55567026701 ",.02)
  1. ;;55567026701
  1. ;;9002226.02101,"774,55567026710 ",.01)
  1. ;;55567026710
  1. ;;9002226.02101,"774,55567026710 ",.02)
  1. ;;55567026710
  1. ;;9002226.02101,"774,55567026800 ",.01)
  1. ;;55567026800
  1. ;;9002226.02101,"774,55567026800 ",.02)
  1. ;;55567026800
  1. ;;9002226.02101,"774,55567026801 ",.01)
  1. ;;55567026801
  1. ;;9002226.02101,"774,55567026801 ",.02)
  1. ;;55567026801
  1. ;;9002226.02101,"774,55567026810 ",.01)
  1. ;;55567026810
  1. ;;9002226.02101,"774,55567026810 ",.02)
  1. ;;55567026810
  1. ;;9002226.02101,"774,55587057810 ",.01)
  1. ;;55587057810
  1. ;;9002226.02101,"774,55587057810 ",.02)
  1. ;;55587057810
  1. ;;9002226.02101,"774,55587057830 ",.01)
  1. ;;55587057830
  1. ;;9002226.02101,"774,55587057830 ",.02)
  1. ;;55587057830
  1. ;;9002226.02101,"774,55587057845 ",.01)
  1. ;;55587057845
  1. ;;9002226.02101,"774,55587057845 ",.02)
  1. ;;55587057845
  1. ;;9002226.02101,"774,55587057860 ",.01)
  1. ;;55587057860
  1. ;;9002226.02101,"774,55587057860 ",.02)
  1. ;;55587057860
  1. ;;9002226.02101,"774,55587057886 ",.01)
  1. ;;55587057886
  1. ;;9002226.02101,"774,55587057886 ",.02)
  1. ;;55587057886
  1. ;;9002226.02101,"774,55587057890 ",.01)
  1. ;;55587057890
  1. ;;9002226.02101,"774,55587057890 ",.02)
  1. ;;55587057890
  1. ;;9002226.02101,"774,55887004401 ",.01)
  1. ;;55887004401
  1. ;;9002226.02101,"774,55887004401 ",.02)
  1. ;;55887004401
  1. ;;9002226.02101,"774,55887004430 ",.01)
  1. ;;55887004430
  1. ;;9002226.02101,"774,55887004430 ",.02)
  1. ;;55887004430
  1. ;;9002226.02101,"774,55887004460 ",.01)
  1. ;;55887004460
  1. ;;9002226.02101,"774,55887004460 ",.02)
  1. ;;55887004460
  1. ;;9002226.02101,"774,55887004490 ",.01)
  1. ;;55887004490
  1. ;;9002226.02101,"774,55887004490 ",.02)
  1. ;;55887004490
  1. ;;9002226.02101,"774,55887026401 ",.01)
  1. ;;55887026401
  1. ;;9002226.02101,"774,55887026401 ",.02)
  1. ;;55887026401
  1. ;;9002226.02101,"774,55887026430 ",.01)
  1. ;;55887026430
  1. ;;9002226.02101,"774,55887026430 ",.02)
  1. ;;55887026430
  1. ;;9002226.02101,"774,55887026490 ",.01)
  1. ;;55887026490
  1. ;;9002226.02101,"774,55887026490 ",.02)
  1. ;;55887026490
  1. ;;9002226.02101,"774,55887046430 ",.01)
  1. ;;55887046430
  1. ;;9002226.02101,"774,55887046430 ",.02)
  1. ;;55887046430
  1. ;;9002226.02101,"774,55887046490 ",.01)
  1. ;;55887046490
  1. ;;9002226.02101,"774,55887046490 ",.02)
  1. ;;55887046490
  1. ;;9002226.02101,"774,55887057710 ",.01)
  1. ;;55887057710
  1. ;;9002226.02101,"774,55887057710 ",.02)
  1. ;;55887057710
  1. ;;9002226.02101,"774,55887057730 ",.01)
  1. ;;55887057730
  1. ;;9002226.02101,"774,55887057730 ",.02)
  1. ;;55887057730
  1. ;;9002226.02101,"774,55887057760 ",.01)
  1. ;;55887057760
  1. ;;9002226.02101,"774,55887057760 ",.02)
  1. ;;55887057760
  1. ;;9002226.02101,"774,55887057790 ",.01)
  1. ;;55887057790
  1. ;;9002226.02101,"774,55887057790 ",.02)
  1. ;;55887057790
  1. ;;9002226.02101,"774,55887057810 ",.01)
  1. ;;55887057810
  1. ;;9002226.02101,"774,55887057810 ",.02)
  1. ;;55887057810
  1. ;;9002226.02101,"774,55887057830 ",.01)
  1. ;;55887057830
  1. ;;9002226.02101,"774,55887057830 ",.02)
  1. ;;55887057830
  1. ;;9002226.02101,"774,55887057860 ",.01)
  1. ;;55887057860
  1. ;;9002226.02101,"774,55887057860 ",.02)
  1. ;;55887057860
  1. ;;9002226.02101,"774,55887057886 ",.01)
  1. ;;55887057886
  1. ;;9002226.02101,"774,55887057886 ",.02)
  1. ;;55887057886
  1. ;;9002226.02101,"774,55887057890 ",.01)
  1. ;;55887057890
  1. ;;9002226.02101,"774,55887057890 ",.02)
  1. ;;55887057890
  1. ;;9002226.02101,"774,55887092630 ",.01)
  1. ;;55887092630
  1. ;;9002226.02101,"774,55887092630 ",.02)
  1. ;;55887092630
  1. ;;9002226.02101,"774,55887092690 ",.01)
  1. ;;55887092690
  1. ;;9002226.02101,"774,55887092690 ",.02)
  1. ;;55887092690
  1. ;;9002226.02101,"774,57866994601 ",.01)
  1. ;;57866994601
  1. ;;9002226.02101,"774,57866994601 ",.02)
  1. ;;57866994601
  1. ;;9002226.02101,"774,57866994602 ",.01)
  1. ;;57866994602
  1. ;;9002226.02101,"774,57866994602 ",.02)
  1. ;;57866994602
  1. ;;9002226.02101,"774,58016008300 ",.01)
  1. ;;58016008300
  1. ;;9002226.02101,"774,58016008300 ",.02)
  1. ;;58016008300
  1. ;;9002226.02101,"774,58016008301 ",.01)
  1. ;;58016008301
  1. ;;9002226.02101,"774,58016008301 ",.02)
  1. ;;58016008301
  1. ;;9002226.02101,"774,58016008302 ",.01)
  1. ;;58016008302
  1. ;;9002226.02101,"774,58016008302 ",.02)
  1. ;;58016008302
  1. ;;9002226.02101,"774,58016008303 ",.01)
  1. ;;58016008303
  1. ;;9002226.02101,"774,58016008303 ",.02)
  1. ;;58016008303
  1. ;;9002226.02101,"774,58016008304 ",.01)
  1. ;;58016008304
  1. ;;9002226.02101,"774,58016008304 ",.02)
  1. ;;58016008304
  1. ;;9002226.02101,"774,58016008305 ",.01)
  1. ;;58016008305
  1. ;;9002226.02101,"774,58016008305 ",.02)
  1. ;;58016008305
  1. ;;9002226.02101,"774,58016008306 ",.01)
  1. ;;58016008306
  1. ;;9002226.02101,"774,58016008306 ",.02)
  1. ;;58016008306
  1. ;;9002226.02101,"774,58016008307 ",.01)
  1. ;;58016008307
  1. ;;9002226.02101,"774,58016008307 ",.02)
  1. ;;58016008307
  1. ;;9002226.02101,"774,58016008308 ",.01)
  1. ;;58016008308
  1. ;;9002226.02101,"774,58016008308 ",.02)
  1. ;;58016008308
  1. ;;9002226.02101,"774,58016008309 ",.01)
  1. ;;58016008309
  1. ;;9002226.02101,"774,58016008309 ",.02)
  1. ;;58016008309
  1. ;;9002226.02101,"774,58016008310 ",.01)
  1. ;;58016008310
  1. ;;9002226.02101,"774,58016008310 ",.02)
  1. ;;58016008310
  1. ;;9002226.02101,"774,58016008312 ",.01)
  1. ;;58016008312
  1. ;;9002226.02101,"774,58016008312 ",.02)
  1. ;;58016008312
  1. ;;9002226.02101,"774,58016008314 ",.01)
  1. ;;58016008314
  1. ;;9002226.02101,"774,58016008314 ",.02)
  1. ;;58016008314
  1. ;;9002226.02101,"774,58016008315 ",.01)
  1. ;;58016008315
  1. ;;9002226.02101,"774,58016008315 ",.02)
  1. ;;58016008315
  1. ;;9002226.02101,"774,58016008316 ",.01)
  1. ;;58016008316
  1. ;;9002226.02101,"774,58016008316 ",.02)
  1. ;;58016008316
  1. ;;9002226.02101,"774,58016008318 ",.01)
  1. ;;58016008318
  1. ;;9002226.02101,"774,58016008318 ",.02)
  1. ;;58016008318
  1. ;;9002226.02101,"774,58016008320 ",.01)
  1. ;;58016008320
  1. ;;9002226.02101,"774,58016008320 ",.02)
  1. ;;58016008320
  1. ;;9002226.02101,"774,58016008321 ",.01)
  1. ;;58016008321
  1. ;;9002226.02101,"774,58016008321 ",.02)
  1. ;;58016008321
  1. ;;9002226.02101,"774,58016008324 ",.01)
  1. ;;58016008324
  1. ;;9002226.02101,"774,58016008324 ",.02)
  1. ;;58016008324
  1. ;;9002226.02101,"774,58016008325 ",.01)
  1. ;;58016008325
  1. ;;9002226.02101,"774,58016008325 ",.02)
  1. ;;58016008325
  1. ;;9002226.02101,"774,58016008326 ",.01)
  1. ;;58016008326
  1. ;;9002226.02101,"774,58016008326 ",.02)
  1. ;;58016008326
  1. ;;9002226.02101,"774,58016008327 ",.01)
  1. ;;58016008327
  1. ;;9002226.02101,"774,58016008327 ",.02)
  1. ;;58016008327
  1. ;;9002226.02101,"774,58016008328 ",.01)
  1. ;;58016008328
  1. ;;9002226.02101,"774,58016008328 ",.02)
  1. ;;58016008328
  1. ;;9002226.02101,"774,58016008330 ",.01)
  1. ;;58016008330
  1. ;;9002226.02101,"774,58016008330 ",.02)
  1. ;;58016008330
  1. ;;9002226.02101,"774,58016008332 ",.01)
  1. ;;58016008332
  1. ;;9002226.02101,"774,58016008332 ",.02)
  1. ;;58016008332
  1. ;;9002226.02101,"774,58016008335 ",.01)
  1. ;;58016008335
  1. ;;9002226.02101,"774,58016008335 ",.02)
  1. ;;58016008335
  1. ;;9002226.02101,"774,58016008336 ",.01)
  1. ;;58016008336
  1. ;;9002226.02101,"774,58016008336 ",.02)
  1. ;;58016008336
  1. ;;9002226.02101,"774,58016008340 ",.01)
  1. ;;58016008340
  1. ;;9002226.02101,"774,58016008340 ",.02)
  1. ;;58016008340
  1. ;;9002226.02101,"774,58016008342 ",.01)
  1. ;;58016008342
  1. ;;9002226.02101,"774,58016008342 ",.02)
  1. ;;58016008342
  1. ;;9002226.02101,"774,58016008344 ",.01)
  1. ;;58016008344
  1. ;;9002226.02101,"774,58016008344 ",.02)
  1. ;;58016008344
  1. ;;9002226.02101,"774,58016008345 ",.01)
  1. ;;58016008345
  1. ;;9002226.02101,"774,58016008345 ",.02)
  1. ;;58016008345
  1. ;;9002226.02101,"774,58016008348 ",.01)
  1. ;;58016008348
  1. ;;9002226.02101,"774,58016008348 ",.02)
  1. ;;58016008348
  1. ;;9002226.02101,"774,58016008350 ",.01)
  1. ;;58016008350
  1. ;;9002226.02101,"774,58016008350 ",.02)
  1. ;;58016008350
  1. ;;9002226.02101,"774,58016008356 ",.01)
  1. ;;58016008356