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

BGPM5AWO.m

Go to the documentation of this file.
BGPM5AWO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,63874011830 ",.02)
 ;;63874011830
 ;;9002226.02101,"1033,63874011840 ",.01)
 ;;63874011840
 ;;9002226.02101,"1033,63874011840 ",.02)
 ;;63874011840
 ;;9002226.02101,"1033,63874011850 ",.01)
 ;;63874011850
 ;;9002226.02101,"1033,63874011850 ",.02)
 ;;63874011850
 ;;9002226.02101,"1033,63874011860 ",.01)
 ;;63874011860
 ;;9002226.02101,"1033,63874011860 ",.02)
 ;;63874011860
 ;;9002226.02101,"1033,63874011901 ",.01)
 ;;63874011901
 ;;9002226.02101,"1033,63874011901 ",.02)
 ;;63874011901
 ;;9002226.02101,"1033,63874011921 ",.01)
 ;;63874011921
 ;;9002226.02101,"1033,63874011921 ",.02)
 ;;63874011921
 ;;9002226.02101,"1033,63874011930 ",.01)
 ;;63874011930
 ;;9002226.02101,"1033,63874011930 ",.02)
 ;;63874011930
 ;;9002226.02101,"1033,63874012001 ",.01)
 ;;63874012001
 ;;9002226.02101,"1033,63874012001 ",.02)
 ;;63874012001
 ;;9002226.02101,"1033,63874012012 ",.01)
 ;;63874012012
 ;;9002226.02101,"1033,63874012012 ",.02)
 ;;63874012012
 ;;9002226.02101,"1033,63874012020 ",.01)
 ;;63874012020
 ;;9002226.02101,"1033,63874012020 ",.02)
 ;;63874012020
 ;;9002226.02101,"1033,63874012030 ",.01)
 ;;63874012030
 ;;9002226.02101,"1033,63874012030 ",.02)
 ;;63874012030
 ;;9002226.02101,"1033,63874012301 ",.01)
 ;;63874012301
 ;;9002226.02101,"1033,63874012301 ",.02)
 ;;63874012301
 ;;9002226.02101,"1033,63874012312 ",.01)
 ;;63874012312
 ;;9002226.02101,"1033,63874012312 ",.02)
 ;;63874012312
 ;;9002226.02101,"1033,63874012314 ",.01)
 ;;63874012314
 ;;9002226.02101,"1033,63874012314 ",.02)
 ;;63874012314
 ;;9002226.02101,"1033,63874012315 ",.01)
 ;;63874012315
 ;;9002226.02101,"1033,63874012315 ",.02)
 ;;63874012315
 ;;9002226.02101,"1033,63874012320 ",.01)
 ;;63874012320
 ;;9002226.02101,"1033,63874012320 ",.02)
 ;;63874012320
 ;;9002226.02101,"1033,63874012321 ",.01)
 ;;63874012321
 ;;9002226.02101,"1033,63874012321 ",.02)
 ;;63874012321
 ;;9002226.02101,"1033,63874012324 ",.01)
 ;;63874012324
 ;;9002226.02101,"1033,63874012324 ",.02)
 ;;63874012324
 ;;9002226.02101,"1033,63874012328 ",.01)
 ;;63874012328
 ;;9002226.02101,"1033,63874012328 ",.02)
 ;;63874012328
 ;;9002226.02101,"1033,63874012330 ",.01)
 ;;63874012330
 ;;9002226.02101,"1033,63874012330 ",.02)
 ;;63874012330
 ;;9002226.02101,"1033,63874012340 ",.01)
 ;;63874012340
 ;;9002226.02101,"1033,63874012340 ",.02)
 ;;63874012340
 ;;9002226.02101,"1033,63874012350 ",.01)
 ;;63874012350
 ;;9002226.02101,"1033,63874012350 ",.02)
 ;;63874012350
 ;;9002226.02101,"1033,63874012360 ",.01)
 ;;63874012360
 ;;9002226.02101,"1033,63874012360 ",.02)
 ;;63874012360
 ;;9002226.02101,"1033,63874012401 ",.01)
 ;;63874012401
 ;;9002226.02101,"1033,63874012401 ",.02)
 ;;63874012401
 ;;9002226.02101,"1033,63874012402 ",.01)
 ;;63874012402
 ;;9002226.02101,"1033,63874012402 ",.02)
 ;;63874012402
 ;;9002226.02101,"1033,63874012410 ",.01)
 ;;63874012410
 ;;9002226.02101,"1033,63874012410 ",.02)
 ;;63874012410
 ;;9002226.02101,"1033,63874012412 ",.01)
 ;;63874012412
 ;;9002226.02101,"1033,63874012412 ",.02)
 ;;63874012412
 ;;9002226.02101,"1033,63874012414 ",.01)
 ;;63874012414
 ;;9002226.02101,"1033,63874012414 ",.02)
 ;;63874012414
 ;;9002226.02101,"1033,63874012415 ",.01)
 ;;63874012415
 ;;9002226.02101,"1033,63874012415 ",.02)
 ;;63874012415
 ;;9002226.02101,"1033,63874012420 ",.01)
 ;;63874012420
 ;;9002226.02101,"1033,63874012420 ",.02)
 ;;63874012420
 ;;9002226.02101,"1033,63874012421 ",.01)
 ;;63874012421
 ;;9002226.02101,"1033,63874012421 ",.02)
 ;;63874012421
 ;;9002226.02101,"1033,63874012424 ",.01)
 ;;63874012424
 ;;9002226.02101,"1033,63874012424 ",.02)
 ;;63874012424
 ;;9002226.02101,"1033,63874012428 ",.01)
 ;;63874012428
 ;;9002226.02101,"1033,63874012428 ",.02)
 ;;63874012428
 ;;9002226.02101,"1033,63874012430 ",.01)
 ;;63874012430
 ;;9002226.02101,"1033,63874012430 ",.02)
 ;;63874012430
 ;;9002226.02101,"1033,63874012440 ",.01)
 ;;63874012440
 ;;9002226.02101,"1033,63874012440 ",.02)
 ;;63874012440
 ;;9002226.02101,"1033,63874012450 ",.01)
 ;;63874012450
 ;;9002226.02101,"1033,63874012450 ",.02)
 ;;63874012450
 ;;9002226.02101,"1033,63874012460 ",.01)
 ;;63874012460
 ;;9002226.02101,"1033,63874012460 ",.02)
 ;;63874012460
 ;;9002226.02101,"1033,63874012501 ",.01)
 ;;63874012501
 ;;9002226.02101,"1033,63874012501 ",.02)
 ;;63874012501
 ;;9002226.02101,"1033,63874012502 ",.01)
 ;;63874012502
 ;;9002226.02101,"1033,63874012502 ",.02)
 ;;63874012502
 ;;9002226.02101,"1033,63874012510 ",.01)
 ;;63874012510
 ;;9002226.02101,"1033,63874012510 ",.02)
 ;;63874012510
 ;;9002226.02101,"1033,63874012514 ",.01)
 ;;63874012514
 ;;9002226.02101,"1033,63874012514 ",.02)
 ;;63874012514
 ;;9002226.02101,"1033,63874012515 ",.01)
 ;;63874012515
 ;;9002226.02101,"1033,63874012515 ",.02)
 ;;63874012515
 ;;9002226.02101,"1033,63874012520 ",.01)
 ;;63874012520
 ;;9002226.02101,"1033,63874012520 ",.02)
 ;;63874012520
 ;;9002226.02101,"1033,63874012521 ",.01)
 ;;63874012521
 ;;9002226.02101,"1033,63874012521 ",.02)
 ;;63874012521
 ;;9002226.02101,"1033,63874012524 ",.01)
 ;;63874012524
 ;;9002226.02101,"1033,63874012524 ",.02)
 ;;63874012524
 ;;9002226.02101,"1033,63874012528 ",.01)
 ;;63874012528
 ;;9002226.02101,"1033,63874012528 ",.02)
 ;;63874012528
 ;;9002226.02101,"1033,63874012530 ",.01)
 ;;63874012530
 ;;9002226.02101,"1033,63874012530 ",.02)
 ;;63874012530
 ;;9002226.02101,"1033,63874012540 ",.01)
 ;;63874012540
 ;;9002226.02101,"1033,63874012540 ",.02)
 ;;63874012540
 ;;9002226.02101,"1033,63874012560 ",.01)
 ;;63874012560
 ;;9002226.02101,"1033,63874012560 ",.02)
 ;;63874012560
 ;;9002226.02101,"1033,63874012580 ",.01)
 ;;63874012580
 ;;9002226.02101,"1033,63874012580 ",.02)
 ;;63874012580
 ;;9002226.02101,"1033,63874014310 ",.01)
 ;;63874014310
 ;;9002226.02101,"1033,63874014310 ",.02)
 ;;63874014310
 ;;9002226.02101,"1033,63874014315 ",.01)
 ;;63874014315
 ;;9002226.02101,"1033,63874014315 ",.02)
 ;;63874014315
 ;;9002226.02101,"1033,63874014380 ",.01)
 ;;63874014380
 ;;9002226.02101,"1033,63874014380 ",.02)
 ;;63874014380
 ;;9002226.02101,"1033,63874014410 ",.01)
 ;;63874014410
 ;;9002226.02101,"1033,63874014410 ",.02)
 ;;63874014410
 ;;9002226.02101,"1033,63874014415 ",.01)
 ;;63874014415
 ;;9002226.02101,"1033,63874014415 ",.02)
 ;;63874014415
 ;;9002226.02101,"1033,63874014610 ",.01)
 ;;63874014610
 ;;9002226.02101,"1033,63874014610 ",.02)
 ;;63874014610
 ;;9002226.02101,"1033,63874014615 ",.01)
 ;;63874014615
 ;;9002226.02101,"1033,63874014615 ",.02)
 ;;63874014615
 ;;9002226.02101,"1033,63874014620 ",.01)
 ;;63874014620
 ;;9002226.02101,"1033,63874014620 ",.02)
 ;;63874014620
 ;;9002226.02101,"1033,63874015115 ",.01)
 ;;63874015115
 ;;9002226.02101,"1033,63874015115 ",.02)
 ;;63874015115
 ;;9002226.02101,"1033,63874015175 ",.01)
 ;;63874015175
 ;;9002226.02101,"1033,63874015175 ",.02)
 ;;63874015175
 ;;9002226.02101,"1033,63874015315 ",.01)
 ;;63874015315
 ;;9002226.02101,"1033,63874015315 ",.02)
 ;;63874015315
 ;;9002226.02101,"1033,63874015375 ",.01)
 ;;63874015375
 ;;9002226.02101,"1033,63874015375 ",.02)
 ;;63874015375
 ;;9002226.02101,"1033,63874015510 ",.01)
 ;;63874015510
 ;;9002226.02101,"1033,63874015510 ",.02)
 ;;63874015510
 ;;9002226.02101,"1033,63874015520 ",.01)
 ;;63874015520
 ;;9002226.02101,"1033,63874015520 ",.02)
 ;;63874015520
 ;;9002226.02101,"1033,63874015610 ",.01)
 ;;63874015610
 ;;9002226.02101,"1033,63874015610 ",.02)
 ;;63874015610
 ;;9002226.02101,"1033,63874015615 ",.01)
 ;;63874015615
 ;;9002226.02101,"1033,63874015615 ",.02)
 ;;63874015615
 ;;9002226.02101,"1033,63874015620 ",.01)
 ;;63874015620
 ;;9002226.02101,"1033,63874015620 ",.02)
 ;;63874015620
 ;;9002226.02101,"1033,63874015910 ",.01)
 ;;63874015910
 ;;9002226.02101,"1033,63874015910 ",.02)
 ;;63874015910
 ;;9002226.02101,"1033,63874015920 ",.01)
 ;;63874015920
 ;;9002226.02101,"1033,63874015920 ",.02)
 ;;63874015920
 ;;9002226.02101,"1033,63874016010 ",.01)
 ;;63874016010
 ;;9002226.02101,"1033,63874016010 ",.02)
 ;;63874016010
 ;;9002226.02101,"1033,63874016020 ",.01)
 ;;63874016020
 ;;9002226.02101,"1033,63874016020 ",.02)
 ;;63874016020
 ;;9002226.02101,"1033,63874016048 ",.01)
 ;;63874016048
 ;;9002226.02101,"1033,63874016048 ",.02)
 ;;63874016048
 ;;9002226.02101,"1033,63874016610 ",.01)
 ;;63874016610
 ;;9002226.02101,"1033,63874016610 ",.02)
 ;;63874016610
 ;;9002226.02101,"1033,63874016620 ",.01)
 ;;63874016620
 ;;9002226.02101,"1033,63874016620 ",.02)
 ;;63874016620
 ;;9002226.02101,"1033,63874017010 ",.01)
 ;;63874017010
 ;;9002226.02101,"1033,63874017010 ",.02)
 ;;63874017010
 ;;9002226.02101,"1033,63874017020 ",.01)
 ;;63874017020
 ;;9002226.02101,"1033,63874017020 ",.02)
 ;;63874017020
 ;;9002226.02101,"1033,63874023101 ",.01)
 ;;63874023101
 ;;9002226.02101,"1033,63874023101 ",.02)
 ;;63874023101
 ;;9002226.02101,"1033,63874023110 ",.01)
 ;;63874023110
 ;;9002226.02101,"1033,63874023110 ",.02)
 ;;63874023110
 ;;9002226.02101,"1033,63874023112 ",.01)
 ;;63874023112
 ;;9002226.02101,"1033,63874023112 ",.02)
 ;;63874023112
 ;;9002226.02101,"1033,63874023114 ",.01)
 ;;63874023114
 ;;9002226.02101,"1033,63874023114 ",.02)
 ;;63874023114
 ;;9002226.02101,"1033,63874023115 ",.01)
 ;;63874023115
 ;;9002226.02101,"1033,63874023115 ",.02)
 ;;63874023115
 ;;9002226.02101,"1033,63874023120 ",.01)
 ;;63874023120
 ;;9002226.02101,"1033,63874023120 ",.02)
 ;;63874023120
 ;;9002226.02101,"1033,63874023121 ",.01)
 ;;63874023121
 ;;9002226.02101,"1033,63874023121 ",.02)
 ;;63874023121
 ;;9002226.02101,"1033,63874023128 ",.01)
 ;;63874023128
 ;;9002226.02101,"1033,63874023128 ",.02)
 ;;63874023128
 ;;9002226.02101,"1033,63874023130 ",.01)
 ;;63874023130
 ;;9002226.02101,"1033,63874023130 ",.02)
 ;;63874023130
 ;;9002226.02101,"1033,63874023140 ",.01)
 ;;63874023140
 ;;9002226.02101,"1033,63874023140 ",.02)
 ;;63874023140
 ;;9002226.02101,"1033,63874023201 ",.01)
 ;;63874023201
 ;;9002226.02101,"1033,63874023201 ",.02)
 ;;63874023201
 ;;9002226.02101,"1033,63874023202 ",.01)
 ;;63874023202
 ;;9002226.02101,"1033,63874023202 ",.02)
 ;;63874023202
 ;;9002226.02101,"1033,63874023203 ",.01)
 ;;63874023203
 ;;9002226.02101,"1033,63874023203 ",.02)
 ;;63874023203
 ;;9002226.02101,"1033,63874023210 ",.01)
 ;;63874023210
 ;;9002226.02101,"1033,63874023210 ",.02)
 ;;63874023210
 ;;9002226.02101,"1033,63874023212 ",.01)
 ;;63874023212
 ;;9002226.02101,"1033,63874023212 ",.02)
 ;;63874023212
 ;;9002226.02101,"1033,63874023216 ",.01)
 ;;63874023216
 ;;9002226.02101,"1033,63874023216 ",.02)
 ;;63874023216
 ;;9002226.02101,"1033,63874023220 ",.01)
 ;;63874023220
 ;;9002226.02101,"1033,63874023220 ",.02)
 ;;63874023220
 ;;9002226.02101,"1033,63874023221 ",.01)
 ;;63874023221
 ;;9002226.02101,"1033,63874023221 ",.02)
 ;;63874023221
 ;;9002226.02101,"1033,63874023224 ",.01)
 ;;63874023224
 ;;9002226.02101,"1033,63874023224 ",.02)
 ;;63874023224
 ;;9002226.02101,"1033,63874023228 ",.01)
 ;;63874023228
 ;;9002226.02101,"1033,63874023228 ",.02)
 ;;63874023228
 ;;9002226.02101,"1033,63874023230 ",.01)
 ;;63874023230
 ;;9002226.02101,"1033,63874023230 ",.02)
 ;;63874023230
 ;;9002226.02101,"1033,63874023240 ",.01)
 ;;63874023240
 ;;9002226.02101,"1033,63874023240 ",.02)
 ;;63874023240
 ;;9002226.02101,"1033,63874023250 ",.01)
 ;;63874023250
 ;;9002226.02101,"1033,63874023250 ",.02)
 ;;63874023250
 ;;9002226.02101,"1033,63874023301 ",.01)
 ;;63874023301
 ;;9002226.02101,"1033,63874023301 ",.02)
 ;;63874023301
 ;;9002226.02101,"1033,63874023302 ",.01)
 ;;63874023302
 ;;9002226.02101,"1033,63874023302 ",.02)
 ;;63874023302