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

BGPM5BEB.m

Go to the documentation of this file.
BGPM5BEB ;IHS/MSC/SAT-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,"1044,68071068515 ",.02)
 ;;68071068515
 ;;9002226.02101,"1044,68071068530 ",.01)
 ;;68071068530
 ;;9002226.02101,"1044,68071068530 ",.02)
 ;;68071068530
 ;;9002226.02101,"1044,68071069430 ",.01)
 ;;68071069430
 ;;9002226.02101,"1044,68071069430 ",.02)
 ;;68071069430
 ;;9002226.02101,"1044,68071069460 ",.01)
 ;;68071069460
 ;;9002226.02101,"1044,68071069460 ",.02)
 ;;68071069460
 ;;9002226.02101,"1044,68071070260 ",.01)
 ;;68071070260
 ;;9002226.02101,"1044,68071070260 ",.02)
 ;;68071070260
 ;;9002226.02101,"1044,68071077730 ",.01)
 ;;68071077730
 ;;9002226.02101,"1044,68071077730 ",.02)
 ;;68071077730
 ;;9002226.02101,"1044,68071131700 ",.01)
 ;;68071131700
 ;;9002226.02101,"1044,68071131700 ",.02)
 ;;68071131700
 ;;9002226.02101,"1044,68071131800 ",.01)
 ;;68071131800
 ;;9002226.02101,"1044,68071131800 ",.02)
 ;;68071131800
 ;;9002226.02101,"1044,68084003101 ",.01)
 ;;68084003101
 ;;9002226.02101,"1044,68084003101 ",.02)
 ;;68084003101
 ;;9002226.02101,"1044,68084003111 ",.01)
 ;;68084003111
 ;;9002226.02101,"1044,68084003111 ",.02)
 ;;68084003111
 ;;9002226.02101,"1044,68084003201 ",.01)
 ;;68084003201
 ;;9002226.02101,"1044,68084003201 ",.02)
 ;;68084003201
 ;;9002226.02101,"1044,68084003211 ",.01)
 ;;68084003211
 ;;9002226.02101,"1044,68084003211 ",.02)
 ;;68084003211
 ;;9002226.02101,"1044,68084004401 ",.01)
 ;;68084004401
 ;;9002226.02101,"1044,68084004401 ",.02)
 ;;68084004401
 ;;9002226.02101,"1044,68084004411 ",.01)
 ;;68084004411
 ;;9002226.02101,"1044,68084004411 ",.02)
 ;;68084004411
 ;;9002226.02101,"1044,68084004485 ",.01)
 ;;68084004485
 ;;9002226.02101,"1044,68084004485 ",.02)
 ;;68084004485
 ;;9002226.02101,"1044,68084004501 ",.01)
 ;;68084004501
 ;;9002226.02101,"1044,68084004501 ",.02)
 ;;68084004501
 ;;9002226.02101,"1044,68084004511 ",.01)
 ;;68084004511
 ;;9002226.02101,"1044,68084004511 ",.02)
 ;;68084004511
 ;;9002226.02101,"1044,68084004585 ",.01)
 ;;68084004585
 ;;9002226.02101,"1044,68084004585 ",.02)
 ;;68084004585
 ;;9002226.02101,"1044,68084004601 ",.01)
 ;;68084004601
 ;;9002226.02101,"1044,68084004601 ",.02)
 ;;68084004601
 ;;9002226.02101,"1044,68084004611 ",.01)
 ;;68084004611
 ;;9002226.02101,"1044,68084004611 ",.02)
 ;;68084004611
 ;;9002226.02101,"1044,68084004685 ",.01)
 ;;68084004685
 ;;9002226.02101,"1044,68084004685 ",.02)
 ;;68084004685
 ;;9002226.02101,"1044,68084004701 ",.01)
 ;;68084004701
 ;;9002226.02101,"1044,68084004701 ",.02)
 ;;68084004701
 ;;9002226.02101,"1044,68084004711 ",.01)
 ;;68084004711
 ;;9002226.02101,"1044,68084004711 ",.02)
 ;;68084004711
 ;;9002226.02101,"1044,68084004785 ",.01)
 ;;68084004785
 ;;9002226.02101,"1044,68084004785 ",.02)
 ;;68084004785
 ;;9002226.02101,"1044,68084010000 ",.01)
 ;;68084010000
 ;;9002226.02101,"1044,68084010000 ",.02)
 ;;68084010000
 ;;9002226.02101,"1044,68084010006 ",.01)
 ;;68084010006
 ;;9002226.02101,"1044,68084010006 ",.02)
 ;;68084010006
 ;;9002226.02101,"1044,68084011901 ",.01)
 ;;68084011901
 ;;9002226.02101,"1044,68084011901 ",.02)
 ;;68084011901
 ;;9002226.02101,"1044,68084011911 ",.01)
 ;;68084011911
 ;;9002226.02101,"1044,68084011911 ",.02)
 ;;68084011911
 ;;9002226.02101,"1044,68084012001 ",.01)
 ;;68084012001
 ;;9002226.02101,"1044,68084012001 ",.02)
 ;;68084012001
 ;;9002226.02101,"1044,68084012011 ",.01)
 ;;68084012011
 ;;9002226.02101,"1044,68084012011 ",.02)
 ;;68084012011
 ;;9002226.02101,"1044,68084012101 ",.01)
 ;;68084012101
 ;;9002226.02101,"1044,68084012101 ",.02)
 ;;68084012101
 ;;9002226.02101,"1044,68084012111 ",.01)
 ;;68084012111
 ;;9002226.02101,"1044,68084012111 ",.02)
 ;;68084012111
 ;;9002226.02101,"1044,68084018001 ",.01)
 ;;68084018001
 ;;9002226.02101,"1044,68084018001 ",.02)
 ;;68084018001
 ;;9002226.02101,"1044,68084018011 ",.01)
 ;;68084018011
 ;;9002226.02101,"1044,68084018011 ",.02)
 ;;68084018011
 ;;9002226.02101,"1044,68084018101 ",.01)
 ;;68084018101
 ;;9002226.02101,"1044,68084018101 ",.02)
 ;;68084018101
 ;;9002226.02101,"1044,68084018111 ",.01)
 ;;68084018111
 ;;9002226.02101,"1044,68084018111 ",.02)
 ;;68084018111
 ;;9002226.02101,"1044,68084018201 ",.01)
 ;;68084018201
 ;;9002226.02101,"1044,68084018201 ",.02)
 ;;68084018201
 ;;9002226.02101,"1044,68084018211 ",.01)
 ;;68084018211
 ;;9002226.02101,"1044,68084018211 ",.02)
 ;;68084018211
 ;;9002226.02101,"1044,68084028514 ",.01)
 ;;68084028514
 ;;9002226.02101,"1044,68084028514 ",.02)
 ;;68084028514
 ;;9002226.02101,"1044,68084033001 ",.01)
 ;;68084033001
 ;;9002226.02101,"1044,68084033001 ",.02)
 ;;68084033001
 ;;9002226.02101,"1044,68084033011 ",.01)
 ;;68084033011
 ;;9002226.02101,"1044,68084033011 ",.02)
 ;;68084033011
 ;;9002226.02101,"1044,68084033101 ",.01)
 ;;68084033101
 ;;9002226.02101,"1044,68084033101 ",.02)
 ;;68084033101
 ;;9002226.02101,"1044,68084033111 ",.01)
 ;;68084033111
 ;;9002226.02101,"1044,68084033111 ",.02)
 ;;68084033111
 ;;9002226.02101,"1044,68084048401 ",.01)
 ;;68084048401
 ;;9002226.02101,"1044,68084048401 ",.02)
 ;;68084048401
 ;;9002226.02101,"1044,68084048411 ",.01)
 ;;68084048411
 ;;9002226.02101,"1044,68084048411 ",.02)
 ;;68084048411
 ;;9002226.02101,"1044,68084048501 ",.01)
 ;;68084048501
 ;;9002226.02101,"1044,68084048501 ",.02)
 ;;68084048501
 ;;9002226.02101,"1044,68084048511 ",.01)
 ;;68084048511
 ;;9002226.02101,"1044,68084048511 ",.02)
 ;;68084048511
 ;;9002226.02101,"1044,68084048601 ",.01)
 ;;68084048601
 ;;9002226.02101,"1044,68084048601 ",.02)
 ;;68084048601
 ;;9002226.02101,"1044,68084048611 ",.01)
 ;;68084048611
 ;;9002226.02101,"1044,68084048611 ",.02)
 ;;68084048611
 ;;9002226.02101,"1044,68115002160 ",.01)
 ;;68115002160
 ;;9002226.02101,"1044,68115002160 ",.02)
 ;;68115002160
 ;;9002226.02101,"1044,68115002220 ",.01)
 ;;68115002220
 ;;9002226.02101,"1044,68115002220 ",.02)
 ;;68115002220
 ;;9002226.02101,"1044,68115002314 ",.01)
 ;;68115002314
 ;;9002226.02101,"1044,68115002314 ",.02)
 ;;68115002314
 ;;9002226.02101,"1044,68115002348 ",.01)
 ;;68115002348
 ;;9002226.02101,"1044,68115002348 ",.02)
 ;;68115002348
 ;;9002226.02101,"1044,68115002490 ",.01)
 ;;68115002490
 ;;9002226.02101,"1044,68115002490 ",.02)
 ;;68115002490
 ;;9002226.02101,"1044,68115014390 ",.01)
 ;;68115014390
 ;;9002226.02101,"1044,68115014390 ",.02)
 ;;68115014390
 ;;9002226.02101,"1044,68115026145 ",.01)
 ;;68115026145
 ;;9002226.02101,"1044,68115026145 ",.02)
 ;;68115026145
 ;;9002226.02101,"1044,68115043930 ",.01)
 ;;68115043930
 ;;9002226.02101,"1044,68115043930 ",.02)
 ;;68115043930
 ;;9002226.02101,"1044,68180031101 ",.01)
 ;;68180031101
 ;;9002226.02101,"1044,68180031101 ",.02)
 ;;68180031101
 ;;9002226.02101,"1044,68180031102 ",.01)
 ;;68180031102
 ;;9002226.02101,"1044,68180031102 ",.02)
 ;;68180031102
 ;;9002226.02101,"1044,68180031201 ",.01)
 ;;68180031201
 ;;9002226.02101,"1044,68180031201 ",.02)
 ;;68180031201
 ;;9002226.02101,"1044,68180031202 ",.01)
 ;;68180031202
 ;;9002226.02101,"1044,68180031202 ",.02)
 ;;68180031202
 ;;9002226.02101,"1044,68180031301 ",.01)
 ;;68180031301
 ;;9002226.02101,"1044,68180031301 ",.02)
 ;;68180031301
 ;;9002226.02101,"1044,68180031302 ",.01)
 ;;68180031302
 ;;9002226.02101,"1044,68180031302 ",.02)
 ;;68180031302
 ;;9002226.02101,"1044,68180031401 ",.01)
 ;;68180031401
 ;;9002226.02101,"1044,68180031401 ",.02)
 ;;68180031401
 ;;9002226.02101,"1044,68180031406 ",.01)
 ;;68180031406
 ;;9002226.02101,"1044,68180031406 ",.02)
 ;;68180031406
 ;;9002226.02101,"1044,68180031501 ",.01)
 ;;68180031501
 ;;9002226.02101,"1044,68180031501 ",.02)
 ;;68180031501
 ;;9002226.02101,"1044,68180031506 ",.01)
 ;;68180031506
 ;;9002226.02101,"1044,68180031506 ",.02)
 ;;68180031506
 ;;9002226.02101,"1044,68180031601 ",.01)
 ;;68180031601
 ;;9002226.02101,"1044,68180031601 ",.02)
 ;;68180031601
 ;;9002226.02101,"1044,68180031606 ",.01)
 ;;68180031606
 ;;9002226.02101,"1044,68180031606 ",.02)
 ;;68180031606
 ;;9002226.02101,"1044,68180031701 ",.01)
 ;;68180031701
 ;;9002226.02101,"1044,68180031701 ",.02)
 ;;68180031701
 ;;9002226.02101,"1044,68180031706 ",.01)
 ;;68180031706
 ;;9002226.02101,"1044,68180031706 ",.02)
 ;;68180031706
 ;;9002226.02101,"1044,68180035101 ",.01)
 ;;68180035101
 ;;9002226.02101,"1044,68180035101 ",.02)
 ;;68180035101
 ;;9002226.02101,"1044,68180035103 ",.01)
 ;;68180035103
 ;;9002226.02101,"1044,68180035103 ",.02)
 ;;68180035103
 ;;9002226.02101,"1044,68180035106 ",.01)
 ;;68180035106
 ;;9002226.02101,"1044,68180035106 ",.02)
 ;;68180035106
 ;;9002226.02101,"1044,68180035108 ",.01)
 ;;68180035108
 ;;9002226.02101,"1044,68180035108 ",.02)
 ;;68180035108
 ;;9002226.02101,"1044,68180035109 ",.01)
 ;;68180035109
 ;;9002226.02101,"1044,68180035109 ",.02)
 ;;68180035109
 ;;9002226.02101,"1044,68180035201 ",.01)
 ;;68180035201
 ;;9002226.02101,"1044,68180035201 ",.02)
 ;;68180035201
 ;;9002226.02101,"1044,68180035202 ",.01)
 ;;68180035202
 ;;9002226.02101,"1044,68180035202 ",.02)
 ;;68180035202
 ;;9002226.02101,"1044,68180035203 ",.01)
 ;;68180035203
 ;;9002226.02101,"1044,68180035203 ",.02)
 ;;68180035203
 ;;9002226.02101,"1044,68180035205 ",.01)
 ;;68180035205
 ;;9002226.02101,"1044,68180035205 ",.02)
 ;;68180035205
 ;;9002226.02101,"1044,68180035206 ",.01)
 ;;68180035206
 ;;9002226.02101,"1044,68180035206 ",.02)
 ;;68180035206
 ;;9002226.02101,"1044,68180035209 ",.01)
 ;;68180035209
 ;;9002226.02101,"1044,68180035209 ",.02)
 ;;68180035209
 ;;9002226.02101,"1044,68180035211 ",.01)
 ;;68180035211
 ;;9002226.02101,"1044,68180035211 ",.02)
 ;;68180035211
 ;;9002226.02101,"1044,68180035301 ",.01)
 ;;68180035301
 ;;9002226.02101,"1044,68180035301 ",.02)
 ;;68180035301
 ;;9002226.02101,"1044,68180035302 ",.01)
 ;;68180035302
 ;;9002226.02101,"1044,68180035302 ",.02)
 ;;68180035302
 ;;9002226.02101,"1044,68180035303 ",.01)
 ;;68180035303
 ;;9002226.02101,"1044,68180035303 ",.02)
 ;;68180035303
 ;;9002226.02101,"1044,68180035305 ",.01)
 ;;68180035305
 ;;9002226.02101,"1044,68180035305 ",.02)
 ;;68180035305
 ;;9002226.02101,"1044,68180035306 ",.01)
 ;;68180035306
 ;;9002226.02101,"1044,68180035306 ",.02)
 ;;68180035306
 ;;9002226.02101,"1044,68180035309 ",.01)
 ;;68180035309
 ;;9002226.02101,"1044,68180035309 ",.02)
 ;;68180035309
 ;;9002226.02101,"1044,68180035311 ",.01)
 ;;68180035311
 ;;9002226.02101,"1044,68180035311 ",.02)
 ;;68180035311
 ;;9002226.02101,"1044,68258700303 ",.01)
 ;;68258700303
 ;;9002226.02101,"1044,68258700303 ",.02)
 ;;68258700303
 ;;9002226.02101,"1044,68258700403 ",.01)
 ;;68258700403
 ;;9002226.02101,"1044,68258700403 ",.02)
 ;;68258700403
 ;;9002226.02101,"1044,68258700503 ",.01)
 ;;68258700503
 ;;9002226.02101,"1044,68258700503 ",.02)
 ;;68258700503
 ;;9002226.02101,"1044,68258700603 ",.01)
 ;;68258700603
 ;;9002226.02101,"1044,68258700603 ",.02)
 ;;68258700603
 ;;9002226.02101,"1044,68258700703 ",.01)
 ;;68258700703
 ;;9002226.02101,"1044,68258700703 ",.02)
 ;;68258700703
 ;;9002226.02101,"1044,68258700803 ",.01)
 ;;68258700803
 ;;9002226.02101,"1044,68258700803 ",.02)
 ;;68258700803
 ;;9002226.02101,"1044,68258700903 ",.01)
 ;;68258700903
 ;;9002226.02101,"1044,68258700903 ",.02)
 ;;68258700903
 ;;9002226.02101,"1044,68258701003 ",.01)
 ;;68258701003
 ;;9002226.02101,"1044,68258701003 ",.02)
 ;;68258701003
 ;;9002226.02101,"1044,68258705401 ",.01)
 ;;68258705401
 ;;9002226.02101,"1044,68258705401 ",.02)
 ;;68258705401
 ;;9002226.02101,"1044,68258705409 ",.01)
 ;;68258705409
 ;;9002226.02101,"1044,68258705409 ",.02)
 ;;68258705409
 ;;9002226.02101,"1044,68258705509 ",.01)
 ;;68258705509
 ;;9002226.02101,"1044,68258705509 ",.02)
 ;;68258705509