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.
  1. BGPM5AWO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1033,63874011830 ",.02)
  1. ;;63874011830
  1. ;;9002226.02101,"1033,63874011840 ",.01)
  1. ;;63874011840
  1. ;;9002226.02101,"1033,63874011840 ",.02)
  1. ;;63874011840
  1. ;;9002226.02101,"1033,63874011850 ",.01)
  1. ;;63874011850
  1. ;;9002226.02101,"1033,63874011850 ",.02)
  1. ;;63874011850
  1. ;;9002226.02101,"1033,63874011860 ",.01)
  1. ;;63874011860
  1. ;;9002226.02101,"1033,63874011860 ",.02)
  1. ;;63874011860
  1. ;;9002226.02101,"1033,63874011901 ",.01)
  1. ;;63874011901
  1. ;;9002226.02101,"1033,63874011901 ",.02)
  1. ;;63874011901
  1. ;;9002226.02101,"1033,63874011921 ",.01)
  1. ;;63874011921
  1. ;;9002226.02101,"1033,63874011921 ",.02)
  1. ;;63874011921
  1. ;;9002226.02101,"1033,63874011930 ",.01)
  1. ;;63874011930
  1. ;;9002226.02101,"1033,63874011930 ",.02)
  1. ;;63874011930
  1. ;;9002226.02101,"1033,63874012001 ",.01)
  1. ;;63874012001
  1. ;;9002226.02101,"1033,63874012001 ",.02)
  1. ;;63874012001
  1. ;;9002226.02101,"1033,63874012012 ",.01)
  1. ;;63874012012
  1. ;;9002226.02101,"1033,63874012012 ",.02)
  1. ;;63874012012
  1. ;;9002226.02101,"1033,63874012020 ",.01)
  1. ;;63874012020
  1. ;;9002226.02101,"1033,63874012020 ",.02)
  1. ;;63874012020
  1. ;;9002226.02101,"1033,63874012030 ",.01)
  1. ;;63874012030
  1. ;;9002226.02101,"1033,63874012030 ",.02)
  1. ;;63874012030
  1. ;;9002226.02101,"1033,63874012301 ",.01)
  1. ;;63874012301
  1. ;;9002226.02101,"1033,63874012301 ",.02)
  1. ;;63874012301
  1. ;;9002226.02101,"1033,63874012312 ",.01)
  1. ;;63874012312
  1. ;;9002226.02101,"1033,63874012312 ",.02)
  1. ;;63874012312
  1. ;;9002226.02101,"1033,63874012314 ",.01)
  1. ;;63874012314
  1. ;;9002226.02101,"1033,63874012314 ",.02)
  1. ;;63874012314
  1. ;;9002226.02101,"1033,63874012315 ",.01)
  1. ;;63874012315
  1. ;;9002226.02101,"1033,63874012315 ",.02)
  1. ;;63874012315
  1. ;;9002226.02101,"1033,63874012320 ",.01)
  1. ;;63874012320
  1. ;;9002226.02101,"1033,63874012320 ",.02)
  1. ;;63874012320
  1. ;;9002226.02101,"1033,63874012321 ",.01)
  1. ;;63874012321
  1. ;;9002226.02101,"1033,63874012321 ",.02)
  1. ;;63874012321
  1. ;;9002226.02101,"1033,63874012324 ",.01)
  1. ;;63874012324
  1. ;;9002226.02101,"1033,63874012324 ",.02)
  1. ;;63874012324
  1. ;;9002226.02101,"1033,63874012328 ",.01)
  1. ;;63874012328
  1. ;;9002226.02101,"1033,63874012328 ",.02)
  1. ;;63874012328
  1. ;;9002226.02101,"1033,63874012330 ",.01)
  1. ;;63874012330
  1. ;;9002226.02101,"1033,63874012330 ",.02)
  1. ;;63874012330
  1. ;;9002226.02101,"1033,63874012340 ",.01)
  1. ;;63874012340
  1. ;;9002226.02101,"1033,63874012340 ",.02)
  1. ;;63874012340
  1. ;;9002226.02101,"1033,63874012350 ",.01)
  1. ;;63874012350
  1. ;;9002226.02101,"1033,63874012350 ",.02)
  1. ;;63874012350
  1. ;;9002226.02101,"1033,63874012360 ",.01)
  1. ;;63874012360
  1. ;;9002226.02101,"1033,63874012360 ",.02)
  1. ;;63874012360
  1. ;;9002226.02101,"1033,63874012401 ",.01)
  1. ;;63874012401
  1. ;;9002226.02101,"1033,63874012401 ",.02)
  1. ;;63874012401
  1. ;;9002226.02101,"1033,63874012402 ",.01)
  1. ;;63874012402
  1. ;;9002226.02101,"1033,63874012402 ",.02)
  1. ;;63874012402
  1. ;;9002226.02101,"1033,63874012410 ",.01)
  1. ;;63874012410
  1. ;;9002226.02101,"1033,63874012410 ",.02)
  1. ;;63874012410
  1. ;;9002226.02101,"1033,63874012412 ",.01)
  1. ;;63874012412
  1. ;;9002226.02101,"1033,63874012412 ",.02)
  1. ;;63874012412
  1. ;;9002226.02101,"1033,63874012414 ",.01)
  1. ;;63874012414
  1. ;;9002226.02101,"1033,63874012414 ",.02)
  1. ;;63874012414
  1. ;;9002226.02101,"1033,63874012415 ",.01)
  1. ;;63874012415
  1. ;;9002226.02101,"1033,63874012415 ",.02)
  1. ;;63874012415
  1. ;;9002226.02101,"1033,63874012420 ",.01)
  1. ;;63874012420
  1. ;;9002226.02101,"1033,63874012420 ",.02)
  1. ;;63874012420
  1. ;;9002226.02101,"1033,63874012421 ",.01)
  1. ;;63874012421
  1. ;;9002226.02101,"1033,63874012421 ",.02)
  1. ;;63874012421
  1. ;;9002226.02101,"1033,63874012424 ",.01)
  1. ;;63874012424
  1. ;;9002226.02101,"1033,63874012424 ",.02)
  1. ;;63874012424
  1. ;;9002226.02101,"1033,63874012428 ",.01)
  1. ;;63874012428
  1. ;;9002226.02101,"1033,63874012428 ",.02)
  1. ;;63874012428
  1. ;;9002226.02101,"1033,63874012430 ",.01)
  1. ;;63874012430
  1. ;;9002226.02101,"1033,63874012430 ",.02)
  1. ;;63874012430
  1. ;;9002226.02101,"1033,63874012440 ",.01)
  1. ;;63874012440
  1. ;;9002226.02101,"1033,63874012440 ",.02)
  1. ;;63874012440
  1. ;;9002226.02101,"1033,63874012450 ",.01)
  1. ;;63874012450
  1. ;;9002226.02101,"1033,63874012450 ",.02)
  1. ;;63874012450
  1. ;;9002226.02101,"1033,63874012460 ",.01)
  1. ;;63874012460
  1. ;;9002226.02101,"1033,63874012460 ",.02)
  1. ;;63874012460
  1. ;;9002226.02101,"1033,63874012501 ",.01)
  1. ;;63874012501
  1. ;;9002226.02101,"1033,63874012501 ",.02)
  1. ;;63874012501
  1. ;;9002226.02101,"1033,63874012502 ",.01)
  1. ;;63874012502
  1. ;;9002226.02101,"1033,63874012502 ",.02)
  1. ;;63874012502
  1. ;;9002226.02101,"1033,63874012510 ",.01)
  1. ;;63874012510
  1. ;;9002226.02101,"1033,63874012510 ",.02)
  1. ;;63874012510
  1. ;;9002226.02101,"1033,63874012514 ",.01)
  1. ;;63874012514
  1. ;;9002226.02101,"1033,63874012514 ",.02)
  1. ;;63874012514
  1. ;;9002226.02101,"1033,63874012515 ",.01)
  1. ;;63874012515
  1. ;;9002226.02101,"1033,63874012515 ",.02)
  1. ;;63874012515
  1. ;;9002226.02101,"1033,63874012520 ",.01)
  1. ;;63874012520
  1. ;;9002226.02101,"1033,63874012520 ",.02)
  1. ;;63874012520
  1. ;;9002226.02101,"1033,63874012521 ",.01)
  1. ;;63874012521
  1. ;;9002226.02101,"1033,63874012521 ",.02)
  1. ;;63874012521
  1. ;;9002226.02101,"1033,63874012524 ",.01)
  1. ;;63874012524
  1. ;;9002226.02101,"1033,63874012524 ",.02)
  1. ;;63874012524
  1. ;;9002226.02101,"1033,63874012528 ",.01)
  1. ;;63874012528
  1. ;;9002226.02101,"1033,63874012528 ",.02)
  1. ;;63874012528
  1. ;;9002226.02101,"1033,63874012530 ",.01)
  1. ;;63874012530
  1. ;;9002226.02101,"1033,63874012530 ",.02)
  1. ;;63874012530
  1. ;;9002226.02101,"1033,63874012540 ",.01)
  1. ;;63874012540
  1. ;;9002226.02101,"1033,63874012540 ",.02)
  1. ;;63874012540
  1. ;;9002226.02101,"1033,63874012560 ",.01)
  1. ;;63874012560
  1. ;;9002226.02101,"1033,63874012560 ",.02)
  1. ;;63874012560
  1. ;;9002226.02101,"1033,63874012580 ",.01)
  1. ;;63874012580
  1. ;;9002226.02101,"1033,63874012580 ",.02)
  1. ;;63874012580
  1. ;;9002226.02101,"1033,63874014310 ",.01)
  1. ;;63874014310
  1. ;;9002226.02101,"1033,63874014310 ",.02)
  1. ;;63874014310
  1. ;;9002226.02101,"1033,63874014315 ",.01)
  1. ;;63874014315
  1. ;;9002226.02101,"1033,63874014315 ",.02)
  1. ;;63874014315
  1. ;;9002226.02101,"1033,63874014380 ",.01)
  1. ;;63874014380
  1. ;;9002226.02101,"1033,63874014380 ",.02)
  1. ;;63874014380
  1. ;;9002226.02101,"1033,63874014410 ",.01)
  1. ;;63874014410
  1. ;;9002226.02101,"1033,63874014410 ",.02)
  1. ;;63874014410
  1. ;;9002226.02101,"1033,63874014415 ",.01)
  1. ;;63874014415
  1. ;;9002226.02101,"1033,63874014415 ",.02)
  1. ;;63874014415
  1. ;;9002226.02101,"1033,63874014610 ",.01)
  1. ;;63874014610
  1. ;;9002226.02101,"1033,63874014610 ",.02)
  1. ;;63874014610
  1. ;;9002226.02101,"1033,63874014615 ",.01)
  1. ;;63874014615
  1. ;;9002226.02101,"1033,63874014615 ",.02)
  1. ;;63874014615
  1. ;;9002226.02101,"1033,63874014620 ",.01)
  1. ;;63874014620
  1. ;;9002226.02101,"1033,63874014620 ",.02)
  1. ;;63874014620
  1. ;;9002226.02101,"1033,63874015115 ",.01)
  1. ;;63874015115
  1. ;;9002226.02101,"1033,63874015115 ",.02)
  1. ;;63874015115
  1. ;;9002226.02101,"1033,63874015175 ",.01)
  1. ;;63874015175
  1. ;;9002226.02101,"1033,63874015175 ",.02)
  1. ;;63874015175
  1. ;;9002226.02101,"1033,63874015315 ",.01)
  1. ;;63874015315
  1. ;;9002226.02101,"1033,63874015315 ",.02)
  1. ;;63874015315
  1. ;;9002226.02101,"1033,63874015375 ",.01)
  1. ;;63874015375
  1. ;;9002226.02101,"1033,63874015375 ",.02)
  1. ;;63874015375
  1. ;;9002226.02101,"1033,63874015510 ",.01)
  1. ;;63874015510
  1. ;;9002226.02101,"1033,63874015510 ",.02)
  1. ;;63874015510
  1. ;;9002226.02101,"1033,63874015520 ",.01)
  1. ;;63874015520
  1. ;;9002226.02101,"1033,63874015520 ",.02)
  1. ;;63874015520
  1. ;;9002226.02101,"1033,63874015610 ",.01)
  1. ;;63874015610
  1. ;;9002226.02101,"1033,63874015610 ",.02)
  1. ;;63874015610
  1. ;;9002226.02101,"1033,63874015615 ",.01)
  1. ;;63874015615
  1. ;;9002226.02101,"1033,63874015615 ",.02)
  1. ;;63874015615
  1. ;;9002226.02101,"1033,63874015620 ",.01)
  1. ;;63874015620
  1. ;;9002226.02101,"1033,63874015620 ",.02)
  1. ;;63874015620
  1. ;;9002226.02101,"1033,63874015910 ",.01)
  1. ;;63874015910
  1. ;;9002226.02101,"1033,63874015910 ",.02)
  1. ;;63874015910
  1. ;;9002226.02101,"1033,63874015920 ",.01)
  1. ;;63874015920
  1. ;;9002226.02101,"1033,63874015920 ",.02)
  1. ;;63874015920
  1. ;;9002226.02101,"1033,63874016010 ",.01)
  1. ;;63874016010
  1. ;;9002226.02101,"1033,63874016010 ",.02)
  1. ;;63874016010
  1. ;;9002226.02101,"1033,63874016020 ",.01)
  1. ;;63874016020
  1. ;;9002226.02101,"1033,63874016020 ",.02)
  1. ;;63874016020
  1. ;;9002226.02101,"1033,63874016048 ",.01)
  1. ;;63874016048
  1. ;;9002226.02101,"1033,63874016048 ",.02)
  1. ;;63874016048
  1. ;;9002226.02101,"1033,63874016610 ",.01)
  1. ;;63874016610
  1. ;;9002226.02101,"1033,63874016610 ",.02)
  1. ;;63874016610
  1. ;;9002226.02101,"1033,63874016620 ",.01)
  1. ;;63874016620
  1. ;;9002226.02101,"1033,63874016620 ",.02)
  1. ;;63874016620
  1. ;;9002226.02101,"1033,63874017010 ",.01)
  1. ;;63874017010
  1. ;;9002226.02101,"1033,63874017010 ",.02)
  1. ;;63874017010
  1. ;;9002226.02101,"1033,63874017020 ",.01)
  1. ;;63874017020
  1. ;;9002226.02101,"1033,63874017020 ",.02)
  1. ;;63874017020
  1. ;;9002226.02101,"1033,63874023101 ",.01)
  1. ;;63874023101
  1. ;;9002226.02101,"1033,63874023101 ",.02)
  1. ;;63874023101
  1. ;;9002226.02101,"1033,63874023110 ",.01)
  1. ;;63874023110
  1. ;;9002226.02101,"1033,63874023110 ",.02)
  1. ;;63874023110
  1. ;;9002226.02101,"1033,63874023112 ",.01)
  1. ;;63874023112
  1. ;;9002226.02101,"1033,63874023112 ",.02)
  1. ;;63874023112
  1. ;;9002226.02101,"1033,63874023114 ",.01)
  1. ;;63874023114
  1. ;;9002226.02101,"1033,63874023114 ",.02)
  1. ;;63874023114
  1. ;;9002226.02101,"1033,63874023115 ",.01)
  1. ;;63874023115
  1. ;;9002226.02101,"1033,63874023115 ",.02)
  1. ;;63874023115
  1. ;;9002226.02101,"1033,63874023120 ",.01)
  1. ;;63874023120
  1. ;;9002226.02101,"1033,63874023120 ",.02)
  1. ;;63874023120
  1. ;;9002226.02101,"1033,63874023121 ",.01)
  1. ;;63874023121
  1. ;;9002226.02101,"1033,63874023121 ",.02)
  1. ;;63874023121
  1. ;;9002226.02101,"1033,63874023128 ",.01)
  1. ;;63874023128
  1. ;;9002226.02101,"1033,63874023128 ",.02)
  1. ;;63874023128
  1. ;;9002226.02101,"1033,63874023130 ",.01)
  1. ;;63874023130
  1. ;;9002226.02101,"1033,63874023130 ",.02)
  1. ;;63874023130
  1. ;;9002226.02101,"1033,63874023140 ",.01)
  1. ;;63874023140
  1. ;;9002226.02101,"1033,63874023140 ",.02)
  1. ;;63874023140
  1. ;;9002226.02101,"1033,63874023201 ",.01)
  1. ;;63874023201
  1. ;;9002226.02101,"1033,63874023201 ",.02)
  1. ;;63874023201
  1. ;;9002226.02101,"1033,63874023202 ",.01)
  1. ;;63874023202
  1. ;;9002226.02101,"1033,63874023202 ",.02)
  1. ;;63874023202
  1. ;;9002226.02101,"1033,63874023203 ",.01)
  1. ;;63874023203
  1. ;;9002226.02101,"1033,63874023203 ",.02)
  1. ;;63874023203
  1. ;;9002226.02101,"1033,63874023210 ",.01)
  1. ;;63874023210
  1. ;;9002226.02101,"1033,63874023210 ",.02)
  1. ;;63874023210
  1. ;;9002226.02101,"1033,63874023212 ",.01)
  1. ;;63874023212
  1. ;;9002226.02101,"1033,63874023212 ",.02)
  1. ;;63874023212
  1. ;;9002226.02101,"1033,63874023216 ",.01)
  1. ;;63874023216
  1. ;;9002226.02101,"1033,63874023216 ",.02)
  1. ;;63874023216
  1. ;;9002226.02101,"1033,63874023220 ",.01)
  1. ;;63874023220
  1. ;;9002226.02101,"1033,63874023220 ",.02)
  1. ;;63874023220
  1. ;;9002226.02101,"1033,63874023221 ",.01)
  1. ;;63874023221
  1. ;;9002226.02101,"1033,63874023221 ",.02)
  1. ;;63874023221
  1. ;;9002226.02101,"1033,63874023224 ",.01)
  1. ;;63874023224
  1. ;;9002226.02101,"1033,63874023224 ",.02)
  1. ;;63874023224
  1. ;;9002226.02101,"1033,63874023228 ",.01)
  1. ;;63874023228
  1. ;;9002226.02101,"1033,63874023228 ",.02)
  1. ;;63874023228
  1. ;;9002226.02101,"1033,63874023230 ",.01)
  1. ;;63874023230
  1. ;;9002226.02101,"1033,63874023230 ",.02)
  1. ;;63874023230
  1. ;;9002226.02101,"1033,63874023240 ",.01)
  1. ;;63874023240
  1. ;;9002226.02101,"1033,63874023240 ",.02)
  1. ;;63874023240
  1. ;;9002226.02101,"1033,63874023250 ",.01)
  1. ;;63874023250
  1. ;;9002226.02101,"1033,63874023250 ",.02)
  1. ;;63874023250
  1. ;;9002226.02101,"1033,63874023301 ",.01)
  1. ;;63874023301
  1. ;;9002226.02101,"1033,63874023301 ",.02)
  1. ;;63874023301
  1. ;;9002226.02101,"1033,63874023302 ",.01)
  1. ;;63874023302
  1. ;;9002226.02101,"1033,63874023302 ",.02)
  1. ;;63874023302