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

BGPM3AAL.m

Go to the documentation of this file.
BGPM3AAL ;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,52958033008 ",.02)
 ;;52958033008
 ;;9002226.02101,"774,52958033012 ",.01)
 ;;52958033012
 ;;9002226.02101,"774,52958033012 ",.02)
 ;;52958033012
 ;;9002226.02101,"774,52958034012 ",.01)
 ;;52958034012
 ;;9002226.02101,"774,52958034012 ",.02)
 ;;52958034012
 ;;9002226.02101,"774,52959092430 ",.01)
 ;;52959092430
 ;;9002226.02101,"774,52959092430 ",.02)
 ;;52959092430
 ;;9002226.02101,"774,52959092530 ",.01)
 ;;52959092530
 ;;9002226.02101,"774,52959092530 ",.02)
 ;;52959092530
 ;;9002226.02101,"774,52959092630 ",.01)
 ;;52959092630
 ;;9002226.02101,"774,52959092630 ",.02)
 ;;52959092630
 ;;9002226.02101,"774,52985007101 ",.01)
 ;;52985007101
 ;;9002226.02101,"774,52985007101 ",.02)
 ;;52985007101
 ;;9002226.02101,"774,53467017200 ",.01)
 ;;53467017200
 ;;9002226.02101,"774,53467017200 ",.02)
 ;;53467017200
 ;;9002226.02101,"774,53467064000 ",.01)
 ;;53467064000
 ;;9002226.02101,"774,53467064000 ",.02)
 ;;53467064000
 ;;9002226.02101,"774,53467064003 ",.01)
 ;;53467064003
 ;;9002226.02101,"774,53467064003 ",.02)
 ;;53467064003
 ;;9002226.02101,"774,53792014004 ",.01)
 ;;53792014004
 ;;9002226.02101,"774,53792014004 ",.02)
 ;;53792014004
 ;;9002226.02101,"774,53808033401 ",.01)
 ;;53808033401
 ;;9002226.02101,"774,53808033401 ",.02)
 ;;53808033401
 ;;9002226.02101,"774,53808033501 ",.01)
 ;;53808033501
 ;;9002226.02101,"774,53808033501 ",.02)
 ;;53808033501
 ;;9002226.02101,"774,53808097001 ",.01)
 ;;53808097001
 ;;9002226.02101,"774,53808097001 ",.02)
 ;;53808097001
 ;;9002226.02101,"774,53808098501 ",.01)
 ;;53808098501
 ;;9002226.02101,"774,53808098501 ",.02)
 ;;53808098501
 ;;9002226.02101,"774,53808098901 ",.01)
 ;;53808098901
 ;;9002226.02101,"774,53808098901 ",.02)
 ;;53808098901
 ;;9002226.02101,"774,53808099401 ",.01)
 ;;53808099401
 ;;9002226.02101,"774,53808099401 ",.02)
 ;;53808099401
 ;;9002226.02101,"774,53808099701 ",.01)
 ;;53808099701
 ;;9002226.02101,"774,53808099701 ",.02)
 ;;53808099701
 ;;9002226.02101,"774,53978031403 ",.01)
 ;;53978031403
 ;;9002226.02101,"774,53978031403 ",.02)
 ;;53978031403
 ;;9002226.02101,"774,53978205207 ",.01)
 ;;53978205207
 ;;9002226.02101,"774,53978205207 ",.02)
 ;;53978205207
 ;;9002226.02101,"774,53978330103 ",.01)
 ;;53978330103
 ;;9002226.02101,"774,53978330103 ",.02)
 ;;53978330103
 ;;9002226.02101,"774,53978330203 ",.01)
 ;;53978330203
 ;;9002226.02101,"774,53978330203 ",.02)
 ;;53978330203
 ;;9002226.02101,"774,54441032401 ",.01)
 ;;54441032401
 ;;9002226.02101,"774,54441032401 ",.02)
 ;;54441032401
 ;;9002226.02101,"774,54441032405 ",.01)
 ;;54441032405
 ;;9002226.02101,"774,54441032405 ",.02)
 ;;54441032405
 ;;9002226.02101,"774,54441032410 ",.01)
 ;;54441032410
 ;;9002226.02101,"774,54441032410 ",.02)
 ;;54441032410
 ;;9002226.02101,"774,54441032425 ",.01)
 ;;54441032425
 ;;9002226.02101,"774,54441032425 ",.02)
 ;;54441032425
 ;;9002226.02101,"774,54441032450 ",.01)
 ;;54441032450
 ;;9002226.02101,"774,54441032450 ",.02)
 ;;54441032450
 ;;9002226.02101,"774,54569015850 ",.01)
 ;;54569015850
 ;;9002226.02101,"774,54569015850 ",.02)
 ;;54569015850
 ;;9002226.02101,"774,54569015950 ",.01)
 ;;54569015950
 ;;9002226.02101,"774,54569015950 ",.02)
 ;;54569015950
 ;;9002226.02101,"774,54569493400 ",.01)
 ;;54569493400
 ;;9002226.02101,"774,54569493400 ",.02)
 ;;54569493400
 ;;9002226.02101,"774,54569493401 ",.01)
 ;;54569493401
 ;;9002226.02101,"774,54569493401 ",.02)
 ;;54569493401
 ;;9002226.02101,"774,54569586800 ",.01)
 ;;54569586800
 ;;9002226.02101,"774,54569586800 ",.02)
 ;;54569586800
 ;;9002226.02101,"774,54569586900 ",.01)
 ;;54569586900
 ;;9002226.02101,"774,54569586900 ",.02)
 ;;54569586900
 ;;9002226.02101,"774,54868428600 ",.01)
 ;;54868428600
 ;;9002226.02101,"774,54868428600 ",.02)
 ;;54868428600
 ;;9002226.02101,"774,54868428601 ",.01)
 ;;54868428601
 ;;9002226.02101,"774,54868428601 ",.02)
 ;;54868428601
 ;;9002226.02101,"774,54868428602 ",.01)
 ;;54868428602
 ;;9002226.02101,"774,54868428602 ",.02)
 ;;54868428602
 ;;9002226.02101,"774,54868428603 ",.01)
 ;;54868428603
 ;;9002226.02101,"774,54868428603 ",.02)
 ;;54868428603
 ;;9002226.02101,"774,54868428604 ",.01)
 ;;54868428604
 ;;9002226.02101,"774,54868428604 ",.02)
 ;;54868428604
 ;;9002226.02101,"774,54868434900 ",.01)
 ;;54868434900
 ;;9002226.02101,"774,54868434900 ",.02)
 ;;54868434900
 ;;9002226.02101,"774,54868434901 ",.01)
 ;;54868434901
 ;;9002226.02101,"774,54868434901 ",.02)
 ;;54868434901
 ;;9002226.02101,"774,54868434902 ",.01)
 ;;54868434902
 ;;9002226.02101,"774,54868434902 ",.02)
 ;;54868434902
 ;;9002226.02101,"774,54868434903 ",.01)
 ;;54868434903
 ;;9002226.02101,"774,54868434903 ",.02)
 ;;54868434903
 ;;9002226.02101,"774,54868434904 ",.01)
 ;;54868434904
 ;;9002226.02101,"774,54868434904 ",.02)
 ;;54868434904
 ;;9002226.02101,"774,54868434905 ",.01)
 ;;54868434905
 ;;9002226.02101,"774,54868434905 ",.02)
 ;;54868434905
 ;;9002226.02101,"774,54868440000 ",.01)
 ;;54868440000
 ;;9002226.02101,"774,54868440000 ",.02)
 ;;54868440000
 ;;9002226.02101,"774,54868440001 ",.01)
 ;;54868440001
 ;;9002226.02101,"774,54868440001 ",.02)
 ;;54868440001
 ;;9002226.02101,"774,54868440002 ",.01)
 ;;54868440002
 ;;9002226.02101,"774,54868440002 ",.02)
 ;;54868440002
 ;;9002226.02101,"774,54868440003 ",.01)
 ;;54868440003
 ;;9002226.02101,"774,54868440003 ",.02)
 ;;54868440003
 ;;9002226.02101,"774,54868440004 ",.01)
 ;;54868440004
 ;;9002226.02101,"774,54868440004 ",.02)
 ;;54868440004
 ;;9002226.02101,"774,54868440200 ",.01)
 ;;54868440200
 ;;9002226.02101,"774,54868440200 ",.02)
 ;;54868440200
 ;;9002226.02101,"774,54868440201 ",.01)
 ;;54868440201
 ;;9002226.02101,"774,54868440201 ",.02)
 ;;54868440201
 ;;9002226.02101,"774,54868440202 ",.01)
 ;;54868440202
 ;;9002226.02101,"774,54868440202 ",.02)
 ;;54868440202
 ;;9002226.02101,"774,54868442200 ",.01)
 ;;54868442200
 ;;9002226.02101,"774,54868442200 ",.02)
 ;;54868442200
 ;;9002226.02101,"774,54868442201 ",.01)
 ;;54868442201
 ;;9002226.02101,"774,54868442201 ",.02)
 ;;54868442201
 ;;9002226.02101,"774,54868442202 ",.01)
 ;;54868442202
 ;;9002226.02101,"774,54868442202 ",.02)
 ;;54868442202
 ;;9002226.02101,"774,54868487100 ",.01)
 ;;54868487100
 ;;9002226.02101,"774,54868487100 ",.02)
 ;;54868487100
 ;;9002226.02101,"774,54868487101 ",.01)
 ;;54868487101
 ;;9002226.02101,"774,54868487101 ",.02)
 ;;54868487101
 ;;9002226.02101,"774,54868487102 ",.01)
 ;;54868487102
 ;;9002226.02101,"774,54868487102 ",.02)
 ;;54868487102
 ;;9002226.02101,"774,54868487300 ",.01)
 ;;54868487300
 ;;9002226.02101,"774,54868487300 ",.02)
 ;;54868487300
 ;;9002226.02101,"774,54868487301 ",.01)
 ;;54868487301
 ;;9002226.02101,"774,54868487301 ",.02)
 ;;54868487301
 ;;9002226.02101,"774,54868487302 ",.01)
 ;;54868487302
 ;;9002226.02101,"774,54868487302 ",.02)
 ;;54868487302
 ;;9002226.02101,"774,54868495000 ",.01)
 ;;54868495000
 ;;9002226.02101,"774,54868495000 ",.02)
 ;;54868495000
 ;;9002226.02101,"774,54868495001 ",.01)
 ;;54868495001
 ;;9002226.02101,"774,54868495001 ",.02)
 ;;54868495001
 ;;9002226.02101,"774,54868495002 ",.01)
 ;;54868495002
 ;;9002226.02101,"774,54868495002 ",.02)
 ;;54868495002
 ;;9002226.02101,"774,54868525800 ",.01)
 ;;54868525800
 ;;9002226.02101,"774,54868525800 ",.02)
 ;;54868525800
 ;;9002226.02101,"774,55045288108 ",.01)
 ;;55045288108
 ;;9002226.02101,"774,55045288108 ",.02)
 ;;55045288108
 ;;9002226.02101,"774,55045290100 ",.01)
 ;;55045290100
 ;;9002226.02101,"774,55045290100 ",.02)
 ;;55045290100
 ;;9002226.02101,"774,55045290108 ",.01)
 ;;55045290108
 ;;9002226.02101,"774,55045290108 ",.02)
 ;;55045290108
 ;;9002226.02101,"774,55045290200 ",.01)
 ;;55045290200
 ;;9002226.02101,"774,55045290200 ",.02)
 ;;55045290200
 ;;9002226.02101,"774,55045290202 ",.01)
 ;;55045290202
 ;;9002226.02101,"774,55045290202 ",.02)
 ;;55045290202
 ;;9002226.02101,"774,55045290208 ",.01)
 ;;55045290208
 ;;9002226.02101,"774,55045290208 ",.02)
 ;;55045290208
 ;;9002226.02101,"774,55045290300 ",.01)
 ;;55045290300
 ;;9002226.02101,"774,55045290300 ",.02)
 ;;55045290300
 ;;9002226.02101,"774,55045329201 ",.01)
 ;;55045329201
 ;;9002226.02101,"774,55045329201 ",.02)
 ;;55045329201
 ;;9002226.02101,"774,55154014105 ",.01)
 ;;55154014105
 ;;9002226.02101,"774,55154014105 ",.02)
 ;;55154014105
 ;;9002226.02101,"774,55154087609 ",.01)
 ;;55154087609
 ;;9002226.02101,"774,55154087609 ",.02)
 ;;55154087609
 ;;9002226.02101,"774,55154087709 ",.01)
 ;;55154087709
 ;;9002226.02101,"774,55154087709 ",.02)
 ;;55154087709
 ;;9002226.02101,"774,55154087809 ",.01)
 ;;55154087809
 ;;9002226.02101,"774,55154087809 ",.02)
 ;;55154087809
 ;;9002226.02101,"774,55154087909 ",.01)
 ;;55154087909
 ;;9002226.02101,"774,55154087909 ",.02)
 ;;55154087909
 ;;9002226.02101,"774,55154088009 ",.01)
 ;;55154088009
 ;;9002226.02101,"774,55154088009 ",.02)
 ;;55154088009
 ;;9002226.02101,"774,55154088309 ",.01)
 ;;55154088309
 ;;9002226.02101,"774,55154088309 ",.02)
 ;;55154088309
 ;;9002226.02101,"774,55154088409 ",.01)
 ;;55154088409
 ;;9002226.02101,"774,55154088409 ",.02)
 ;;55154088409
 ;;9002226.02101,"774,55154236205 ",.01)
 ;;55154236205
 ;;9002226.02101,"774,55154236205 ",.02)
 ;;55154236205
 ;;9002226.02101,"774,55154239705 ",.01)
 ;;55154239705
 ;;9002226.02101,"774,55154239705 ",.02)
 ;;55154239705
 ;;9002226.02101,"774,55154420507 ",.01)
 ;;55154420507
 ;;9002226.02101,"774,55154420507 ",.02)
 ;;55154420507
 ;;9002226.02101,"774,55154510105 ",.01)
 ;;55154510105
 ;;9002226.02101,"774,55154510105 ",.02)
 ;;55154510105
 ;;9002226.02101,"774,55154510107 ",.01)
 ;;55154510107
 ;;9002226.02101,"774,55154510107 ",.02)
 ;;55154510107
 ;;9002226.02101,"774,55154510305 ",.01)
 ;;55154510305
 ;;9002226.02101,"774,55154510305 ",.02)
 ;;55154510305
 ;;9002226.02101,"774,55154510307 ",.01)
 ;;55154510307
 ;;9002226.02101,"774,55154510307 ",.02)
 ;;55154510307
 ;;9002226.02101,"774,55154510905 ",.01)
 ;;55154510905
 ;;9002226.02101,"774,55154510905 ",.02)
 ;;55154510905
 ;;9002226.02101,"774,55154512205 ",.01)
 ;;55154512205
 ;;9002226.02101,"774,55154512205 ",.02)
 ;;55154512205
 ;;9002226.02101,"774,55154512207 ",.01)
 ;;55154512207
 ;;9002226.02101,"774,55154512207 ",.02)
 ;;55154512207
 ;;9002226.02101,"774,55154512605 ",.01)
 ;;55154512605
 ;;9002226.02101,"774,55154512605 ",.02)
 ;;55154512605
 ;;9002226.02101,"774,55154870107 ",.01)
 ;;55154870107
 ;;9002226.02101,"774,55154870107 ",.02)
 ;;55154870107
 ;;9002226.02101,"774,55154935105 ",.01)
 ;;55154935105
 ;;9002226.02101,"774,55154935105 ",.02)
 ;;55154935105
 ;;9002226.02101,"774,55154935305 ",.01)
 ;;55154935305
 ;;9002226.02101,"774,55154935305 ",.02)
 ;;55154935305
 ;;9002226.02101,"774,55154935405 ",.01)
 ;;55154935405
 ;;9002226.02101,"774,55154935405 ",.02)
 ;;55154935405
 ;;9002226.02101,"774,55154935505 ",.01)
 ;;55154935505
 ;;9002226.02101,"774,55154935505 ",.02)
 ;;55154935505
 ;;9002226.02101,"774,55154935905 ",.01)
 ;;55154935905
 ;;9002226.02101,"774,55154935905 ",.02)
 ;;55154935905
 ;;9002226.02101,"774,55154936005 ",.01)
 ;;55154936005
 ;;9002226.02101,"774,55154936005 ",.02)
 ;;55154936005
 ;;9002226.02101,"774,55154937305 ",.01)
 ;;55154937305
 ;;9002226.02101,"774,55154937305 ",.02)
 ;;55154937305
 ;;9002226.02101,"774,55154937705 ",.01)
 ;;55154937705
 ;;9002226.02101,"774,55154937705 ",.02)
 ;;55154937705
 ;;9002226.02101,"774,55289034030 ",.01)
 ;;55289034030
 ;;9002226.02101,"774,55289034030 ",.02)
 ;;55289034030
 ;;9002226.02101,"774,55289077314 ",.01)
 ;;55289077314