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

BGPM5BES.m

Go to the documentation of this file.
BGPM5BES ;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,00185022105 ",.02)
 ;;00185022105
 ;;9002226.02101,"1084,00185441601 ",.01)
 ;;00185441601
 ;;9002226.02101,"1084,00185441601 ",.02)
 ;;00185441601
 ;;9002226.02101,"1084,00185441605 ",.01)
 ;;00185441605
 ;;9002226.02101,"1084,00185441605 ",.02)
 ;;00185441605
 ;;9002226.02101,"1084,00228265710 ",.01)
 ;;00228265710
 ;;9002226.02101,"1084,00228265710 ",.02)
 ;;00228265710
 ;;9002226.02101,"1084,00228265711 ",.01)
 ;;00228265711
 ;;9002226.02101,"1084,00228265711 ",.02)
 ;;00228265711
 ;;9002226.02101,"1084,00228265750 ",.01)
 ;;00228265750
 ;;9002226.02101,"1084,00228265750 ",.02)
 ;;00228265750
 ;;9002226.02101,"1084,00228265796 ",.01)
 ;;00228265796
 ;;9002226.02101,"1084,00228265796 ",.02)
 ;;00228265796
 ;;9002226.02101,"1084,00228271510 ",.01)
 ;;00228271510
 ;;9002226.02101,"1084,00228271510 ",.02)
 ;;00228271510
 ;;9002226.02101,"1084,00228271511 ",.01)
 ;;00228271511
 ;;9002226.02101,"1084,00228271511 ",.02)
 ;;00228271511
 ;;9002226.02101,"1084,00228271550 ",.01)
 ;;00228271550
 ;;9002226.02101,"1084,00228271550 ",.02)
 ;;00228271550
 ;;9002226.02101,"1084,00228271596 ",.01)
 ;;00228271596
 ;;9002226.02101,"1084,00228271596 ",.02)
 ;;00228271596
 ;;9002226.02101,"1084,00228271810 ",.01)
 ;;00228271810
 ;;9002226.02101,"1084,00228271810 ",.02)
 ;;00228271810
 ;;9002226.02101,"1084,00228271811 ",.01)
 ;;00228271811
 ;;9002226.02101,"1084,00228271811 ",.02)
 ;;00228271811
 ;;9002226.02101,"1084,00228271850 ",.01)
 ;;00228271850
 ;;9002226.02101,"1084,00228271850 ",.02)
 ;;00228271850
 ;;9002226.02101,"1084,00228271896 ",.01)
 ;;00228271896
 ;;9002226.02101,"1084,00228271896 ",.02)
 ;;00228271896
 ;;9002226.02101,"1084,00228272811 ",.01)
 ;;00228272811
 ;;9002226.02101,"1084,00228272811 ",.02)
 ;;00228272811
 ;;9002226.02101,"1084,00228272850 ",.01)
 ;;00228272850
 ;;9002226.02101,"1084,00228272850 ",.02)
 ;;00228272850
 ;;9002226.02101,"1084,00228274011 ",.01)
 ;;00228274011
 ;;9002226.02101,"1084,00228274011 ",.02)
 ;;00228274011
 ;;9002226.02101,"1084,00228274050 ",.01)
 ;;00228274050
 ;;9002226.02101,"1084,00228274050 ",.02)
 ;;00228274050
 ;;9002226.02101,"1084,00228275111 ",.01)
 ;;00228275111
 ;;9002226.02101,"1084,00228275111 ",.02)
 ;;00228275111
 ;;9002226.02101,"1084,00228275150 ",.01)
 ;;00228275150
 ;;9002226.02101,"1084,00228275150 ",.02)
 ;;00228275150
 ;;9002226.02101,"1084,00228275211 ",.01)
 ;;00228275211
 ;;9002226.02101,"1084,00228275211 ",.02)
 ;;00228275211
 ;;9002226.02101,"1084,00228275250 ",.01)
 ;;00228275250
 ;;9002226.02101,"1084,00228275250 ",.02)
 ;;00228275250
 ;;9002226.02101,"1084,00228275311 ",.01)
 ;;00228275311
 ;;9002226.02101,"1084,00228275311 ",.02)
 ;;00228275311
 ;;9002226.02101,"1084,00228275350 ",.01)
 ;;00228275350
 ;;9002226.02101,"1084,00228275350 ",.02)
 ;;00228275350
 ;;9002226.02101,"1084,00228289803 ",.01)
 ;;00228289803
 ;;9002226.02101,"1084,00228289803 ",.02)
 ;;00228289803
 ;;9002226.02101,"1084,00228289910 ",.01)
 ;;00228289910
 ;;9002226.02101,"1084,00228289910 ",.02)
 ;;00228289910
 ;;9002226.02101,"1084,00228289950 ",.01)
 ;;00228289950
 ;;9002226.02101,"1084,00228289950 ",.02)
 ;;00228289950
 ;;9002226.02101,"1084,00228289996 ",.01)
 ;;00228289996
 ;;9002226.02101,"1084,00228289996 ",.02)
 ;;00228289996
 ;;9002226.02101,"1084,00228290010 ",.01)
 ;;00228290010
 ;;9002226.02101,"1084,00228290010 ",.02)
 ;;00228290010
 ;;9002226.02101,"1084,00228290011 ",.01)
 ;;00228290011
 ;;9002226.02101,"1084,00228290011 ",.02)
 ;;00228290011
 ;;9002226.02101,"1084,00228290050 ",.01)
 ;;00228290050
 ;;9002226.02101,"1084,00228290050 ",.02)
 ;;00228290050
 ;;9002226.02101,"1084,00228290096 ",.01)
 ;;00228290096
 ;;9002226.02101,"1084,00228290096 ",.02)
 ;;00228290096
 ;;9002226.02101,"1084,00247044402 ",.01)
 ;;00247044402
 ;;9002226.02101,"1084,00247044402 ",.02)
 ;;00247044402
 ;;9002226.02101,"1084,00247044403 ",.01)
 ;;00247044403
 ;;9002226.02101,"1084,00247044403 ",.02)
 ;;00247044403
 ;;9002226.02101,"1084,00247044460 ",.01)
 ;;00247044460
 ;;9002226.02101,"1084,00247044460 ",.02)
 ;;00247044460
 ;;9002226.02101,"1084,00247127003 ",.01)
 ;;00247127003
 ;;9002226.02101,"1084,00247127003 ",.02)
 ;;00247127003
 ;;9002226.02101,"1084,00247127030 ",.01)
 ;;00247127030
 ;;9002226.02101,"1084,00247127030 ",.02)
 ;;00247127030
 ;;9002226.02101,"1084,00247127060 ",.01)
 ;;00247127060
 ;;9002226.02101,"1084,00247127060 ",.02)
 ;;00247127060
 ;;9002226.02101,"1084,00247127090 ",.01)
 ;;00247127090
 ;;9002226.02101,"1084,00247127090 ",.02)
 ;;00247127090
 ;;9002226.02101,"1084,00247170430 ",.01)
 ;;00247170430
 ;;9002226.02101,"1084,00247170430 ",.02)
 ;;00247170430
 ;;9002226.02101,"1084,00247176000 ",.01)
 ;;00247176000
 ;;9002226.02101,"1084,00247176000 ",.02)
 ;;00247176000
 ;;9002226.02101,"1084,00247176002 ",.01)
 ;;00247176002
 ;;9002226.02101,"1084,00247176002 ",.02)
 ;;00247176002
 ;;9002226.02101,"1084,00247176030 ",.01)
 ;;00247176030
 ;;9002226.02101,"1084,00247176030 ",.02)
 ;;00247176030
 ;;9002226.02101,"1084,00247176060 ",.01)
 ;;00247176060
 ;;9002226.02101,"1084,00247176060 ",.02)
 ;;00247176060
 ;;9002226.02101,"1084,00247176077 ",.01)
 ;;00247176077
 ;;9002226.02101,"1084,00247176077 ",.02)
 ;;00247176077
 ;;9002226.02101,"1084,00247195200 ",.01)
 ;;00247195200
 ;;9002226.02101,"1084,00247195200 ",.02)
 ;;00247195200
 ;;9002226.02101,"1084,00247195203 ",.01)
 ;;00247195203
 ;;9002226.02101,"1084,00247195203 ",.02)
 ;;00247195203
 ;;9002226.02101,"1084,00247195230 ",.01)
 ;;00247195230
 ;;9002226.02101,"1084,00247195230 ",.02)
 ;;00247195230
 ;;9002226.02101,"1084,00247195260 ",.01)
 ;;00247195260
 ;;9002226.02101,"1084,00247195260 ",.02)
 ;;00247195260
 ;;9002226.02101,"1084,00247195277 ",.01)
 ;;00247195277
 ;;9002226.02101,"1084,00247195277 ",.02)
 ;;00247195277
 ;;9002226.02101,"1084,00247195290 ",.01)
 ;;00247195290
 ;;9002226.02101,"1084,00247195290 ",.02)
 ;;00247195290
 ;;9002226.02101,"1084,00247195300 ",.01)
 ;;00247195300
 ;;9002226.02101,"1084,00247195300 ",.02)
 ;;00247195300
 ;;9002226.02101,"1084,00247195330 ",.01)
 ;;00247195330
 ;;9002226.02101,"1084,00247195330 ",.02)
 ;;00247195330
 ;;9002226.02101,"1084,00247195360 ",.01)
 ;;00247195360
 ;;9002226.02101,"1084,00247195360 ",.02)
 ;;00247195360
 ;;9002226.02101,"1084,00247195377 ",.01)
 ;;00247195377
 ;;9002226.02101,"1084,00247195377 ",.02)
 ;;00247195377
 ;;9002226.02101,"1084,00247195390 ",.01)
 ;;00247195390
 ;;9002226.02101,"1084,00247195390 ",.02)
 ;;00247195390
 ;;9002226.02101,"1084,00247195400 ",.01)
 ;;00247195400
 ;;9002226.02101,"1084,00247195400 ",.02)
 ;;00247195400
 ;;9002226.02101,"1084,00247195430 ",.01)
 ;;00247195430
 ;;9002226.02101,"1084,00247195430 ",.02)
 ;;00247195430
 ;;9002226.02101,"1084,00247195460 ",.01)
 ;;00247195460
 ;;9002226.02101,"1084,00247195460 ",.02)
 ;;00247195460
 ;;9002226.02101,"1084,00247195477 ",.01)
 ;;00247195477
 ;;9002226.02101,"1084,00247195477 ",.02)
 ;;00247195477
 ;;9002226.02101,"1084,00247195490 ",.01)
 ;;00247195490
 ;;9002226.02101,"1084,00247195490 ",.02)
 ;;00247195490
 ;;9002226.02101,"1084,00247195498 ",.01)
 ;;00247195498
 ;;9002226.02101,"1084,00247195498 ",.02)
 ;;00247195498
 ;;9002226.02101,"1084,00247206930 ",.01)
 ;;00247206930
 ;;9002226.02101,"1084,00247206930 ",.02)
 ;;00247206930
 ;;9002226.02101,"1084,00247206960 ",.01)
 ;;00247206960
 ;;9002226.02101,"1084,00247206960 ",.02)
 ;;00247206960
 ;;9002226.02101,"1084,00247206990 ",.01)
 ;;00247206990
 ;;9002226.02101,"1084,00247206990 ",.02)
 ;;00247206990
 ;;9002226.02101,"1084,00247215900 ",.01)
 ;;00247215900
 ;;9002226.02101,"1084,00247215900 ",.02)
 ;;00247215900
 ;;9002226.02101,"1084,00247215930 ",.01)
 ;;00247215930
 ;;9002226.02101,"1084,00247215930 ",.02)
 ;;00247215930
 ;;9002226.02101,"1084,00247216030 ",.01)
 ;;00247216030
 ;;9002226.02101,"1084,00247216030 ",.02)
 ;;00247216030
 ;;9002226.02101,"1084,00247228830 ",.01)
 ;;00247228830
 ;;9002226.02101,"1084,00247228830 ",.02)
 ;;00247228830
 ;;9002226.02101,"1084,00247228860 ",.01)
 ;;00247228860
 ;;9002226.02101,"1084,00247228860 ",.02)
 ;;00247228860
 ;;9002226.02101,"1084,00247228877 ",.01)
 ;;00247228877
 ;;9002226.02101,"1084,00247228877 ",.02)
 ;;00247228877
 ;;9002226.02101,"1084,00247228890 ",.01)
 ;;00247228890
 ;;9002226.02101,"1084,00247228890 ",.02)
 ;;00247228890
 ;;9002226.02101,"1084,00247228930 ",.01)
 ;;00247228930
 ;;9002226.02101,"1084,00247228930 ",.02)
 ;;00247228930
 ;;9002226.02101,"1084,00247228960 ",.01)
 ;;00247228960
 ;;9002226.02101,"1084,00247228960 ",.02)
 ;;00247228960
 ;;9002226.02101,"1084,00247228977 ",.01)
 ;;00247228977
 ;;9002226.02101,"1084,00247228977 ",.02)
 ;;00247228977
 ;;9002226.02101,"1084,00247228990 ",.01)
 ;;00247228990
 ;;9002226.02101,"1084,00247228990 ",.02)
 ;;00247228990
 ;;9002226.02101,"1084,00247229030 ",.01)
 ;;00247229030
 ;;9002226.02101,"1084,00247229030 ",.02)
 ;;00247229030
 ;;9002226.02101,"1084,00247229060 ",.01)
 ;;00247229060
 ;;9002226.02101,"1084,00247229060 ",.02)
 ;;00247229060
 ;;9002226.02101,"1084,00247229077 ",.01)
 ;;00247229077
 ;;9002226.02101,"1084,00247229077 ",.02)
 ;;00247229077
 ;;9002226.02101,"1084,00247229090 ",.01)
 ;;00247229090
 ;;9002226.02101,"1084,00247229090 ",.02)
 ;;00247229090
 ;;9002226.02101,"1084,00247229130 ",.01)
 ;;00247229130
 ;;9002226.02101,"1084,00247229130 ",.02)
 ;;00247229130
 ;;9002226.02101,"1084,00247229160 ",.01)
 ;;00247229160
 ;;9002226.02101,"1084,00247229160 ",.02)
 ;;00247229160
 ;;9002226.02101,"1084,00247229230 ",.01)
 ;;00247229230
 ;;9002226.02101,"1084,00247229230 ",.02)
 ;;00247229230
 ;;9002226.02101,"1084,00247229260 ",.01)
 ;;00247229260
 ;;9002226.02101,"1084,00247229260 ",.02)
 ;;00247229260
 ;;9002226.02101,"1084,00247229330 ",.01)
 ;;00247229330
 ;;9002226.02101,"1084,00247229330 ",.02)
 ;;00247229330
 ;;9002226.02101,"1084,00247229360 ",.01)
 ;;00247229360
 ;;9002226.02101,"1084,00247229360 ",.02)
 ;;00247229360
 ;;9002226.02101,"1084,00339635811 ",.01)
 ;;00339635811
 ;;9002226.02101,"1084,00339635811 ",.02)
 ;;00339635811
 ;;9002226.02101,"1084,00339635814 ",.01)
 ;;00339635814
 ;;9002226.02101,"1084,00339635814 ",.02)
 ;;00339635814
 ;;9002226.02101,"1084,00339641511 ",.01)
 ;;00339641511
 ;;9002226.02101,"1084,00339641511 ",.02)
 ;;00339641511
 ;;9002226.02101,"1084,00339641611 ",.01)
 ;;00339641611
 ;;9002226.02101,"1084,00339641611 ",.02)
 ;;00339641611
 ;;9002226.02101,"1084,00339641614 ",.01)
 ;;00339641614
 ;;9002226.02101,"1084,00339641614 ",.02)
 ;;00339641614
 ;;9002226.02101,"1084,00339643311 ",.01)
 ;;00339643311
 ;;9002226.02101,"1084,00339643311 ",.02)
 ;;00339643311
 ;;9002226.02101,"1084,00339643314 ",.01)
 ;;00339643314
 ;;9002226.02101,"1084,00339643314 ",.02)
 ;;00339643314
 ;;9002226.02101,"1084,00339643411 ",.01)
 ;;00339643411
 ;;9002226.02101,"1084,00339643411 ",.02)
 ;;00339643411
 ;;9002226.02101,"1084,00339643414 ",.01)
 ;;00339643414
 ;;9002226.02101,"1084,00339643414 ",.02)
 ;;00339643414
 ;;9002226.02101,"1084,00339648511 ",.01)
 ;;00339648511
 ;;9002226.02101,"1084,00339648511 ",.02)
 ;;00339648511
 ;;9002226.02101,"1084,00339648514 ",.01)
 ;;00339648514
 ;;9002226.02101,"1084,00339648514 ",.02)
 ;;00339648514
 ;;9002226.02101,"1084,00339648611 ",.01)
 ;;00339648611
 ;;9002226.02101,"1084,00339648611 ",.02)
 ;;00339648611
 ;;9002226.02101,"1084,00339648711 ",.01)
 ;;00339648711
 ;;9002226.02101,"1084,00339648711 ",.02)
 ;;00339648711
 ;;9002226.02101,"1084,00339648811 ",.01)
 ;;00339648811
 ;;9002226.02101,"1084,00339648811 ",.02)
 ;;00339648811