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

BGPM5AJP.m

Go to the documentation of this file.
BGPM5AJP ;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,54569541900 ",.01)
 ;;54569541900
 ;;9002226.02101,"889,54569541900 ",.02)
 ;;54569541900
 ;;9002226.02101,"889,54569541901 ",.01)
 ;;54569541901
 ;;9002226.02101,"889,54569541901 ",.02)
 ;;54569541901
 ;;9002226.02101,"889,54569616900 ",.01)
 ;;54569616900
 ;;9002226.02101,"889,54569616900 ",.02)
 ;;54569616900
 ;;9002226.02101,"889,54569853200 ",.01)
 ;;54569853200
 ;;9002226.02101,"889,54569853200 ",.02)
 ;;54569853200
 ;;9002226.02101,"889,54569854300 ",.01)
 ;;54569854300
 ;;9002226.02101,"889,54569854300 ",.02)
 ;;54569854300
 ;;9002226.02101,"889,54569854500 ",.01)
 ;;54569854500
 ;;9002226.02101,"889,54569854500 ",.02)
 ;;54569854500
 ;;9002226.02101,"889,54569854501 ",.01)
 ;;54569854501
 ;;9002226.02101,"889,54569854501 ",.02)
 ;;54569854501
 ;;9002226.02101,"889,54569857400 ",.01)
 ;;54569857400
 ;;9002226.02101,"889,54569857400 ",.02)
 ;;54569857400
 ;;9002226.02101,"889,54569859100 ",.01)
 ;;54569859100
 ;;9002226.02101,"889,54569859100 ",.02)
 ;;54569859100
 ;;9002226.02101,"889,54643105701 ",.01)
 ;;54643105701
 ;;9002226.02101,"889,54643105701 ",.02)
 ;;54643105701
 ;;9002226.02101,"889,54643105705 ",.01)
 ;;54643105705
 ;;9002226.02101,"889,54643105705 ",.02)
 ;;54643105705
 ;;9002226.02101,"889,54643570000 ",.01)
 ;;54643570000
 ;;9002226.02101,"889,54643570000 ",.02)
 ;;54643570000
 ;;9002226.02101,"889,54643570001 ",.01)
 ;;54643570001
 ;;9002226.02101,"889,54643570001 ",.02)
 ;;54643570001
 ;;9002226.02101,"889,54738046801 ",.01)
 ;;54738046801
 ;;9002226.02101,"889,54738046801 ",.02)
 ;;54738046801
 ;;9002226.02101,"889,54738046803 ",.01)
 ;;54738046803
 ;;9002226.02101,"889,54738046803 ",.02)
 ;;54738046803
 ;;9002226.02101,"889,54738046901 ",.01)
 ;;54738046901
 ;;9002226.02101,"889,54738046901 ",.02)
 ;;54738046901
 ;;9002226.02101,"889,54738046903 ",.01)
 ;;54738046903
 ;;9002226.02101,"889,54738046903 ",.02)
 ;;54738046903
 ;;9002226.02101,"889,54868005200 ",.01)
 ;;54868005200
 ;;9002226.02101,"889,54868005200 ",.02)
 ;;54868005200
 ;;9002226.02101,"889,54868005201 ",.01)
 ;;54868005201
 ;;9002226.02101,"889,54868005201 ",.02)
 ;;54868005201
 ;;9002226.02101,"889,54868005202 ",.01)
 ;;54868005202
 ;;9002226.02101,"889,54868005202 ",.02)
 ;;54868005202
 ;;9002226.02101,"889,54868005302 ",.01)
 ;;54868005302
 ;;9002226.02101,"889,54868005302 ",.02)
 ;;54868005302
 ;;9002226.02101,"889,54868005303 ",.01)
 ;;54868005303
 ;;9002226.02101,"889,54868005303 ",.02)
 ;;54868005303
 ;;9002226.02101,"889,54868005306 ",.01)
 ;;54868005306
 ;;9002226.02101,"889,54868005306 ",.02)
 ;;54868005306
 ;;9002226.02101,"889,54868005307 ",.01)
 ;;54868005307
 ;;9002226.02101,"889,54868005307 ",.02)
 ;;54868005307
 ;;9002226.02101,"889,54868029300 ",.01)
 ;;54868029300
 ;;9002226.02101,"889,54868029300 ",.02)
 ;;54868029300
 ;;9002226.02101,"889,54868029301 ",.01)
 ;;54868029301
 ;;9002226.02101,"889,54868029301 ",.02)
 ;;54868029301
 ;;9002226.02101,"889,54868029303 ",.01)
 ;;54868029303
 ;;9002226.02101,"889,54868029303 ",.02)
 ;;54868029303
 ;;9002226.02101,"889,54868029304 ",.01)
 ;;54868029304
 ;;9002226.02101,"889,54868029304 ",.02)
 ;;54868029304
 ;;9002226.02101,"889,54868029305 ",.01)
 ;;54868029305
 ;;9002226.02101,"889,54868029305 ",.02)
 ;;54868029305
 ;;9002226.02101,"889,54868029306 ",.01)
 ;;54868029306
 ;;9002226.02101,"889,54868029306 ",.02)
 ;;54868029306
 ;;9002226.02101,"889,54868032100 ",.01)
 ;;54868032100
 ;;9002226.02101,"889,54868032100 ",.02)
 ;;54868032100
 ;;9002226.02101,"889,54868067400 ",.01)
 ;;54868067400
 ;;9002226.02101,"889,54868067400 ",.02)
 ;;54868067400
 ;;9002226.02101,"889,54868067401 ",.01)
 ;;54868067401
 ;;9002226.02101,"889,54868067401 ",.02)
 ;;54868067401
 ;;9002226.02101,"889,54868068000 ",.01)
 ;;54868068000
 ;;9002226.02101,"889,54868068000 ",.02)
 ;;54868068000
 ;;9002226.02101,"889,54868068001 ",.01)
 ;;54868068001
 ;;9002226.02101,"889,54868068001 ",.02)
 ;;54868068001
 ;;9002226.02101,"889,54868068501 ",.01)
 ;;54868068501
 ;;9002226.02101,"889,54868068501 ",.02)
 ;;54868068501
 ;;9002226.02101,"889,54868068502 ",.01)
 ;;54868068502
 ;;9002226.02101,"889,54868068502 ",.02)
 ;;54868068502
 ;;9002226.02101,"889,54868069601 ",.01)
 ;;54868069601
 ;;9002226.02101,"889,54868069601 ",.02)
 ;;54868069601
 ;;9002226.02101,"889,54868069602 ",.01)
 ;;54868069602
 ;;9002226.02101,"889,54868069602 ",.02)
 ;;54868069602
 ;;9002226.02101,"889,54868069603 ",.01)
 ;;54868069603
 ;;9002226.02101,"889,54868069603 ",.02)
 ;;54868069603
 ;;9002226.02101,"889,54868070100 ",.01)
 ;;54868070100
 ;;9002226.02101,"889,54868070100 ",.02)
 ;;54868070100
 ;;9002226.02101,"889,54868085400 ",.01)
 ;;54868085400
 ;;9002226.02101,"889,54868085400 ",.02)
 ;;54868085400
 ;;9002226.02101,"889,54868085401 ",.01)
 ;;54868085401
 ;;9002226.02101,"889,54868085401 ",.02)
 ;;54868085401
 ;;9002226.02101,"889,54868106300 ",.01)
 ;;54868106300
 ;;9002226.02101,"889,54868106300 ",.02)
 ;;54868106300
 ;;9002226.02101,"889,54868106301 ",.01)
 ;;54868106301
 ;;9002226.02101,"889,54868106301 ",.02)
 ;;54868106301
 ;;9002226.02101,"889,54868106302 ",.01)
 ;;54868106302
 ;;9002226.02101,"889,54868106302 ",.02)
 ;;54868106302
 ;;9002226.02101,"889,54868107801 ",.01)
 ;;54868107801
 ;;9002226.02101,"889,54868107801 ",.02)
 ;;54868107801
 ;;9002226.02101,"889,54868107803 ",.01)
 ;;54868107803
 ;;9002226.02101,"889,54868107803 ",.02)
 ;;54868107803
 ;;9002226.02101,"889,54868107805 ",.01)
 ;;54868107805
 ;;9002226.02101,"889,54868107805 ",.02)
 ;;54868107805
 ;;9002226.02101,"889,54868144100 ",.01)
 ;;54868144100
 ;;9002226.02101,"889,54868144100 ",.02)
 ;;54868144100
 ;;9002226.02101,"889,54868144101 ",.01)
 ;;54868144101
 ;;9002226.02101,"889,54868144101 ",.02)
 ;;54868144101
 ;;9002226.02101,"889,54868144200 ",.01)
 ;;54868144200
 ;;9002226.02101,"889,54868144200 ",.02)
 ;;54868144200
 ;;9002226.02101,"889,54868144201 ",.01)
 ;;54868144201
 ;;9002226.02101,"889,54868144201 ",.02)
 ;;54868144201
 ;;9002226.02101,"889,54868144202 ",.01)
 ;;54868144202
 ;;9002226.02101,"889,54868144202 ",.02)
 ;;54868144202
 ;;9002226.02101,"889,54868151700 ",.01)
 ;;54868151700
 ;;9002226.02101,"889,54868151700 ",.02)
 ;;54868151700
 ;;9002226.02101,"889,54868151701 ",.01)
 ;;54868151701
 ;;9002226.02101,"889,54868151701 ",.02)
 ;;54868151701
 ;;9002226.02101,"889,54868151702 ",.01)
 ;;54868151702
 ;;9002226.02101,"889,54868151702 ",.02)
 ;;54868151702
 ;;9002226.02101,"889,54868151703 ",.01)
 ;;54868151703
 ;;9002226.02101,"889,54868151703 ",.02)
 ;;54868151703
 ;;9002226.02101,"889,54868151800 ",.01)
 ;;54868151800
 ;;9002226.02101,"889,54868151800 ",.02)
 ;;54868151800
 ;;9002226.02101,"889,54868151801 ",.01)
 ;;54868151801
 ;;9002226.02101,"889,54868151801 ",.02)
 ;;54868151801
 ;;9002226.02101,"889,54868151802 ",.01)
 ;;54868151802
 ;;9002226.02101,"889,54868151802 ",.02)
 ;;54868151802
 ;;9002226.02101,"889,54868151803 ",.01)
 ;;54868151803
 ;;9002226.02101,"889,54868151803 ",.02)
 ;;54868151803
 ;;9002226.02101,"889,54868187100 ",.01)
 ;;54868187100
 ;;9002226.02101,"889,54868187100 ",.02)
 ;;54868187100
 ;;9002226.02101,"889,54868187101 ",.01)
 ;;54868187101
 ;;9002226.02101,"889,54868187101 ",.02)
 ;;54868187101
 ;;9002226.02101,"889,54868187102 ",.01)
 ;;54868187102
 ;;9002226.02101,"889,54868187102 ",.02)
 ;;54868187102
 ;;9002226.02101,"889,54868187104 ",.01)
 ;;54868187104
 ;;9002226.02101,"889,54868187104 ",.02)
 ;;54868187104
 ;;9002226.02101,"889,54868197100 ",.01)
 ;;54868197100
 ;;9002226.02101,"889,54868197100 ",.02)
 ;;54868197100
 ;;9002226.02101,"889,54868197101 ",.01)
 ;;54868197101
 ;;9002226.02101,"889,54868197101 ",.02)
 ;;54868197101
 ;;9002226.02101,"889,54868197103 ",.01)
 ;;54868197103
 ;;9002226.02101,"889,54868197103 ",.02)
 ;;54868197103
 ;;9002226.02101,"889,54868197104 ",.01)
 ;;54868197104
 ;;9002226.02101,"889,54868197104 ",.02)
 ;;54868197104
 ;;9002226.02101,"889,54868234901 ",.01)
 ;;54868234901
 ;;9002226.02101,"889,54868234901 ",.02)
 ;;54868234901
 ;;9002226.02101,"889,54868234902 ",.01)
 ;;54868234902
 ;;9002226.02101,"889,54868234902 ",.02)
 ;;54868234902
 ;;9002226.02101,"889,54868234903 ",.01)
 ;;54868234903
 ;;9002226.02101,"889,54868234903 ",.02)
 ;;54868234903
 ;;9002226.02101,"889,54868234904 ",.01)
 ;;54868234904
 ;;9002226.02101,"889,54868234904 ",.02)
 ;;54868234904
 ;;9002226.02101,"889,54868234905 ",.01)
 ;;54868234905
 ;;9002226.02101,"889,54868234905 ",.02)
 ;;54868234905
 ;;9002226.02101,"889,54868257200 ",.01)
 ;;54868257200
 ;;9002226.02101,"889,54868257200 ",.02)
 ;;54868257200
 ;;9002226.02101,"889,54868257201 ",.01)
 ;;54868257201
 ;;9002226.02101,"889,54868257201 ",.02)
 ;;54868257201
 ;;9002226.02101,"889,54868257202 ",.01)
 ;;54868257202
 ;;9002226.02101,"889,54868257202 ",.02)
 ;;54868257202
 ;;9002226.02101,"889,54868268300 ",.01)
 ;;54868268300
 ;;9002226.02101,"889,54868268300 ",.02)
 ;;54868268300
 ;;9002226.02101,"889,54868268301 ",.01)
 ;;54868268301
 ;;9002226.02101,"889,54868268301 ",.02)
 ;;54868268301
 ;;9002226.02101,"889,54868268302 ",.01)
 ;;54868268302
 ;;9002226.02101,"889,54868268302 ",.02)
 ;;54868268302
 ;;9002226.02101,"889,54868286400 ",.01)
 ;;54868286400
 ;;9002226.02101,"889,54868286400 ",.02)
 ;;54868286400
 ;;9002226.02101,"889,54868286401 ",.01)
 ;;54868286401
 ;;9002226.02101,"889,54868286401 ",.02)
 ;;54868286401
 ;;9002226.02101,"889,54868298900 ",.01)
 ;;54868298900
 ;;9002226.02101,"889,54868298900 ",.02)
 ;;54868298900
 ;;9002226.02101,"889,54868298902 ",.01)
 ;;54868298902
 ;;9002226.02101,"889,54868298902 ",.02)
 ;;54868298902
 ;;9002226.02101,"889,54868298903 ",.01)
 ;;54868298903
 ;;9002226.02101,"889,54868298903 ",.02)
 ;;54868298903
 ;;9002226.02101,"889,54868298904 ",.01)
 ;;54868298904
 ;;9002226.02101,"889,54868298904 ",.02)
 ;;54868298904
 ;;9002226.02101,"889,54868298905 ",.01)
 ;;54868298905
 ;;9002226.02101,"889,54868298905 ",.02)
 ;;54868298905
 ;;9002226.02101,"889,54868298906 ",.01)
 ;;54868298906
 ;;9002226.02101,"889,54868298906 ",.02)
 ;;54868298906
 ;;9002226.02101,"889,54868299000 ",.01)
 ;;54868299000
 ;;9002226.02101,"889,54868299000 ",.02)
 ;;54868299000
 ;;9002226.02101,"889,54868299002 ",.01)
 ;;54868299002
 ;;9002226.02101,"889,54868299002 ",.02)
 ;;54868299002
 ;;9002226.02101,"889,54868299003 ",.01)
 ;;54868299003
 ;;9002226.02101,"889,54868299003 ",.02)
 ;;54868299003
 ;;9002226.02101,"889,54868299004 ",.01)
 ;;54868299004
 ;;9002226.02101,"889,54868299004 ",.02)
 ;;54868299004
 ;;9002226.02101,"889,54868299005 ",.01)
 ;;54868299005
 ;;9002226.02101,"889,54868299005 ",.02)
 ;;54868299005
 ;;9002226.02101,"889,54868306400 ",.01)
 ;;54868306400
 ;;9002226.02101,"889,54868306400 ",.02)
 ;;54868306400
 ;;9002226.02101,"889,54868306401 ",.01)
 ;;54868306401
 ;;9002226.02101,"889,54868306401 ",.02)
 ;;54868306401
 ;;9002226.02101,"889,54868325701 ",.01)
 ;;54868325701
 ;;9002226.02101,"889,54868325701 ",.02)
 ;;54868325701
 ;;9002226.02101,"889,54868325702 ",.01)
 ;;54868325702
 ;;9002226.02101,"889,54868325702 ",.02)
 ;;54868325702
 ;;9002226.02101,"889,54868325703 ",.01)
 ;;54868325703
 ;;9002226.02101,"889,54868325703 ",.02)
 ;;54868325703
 ;;9002226.02101,"889,54868325704 ",.01)
 ;;54868325704
 ;;9002226.02101,"889,54868325704 ",.02)
 ;;54868325704
 ;;9002226.02101,"889,54868325705 ",.01)
 ;;54868325705
 ;;9002226.02101,"889,54868325705 ",.02)
 ;;54868325705
 ;;9002226.02101,"889,54868325706 ",.01)
 ;;54868325706
 ;;9002226.02101,"889,54868325706 ",.02)
 ;;54868325706