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