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

BGPM5AFE.m

Go to the documentation of this file.
  1. BGPM5AFE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"881,61392060460 ",.01)
  1. ;;61392060460
  1. ;;9002226.02101,"881,61392060460 ",.02)
  1. ;;61392060460
  1. ;;9002226.02101,"881,61392060490 ",.01)
  1. ;;61392060490
  1. ;;9002226.02101,"881,61392060490 ",.02)
  1. ;;61392060490
  1. ;;9002226.02101,"881,61392060525 ",.01)
  1. ;;61392060525
  1. ;;9002226.02101,"881,61392060525 ",.02)
  1. ;;61392060525
  1. ;;9002226.02101,"881,61392060530 ",.01)
  1. ;;61392060530
  1. ;;9002226.02101,"881,61392060530 ",.02)
  1. ;;61392060530
  1. ;;9002226.02101,"881,61392060531 ",.01)
  1. ;;61392060531
  1. ;;9002226.02101,"881,61392060531 ",.02)
  1. ;;61392060531
  1. ;;9002226.02101,"881,61392060539 ",.01)
  1. ;;61392060539
  1. ;;9002226.02101,"881,61392060539 ",.02)
  1. ;;61392060539
  1. ;;9002226.02101,"881,61392060560 ",.01)
  1. ;;61392060560
  1. ;;9002226.02101,"881,61392060560 ",.02)
  1. ;;61392060560
  1. ;;9002226.02101,"881,61392060565 ",.01)
  1. ;;61392060565
  1. ;;9002226.02101,"881,61392060565 ",.02)
  1. ;;61392060565
  1. ;;9002226.02101,"881,61392060590 ",.01)
  1. ;;61392060590
  1. ;;9002226.02101,"881,61392060590 ",.02)
  1. ;;61392060590
  1. ;;9002226.02101,"881,61392060595 ",.01)
  1. ;;61392060595
  1. ;;9002226.02101,"881,61392060595 ",.02)
  1. ;;61392060595
  1. ;;9002226.02101,"881,61392064925 ",.01)
  1. ;;61392064925
  1. ;;9002226.02101,"881,61392064925 ",.02)
  1. ;;61392064925
  1. ;;9002226.02101,"881,61392064930 ",.01)
  1. ;;61392064930
  1. ;;9002226.02101,"881,61392064930 ",.02)
  1. ;;61392064930
  1. ;;9002226.02101,"881,61392064931 ",.01)
  1. ;;61392064931
  1. ;;9002226.02101,"881,61392064931 ",.02)
  1. ;;61392064931
  1. ;;9002226.02101,"881,61392064939 ",.01)
  1. ;;61392064939
  1. ;;9002226.02101,"881,61392064939 ",.02)
  1. ;;61392064939
  1. ;;9002226.02101,"881,61392064960 ",.01)
  1. ;;61392064960
  1. ;;9002226.02101,"881,61392064960 ",.02)
  1. ;;61392064960
  1. ;;9002226.02101,"881,61392064965 ",.01)
  1. ;;61392064965
  1. ;;9002226.02101,"881,61392064965 ",.02)
  1. ;;61392064965
  1. ;;9002226.02101,"881,61392064990 ",.01)
  1. ;;61392064990
  1. ;;9002226.02101,"881,61392064990 ",.02)
  1. ;;61392064990
  1. ;;9002226.02101,"881,61392064995 ",.01)
  1. ;;61392064995
  1. ;;9002226.02101,"881,61392064995 ",.02)
  1. ;;61392064995
  1. ;;9002226.02101,"881,61392065025 ",.01)
  1. ;;61392065025
  1. ;;9002226.02101,"881,61392065025 ",.02)
  1. ;;61392065025
  1. ;;9002226.02101,"881,61392065030 ",.01)
  1. ;;61392065030
  1. ;;9002226.02101,"881,61392065030 ",.02)
  1. ;;61392065030
  1. ;;9002226.02101,"881,61392065031 ",.01)
  1. ;;61392065031
  1. ;;9002226.02101,"881,61392065031 ",.02)
  1. ;;61392065031
  1. ;;9002226.02101,"881,61392065039 ",.01)
  1. ;;61392065039
  1. ;;9002226.02101,"881,61392065039 ",.02)
  1. ;;61392065039
  1. ;;9002226.02101,"881,61392065060 ",.01)
  1. ;;61392065060
  1. ;;9002226.02101,"881,61392065060 ",.02)
  1. ;;61392065060
  1. ;;9002226.02101,"881,61392065065 ",.01)
  1. ;;61392065065
  1. ;;9002226.02101,"881,61392065065 ",.02)
  1. ;;61392065065
  1. ;;9002226.02101,"881,61392065090 ",.01)
  1. ;;61392065090
  1. ;;9002226.02101,"881,61392065090 ",.02)
  1. ;;61392065090
  1. ;;9002226.02101,"881,61392065095 ",.01)
  1. ;;61392065095
  1. ;;9002226.02101,"881,61392065095 ",.02)
  1. ;;61392065095
  1. ;;9002226.02101,"881,61392065125 ",.01)
  1. ;;61392065125
  1. ;;9002226.02101,"881,61392065125 ",.02)
  1. ;;61392065125
  1. ;;9002226.02101,"881,61392065130 ",.01)
  1. ;;61392065130
  1. ;;9002226.02101,"881,61392065130 ",.02)
  1. ;;61392065130
  1. ;;9002226.02101,"881,61392065131 ",.01)
  1. ;;61392065131
  1. ;;9002226.02101,"881,61392065131 ",.02)
  1. ;;61392065131
  1. ;;9002226.02101,"881,61392065139 ",.01)
  1. ;;61392065139
  1. ;;9002226.02101,"881,61392065139 ",.02)
  1. ;;61392065139
  1. ;;9002226.02101,"881,61392065160 ",.01)
  1. ;;61392065160
  1. ;;9002226.02101,"881,61392065160 ",.02)
  1. ;;61392065160
  1. ;;9002226.02101,"881,61392065165 ",.01)
  1. ;;61392065165
  1. ;;9002226.02101,"881,61392065165 ",.02)
  1. ;;61392065165
  1. ;;9002226.02101,"881,61392065190 ",.01)
  1. ;;61392065190
  1. ;;9002226.02101,"881,61392065190 ",.02)
  1. ;;61392065190
  1. ;;9002226.02101,"881,61392065195 ",.01)
  1. ;;61392065195
  1. ;;9002226.02101,"881,61392065195 ",.02)
  1. ;;61392065195
  1. ;;9002226.02101,"881,61392065225 ",.01)
  1. ;;61392065225
  1. ;;9002226.02101,"881,61392065225 ",.02)
  1. ;;61392065225
  1. ;;9002226.02101,"881,61392065230 ",.01)
  1. ;;61392065230
  1. ;;9002226.02101,"881,61392065230 ",.02)
  1. ;;61392065230
  1. ;;9002226.02101,"881,61392065231 ",.01)
  1. ;;61392065231
  1. ;;9002226.02101,"881,61392065231 ",.02)
  1. ;;61392065231
  1. ;;9002226.02101,"881,61392065239 ",.01)
  1. ;;61392065239
  1. ;;9002226.02101,"881,61392065239 ",.02)
  1. ;;61392065239
  1. ;;9002226.02101,"881,61392065260 ",.01)
  1. ;;61392065260
  1. ;;9002226.02101,"881,61392065260 ",.02)
  1. ;;61392065260
  1. ;;9002226.02101,"881,61392065265 ",.01)
  1. ;;61392065265
  1. ;;9002226.02101,"881,61392065265 ",.02)
  1. ;;61392065265
  1. ;;9002226.02101,"881,61392065290 ",.01)
  1. ;;61392065290
  1. ;;9002226.02101,"881,61392065290 ",.02)
  1. ;;61392065290
  1. ;;9002226.02101,"881,61392065295 ",.01)
  1. ;;61392065295
  1. ;;9002226.02101,"881,61392065295 ",.02)
  1. ;;61392065295
  1. ;;9002226.02101,"881,61392069323 ",.01)
  1. ;;61392069323
  1. ;;9002226.02101,"881,61392069323 ",.02)
  1. ;;61392069323
  1. ;;9002226.02101,"881,61392069325 ",.01)
  1. ;;61392069325
  1. ;;9002226.02101,"881,61392069325 ",.02)
  1. ;;61392069325
  1. ;;9002226.02101,"881,61392069330 ",.01)
  1. ;;61392069330
  1. ;;9002226.02101,"881,61392069330 ",.02)
  1. ;;61392069330
  1. ;;9002226.02101,"881,61392069331 ",.01)
  1. ;;61392069331
  1. ;;9002226.02101,"881,61392069331 ",.02)
  1. ;;61392069331
  1. ;;9002226.02101,"881,61392069339 ",.01)
  1. ;;61392069339
  1. ;;9002226.02101,"881,61392069339 ",.02)
  1. ;;61392069339
  1. ;;9002226.02101,"881,61392069360 ",.01)
  1. ;;61392069360
  1. ;;9002226.02101,"881,61392069360 ",.02)
  1. ;;61392069360
  1. ;;9002226.02101,"881,61392069365 ",.01)
  1. ;;61392069365
  1. ;;9002226.02101,"881,61392069365 ",.02)
  1. ;;61392069365
  1. ;;9002226.02101,"881,61392069390 ",.01)
  1. ;;61392069390
  1. ;;9002226.02101,"881,61392069390 ",.02)
  1. ;;61392069390
  1. ;;9002226.02101,"881,61392069395 ",.01)
  1. ;;61392069395
  1. ;;9002226.02101,"881,61392069395 ",.02)
  1. ;;61392069395
  1. ;;9002226.02101,"881,61392069423 ",.01)
  1. ;;61392069423
  1. ;;9002226.02101,"881,61392069423 ",.02)
  1. ;;61392069423
  1. ;;9002226.02101,"881,61392069425 ",.01)
  1. ;;61392069425
  1. ;;9002226.02101,"881,61392069425 ",.02)
  1. ;;61392069425
  1. ;;9002226.02101,"881,61392069430 ",.01)
  1. ;;61392069430
  1. ;;9002226.02101,"881,61392069430 ",.02)
  1. ;;61392069430
  1. ;;9002226.02101,"881,61392069431 ",.01)
  1. ;;61392069431
  1. ;;9002226.02101,"881,61392069431 ",.02)
  1. ;;61392069431
  1. ;;9002226.02101,"881,61392069439 ",.01)
  1. ;;61392069439
  1. ;;9002226.02101,"881,61392069439 ",.02)
  1. ;;61392069439
  1. ;;9002226.02101,"881,61392069460 ",.01)
  1. ;;61392069460
  1. ;;9002226.02101,"881,61392069460 ",.02)
  1. ;;61392069460
  1. ;;9002226.02101,"881,61392069465 ",.01)
  1. ;;61392069465
  1. ;;9002226.02101,"881,61392069465 ",.02)
  1. ;;61392069465
  1. ;;9002226.02101,"881,61392069490 ",.01)
  1. ;;61392069490
  1. ;;9002226.02101,"881,61392069490 ",.02)
  1. ;;61392069490
  1. ;;9002226.02101,"881,61392069495 ",.01)
  1. ;;61392069495
  1. ;;9002226.02101,"881,61392069495 ",.02)
  1. ;;61392069495
  1. ;;9002226.02101,"881,61392069525 ",.01)
  1. ;;61392069525
  1. ;;9002226.02101,"881,61392069525 ",.02)
  1. ;;61392069525
  1. ;;9002226.02101,"881,61392069530 ",.01)
  1. ;;61392069530
  1. ;;9002226.02101,"881,61392069530 ",.02)
  1. ;;61392069530
  1. ;;9002226.02101,"881,61392069531 ",.01)
  1. ;;61392069531
  1. ;;9002226.02101,"881,61392069531 ",.02)
  1. ;;61392069531
  1. ;;9002226.02101,"881,61392069539 ",.01)
  1. ;;61392069539
  1. ;;9002226.02101,"881,61392069539 ",.02)
  1. ;;61392069539
  1. ;;9002226.02101,"881,61392069560 ",.01)
  1. ;;61392069560
  1. ;;9002226.02101,"881,61392069560 ",.02)
  1. ;;61392069560
  1. ;;9002226.02101,"881,61392069625 ",.01)
  1. ;;61392069625
  1. ;;9002226.02101,"881,61392069625 ",.02)
  1. ;;61392069625
  1. ;;9002226.02101,"881,61392069630 ",.01)
  1. ;;61392069630
  1. ;;9002226.02101,"881,61392069630 ",.02)
  1. ;;61392069630
  1. ;;9002226.02101,"881,61392069660 ",.01)
  1. ;;61392069660
  1. ;;9002226.02101,"881,61392069660 ",.02)
  1. ;;61392069660
  1. ;;9002226.02101,"881,61392069690 ",.01)
  1. ;;61392069690
  1. ;;9002226.02101,"881,61392069690 ",.02)
  1. ;;61392069690
  1. ;;9002226.02101,"881,61392069725 ",.01)
  1. ;;61392069725
  1. ;;9002226.02101,"881,61392069725 ",.02)
  1. ;;61392069725
  1. ;;9002226.02101,"881,61392069730 ",.01)
  1. ;;61392069730
  1. ;;9002226.02101,"881,61392069730 ",.02)
  1. ;;61392069730
  1. ;;9002226.02101,"881,61392069731 ",.01)
  1. ;;61392069731
  1. ;;9002226.02101,"881,61392069731 ",.02)
  1. ;;61392069731
  1. ;;9002226.02101,"881,61392069739 ",.01)
  1. ;;61392069739
  1. ;;9002226.02101,"881,61392069739 ",.02)
  1. ;;61392069739
  1. ;;9002226.02101,"881,61392069760 ",.01)
  1. ;;61392069760
  1. ;;9002226.02101,"881,61392069760 ",.02)
  1. ;;61392069760
  1. ;;9002226.02101,"881,61392069765 ",.01)
  1. ;;61392069765
  1. ;;9002226.02101,"881,61392069765 ",.02)
  1. ;;61392069765
  1. ;;9002226.02101,"881,61392069790 ",.01)
  1. ;;61392069790
  1. ;;9002226.02101,"881,61392069790 ",.02)
  1. ;;61392069790
  1. ;;9002226.02101,"881,61392069795 ",.01)
  1. ;;61392069795
  1. ;;9002226.02101,"881,61392069795 ",.02)
  1. ;;61392069795
  1. ;;9002226.02101,"881,61392069825 ",.01)
  1. ;;61392069825
  1. ;;9002226.02101,"881,61392069825 ",.02)
  1. ;;61392069825
  1. ;;9002226.02101,"881,61392069830 ",.01)
  1. ;;61392069830
  1. ;;9002226.02101,"881,61392069830 ",.02)
  1. ;;61392069830
  1. ;;9002226.02101,"881,61392069831 ",.01)
  1. ;;61392069831
  1. ;;9002226.02101,"881,61392069831 ",.02)
  1. ;;61392069831
  1. ;;9002226.02101,"881,61392069839 ",.01)
  1. ;;61392069839
  1. ;;9002226.02101,"881,61392069839 ",.02)
  1. ;;61392069839
  1. ;;9002226.02101,"881,61392069860 ",.01)
  1. ;;61392069860
  1. ;;9002226.02101,"881,61392069860 ",.02)
  1. ;;61392069860
  1. ;;9002226.02101,"881,61392069865 ",.01)
  1. ;;61392069865
  1. ;;9002226.02101,"881,61392069865 ",.02)
  1. ;;61392069865
  1. ;;9002226.02101,"881,61392069890 ",.01)
  1. ;;61392069890
  1. ;;9002226.02101,"881,61392069890 ",.02)
  1. ;;61392069890
  1. ;;9002226.02101,"881,61392069895 ",.01)
  1. ;;61392069895
  1. ;;9002226.02101,"881,61392069895 ",.02)
  1. ;;61392069895
  1. ;;9002226.02101,"881,62022094501 ",.01)
  1. ;;62022094501
  1. ;;9002226.02101,"881,62022094501 ",.02)
  1. ;;62022094501
  1. ;;9002226.02101,"881,62022094505 ",.01)
  1. ;;62022094505
  1. ;;9002226.02101,"881,62022094505 ",.02)
  1. ;;62022094505
  1. ;;9002226.02101,"881,62022094510 ",.01)
  1. ;;62022094510
  1. ;;9002226.02101,"881,62022094510 ",.02)
  1. ;;62022094510
  1. ;;9002226.02101,"881,62022094601 ",.01)
  1. ;;62022094601
  1. ;;9002226.02101,"881,62022094601 ",.02)
  1. ;;62022094601
  1. ;;9002226.02101,"881,62022094605 ",.01)
  1. ;;62022094605
  1. ;;9002226.02101,"881,62022094605 ",.02)
  1. ;;62022094605
  1. ;;9002226.02101,"881,62022094610 ",.01)
  1. ;;62022094610
  1. ;;9002226.02101,"881,62022094610 ",.02)
  1. ;;62022094610
  1. ;;9002226.02101,"881,62033010120 ",.01)
  1. ;;62033010120
  1. ;;9002226.02101,"881,62033010120 ",.02)
  1. ;;62033010120
  1. ;;9002226.02101,"881,62037053110 ",.01)
  1. ;;62037053110
  1. ;;9002226.02101,"881,62037053110 ",.02)
  1. ;;62037053110
  1. ;;9002226.02101,"881,62037053190 ",.01)
  1. ;;62037053190
  1. ;;9002226.02101,"881,62037053190 ",.02)
  1. ;;62037053190
  1. ;;9002226.02101,"881,62037053210 ",.01)
  1. ;;62037053210
  1. ;;9002226.02101,"881,62037053210 ",.02)
  1. ;;62037053210
  1. ;;9002226.02101,"881,62037053290 ",.01)
  1. ;;62037053290
  1. ;;9002226.02101,"881,62037053290 ",.02)
  1. ;;62037053290
  1. ;;9002226.02101,"881,62037053310 ",.01)
  1. ;;62037053310
  1. ;;9002226.02101,"881,62037053310 ",.02)
  1. ;;62037053310
  1. ;;9002226.02101,"881,62037053390 ",.01)
  1. ;;62037053390
  1. ;;9002226.02101,"881,62037053390 ",.02)
  1. ;;62037053390
  1. ;;9002226.02101,"881,62037053410 ",.01)
  1. ;;62037053410
  1. ;;9002226.02101,"881,62037053410 ",.02)
  1. ;;62037053410
  1. ;;9002226.02101,"881,62037053490 ",.01)
  1. ;;62037053490
  1. ;;9002226.02101,"881,62037053490 ",.02)
  1. ;;62037053490
  1. ;;9002226.02101,"881,62037093505 ",.01)
  1. ;;62037093505
  1. ;;9002226.02101,"881,62037093505 ",.02)
  1. ;;62037093505
  1. ;;9002226.02101,"881,62037093510 ",.01)
  1. ;;62037093510
  1. ;;9002226.02101,"881,62037093510 ",.02)
  1. ;;62037093510