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

BGPM5BFP.m

Go to the documentation of this file.
BGPM5BFP ;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,58016077260 ",.02)
 ;;58016077260
 ;;9002226.02101,"1084,58016077267 ",.01)
 ;;58016077267
 ;;9002226.02101,"1084,58016077267 ",.02)
 ;;58016077267
 ;;9002226.02101,"1084,58016077269 ",.01)
 ;;58016077269
 ;;9002226.02101,"1084,58016077269 ",.02)
 ;;58016077269
 ;;9002226.02101,"1084,58016077270 ",.01)
 ;;58016077270
 ;;9002226.02101,"1084,58016077270 ",.02)
 ;;58016077270
 ;;9002226.02101,"1084,58016077271 ",.01)
 ;;58016077271
 ;;9002226.02101,"1084,58016077271 ",.02)
 ;;58016077271
 ;;9002226.02101,"1084,58016077272 ",.01)
 ;;58016077272
 ;;9002226.02101,"1084,58016077272 ",.02)
 ;;58016077272
 ;;9002226.02101,"1084,58016077273 ",.01)
 ;;58016077273
 ;;9002226.02101,"1084,58016077273 ",.02)
 ;;58016077273
 ;;9002226.02101,"1084,58016077275 ",.01)
 ;;58016077275
 ;;9002226.02101,"1084,58016077275 ",.02)
 ;;58016077275
 ;;9002226.02101,"1084,58016077276 ",.01)
 ;;58016077276
 ;;9002226.02101,"1084,58016077276 ",.02)
 ;;58016077276
 ;;9002226.02101,"1084,58016077277 ",.01)
 ;;58016077277
 ;;9002226.02101,"1084,58016077277 ",.02)
 ;;58016077277
 ;;9002226.02101,"1084,58016077279 ",.01)
 ;;58016077279
 ;;9002226.02101,"1084,58016077279 ",.02)
 ;;58016077279
 ;;9002226.02101,"1084,58016077280 ",.01)
 ;;58016077280
 ;;9002226.02101,"1084,58016077280 ",.02)
 ;;58016077280
 ;;9002226.02101,"1084,58016077281 ",.01)
 ;;58016077281
 ;;9002226.02101,"1084,58016077281 ",.02)
 ;;58016077281
 ;;9002226.02101,"1084,58016077282 ",.01)
 ;;58016077282
 ;;9002226.02101,"1084,58016077282 ",.02)
 ;;58016077282
 ;;9002226.02101,"1084,58016077283 ",.01)
 ;;58016077283
 ;;9002226.02101,"1084,58016077283 ",.02)
 ;;58016077283
 ;;9002226.02101,"1084,58016077284 ",.01)
 ;;58016077284
 ;;9002226.02101,"1084,58016077284 ",.02)
 ;;58016077284
 ;;9002226.02101,"1084,58016077287 ",.01)
 ;;58016077287
 ;;9002226.02101,"1084,58016077287 ",.02)
 ;;58016077287
 ;;9002226.02101,"1084,58016077289 ",.01)
 ;;58016077289
 ;;9002226.02101,"1084,58016077289 ",.02)
 ;;58016077289
 ;;9002226.02101,"1084,58016077290 ",.01)
 ;;58016077290
 ;;9002226.02101,"1084,58016077290 ",.02)
 ;;58016077290
 ;;9002226.02101,"1084,58016077291 ",.01)
 ;;58016077291
 ;;9002226.02101,"1084,58016077291 ",.02)
 ;;58016077291
 ;;9002226.02101,"1084,58016077292 ",.01)
 ;;58016077292
 ;;9002226.02101,"1084,58016077292 ",.02)
 ;;58016077292
 ;;9002226.02101,"1084,58016077293 ",.01)
 ;;58016077293
 ;;9002226.02101,"1084,58016077293 ",.02)
 ;;58016077293
 ;;9002226.02101,"1084,58016077296 ",.01)
 ;;58016077296
 ;;9002226.02101,"1084,58016077296 ",.02)
 ;;58016077296
 ;;9002226.02101,"1084,58016077297 ",.01)
 ;;58016077297
 ;;9002226.02101,"1084,58016077297 ",.02)
 ;;58016077297
 ;;9002226.02101,"1084,58016077298 ",.01)
 ;;58016077298
 ;;9002226.02101,"1084,58016077298 ",.02)
 ;;58016077298
 ;;9002226.02101,"1084,58016077299 ",.01)
 ;;58016077299
 ;;9002226.02101,"1084,58016077299 ",.02)
 ;;58016077299
 ;;9002226.02101,"1084,58016079630 ",.01)
 ;;58016079630
 ;;9002226.02101,"1084,58016079630 ",.02)
 ;;58016079630
 ;;9002226.02101,"1084,58016084400 ",.01)
 ;;58016084400
 ;;9002226.02101,"1084,58016084400 ",.02)
 ;;58016084400
 ;;9002226.02101,"1084,58016084430 ",.01)
 ;;58016084430
 ;;9002226.02101,"1084,58016084430 ",.02)
 ;;58016084430
 ;;9002226.02101,"1084,58016084460 ",.01)
 ;;58016084460
 ;;9002226.02101,"1084,58016084460 ",.02)
 ;;58016084460
 ;;9002226.02101,"1084,58016084490 ",.01)
 ;;58016084490
 ;;9002226.02101,"1084,58016084490 ",.02)
 ;;58016084490
 ;;9002226.02101,"1084,58016087600 ",.01)
 ;;58016087600
 ;;9002226.02101,"1084,58016087600 ",.02)
 ;;58016087600
 ;;9002226.02101,"1084,58016087610 ",.01)
 ;;58016087610
 ;;9002226.02101,"1084,58016087610 ",.02)
 ;;58016087610
 ;;9002226.02101,"1084,58016087612 ",.01)
 ;;58016087612
 ;;9002226.02101,"1084,58016087612 ",.02)
 ;;58016087612
 ;;9002226.02101,"1084,58016087614 ",.01)
 ;;58016087614
 ;;9002226.02101,"1084,58016087614 ",.02)
 ;;58016087614
 ;;9002226.02101,"1084,58016087615 ",.01)
 ;;58016087615
 ;;9002226.02101,"1084,58016087615 ",.02)
 ;;58016087615
 ;;9002226.02101,"1084,58016087620 ",.01)
 ;;58016087620
 ;;9002226.02101,"1084,58016087620 ",.02)
 ;;58016087620
 ;;9002226.02101,"1084,58016087621 ",.01)
 ;;58016087621
 ;;9002226.02101,"1084,58016087621 ",.02)
 ;;58016087621
 ;;9002226.02101,"1084,58016087624 ",.01)
 ;;58016087624
 ;;9002226.02101,"1084,58016087624 ",.02)
 ;;58016087624
 ;;9002226.02101,"1084,58016087628 ",.01)
 ;;58016087628
 ;;9002226.02101,"1084,58016087628 ",.02)
 ;;58016087628
 ;;9002226.02101,"1084,58016087630 ",.01)
 ;;58016087630
 ;;9002226.02101,"1084,58016087630 ",.02)
 ;;58016087630
 ;;9002226.02101,"1084,58016087640 ",.01)
 ;;58016087640
 ;;9002226.02101,"1084,58016087640 ",.02)
 ;;58016087640
 ;;9002226.02101,"1084,58016087650 ",.01)
 ;;58016087650
 ;;9002226.02101,"1084,58016087650 ",.02)
 ;;58016087650
 ;;9002226.02101,"1084,58016087660 ",.01)
 ;;58016087660
 ;;9002226.02101,"1084,58016087660 ",.02)
 ;;58016087660
 ;;9002226.02101,"1084,58016088300 ",.01)
 ;;58016088300
 ;;9002226.02101,"1084,58016088300 ",.02)
 ;;58016088300
 ;;9002226.02101,"1084,58016088330 ",.01)
 ;;58016088330
 ;;9002226.02101,"1084,58016088330 ",.02)
 ;;58016088330
 ;;9002226.02101,"1084,58016088360 ",.01)
 ;;58016088360
 ;;9002226.02101,"1084,58016088360 ",.02)
 ;;58016088360
 ;;9002226.02101,"1084,58016088390 ",.01)
 ;;58016088390
 ;;9002226.02101,"1084,58016088390 ",.02)
 ;;58016088390
 ;;9002226.02101,"1084,58864001528 ",.01)
 ;;58864001528
 ;;9002226.02101,"1084,58864001528 ",.02)
 ;;58864001528
 ;;9002226.02101,"1084,58864001530 ",.01)
 ;;58864001530
 ;;9002226.02101,"1084,58864001530 ",.02)
 ;;58864001530
 ;;9002226.02101,"1084,58864001560 ",.01)
 ;;58864001560
 ;;9002226.02101,"1084,58864001560 ",.02)
 ;;58864001560
 ;;9002226.02101,"1084,58864001590 ",.01)
 ;;58864001590
 ;;9002226.02101,"1084,58864001590 ",.02)
 ;;58864001590
 ;;9002226.02101,"1084,58864002714 ",.01)
 ;;58864002714
 ;;9002226.02101,"1084,58864002714 ",.02)
 ;;58864002714
 ;;9002226.02101,"1084,58864002730 ",.01)
 ;;58864002730
 ;;9002226.02101,"1084,58864002730 ",.02)
 ;;58864002730
 ;;9002226.02101,"1084,58864002760 ",.01)
 ;;58864002760
 ;;9002226.02101,"1084,58864002760 ",.02)
 ;;58864002760
 ;;9002226.02101,"1084,58864002790 ",.01)
 ;;58864002790
 ;;9002226.02101,"1084,58864002790 ",.02)
 ;;58864002790
 ;;9002226.02101,"1084,58864010030 ",.01)
 ;;58864010030
 ;;9002226.02101,"1084,58864010030 ",.02)
 ;;58864010030
 ;;9002226.02101,"1084,58864016130 ",.01)
 ;;58864016130
 ;;9002226.02101,"1084,58864016130 ",.02)
 ;;58864016130
 ;;9002226.02101,"1084,58864016160 ",.01)
 ;;58864016160
 ;;9002226.02101,"1084,58864016160 ",.02)
 ;;58864016160
 ;;9002226.02101,"1084,58864022430 ",.01)
 ;;58864022430
 ;;9002226.02101,"1084,58864022430 ",.02)
 ;;58864022430
 ;;9002226.02101,"1084,58864022460 ",.01)
 ;;58864022460
 ;;9002226.02101,"1084,58864022460 ",.02)
 ;;58864022460
 ;;9002226.02101,"1084,58864022493 ",.01)
 ;;58864022493
 ;;9002226.02101,"1084,58864022493 ",.02)
 ;;58864022493
 ;;9002226.02101,"1084,58864069330 ",.01)
 ;;58864069330
 ;;9002226.02101,"1084,58864069330 ",.02)
 ;;58864069330
 ;;9002226.02101,"1084,58864069360 ",.01)
 ;;58864069360
 ;;9002226.02101,"1084,58864069360 ",.02)
 ;;58864069360
 ;;9002226.02101,"1084,58864078930 ",.01)
 ;;58864078930
 ;;9002226.02101,"1084,58864078930 ",.02)
 ;;58864078930
 ;;9002226.02101,"1084,58864078960 ",.01)
 ;;58864078960
 ;;9002226.02101,"1084,58864078960 ",.02)
 ;;58864078960
 ;;9002226.02101,"1084,58864085130 ",.01)
 ;;58864085130
 ;;9002226.02101,"1084,58864085130 ",.02)
 ;;58864085130
 ;;9002226.02101,"1084,58864095230 ",.01)
 ;;58864095230
 ;;9002226.02101,"1084,58864095230 ",.02)
 ;;58864095230
 ;;9002226.02101,"1084,58864095330 ",.01)
 ;;58864095330
 ;;9002226.02101,"1084,58864095330 ",.02)
 ;;58864095330
 ;;9002226.02101,"1084,58864095630 ",.01)
 ;;58864095630
 ;;9002226.02101,"1084,58864095630 ",.02)
 ;;58864095630
 ;;9002226.02101,"1084,58864095730 ",.01)
 ;;58864095730
 ;;9002226.02101,"1084,58864095730 ",.02)
 ;;58864095730
 ;;9002226.02101,"1084,59115001201 ",.01)
 ;;59115001201
 ;;9002226.02101,"1084,59115001201 ",.02)
 ;;59115001201
 ;;9002226.02101,"1084,59115001210 ",.01)
 ;;59115001210
 ;;9002226.02101,"1084,59115001210 ",.02)
 ;;59115001210
 ;;9002226.02101,"1084,59115001255 ",.01)
 ;;59115001255
 ;;9002226.02101,"1084,59115001255 ",.02)
 ;;59115001255
 ;;9002226.02101,"1084,59115001299 ",.01)
 ;;59115001299
 ;;9002226.02101,"1084,59115001299 ",.02)
 ;;59115001299
 ;;9002226.02101,"1084,59115001301 ",.01)
 ;;59115001301
 ;;9002226.02101,"1084,59115001301 ",.02)
 ;;59115001301
 ;;9002226.02101,"1084,59115001310 ",.01)
 ;;59115001310
 ;;9002226.02101,"1084,59115001310 ",.02)
 ;;59115001310
 ;;9002226.02101,"1084,59115001355 ",.01)
 ;;59115001355
 ;;9002226.02101,"1084,59115001355 ",.02)
 ;;59115001355
 ;;9002226.02101,"1084,59115001399 ",.01)
 ;;59115001399
 ;;9002226.02101,"1084,59115001399 ",.02)
 ;;59115001399
 ;;9002226.02101,"1084,59115001401 ",.01)
 ;;59115001401
 ;;9002226.02101,"1084,59115001401 ",.02)
 ;;59115001401
 ;;9002226.02101,"1084,59115001455 ",.01)
 ;;59115001455
 ;;9002226.02101,"1084,59115001455 ",.02)
 ;;59115001455
 ;;9002226.02101,"1084,59115001499 ",.01)
 ;;59115001499
 ;;9002226.02101,"1084,59115001499 ",.02)
 ;;59115001499
 ;;9002226.02101,"1084,59762233003 ",.01)
 ;;59762233003
 ;;9002226.02101,"1084,59762233003 ",.02)
 ;;59762233003
 ;;9002226.02101,"1084,59762233005 ",.01)
 ;;59762233005
 ;;9002226.02101,"1084,59762233005 ",.02)
 ;;59762233005
 ;;9002226.02101,"1084,59762233007 ",.01)
 ;;59762233007
 ;;9002226.02101,"1084,59762233007 ",.02)
 ;;59762233007
 ;;9002226.02101,"1084,59762233103 ",.01)
 ;;59762233103
 ;;9002226.02101,"1084,59762233103 ",.02)
 ;;59762233103
 ;;9002226.02101,"1084,59762233106 ",.01)
 ;;59762233106
 ;;9002226.02101,"1084,59762233106 ",.02)
 ;;59762233106
 ;;9002226.02101,"1084,59762233108 ",.01)
 ;;59762233108
 ;;9002226.02101,"1084,59762233108 ",.02)
 ;;59762233108
 ;;9002226.02101,"1084,59762233203 ",.01)
 ;;59762233203
 ;;9002226.02101,"1084,59762233203 ",.02)
 ;;59762233203
 ;;9002226.02101,"1084,59762233206 ",.01)
 ;;59762233206
 ;;9002226.02101,"1084,59762233206 ",.02)
 ;;59762233206
 ;;9002226.02101,"1084,59762233208 ",.01)
 ;;59762233208
 ;;9002226.02101,"1084,59762233208 ",.02)
 ;;59762233208
 ;;9002226.02101,"1084,59762372501 ",.01)
 ;;59762372501
 ;;9002226.02101,"1084,59762372501 ",.02)
 ;;59762372501
 ;;9002226.02101,"1084,59762372603 ",.01)
 ;;59762372603
 ;;9002226.02101,"1084,59762372603 ",.02)
 ;;59762372603
 ;;9002226.02101,"1084,59762372704 ",.01)
 ;;59762372704
 ;;9002226.02101,"1084,59762372704 ",.02)
 ;;59762372704
 ;;9002226.02101,"1084,59762372706 ",.01)
 ;;59762372706
 ;;9002226.02101,"1084,59762372706 ",.02)
 ;;59762372706
 ;;9002226.02101,"1084,59762372707 ",.01)
 ;;59762372707
 ;;9002226.02101,"1084,59762372707 ",.02)
 ;;59762372707
 ;;9002226.02101,"1084,59762375704 ",.01)
 ;;59762375704
 ;;9002226.02101,"1084,59762375704 ",.02)
 ;;59762375704
 ;;9002226.02101,"1084,59762375706 ",.01)
 ;;59762375706
 ;;9002226.02101,"1084,59762375706 ",.02)
 ;;59762375706
 ;;9002226.02101,"1084,59762375707 ",.01)
 ;;59762375707
 ;;9002226.02101,"1084,59762375707 ",.02)
 ;;59762375707
 ;;9002226.02101,"1084,59762378101 ",.01)
 ;;59762378101
 ;;9002226.02101,"1084,59762378101 ",.02)
 ;;59762378101
 ;;9002226.02101,"1084,59762378201 ",.01)
 ;;59762378201
 ;;9002226.02101,"1084,59762378201 ",.02)
 ;;59762378201