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

BGPM3ADV.m

Go to the documentation of this file.
BGPM3ADV ;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,"785,51660079230 ",.01)
 ;;51660079230
 ;;9002226.02101,"785,51660079230 ",.02)
 ;;51660079230
 ;;9002226.02101,"785,51660079250 ",.01)
 ;;51660079250
 ;;9002226.02101,"785,51660079250 ",.02)
 ;;51660079250
 ;;9002226.02101,"785,51660079290 ",.01)
 ;;51660079290
 ;;9002226.02101,"785,51660079290 ",.02)
 ;;51660079290
 ;;9002226.02101,"785,51660079310 ",.01)
 ;;51660079310
 ;;9002226.02101,"785,51660079310 ",.02)
 ;;51660079310
 ;;9002226.02101,"785,51660079330 ",.01)
 ;;51660079330
 ;;9002226.02101,"785,51660079330 ",.02)
 ;;51660079330
 ;;9002226.02101,"785,51660079350 ",.01)
 ;;51660079350
 ;;9002226.02101,"785,51660079350 ",.02)
 ;;51660079350
 ;;9002226.02101,"785,51660079390 ",.01)
 ;;51660079390
 ;;9002226.02101,"785,51660079390 ",.02)
 ;;51660079390
 ;;9002226.02101,"785,52959072030 ",.01)
 ;;52959072030
 ;;9002226.02101,"785,52959072030 ",.02)
 ;;52959072030
 ;;9002226.02101,"785,52959094430 ",.01)
 ;;52959094430
 ;;9002226.02101,"785,52959094430 ",.02)
 ;;52959094430
 ;;9002226.02101,"785,52959098830 ",.01)
 ;;52959098830
 ;;9002226.02101,"785,52959098830 ",.02)
 ;;52959098830
 ;;9002226.02101,"785,52959098930 ",.01)
 ;;52959098930
 ;;9002226.02101,"785,52959098930 ",.02)
 ;;52959098930
 ;;9002226.02101,"785,53489060701 ",.01)
 ;;53489060701
 ;;9002226.02101,"785,53489060701 ",.02)
 ;;53489060701
 ;;9002226.02101,"785,53489060703 ",.01)
 ;;53489060703
 ;;9002226.02101,"785,53489060703 ",.02)
 ;;53489060703
 ;;9002226.02101,"785,53489060705 ",.01)
 ;;53489060705
 ;;9002226.02101,"785,53489060705 ",.02)
 ;;53489060705
 ;;9002226.02101,"785,53489060706 ",.01)
 ;;53489060706
 ;;9002226.02101,"785,53489060706 ",.02)
 ;;53489060706
 ;;9002226.02101,"785,53489060707 ",.01)
 ;;53489060707
 ;;9002226.02101,"785,53489060707 ",.02)
 ;;53489060707
 ;;9002226.02101,"785,53489060710 ",.01)
 ;;53489060710
 ;;9002226.02101,"785,53489060710 ",.02)
 ;;53489060710
 ;;9002226.02101,"785,53489060801 ",.01)
 ;;53489060801
 ;;9002226.02101,"785,53489060801 ",.02)
 ;;53489060801
 ;;9002226.02101,"785,53489060803 ",.01)
 ;;53489060803
 ;;9002226.02101,"785,53489060803 ",.02)
 ;;53489060803
 ;;9002226.02101,"785,53489060805 ",.01)
 ;;53489060805
 ;;9002226.02101,"785,53489060805 ",.02)
 ;;53489060805
 ;;9002226.02101,"785,53489060806 ",.01)
 ;;53489060806
 ;;9002226.02101,"785,53489060806 ",.02)
 ;;53489060806
 ;;9002226.02101,"785,53489060807 ",.01)
 ;;53489060807
 ;;9002226.02101,"785,53489060807 ",.02)
 ;;53489060807
 ;;9002226.02101,"785,53489060810 ",.01)
 ;;53489060810
 ;;9002226.02101,"785,53489060810 ",.02)
 ;;53489060810
 ;;9002226.02101,"785,53489060901 ",.01)
 ;;53489060901
 ;;9002226.02101,"785,53489060901 ",.02)
 ;;53489060901
 ;;9002226.02101,"785,53489060903 ",.01)
 ;;53489060903
 ;;9002226.02101,"785,53489060903 ",.02)
 ;;53489060903
 ;;9002226.02101,"785,53489060905 ",.01)
 ;;53489060905
 ;;9002226.02101,"785,53489060905 ",.02)
 ;;53489060905
 ;;9002226.02101,"785,53489060906 ",.01)
 ;;53489060906
 ;;9002226.02101,"785,53489060906 ",.02)
 ;;53489060906
 ;;9002226.02101,"785,53489060907 ",.01)
 ;;53489060907
 ;;9002226.02101,"785,53489060907 ",.02)
 ;;53489060907
 ;;9002226.02101,"785,53489060910 ",.01)
 ;;53489060910
 ;;9002226.02101,"785,53489060910 ",.02)
 ;;53489060910
 ;;9002226.02101,"785,53808079001 ",.01)
 ;;53808079001
 ;;9002226.02101,"785,53808079001 ",.02)
 ;;53808079001
 ;;9002226.02101,"785,53808079101 ",.01)
 ;;53808079101
 ;;9002226.02101,"785,53808079101 ",.02)
 ;;53808079101
 ;;9002226.02101,"785,53808079201 ",.01)
 ;;53808079201
 ;;9002226.02101,"785,53808079201 ",.02)
 ;;53808079201
 ;;9002226.02101,"785,53808079301 ",.01)
 ;;53808079301
 ;;9002226.02101,"785,53808079301 ",.02)
 ;;53808079301
 ;;9002226.02101,"785,53808079401 ",.01)
 ;;53808079401
 ;;9002226.02101,"785,53808079401 ",.02)
 ;;53808079401
 ;;9002226.02101,"785,53816414300 ",.01)
 ;;53816414300
 ;;9002226.02101,"785,53816414300 ",.02)
 ;;53816414300
 ;;9002226.02101,"785,53869414300 ",.01)
 ;;53869414300
 ;;9002226.02101,"785,53869414300 ",.02)
 ;;53869414300
 ;;9002226.02101,"785,53869414400 ",.01)
 ;;53869414400
 ;;9002226.02101,"785,53869414400 ",.02)
 ;;53869414400
 ;;9002226.02101,"785,53869414500 ",.01)
 ;;53869414500
 ;;9002226.02101,"785,53869414500 ",.02)
 ;;53869414500
 ;;9002226.02101,"785,53869414600 ",.01)
 ;;53869414600
 ;;9002226.02101,"785,53869414600 ",.02)
 ;;53869414600
 ;;9002226.02101,"785,53869414700 ",.01)
 ;;53869414700
 ;;9002226.02101,"785,53869414700 ",.02)
 ;;53869414700
 ;;9002226.02101,"785,53869414800 ",.01)
 ;;53869414800
 ;;9002226.02101,"785,53869414800 ",.02)
 ;;53869414800
 ;;9002226.02101,"785,53869415500 ",.01)
 ;;53869415500
 ;;9002226.02101,"785,53869415500 ",.02)
 ;;53869415500
 ;;9002226.02101,"785,53869415600 ",.01)
 ;;53869415600
 ;;9002226.02101,"785,53869415600 ",.02)
 ;;53869415600
 ;;9002226.02101,"785,53978090303 ",.01)
 ;;53978090303
 ;;9002226.02101,"785,53978090303 ",.02)
 ;;53978090303
 ;;9002226.02101,"785,53978306901 ",.01)
 ;;53978306901
 ;;9002226.02101,"785,53978306901 ",.02)
 ;;53978306901
 ;;9002226.02101,"785,53978306903 ",.01)
 ;;53978306903
 ;;9002226.02101,"785,53978306903 ",.02)
 ;;53978306903
 ;;9002226.02101,"785,53978337001 ",.01)
 ;;53978337001
 ;;9002226.02101,"785,53978337001 ",.02)
 ;;53978337001
 ;;9002226.02101,"785,53978337003 ",.01)
 ;;53978337003
 ;;9002226.02101,"785,53978337003 ",.02)
 ;;53978337003
 ;;9002226.02101,"785,54458093610 ",.01)
 ;;54458093610
 ;;9002226.02101,"785,54458093610 ",.02)
 ;;54458093610
 ;;9002226.02101,"785,54458093710 ",.01)
 ;;54458093710
 ;;9002226.02101,"785,54458093710 ",.02)
 ;;54458093710
 ;;9002226.02101,"785,54458093810 ",.01)
 ;;54458093810
 ;;9002226.02101,"785,54458093810 ",.02)
 ;;54458093810
 ;;9002226.02101,"785,54458098210 ",.01)
 ;;54458098210
 ;;9002226.02101,"785,54458098210 ",.02)
 ;;54458098210
 ;;9002226.02101,"785,54458098310 ",.01)
 ;;54458098310
 ;;9002226.02101,"785,54458098310 ",.02)
 ;;54458098310
 ;;9002226.02101,"785,54458098410 ",.01)
 ;;54458098410
 ;;9002226.02101,"785,54458098410 ",.02)
 ;;54458098410
 ;;9002226.02101,"785,54569534500 ",.01)
 ;;54569534500
 ;;9002226.02101,"785,54569534500 ",.02)
 ;;54569534500
 ;;9002226.02101,"785,54569534600 ",.01)
 ;;54569534600
 ;;9002226.02101,"785,54569534600 ",.02)
 ;;54569534600
 ;;9002226.02101,"785,54569534700 ",.01)
 ;;54569534700
 ;;9002226.02101,"785,54569534700 ",.02)
 ;;54569534700
 ;;9002226.02101,"785,54569583300 ",.01)
 ;;54569583300
 ;;9002226.02101,"785,54569583300 ",.02)
 ;;54569583300
 ;;9002226.02101,"785,54569583301 ",.01)
 ;;54569583301
 ;;9002226.02101,"785,54569583301 ",.02)
 ;;54569583301
 ;;9002226.02101,"785,54569583302 ",.01)
 ;;54569583302
 ;;9002226.02101,"785,54569583302 ",.02)
 ;;54569583302
 ;;9002226.02101,"785,54569583303 ",.01)
 ;;54569583303
 ;;9002226.02101,"785,54569583303 ",.02)
 ;;54569583303
 ;;9002226.02101,"785,54569583401 ",.01)
 ;;54569583401
 ;;9002226.02101,"785,54569583401 ",.02)
 ;;54569583401
 ;;9002226.02101,"785,54569583402 ",.01)
 ;;54569583402
 ;;9002226.02101,"785,54569583402 ",.02)
 ;;54569583402
 ;;9002226.02101,"785,54569583403 ",.01)
 ;;54569583403
 ;;9002226.02101,"785,54569583403 ",.02)
 ;;54569583403
 ;;9002226.02101,"785,54569583404 ",.01)
 ;;54569583404
 ;;9002226.02101,"785,54569583404 ",.02)
 ;;54569583404
 ;;9002226.02101,"785,54868458500 ",.01)
 ;;54868458500
 ;;9002226.02101,"785,54868458500 ",.02)
 ;;54868458500
 ;;9002226.02101,"785,54868458501 ",.01)
 ;;54868458501
 ;;9002226.02101,"785,54868458501 ",.02)
 ;;54868458501
 ;;9002226.02101,"785,54868459300 ",.01)
 ;;54868459300
 ;;9002226.02101,"785,54868459300 ",.02)
 ;;54868459300
 ;;9002226.02101,"785,54868459301 ",.01)
 ;;54868459301
 ;;9002226.02101,"785,54868459301 ",.02)
 ;;54868459301
 ;;9002226.02101,"785,54868459302 ",.01)
 ;;54868459302
 ;;9002226.02101,"785,54868459302 ",.02)
 ;;54868459302
 ;;9002226.02101,"785,54868477400 ",.01)
 ;;54868477400
 ;;9002226.02101,"785,54868477400 ",.02)
 ;;54868477400
 ;;9002226.02101,"785,54868477401 ",.01)
 ;;54868477401
 ;;9002226.02101,"785,54868477401 ",.02)
 ;;54868477401
 ;;9002226.02101,"785,54868477402 ",.01)
 ;;54868477402
 ;;9002226.02101,"785,54868477402 ",.02)
 ;;54868477402
 ;;9002226.02101,"785,54868477403 ",.01)
 ;;54868477403
 ;;9002226.02101,"785,54868477403 ",.02)
 ;;54868477403
 ;;9002226.02101,"785,54868562700 ",.01)
 ;;54868562700
 ;;9002226.02101,"785,54868562700 ",.02)
 ;;54868562700
 ;;9002226.02101,"785,54868562701 ",.01)
 ;;54868562701
 ;;9002226.02101,"785,54868562701 ",.02)
 ;;54868562701
 ;;9002226.02101,"785,54868562800 ",.01)
 ;;54868562800
 ;;9002226.02101,"785,54868562800 ",.02)
 ;;54868562800
 ;;9002226.02101,"785,54868562801 ",.01)
 ;;54868562801
 ;;9002226.02101,"785,54868562801 ",.02)
 ;;54868562801
 ;;9002226.02101,"785,54868562802 ",.01)
 ;;54868562802
 ;;9002226.02101,"785,54868562802 ",.02)
 ;;54868562802
 ;;9002226.02101,"785,54868562900 ",.01)
 ;;54868562900
 ;;9002226.02101,"785,54868562900 ",.02)
 ;;54868562900
 ;;9002226.02101,"785,54868562901 ",.01)
 ;;54868562901
 ;;9002226.02101,"785,54868562901 ",.02)
 ;;54868562901
 ;;9002226.02101,"785,54868562902 ",.01)
 ;;54868562902
 ;;9002226.02101,"785,54868562902 ",.02)
 ;;54868562902
 ;;9002226.02101,"785,54868562903 ",.01)
 ;;54868562903
 ;;9002226.02101,"785,54868562903 ",.02)
 ;;54868562903
 ;;9002226.02101,"785,54868562904 ",.01)
 ;;54868562904
 ;;9002226.02101,"785,54868562904 ",.02)
 ;;54868562904
 ;;9002226.02101,"785,54868563000 ",.01)
 ;;54868563000
 ;;9002226.02101,"785,54868563000 ",.02)
 ;;54868563000
 ;;9002226.02101,"785,54868563001 ",.01)
 ;;54868563001
 ;;9002226.02101,"785,54868563001 ",.02)
 ;;54868563001
 ;;9002226.02101,"785,54868606600 ",.01)
 ;;54868606600
 ;;9002226.02101,"785,54868606600 ",.02)
 ;;54868606600
 ;;9002226.02101,"785,55045301401 ",.01)
 ;;55045301401
 ;;9002226.02101,"785,55045301401 ",.02)
 ;;55045301401
 ;;9002226.02101,"785,55045301402 ",.01)
 ;;55045301402
 ;;9002226.02101,"785,55045301402 ",.02)
 ;;55045301402
 ;;9002226.02101,"785,55045301406 ",.01)
 ;;55045301406
 ;;9002226.02101,"785,55045301406 ",.02)
 ;;55045301406
 ;;9002226.02101,"785,55045301408 ",.01)
 ;;55045301408
 ;;9002226.02101,"785,55045301408 ",.02)
 ;;55045301408
 ;;9002226.02101,"785,55045301409 ",.01)
 ;;55045301409
 ;;9002226.02101,"785,55045301409 ",.02)
 ;;55045301409
 ;;9002226.02101,"785,55045301501 ",.01)
 ;;55045301501
 ;;9002226.02101,"785,55045301501 ",.02)
 ;;55045301501
 ;;9002226.02101,"785,55045301508 ",.01)
 ;;55045301508
 ;;9002226.02101,"785,55045301508 ",.02)
 ;;55045301508
 ;;9002226.02101,"785,55045301509 ",.01)
 ;;55045301509
 ;;9002226.02101,"785,55045301509 ",.02)
 ;;55045301509
 ;;9002226.02101,"785,55111019701 ",.01)
 ;;55111019701
 ;;9002226.02101,"785,55111019701 ",.02)
 ;;55111019701
 ;;9002226.02101,"785,55111019705 ",.01)
 ;;55111019705
 ;;9002226.02101,"785,55111019705 ",.02)
 ;;55111019705
 ;;9002226.02101,"785,55111019710 ",.01)
 ;;55111019710
 ;;9002226.02101,"785,55111019710 ",.02)
 ;;55111019710
 ;;9002226.02101,"785,55111019730 ",.01)
 ;;55111019730
 ;;9002226.02101,"785,55111019730 ",.02)
 ;;55111019730
 ;;9002226.02101,"785,55111019760 ",.01)
 ;;55111019760
 ;;9002226.02101,"785,55111019760 ",.02)
 ;;55111019760
 ;;9002226.02101,"785,55111019778 ",.01)
 ;;55111019778
 ;;9002226.02101,"785,55111019778 ",.02)
 ;;55111019778
 ;;9002226.02101,"785,55111019790 ",.01)
 ;;55111019790
 ;;9002226.02101,"785,55111019790 ",.02)
 ;;55111019790