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

BGPM5ASB.m

Go to the documentation of this file.
BGPM5ASB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"1005,62301006767 ",.02)
 ;;62301006767
 ;;9002226.02101,"1005,62301006969 ",.01)
 ;;62301006969
 ;;9002226.02101,"1005,62301006969 ",.02)
 ;;62301006969
 ;;9002226.02101,"1005,62318018400 ",.01)
 ;;62318018400
 ;;9002226.02101,"1005,62318018400 ",.02)
 ;;62318018400
 ;;9002226.02101,"1005,62318018401 ",.01)
 ;;62318018401
 ;;9002226.02101,"1005,62318018401 ",.02)
 ;;62318018401
 ;;9002226.02101,"1005,62318018500 ",.01)
 ;;62318018500
 ;;9002226.02101,"1005,62318018500 ",.02)
 ;;62318018500
 ;;9002226.02101,"1005,62318018501 ",.01)
 ;;62318018501
 ;;9002226.02101,"1005,62318018501 ",.02)
 ;;62318018501
 ;;9002226.02101,"1005,62318018600 ",.01)
 ;;62318018600
 ;;9002226.02101,"1005,62318018600 ",.02)
 ;;62318018600
 ;;9002226.02101,"1005,62318018601 ",.01)
 ;;62318018601
 ;;9002226.02101,"1005,62318018601 ",.02)
 ;;62318018601
 ;;9002226.02101,"1005,62318018700 ",.01)
 ;;62318018700
 ;;9002226.02101,"1005,62318018700 ",.02)
 ;;62318018700
 ;;9002226.02101,"1005,62318018701 ",.01)
 ;;62318018701
 ;;9002226.02101,"1005,62318018701 ",.02)
 ;;62318018701
 ;;9002226.02101,"1005,62318018800 ",.01)
 ;;62318018800
 ;;9002226.02101,"1005,62318018800 ",.02)
 ;;62318018800
 ;;9002226.02101,"1005,62318018801 ",.01)
 ;;62318018801
 ;;9002226.02101,"1005,62318018801 ",.02)
 ;;62318018801
 ;;9002226.02101,"1005,62318018900 ",.01)
 ;;62318018900
 ;;9002226.02101,"1005,62318018900 ",.02)
 ;;62318018900
 ;;9002226.02101,"1005,62318018901 ",.01)
 ;;62318018901
 ;;9002226.02101,"1005,62318018901 ",.02)
 ;;62318018901
 ;;9002226.02101,"1005,62540722203 ",.01)
 ;;62540722203
 ;;9002226.02101,"1005,62540722203 ",.02)
 ;;62540722203
 ;;9002226.02101,"1005,62540722205 ",.01)
 ;;62540722205
 ;;9002226.02101,"1005,62540722205 ",.02)
 ;;62540722205
 ;;9002226.02101,"1005,62540722303 ",.01)
 ;;62540722303
 ;;9002226.02101,"1005,62540722303 ",.02)
 ;;62540722303
 ;;9002226.02101,"1005,62540722305 ",.01)
 ;;62540722305
 ;;9002226.02101,"1005,62540722305 ",.02)
 ;;62540722305
 ;;9002226.02101,"1005,62540722403 ",.01)
 ;;62540722403
 ;;9002226.02101,"1005,62540722403 ",.02)
 ;;62540722403
 ;;9002226.02101,"1005,62540722405 ",.01)
 ;;62540722405
 ;;9002226.02101,"1005,62540722405 ",.02)
 ;;62540722405
 ;;9002226.02101,"1005,62584016041 ",.01)
 ;;62584016041
 ;;9002226.02101,"1005,62584016041 ",.02)
 ;;62584016041
 ;;9002226.02101,"1005,62584016045 ",.01)
 ;;62584016045
 ;;9002226.02101,"1005,62584016045 ",.02)
 ;;62584016045
 ;;9002226.02101,"1005,62584032250 ",.01)
 ;;62584032250
 ;;9002226.02101,"1005,62584032250 ",.02)
 ;;62584032250
 ;;9002226.02101,"1005,62584032450 ",.01)
 ;;62584032450
 ;;9002226.02101,"1005,62584032450 ",.02)
 ;;62584032450
 ;;9002226.02101,"1005,62584043550 ",.01)
 ;;62584043550
 ;;9002226.02101,"1005,62584043550 ",.02)
 ;;62584043550
 ;;9002226.02101,"1005,62584048250 ",.01)
 ;;62584048250
 ;;9002226.02101,"1005,62584048250 ",.02)
 ;;62584048250
 ;;9002226.02101,"1005,62584048350 ",.01)
 ;;62584048350
 ;;9002226.02101,"1005,62584048350 ",.02)
 ;;62584048350
 ;;9002226.02101,"1005,62584048450 ",.01)
 ;;62584048450
 ;;9002226.02101,"1005,62584048450 ",.02)
 ;;62584048450
 ;;9002226.02101,"1005,62584048541 ",.01)
 ;;62584048541
 ;;9002226.02101,"1005,62584048541 ",.02)
 ;;62584048541
 ;;9002226.02101,"1005,62584048641 ",.01)
 ;;62584048641
 ;;9002226.02101,"1005,62584048641 ",.02)
 ;;62584048641
 ;;9002226.02101,"1005,62584092550 ",.01)
 ;;62584092550
 ;;9002226.02101,"1005,62584092550 ",.02)
 ;;62584092550
 ;;9002226.02101,"1005,62584092590 ",.01)
 ;;62584092590
 ;;9002226.02101,"1005,62584092590 ",.02)
 ;;62584092590
 ;;9002226.02101,"1005,62584096200 ",.01)
 ;;62584096200
 ;;9002226.02101,"1005,62584096200 ",.02)
 ;;62584096200
 ;;9002226.02101,"1005,62584096250 ",.01)
 ;;62584096250
 ;;9002226.02101,"1005,62584096250 ",.02)
 ;;62584096250
 ;;9002226.02101,"1005,62584096585 ",.01)
 ;;62584096585
 ;;9002226.02101,"1005,62584096585 ",.02)
 ;;62584096585
 ;;9002226.02101,"1005,62645040110 ",.01)
 ;;62645040110
 ;;9002226.02101,"1005,62645040110 ",.02)
 ;;62645040110
 ;;9002226.02101,"1005,62756031008 ",.01)
 ;;62756031008
 ;;9002226.02101,"1005,62756031008 ",.02)
 ;;62756031008
 ;;9002226.02101,"1005,62756031018 ",.01)
 ;;62756031018
 ;;9002226.02101,"1005,62756031018 ",.02)
 ;;62756031018
 ;;9002226.02101,"1005,62756031081 ",.01)
 ;;62756031081
 ;;9002226.02101,"1005,62756031081 ",.02)
 ;;62756031081
 ;;9002226.02101,"1005,62756031083 ",.01)
 ;;62756031083
 ;;9002226.02101,"1005,62756031083 ",.02)
 ;;62756031083
 ;;9002226.02101,"1005,62756031088 ",.01)
 ;;62756031088
 ;;9002226.02101,"1005,62756031088 ",.02)
 ;;62756031088
 ;;9002226.02101,"1005,62756031108 ",.01)
 ;;62756031108
 ;;9002226.02101,"1005,62756031108 ",.02)
 ;;62756031108
 ;;9002226.02101,"1005,62756031118 ",.01)
 ;;62756031118
 ;;9002226.02101,"1005,62756031118 ",.02)
 ;;62756031118
 ;;9002226.02101,"1005,62756031181 ",.01)
 ;;62756031181
 ;;9002226.02101,"1005,62756031181 ",.02)
 ;;62756031181
 ;;9002226.02101,"1005,62756031183 ",.01)
 ;;62756031183
 ;;9002226.02101,"1005,62756031183 ",.02)
 ;;62756031183
 ;;9002226.02101,"1005,62756031188 ",.01)
 ;;62756031188
 ;;9002226.02101,"1005,62756031188 ",.02)
 ;;62756031188
 ;;9002226.02101,"1005,62756031208 ",.01)
 ;;62756031208
 ;;9002226.02101,"1005,62756031208 ",.02)
 ;;62756031208
 ;;9002226.02101,"1005,62756031218 ",.01)
 ;;62756031218
 ;;9002226.02101,"1005,62756031218 ",.02)
 ;;62756031218
 ;;9002226.02101,"1005,62756031281 ",.01)
 ;;62756031281
 ;;9002226.02101,"1005,62756031281 ",.02)
 ;;62756031281
 ;;9002226.02101,"1005,62756031283 ",.01)
 ;;62756031283
 ;;9002226.02101,"1005,62756031283 ",.02)
 ;;62756031283
 ;;9002226.02101,"1005,62756031288 ",.01)
 ;;62756031288
 ;;9002226.02101,"1005,62756031288 ",.02)
 ;;62756031288
 ;;9002226.02101,"1005,62756031308 ",.01)
 ;;62756031308
 ;;9002226.02101,"1005,62756031308 ",.02)
 ;;62756031308
 ;;9002226.02101,"1005,62756031318 ",.01)
 ;;62756031318
 ;;9002226.02101,"1005,62756031318 ",.02)
 ;;62756031318
 ;;9002226.02101,"1005,62756031381 ",.01)
 ;;62756031381
 ;;9002226.02101,"1005,62756031381 ",.02)
 ;;62756031381
 ;;9002226.02101,"1005,62756031383 ",.01)
 ;;62756031383
 ;;9002226.02101,"1005,62756031383 ",.02)
 ;;62756031383
 ;;9002226.02101,"1005,62756031388 ",.01)
 ;;62756031388
 ;;9002226.02101,"1005,62756031388 ",.02)
 ;;62756031388
 ;;9002226.02101,"1005,62778008101 ",.01)
 ;;62778008101
 ;;9002226.02101,"1005,62778008101 ",.02)
 ;;62778008101
 ;;9002226.02101,"1005,62778008102 ",.01)
 ;;62778008102
 ;;9002226.02101,"1005,62778008102 ",.02)
 ;;62778008102
 ;;9002226.02101,"1005,62778008201 ",.01)
 ;;62778008201
 ;;9002226.02101,"1005,62778008201 ",.02)
 ;;62778008201
 ;;9002226.02101,"1005,62778008202 ",.01)
 ;;62778008202
 ;;9002226.02101,"1005,62778008202 ",.02)
 ;;62778008202
 ;;9002226.02101,"1005,63304040301 ",.01)
 ;;63304040301
 ;;9002226.02101,"1005,63304040301 ",.02)
 ;;63304040301
 ;;9002226.02101,"1005,63304040310 ",.01)
 ;;63304040310
 ;;9002226.02101,"1005,63304040310 ",.02)
 ;;63304040310
 ;;9002226.02101,"1005,63304040330 ",.01)
 ;;63304040330
 ;;9002226.02101,"1005,63304040330 ",.02)
 ;;63304040330
 ;;9002226.02101,"1005,63304040401 ",.01)
 ;;63304040401
 ;;9002226.02101,"1005,63304040401 ",.02)
 ;;63304040401
 ;;9002226.02101,"1005,63304040410 ",.01)
 ;;63304040410
 ;;9002226.02101,"1005,63304040410 ",.02)
 ;;63304040410
 ;;9002226.02101,"1005,63304040430 ",.01)
 ;;63304040430
 ;;9002226.02101,"1005,63304040430 ",.02)
 ;;63304040430
 ;;9002226.02101,"1005,63304052201 ",.01)
 ;;63304052201
 ;;9002226.02101,"1005,63304052201 ",.02)
 ;;63304052201
 ;;9002226.02101,"1005,63304052210 ",.01)
 ;;63304052210
 ;;9002226.02101,"1005,63304052210 ",.02)
 ;;63304052210
 ;;9002226.02101,"1005,63304052301 ",.01)
 ;;63304052301
 ;;9002226.02101,"1005,63304052301 ",.02)
 ;;63304052301
 ;;9002226.02101,"1005,63304052310 ",.01)
 ;;63304052310
 ;;9002226.02101,"1005,63304052310 ",.02)
 ;;63304052310
 ;;9002226.02101,"1005,63304052401 ",.01)
 ;;63304052401
 ;;9002226.02101,"1005,63304052401 ",.02)
 ;;63304052401
 ;;9002226.02101,"1005,63304052410 ",.01)
 ;;63304052410
 ;;9002226.02101,"1005,63304052410 ",.02)
 ;;63304052410
 ;;9002226.02101,"1005,63304052501 ",.01)
 ;;63304052501
 ;;9002226.02101,"1005,63304052501 ",.02)
 ;;63304052501
 ;;9002226.02101,"1005,63304052510 ",.01)
 ;;63304052510
 ;;9002226.02101,"1005,63304052510 ",.02)
 ;;63304052510
 ;;9002226.02101,"1005,63304053101 ",.01)
 ;;63304053101
 ;;9002226.02101,"1005,63304053101 ",.02)
 ;;63304053101
 ;;9002226.02101,"1005,63304053111 ",.01)
 ;;63304053111
 ;;9002226.02101,"1005,63304053111 ",.02)
 ;;63304053111
 ;;9002226.02101,"1005,63304053177 ",.01)
 ;;63304053177
 ;;9002226.02101,"1005,63304053177 ",.02)
 ;;63304053177
 ;;9002226.02101,"1005,63304053201 ",.01)
 ;;63304053201
 ;;9002226.02101,"1005,63304053201 ",.02)
 ;;63304053201
 ;;9002226.02101,"1005,63304053210 ",.01)
 ;;63304053210
 ;;9002226.02101,"1005,63304053210 ",.02)
 ;;63304053210
 ;;9002226.02101,"1005,63304053211 ",.01)
 ;;63304053211
 ;;9002226.02101,"1005,63304053211 ",.02)
 ;;63304053211
 ;;9002226.02101,"1005,63304053277 ",.01)
 ;;63304053277
 ;;9002226.02101,"1005,63304053277 ",.02)
 ;;63304053277
 ;;9002226.02101,"1005,63304053301 ",.01)
 ;;63304053301
 ;;9002226.02101,"1005,63304053301 ",.02)
 ;;63304053301
 ;;9002226.02101,"1005,63304053310 ",.01)
 ;;63304053310
 ;;9002226.02101,"1005,63304053310 ",.02)
 ;;63304053310
 ;;9002226.02101,"1005,63304053311 ",.01)
 ;;63304053311
 ;;9002226.02101,"1005,63304053311 ",.02)
 ;;63304053311
 ;;9002226.02101,"1005,63304053377 ",.01)
 ;;63304053377
 ;;9002226.02101,"1005,63304053377 ",.02)
 ;;63304053377
 ;;9002226.02101,"1005,63304053401 ",.01)
 ;;63304053401
 ;;9002226.02101,"1005,63304053401 ",.02)
 ;;63304053401
 ;;9002226.02101,"1005,63304053410 ",.01)
 ;;63304053410
 ;;9002226.02101,"1005,63304053410 ",.02)
 ;;63304053410
 ;;9002226.02101,"1005,63304053411 ",.01)
 ;;63304053411
 ;;9002226.02101,"1005,63304053411 ",.02)
 ;;63304053411
 ;;9002226.02101,"1005,63304053477 ",.01)
 ;;63304053477
 ;;9002226.02101,"1005,63304053477 ",.02)
 ;;63304053477
 ;;9002226.02101,"1005,63304053501 ",.01)
 ;;63304053501
 ;;9002226.02101,"1005,63304053501 ",.02)
 ;;63304053501
 ;;9002226.02101,"1005,63304053510 ",.01)
 ;;63304053510
 ;;9002226.02101,"1005,63304053510 ",.02)
 ;;63304053510
 ;;9002226.02101,"1005,63304053511 ",.01)
 ;;63304053511
 ;;9002226.02101,"1005,63304053511 ",.02)
 ;;63304053511
 ;;9002226.02101,"1005,63304053577 ",.01)
 ;;63304053577
 ;;9002226.02101,"1005,63304053577 ",.02)
 ;;63304053577
 ;;9002226.02101,"1005,63304053601 ",.01)
 ;;63304053601
 ;;9002226.02101,"1005,63304053601 ",.02)
 ;;63304053601
 ;;9002226.02101,"1005,63304053605 ",.01)
 ;;63304053605
 ;;9002226.02101,"1005,63304053605 ",.02)
 ;;63304053605
 ;;9002226.02101,"1005,63304053701 ",.01)
 ;;63304053701
 ;;9002226.02101,"1005,63304053701 ",.02)
 ;;63304053701
 ;;9002226.02101,"1005,63304053705 ",.01)
 ;;63304053705
 ;;9002226.02101,"1005,63304053705 ",.02)
 ;;63304053705
 ;;9002226.02101,"1005,63304053801 ",.01)
 ;;63304053801
 ;;9002226.02101,"1005,63304053801 ",.02)
 ;;63304053801
 ;;9002226.02101,"1005,63304053805 ",.01)
 ;;63304053805
 ;;9002226.02101,"1005,63304053805 ",.02)
 ;;63304053805
 ;;9002226.02101,"1005,63304054890 ",.01)
 ;;63304054890
 ;;9002226.02101,"1005,63304054890 ",.02)
 ;;63304054890
 ;;9002226.02101,"1005,63304054990 ",.01)
 ;;63304054990
 ;;9002226.02101,"1005,63304054990 ",.02)
 ;;63304054990