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

BGPM5AM.m

Go to the documentation of this file.
  1. BGPM5AM ;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,"900,58016086902 ",.01)
  1. ;;58016086902
  1. ;;9002226.02101,"900,58016086902 ",.02)
  1. ;;58016086902
  1. ;;9002226.02101,"900,58016086903 ",.01)
  1. ;;58016086903
  1. ;;9002226.02101,"900,58016086903 ",.02)
  1. ;;58016086903
  1. ;;9002226.02101,"900,58016086904 ",.01)
  1. ;;58016086904
  1. ;;9002226.02101,"900,58016086904 ",.02)
  1. ;;58016086904
  1. ;;9002226.02101,"900,58016086905 ",.01)
  1. ;;58016086905
  1. ;;9002226.02101,"900,58016086905 ",.02)
  1. ;;58016086905
  1. ;;9002226.02101,"900,58016086906 ",.01)
  1. ;;58016086906
  1. ;;9002226.02101,"900,58016086906 ",.02)
  1. ;;58016086906
  1. ;;9002226.02101,"900,58016086907 ",.01)
  1. ;;58016086907
  1. ;;9002226.02101,"900,58016086907 ",.02)
  1. ;;58016086907
  1. ;;9002226.02101,"900,58016086908 ",.01)
  1. ;;58016086908
  1. ;;9002226.02101,"900,58016086908 ",.02)
  1. ;;58016086908
  1. ;;9002226.02101,"900,58016086909 ",.01)
  1. ;;58016086909
  1. ;;9002226.02101,"900,58016086909 ",.02)
  1. ;;58016086909
  1. ;;9002226.02101,"900,58016086910 ",.01)
  1. ;;58016086910
  1. ;;9002226.02101,"900,58016086910 ",.02)
  1. ;;58016086910
  1. ;;9002226.02101,"900,58016086912 ",.01)
  1. ;;58016086912
  1. ;;9002226.02101,"900,58016086912 ",.02)
  1. ;;58016086912
  1. ;;9002226.02101,"900,58016086914 ",.01)
  1. ;;58016086914
  1. ;;9002226.02101,"900,58016086914 ",.02)
  1. ;;58016086914
  1. ;;9002226.02101,"900,58016086916 ",.01)
  1. ;;58016086916
  1. ;;9002226.02101,"900,58016086916 ",.02)
  1. ;;58016086916
  1. ;;9002226.02101,"900,58016086918 ",.01)
  1. ;;58016086918
  1. ;;9002226.02101,"900,58016086918 ",.02)
  1. ;;58016086918
  1. ;;9002226.02101,"900,58016086920 ",.01)
  1. ;;58016086920
  1. ;;9002226.02101,"900,58016086920 ",.02)
  1. ;;58016086920
  1. ;;9002226.02101,"900,58016086921 ",.01)
  1. ;;58016086921
  1. ;;9002226.02101,"900,58016086921 ",.02)
  1. ;;58016086921
  1. ;;9002226.02101,"900,58016086924 ",.01)
  1. ;;58016086924
  1. ;;9002226.02101,"900,58016086924 ",.02)
  1. ;;58016086924
  1. ;;9002226.02101,"900,58016086925 ",.01)
  1. ;;58016086925
  1. ;;9002226.02101,"900,58016086925 ",.02)
  1. ;;58016086925
  1. ;;9002226.02101,"900,58016086926 ",.01)
  1. ;;58016086926
  1. ;;9002226.02101,"900,58016086926 ",.02)
  1. ;;58016086926
  1. ;;9002226.02101,"900,58016086927 ",.01)
  1. ;;58016086927
  1. ;;9002226.02101,"900,58016086927 ",.02)
  1. ;;58016086927
  1. ;;9002226.02101,"900,58016086928 ",.01)
  1. ;;58016086928
  1. ;;9002226.02101,"900,58016086928 ",.02)
  1. ;;58016086928
  1. ;;9002226.02101,"900,58016086930 ",.01)
  1. ;;58016086930
  1. ;;9002226.02101,"900,58016086930 ",.02)
  1. ;;58016086930
  1. ;;9002226.02101,"900,58016086932 ",.01)
  1. ;;58016086932
  1. ;;9002226.02101,"900,58016086932 ",.02)
  1. ;;58016086932
  1. ;;9002226.02101,"900,58016086935 ",.01)
  1. ;;58016086935
  1. ;;9002226.02101,"900,58016086935 ",.02)
  1. ;;58016086935
  1. ;;9002226.02101,"900,58016086936 ",.01)
  1. ;;58016086936
  1. ;;9002226.02101,"900,58016086936 ",.02)
  1. ;;58016086936
  1. ;;9002226.02101,"900,58016086940 ",.01)
  1. ;;58016086940
  1. ;;9002226.02101,"900,58016086940 ",.02)
  1. ;;58016086940
  1. ;;9002226.02101,"900,58016086942 ",.01)
  1. ;;58016086942
  1. ;;9002226.02101,"900,58016086942 ",.02)
  1. ;;58016086942
  1. ;;9002226.02101,"900,58016086944 ",.01)
  1. ;;58016086944
  1. ;;9002226.02101,"900,58016086944 ",.02)
  1. ;;58016086944
  1. ;;9002226.02101,"900,58016086945 ",.01)
  1. ;;58016086945
  1. ;;9002226.02101,"900,58016086945 ",.02)
  1. ;;58016086945
  1. ;;9002226.02101,"900,58016086948 ",.01)
  1. ;;58016086948
  1. ;;9002226.02101,"900,58016086948 ",.02)
  1. ;;58016086948
  1. ;;9002226.02101,"900,58016086950 ",.01)
  1. ;;58016086950
  1. ;;9002226.02101,"900,58016086950 ",.02)
  1. ;;58016086950
  1. ;;9002226.02101,"900,58016086956 ",.01)
  1. ;;58016086956
  1. ;;9002226.02101,"900,58016086956 ",.02)
  1. ;;58016086956
  1. ;;9002226.02101,"900,58016086960 ",.01)
  1. ;;58016086960
  1. ;;9002226.02101,"900,58016086960 ",.02)
  1. ;;58016086960
  1. ;;9002226.02101,"900,58016086967 ",.01)
  1. ;;58016086967
  1. ;;9002226.02101,"900,58016086967 ",.02)
  1. ;;58016086967
  1. ;;9002226.02101,"900,58016086969 ",.01)
  1. ;;58016086969
  1. ;;9002226.02101,"900,58016086969 ",.02)
  1. ;;58016086969
  1. ;;9002226.02101,"900,58016086970 ",.01)
  1. ;;58016086970
  1. ;;9002226.02101,"900,58016086970 ",.02)
  1. ;;58016086970
  1. ;;9002226.02101,"900,58016086971 ",.01)
  1. ;;58016086971
  1. ;;9002226.02101,"900,58016086971 ",.02)
  1. ;;58016086971
  1. ;;9002226.02101,"900,58016086972 ",.01)
  1. ;;58016086972
  1. ;;9002226.02101,"900,58016086972 ",.02)
  1. ;;58016086972
  1. ;;9002226.02101,"900,58016086973 ",.01)
  1. ;;58016086973
  1. ;;9002226.02101,"900,58016086973 ",.02)
  1. ;;58016086973
  1. ;;9002226.02101,"900,58016086975 ",.01)
  1. ;;58016086975
  1. ;;9002226.02101,"900,58016086975 ",.02)
  1. ;;58016086975
  1. ;;9002226.02101,"900,58016086976 ",.01)
  1. ;;58016086976
  1. ;;9002226.02101,"900,58016086976 ",.02)
  1. ;;58016086976
  1. ;;9002226.02101,"900,58016086977 ",.01)
  1. ;;58016086977
  1. ;;9002226.02101,"900,58016086977 ",.02)
  1. ;;58016086977
  1. ;;9002226.02101,"900,58016086979 ",.01)
  1. ;;58016086979
  1. ;;9002226.02101,"900,58016086979 ",.02)
  1. ;;58016086979
  1. ;;9002226.02101,"900,58016086980 ",.01)
  1. ;;58016086980
  1. ;;9002226.02101,"900,58016086980 ",.02)
  1. ;;58016086980
  1. ;;9002226.02101,"900,58016086981 ",.01)
  1. ;;58016086981
  1. ;;9002226.02101,"900,58016086981 ",.02)
  1. ;;58016086981
  1. ;;9002226.02101,"900,58016086982 ",.01)
  1. ;;58016086982
  1. ;;9002226.02101,"900,58016086982 ",.02)
  1. ;;58016086982
  1. ;;9002226.02101,"900,58016086983 ",.01)
  1. ;;58016086983
  1. ;;9002226.02101,"900,58016086983 ",.02)
  1. ;;58016086983
  1. ;;9002226.02101,"900,58016086984 ",.01)
  1. ;;58016086984
  1. ;;9002226.02101,"900,58016086984 ",.02)
  1. ;;58016086984
  1. ;;9002226.02101,"900,58016086987 ",.01)
  1. ;;58016086987
  1. ;;9002226.02101,"900,58016086987 ",.02)
  1. ;;58016086987
  1. ;;9002226.02101,"900,58016086989 ",.01)
  1. ;;58016086989
  1. ;;9002226.02101,"900,58016086989 ",.02)
  1. ;;58016086989
  1. ;;9002226.02101,"900,58016086990 ",.01)
  1. ;;58016086990
  1. ;;9002226.02101,"900,58016086990 ",.02)
  1. ;;58016086990
  1. ;;9002226.02101,"900,58016086991 ",.01)
  1. ;;58016086991
  1. ;;9002226.02101,"900,58016086991 ",.02)
  1. ;;58016086991
  1. ;;9002226.02101,"900,58016086992 ",.01)
  1. ;;58016086992
  1. ;;9002226.02101,"900,58016086992 ",.02)
  1. ;;58016086992
  1. ;;9002226.02101,"900,58016086993 ",.01)
  1. ;;58016086993
  1. ;;9002226.02101,"900,58016086993 ",.02)
  1. ;;58016086993
  1. ;;9002226.02101,"900,58016086996 ",.01)
  1. ;;58016086996
  1. ;;9002226.02101,"900,58016086996 ",.02)
  1. ;;58016086996
  1. ;;9002226.02101,"900,58016086997 ",.01)
  1. ;;58016086997
  1. ;;9002226.02101,"900,58016086997 ",.02)
  1. ;;58016086997
  1. ;;9002226.02101,"900,58016086998 ",.01)
  1. ;;58016086998
  1. ;;9002226.02101,"900,58016086998 ",.02)
  1. ;;58016086998
  1. ;;9002226.02101,"900,58016086999 ",.01)
  1. ;;58016086999
  1. ;;9002226.02101,"900,58016086999 ",.02)
  1. ;;58016086999
  1. ;;9002226.02101,"900,58016087400 ",.01)
  1. ;;58016087400
  1. ;;9002226.02101,"900,58016087400 ",.02)
  1. ;;58016087400
  1. ;;9002226.02101,"900,58016087401 ",.01)
  1. ;;58016087401
  1. ;;9002226.02101,"900,58016087401 ",.02)
  1. ;;58016087401
  1. ;;9002226.02101,"900,58016087402 ",.01)
  1. ;;58016087402
  1. ;;9002226.02101,"900,58016087402 ",.02)
  1. ;;58016087402
  1. ;;9002226.02101,"900,58016087403 ",.01)
  1. ;;58016087403
  1. ;;9002226.02101,"900,58016087403 ",.02)
  1. ;;58016087403
  1. ;;9002226.02101,"900,58016087404 ",.01)
  1. ;;58016087404
  1. ;;9002226.02101,"900,58016087404 ",.02)
  1. ;;58016087404
  1. ;;9002226.02101,"900,58016087405 ",.01)
  1. ;;58016087405
  1. ;;9002226.02101,"900,58016087405 ",.02)
  1. ;;58016087405
  1. ;;9002226.02101,"900,58016087406 ",.01)
  1. ;;58016087406
  1. ;;9002226.02101,"900,58016087406 ",.02)
  1. ;;58016087406
  1. ;;9002226.02101,"900,58016087407 ",.01)
  1. ;;58016087407
  1. ;;9002226.02101,"900,58016087407 ",.02)
  1. ;;58016087407
  1. ;;9002226.02101,"900,58016087408 ",.01)
  1. ;;58016087408
  1. ;;9002226.02101,"900,58016087408 ",.02)
  1. ;;58016087408
  1. ;;9002226.02101,"900,58016087409 ",.01)
  1. ;;58016087409
  1. ;;9002226.02101,"900,58016087409 ",.02)
  1. ;;58016087409
  1. ;;9002226.02101,"900,58016087410 ",.01)
  1. ;;58016087410
  1. ;;9002226.02101,"900,58016087410 ",.02)
  1. ;;58016087410
  1. ;;9002226.02101,"900,58016087412 ",.01)
  1. ;;58016087412
  1. ;;9002226.02101,"900,58016087412 ",.02)
  1. ;;58016087412
  1. ;;9002226.02101,"900,58016087414 ",.01)
  1. ;;58016087414
  1. ;;9002226.02101,"900,58016087414 ",.02)
  1. ;;58016087414
  1. ;;9002226.02101,"900,58016087415 ",.01)
  1. ;;58016087415
  1. ;;9002226.02101,"900,58016087415 ",.02)
  1. ;;58016087415
  1. ;;9002226.02101,"900,58016087416 ",.01)
  1. ;;58016087416
  1. ;;9002226.02101,"900,58016087416 ",.02)
  1. ;;58016087416
  1. ;;9002226.02101,"900,58016087418 ",.01)
  1. ;;58016087418
  1. ;;9002226.02101,"900,58016087418 ",.02)
  1. ;;58016087418
  1. ;;9002226.02101,"900,58016087420 ",.01)
  1. ;;58016087420
  1. ;;9002226.02101,"900,58016087420 ",.02)
  1. ;;58016087420
  1. ;;9002226.02101,"900,58016087421 ",.01)
  1. ;;58016087421
  1. ;;9002226.02101,"900,58016087421 ",.02)
  1. ;;58016087421
  1. ;;9002226.02101,"900,58016087424 ",.01)
  1. ;;58016087424
  1. ;;9002226.02101,"900,58016087424 ",.02)
  1. ;;58016087424
  1. ;;9002226.02101,"900,58016087425 ",.01)
  1. ;;58016087425
  1. ;;9002226.02101,"900,58016087425 ",.02)
  1. ;;58016087425
  1. ;;9002226.02101,"900,58016087426 ",.01)
  1. ;;58016087426
  1. ;;9002226.02101,"900,58016087426 ",.02)
  1. ;;58016087426
  1. ;;9002226.02101,"900,58016087427 ",.01)
  1. ;;58016087427
  1. ;;9002226.02101,"900,58016087427 ",.02)
  1. ;;58016087427
  1. ;;9002226.02101,"900,58016087428 ",.01)
  1. ;;58016087428
  1. ;;9002226.02101,"900,58016087428 ",.02)
  1. ;;58016087428
  1. ;;9002226.02101,"900,58016087430 ",.01)
  1. ;;58016087430
  1. ;;9002226.02101,"900,58016087430 ",.02)
  1. ;;58016087430
  1. ;;9002226.02101,"900,58016087432 ",.01)
  1. ;;58016087432
  1. ;;9002226.02101,"900,58016087432 ",.02)
  1. ;;58016087432
  1. ;;9002226.02101,"900,58016087435 ",.01)
  1. ;;58016087435
  1. ;;9002226.02101,"900,58016087435 ",.02)
  1. ;;58016087435
  1. ;;9002226.02101,"900,58016087436 ",.01)
  1. ;;58016087436
  1. ;;9002226.02101,"900,58016087436 ",.02)
  1. ;;58016087436
  1. ;;9002226.02101,"900,58016087440 ",.01)
  1. ;;58016087440
  1. ;;9002226.02101,"900,58016087440 ",.02)
  1. ;;58016087440
  1. ;;9002226.02101,"900,58016087442 ",.01)
  1. ;;58016087442
  1. ;;9002226.02101,"900,58016087442 ",.02)
  1. ;;58016087442
  1. ;;9002226.02101,"900,58016087444 ",.01)
  1. ;;58016087444
  1. ;;9002226.02101,"900,58016087444 ",.02)
  1. ;;58016087444
  1. ;;9002226.02101,"900,58016087445 ",.01)
  1. ;;58016087445
  1. ;;9002226.02101,"900,58016087445 ",.02)
  1. ;;58016087445
  1. ;;9002226.02101,"900,58016087448 ",.01)
  1. ;;58016087448
  1. ;;9002226.02101,"900,58016087448 ",.02)
  1. ;;58016087448
  1. ;;9002226.02101,"900,58016087450 ",.01)
  1. ;;58016087450
  1. ;;9002226.02101,"900,58016087450 ",.02)
  1. ;;58016087450
  1. ;;9002226.02101,"900,58016087456 ",.01)
  1. ;;58016087456
  1. ;;9002226.02101,"900,58016087456 ",.02)
  1. ;;58016087456
  1. ;;9002226.02101,"900,58016087460 ",.01)
  1. ;;58016087460
  1. ;;9002226.02101,"900,58016087460 ",.02)
  1. ;;58016087460
  1. ;;9002226.02101,"900,58016087467 ",.01)
  1. ;;58016087467
  1. ;;9002226.02101,"900,58016087467 ",.02)
  1. ;;58016087467
  1. ;;9002226.02101,"900,58016087469 ",.01)
  1. ;;58016087469
  1. ;;9002226.02101,"900,58016087469 ",.02)
  1. ;;58016087469
  1. ;;9002226.02101,"900,58016087470 ",.01)
  1. ;;58016087470
  1. ;;9002226.02101,"900,58016087470 ",.02)
  1. ;;58016087470
  1. ;;9002226.02101,"900,58016087471 ",.01)
  1. ;;58016087471
  1. ;;9002226.02101,"900,58016087471 ",.02)
  1. ;;58016087471
  1. ;;9002226.02101,"900,58016087472 ",.01)
  1. ;;58016087472
  1. ;;9002226.02101,"900,58016087472 ",.02)
  1. ;;58016087472
  1. ;;9002226.02101,"900,58016087473 ",.01)
  1. ;;58016087473
  1. ;;9002226.02101,"900,58016087473 ",.02)
  1. ;;58016087473
  1. ;;9002226.02101,"900,58016087475 ",.01)
  1. ;;58016087475
  1. ;;9002226.02101,"900,58016087475 ",.02)
  1. ;;58016087475
  1. ;;9002226.02101,"900,58016087476 ",.01)
  1. ;;58016087476
  1. ;;9002226.02101,"900,58016087476 ",.02)
  1. ;;58016087476
  1. ;;9002226.02101,"900,58016087477 ",.01)
  1. ;;58016087477
  1. ;;9002226.02101,"900,58016087477 ",.02)
  1. ;;58016087477
  1. ;;9002226.02101,"900,58016087479 ",.01)
  1. ;;58016087479
  1. ;;9002226.02101,"900,58016087479 ",.02)
  1. ;;58016087479