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

BGPM5BFR.m

Go to the documentation of this file.
BGPM5BFR ;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,61392006439 ",.02)
 ;;61392006439
 ;;9002226.02101,"1084,61392006445 ",.01)
 ;;61392006445
 ;;9002226.02101,"1084,61392006445 ",.02)
 ;;61392006445
 ;;9002226.02101,"1084,61392006451 ",.01)
 ;;61392006451
 ;;9002226.02101,"1084,61392006451 ",.02)
 ;;61392006451
 ;;9002226.02101,"1084,61392006454 ",.01)
 ;;61392006454
 ;;9002226.02101,"1084,61392006454 ",.02)
 ;;61392006454
 ;;9002226.02101,"1084,61392006491 ",.01)
 ;;61392006491
 ;;9002226.02101,"1084,61392006491 ",.02)
 ;;61392006491
 ;;9002226.02101,"1084,61392011730 ",.01)
 ;;61392011730
 ;;9002226.02101,"1084,61392011730 ",.02)
 ;;61392011730
 ;;9002226.02101,"1084,61392011731 ",.01)
 ;;61392011731
 ;;9002226.02101,"1084,61392011731 ",.02)
 ;;61392011731
 ;;9002226.02101,"1084,61392011732 ",.01)
 ;;61392011732
 ;;9002226.02101,"1084,61392011732 ",.02)
 ;;61392011732
 ;;9002226.02101,"1084,61392011739 ",.01)
 ;;61392011739
 ;;9002226.02101,"1084,61392011739 ",.02)
 ;;61392011739
 ;;9002226.02101,"1084,61392011745 ",.01)
 ;;61392011745
 ;;9002226.02101,"1084,61392011745 ",.02)
 ;;61392011745
 ;;9002226.02101,"1084,61392011751 ",.01)
 ;;61392011751
 ;;9002226.02101,"1084,61392011751 ",.02)
 ;;61392011751
 ;;9002226.02101,"1084,61392011754 ",.01)
 ;;61392011754
 ;;9002226.02101,"1084,61392011754 ",.02)
 ;;61392011754
 ;;9002226.02101,"1084,61392011760 ",.01)
 ;;61392011760
 ;;9002226.02101,"1084,61392011760 ",.02)
 ;;61392011760
 ;;9002226.02101,"1084,61392011790 ",.01)
 ;;61392011790
 ;;9002226.02101,"1084,61392011790 ",.02)
 ;;61392011790
 ;;9002226.02101,"1084,61392011791 ",.01)
 ;;61392011791
 ;;9002226.02101,"1084,61392011791 ",.02)
 ;;61392011791
 ;;9002226.02101,"1084,61392011930 ",.01)
 ;;61392011930
 ;;9002226.02101,"1084,61392011930 ",.02)
 ;;61392011930
 ;;9002226.02101,"1084,61392011931 ",.01)
 ;;61392011931
 ;;9002226.02101,"1084,61392011931 ",.02)
 ;;61392011931
 ;;9002226.02101,"1084,61392011932 ",.01)
 ;;61392011932
 ;;9002226.02101,"1084,61392011932 ",.02)
 ;;61392011932
 ;;9002226.02101,"1084,61392011939 ",.01)
 ;;61392011939
 ;;9002226.02101,"1084,61392011939 ",.02)
 ;;61392011939
 ;;9002226.02101,"1084,61392011945 ",.01)
 ;;61392011945
 ;;9002226.02101,"1084,61392011945 ",.02)
 ;;61392011945
 ;;9002226.02101,"1084,61392011951 ",.01)
 ;;61392011951
 ;;9002226.02101,"1084,61392011951 ",.02)
 ;;61392011951
 ;;9002226.02101,"1084,61392011954 ",.01)
 ;;61392011954
 ;;9002226.02101,"1084,61392011954 ",.02)
 ;;61392011954
 ;;9002226.02101,"1084,61392011960 ",.01)
 ;;61392011960
 ;;9002226.02101,"1084,61392011960 ",.02)
 ;;61392011960
 ;;9002226.02101,"1084,61392011990 ",.01)
 ;;61392011990
 ;;9002226.02101,"1084,61392011990 ",.02)
 ;;61392011990
 ;;9002226.02101,"1084,61392011991 ",.01)
 ;;61392011991
 ;;9002226.02101,"1084,61392011991 ",.02)
 ;;61392011991
 ;;9002226.02101,"1084,61392012045 ",.01)
 ;;61392012045
 ;;9002226.02101,"1084,61392012045 ",.02)
 ;;61392012045
 ;;9002226.02101,"1084,61392012051 ",.01)
 ;;61392012051
 ;;9002226.02101,"1084,61392012051 ",.02)
 ;;61392012051
 ;;9002226.02101,"1084,61392012054 ",.01)
 ;;61392012054
 ;;9002226.02101,"1084,61392012054 ",.02)
 ;;61392012054
 ;;9002226.02101,"1084,61392012091 ",.01)
 ;;61392012091
 ;;9002226.02101,"1084,61392012091 ",.02)
 ;;61392012091
 ;;9002226.02101,"1084,61392041925 ",.01)
 ;;61392041925
 ;;9002226.02101,"1084,61392041925 ",.02)
 ;;61392041925
 ;;9002226.02101,"1084,61392041930 ",.01)
 ;;61392041930
 ;;9002226.02101,"1084,61392041930 ",.02)
 ;;61392041930
 ;;9002226.02101,"1084,61392041931 ",.01)
 ;;61392041931
 ;;9002226.02101,"1084,61392041931 ",.02)
 ;;61392041931
 ;;9002226.02101,"1084,61392041939 ",.01)
 ;;61392041939
 ;;9002226.02101,"1084,61392041939 ",.02)
 ;;61392041939
 ;;9002226.02101,"1084,61392059225 ",.01)
 ;;61392059225
 ;;9002226.02101,"1084,61392059225 ",.02)
 ;;61392059225
 ;;9002226.02101,"1084,61392059230 ",.01)
 ;;61392059230
 ;;9002226.02101,"1084,61392059230 ",.02)
 ;;61392059230
 ;;9002226.02101,"1084,61392059231 ",.01)
 ;;61392059231
 ;;9002226.02101,"1084,61392059231 ",.02)
 ;;61392059231
 ;;9002226.02101,"1084,61392059239 ",.01)
 ;;61392059239
 ;;9002226.02101,"1084,61392059239 ",.02)
 ;;61392059239
 ;;9002226.02101,"1084,61392059325 ",.01)
 ;;61392059325
 ;;9002226.02101,"1084,61392059325 ",.02)
 ;;61392059325
 ;;9002226.02101,"1084,61392059330 ",.01)
 ;;61392059330
 ;;9002226.02101,"1084,61392059330 ",.02)
 ;;61392059330
 ;;9002226.02101,"1084,61392059331 ",.01)
 ;;61392059331
 ;;9002226.02101,"1084,61392059331 ",.02)
 ;;61392059331
 ;;9002226.02101,"1084,61392059339 ",.01)
 ;;61392059339
 ;;9002226.02101,"1084,61392059339 ",.02)
 ;;61392059339
 ;;9002226.02101,"1084,61392059425 ",.01)
 ;;61392059425
 ;;9002226.02101,"1084,61392059425 ",.02)
 ;;61392059425
 ;;9002226.02101,"1084,61392059430 ",.01)
 ;;61392059430
 ;;9002226.02101,"1084,61392059430 ",.02)
 ;;61392059430
 ;;9002226.02101,"1084,61392059431 ",.01)
 ;;61392059431
 ;;9002226.02101,"1084,61392059431 ",.02)
 ;;61392059431
 ;;9002226.02101,"1084,61392059439 ",.01)
 ;;61392059439
 ;;9002226.02101,"1084,61392059439 ",.02)
 ;;61392059439
 ;;9002226.02101,"1084,61392059460 ",.01)
 ;;61392059460
 ;;9002226.02101,"1084,61392059460 ",.02)
 ;;61392059460
 ;;9002226.02101,"1084,61392059525 ",.01)
 ;;61392059525
 ;;9002226.02101,"1084,61392059525 ",.02)
 ;;61392059525
 ;;9002226.02101,"1084,61392059530 ",.01)
 ;;61392059530
 ;;9002226.02101,"1084,61392059530 ",.02)
 ;;61392059530
 ;;9002226.02101,"1084,61392059531 ",.01)
 ;;61392059531
 ;;9002226.02101,"1084,61392059531 ",.02)
 ;;61392059531
 ;;9002226.02101,"1084,61392059539 ",.01)
 ;;61392059539
 ;;9002226.02101,"1084,61392059539 ",.02)
 ;;61392059539
 ;;9002226.02101,"1084,61392059560 ",.01)
 ;;61392059560
 ;;9002226.02101,"1084,61392059560 ",.02)
 ;;61392059560
 ;;9002226.02101,"1084,61392059625 ",.01)
 ;;61392059625
 ;;9002226.02101,"1084,61392059625 ",.02)
 ;;61392059625
 ;;9002226.02101,"1084,61392059630 ",.01)
 ;;61392059630
 ;;9002226.02101,"1084,61392059630 ",.02)
 ;;61392059630
 ;;9002226.02101,"1084,61392059631 ",.01)
 ;;61392059631
 ;;9002226.02101,"1084,61392059631 ",.02)
 ;;61392059631
 ;;9002226.02101,"1084,61392059660 ",.01)
 ;;61392059660
 ;;9002226.02101,"1084,61392059660 ",.02)
 ;;61392059660
 ;;9002226.02101,"1084,61392059690 ",.01)
 ;;61392059690
 ;;9002226.02101,"1084,61392059690 ",.02)
 ;;61392059690
 ;;9002226.02101,"1084,61392068512 ",.01)
 ;;61392068512
 ;;9002226.02101,"1084,61392068512 ",.02)
 ;;61392068512
 ;;9002226.02101,"1084,61392068523 ",.01)
 ;;61392068523
 ;;9002226.02101,"1084,61392068523 ",.02)
 ;;61392068523
 ;;9002226.02101,"1084,61392068525 ",.01)
 ;;61392068525
 ;;9002226.02101,"1084,61392068525 ",.02)
 ;;61392068525
 ;;9002226.02101,"1084,61392068530 ",.01)
 ;;61392068530
 ;;9002226.02101,"1084,61392068530 ",.02)
 ;;61392068530
 ;;9002226.02101,"1084,61392068531 ",.01)
 ;;61392068531
 ;;9002226.02101,"1084,61392068531 ",.02)
 ;;61392068531
 ;;9002226.02101,"1084,61392068539 ",.01)
 ;;61392068539
 ;;9002226.02101,"1084,61392068539 ",.02)
 ;;61392068539
 ;;9002226.02101,"1084,61392068560 ",.01)
 ;;61392068560
 ;;9002226.02101,"1084,61392068560 ",.02)
 ;;61392068560
 ;;9002226.02101,"1084,61392068590 ",.01)
 ;;61392068590
 ;;9002226.02101,"1084,61392068590 ",.02)
 ;;61392068590
 ;;9002226.02101,"1084,61392068625 ",.01)
 ;;61392068625
 ;;9002226.02101,"1084,61392068625 ",.02)
 ;;61392068625
 ;;9002226.02101,"1084,61392068630 ",.01)
 ;;61392068630
 ;;9002226.02101,"1084,61392068630 ",.02)
 ;;61392068630
 ;;9002226.02101,"1084,61392068660 ",.01)
 ;;61392068660
 ;;9002226.02101,"1084,61392068660 ",.02)
 ;;61392068660
 ;;9002226.02101,"1084,61392068690 ",.01)
 ;;61392068690
 ;;9002226.02101,"1084,61392068690 ",.02)
 ;;61392068690
 ;;9002226.02101,"1084,61392068725 ",.01)
 ;;61392068725
 ;;9002226.02101,"1084,61392068725 ",.02)
 ;;61392068725
 ;;9002226.02101,"1084,61392068730 ",.01)
 ;;61392068730
 ;;9002226.02101,"1084,61392068730 ",.02)
 ;;61392068730
 ;;9002226.02101,"1084,61392068731 ",.01)
 ;;61392068731
 ;;9002226.02101,"1084,61392068731 ",.02)
 ;;61392068731
 ;;9002226.02101,"1084,61392068739 ",.01)
 ;;61392068739
 ;;9002226.02101,"1084,61392068739 ",.02)
 ;;61392068739
 ;;9002226.02101,"1084,61392068760 ",.01)
 ;;61392068760
 ;;9002226.02101,"1084,61392068760 ",.02)
 ;;61392068760
 ;;9002226.02101,"1084,61392068790 ",.01)
 ;;61392068790
 ;;9002226.02101,"1084,61392068790 ",.02)
 ;;61392068790
 ;;9002226.02101,"1084,61392070925 ",.01)
 ;;61392070925
 ;;9002226.02101,"1084,61392070925 ",.02)
 ;;61392070925
 ;;9002226.02101,"1084,61392070930 ",.01)
 ;;61392070930
 ;;9002226.02101,"1084,61392070930 ",.02)
 ;;61392070930
 ;;9002226.02101,"1084,61392070931 ",.01)
 ;;61392070931
 ;;9002226.02101,"1084,61392070931 ",.02)
 ;;61392070931
 ;;9002226.02101,"1084,61392070939 ",.01)
 ;;61392070939
 ;;9002226.02101,"1084,61392070939 ",.02)
 ;;61392070939
 ;;9002226.02101,"1084,61392070960 ",.01)
 ;;61392070960
 ;;9002226.02101,"1084,61392070960 ",.02)
 ;;61392070960
 ;;9002226.02101,"1084,61392070965 ",.01)
 ;;61392070965
 ;;9002226.02101,"1084,61392070965 ",.02)
 ;;61392070965
 ;;9002226.02101,"1084,61392070990 ",.01)
 ;;61392070990
 ;;9002226.02101,"1084,61392070990 ",.02)
 ;;61392070990
 ;;9002226.02101,"1084,61392070995 ",.01)
 ;;61392070995
 ;;9002226.02101,"1084,61392070995 ",.02)
 ;;61392070995
 ;;9002226.02101,"1084,61392072425 ",.01)
 ;;61392072425
 ;;9002226.02101,"1084,61392072425 ",.02)
 ;;61392072425
 ;;9002226.02101,"1084,61392072430 ",.01)
 ;;61392072430
 ;;9002226.02101,"1084,61392072430 ",.02)
 ;;61392072430
 ;;9002226.02101,"1084,61392072431 ",.01)
 ;;61392072431
 ;;9002226.02101,"1084,61392072431 ",.02)
 ;;61392072431
 ;;9002226.02101,"1084,61392072439 ",.01)
 ;;61392072439
 ;;9002226.02101,"1084,61392072439 ",.02)
 ;;61392072439
 ;;9002226.02101,"1084,61392072460 ",.01)
 ;;61392072460
 ;;9002226.02101,"1084,61392072460 ",.02)
 ;;61392072460
 ;;9002226.02101,"1084,61392072465 ",.01)
 ;;61392072465
 ;;9002226.02101,"1084,61392072465 ",.02)
 ;;61392072465
 ;;9002226.02101,"1084,61392072490 ",.01)
 ;;61392072490
 ;;9002226.02101,"1084,61392072490 ",.02)
 ;;61392072490
 ;;9002226.02101,"1084,61392072495 ",.01)
 ;;61392072495
 ;;9002226.02101,"1084,61392072495 ",.02)
 ;;61392072495
 ;;9002226.02101,"1084,61392083425 ",.01)
 ;;61392083425
 ;;9002226.02101,"1084,61392083425 ",.02)
 ;;61392083425
 ;;9002226.02101,"1084,61392083430 ",.01)
 ;;61392083430
 ;;9002226.02101,"1084,61392083430 ",.02)
 ;;61392083430
 ;;9002226.02101,"1084,61392083431 ",.01)
 ;;61392083431
 ;;9002226.02101,"1084,61392083431 ",.02)
 ;;61392083431
 ;;9002226.02101,"1084,61392083439 ",.01)
 ;;61392083439
 ;;9002226.02101,"1084,61392083439 ",.02)
 ;;61392083439
 ;;9002226.02101,"1084,61392083460 ",.01)
 ;;61392083460
 ;;9002226.02101,"1084,61392083460 ",.02)
 ;;61392083460
 ;;9002226.02101,"1084,61392083465 ",.01)
 ;;61392083465
 ;;9002226.02101,"1084,61392083465 ",.02)
 ;;61392083465
 ;;9002226.02101,"1084,61392083490 ",.01)
 ;;61392083490
 ;;9002226.02101,"1084,61392083490 ",.02)
 ;;61392083490
 ;;9002226.02101,"1084,61392083495 ",.01)
 ;;61392083495
 ;;9002226.02101,"1084,61392083495 ",.02)
 ;;61392083495
 ;;9002226.02101,"1084,61442011501 ",.01)
 ;;61442011501
 ;;9002226.02101,"1084,61442011501 ",.02)
 ;;61442011501
 ;;9002226.02101,"1084,61442011505 ",.01)
 ;;61442011505
 ;;9002226.02101,"1084,61442011505 ",.02)
 ;;61442011505
 ;;9002226.02101,"1084,61442011510 ",.01)
 ;;61442011510
 ;;9002226.02101,"1084,61442011510 ",.02)
 ;;61442011510