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

BGPM5AKE.m

Go to the documentation of this file.
BGPM5AKE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,62540573001 ",.01)
 ;;62540573001
 ;;9002226.02101,"889,62540573001 ",.02)
 ;;62540573001
 ;;9002226.02101,"889,62540573002 ",.01)
 ;;62540573002
 ;;9002226.02101,"889,62540573002 ",.02)
 ;;62540573002
 ;;9002226.02101,"889,62540573101 ",.01)
 ;;62540573101
 ;;9002226.02101,"889,62540573101 ",.02)
 ;;62540573101
 ;;9002226.02101,"889,62540573102 ",.01)
 ;;62540573102
 ;;9002226.02101,"889,62540573102 ",.02)
 ;;62540573102
 ;;9002226.02101,"889,62540573201 ",.01)
 ;;62540573201
 ;;9002226.02101,"889,62540573201 ",.02)
 ;;62540573201
 ;;9002226.02101,"889,62540573202 ",.01)
 ;;62540573202
 ;;9002226.02101,"889,62540573202 ",.02)
 ;;62540573202
 ;;9002226.02101,"889,62540820208 ",.01)
 ;;62540820208
 ;;9002226.02101,"889,62540820208 ",.02)
 ;;62540820208
 ;;9002226.02101,"889,62540820308 ",.01)
 ;;62540820308
 ;;9002226.02101,"889,62540820308 ",.02)
 ;;62540820308
 ;;9002226.02101,"889,62584005800 ",.01)
 ;;62584005800
 ;;9002226.02101,"889,62584005800 ",.02)
 ;;62584005800
 ;;9002226.02101,"889,62584007743 ",.01)
 ;;62584007743
 ;;9002226.02101,"889,62584007743 ",.02)
 ;;62584007743
 ;;9002226.02101,"889,62584026501 ",.01)
 ;;62584026501
 ;;9002226.02101,"889,62584026501 ",.02)
 ;;62584026501
 ;;9002226.02101,"889,62584026511 ",.01)
 ;;62584026511
 ;;9002226.02101,"889,62584026511 ",.02)
 ;;62584026511
 ;;9002226.02101,"889,62584026601 ",.01)
 ;;62584026601
 ;;9002226.02101,"889,62584026601 ",.02)
 ;;62584026601
 ;;9002226.02101,"889,62584026611 ",.01)
 ;;62584026611
 ;;9002226.02101,"889,62584026611 ",.02)
 ;;62584026611
 ;;9002226.02101,"889,62584026701 ",.01)
 ;;62584026701
 ;;9002226.02101,"889,62584026701 ",.02)
 ;;62584026701
 ;;9002226.02101,"889,62584026711 ",.01)
 ;;62584026711
 ;;9002226.02101,"889,62584026711 ",.02)
 ;;62584026711
 ;;9002226.02101,"889,62584030342 ",.01)
 ;;62584030342
 ;;9002226.02101,"889,62584030342 ",.02)
 ;;62584030342
 ;;9002226.02101,"889,62584030343 ",.01)
 ;;62584030343
 ;;9002226.02101,"889,62584030343 ",.02)
 ;;62584030343
 ;;9002226.02101,"889,62584034600 ",.01)
 ;;62584034600
 ;;9002226.02101,"889,62584034600 ",.02)
 ;;62584034600
 ;;9002226.02101,"889,62584034650 ",.01)
 ;;62584034650
 ;;9002226.02101,"889,62584034650 ",.02)
 ;;62584034650
 ;;9002226.02101,"889,62584034700 ",.01)
 ;;62584034700
 ;;9002226.02101,"889,62584034700 ",.02)
 ;;62584034700
 ;;9002226.02101,"889,62584042100 ",.01)
 ;;62584042100
 ;;9002226.02101,"889,62584042100 ",.02)
 ;;62584042100
 ;;9002226.02101,"889,62584042200 ",.01)
 ;;62584042200
 ;;9002226.02101,"889,62584042200 ",.02)
 ;;62584042200
 ;;9002226.02101,"889,62584042400 ",.01)
 ;;62584042400
 ;;9002226.02101,"889,62584042400 ",.02)
 ;;62584042400
 ;;9002226.02101,"889,62584042800 ",.01)
 ;;62584042800
 ;;9002226.02101,"889,62584042800 ",.02)
 ;;62584042800
 ;;9002226.02101,"889,62584042850 ",.01)
 ;;62584042850
 ;;9002226.02101,"889,62584042850 ",.02)
 ;;62584042850
 ;;9002226.02101,"889,62584046701 ",.01)
 ;;62584046701
 ;;9002226.02101,"889,62584046701 ",.02)
 ;;62584046701
 ;;9002226.02101,"889,62584046711 ",.01)
 ;;62584046711
 ;;9002226.02101,"889,62584046711 ",.02)
 ;;62584046711
 ;;9002226.02101,"889,62584046785 ",.01)
 ;;62584046785
 ;;9002226.02101,"889,62584046785 ",.02)
 ;;62584046785
 ;;9002226.02101,"889,62584047100 ",.01)
 ;;62584047100
 ;;9002226.02101,"889,62584047100 ",.02)
 ;;62584047100
 ;;9002226.02101,"889,62584047300 ",.01)
 ;;62584047300
 ;;9002226.02101,"889,62584047300 ",.02)
 ;;62584047300
 ;;9002226.02101,"889,62584047900 ",.01)
 ;;62584047900
 ;;9002226.02101,"889,62584047900 ",.02)
 ;;62584047900
 ;;9002226.02101,"889,62584052650 ",.01)
 ;;62584052650
 ;;9002226.02101,"889,62584052650 ",.02)
 ;;62584052650
 ;;9002226.02101,"889,62584058007 ",.01)
 ;;62584058007
 ;;9002226.02101,"889,62584058007 ",.02)
 ;;62584058007
 ;;9002226.02101,"889,62584071501 ",.01)
 ;;62584071501
 ;;9002226.02101,"889,62584071501 ",.02)
 ;;62584071501
 ;;9002226.02101,"889,62584071511 ",.01)
 ;;62584071511
 ;;9002226.02101,"889,62584071511 ",.02)
 ;;62584071511
 ;;9002226.02101,"889,62584078801 ",.01)
 ;;62584078801
 ;;9002226.02101,"889,62584078801 ",.02)
 ;;62584078801
 ;;9002226.02101,"889,62584078901 ",.01)
 ;;62584078901
 ;;9002226.02101,"889,62584078901 ",.02)
 ;;62584078901
 ;;9002226.02101,"889,62584084201 ",.01)
 ;;62584084201
 ;;9002226.02101,"889,62584084201 ",.02)
 ;;62584084201
 ;;9002226.02101,"889,62584084237 ",.01)
 ;;62584084237
 ;;9002226.02101,"889,62584084237 ",.02)
 ;;62584084237
 ;;9002226.02101,"889,62584084285 ",.01)
 ;;62584084285
 ;;9002226.02101,"889,62584084285 ",.02)
 ;;62584084285
 ;;9002226.02101,"889,62584084301 ",.01)
 ;;62584084301
 ;;9002226.02101,"889,62584084301 ",.02)
 ;;62584084301
 ;;9002226.02101,"889,62584084385 ",.01)
 ;;62584084385
 ;;9002226.02101,"889,62584084385 ",.02)
 ;;62584084385
 ;;9002226.02101,"889,62645030110 ",.01)
 ;;62645030110
 ;;9002226.02101,"889,62645030110 ",.02)
 ;;62645030110
 ;;9002226.02101,"889,62778005722 ",.01)
 ;;62778005722
 ;;9002226.02101,"889,62778005722 ",.02)
 ;;62778005722
 ;;9002226.02101,"889,62778005802 ",.01)
 ;;62778005802
 ;;9002226.02101,"889,62778005802 ",.02)
 ;;62778005802
 ;;9002226.02101,"889,63304057901 ",.01)
 ;;63304057901
 ;;9002226.02101,"889,63304057901 ",.02)
 ;;63304057901
 ;;9002226.02101,"889,63304057903 ",.01)
 ;;63304057903
 ;;9002226.02101,"889,63304057903 ",.02)
 ;;63304057903
 ;;9002226.02101,"889,63304057910 ",.01)
 ;;63304057910
 ;;9002226.02101,"889,63304057910 ",.02)
 ;;63304057910
 ;;9002226.02101,"889,63304058001 ",.01)
 ;;63304058001
 ;;9002226.02101,"889,63304058001 ",.02)
 ;;63304058001
 ;;9002226.02101,"889,63304058003 ",.01)
 ;;63304058003
 ;;9002226.02101,"889,63304058003 ",.02)
 ;;63304058003
 ;;9002226.02101,"889,63304058010 ",.01)
 ;;63304058010
 ;;9002226.02101,"889,63304058010 ",.02)
 ;;63304058010
 ;;9002226.02101,"889,63304058101 ",.01)
 ;;63304058101
 ;;9002226.02101,"889,63304058101 ",.02)
 ;;63304058101
 ;;9002226.02101,"889,63304058103 ",.01)
 ;;63304058103
 ;;9002226.02101,"889,63304058103 ",.02)
 ;;63304058103
 ;;9002226.02101,"889,63304058110 ",.01)
 ;;63304058110
 ;;9002226.02101,"889,63304058110 ",.02)
 ;;63304058110
 ;;9002226.02101,"889,63304062101 ",.01)
 ;;63304062101
 ;;9002226.02101,"889,63304062101 ",.02)
 ;;63304062101
 ;;9002226.02101,"889,63304062103 ",.01)
 ;;63304062103
 ;;9002226.02101,"889,63304062103 ",.02)
 ;;63304062103
 ;;9002226.02101,"889,63304062110 ",.01)
 ;;63304062110
 ;;9002226.02101,"889,63304062110 ",.02)
 ;;63304062110
 ;;9002226.02101,"889,63304062201 ",.01)
 ;;63304062201
 ;;9002226.02101,"889,63304062201 ",.02)
 ;;63304062201
 ;;9002226.02101,"889,63304062203 ",.01)
 ;;63304062203
 ;;9002226.02101,"889,63304062203 ",.02)
 ;;63304062203
 ;;9002226.02101,"889,63304062210 ",.01)
 ;;63304062210
 ;;9002226.02101,"889,63304062210 ",.02)
 ;;63304062210
 ;;9002226.02101,"889,63304062301 ",.01)
 ;;63304062301
 ;;9002226.02101,"889,63304062301 ",.02)
 ;;63304062301
 ;;9002226.02101,"889,63304062303 ",.01)
 ;;63304062303
 ;;9002226.02101,"889,63304062303 ",.02)
 ;;63304062303
 ;;9002226.02101,"889,63304062310 ",.01)
 ;;63304062310
 ;;9002226.02101,"889,63304062310 ",.02)
 ;;63304062310
 ;;9002226.02101,"889,63323060401 ",.01)
 ;;63323060401
 ;;9002226.02101,"889,63323060401 ",.02)
 ;;63323060401
 ;;9002226.02101,"889,63323066005 ",.01)
 ;;63323066005
 ;;9002226.02101,"889,63323066005 ",.02)
 ;;63323066005
 ;;9002226.02101,"889,63629142301 ",.01)
 ;;63629142301
 ;;9002226.02101,"889,63629142301 ",.02)
 ;;63629142301
 ;;9002226.02101,"889,63629142302 ",.01)
 ;;63629142302
 ;;9002226.02101,"889,63629142302 ",.02)
 ;;63629142302
 ;;9002226.02101,"889,63629146201 ",.01)
 ;;63629146201
 ;;9002226.02101,"889,63629146201 ",.02)
 ;;63629146201
 ;;9002226.02101,"889,63629146202 ",.01)
 ;;63629146202
 ;;9002226.02101,"889,63629146202 ",.02)
 ;;63629146202
 ;;9002226.02101,"889,63629146203 ",.01)
 ;;63629146203
 ;;9002226.02101,"889,63629146203 ",.02)
 ;;63629146203
 ;;9002226.02101,"889,63629146301 ",.01)
 ;;63629146301
 ;;9002226.02101,"889,63629146301 ",.02)
 ;;63629146301
 ;;9002226.02101,"889,63629146302 ",.01)
 ;;63629146302
 ;;9002226.02101,"889,63629146302 ",.02)
 ;;63629146302
 ;;9002226.02101,"889,63629146303 ",.01)
 ;;63629146303
 ;;9002226.02101,"889,63629146303 ",.02)
 ;;63629146303
 ;;9002226.02101,"889,63629146304 ",.01)
 ;;63629146304
 ;;9002226.02101,"889,63629146304 ",.02)
 ;;63629146304
 ;;9002226.02101,"889,63629146305 ",.01)
 ;;63629146305
 ;;9002226.02101,"889,63629146305 ",.02)
 ;;63629146305
 ;;9002226.02101,"889,63629167401 ",.01)
 ;;63629167401
 ;;9002226.02101,"889,63629167401 ",.02)
 ;;63629167401
 ;;9002226.02101,"889,63629174001 ",.01)
 ;;63629174001
 ;;9002226.02101,"889,63629174001 ",.02)
 ;;63629174001
 ;;9002226.02101,"889,63629174002 ",.01)
 ;;63629174002
 ;;9002226.02101,"889,63629174002 ",.02)
 ;;63629174002
 ;;9002226.02101,"889,63629174003 ",.01)
 ;;63629174003
 ;;9002226.02101,"889,63629174003 ",.02)
 ;;63629174003
 ;;9002226.02101,"889,63629178501 ",.01)
 ;;63629178501
 ;;9002226.02101,"889,63629178501 ",.02)
 ;;63629178501
 ;;9002226.02101,"889,63629178502 ",.01)
 ;;63629178502
 ;;9002226.02101,"889,63629178502 ",.02)
 ;;63629178502
 ;;9002226.02101,"889,63629178503 ",.01)
 ;;63629178503
 ;;9002226.02101,"889,63629178503 ",.02)
 ;;63629178503
 ;;9002226.02101,"889,63629184201 ",.01)
 ;;63629184201
 ;;9002226.02101,"889,63629184201 ",.02)
 ;;63629184201
 ;;9002226.02101,"889,63629257001 ",.01)
 ;;63629257001
 ;;9002226.02101,"889,63629257001 ",.02)
 ;;63629257001
 ;;9002226.02101,"889,63629257002 ",.01)
 ;;63629257002
 ;;9002226.02101,"889,63629257002 ",.02)
 ;;63629257002
 ;;9002226.02101,"889,63629257003 ",.01)
 ;;63629257003
 ;;9002226.02101,"889,63629257003 ",.02)
 ;;63629257003
 ;;9002226.02101,"889,63629257004 ",.01)
 ;;63629257004
 ;;9002226.02101,"889,63629257004 ",.02)
 ;;63629257004
 ;;9002226.02101,"889,63629262601 ",.01)
 ;;63629262601
 ;;9002226.02101,"889,63629262601 ",.02)
 ;;63629262601
 ;;9002226.02101,"889,63629262602 ",.01)
 ;;63629262602
 ;;9002226.02101,"889,63629262602 ",.02)
 ;;63629262602
 ;;9002226.02101,"889,63629262603 ",.01)
 ;;63629262603
 ;;9002226.02101,"889,63629262603 ",.02)
 ;;63629262603
 ;;9002226.02101,"889,63629262604 ",.01)
 ;;63629262604
 ;;9002226.02101,"889,63629262604 ",.02)
 ;;63629262604
 ;;9002226.02101,"889,63629290901 ",.01)
 ;;63629290901
 ;;9002226.02101,"889,63629290901 ",.02)
 ;;63629290901
 ;;9002226.02101,"889,63629290902 ",.01)
 ;;63629290902
 ;;9002226.02101,"889,63629290902 ",.02)
 ;;63629290902
 ;;9002226.02101,"889,63629290903 ",.01)
 ;;63629290903
 ;;9002226.02101,"889,63629290903 ",.02)
 ;;63629290903
 ;;9002226.02101,"889,63629290904 ",.01)
 ;;63629290904
 ;;9002226.02101,"889,63629290904 ",.02)
 ;;63629290904
 ;;9002226.02101,"889,63629358701 ",.01)
 ;;63629358701
 ;;9002226.02101,"889,63629358701 ",.02)
 ;;63629358701
 ;;9002226.02101,"889,63629358702 ",.01)
 ;;63629358702
 ;;9002226.02101,"889,63629358702 ",.02)
 ;;63629358702
 ;;9002226.02101,"889,63629373801 ",.01)
 ;;63629373801
 ;;9002226.02101,"889,63629373801 ",.02)
 ;;63629373801
 ;;9002226.02101,"889,63629407201 ",.01)
 ;;63629407201
 ;;9002226.02101,"889,63629407201 ",.02)
 ;;63629407201
 ;;9002226.02101,"889,63629407501 ",.01)
 ;;63629407501
 ;;9002226.02101,"889,63629407501 ",.02)
 ;;63629407501
 ;;9002226.02101,"889,63739002701 ",.01)
 ;;63739002701
 ;;9002226.02101,"889,63739002701 ",.02)
 ;;63739002701