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

BGPM5AUL.m

Go to the documentation of this file.
  1. BGPM5AUL ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00247006898 ",.01)
  1. ;;00247006898
  1. ;;9002226.02101,"1033,00247006898 ",.02)
  1. ;;00247006898
  1. ;;9002226.02101,"1033,00247006902 ",.01)
  1. ;;00247006902
  1. ;;9002226.02101,"1033,00247006902 ",.02)
  1. ;;00247006902
  1. ;;9002226.02101,"1033,00247009600 ",.01)
  1. ;;00247009600
  1. ;;9002226.02101,"1033,00247009600 ",.02)
  1. ;;00247009600
  1. ;;9002226.02101,"1033,00247009605 ",.01)
  1. ;;00247009605
  1. ;;9002226.02101,"1033,00247009605 ",.02)
  1. ;;00247009605
  1. ;;9002226.02101,"1033,00247009620 ",.01)
  1. ;;00247009620
  1. ;;9002226.02101,"1033,00247009620 ",.02)
  1. ;;00247009620
  1. ;;9002226.02101,"1033,00247009623 ",.01)
  1. ;;00247009623
  1. ;;9002226.02101,"1033,00247009623 ",.02)
  1. ;;00247009623
  1. ;;9002226.02101,"1033,00247009630 ",.01)
  1. ;;00247009630
  1. ;;9002226.02101,"1033,00247009630 ",.02)
  1. ;;00247009630
  1. ;;9002226.02101,"1033,00247009633 ",.01)
  1. ;;00247009633
  1. ;;9002226.02101,"1033,00247009633 ",.02)
  1. ;;00247009633
  1. ;;9002226.02101,"1033,00247009638 ",.01)
  1. ;;00247009638
  1. ;;9002226.02101,"1033,00247009638 ",.02)
  1. ;;00247009638
  1. ;;9002226.02101,"1033,00247009649 ",.01)
  1. ;;00247009649
  1. ;;9002226.02101,"1033,00247009649 ",.02)
  1. ;;00247009649
  1. ;;9002226.02101,"1033,00247009650 ",.01)
  1. ;;00247009650
  1. ;;9002226.02101,"1033,00247009650 ",.02)
  1. ;;00247009650
  1. ;;9002226.02101,"1033,00247009652 ",.01)
  1. ;;00247009652
  1. ;;9002226.02101,"1033,00247009652 ",.02)
  1. ;;00247009652
  1. ;;9002226.02101,"1033,00247009659 ",.01)
  1. ;;00247009659
  1. ;;9002226.02101,"1033,00247009659 ",.02)
  1. ;;00247009659
  1. ;;9002226.02101,"1033,00247009660 ",.01)
  1. ;;00247009660
  1. ;;9002226.02101,"1033,00247009660 ",.02)
  1. ;;00247009660
  1. ;;9002226.02101,"1033,00247009677 ",.01)
  1. ;;00247009677
  1. ;;9002226.02101,"1033,00247009677 ",.02)
  1. ;;00247009677
  1. ;;9002226.02101,"1033,00247009678 ",.01)
  1. ;;00247009678
  1. ;;9002226.02101,"1033,00247009678 ",.02)
  1. ;;00247009678
  1. ;;9002226.02101,"1033,00247009679 ",.01)
  1. ;;00247009679
  1. ;;9002226.02101,"1033,00247009679 ",.02)
  1. ;;00247009679
  1. ;;9002226.02101,"1033,00247009690 ",.01)
  1. ;;00247009690
  1. ;;9002226.02101,"1033,00247009690 ",.02)
  1. ;;00247009690
  1. ;;9002226.02101,"1033,00247009695 ",.01)
  1. ;;00247009695
  1. ;;9002226.02101,"1033,00247009695 ",.02)
  1. ;;00247009695
  1. ;;9002226.02101,"1033,00247010404 ",.01)
  1. ;;00247010404
  1. ;;9002226.02101,"1033,00247010404 ",.02)
  1. ;;00247010404
  1. ;;9002226.02101,"1033,00247010600 ",.01)
  1. ;;00247010600
  1. ;;9002226.02101,"1033,00247010600 ",.02)
  1. ;;00247010600
  1. ;;9002226.02101,"1033,00247010679 ",.01)
  1. ;;00247010679
  1. ;;9002226.02101,"1033,00247010679 ",.02)
  1. ;;00247010679
  1. ;;9002226.02101,"1033,00247011602 ",.01)
  1. ;;00247011602
  1. ;;9002226.02101,"1033,00247011602 ",.02)
  1. ;;00247011602
  1. ;;9002226.02101,"1033,00247011603 ",.01)
  1. ;;00247011603
  1. ;;9002226.02101,"1033,00247011603 ",.02)
  1. ;;00247011603
  1. ;;9002226.02101,"1033,00247011604 ",.01)
  1. ;;00247011604
  1. ;;9002226.02101,"1033,00247011604 ",.02)
  1. ;;00247011604
  1. ;;9002226.02101,"1033,00247011605 ",.01)
  1. ;;00247011605
  1. ;;9002226.02101,"1033,00247011605 ",.02)
  1. ;;00247011605
  1. ;;9002226.02101,"1033,00247011606 ",.01)
  1. ;;00247011606
  1. ;;9002226.02101,"1033,00247011606 ",.02)
  1. ;;00247011606
  1. ;;9002226.02101,"1033,00247011609 ",.01)
  1. ;;00247011609
  1. ;;9002226.02101,"1033,00247011609 ",.02)
  1. ;;00247011609
  1. ;;9002226.02101,"1033,00247011615 ",.01)
  1. ;;00247011615
  1. ;;9002226.02101,"1033,00247011615 ",.02)
  1. ;;00247011615
  1. ;;9002226.02101,"1033,00247011620 ",.01)
  1. ;;00247011620
  1. ;;9002226.02101,"1033,00247011620 ",.02)
  1. ;;00247011620
  1. ;;9002226.02101,"1033,00247011621 ",.01)
  1. ;;00247011621
  1. ;;9002226.02101,"1033,00247011621 ",.02)
  1. ;;00247011621
  1. ;;9002226.02101,"1033,00247011628 ",.01)
  1. ;;00247011628
  1. ;;9002226.02101,"1033,00247011628 ",.02)
  1. ;;00247011628
  1. ;;9002226.02101,"1033,00247011630 ",.01)
  1. ;;00247011630
  1. ;;9002226.02101,"1033,00247011630 ",.02)
  1. ;;00247011630
  1. ;;9002226.02101,"1033,00247011640 ",.01)
  1. ;;00247011640
  1. ;;9002226.02101,"1033,00247011640 ",.02)
  1. ;;00247011640
  1. ;;9002226.02101,"1033,00247011642 ",.01)
  1. ;;00247011642
  1. ;;9002226.02101,"1033,00247011642 ",.02)
  1. ;;00247011642
  1. ;;9002226.02101,"1033,00247012903 ",.01)
  1. ;;00247012903
  1. ;;9002226.02101,"1033,00247012903 ",.02)
  1. ;;00247012903
  1. ;;9002226.02101,"1033,00247012904 ",.01)
  1. ;;00247012904
  1. ;;9002226.02101,"1033,00247012904 ",.02)
  1. ;;00247012904
  1. ;;9002226.02101,"1033,00247012908 ",.01)
  1. ;;00247012908
  1. ;;9002226.02101,"1033,00247012908 ",.02)
  1. ;;00247012908
  1. ;;9002226.02101,"1033,00247012912 ",.01)
  1. ;;00247012912
  1. ;;9002226.02101,"1033,00247012912 ",.02)
  1. ;;00247012912
  1. ;;9002226.02101,"1033,00247015603 ",.01)
  1. ;;00247015603
  1. ;;9002226.02101,"1033,00247015603 ",.02)
  1. ;;00247015603
  1. ;;9002226.02101,"1033,00247015604 ",.01)
  1. ;;00247015604
  1. ;;9002226.02101,"1033,00247015604 ",.02)
  1. ;;00247015604
  1. ;;9002226.02101,"1033,00247015612 ",.01)
  1. ;;00247015612
  1. ;;9002226.02101,"1033,00247015612 ",.02)
  1. ;;00247015612
  1. ;;9002226.02101,"1033,00247015615 ",.01)
  1. ;;00247015615
  1. ;;9002226.02101,"1033,00247015615 ",.02)
  1. ;;00247015615
  1. ;;9002226.02101,"1033,00247015630 ",.01)
  1. ;;00247015630
  1. ;;9002226.02101,"1033,00247015630 ",.02)
  1. ;;00247015630
  1. ;;9002226.02101,"1033,00247015703 ",.01)
  1. ;;00247015703
  1. ;;9002226.02101,"1033,00247015703 ",.02)
  1. ;;00247015703
  1. ;;9002226.02101,"1033,00247015704 ",.01)
  1. ;;00247015704
  1. ;;9002226.02101,"1033,00247015704 ",.02)
  1. ;;00247015704
  1. ;;9002226.02101,"1033,00247015708 ",.01)
  1. ;;00247015708
  1. ;;9002226.02101,"1033,00247015708 ",.02)
  1. ;;00247015708
  1. ;;9002226.02101,"1033,00247015718 ",.01)
  1. ;;00247015718
  1. ;;9002226.02101,"1033,00247015718 ",.02)
  1. ;;00247015718
  1. ;;9002226.02101,"1033,00247016707 ",.01)
  1. ;;00247016707
  1. ;;9002226.02101,"1033,00247016707 ",.02)
  1. ;;00247016707
  1. ;;9002226.02101,"1033,00247016779 ",.01)
  1. ;;00247016779
  1. ;;9002226.02101,"1033,00247016779 ",.02)
  1. ;;00247016779
  1. ;;9002226.02101,"1033,00247017206 ",.01)
  1. ;;00247017206
  1. ;;9002226.02101,"1033,00247017206 ",.02)
  1. ;;00247017206
  1. ;;9002226.02101,"1033,00247017220 ",.01)
  1. ;;00247017220
  1. ;;9002226.02101,"1033,00247017220 ",.02)
  1. ;;00247017220
  1. ;;9002226.02101,"1033,00247019603 ",.01)
  1. ;;00247019603
  1. ;;9002226.02101,"1033,00247019603 ",.02)
  1. ;;00247019603
  1. ;;9002226.02101,"1033,00247019604 ",.01)
  1. ;;00247019604
  1. ;;9002226.02101,"1033,00247019604 ",.02)
  1. ;;00247019604
  1. ;;9002226.02101,"1033,00247019707 ",.01)
  1. ;;00247019707
  1. ;;9002226.02101,"1033,00247019707 ",.02)
  1. ;;00247019707
  1. ;;9002226.02101,"1033,00247039300 ",.01)
  1. ;;00247039300
  1. ;;9002226.02101,"1033,00247039300 ",.02)
  1. ;;00247039300
  1. ;;9002226.02101,"1033,00247039379 ",.01)
  1. ;;00247039379
  1. ;;9002226.02101,"1033,00247039379 ",.02)
  1. ;;00247039379
  1. ;;9002226.02101,"1033,00247039500 ",.01)
  1. ;;00247039500
  1. ;;9002226.02101,"1033,00247039500 ",.02)
  1. ;;00247039500
  1. ;;9002226.02101,"1033,00247039560 ",.01)
  1. ;;00247039560
  1. ;;9002226.02101,"1033,00247039560 ",.02)
  1. ;;00247039560
  1. ;;9002226.02101,"1033,00247039577 ",.01)
  1. ;;00247039577
  1. ;;9002226.02101,"1033,00247039577 ",.02)
  1. ;;00247039577
  1. ;;9002226.02101,"1033,00247039579 ",.01)
  1. ;;00247039579
  1. ;;9002226.02101,"1033,00247039579 ",.02)
  1. ;;00247039579
  1. ;;9002226.02101,"1033,00247039590 ",.01)
  1. ;;00247039590
  1. ;;9002226.02101,"1033,00247039590 ",.02)
  1. ;;00247039590
  1. ;;9002226.02101,"1033,00247039600 ",.01)
  1. ;;00247039600
  1. ;;9002226.02101,"1033,00247039600 ",.02)
  1. ;;00247039600
  1. ;;9002226.02101,"1033,00247039605 ",.01)
  1. ;;00247039605
  1. ;;9002226.02101,"1033,00247039605 ",.02)
  1. ;;00247039605
  1. ;;9002226.02101,"1033,00247039610 ",.01)
  1. ;;00247039610
  1. ;;9002226.02101,"1033,00247039610 ",.02)
  1. ;;00247039610
  1. ;;9002226.02101,"1033,00247039625 ",.01)
  1. ;;00247039625
  1. ;;9002226.02101,"1033,00247039625 ",.02)
  1. ;;00247039625
  1. ;;9002226.02101,"1033,00247039660 ",.01)
  1. ;;00247039660
  1. ;;9002226.02101,"1033,00247039660 ",.02)
  1. ;;00247039660
  1. ;;9002226.02101,"1033,00247039677 ",.01)
  1. ;;00247039677
  1. ;;9002226.02101,"1033,00247039677 ",.02)
  1. ;;00247039677
  1. ;;9002226.02101,"1033,00247039679 ",.01)
  1. ;;00247039679
  1. ;;9002226.02101,"1033,00247039679 ",.02)
  1. ;;00247039679
  1. ;;9002226.02101,"1033,00247039690 ",.01)
  1. ;;00247039690
  1. ;;9002226.02101,"1033,00247039690 ",.02)
  1. ;;00247039690
  1. ;;9002226.02101,"1033,00247039695 ",.01)
  1. ;;00247039695
  1. ;;9002226.02101,"1033,00247039695 ",.02)
  1. ;;00247039695
  1. ;;9002226.02101,"1033,00247045802 ",.01)
  1. ;;00247045802
  1. ;;9002226.02101,"1033,00247045802 ",.02)
  1. ;;00247045802
  1. ;;9002226.02101,"1033,00247045804 ",.01)
  1. ;;00247045804
  1. ;;9002226.02101,"1033,00247045804 ",.02)
  1. ;;00247045804
  1. ;;9002226.02101,"1033,00247045814 ",.01)
  1. ;;00247045814
  1. ;;9002226.02101,"1033,00247045814 ",.02)
  1. ;;00247045814
  1. ;;9002226.02101,"1033,00247056320 ",.01)
  1. ;;00247056320
  1. ;;9002226.02101,"1033,00247056320 ",.02)
  1. ;;00247056320
  1. ;;9002226.02101,"1033,00247062630 ",.01)
  1. ;;00247062630
  1. ;;9002226.02101,"1033,00247062630 ",.02)
  1. ;;00247062630
  1. ;;9002226.02101,"1033,00247062660 ",.01)
  1. ;;00247062660
  1. ;;9002226.02101,"1033,00247062660 ",.02)
  1. ;;00247062660
  1. ;;9002226.02101,"1033,00247062720 ",.01)
  1. ;;00247062720
  1. ;;9002226.02101,"1033,00247062720 ",.02)
  1. ;;00247062720
  1. ;;9002226.02101,"1033,00247062730 ",.01)
  1. ;;00247062730
  1. ;;9002226.02101,"1033,00247062730 ",.02)
  1. ;;00247062730
  1. ;;9002226.02101,"1033,00247062750 ",.01)
  1. ;;00247062750
  1. ;;9002226.02101,"1033,00247062750 ",.02)
  1. ;;00247062750
  1. ;;9002226.02101,"1033,00247062760 ",.01)
  1. ;;00247062760
  1. ;;9002226.02101,"1033,00247062760 ",.02)
  1. ;;00247062760
  1. ;;9002226.02101,"1033,00247062800 ",.01)
  1. ;;00247062800
  1. ;;9002226.02101,"1033,00247062800 ",.02)
  1. ;;00247062800
  1. ;;9002226.02101,"1033,00247062850 ",.01)
  1. ;;00247062850
  1. ;;9002226.02101,"1033,00247062850 ",.02)
  1. ;;00247062850
  1. ;;9002226.02101,"1033,00247062875 ",.01)
  1. ;;00247062875
  1. ;;9002226.02101,"1033,00247062875 ",.02)
  1. ;;00247062875
  1. ;;9002226.02101,"1033,00247062900 ",.01)
  1. ;;00247062900
  1. ;;9002226.02101,"1033,00247062900 ",.02)
  1. ;;00247062900
  1. ;;9002226.02101,"1033,00247062950 ",.01)
  1. ;;00247062950
  1. ;;9002226.02101,"1033,00247062950 ",.02)
  1. ;;00247062950
  1. ;;9002226.02101,"1033,00247063900 ",.01)
  1. ;;00247063900
  1. ;;9002226.02101,"1033,00247063900 ",.02)
  1. ;;00247063900
  1. ;;9002226.02101,"1033,00247063902 ",.01)
  1. ;;00247063902
  1. ;;9002226.02101,"1033,00247063902 ",.02)
  1. ;;00247063902
  1. ;;9002226.02101,"1033,00247063903 ",.01)
  1. ;;00247063903
  1. ;;9002226.02101,"1033,00247063903 ",.02)
  1. ;;00247063903
  1. ;;9002226.02101,"1033,00247063904 ",.01)
  1. ;;00247063904
  1. ;;9002226.02101,"1033,00247063904 ",.02)
  1. ;;00247063904
  1. ;;9002226.02101,"1033,00247063906 ",.01)
  1. ;;00247063906
  1. ;;9002226.02101,"1033,00247063906 ",.02)
  1. ;;00247063906
  1. ;;9002226.02101,"1033,00247063908 ",.01)
  1. ;;00247063908
  1. ;;9002226.02101,"1033,00247063908 ",.02)
  1. ;;00247063908
  1. ;;9002226.02101,"1033,00247063912 ",.01)
  1. ;;00247063912
  1. ;;9002226.02101,"1033,00247063912 ",.02)
  1. ;;00247063912
  1. ;;9002226.02101,"1033,00247063916 ",.01)
  1. ;;00247063916
  1. ;;9002226.02101,"1033,00247063916 ",.02)
  1. ;;00247063916
  1. ;;9002226.02101,"1033,00247063921 ",.01)
  1. ;;00247063921
  1. ;;9002226.02101,"1033,00247063921 ",.02)
  1. ;;00247063921
  1. ;;9002226.02101,"1033,00247063924 ",.01)
  1. ;;00247063924
  1. ;;9002226.02101,"1033,00247063924 ",.02)
  1. ;;00247063924
  1. ;;9002226.02101,"1033,00247063928 ",.01)
  1. ;;00247063928
  1. ;;9002226.02101,"1033,00247063928 ",.02)
  1. ;;00247063928
  1. ;;9002226.02101,"1033,00247063942 ",.01)
  1. ;;00247063942
  1. ;;9002226.02101,"1033,00247063942 ",.02)
  1. ;;00247063942
  1. ;;9002226.02101,"1033,00247063950 ",.01)
  1. ;;00247063950
  1. ;;9002226.02101,"1033,00247063950 ",.02)
  1. ;;00247063950
  1. ;;9002226.02101,"1033,00247063956 ",.01)
  1. ;;00247063956
  1. ;;9002226.02101,"1033,00247063956 ",.02)
  1. ;;00247063956
  1. ;;9002226.02101,"1033,00247063960 ",.01)
  1. ;;00247063960