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

BGPM5AMC.m

Go to the documentation of this file.
  1. BGPM5AMC ;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,58016097916 ",.01)
  1. ;;58016097916
  1. ;;9002226.02101,"900,58016097916 ",.02)
  1. ;;58016097916
  1. ;;9002226.02101,"900,58016097918 ",.01)
  1. ;;58016097918
  1. ;;9002226.02101,"900,58016097918 ",.02)
  1. ;;58016097918
  1. ;;9002226.02101,"900,58016097920 ",.01)
  1. ;;58016097920
  1. ;;9002226.02101,"900,58016097920 ",.02)
  1. ;;58016097920
  1. ;;9002226.02101,"900,58016097921 ",.01)
  1. ;;58016097921
  1. ;;9002226.02101,"900,58016097921 ",.02)
  1. ;;58016097921
  1. ;;9002226.02101,"900,58016097924 ",.01)
  1. ;;58016097924
  1. ;;9002226.02101,"900,58016097924 ",.02)
  1. ;;58016097924
  1. ;;9002226.02101,"900,58016097925 ",.01)
  1. ;;58016097925
  1. ;;9002226.02101,"900,58016097925 ",.02)
  1. ;;58016097925
  1. ;;9002226.02101,"900,58016097926 ",.01)
  1. ;;58016097926
  1. ;;9002226.02101,"900,58016097926 ",.02)
  1. ;;58016097926
  1. ;;9002226.02101,"900,58016097928 ",.01)
  1. ;;58016097928
  1. ;;9002226.02101,"900,58016097928 ",.02)
  1. ;;58016097928
  1. ;;9002226.02101,"900,58016097930 ",.01)
  1. ;;58016097930
  1. ;;9002226.02101,"900,58016097930 ",.02)
  1. ;;58016097930
  1. ;;9002226.02101,"900,58016097932 ",.01)
  1. ;;58016097932
  1. ;;9002226.02101,"900,58016097932 ",.02)
  1. ;;58016097932
  1. ;;9002226.02101,"900,58016097935 ",.01)
  1. ;;58016097935
  1. ;;9002226.02101,"900,58016097935 ",.02)
  1. ;;58016097935
  1. ;;9002226.02101,"900,58016097936 ",.01)
  1. ;;58016097936
  1. ;;9002226.02101,"900,58016097936 ",.02)
  1. ;;58016097936
  1. ;;9002226.02101,"900,58016097940 ",.01)
  1. ;;58016097940
  1. ;;9002226.02101,"900,58016097940 ",.02)
  1. ;;58016097940
  1. ;;9002226.02101,"900,58016097942 ",.01)
  1. ;;58016097942
  1. ;;9002226.02101,"900,58016097942 ",.02)
  1. ;;58016097942
  1. ;;9002226.02101,"900,58016097944 ",.01)
  1. ;;58016097944
  1. ;;9002226.02101,"900,58016097944 ",.02)
  1. ;;58016097944
  1. ;;9002226.02101,"900,58016097945 ",.01)
  1. ;;58016097945
  1. ;;9002226.02101,"900,58016097945 ",.02)
  1. ;;58016097945
  1. ;;9002226.02101,"900,58016097948 ",.01)
  1. ;;58016097948
  1. ;;9002226.02101,"900,58016097948 ",.02)
  1. ;;58016097948
  1. ;;9002226.02101,"900,58016097950 ",.01)
  1. ;;58016097950
  1. ;;9002226.02101,"900,58016097950 ",.02)
  1. ;;58016097950
  1. ;;9002226.02101,"900,58016097956 ",.01)
  1. ;;58016097956
  1. ;;9002226.02101,"900,58016097956 ",.02)
  1. ;;58016097956
  1. ;;9002226.02101,"900,58016097960 ",.01)
  1. ;;58016097960
  1. ;;9002226.02101,"900,58016097960 ",.02)
  1. ;;58016097960
  1. ;;9002226.02101,"900,58016097967 ",.01)
  1. ;;58016097967
  1. ;;9002226.02101,"900,58016097967 ",.02)
  1. ;;58016097967
  1. ;;9002226.02101,"900,58016097969 ",.01)
  1. ;;58016097969
  1. ;;9002226.02101,"900,58016097969 ",.02)
  1. ;;58016097969
  1. ;;9002226.02101,"900,58016097970 ",.01)
  1. ;;58016097970
  1. ;;9002226.02101,"900,58016097970 ",.02)
  1. ;;58016097970
  1. ;;9002226.02101,"900,58016097971 ",.01)
  1. ;;58016097971
  1. ;;9002226.02101,"900,58016097971 ",.02)
  1. ;;58016097971
  1. ;;9002226.02101,"900,58016097972 ",.01)
  1. ;;58016097972
  1. ;;9002226.02101,"900,58016097972 ",.02)
  1. ;;58016097972
  1. ;;9002226.02101,"900,58016097973 ",.01)
  1. ;;58016097973
  1. ;;9002226.02101,"900,58016097973 ",.02)
  1. ;;58016097973
  1. ;;9002226.02101,"900,58016097975 ",.01)
  1. ;;58016097975
  1. ;;9002226.02101,"900,58016097975 ",.02)
  1. ;;58016097975
  1. ;;9002226.02101,"900,58016097976 ",.01)
  1. ;;58016097976
  1. ;;9002226.02101,"900,58016097976 ",.02)
  1. ;;58016097976
  1. ;;9002226.02101,"900,58016097977 ",.01)
  1. ;;58016097977
  1. ;;9002226.02101,"900,58016097977 ",.02)
  1. ;;58016097977
  1. ;;9002226.02101,"900,58016097979 ",.01)
  1. ;;58016097979
  1. ;;9002226.02101,"900,58016097979 ",.02)
  1. ;;58016097979
  1. ;;9002226.02101,"900,58016097980 ",.01)
  1. ;;58016097980
  1. ;;9002226.02101,"900,58016097980 ",.02)
  1. ;;58016097980
  1. ;;9002226.02101,"900,58016097981 ",.01)
  1. ;;58016097981
  1. ;;9002226.02101,"900,58016097981 ",.02)
  1. ;;58016097981
  1. ;;9002226.02101,"900,58016097982 ",.01)
  1. ;;58016097982
  1. ;;9002226.02101,"900,58016097982 ",.02)
  1. ;;58016097982
  1. ;;9002226.02101,"900,58016097983 ",.01)
  1. ;;58016097983
  1. ;;9002226.02101,"900,58016097983 ",.02)
  1. ;;58016097983
  1. ;;9002226.02101,"900,58016097984 ",.01)
  1. ;;58016097984
  1. ;;9002226.02101,"900,58016097984 ",.02)
  1. ;;58016097984
  1. ;;9002226.02101,"900,58016097987 ",.01)
  1. ;;58016097987
  1. ;;9002226.02101,"900,58016097987 ",.02)
  1. ;;58016097987
  1. ;;9002226.02101,"900,58016097989 ",.01)
  1. ;;58016097989
  1. ;;9002226.02101,"900,58016097989 ",.02)
  1. ;;58016097989
  1. ;;9002226.02101,"900,58016097990 ",.01)
  1. ;;58016097990
  1. ;;9002226.02101,"900,58016097990 ",.02)
  1. ;;58016097990
  1. ;;9002226.02101,"900,58016097991 ",.01)
  1. ;;58016097991
  1. ;;9002226.02101,"900,58016097991 ",.02)
  1. ;;58016097991
  1. ;;9002226.02101,"900,58016097992 ",.01)
  1. ;;58016097992
  1. ;;9002226.02101,"900,58016097992 ",.02)
  1. ;;58016097992
  1. ;;9002226.02101,"900,58016097993 ",.01)
  1. ;;58016097993
  1. ;;9002226.02101,"900,58016097993 ",.02)
  1. ;;58016097993
  1. ;;9002226.02101,"900,58016097996 ",.01)
  1. ;;58016097996
  1. ;;9002226.02101,"900,58016097996 ",.02)
  1. ;;58016097996
  1. ;;9002226.02101,"900,58016097997 ",.01)
  1. ;;58016097997
  1. ;;9002226.02101,"900,58016097997 ",.02)
  1. ;;58016097997
  1. ;;9002226.02101,"900,58016097998 ",.01)
  1. ;;58016097998
  1. ;;9002226.02101,"900,58016097998 ",.02)
  1. ;;58016097998
  1. ;;9002226.02101,"900,58016097999 ",.01)
  1. ;;58016097999
  1. ;;9002226.02101,"900,58016097999 ",.02)
  1. ;;58016097999
  1. ;;9002226.02101,"900,58016906601 ",.01)
  1. ;;58016906601
  1. ;;9002226.02101,"900,58016906601 ",.02)
  1. ;;58016906601
  1. ;;9002226.02101,"900,58016911101 ",.01)
  1. ;;58016911101
  1. ;;9002226.02101,"900,58016911101 ",.02)
  1. ;;58016911101
  1. ;;9002226.02101,"900,58864060830 ",.01)
  1. ;;58864060830
  1. ;;9002226.02101,"900,58864060830 ",.02)
  1. ;;58864060830
  1. ;;9002226.02101,"900,58864062315 ",.01)
  1. ;;58864062315
  1. ;;9002226.02101,"900,58864062315 ",.02)
  1. ;;58864062315
  1. ;;9002226.02101,"900,58864062330 ",.01)
  1. ;;58864062330
  1. ;;9002226.02101,"900,58864062330 ",.02)
  1. ;;58864062330
  1. ;;9002226.02101,"900,58864068230 ",.01)
  1. ;;58864068230
  1. ;;9002226.02101,"900,58864068230 ",.02)
  1. ;;58864068230
  1. ;;9002226.02101,"900,58864068530 ",.01)
  1. ;;58864068530
  1. ;;9002226.02101,"900,58864068530 ",.02)
  1. ;;58864068530
  1. ;;9002226.02101,"900,58864071060 ",.01)
  1. ;;58864071060
  1. ;;9002226.02101,"900,58864071060 ",.02)
  1. ;;58864071060
  1. ;;9002226.02101,"900,58864073930 ",.01)
  1. ;;58864073930
  1. ;;9002226.02101,"900,58864073930 ",.02)
  1. ;;58864073930
  1. ;;9002226.02101,"900,58864076030 ",.01)
  1. ;;58864076030
  1. ;;9002226.02101,"900,58864076030 ",.02)
  1. ;;58864076030
  1. ;;9002226.02101,"900,58864078030 ",.01)
  1. ;;58864078030
  1. ;;9002226.02101,"900,58864078030 ",.02)
  1. ;;58864078030
  1. ;;9002226.02101,"900,58864078060 ",.01)
  1. ;;58864078060
  1. ;;9002226.02101,"900,58864078060 ",.02)
  1. ;;58864078060
  1. ;;9002226.02101,"900,58864078130 ",.01)
  1. ;;58864078130
  1. ;;9002226.02101,"900,58864078130 ",.02)
  1. ;;58864078130
  1. ;;9002226.02101,"900,58864083430 ",.01)
  1. ;;58864083430
  1. ;;9002226.02101,"900,58864083430 ",.02)
  1. ;;58864083430
  1. ;;9002226.02101,"900,58864088930 ",.01)
  1. ;;58864088930
  1. ;;9002226.02101,"900,58864088930 ",.02)
  1. ;;58864088930
  1. ;;9002226.02101,"900,59115009433 ",.01)
  1. ;;59115009433
  1. ;;9002226.02101,"900,59115009433 ",.02)
  1. ;;59115009433
  1. ;;9002226.02101,"900,59115009455 ",.01)
  1. ;;59115009455
  1. ;;9002226.02101,"900,59115009455 ",.02)
  1. ;;59115009455
  1. ;;9002226.02101,"900,59115009460 ",.01)
  1. ;;59115009460
  1. ;;9002226.02101,"900,59115009460 ",.02)
  1. ;;59115009460
  1. ;;9002226.02101,"900,59630048007 ",.01)
  1. ;;59630048007
  1. ;;9002226.02101,"900,59630048007 ",.02)
  1. ;;59630048007
  1. ;;9002226.02101,"900,59630048030 ",.01)
  1. ;;59630048030
  1. ;;9002226.02101,"900,59630048030 ",.02)
  1. ;;59630048030
  1. ;;9002226.02101,"900,59630048090 ",.01)
  1. ;;59630048090
  1. ;;9002226.02101,"900,59630048090 ",.02)
  1. ;;59630048090
  1. ;;9002226.02101,"900,59630048530 ",.01)
  1. ;;59630048530
  1. ;;9002226.02101,"900,59630048530 ",.02)
  1. ;;59630048530
  1. ;;9002226.02101,"900,59630048577 ",.01)
  1. ;;59630048577
  1. ;;9002226.02101,"900,59630048577 ",.02)
  1. ;;59630048577
  1. ;;9002226.02101,"900,59630048590 ",.01)
  1. ;;59630048590
  1. ;;9002226.02101,"900,59630048590 ",.02)
  1. ;;59630048590
  1. ;;9002226.02101,"900,59630063030 ",.01)
  1. ;;59630063030
  1. ;;9002226.02101,"900,59630063030 ",.02)
  1. ;;59630063030
  1. ;;9002226.02101,"900,59772558501 ",.01)
  1. ;;59772558501
  1. ;;9002226.02101,"900,59772558501 ",.02)
  1. ;;59772558501
  1. ;;9002226.02101,"900,59772558901 ",.01)
  1. ;;59772558901
  1. ;;9002226.02101,"900,59772558901 ",.02)
  1. ;;59772558901
  1. ;;9002226.02101,"900,59772558902 ",.01)
  1. ;;59772558902
  1. ;;9002226.02101,"900,59772558902 ",.02)
  1. ;;59772558902
  1. ;;9002226.02101,"900,60312031131 ",.01)
  1. ;;60312031131
  1. ;;9002226.02101,"900,60312031131 ",.02)
  1. ;;60312031131
  1. ;;9002226.02101,"900,60312072601 ",.01)
  1. ;;60312072601
  1. ;;9002226.02101,"900,60312072601 ",.02)
  1. ;;60312072601
  1. ;;9002226.02101,"900,60312073501 ",.01)
  1. ;;60312073501
  1. ;;9002226.02101,"900,60312073501 ",.02)
  1. ;;60312073501
  1. ;;9002226.02101,"900,60312073502 ",.01)
  1. ;;60312073502
  1. ;;9002226.02101,"900,60312073502 ",.02)
  1. ;;60312073502
  1. ;;9002226.02101,"900,60312074001 ",.01)
  1. ;;60312074001
  1. ;;9002226.02101,"900,60312074001 ",.02)
  1. ;;60312074001
  1. ;;9002226.02101,"900,60312074002 ",.01)
  1. ;;60312074002
  1. ;;9002226.02101,"900,60312074002 ",.02)
  1. ;;60312074002
  1. ;;9002226.02101,"900,60312074003 ",.01)
  1. ;;60312074003
  1. ;;9002226.02101,"900,60312074003 ",.02)
  1. ;;60312074003
  1. ;;9002226.02101,"900,60312074901 ",.01)
  1. ;;60312074901
  1. ;;9002226.02101,"900,60312074901 ",.02)
  1. ;;60312074901
  1. ;;9002226.02101,"900,60312074902 ",.01)
  1. ;;60312074902
  1. ;;9002226.02101,"900,60312074902 ",.02)
  1. ;;60312074902
  1. ;;9002226.02101,"900,60312074903 ",.01)
  1. ;;60312074903
  1. ;;9002226.02101,"900,60312074903 ",.02)
  1. ;;60312074903
  1. ;;9002226.02101,"900,60429008105 ",.01)
  1. ;;60429008105
  1. ;;9002226.02101,"900,60429008105 ",.02)
  1. ;;60429008105
  1. ;;9002226.02101,"900,60429008118 ",.01)
  1. ;;60429008118
  1. ;;9002226.02101,"900,60429008118 ",.02)
  1. ;;60429008118
  1. ;;9002226.02101,"900,60429008160 ",.01)
  1. ;;60429008160
  1. ;;9002226.02101,"900,60429008160 ",.02)
  1. ;;60429008160
  1. ;;9002226.02101,"900,60429024810 ",.01)
  1. ;;60429024810
  1. ;;9002226.02101,"900,60429024810 ",.02)
  1. ;;60429024810
  1. ;;9002226.02101,"900,60429024860 ",.01)
  1. ;;60429024860
  1. ;;9002226.02101,"900,60429024860 ",.02)
  1. ;;60429024860
  1. ;;9002226.02101,"900,60429024910 ",.01)
  1. ;;60429024910
  1. ;;9002226.02101,"900,60429024910 ",.02)
  1. ;;60429024910
  1. ;;9002226.02101,"900,60429024960 ",.01)
  1. ;;60429024960
  1. ;;9002226.02101,"900,60429024960 ",.02)
  1. ;;60429024960
  1. ;;9002226.02101,"900,60429025010 ",.01)
  1. ;;60429025010
  1. ;;9002226.02101,"900,60429025010 ",.02)
  1. ;;60429025010
  1. ;;9002226.02101,"900,60429025060 ",.01)
  1. ;;60429025060
  1. ;;9002226.02101,"900,60429025060 ",.02)
  1. ;;60429025060
  1. ;;9002226.02101,"900,60429025090 ",.01)
  1. ;;60429025090
  1. ;;9002226.02101,"900,60429025090 ",.02)
  1. ;;60429025090
  1. ;;9002226.02101,"900,60491035530 ",.01)
  1. ;;60491035530
  1. ;;9002226.02101,"900,60491035530 ",.02)
  1. ;;60491035530
  1. ;;9002226.02101,"900,60491035534 ",.01)
  1. ;;60491035534
  1. ;;9002226.02101,"900,60491035534 ",.02)
  1. ;;60491035534
  1. ;;9002226.02101,"900,60491035630 ",.01)
  1. ;;60491035630
  1. ;;9002226.02101,"900,60491035630 ",.02)
  1. ;;60491035630
  1. ;;9002226.02101,"900,60491035634 ",.01)
  1. ;;60491035634
  1. ;;9002226.02101,"900,60491035634 ",.02)
  1. ;;60491035634
  1. ;;9002226.02101,"900,60491040530 ",.01)
  1. ;;60491040530
  1. ;;9002226.02101,"900,60491040530 ",.02)
  1. ;;60491040530
  1. ;;9002226.02101,"900,60491040534 ",.01)
  1. ;;60491040534
  1. ;;9002226.02101,"900,60491040534 ",.02)
  1. ;;60491040534
  1. ;;9002226.02101,"900,60491040560 ",.01)
  1. ;;60491040560
  1. ;;9002226.02101,"900,60491040560 ",.02)
  1. ;;60491040560
  1. ;;9002226.02101,"900,60491040630 ",.01)
  1. ;;60491040630
  1. ;;9002226.02101,"900,60491040630 ",.02)
  1. ;;60491040630
  1. ;;9002226.02101,"900,60491040631 ",.01)
  1. ;;60491040631
  1. ;;9002226.02101,"900,60491040631 ",.02)
  1. ;;60491040631