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

BGPM5BEU.m

Go to the documentation of this file.
BGPM5BEU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,00480571005 ",.02)
 ;;00480571005
 ;;9002226.02101,"1084,00480571083 ",.01)
 ;;00480571083
 ;;9002226.02101,"1084,00480571083 ",.02)
 ;;00480571083
 ;;9002226.02101,"1084,00480571101 ",.01)
 ;;00480571101
 ;;9002226.02101,"1084,00480571101 ",.02)
 ;;00480571101
 ;;9002226.02101,"1084,00480571105 ",.01)
 ;;00480571105
 ;;9002226.02101,"1084,00480571105 ",.02)
 ;;00480571105
 ;;9002226.02101,"1084,00480571115 ",.01)
 ;;00480571115
 ;;9002226.02101,"1084,00480571115 ",.02)
 ;;00480571115
 ;;9002226.02101,"1084,00480571201 ",.01)
 ;;00480571201
 ;;9002226.02101,"1084,00480571201 ",.02)
 ;;00480571201
 ;;9002226.02101,"1084,00480571205 ",.01)
 ;;00480571205
 ;;9002226.02101,"1084,00480571205 ",.02)
 ;;00480571205
 ;;9002226.02101,"1084,00480571215 ",.01)
 ;;00480571215
 ;;9002226.02101,"1084,00480571215 ",.02)
 ;;00480571215
 ;;9002226.02101,"1084,00480721201 ",.01)
 ;;00480721201
 ;;9002226.02101,"1084,00480721201 ",.02)
 ;;00480721201
 ;;9002226.02101,"1084,00480721401 ",.01)
 ;;00480721401
 ;;9002226.02101,"1084,00480721401 ",.02)
 ;;00480721401
 ;;9002226.02101,"1084,00480721405 ",.01)
 ;;00480721405
 ;;9002226.02101,"1084,00480721405 ",.02)
 ;;00480721405
 ;;9002226.02101,"1084,00480721410 ",.01)
 ;;00480721410
 ;;9002226.02101,"1084,00480721410 ",.02)
 ;;00480721410
 ;;9002226.02101,"1084,00480725401 ",.01)
 ;;00480725401
 ;;9002226.02101,"1084,00480725401 ",.02)
 ;;00480725401
 ;;9002226.02101,"1084,00480725501 ",.01)
 ;;00480725501
 ;;9002226.02101,"1084,00480725501 ",.02)
 ;;00480725501
 ;;9002226.02101,"1084,00480725601 ",.01)
 ;;00480725601
 ;;9002226.02101,"1084,00480725601 ",.02)
 ;;00480725601
 ;;9002226.02101,"1084,00480725652 ",.01)
 ;;00480725652
 ;;9002226.02101,"1084,00480725652 ",.02)
 ;;00480725652
 ;;9002226.02101,"1084,00480726001 ",.01)
 ;;00480726001
 ;;9002226.02101,"1084,00480726001 ",.02)
 ;;00480726001
 ;;9002226.02101,"1084,00480726101 ",.01)
 ;;00480726101
 ;;9002226.02101,"1084,00480726101 ",.02)
 ;;00480726101
 ;;9002226.02101,"1084,00480726105 ",.01)
 ;;00480726105
 ;;9002226.02101,"1084,00480726105 ",.02)
 ;;00480726105
 ;;9002226.02101,"1084,00480726201 ",.01)
 ;;00480726201
 ;;9002226.02101,"1084,00480726201 ",.02)
 ;;00480726201
 ;;9002226.02101,"1084,00480726205 ",.01)
 ;;00480726205
 ;;9002226.02101,"1084,00480726205 ",.02)
 ;;00480726205
 ;;9002226.02101,"1084,00480726701 ",.01)
 ;;00480726701
 ;;9002226.02101,"1084,00480726701 ",.02)
 ;;00480726701
 ;;9002226.02101,"1084,00480726710 ",.01)
 ;;00480726710
 ;;9002226.02101,"1084,00480726710 ",.02)
 ;;00480726710
 ;;9002226.02101,"1084,00480745501 ",.01)
 ;;00480745501
 ;;9002226.02101,"1084,00480745501 ",.02)
 ;;00480745501
 ;;9002226.02101,"1084,00480745601 ",.01)
 ;;00480745601
 ;;9002226.02101,"1084,00480745601 ",.02)
 ;;00480745601
 ;;9002226.02101,"1084,00480745701 ",.01)
 ;;00480745701
 ;;9002226.02101,"1084,00480745701 ",.02)
 ;;00480745701
 ;;9002226.02101,"1084,00555010702 ",.01)
 ;;00555010702
 ;;9002226.02101,"1084,00555010702 ",.02)
 ;;00555010702
 ;;9002226.02101,"1084,00555038501 ",.01)
 ;;00555038501
 ;;9002226.02101,"1084,00555038501 ",.02)
 ;;00555038501
 ;;9002226.02101,"1084,00555038502 ",.01)
 ;;00555038502
 ;;9002226.02101,"1084,00555038502 ",.02)
 ;;00555038502
 ;;9002226.02101,"1084,00555038504 ",.01)
 ;;00555038504
 ;;9002226.02101,"1084,00555038504 ",.02)
 ;;00555038504
 ;;9002226.02101,"1084,00555038601 ",.01)
 ;;00555038601
 ;;9002226.02101,"1084,00555038601 ",.02)
 ;;00555038601
 ;;9002226.02101,"1084,00555038602 ",.01)
 ;;00555038602
 ;;9002226.02101,"1084,00555038602 ",.02)
 ;;00555038602
 ;;9002226.02101,"1084,00555038610 ",.01)
 ;;00555038610
 ;;9002226.02101,"1084,00555038610 ",.02)
 ;;00555038610
 ;;9002226.02101,"1084,00555038701 ",.01)
 ;;00555038701
 ;;9002226.02101,"1084,00555038701 ",.02)
 ;;00555038701
 ;;9002226.02101,"1084,00555038702 ",.01)
 ;;00555038702
 ;;9002226.02101,"1084,00555038702 ",.02)
 ;;00555038702
 ;;9002226.02101,"1084,00555038704 ",.01)
 ;;00555038704
 ;;9002226.02101,"1084,00555038704 ",.02)
 ;;00555038704
 ;;9002226.02101,"1084,00555044202 ",.01)
 ;;00555044202
 ;;9002226.02101,"1084,00555044202 ",.02)
 ;;00555044202
 ;;9002226.02101,"1084,00555044204 ",.01)
 ;;00555044204
 ;;9002226.02101,"1084,00555044204 ",.02)
 ;;00555044204
 ;;9002226.02101,"1084,00555044205 ",.01)
 ;;00555044205
 ;;9002226.02101,"1084,00555044205 ",.02)
 ;;00555044205
 ;;9002226.02101,"1084,00555044220 ",.01)
 ;;00555044220
 ;;9002226.02101,"1084,00555044220 ",.02)
 ;;00555044220
 ;;9002226.02101,"1084,00555044302 ",.01)
 ;;00555044302
 ;;9002226.02101,"1084,00555044302 ",.02)
 ;;00555044302
 ;;9002226.02101,"1084,00555044304 ",.01)
 ;;00555044304
 ;;9002226.02101,"1084,00555044304 ",.02)
 ;;00555044304
 ;;9002226.02101,"1084,00555044305 ",.01)
 ;;00555044305
 ;;9002226.02101,"1084,00555044305 ",.02)
 ;;00555044305
 ;;9002226.02101,"1084,00555044320 ",.01)
 ;;00555044320
 ;;9002226.02101,"1084,00555044320 ",.02)
 ;;00555044320
 ;;9002226.02101,"1084,00555062502 ",.01)
 ;;00555062502
 ;;9002226.02101,"1084,00555062502 ",.02)
 ;;00555062502
 ;;9002226.02101,"1084,00555062602 ",.01)
 ;;00555062602
 ;;9002226.02101,"1084,00555062602 ",.02)
 ;;00555062602
 ;;9002226.02101,"1084,00555062702 ",.01)
 ;;00555062702
 ;;9002226.02101,"1084,00555062702 ",.02)
 ;;00555062702
 ;;9002226.02101,"1084,00591046000 ",.01)
 ;;00591046000
 ;;9002226.02101,"1084,00591046000 ",.02)
 ;;00591046000
 ;;9002226.02101,"1084,00591046001 ",.01)
 ;;00591046001
 ;;9002226.02101,"1084,00591046001 ",.02)
 ;;00591046001
 ;;9002226.02101,"1084,00591046005 ",.01)
 ;;00591046005
 ;;9002226.02101,"1084,00591046005 ",.02)
 ;;00591046005
 ;;9002226.02101,"1084,00591046010 ",.01)
 ;;00591046010
 ;;9002226.02101,"1084,00591046010 ",.02)
 ;;00591046010
 ;;9002226.02101,"1084,00591046100 ",.01)
 ;;00591046100
 ;;9002226.02101,"1084,00591046100 ",.02)
 ;;00591046100
 ;;9002226.02101,"1084,00591046101 ",.01)
 ;;00591046101
 ;;9002226.02101,"1084,00591046101 ",.02)
 ;;00591046101
 ;;9002226.02101,"1084,00591046105 ",.01)
 ;;00591046105
 ;;9002226.02101,"1084,00591046105 ",.02)
 ;;00591046105
 ;;9002226.02101,"1084,00591046110 ",.01)
 ;;00591046110
 ;;9002226.02101,"1084,00591046110 ",.02)
 ;;00591046110
 ;;9002226.02101,"1084,00591084401 ",.01)
 ;;00591084401
 ;;9002226.02101,"1084,00591084401 ",.02)
 ;;00591084401
 ;;9002226.02101,"1084,00591084410 ",.01)
 ;;00591084410
 ;;9002226.02101,"1084,00591084410 ",.02)
 ;;00591084410
 ;;9002226.02101,"1084,00591084415 ",.01)
 ;;00591084415
 ;;9002226.02101,"1084,00591084415 ",.02)
 ;;00591084415
 ;;9002226.02101,"1084,00591084501 ",.01)
 ;;00591084501
 ;;9002226.02101,"1084,00591084501 ",.02)
 ;;00591084501
 ;;9002226.02101,"1084,00591084510 ",.01)
 ;;00591084510
 ;;9002226.02101,"1084,00591084510 ",.02)
 ;;00591084510
 ;;9002226.02101,"1084,00591084515 ",.01)
 ;;00591084515
 ;;9002226.02101,"1084,00591084515 ",.02)
 ;;00591084515
 ;;9002226.02101,"1084,00591090001 ",.01)
 ;;00591090001
 ;;9002226.02101,"1084,00591090001 ",.02)
 ;;00591090001
 ;;9002226.02101,"1084,00591090010 ",.01)
 ;;00591090010
 ;;9002226.02101,"1084,00591090010 ",.02)
 ;;00591090010
 ;;9002226.02101,"1084,00591090030 ",.01)
 ;;00591090030
 ;;9002226.02101,"1084,00591090030 ",.02)
 ;;00591090030
 ;;9002226.02101,"1084,00591245501 ",.01)
 ;;00591245501
 ;;9002226.02101,"1084,00591245501 ",.02)
 ;;00591245501
 ;;9002226.02101,"1084,00591245505 ",.01)
 ;;00591245505
 ;;9002226.02101,"1084,00591245505 ",.02)
 ;;00591245505
 ;;9002226.02101,"1084,00591245510 ",.01)
 ;;00591245510
 ;;9002226.02101,"1084,00591245510 ",.02)
 ;;00591245510
 ;;9002226.02101,"1084,00591271301 ",.01)
 ;;00591271301
 ;;9002226.02101,"1084,00591271301 ",.02)
 ;;00591271301
 ;;9002226.02101,"1084,00591271305 ",.01)
 ;;00591271305
 ;;9002226.02101,"1084,00591271305 ",.02)
 ;;00591271305
 ;;9002226.02101,"1084,00591271310 ",.01)
 ;;00591271310
 ;;9002226.02101,"1084,00591271310 ",.02)
 ;;00591271310
 ;;9002226.02101,"1084,00591277501 ",.01)
 ;;00591277501
 ;;9002226.02101,"1084,00591277501 ",.02)
 ;;00591277501
 ;;9002226.02101,"1084,00591277525 ",.01)
 ;;00591277525
 ;;9002226.02101,"1084,00591277525 ",.02)
 ;;00591277525
 ;;9002226.02101,"1084,00591277560 ",.01)
 ;;00591277560
 ;;9002226.02101,"1084,00591277560 ",.02)
 ;;00591277560
 ;;9002226.02101,"1084,00591335401 ",.01)
 ;;00591335401
 ;;9002226.02101,"1084,00591335401 ",.02)
 ;;00591335401
 ;;9002226.02101,"1084,00591335410 ",.01)
 ;;00591335410
 ;;9002226.02101,"1084,00591335410 ",.02)
 ;;00591335410
 ;;9002226.02101,"1084,00591335430 ",.01)
 ;;00591335430
 ;;9002226.02101,"1084,00591335430 ",.02)
 ;;00591335430
 ;;9002226.02101,"1084,00591335501 ",.01)
 ;;00591335501
 ;;9002226.02101,"1084,00591335501 ",.02)
 ;;00591335501
 ;;9002226.02101,"1084,00591335510 ",.01)
 ;;00591335510
 ;;9002226.02101,"1084,00591335510 ",.02)
 ;;00591335510
 ;;9002226.02101,"1084,00591335530 ",.01)
 ;;00591335530
 ;;9002226.02101,"1084,00591335530 ",.02)
 ;;00591335530
 ;;9002226.02101,"1084,00591397101 ",.01)
 ;;00591397101
 ;;9002226.02101,"1084,00591397101 ",.02)
 ;;00591397101
 ;;9002226.02101,"1084,00591397201 ",.01)
 ;;00591397201
 ;;9002226.02101,"1084,00591397201 ",.02)
 ;;00591397201
 ;;9002226.02101,"1084,00591397301 ",.01)
 ;;00591397301
 ;;9002226.02101,"1084,00591397301 ",.02)
 ;;00591397301
 ;;9002226.02101,"1084,00603283521 ",.01)
 ;;00603283521
 ;;9002226.02101,"1084,00603283521 ",.02)
 ;;00603283521
 ;;9002226.02101,"1084,00603283528 ",.01)
 ;;00603283528
 ;;9002226.02101,"1084,00603283528 ",.02)
 ;;00603283528
 ;;9002226.02101,"1084,00603283621 ",.01)
 ;;00603283621
 ;;9002226.02101,"1084,00603283621 ",.02)
 ;;00603283621
 ;;9002226.02101,"1084,00603283628 ",.01)
 ;;00603283628
 ;;9002226.02101,"1084,00603283628 ",.02)
 ;;00603283628
 ;;9002226.02101,"1084,00603283632 ",.01)
 ;;00603283632
 ;;9002226.02101,"1084,00603283632 ",.02)
 ;;00603283632
 ;;9002226.02101,"1084,00603374421 ",.01)
 ;;00603374421
 ;;9002226.02101,"1084,00603374421 ",.02)
 ;;00603374421
 ;;9002226.02101,"1084,00603374428 ",.01)
 ;;00603374428
 ;;9002226.02101,"1084,00603374428 ",.02)
 ;;00603374428
 ;;9002226.02101,"1084,00603374521 ",.01)
 ;;00603374521
 ;;9002226.02101,"1084,00603374521 ",.02)
 ;;00603374521
 ;;9002226.02101,"1084,00603374528 ",.01)
 ;;00603374528
 ;;9002226.02101,"1084,00603374528 ",.02)
 ;;00603374528
 ;;9002226.02101,"1084,00603374621 ",.01)
 ;;00603374621
 ;;9002226.02101,"1084,00603374621 ",.02)
 ;;00603374621
 ;;9002226.02101,"1084,00603374628 ",.01)
 ;;00603374628
 ;;9002226.02101,"1084,00603374628 ",.02)
 ;;00603374628
 ;;9002226.02101,"1084,00603375521 ",.01)
 ;;00603375521
 ;;9002226.02101,"1084,00603375521 ",.02)
 ;;00603375521
 ;;9002226.02101,"1084,00603375528 ",.01)
 ;;00603375528
 ;;9002226.02101,"1084,00603375528 ",.02)
 ;;00603375528
 ;;9002226.02101,"1084,00603375621 ",.01)
 ;;00603375621
 ;;9002226.02101,"1084,00603375621 ",.02)
 ;;00603375621
 ;;9002226.02101,"1084,00603375628 ",.01)
 ;;00603375628
 ;;9002226.02101,"1084,00603375628 ",.02)
 ;;00603375628
 ;;9002226.02101,"1084,00615155631 ",.01)
 ;;00615155631
 ;;9002226.02101,"1084,00615155631 ",.02)
 ;;00615155631
 ;;9002226.02101,"1084,00615155639 ",.01)
 ;;00615155639
 ;;9002226.02101,"1084,00615155639 ",.02)
 ;;00615155639
 ;;9002226.02101,"1084,00615359505 ",.01)
 ;;00615359505
 ;;9002226.02101,"1084,00615359505 ",.02)
 ;;00615359505
 ;;9002226.02101,"1084,00615359539 ",.01)
 ;;00615359539
 ;;9002226.02101,"1084,00615359539 ",.02)
 ;;00615359539