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