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

BGPM3AAE.m

Go to the documentation of this file.
  1. BGPM3AAE ;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,"774,00182267101 ",.02)
  1. ;;00182267101
  1. ;;9002226.02101,"774,00182267110 ",.01)
  1. ;;00182267110
  1. ;;9002226.02101,"774,00182267110 ",.02)
  1. ;;00182267110
  1. ;;9002226.02101,"774,00182267189 ",.01)
  1. ;;00182267189
  1. ;;9002226.02101,"774,00182267189 ",.02)
  1. ;;00182267189
  1. ;;9002226.02101,"774,00182267201 ",.01)
  1. ;;00182267201
  1. ;;9002226.02101,"774,00182267201 ",.02)
  1. ;;00182267201
  1. ;;9002226.02101,"774,00182267210 ",.01)
  1. ;;00182267210
  1. ;;9002226.02101,"774,00182267210 ",.02)
  1. ;;00182267210
  1. ;;9002226.02101,"774,00182267289 ",.01)
  1. ;;00182267289
  1. ;;9002226.02101,"774,00182267289 ",.02)
  1. ;;00182267289
  1. ;;9002226.02101,"774,00182267301 ",.01)
  1. ;;00182267301
  1. ;;9002226.02101,"774,00182267301 ",.02)
  1. ;;00182267301
  1. ;;9002226.02101,"774,00182267310 ",.01)
  1. ;;00182267310
  1. ;;9002226.02101,"774,00182267310 ",.02)
  1. ;;00182267310
  1. ;;9002226.02101,"774,00182267389 ",.01)
  1. ;;00182267389
  1. ;;9002226.02101,"774,00182267389 ",.02)
  1. ;;00182267389
  1. ;;9002226.02101,"774,00182267401 ",.01)
  1. ;;00182267401
  1. ;;9002226.02101,"774,00182267401 ",.02)
  1. ;;00182267401
  1. ;;9002226.02101,"774,00182267410 ",.01)
  1. ;;00182267410
  1. ;;9002226.02101,"774,00182267410 ",.02)
  1. ;;00182267410
  1. ;;9002226.02101,"774,00182267489 ",.01)
  1. ;;00182267489
  1. ;;9002226.02101,"774,00182267489 ",.02)
  1. ;;00182267489
  1. ;;9002226.02101,"774,00182267501 ",.01)
  1. ;;00182267501
  1. ;;9002226.02101,"774,00182267501 ",.02)
  1. ;;00182267501
  1. ;;9002226.02101,"774,00182267510 ",.01)
  1. ;;00182267510
  1. ;;9002226.02101,"774,00182267510 ",.02)
  1. ;;00182267510
  1. ;;9002226.02101,"774,00182267589 ",.01)
  1. ;;00182267589
  1. ;;9002226.02101,"774,00182267589 ",.02)
  1. ;;00182267589
  1. ;;9002226.02101,"774,00182267601 ",.01)
  1. ;;00182267601
  1. ;;9002226.02101,"774,00182267601 ",.02)
  1. ;;00182267601
  1. ;;9002226.02101,"774,00182267610 ",.01)
  1. ;;00182267610
  1. ;;9002226.02101,"774,00182267610 ",.02)
  1. ;;00182267610
  1. ;;9002226.02101,"774,00182267689 ",.01)
  1. ;;00182267689
  1. ;;9002226.02101,"774,00182267689 ",.02)
  1. ;;00182267689
  1. ;;9002226.02101,"774,00182267701 ",.01)
  1. ;;00182267701
  1. ;;9002226.02101,"774,00182267701 ",.02)
  1. ;;00182267701
  1. ;;9002226.02101,"774,00182267789 ",.01)
  1. ;;00182267789
  1. ;;9002226.02101,"774,00182267789 ",.02)
  1. ;;00182267789
  1. ;;9002226.02101,"774,00182267801 ",.01)
  1. ;;00182267801
  1. ;;9002226.02101,"774,00182267801 ",.02)
  1. ;;00182267801
  1. ;;9002226.02101,"774,00182267889 ",.01)
  1. ;;00182267889
  1. ;;9002226.02101,"774,00182267889 ",.02)
  1. ;;00182267889
  1. ;;9002226.02101,"774,00182267901 ",.01)
  1. ;;00182267901
  1. ;;9002226.02101,"774,00182267901 ",.02)
  1. ;;00182267901
  1. ;;9002226.02101,"774,00182267989 ",.01)
  1. ;;00182267989
  1. ;;9002226.02101,"774,00182267989 ",.02)
  1. ;;00182267989
  1. ;;9002226.02101,"774,00182276301 ",.01)
  1. ;;00182276301
  1. ;;9002226.02101,"774,00182276301 ",.02)
  1. ;;00182276301
  1. ;;9002226.02101,"774,00209422014 ",.01)
  1. ;;00209422014
  1. ;;9002226.02101,"774,00209422014 ",.02)
  1. ;;00209422014
  1. ;;9002226.02101,"774,00223237501 ",.01)
  1. ;;00223237501
  1. ;;9002226.02101,"774,00223237501 ",.02)
  1. ;;00223237501
  1. ;;9002226.02101,"774,00223237502 ",.01)
  1. ;;00223237502
  1. ;;9002226.02101,"774,00223237502 ",.02)
  1. ;;00223237502
  1. ;;9002226.02101,"774,00223237601 ",.01)
  1. ;;00223237601
  1. ;;9002226.02101,"774,00223237601 ",.02)
  1. ;;00223237601
  1. ;;9002226.02101,"774,00223237602 ",.01)
  1. ;;00223237602
  1. ;;9002226.02101,"774,00223237602 ",.02)
  1. ;;00223237602
  1. ;;9002226.02101,"774,00223237701 ",.01)
  1. ;;00223237701
  1. ;;9002226.02101,"774,00223237701 ",.02)
  1. ;;00223237701
  1. ;;9002226.02101,"774,00223237702 ",.01)
  1. ;;00223237702
  1. ;;9002226.02101,"774,00223237702 ",.02)
  1. ;;00223237702
  1. ;;9002226.02101,"774,00223237801 ",.01)
  1. ;;00223237801
  1. ;;9002226.02101,"774,00223237801 ",.02)
  1. ;;00223237801
  1. ;;9002226.02101,"774,00223237802 ",.01)
  1. ;;00223237802
  1. ;;9002226.02101,"774,00223237802 ",.02)
  1. ;;00223237802
  1. ;;9002226.02101,"774,00223237901 ",.01)
  1. ;;00223237901
  1. ;;9002226.02101,"774,00223237901 ",.02)
  1. ;;00223237901
  1. ;;9002226.02101,"774,00223237902 ",.01)
  1. ;;00223237902
  1. ;;9002226.02101,"774,00223237902 ",.02)
  1. ;;00223237902
  1. ;;9002226.02101,"774,00223780101 ",.01)
  1. ;;00223780101
  1. ;;9002226.02101,"774,00223780101 ",.02)
  1. ;;00223780101
  1. ;;9002226.02101,"774,00223780801 ",.01)
  1. ;;00223780801
  1. ;;9002226.02101,"774,00223780801 ",.02)
  1. ;;00223780801
  1. ;;9002226.02101,"774,00223781010 ",.01)
  1. ;;00223781010
  1. ;;9002226.02101,"774,00223781010 ",.02)
  1. ;;00223781010
  1. ;;9002226.02101,"774,00223781801 ",.01)
  1. ;;00223781801
  1. ;;9002226.02101,"774,00223781801 ",.02)
  1. ;;00223781801
  1. ;;9002226.02101,"774,00223782010 ",.01)
  1. ;;00223782010
  1. ;;9002226.02101,"774,00223782010 ",.02)
  1. ;;00223782010
  1. ;;9002226.02101,"774,00223782801 ",.01)
  1. ;;00223782801
  1. ;;9002226.02101,"774,00223782801 ",.02)
  1. ;;00223782801
  1. ;;9002226.02101,"774,00223783004 ",.01)
  1. ;;00223783004
  1. ;;9002226.02101,"774,00223783004 ",.02)
  1. ;;00223783004
  1. ;;9002226.02101,"774,00223783105 ",.01)
  1. ;;00223783105
  1. ;;9002226.02101,"774,00223783105 ",.02)
  1. ;;00223783105
  1. ;;9002226.02101,"774,00223783210 ",.01)
  1. ;;00223783210
  1. ;;9002226.02101,"774,00223783210 ",.02)
  1. ;;00223783210
  1. ;;9002226.02101,"774,00223784001 ",.01)
  1. ;;00223784001
  1. ;;9002226.02101,"774,00223784001 ",.02)
  1. ;;00223784001
  1. ;;9002226.02101,"774,00223784005 ",.01)
  1. ;;00223784005
  1. ;;9002226.02101,"774,00223784005 ",.02)
  1. ;;00223784005
  1. ;;9002226.02101,"774,00223784310 ",.01)
  1. ;;00223784310
  1. ;;9002226.02101,"774,00223784310 ",.02)
  1. ;;00223784310
  1. ;;9002226.02101,"774,00223784430 ",.01)
  1. ;;00223784430
  1. ;;9002226.02101,"774,00223784430 ",.02)
  1. ;;00223784430
  1. ;;9002226.02101,"774,00223784525 ",.01)
  1. ;;00223784525
  1. ;;9002226.02101,"774,00223784525 ",.02)
  1. ;;00223784525
  1. ;;9002226.02101,"774,00223784601 ",.01)
  1. ;;00223784601
  1. ;;9002226.02101,"774,00223784601 ",.02)
  1. ;;00223784601
  1. ;;9002226.02101,"774,00223786501 ",.01)
  1. ;;00223786501
  1. ;;9002226.02101,"774,00223786501 ",.02)
  1. ;;00223786501
  1. ;;9002226.02101,"774,00223786702 ",.01)
  1. ;;00223786702
  1. ;;9002226.02101,"774,00223786702 ",.02)
  1. ;;00223786702
  1. ;;9002226.02101,"774,00247119530 ",.01)
  1. ;;00247119530
  1. ;;9002226.02101,"774,00247119530 ",.02)
  1. ;;00247119530
  1. ;;9002226.02101,"774,00247119550 ",.01)
  1. ;;00247119550
  1. ;;9002226.02101,"774,00247119550 ",.02)
  1. ;;00247119550
  1. ;;9002226.02101,"774,00247225203 ",.01)
  1. ;;00247225203
  1. ;;9002226.02101,"774,00247225203 ",.02)
  1. ;;00247225203
  1. ;;9002226.02101,"774,00247225206 ",.01)
  1. ;;00247225206
  1. ;;9002226.02101,"774,00247225206 ",.02)
  1. ;;00247225206
  1. ;;9002226.02101,"774,00257012501 ",.01)
  1. ;;00257012501
  1. ;;9002226.02101,"774,00257012501 ",.02)
  1. ;;00257012501
  1. ;;9002226.02101,"774,00257012601 ",.01)
  1. ;;00257012601
  1. ;;9002226.02101,"774,00257012601 ",.02)
  1. ;;00257012601
  1. ;;9002226.02101,"774,00257016701 ",.01)
  1. ;;00257016701
  1. ;;9002226.02101,"774,00257016701 ",.02)
  1. ;;00257016701
  1. ;;9002226.02101,"774,00264557710 ",.01)
  1. ;;00264557710
  1. ;;9002226.02101,"774,00264557710 ",.02)
  1. ;;00264557710
  1. ;;9002226.02101,"774,00264887710 ",.01)
  1. ;;00264887710
  1. ;;9002226.02101,"774,00264887710 ",.02)
  1. ;;00264887710
  1. ;;9002226.02101,"774,00264956710 ",.01)
  1. ;;00264956710
  1. ;;9002226.02101,"774,00264956710 ",.02)
  1. ;;00264956710
  1. ;;9002226.02101,"774,00264957710 ",.01)
  1. ;;00264957710
  1. ;;9002226.02101,"774,00264957710 ",.02)
  1. ;;00264957710
  1. ;;9002226.02101,"774,00264958720 ",.01)
  1. ;;00264958720
  1. ;;9002226.02101,"774,00264958720 ",.02)
  1. ;;00264958720
  1. ;;9002226.02101,"774,00298690861 ",.01)
  1. ;;00298690861
  1. ;;9002226.02101,"774,00298690861 ",.02)
  1. ;;00298690861
  1. ;;9002226.02101,"774,00302820001 ",.01)
  1. ;;00302820001
  1. ;;9002226.02101,"774,00302820001 ",.02)
  1. ;;00302820001
  1. ;;9002226.02101,"774,00302820201 ",.01)
  1. ;;00302820201
  1. ;;9002226.02101,"774,00302820201 ",.02)
  1. ;;00302820201
  1. ;;9002226.02101,"774,00302820401 ",.01)
  1. ;;00302820401
  1. ;;9002226.02101,"774,00302820401 ",.02)
  1. ;;00302820401
  1. ;;9002226.02101,"774,00308618030 ",.01)
  1. ;;00308618030
  1. ;;9002226.02101,"774,00308618030 ",.02)
  1. ;;00308618030
  1. ;;9002226.02101,"774,00308618099 ",.01)
  1. ;;00308618099
  1. ;;9002226.02101,"774,00308618099 ",.02)
  1. ;;00308618099
  1. ;;9002226.02101,"774,00308620030 ",.01)
  1. ;;00308620030
  1. ;;9002226.02101,"774,00308620030 ",.02)
  1. ;;00308620030
  1. ;;9002226.02101,"774,00308620099 ",.01)
  1. ;;00308620099
  1. ;;9002226.02101,"774,00308620099 ",.02)
  1. ;;00308620099
  1. ;;9002226.02101,"774,00338044903 ",.01)
  1. ;;00338044903
  1. ;;9002226.02101,"774,00338044903 ",.02)
  1. ;;00338044903
  1. ;;9002226.02101,"774,00338045003 ",.01)
  1. ;;00338045003
  1. ;;9002226.02101,"774,00338045003 ",.02)
  1. ;;00338045003
  1. ;;9002226.02101,"774,00338045102 ",.01)
  1. ;;00338045102
  1. ;;9002226.02101,"774,00338045102 ",.02)
  1. ;;00338045102
  1. ;;9002226.02101,"774,00338054903 ",.01)
  1. ;;00338054903
  1. ;;9002226.02101,"774,00338054903 ",.02)
  1. ;;00338054903
  1. ;;9002226.02101,"774,00338055002 ",.01)
  1. ;;00338055002
  1. ;;9002226.02101,"774,00338055002 ",.02)
  1. ;;00338055002
  1. ;;9002226.02101,"774,00338055003 ",.01)
  1. ;;00338055003
  1. ;;9002226.02101,"774,00338055003 ",.02)
  1. ;;00338055003
  1. ;;9002226.02101,"774,00339653712 ",.01)
  1. ;;00339653712
  1. ;;9002226.02101,"774,00339653712 ",.02)
  1. ;;00339653712
  1. ;;9002226.02101,"774,00339653812 ",.01)
  1. ;;00339653812
  1. ;;9002226.02101,"774,00339653812 ",.02)
  1. ;;00339653812
  1. ;;9002226.02101,"774,00339653912 ",.01)
  1. ;;00339653912
  1. ;;9002226.02101,"774,00339653912 ",.02)
  1. ;;00339653912
  1. ;;9002226.02101,"774,00339654012 ",.01)
  1. ;;00339654012
  1. ;;9002226.02101,"774,00339654012 ",.02)
  1. ;;00339654012
  1. ;;9002226.02101,"774,00339654112 ",.01)
  1. ;;00339654112
  1. ;;9002226.02101,"774,00339654112 ",.02)
  1. ;;00339654112
  1. ;;9002226.02101,"774,00339654212 ",.01)
  1. ;;00339654212
  1. ;;9002226.02101,"774,00339654212 ",.02)
  1. ;;00339654212
  1. ;;9002226.02101,"774,00339654312 ",.01)
  1. ;;00339654312
  1. ;;9002226.02101,"774,00339654312 ",.02)
  1. ;;00339654312
  1. ;;9002226.02101,"774,00339654412 ",.01)
  1. ;;00339654412
  1. ;;9002226.02101,"774,00339654412 ",.02)
  1. ;;00339654412
  1. ;;9002226.02101,"774,00339654512 ",.01)
  1. ;;00339654512
  1. ;;9002226.02101,"774,00339654512 ",.02)
  1. ;;00339654512
  1. ;;9002226.02101,"774,00349839001 ",.01)
  1. ;;00349839001
  1. ;;9002226.02101,"774,00349839001 ",.02)
  1. ;;00349839001
  1. ;;9002226.02101,"774,00349839101 ",.01)
  1. ;;00349839101
  1. ;;9002226.02101,"774,00349839101 ",.02)
  1. ;;00349839101
  1. ;;9002226.02101,"774,00349839201 ",.01)
  1. ;;00349839201
  1. ;;9002226.02101,"774,00349839201 ",.02)
  1. ;;00349839201
  1. ;;9002226.02101,"774,00364064001 ",.01)
  1. ;;00364064001
  1. ;;9002226.02101,"774,00364064001 ",.02)
  1. ;;00364064001
  1. ;;9002226.02101,"774,00364064002 ",.01)
  1. ;;00364064002
  1. ;;9002226.02101,"774,00364064002 ",.02)
  1. ;;00364064002
  1. ;;9002226.02101,"774,00364236446 ",.01)
  1. ;;00364236446
  1. ;;9002226.02101,"774,00364236446 ",.02)
  1. ;;00364236446
  1. ;;9002226.02101,"774,00364236448 ",.01)
  1. ;;00364236448
  1. ;;9002226.02101,"774,00364236448 ",.02)
  1. ;;00364236448
  1. ;;9002226.02101,"774,00364236453 ",.01)
  1. ;;00364236453
  1. ;;9002226.02101,"774,00364236453 ",.02)
  1. ;;00364236453
  1. ;;9002226.02101,"774,00364653854 ",.01)
  1. ;;00364653854
  1. ;;9002226.02101,"774,00364653854 ",.02)
  1. ;;00364653854
  1. ;;9002226.02101,"774,00364653934 ",.01)
  1. ;;00364653934
  1. ;;9002226.02101,"774,00364653934 ",.02)
  1. ;;00364653934
  1. ;;9002226.02101,"774,00364653949 ",.01)
  1. ;;00364653949
  1. ;;9002226.02101,"774,00364653949 ",.02)
  1. ;;00364653949
  1. ;;9002226.02101,"774,00364653953 ",.01)
  1. ;;00364653953
  1. ;;9002226.02101,"774,00364653953 ",.02)
  1. ;;00364653953
  1. ;;9002226.02101,"774,00364653954 ",.01)
  1. ;;00364653954
  1. ;;9002226.02101,"774,00364653954 ",.02)
  1. ;;00364653954
  1. ;;9002226.02101,"774,00364654046 ",.01)
  1. ;;00364654046
  1. ;;9002226.02101,"774,00364654046 ",.02)
  1. ;;00364654046
  1. ;;9002226.02101,"774,00364654048 ",.01)
  1. ;;00364654048