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

BGPM5BDN.m

Go to the documentation of this file.
BGPM5BDN ;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,61392002790 ",.01)
 ;;61392002790
 ;;9002226.02101,"1044,61392002790 ",.02)
 ;;61392002790
 ;;9002226.02101,"1044,61392002791 ",.01)
 ;;61392002791
 ;;9002226.02101,"1044,61392002791 ",.02)
 ;;61392002791
 ;;9002226.02101,"1044,61392002795 ",.01)
 ;;61392002795
 ;;9002226.02101,"1044,61392002795 ",.02)
 ;;61392002795
 ;;9002226.02101,"1044,61392014025 ",.01)
 ;;61392014025
 ;;9002226.02101,"1044,61392014025 ",.02)
 ;;61392014025
 ;;9002226.02101,"1044,61392014030 ",.01)
 ;;61392014030
 ;;9002226.02101,"1044,61392014030 ",.02)
 ;;61392014030
 ;;9002226.02101,"1044,61392014031 ",.01)
 ;;61392014031
 ;;9002226.02101,"1044,61392014031 ",.02)
 ;;61392014031
 ;;9002226.02101,"1044,61392014034 ",.01)
 ;;61392014034
 ;;9002226.02101,"1044,61392014034 ",.02)
 ;;61392014034
 ;;9002226.02101,"1044,61392014039 ",.01)
 ;;61392014039
 ;;9002226.02101,"1044,61392014039 ",.02)
 ;;61392014039
 ;;9002226.02101,"1044,61392014045 ",.01)
 ;;61392014045
 ;;9002226.02101,"1044,61392014045 ",.02)
 ;;61392014045
 ;;9002226.02101,"1044,61392014056 ",.01)
 ;;61392014056
 ;;9002226.02101,"1044,61392014056 ",.02)
 ;;61392014056
 ;;9002226.02101,"1044,61392014060 ",.01)
 ;;61392014060
 ;;9002226.02101,"1044,61392014060 ",.02)
 ;;61392014060
 ;;9002226.02101,"1044,61392014065 ",.01)
 ;;61392014065
 ;;9002226.02101,"1044,61392014065 ",.02)
 ;;61392014065
 ;;9002226.02101,"1044,61392014090 ",.01)
 ;;61392014090
 ;;9002226.02101,"1044,61392014090 ",.02)
 ;;61392014090
 ;;9002226.02101,"1044,61392014091 ",.01)
 ;;61392014091
 ;;9002226.02101,"1044,61392014091 ",.02)
 ;;61392014091
 ;;9002226.02101,"1044,61392014095 ",.01)
 ;;61392014095
 ;;9002226.02101,"1044,61392014095 ",.02)
 ;;61392014095
 ;;9002226.02101,"1044,61392014125 ",.01)
 ;;61392014125
 ;;9002226.02101,"1044,61392014125 ",.02)
 ;;61392014125
 ;;9002226.02101,"1044,61392014130 ",.01)
 ;;61392014130
 ;;9002226.02101,"1044,61392014130 ",.02)
 ;;61392014130
 ;;9002226.02101,"1044,61392014131 ",.01)
 ;;61392014131
 ;;9002226.02101,"1044,61392014131 ",.02)
 ;;61392014131
 ;;9002226.02101,"1044,61392014139 ",.01)
 ;;61392014139
 ;;9002226.02101,"1044,61392014139 ",.02)
 ;;61392014139
 ;;9002226.02101,"1044,61392014145 ",.01)
 ;;61392014145
 ;;9002226.02101,"1044,61392014145 ",.02)
 ;;61392014145
 ;;9002226.02101,"1044,61392014156 ",.01)
 ;;61392014156
 ;;9002226.02101,"1044,61392014156 ",.02)
 ;;61392014156
 ;;9002226.02101,"1044,61392014160 ",.01)
 ;;61392014160
 ;;9002226.02101,"1044,61392014160 ",.02)
 ;;61392014160
 ;;9002226.02101,"1044,61392014165 ",.01)
 ;;61392014165
 ;;9002226.02101,"1044,61392014165 ",.02)
 ;;61392014165
 ;;9002226.02101,"1044,61392014190 ",.01)
 ;;61392014190
 ;;9002226.02101,"1044,61392014190 ",.02)
 ;;61392014190
 ;;9002226.02101,"1044,61392014191 ",.01)
 ;;61392014191
 ;;9002226.02101,"1044,61392014191 ",.02)
 ;;61392014191
 ;;9002226.02101,"1044,61392014195 ",.01)
 ;;61392014195
 ;;9002226.02101,"1044,61392014195 ",.02)
 ;;61392014195
 ;;9002226.02101,"1044,61392014334 ",.01)
 ;;61392014334
 ;;9002226.02101,"1044,61392014334 ",.02)
 ;;61392014334
 ;;9002226.02101,"1044,61392014345 ",.01)
 ;;61392014345
 ;;9002226.02101,"1044,61392014345 ",.02)
 ;;61392014345
 ;;9002226.02101,"1044,61392014356 ",.01)
 ;;61392014356
 ;;9002226.02101,"1044,61392014356 ",.02)
 ;;61392014356
 ;;9002226.02101,"1044,61392014391 ",.01)
 ;;61392014391
 ;;9002226.02101,"1044,61392014391 ",.02)
 ;;61392014391
 ;;9002226.02101,"1044,61392015325 ",.01)
 ;;61392015325
 ;;9002226.02101,"1044,61392015325 ",.02)
 ;;61392015325
 ;;9002226.02101,"1044,61392015330 ",.01)
 ;;61392015330
 ;;9002226.02101,"1044,61392015330 ",.02)
 ;;61392015330
 ;;9002226.02101,"1044,61392015331 ",.01)
 ;;61392015331
 ;;9002226.02101,"1044,61392015331 ",.02)
 ;;61392015331
 ;;9002226.02101,"1044,61392015332 ",.01)
 ;;61392015332
 ;;9002226.02101,"1044,61392015332 ",.02)
 ;;61392015332
 ;;9002226.02101,"1044,61392015339 ",.01)
 ;;61392015339
 ;;9002226.02101,"1044,61392015339 ",.02)
 ;;61392015339
 ;;9002226.02101,"1044,61392015345 ",.01)
 ;;61392015345
 ;;9002226.02101,"1044,61392015345 ",.02)
 ;;61392015345
 ;;9002226.02101,"1044,61392015351 ",.01)
 ;;61392015351
 ;;9002226.02101,"1044,61392015351 ",.02)
 ;;61392015351
 ;;9002226.02101,"1044,61392015354 ",.01)
 ;;61392015354
 ;;9002226.02101,"1044,61392015354 ",.02)
 ;;61392015354
 ;;9002226.02101,"1044,61392015356 ",.01)
 ;;61392015356
 ;;9002226.02101,"1044,61392015356 ",.02)
 ;;61392015356
 ;;9002226.02101,"1044,61392015360 ",.01)
 ;;61392015360
 ;;9002226.02101,"1044,61392015360 ",.02)
 ;;61392015360
 ;;9002226.02101,"1044,61392015390 ",.01)
 ;;61392015390
 ;;9002226.02101,"1044,61392015390 ",.02)
 ;;61392015390
 ;;9002226.02101,"1044,61392015391 ",.01)
 ;;61392015391
 ;;9002226.02101,"1044,61392015391 ",.02)
 ;;61392015391
 ;;9002226.02101,"1044,61392017925 ",.01)
 ;;61392017925
 ;;9002226.02101,"1044,61392017925 ",.02)
 ;;61392017925
 ;;9002226.02101,"1044,61392017930 ",.01)
 ;;61392017930
 ;;9002226.02101,"1044,61392017930 ",.02)
 ;;61392017930
 ;;9002226.02101,"1044,61392017931 ",.01)
 ;;61392017931
 ;;9002226.02101,"1044,61392017931 ",.02)
 ;;61392017931
 ;;9002226.02101,"1044,61392017939 ",.01)
 ;;61392017939
 ;;9002226.02101,"1044,61392017939 ",.02)
 ;;61392017939
 ;;9002226.02101,"1044,61392017965 ",.01)
 ;;61392017965
 ;;9002226.02101,"1044,61392017965 ",.02)
 ;;61392017965
 ;;9002226.02101,"1044,61392036125 ",.01)
 ;;61392036125
 ;;9002226.02101,"1044,61392036125 ",.02)
 ;;61392036125
 ;;9002226.02101,"1044,61392036130 ",.01)
 ;;61392036130
 ;;9002226.02101,"1044,61392036130 ",.02)
 ;;61392036130
 ;;9002226.02101,"1044,61392036131 ",.01)
 ;;61392036131
 ;;9002226.02101,"1044,61392036131 ",.02)
 ;;61392036131
 ;;9002226.02101,"1044,61392036139 ",.01)
 ;;61392036139
 ;;9002226.02101,"1044,61392036139 ",.02)
 ;;61392036139
 ;;9002226.02101,"1044,61392036145 ",.01)
 ;;61392036145
 ;;9002226.02101,"1044,61392036145 ",.02)
 ;;61392036145
 ;;9002226.02101,"1044,61392036156 ",.01)
 ;;61392036156
 ;;9002226.02101,"1044,61392036156 ",.02)
 ;;61392036156
 ;;9002226.02101,"1044,61392036160 ",.01)
 ;;61392036160
 ;;9002226.02101,"1044,61392036160 ",.02)
 ;;61392036160
 ;;9002226.02101,"1044,61392036165 ",.01)
 ;;61392036165
 ;;9002226.02101,"1044,61392036165 ",.02)
 ;;61392036165
 ;;9002226.02101,"1044,61392036190 ",.01)
 ;;61392036190
 ;;9002226.02101,"1044,61392036190 ",.02)
 ;;61392036190
 ;;9002226.02101,"1044,61392036191 ",.01)
 ;;61392036191
 ;;9002226.02101,"1044,61392036191 ",.02)
 ;;61392036191
 ;;9002226.02101,"1044,61392036425 ",.01)
 ;;61392036425
 ;;9002226.02101,"1044,61392036425 ",.02)
 ;;61392036425
 ;;9002226.02101,"1044,61392036430 ",.01)
 ;;61392036430
 ;;9002226.02101,"1044,61392036430 ",.02)
 ;;61392036430
 ;;9002226.02101,"1044,61392036431 ",.01)
 ;;61392036431
 ;;9002226.02101,"1044,61392036431 ",.02)
 ;;61392036431
 ;;9002226.02101,"1044,61392036439 ",.01)
 ;;61392036439
 ;;9002226.02101,"1044,61392036439 ",.02)
 ;;61392036439
 ;;9002226.02101,"1044,61392036445 ",.01)
 ;;61392036445
 ;;9002226.02101,"1044,61392036445 ",.02)
 ;;61392036445
 ;;9002226.02101,"1044,61392036456 ",.01)
 ;;61392036456
 ;;9002226.02101,"1044,61392036456 ",.02)
 ;;61392036456
 ;;9002226.02101,"1044,61392036460 ",.01)
 ;;61392036460
 ;;9002226.02101,"1044,61392036460 ",.02)
 ;;61392036460
 ;;9002226.02101,"1044,61392036490 ",.01)
 ;;61392036490
 ;;9002226.02101,"1044,61392036490 ",.02)
 ;;61392036490
 ;;9002226.02101,"1044,61392036491 ",.01)
 ;;61392036491
 ;;9002226.02101,"1044,61392036491 ",.02)
 ;;61392036491
 ;;9002226.02101,"1044,61392036725 ",.01)
 ;;61392036725
 ;;9002226.02101,"1044,61392036725 ",.02)
 ;;61392036725
 ;;9002226.02101,"1044,61392036730 ",.01)
 ;;61392036730
 ;;9002226.02101,"1044,61392036730 ",.02)
 ;;61392036730
 ;;9002226.02101,"1044,61392036731 ",.01)
 ;;61392036731
 ;;9002226.02101,"1044,61392036731 ",.02)
 ;;61392036731
 ;;9002226.02101,"1044,61392036739 ",.01)
 ;;61392036739
 ;;9002226.02101,"1044,61392036739 ",.02)
 ;;61392036739
 ;;9002226.02101,"1044,61392036745 ",.01)
 ;;61392036745
 ;;9002226.02101,"1044,61392036745 ",.02)
 ;;61392036745
 ;;9002226.02101,"1044,61392036756 ",.01)
 ;;61392036756
 ;;9002226.02101,"1044,61392036756 ",.02)
 ;;61392036756
 ;;9002226.02101,"1044,61392036760 ",.01)
 ;;61392036760
 ;;9002226.02101,"1044,61392036760 ",.02)
 ;;61392036760
 ;;9002226.02101,"1044,61392036790 ",.01)
 ;;61392036790
 ;;9002226.02101,"1044,61392036790 ",.02)
 ;;61392036790
 ;;9002226.02101,"1044,61392036791 ",.01)
 ;;61392036791
 ;;9002226.02101,"1044,61392036791 ",.02)
 ;;61392036791
 ;;9002226.02101,"1044,61392037025 ",.01)
 ;;61392037025
 ;;9002226.02101,"1044,61392037025 ",.02)
 ;;61392037025
 ;;9002226.02101,"1044,61392037030 ",.01)
 ;;61392037030
 ;;9002226.02101,"1044,61392037030 ",.02)
 ;;61392037030
 ;;9002226.02101,"1044,61392037031 ",.01)
 ;;61392037031
 ;;9002226.02101,"1044,61392037031 ",.02)
 ;;61392037031
 ;;9002226.02101,"1044,61392037039 ",.01)
 ;;61392037039
 ;;9002226.02101,"1044,61392037039 ",.02)
 ;;61392037039
 ;;9002226.02101,"1044,61392037045 ",.01)
 ;;61392037045
 ;;9002226.02101,"1044,61392037045 ",.02)
 ;;61392037045
 ;;9002226.02101,"1044,61392037054 ",.01)
 ;;61392037054
 ;;9002226.02101,"1044,61392037054 ",.02)
 ;;61392037054
 ;;9002226.02101,"1044,61392037056 ",.01)
 ;;61392037056
 ;;9002226.02101,"1044,61392037056 ",.02)
 ;;61392037056
 ;;9002226.02101,"1044,61392037060 ",.01)
 ;;61392037060
 ;;9002226.02101,"1044,61392037060 ",.02)
 ;;61392037060
 ;;9002226.02101,"1044,61392037090 ",.01)
 ;;61392037090
 ;;9002226.02101,"1044,61392037090 ",.02)
 ;;61392037090
 ;;9002226.02101,"1044,61392037091 ",.01)
 ;;61392037091
 ;;9002226.02101,"1044,61392037091 ",.02)
 ;;61392037091
 ;;9002226.02101,"1044,61392040425 ",.01)
 ;;61392040425
 ;;9002226.02101,"1044,61392040425 ",.02)
 ;;61392040425
 ;;9002226.02101,"1044,61392040430 ",.01)
 ;;61392040430
 ;;9002226.02101,"1044,61392040430 ",.02)
 ;;61392040430
 ;;9002226.02101,"1044,61392040431 ",.01)
 ;;61392040431
 ;;9002226.02101,"1044,61392040431 ",.02)
 ;;61392040431
 ;;9002226.02101,"1044,61392040439 ",.01)
 ;;61392040439
 ;;9002226.02101,"1044,61392040439 ",.02)
 ;;61392040439
 ;;9002226.02101,"1044,61392040460 ",.01)
 ;;61392040460
 ;;9002226.02101,"1044,61392040460 ",.02)
 ;;61392040460
 ;;9002226.02101,"1044,61392040490 ",.01)
 ;;61392040490
 ;;9002226.02101,"1044,61392040490 ",.02)
 ;;61392040490
 ;;9002226.02101,"1044,61392040525 ",.01)
 ;;61392040525
 ;;9002226.02101,"1044,61392040525 ",.02)
 ;;61392040525
 ;;9002226.02101,"1044,61392040530 ",.01)
 ;;61392040530
 ;;9002226.02101,"1044,61392040530 ",.02)
 ;;61392040530
 ;;9002226.02101,"1044,61392040531 ",.01)
 ;;61392040531
 ;;9002226.02101,"1044,61392040531 ",.02)
 ;;61392040531
 ;;9002226.02101,"1044,61392040539 ",.01)
 ;;61392040539
 ;;9002226.02101,"1044,61392040539 ",.02)
 ;;61392040539
 ;;9002226.02101,"1044,61392040560 ",.01)
 ;;61392040560
 ;;9002226.02101,"1044,61392040560 ",.02)
 ;;61392040560
 ;;9002226.02101,"1044,61392040625 ",.01)
 ;;61392040625
 ;;9002226.02101,"1044,61392040625 ",.02)
 ;;61392040625
 ;;9002226.02101,"1044,61392040630 ",.01)
 ;;61392040630
 ;;9002226.02101,"1044,61392040630 ",.02)
 ;;61392040630
 ;;9002226.02101,"1044,61392040660 ",.01)
 ;;61392040660
 ;;9002226.02101,"1044,61392040660 ",.02)
 ;;61392040660
 ;;9002226.02101,"1044,61392040725 ",.01)
 ;;61392040725
 ;;9002226.02101,"1044,61392040725 ",.02)
 ;;61392040725
 ;;9002226.02101,"1044,61392040730 ",.01)
 ;;61392040730