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