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

BGPM3ABO.m

Go to the documentation of this file.
BGPM3ABO ;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,"775,52735070209 ",.01)
 ;;52735070209
 ;;9002226.02101,"775,52735070209 ",.02)
 ;;52735070209
 ;;9002226.02101,"775,52735072401 ",.01)
 ;;52735072401
 ;;9002226.02101,"775,52735072401 ",.02)
 ;;52735072401
 ;;9002226.02101,"775,52938097505 ",.01)
 ;;52938097505
 ;;9002226.02101,"775,52938097505 ",.02)
 ;;52938097505
 ;;9002226.02101,"775,52938097510 ",.01)
 ;;52938097510
 ;;9002226.02101,"775,52938097510 ",.02)
 ;;52938097510
 ;;9002226.02101,"775,52953003801 ",.01)
 ;;52953003801
 ;;9002226.02101,"775,52953003801 ",.02)
 ;;52953003801
 ;;9002226.02101,"775,52953003901 ",.01)
 ;;52953003901
 ;;9002226.02101,"775,52953003901 ",.02)
 ;;52953003901
 ;;9002226.02101,"775,52958032004 ",.01)
 ;;52958032004
 ;;9002226.02101,"775,52958032004 ",.02)
 ;;52958032004
 ;;9002226.02101,"775,52958033008 ",.01)
 ;;52958033008
 ;;9002226.02101,"775,52958033008 ",.02)
 ;;52958033008
 ;;9002226.02101,"775,52958033012 ",.01)
 ;;52958033012
 ;;9002226.02101,"775,52958033012 ",.02)
 ;;52958033012
 ;;9002226.02101,"775,52958034012 ",.01)
 ;;52958034012
 ;;9002226.02101,"775,52958034012 ",.02)
 ;;52958034012
 ;;9002226.02101,"775,52959001800 ",.01)
 ;;52959001800
 ;;9002226.02101,"775,52959001800 ",.02)
 ;;52959001800
 ;;9002226.02101,"775,52959001814 ",.01)
 ;;52959001814
 ;;9002226.02101,"775,52959001814 ",.02)
 ;;52959001814
 ;;9002226.02101,"775,52959001820 ",.01)
 ;;52959001820
 ;;9002226.02101,"775,52959001820 ",.02)
 ;;52959001820
 ;;9002226.02101,"775,52959001824 ",.01)
 ;;52959001824
 ;;9002226.02101,"775,52959001824 ",.02)
 ;;52959001824
 ;;9002226.02101,"775,52959001830 ",.01)
 ;;52959001830
 ;;9002226.02101,"775,52959001830 ",.02)
 ;;52959001830
 ;;9002226.02101,"775,52959001840 ",.01)
 ;;52959001840
 ;;9002226.02101,"775,52959001840 ",.02)
 ;;52959001840
 ;;9002226.02101,"775,52959001860 ",.01)
 ;;52959001860
 ;;9002226.02101,"775,52959001860 ",.02)
 ;;52959001860
 ;;9002226.02101,"775,52959001880 ",.01)
 ;;52959001880
 ;;9002226.02101,"775,52959001880 ",.02)
 ;;52959001880
 ;;9002226.02101,"775,52959072400 ",.01)
 ;;52959072400
 ;;9002226.02101,"775,52959072400 ",.02)
 ;;52959072400
 ;;9002226.02101,"775,52959072410 ",.01)
 ;;52959072410
 ;;9002226.02101,"775,52959072410 ",.02)
 ;;52959072410
 ;;9002226.02101,"775,52959072414 ",.01)
 ;;52959072414
 ;;9002226.02101,"775,52959072414 ",.02)
 ;;52959072414
 ;;9002226.02101,"775,52959072415 ",.01)
 ;;52959072415
 ;;9002226.02101,"775,52959072415 ",.02)
 ;;52959072415
 ;;9002226.02101,"775,52959072420 ",.01)
 ;;52959072420
 ;;9002226.02101,"775,52959072420 ",.02)
 ;;52959072420
 ;;9002226.02101,"775,52959072424 ",.01)
 ;;52959072424
 ;;9002226.02101,"775,52959072424 ",.02)
 ;;52959072424
 ;;9002226.02101,"775,52959072430 ",.01)
 ;;52959072430
 ;;9002226.02101,"775,52959072430 ",.02)
 ;;52959072430
 ;;9002226.02101,"775,52959092430 ",.01)
 ;;52959092430
 ;;9002226.02101,"775,52959092430 ",.02)
 ;;52959092430
 ;;9002226.02101,"775,52959092530 ",.01)
 ;;52959092530
 ;;9002226.02101,"775,52959092530 ",.02)
 ;;52959092530
 ;;9002226.02101,"775,52959092630 ",.01)
 ;;52959092630
 ;;9002226.02101,"775,52959092630 ",.02)
 ;;52959092630
 ;;9002226.02101,"775,52985007101 ",.01)
 ;;52985007101
 ;;9002226.02101,"775,52985007101 ",.02)
 ;;52985007101
 ;;9002226.02101,"775,53020001701 ",.01)
 ;;53020001701
 ;;9002226.02101,"775,53020001701 ",.02)
 ;;53020001701
 ;;9002226.02101,"775,53076109140 ",.01)
 ;;53076109140
 ;;9002226.02101,"775,53076109140 ",.02)
 ;;53076109140
 ;;9002226.02101,"775,53467017200 ",.01)
 ;;53467017200
 ;;9002226.02101,"775,53467017200 ",.02)
 ;;53467017200
 ;;9002226.02101,"775,53467064000 ",.01)
 ;;53467064000
 ;;9002226.02101,"775,53467064000 ",.02)
 ;;53467064000
 ;;9002226.02101,"775,53467064003 ",.01)
 ;;53467064003
 ;;9002226.02101,"775,53467064003 ",.02)
 ;;53467064003
 ;;9002226.02101,"775,53792014004 ",.01)
 ;;53792014004
 ;;9002226.02101,"775,53792014004 ",.02)
 ;;53792014004
 ;;9002226.02101,"775,53808033401 ",.01)
 ;;53808033401
 ;;9002226.02101,"775,53808033401 ",.02)
 ;;53808033401
 ;;9002226.02101,"775,53808033501 ",.01)
 ;;53808033501
 ;;9002226.02101,"775,53808033501 ",.02)
 ;;53808033501
 ;;9002226.02101,"775,53808097001 ",.01)
 ;;53808097001
 ;;9002226.02101,"775,53808097001 ",.02)
 ;;53808097001
 ;;9002226.02101,"775,53808098501 ",.01)
 ;;53808098501
 ;;9002226.02101,"775,53808098501 ",.02)
 ;;53808098501
 ;;9002226.02101,"775,53808098901 ",.01)
 ;;53808098901
 ;;9002226.02101,"775,53808098901 ",.02)
 ;;53808098901
 ;;9002226.02101,"775,53808099401 ",.01)
 ;;53808099401
 ;;9002226.02101,"775,53808099401 ",.02)
 ;;53808099401
 ;;9002226.02101,"775,53808099701 ",.01)
 ;;53808099701
 ;;9002226.02101,"775,53808099701 ",.02)
 ;;53808099701
 ;;9002226.02101,"775,53978013105 ",.01)
 ;;53978013105
 ;;9002226.02101,"775,53978013105 ",.02)
 ;;53978013105
 ;;9002226.02101,"775,53978031403 ",.01)
 ;;53978031403
 ;;9002226.02101,"775,53978031403 ",.02)
 ;;53978031403
 ;;9002226.02101,"775,53978205207 ",.01)
 ;;53978205207
 ;;9002226.02101,"775,53978205207 ",.02)
 ;;53978205207
 ;;9002226.02101,"775,53978302703 ",.01)
 ;;53978302703
 ;;9002226.02101,"775,53978302703 ",.02)
 ;;53978302703
 ;;9002226.02101,"775,53978330103 ",.01)
 ;;53978330103
 ;;9002226.02101,"775,53978330103 ",.02)
 ;;53978330103
 ;;9002226.02101,"775,53978330203 ",.01)
 ;;53978330203
 ;;9002226.02101,"775,53978330203 ",.02)
 ;;53978330203
 ;;9002226.02101,"775,54441032401 ",.01)
 ;;54441032401
 ;;9002226.02101,"775,54441032401 ",.02)
 ;;54441032401
 ;;9002226.02101,"775,54441032405 ",.01)
 ;;54441032405
 ;;9002226.02101,"775,54441032405 ",.02)
 ;;54441032405
 ;;9002226.02101,"775,54441032410 ",.01)
 ;;54441032410
 ;;9002226.02101,"775,54441032410 ",.02)
 ;;54441032410
 ;;9002226.02101,"775,54441032425 ",.01)
 ;;54441032425
 ;;9002226.02101,"775,54441032425 ",.02)
 ;;54441032425
 ;;9002226.02101,"775,54441032450 ",.01)
 ;;54441032450
 ;;9002226.02101,"775,54441032450 ",.02)
 ;;54441032450
 ;;9002226.02101,"775,54569001401 ",.01)
 ;;54569001401
 ;;9002226.02101,"775,54569001401 ",.02)
 ;;54569001401
 ;;9002226.02101,"775,54569001403 ",.01)
 ;;54569001403
 ;;9002226.02101,"775,54569001403 ",.02)
 ;;54569001403
 ;;9002226.02101,"775,54569015850 ",.01)
 ;;54569015850
 ;;9002226.02101,"775,54569015850 ",.02)
 ;;54569015850
 ;;9002226.02101,"775,54569015950 ",.01)
 ;;54569015950
 ;;9002226.02101,"775,54569015950 ",.02)
 ;;54569015950
 ;;9002226.02101,"775,54569493400 ",.01)
 ;;54569493400
 ;;9002226.02101,"775,54569493400 ",.02)
 ;;54569493400
 ;;9002226.02101,"775,54569493401 ",.01)
 ;;54569493401
 ;;9002226.02101,"775,54569493401 ",.02)
 ;;54569493401
 ;;9002226.02101,"775,54569586800 ",.01)
 ;;54569586800
 ;;9002226.02101,"775,54569586800 ",.02)
 ;;54569586800
 ;;9002226.02101,"775,54569586900 ",.01)
 ;;54569586900
 ;;9002226.02101,"775,54569586900 ",.02)
 ;;54569586900
 ;;9002226.02101,"775,54629080101 ",.01)
 ;;54629080101
 ;;9002226.02101,"775,54629080101 ",.02)
 ;;54629080101
 ;;9002226.02101,"775,54629080303 ",.01)
 ;;54629080303
 ;;9002226.02101,"775,54629080303 ",.02)
 ;;54629080303
 ;;9002226.02101,"775,54738011103 ",.01)
 ;;54738011103
 ;;9002226.02101,"775,54738011103 ",.02)
 ;;54738011103
 ;;9002226.02101,"775,54868428600 ",.01)
 ;;54868428600
 ;;9002226.02101,"775,54868428600 ",.02)
 ;;54868428600
 ;;9002226.02101,"775,54868428601 ",.01)
 ;;54868428601
 ;;9002226.02101,"775,54868428601 ",.02)
 ;;54868428601
 ;;9002226.02101,"775,54868428602 ",.01)
 ;;54868428602
 ;;9002226.02101,"775,54868428602 ",.02)
 ;;54868428602
 ;;9002226.02101,"775,54868428603 ",.01)
 ;;54868428603
 ;;9002226.02101,"775,54868428603 ",.02)
 ;;54868428603
 ;;9002226.02101,"775,54868428604 ",.01)
 ;;54868428604
 ;;9002226.02101,"775,54868428604 ",.02)
 ;;54868428604
 ;;9002226.02101,"775,54868434900 ",.01)
 ;;54868434900
 ;;9002226.02101,"775,54868434900 ",.02)
 ;;54868434900
 ;;9002226.02101,"775,54868434901 ",.01)
 ;;54868434901
 ;;9002226.02101,"775,54868434901 ",.02)
 ;;54868434901
 ;;9002226.02101,"775,54868434902 ",.01)
 ;;54868434902
 ;;9002226.02101,"775,54868434902 ",.02)
 ;;54868434902
 ;;9002226.02101,"775,54868434903 ",.01)
 ;;54868434903
 ;;9002226.02101,"775,54868434903 ",.02)
 ;;54868434903
 ;;9002226.02101,"775,54868434904 ",.01)
 ;;54868434904
 ;;9002226.02101,"775,54868434904 ",.02)
 ;;54868434904
 ;;9002226.02101,"775,54868434905 ",.01)
 ;;54868434905
 ;;9002226.02101,"775,54868434905 ",.02)
 ;;54868434905
 ;;9002226.02101,"775,54868440000 ",.01)
 ;;54868440000
 ;;9002226.02101,"775,54868440000 ",.02)
 ;;54868440000
 ;;9002226.02101,"775,54868440001 ",.01)
 ;;54868440001
 ;;9002226.02101,"775,54868440001 ",.02)
 ;;54868440001
 ;;9002226.02101,"775,54868440002 ",.01)
 ;;54868440002
 ;;9002226.02101,"775,54868440002 ",.02)
 ;;54868440002
 ;;9002226.02101,"775,54868440003 ",.01)
 ;;54868440003
 ;;9002226.02101,"775,54868440003 ",.02)
 ;;54868440003
 ;;9002226.02101,"775,54868440004 ",.01)
 ;;54868440004
 ;;9002226.02101,"775,54868440004 ",.02)
 ;;54868440004
 ;;9002226.02101,"775,54868440200 ",.01)
 ;;54868440200
 ;;9002226.02101,"775,54868440200 ",.02)
 ;;54868440200
 ;;9002226.02101,"775,54868440201 ",.01)
 ;;54868440201
 ;;9002226.02101,"775,54868440201 ",.02)
 ;;54868440201
 ;;9002226.02101,"775,54868440202 ",.01)
 ;;54868440202
 ;;9002226.02101,"775,54868440202 ",.02)
 ;;54868440202
 ;;9002226.02101,"775,54868442200 ",.01)
 ;;54868442200
 ;;9002226.02101,"775,54868442200 ",.02)
 ;;54868442200
 ;;9002226.02101,"775,54868442201 ",.01)
 ;;54868442201
 ;;9002226.02101,"775,54868442201 ",.02)
 ;;54868442201
 ;;9002226.02101,"775,54868442202 ",.01)
 ;;54868442202
 ;;9002226.02101,"775,54868442202 ",.02)
 ;;54868442202
 ;;9002226.02101,"775,54868487100 ",.01)
 ;;54868487100
 ;;9002226.02101,"775,54868487100 ",.02)
 ;;54868487100
 ;;9002226.02101,"775,54868487101 ",.01)
 ;;54868487101
 ;;9002226.02101,"775,54868487101 ",.02)
 ;;54868487101
 ;;9002226.02101,"775,54868487102 ",.01)
 ;;54868487102
 ;;9002226.02101,"775,54868487102 ",.02)
 ;;54868487102
 ;;9002226.02101,"775,54868487300 ",.01)
 ;;54868487300
 ;;9002226.02101,"775,54868487300 ",.02)
 ;;54868487300
 ;;9002226.02101,"775,54868487301 ",.01)
 ;;54868487301
 ;;9002226.02101,"775,54868487301 ",.02)
 ;;54868487301
 ;;9002226.02101,"775,54868487302 ",.01)
 ;;54868487302
 ;;9002226.02101,"775,54868487302 ",.02)
 ;;54868487302
 ;;9002226.02101,"775,54868495000 ",.01)
 ;;54868495000
 ;;9002226.02101,"775,54868495000 ",.02)
 ;;54868495000
 ;;9002226.02101,"775,54868495001 ",.01)
 ;;54868495001
 ;;9002226.02101,"775,54868495001 ",.02)
 ;;54868495001
 ;;9002226.02101,"775,54868495002 ",.01)
 ;;54868495002
 ;;9002226.02101,"775,54868495002 ",.02)
 ;;54868495002
 ;;9002226.02101,"775,54868525800 ",.01)
 ;;54868525800
 ;;9002226.02101,"775,54868525800 ",.02)
 ;;54868525800
 ;;9002226.02101,"775,54868554600 ",.01)
 ;;54868554600
 ;;9002226.02101,"775,54868554600 ",.02)
 ;;54868554600
 ;;9002226.02101,"775,55045288108 ",.01)
 ;;55045288108
 ;;9002226.02101,"775,55045288108 ",.02)
 ;;55045288108
 ;;9002226.02101,"775,55045290100 ",.01)
 ;;55045290100
 ;;9002226.02101,"775,55045290100 ",.02)
 ;;55045290100
 ;;9002226.02101,"775,55045290108 ",.01)
 ;;55045290108
 ;;9002226.02101,"775,55045290108 ",.02)
 ;;55045290108
 ;;9002226.02101,"775,55045290200 ",.01)
 ;;55045290200
 ;;9002226.02101,"775,55045290200 ",.02)
 ;;55045290200
 ;;9002226.02101,"775,55045290202 ",.01)
 ;;55045290202
 ;;9002226.02101,"775,55045290202 ",.02)
 ;;55045290202