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

BGPM3ACY.m

Go to the documentation of this file.
BGPM3ACY ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"786,51660079390 ",.02)
 ;;51660079390
 ;;9002226.02101,"786,52297001778 ",.01)
 ;;52297001778
 ;;9002226.02101,"786,52297001778 ",.02)
 ;;52297001778
 ;;9002226.02101,"786,52297052278 ",.01)
 ;;52297052278
 ;;9002226.02101,"786,52297052278 ",.02)
 ;;52297052278
 ;;9002226.02101,"786,52544045405 ",.01)
 ;;52544045405
 ;;9002226.02101,"786,52544045405 ",.02)
 ;;52544045405
 ;;9002226.02101,"786,52544045460 ",.01)
 ;;52544045460
 ;;9002226.02101,"786,52544045460 ",.02)
 ;;52544045460
 ;;9002226.02101,"786,52555011101 ",.01)
 ;;52555011101
 ;;9002226.02101,"786,52555011101 ",.02)
 ;;52555011101
 ;;9002226.02101,"786,52555063405 ",.01)
 ;;52555063405
 ;;9002226.02101,"786,52555063405 ",.02)
 ;;52555063405
 ;;9002226.02101,"786,52555063460 ",.01)
 ;;52555063460
 ;;9002226.02101,"786,52555063460 ",.02)
 ;;52555063460
 ;;9002226.02101,"786,52604554501 ",.01)
 ;;52604554501
 ;;9002226.02101,"786,52604554501 ",.02)
 ;;52604554501
 ;;9002226.02101,"786,52735007601 ",.01)
 ;;52735007601
 ;;9002226.02101,"786,52735007601 ",.02)
 ;;52735007601
 ;;9002226.02101,"786,52959072030 ",.01)
 ;;52959072030
 ;;9002226.02101,"786,52959072030 ",.02)
 ;;52959072030
 ;;9002226.02101,"786,52959093730 ",.01)
 ;;52959093730
 ;;9002226.02101,"786,52959093730 ",.02)
 ;;52959093730
 ;;9002226.02101,"786,52959094430 ",.01)
 ;;52959094430
 ;;9002226.02101,"786,52959094430 ",.02)
 ;;52959094430
 ;;9002226.02101,"786,52959098830 ",.01)
 ;;52959098830
 ;;9002226.02101,"786,52959098830 ",.02)
 ;;52959098830
 ;;9002226.02101,"786,52959098930 ",.01)
 ;;52959098930
 ;;9002226.02101,"786,52959098930 ",.02)
 ;;52959098930
 ;;9002226.02101,"786,53261058003 ",.01)
 ;;53261058003
 ;;9002226.02101,"786,53261058003 ",.02)
 ;;53261058003
 ;;9002226.02101,"786,53261058004 ",.01)
 ;;53261058004
 ;;9002226.02101,"786,53261058004 ",.02)
 ;;53261058004
 ;;9002226.02101,"786,53489060701 ",.01)
 ;;53489060701
 ;;9002226.02101,"786,53489060701 ",.02)
 ;;53489060701
 ;;9002226.02101,"786,53489060703 ",.01)
 ;;53489060703
 ;;9002226.02101,"786,53489060703 ",.02)
 ;;53489060703
 ;;9002226.02101,"786,53489060705 ",.01)
 ;;53489060705
 ;;9002226.02101,"786,53489060705 ",.02)
 ;;53489060705
 ;;9002226.02101,"786,53489060706 ",.01)
 ;;53489060706
 ;;9002226.02101,"786,53489060706 ",.02)
 ;;53489060706
 ;;9002226.02101,"786,53489060707 ",.01)
 ;;53489060707
 ;;9002226.02101,"786,53489060707 ",.02)
 ;;53489060707
 ;;9002226.02101,"786,53489060710 ",.01)
 ;;53489060710
 ;;9002226.02101,"786,53489060710 ",.02)
 ;;53489060710
 ;;9002226.02101,"786,53489060801 ",.01)
 ;;53489060801
 ;;9002226.02101,"786,53489060801 ",.02)
 ;;53489060801
 ;;9002226.02101,"786,53489060803 ",.01)
 ;;53489060803
 ;;9002226.02101,"786,53489060803 ",.02)
 ;;53489060803
 ;;9002226.02101,"786,53489060805 ",.01)
 ;;53489060805
 ;;9002226.02101,"786,53489060805 ",.02)
 ;;53489060805
 ;;9002226.02101,"786,53489060806 ",.01)
 ;;53489060806
 ;;9002226.02101,"786,53489060806 ",.02)
 ;;53489060806
 ;;9002226.02101,"786,53489060807 ",.01)
 ;;53489060807
 ;;9002226.02101,"786,53489060807 ",.02)
 ;;53489060807
 ;;9002226.02101,"786,53489060810 ",.01)
 ;;53489060810
 ;;9002226.02101,"786,53489060810 ",.02)
 ;;53489060810
 ;;9002226.02101,"786,53489060901 ",.01)
 ;;53489060901
 ;;9002226.02101,"786,53489060901 ",.02)
 ;;53489060901
 ;;9002226.02101,"786,53489060903 ",.01)
 ;;53489060903
 ;;9002226.02101,"786,53489060903 ",.02)
 ;;53489060903
 ;;9002226.02101,"786,53489060905 ",.01)
 ;;53489060905
 ;;9002226.02101,"786,53489060905 ",.02)
 ;;53489060905
 ;;9002226.02101,"786,53489060906 ",.01)
 ;;53489060906
 ;;9002226.02101,"786,53489060906 ",.02)
 ;;53489060906
 ;;9002226.02101,"786,53489060907 ",.01)
 ;;53489060907
 ;;9002226.02101,"786,53489060907 ",.02)
 ;;53489060907
 ;;9002226.02101,"786,53489060910 ",.01)
 ;;53489060910
 ;;9002226.02101,"786,53489060910 ",.02)
 ;;53489060910
 ;;9002226.02101,"786,53489067707 ",.01)
 ;;53489067707
 ;;9002226.02101,"786,53489067707 ",.02)
 ;;53489067707
 ;;9002226.02101,"786,53489067807 ",.01)
 ;;53489067807
 ;;9002226.02101,"786,53489067807 ",.02)
 ;;53489067807
 ;;9002226.02101,"786,53489067890 ",.01)
 ;;53489067890
 ;;9002226.02101,"786,53489067890 ",.02)
 ;;53489067890
 ;;9002226.02101,"786,53808025101 ",.01)
 ;;53808025101
 ;;9002226.02101,"786,53808025101 ",.02)
 ;;53808025101
 ;;9002226.02101,"786,53808036801 ",.01)
 ;;53808036801
 ;;9002226.02101,"786,53808036801 ",.02)
 ;;53808036801
 ;;9002226.02101,"786,53808067301 ",.01)
 ;;53808067301
 ;;9002226.02101,"786,53808067301 ",.02)
 ;;53808067301
 ;;9002226.02101,"786,53808079001 ",.01)
 ;;53808079001
 ;;9002226.02101,"786,53808079001 ",.02)
 ;;53808079001
 ;;9002226.02101,"786,53808079101 ",.01)
 ;;53808079101
 ;;9002226.02101,"786,53808079101 ",.02)
 ;;53808079101
 ;;9002226.02101,"786,53808079201 ",.01)
 ;;53808079201
 ;;9002226.02101,"786,53808079201 ",.02)
 ;;53808079201
 ;;9002226.02101,"786,53808079301 ",.01)
 ;;53808079301
 ;;9002226.02101,"786,53808079301 ",.02)
 ;;53808079301
 ;;9002226.02101,"786,53808079401 ",.01)
 ;;53808079401
 ;;9002226.02101,"786,53808079401 ",.02)
 ;;53808079401
 ;;9002226.02101,"786,53816414300 ",.01)
 ;;53816414300
 ;;9002226.02101,"786,53816414300 ",.02)
 ;;53816414300
 ;;9002226.02101,"786,53869414300 ",.01)
 ;;53869414300
 ;;9002226.02101,"786,53869414300 ",.02)
 ;;53869414300
 ;;9002226.02101,"786,53869414400 ",.01)
 ;;53869414400
 ;;9002226.02101,"786,53869414400 ",.02)
 ;;53869414400
 ;;9002226.02101,"786,53869414500 ",.01)
 ;;53869414500
 ;;9002226.02101,"786,53869414500 ",.02)
 ;;53869414500
 ;;9002226.02101,"786,53869414600 ",.01)
 ;;53869414600
 ;;9002226.02101,"786,53869414600 ",.02)
 ;;53869414600
 ;;9002226.02101,"786,53869414700 ",.01)
 ;;53869414700
 ;;9002226.02101,"786,53869414700 ",.02)
 ;;53869414700
 ;;9002226.02101,"786,53869414800 ",.01)
 ;;53869414800
 ;;9002226.02101,"786,53869414800 ",.02)
 ;;53869414800
 ;;9002226.02101,"786,53869415500 ",.01)
 ;;53869415500
 ;;9002226.02101,"786,53869415500 ",.02)
 ;;53869415500
 ;;9002226.02101,"786,53869415600 ",.01)
 ;;53869415600
 ;;9002226.02101,"786,53869415600 ",.02)
 ;;53869415600
 ;;9002226.02101,"786,53978090303 ",.01)
 ;;53978090303
 ;;9002226.02101,"786,53978090303 ",.02)
 ;;53978090303
 ;;9002226.02101,"786,53978203307 ",.01)
 ;;53978203307
 ;;9002226.02101,"786,53978203307 ",.02)
 ;;53978203307
 ;;9002226.02101,"786,53978203308 ",.01)
 ;;53978203308
 ;;9002226.02101,"786,53978203308 ",.02)
 ;;53978203308
 ;;9002226.02101,"786,53978306901 ",.01)
 ;;53978306901
 ;;9002226.02101,"786,53978306901 ",.02)
 ;;53978306901
 ;;9002226.02101,"786,53978306903 ",.01)
 ;;53978306903
 ;;9002226.02101,"786,53978306903 ",.02)
 ;;53978306903
 ;;9002226.02101,"786,53978337001 ",.01)
 ;;53978337001
 ;;9002226.02101,"786,53978337001 ",.02)
 ;;53978337001
 ;;9002226.02101,"786,53978337003 ",.01)
 ;;53978337003
 ;;9002226.02101,"786,53978337003 ",.02)
 ;;53978337003
 ;;9002226.02101,"786,54421032001 ",.01)
 ;;54421032001
 ;;9002226.02101,"786,54421032001 ",.02)
 ;;54421032001
 ;;9002226.02101,"786,54429314801 ",.01)
 ;;54429314801
 ;;9002226.02101,"786,54429314801 ",.02)
 ;;54429314801
 ;;9002226.02101,"786,54441015810 ",.01)
 ;;54441015810
 ;;9002226.02101,"786,54441015810 ",.02)
 ;;54441015810
 ;;9002226.02101,"786,54441015811 ",.01)
 ;;54441015811
 ;;9002226.02101,"786,54441015811 ",.02)
 ;;54441015811
 ;;9002226.02101,"786,54441015815 ",.01)
 ;;54441015815
 ;;9002226.02101,"786,54441015815 ",.02)
 ;;54441015815
 ;;9002226.02101,"786,54441015825 ",.01)
 ;;54441015825
 ;;9002226.02101,"786,54441015825 ",.02)
 ;;54441015825
 ;;9002226.02101,"786,54441015850 ",.01)
 ;;54441015850
 ;;9002226.02101,"786,54441015850 ",.02)
 ;;54441015850
 ;;9002226.02101,"786,54458093610 ",.01)
 ;;54458093610
 ;;9002226.02101,"786,54458093610 ",.02)
 ;;54458093610
 ;;9002226.02101,"786,54458093710 ",.01)
 ;;54458093710
 ;;9002226.02101,"786,54458093710 ",.02)
 ;;54458093710
 ;;9002226.02101,"786,54458093810 ",.01)
 ;;54458093810
 ;;9002226.02101,"786,54458093810 ",.02)
 ;;54458093810
 ;;9002226.02101,"786,54458098210 ",.01)
 ;;54458098210
 ;;9002226.02101,"786,54458098210 ",.02)
 ;;54458098210
 ;;9002226.02101,"786,54458098310 ",.01)
 ;;54458098310
 ;;9002226.02101,"786,54458098310 ",.02)
 ;;54458098310
 ;;9002226.02101,"786,54458098410 ",.01)
 ;;54458098410
 ;;9002226.02101,"786,54458098410 ",.02)
 ;;54458098410
 ;;9002226.02101,"786,54569225901 ",.01)
 ;;54569225901
 ;;9002226.02101,"786,54569225901 ",.02)
 ;;54569225901
 ;;9002226.02101,"786,54569369500 ",.01)
 ;;54569369500
 ;;9002226.02101,"786,54569369500 ",.02)
 ;;54569369500
 ;;9002226.02101,"786,54569369501 ",.01)
 ;;54569369501
 ;;9002226.02101,"786,54569369501 ",.02)
 ;;54569369501
 ;;9002226.02101,"786,54569466300 ",.01)
 ;;54569466300
 ;;9002226.02101,"786,54569466300 ",.02)
 ;;54569466300
 ;;9002226.02101,"786,54569466301 ",.01)
 ;;54569466301
 ;;9002226.02101,"786,54569466301 ",.02)
 ;;54569466301
 ;;9002226.02101,"786,54569483200 ",.01)
 ;;54569483200
 ;;9002226.02101,"786,54569483200 ",.02)
 ;;54569483200
 ;;9002226.02101,"786,54569534500 ",.01)
 ;;54569534500
 ;;9002226.02101,"786,54569534500 ",.02)
 ;;54569534500
 ;;9002226.02101,"786,54569534600 ",.01)
 ;;54569534600
 ;;9002226.02101,"786,54569534600 ",.02)
 ;;54569534600
 ;;9002226.02101,"786,54569534700 ",.01)
 ;;54569534700
 ;;9002226.02101,"786,54569534700 ",.02)
 ;;54569534700
 ;;9002226.02101,"786,54569583300 ",.01)
 ;;54569583300
 ;;9002226.02101,"786,54569583300 ",.02)
 ;;54569583300
 ;;9002226.02101,"786,54569583301 ",.01)
 ;;54569583301
 ;;9002226.02101,"786,54569583301 ",.02)
 ;;54569583301
 ;;9002226.02101,"786,54569583302 ",.01)
 ;;54569583302
 ;;9002226.02101,"786,54569583302 ",.02)
 ;;54569583302
 ;;9002226.02101,"786,54569583303 ",.01)
 ;;54569583303
 ;;9002226.02101,"786,54569583303 ",.02)
 ;;54569583303
 ;;9002226.02101,"786,54569583401 ",.01)
 ;;54569583401
 ;;9002226.02101,"786,54569583401 ",.02)
 ;;54569583401
 ;;9002226.02101,"786,54569583402 ",.01)
 ;;54569583402
 ;;9002226.02101,"786,54569583402 ",.02)
 ;;54569583402
 ;;9002226.02101,"786,54569583403 ",.01)
 ;;54569583403
 ;;9002226.02101,"786,54569583403 ",.02)
 ;;54569583403
 ;;9002226.02101,"786,54569583404 ",.01)
 ;;54569583404
 ;;9002226.02101,"786,54569583404 ",.02)
 ;;54569583404
 ;;9002226.02101,"786,54569801600 ",.01)
 ;;54569801600
 ;;9002226.02101,"786,54569801600 ",.02)
 ;;54569801600
 ;;9002226.02101,"786,54569851100 ",.01)
 ;;54569851100
 ;;9002226.02101,"786,54569851100 ",.02)
 ;;54569851100
 ;;9002226.02101,"786,54569851101 ",.01)
 ;;54569851101
 ;;9002226.02101,"786,54569851101 ",.02)
 ;;54569851101
 ;;9002226.02101,"786,54629005101 ",.01)
 ;;54629005101
 ;;9002226.02101,"786,54629005101 ",.02)
 ;;54629005101
 ;;9002226.02101,"786,54629007101 ",.01)
 ;;54629007101
 ;;9002226.02101,"786,54629007101 ",.02)
 ;;54629007101
 ;;9002226.02101,"786,54868061000 ",.01)
 ;;54868061000
 ;;9002226.02101,"786,54868061000 ",.02)
 ;;54868061000
 ;;9002226.02101,"786,54868235300 ",.01)
 ;;54868235300
 ;;9002226.02101,"786,54868235300 ",.02)
 ;;54868235300
 ;;9002226.02101,"786,54868235301 ",.01)
 ;;54868235301
 ;;9002226.02101,"786,54868235301 ",.02)
 ;;54868235301
 ;;9002226.02101,"786,54868235302 ",.01)
 ;;54868235302
 ;;9002226.02101,"786,54868235302 ",.02)
 ;;54868235302
 ;;9002226.02101,"786,54868235303 ",.01)
 ;;54868235303
 ;;9002226.02101,"786,54868235303 ",.02)
 ;;54868235303
 ;;9002226.02101,"786,54868235304 ",.01)
 ;;54868235304