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

BGPM3ACZ.m

Go to the documentation of this file.
BGPM3ACZ ;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,54868235304 ",.02)
 ;;54868235304
 ;;9002226.02101,"786,54868235305 ",.01)
 ;;54868235305
 ;;9002226.02101,"786,54868235305 ",.02)
 ;;54868235305
 ;;9002226.02101,"786,54868235306 ",.01)
 ;;54868235306
 ;;9002226.02101,"786,54868235306 ",.02)
 ;;54868235306
 ;;9002226.02101,"786,54868458500 ",.01)
 ;;54868458500
 ;;9002226.02101,"786,54868458500 ",.02)
 ;;54868458500
 ;;9002226.02101,"786,54868458501 ",.01)
 ;;54868458501
 ;;9002226.02101,"786,54868458501 ",.02)
 ;;54868458501
 ;;9002226.02101,"786,54868459300 ",.01)
 ;;54868459300
 ;;9002226.02101,"786,54868459300 ",.02)
 ;;54868459300
 ;;9002226.02101,"786,54868459301 ",.01)
 ;;54868459301
 ;;9002226.02101,"786,54868459301 ",.02)
 ;;54868459301
 ;;9002226.02101,"786,54868459302 ",.01)
 ;;54868459302
 ;;9002226.02101,"786,54868459302 ",.02)
 ;;54868459302
 ;;9002226.02101,"786,54868477400 ",.01)
 ;;54868477400
 ;;9002226.02101,"786,54868477400 ",.02)
 ;;54868477400
 ;;9002226.02101,"786,54868477401 ",.01)
 ;;54868477401
 ;;9002226.02101,"786,54868477401 ",.02)
 ;;54868477401
 ;;9002226.02101,"786,54868477402 ",.01)
 ;;54868477402
 ;;9002226.02101,"786,54868477402 ",.02)
 ;;54868477402
 ;;9002226.02101,"786,54868477403 ",.01)
 ;;54868477403
 ;;9002226.02101,"786,54868477403 ",.02)
 ;;54868477403
 ;;9002226.02101,"786,54868481200 ",.01)
 ;;54868481200
 ;;9002226.02101,"786,54868481200 ",.02)
 ;;54868481200
 ;;9002226.02101,"786,54868481201 ",.01)
 ;;54868481201
 ;;9002226.02101,"786,54868481201 ",.02)
 ;;54868481201
 ;;9002226.02101,"786,54868552600 ",.01)
 ;;54868552600
 ;;9002226.02101,"786,54868552600 ",.02)
 ;;54868552600
 ;;9002226.02101,"786,54868557500 ",.01)
 ;;54868557500
 ;;9002226.02101,"786,54868557500 ",.02)
 ;;54868557500
 ;;9002226.02101,"786,54868557501 ",.01)
 ;;54868557501
 ;;9002226.02101,"786,54868557501 ",.02)
 ;;54868557501
 ;;9002226.02101,"786,54868557502 ",.01)
 ;;54868557502
 ;;9002226.02101,"786,54868557502 ",.02)
 ;;54868557502
 ;;9002226.02101,"786,54868562700 ",.01)
 ;;54868562700
 ;;9002226.02101,"786,54868562700 ",.02)
 ;;54868562700
 ;;9002226.02101,"786,54868562701 ",.01)
 ;;54868562701
 ;;9002226.02101,"786,54868562701 ",.02)
 ;;54868562701
 ;;9002226.02101,"786,54868562800 ",.01)
 ;;54868562800
 ;;9002226.02101,"786,54868562800 ",.02)
 ;;54868562800
 ;;9002226.02101,"786,54868562801 ",.01)
 ;;54868562801
 ;;9002226.02101,"786,54868562801 ",.02)
 ;;54868562801
 ;;9002226.02101,"786,54868562802 ",.01)
 ;;54868562802
 ;;9002226.02101,"786,54868562802 ",.02)
 ;;54868562802
 ;;9002226.02101,"786,54868562900 ",.01)
 ;;54868562900
 ;;9002226.02101,"786,54868562900 ",.02)
 ;;54868562900
 ;;9002226.02101,"786,54868562901 ",.01)
 ;;54868562901
 ;;9002226.02101,"786,54868562901 ",.02)
 ;;54868562901
 ;;9002226.02101,"786,54868562902 ",.01)
 ;;54868562902
 ;;9002226.02101,"786,54868562902 ",.02)
 ;;54868562902
 ;;9002226.02101,"786,54868562903 ",.01)
 ;;54868562903
 ;;9002226.02101,"786,54868562903 ",.02)
 ;;54868562903
 ;;9002226.02101,"786,54868562904 ",.01)
 ;;54868562904
 ;;9002226.02101,"786,54868562904 ",.02)
 ;;54868562904
 ;;9002226.02101,"786,54868563000 ",.01)
 ;;54868563000
 ;;9002226.02101,"786,54868563000 ",.02)
 ;;54868563000
 ;;9002226.02101,"786,54868563001 ",.01)
 ;;54868563001
 ;;9002226.02101,"786,54868563001 ",.02)
 ;;54868563001
 ;;9002226.02101,"786,54868566000 ",.01)
 ;;54868566000
 ;;9002226.02101,"786,54868566000 ",.02)
 ;;54868566000
 ;;9002226.02101,"786,54868566001 ",.01)
 ;;54868566001
 ;;9002226.02101,"786,54868566001 ",.02)
 ;;54868566001
 ;;9002226.02101,"786,54868569700 ",.01)
 ;;54868569700
 ;;9002226.02101,"786,54868569700 ",.02)
 ;;54868569700
 ;;9002226.02101,"786,54868599400 ",.01)
 ;;54868599400
 ;;9002226.02101,"786,54868599400 ",.02)
 ;;54868599400
 ;;9002226.02101,"786,54868599401 ",.01)
 ;;54868599401
 ;;9002226.02101,"786,54868599401 ",.02)
 ;;54868599401
 ;;9002226.02101,"786,54868606600 ",.01)
 ;;54868606600
 ;;9002226.02101,"786,54868606600 ",.02)
 ;;54868606600
 ;;9002226.02101,"786,54907090009 ",.01)
 ;;54907090009
 ;;9002226.02101,"786,54907090009 ",.02)
 ;;54907090009
 ;;9002226.02101,"786,54907090105 ",.01)
 ;;54907090105
 ;;9002226.02101,"786,54907090105 ",.02)
 ;;54907090105
 ;;9002226.02101,"786,54907090109 ",.01)
 ;;54907090109
 ;;9002226.02101,"786,54907090109 ",.02)
 ;;54907090109
 ;;9002226.02101,"786,55045232302 ",.01)
 ;;55045232302
 ;;9002226.02101,"786,55045232302 ",.02)
 ;;55045232302
 ;;9002226.02101,"786,55045232306 ",.01)
 ;;55045232306
 ;;9002226.02101,"786,55045232306 ",.02)
 ;;55045232306
 ;;9002226.02101,"786,55045301401 ",.01)
 ;;55045301401
 ;;9002226.02101,"786,55045301401 ",.02)
 ;;55045301401
 ;;9002226.02101,"786,55045301402 ",.01)
 ;;55045301402
 ;;9002226.02101,"786,55045301402 ",.02)
 ;;55045301402
 ;;9002226.02101,"786,55045301406 ",.01)
 ;;55045301406
 ;;9002226.02101,"786,55045301406 ",.02)
 ;;55045301406
 ;;9002226.02101,"786,55045301408 ",.01)
 ;;55045301408
 ;;9002226.02101,"786,55045301408 ",.02)
 ;;55045301408
 ;;9002226.02101,"786,55045301409 ",.01)
 ;;55045301409
 ;;9002226.02101,"786,55045301409 ",.02)
 ;;55045301409
 ;;9002226.02101,"786,55045301501 ",.01)
 ;;55045301501
 ;;9002226.02101,"786,55045301501 ",.02)
 ;;55045301501
 ;;9002226.02101,"786,55045301508 ",.01)
 ;;55045301508
 ;;9002226.02101,"786,55045301508 ",.02)
 ;;55045301508
 ;;9002226.02101,"786,55045301509 ",.01)
 ;;55045301509
 ;;9002226.02101,"786,55045301509 ",.02)
 ;;55045301509
 ;;9002226.02101,"786,55111019701 ",.01)
 ;;55111019701
 ;;9002226.02101,"786,55111019701 ",.02)
 ;;55111019701
 ;;9002226.02101,"786,55111019705 ",.01)
 ;;55111019705
 ;;9002226.02101,"786,55111019705 ",.02)
 ;;55111019705
 ;;9002226.02101,"786,55111019710 ",.01)
 ;;55111019710
 ;;9002226.02101,"786,55111019710 ",.02)
 ;;55111019710
 ;;9002226.02101,"786,55111019730 ",.01)
 ;;55111019730
 ;;9002226.02101,"786,55111019730 ",.02)
 ;;55111019730
 ;;9002226.02101,"786,55111019760 ",.01)
 ;;55111019760
 ;;9002226.02101,"786,55111019760 ",.02)
 ;;55111019760
 ;;9002226.02101,"786,55111019778 ",.01)
 ;;55111019778
 ;;9002226.02101,"786,55111019778 ",.02)
 ;;55111019778
 ;;9002226.02101,"786,55111019790 ",.01)
 ;;55111019790
 ;;9002226.02101,"786,55111019790 ",.02)
 ;;55111019790
 ;;9002226.02101,"786,55111019801 ",.01)
 ;;55111019801
 ;;9002226.02101,"786,55111019801 ",.02)
 ;;55111019801
 ;;9002226.02101,"786,55111019805 ",.01)
 ;;55111019805
 ;;9002226.02101,"786,55111019805 ",.02)
 ;;55111019805
 ;;9002226.02101,"786,55111019830 ",.01)
 ;;55111019830
 ;;9002226.02101,"786,55111019830 ",.02)
 ;;55111019830
 ;;9002226.02101,"786,55111019860 ",.01)
 ;;55111019860
 ;;9002226.02101,"786,55111019860 ",.02)
 ;;55111019860
 ;;9002226.02101,"786,55111019878 ",.01)
 ;;55111019878
 ;;9002226.02101,"786,55111019878 ",.02)
 ;;55111019878
 ;;9002226.02101,"786,55111019890 ",.01)
 ;;55111019890
 ;;9002226.02101,"786,55111019890 ",.02)
 ;;55111019890
 ;;9002226.02101,"786,55111019901 ",.01)
 ;;55111019901
 ;;9002226.02101,"786,55111019901 ",.02)
 ;;55111019901
 ;;9002226.02101,"786,55111019905 ",.01)
 ;;55111019905
 ;;9002226.02101,"786,55111019905 ",.02)
 ;;55111019905
 ;;9002226.02101,"786,55111019910 ",.01)
 ;;55111019910
 ;;9002226.02101,"786,55111019910 ",.02)
 ;;55111019910
 ;;9002226.02101,"786,55111019930 ",.01)
 ;;55111019930
 ;;9002226.02101,"786,55111019930 ",.02)
 ;;55111019930
 ;;9002226.02101,"786,55111019960 ",.01)
 ;;55111019960
 ;;9002226.02101,"786,55111019960 ",.02)
 ;;55111019960
 ;;9002226.02101,"786,55111019978 ",.01)
 ;;55111019978
 ;;9002226.02101,"786,55111019978 ",.02)
 ;;55111019978
 ;;9002226.02101,"786,55111019990 ",.01)
 ;;55111019990
 ;;9002226.02101,"786,55111019990 ",.02)
 ;;55111019990
 ;;9002226.02101,"786,55111020001 ",.01)
 ;;55111020001
 ;;9002226.02101,"786,55111020001 ",.02)
 ;;55111020001
 ;;9002226.02101,"786,55111020005 ",.01)
 ;;55111020005
 ;;9002226.02101,"786,55111020005 ",.02)
 ;;55111020005
 ;;9002226.02101,"786,55111020010 ",.01)
 ;;55111020010
 ;;9002226.02101,"786,55111020010 ",.02)
 ;;55111020010
 ;;9002226.02101,"786,55111020030 ",.01)
 ;;55111020030
 ;;9002226.02101,"786,55111020030 ",.02)
 ;;55111020030
 ;;9002226.02101,"786,55111020060 ",.01)
 ;;55111020060
 ;;9002226.02101,"786,55111020060 ",.02)
 ;;55111020060
 ;;9002226.02101,"786,55111020078 ",.01)
 ;;55111020078
 ;;9002226.02101,"786,55111020078 ",.02)
 ;;55111020078
 ;;9002226.02101,"786,55111020090 ",.01)
 ;;55111020090
 ;;9002226.02101,"786,55111020090 ",.02)
 ;;55111020090
 ;;9002226.02101,"786,55111026801 ",.01)
 ;;55111026801
 ;;9002226.02101,"786,55111026801 ",.02)
 ;;55111026801
 ;;9002226.02101,"786,55111026805 ",.01)
 ;;55111026805
 ;;9002226.02101,"786,55111026805 ",.02)
 ;;55111026805
 ;;9002226.02101,"786,55111026830 ",.01)
 ;;55111026830
 ;;9002226.02101,"786,55111026830 ",.02)
 ;;55111026830
 ;;9002226.02101,"786,55111026860 ",.01)
 ;;55111026860
 ;;9002226.02101,"786,55111026860 ",.02)
 ;;55111026860
 ;;9002226.02101,"786,55111026878 ",.01)
 ;;55111026878
 ;;9002226.02101,"786,55111026878 ",.02)
 ;;55111026878
 ;;9002226.02101,"786,55111026890 ",.01)
 ;;55111026890
 ;;9002226.02101,"786,55111026890 ",.02)
 ;;55111026890
 ;;9002226.02101,"786,55111072610 ",.01)
 ;;55111072610
 ;;9002226.02101,"786,55111072610 ",.02)
 ;;55111072610
 ;;9002226.02101,"786,55111072630 ",.01)
 ;;55111072630
 ;;9002226.02101,"786,55111072630 ",.02)
 ;;55111072630
 ;;9002226.02101,"786,55111072690 ",.01)
 ;;55111072690
 ;;9002226.02101,"786,55111072690 ",.02)
 ;;55111072690
 ;;9002226.02101,"786,55111073510 ",.01)
 ;;55111073510
 ;;9002226.02101,"786,55111073510 ",.02)
 ;;55111073510
 ;;9002226.02101,"786,55111073530 ",.01)
 ;;55111073530
 ;;9002226.02101,"786,55111073530 ",.02)
 ;;55111073530
 ;;9002226.02101,"786,55111073590 ",.01)
 ;;55111073590
 ;;9002226.02101,"786,55111073590 ",.02)
 ;;55111073590
 ;;9002226.02101,"786,55111074010 ",.01)
 ;;55111074010
 ;;9002226.02101,"786,55111074010 ",.02)
 ;;55111074010
 ;;9002226.02101,"786,55111074030 ",.01)
 ;;55111074030
 ;;9002226.02101,"786,55111074030 ",.02)
 ;;55111074030
 ;;9002226.02101,"786,55111074090 ",.01)
 ;;55111074090
 ;;9002226.02101,"786,55111074090 ",.02)
 ;;55111074090
 ;;9002226.02101,"786,55111074910 ",.01)
 ;;55111074910
 ;;9002226.02101,"786,55111074910 ",.02)
 ;;55111074910
 ;;9002226.02101,"786,55111074930 ",.01)
 ;;55111074930
 ;;9002226.02101,"786,55111074930 ",.02)
 ;;55111074930
 ;;9002226.02101,"786,55111074990 ",.01)
 ;;55111074990
 ;;9002226.02101,"786,55111074990 ",.02)
 ;;55111074990
 ;;9002226.02101,"786,55111075010 ",.01)
 ;;55111075010
 ;;9002226.02101,"786,55111075010 ",.02)
 ;;55111075010
 ;;9002226.02101,"786,55111075030 ",.01)
 ;;55111075030
 ;;9002226.02101,"786,55111075030 ",.02)
 ;;55111075030
 ;;9002226.02101,"786,55111075090 ",.01)
 ;;55111075090
 ;;9002226.02101,"786,55111075090 ",.02)
 ;;55111075090
 ;;9002226.02101,"786,55154067000 ",.01)
 ;;55154067000
 ;;9002226.02101,"786,55154067000 ",.02)
 ;;55154067000
 ;;9002226.02101,"786,55154347609 ",.01)
 ;;55154347609
 ;;9002226.02101,"786,55154347609 ",.02)
 ;;55154347609
 ;;9002226.02101,"786,55154347709 ",.01)
 ;;55154347709
 ;;9002226.02101,"786,55154347709 ",.02)
 ;;55154347709
 ;;9002226.02101,"786,55154347809 ",.01)
 ;;55154347809
 ;;9002226.02101,"786,55154347809 ",.02)
 ;;55154347809
 ;;9002226.02101,"786,55154506200 ",.01)
 ;;55154506200
 ;;9002226.02101,"786,55154506200 ",.02)
 ;;55154506200
 ;;9002226.02101,"786,55154506300 ",.01)
 ;;55154506300