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