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