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

BGP82I51.m

Go to the documentation of this file.
BGP82I51 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1733,60760-0130-90 ",.01)
 ;;60760-0130-90
 ;;9002226.02101,"1733,60760-0130-90 ",.02)
 ;;60760-0130-90
 ;;9002226.02101,"1733,60760-0224-30 ",.01)
 ;;60760-0224-30
 ;;9002226.02101,"1733,60760-0224-30 ",.02)
 ;;60760-0224-30
 ;;9002226.02101,"1733,60760-0225-30 ",.01)
 ;;60760-0225-30
 ;;9002226.02101,"1733,60760-0225-30 ",.02)
 ;;60760-0225-30
 ;;9002226.02101,"1733,60760-0226-30 ",.01)
 ;;60760-0226-30
 ;;9002226.02101,"1733,60760-0226-30 ",.02)
 ;;60760-0226-30
 ;;9002226.02101,"1733,60760-0227-30 ",.01)
 ;;60760-0227-30
 ;;9002226.02101,"1733,60760-0227-30 ",.02)
 ;;60760-0227-30
 ;;9002226.02101,"1733,60760-0266-30 ",.01)
 ;;60760-0266-30
 ;;9002226.02101,"1733,60760-0266-30 ",.02)
 ;;60760-0266-30
 ;;9002226.02101,"1733,60760-0266-90 ",.01)
 ;;60760-0266-90
 ;;9002226.02101,"1733,60760-0266-90 ",.02)
 ;;60760-0266-90
 ;;9002226.02101,"1733,60760-0267-30 ",.01)
 ;;60760-0267-30
 ;;9002226.02101,"1733,60760-0267-30 ",.02)
 ;;60760-0267-30
 ;;9002226.02101,"1733,60760-0267-90 ",.01)
 ;;60760-0267-90
 ;;9002226.02101,"1733,60760-0267-90 ",.02)
 ;;60760-0267-90
 ;;9002226.02101,"1733,60760-0270-30 ",.01)
 ;;60760-0270-30
 ;;9002226.02101,"1733,60760-0270-30 ",.02)
 ;;60760-0270-30
 ;;9002226.02101,"1733,60760-0270-90 ",.01)
 ;;60760-0270-90
 ;;9002226.02101,"1733,60760-0270-90 ",.02)
 ;;60760-0270-90
 ;;9002226.02101,"1733,60760-0302-30 ",.01)
 ;;60760-0302-30
 ;;9002226.02101,"1733,60760-0302-30 ",.02)
 ;;60760-0302-30
 ;;9002226.02101,"1733,60760-0303-30 ",.01)
 ;;60760-0303-30
 ;;9002226.02101,"1733,60760-0303-30 ",.02)
 ;;60760-0303-30
 ;;9002226.02101,"1733,60760-0429-30 ",.01)
 ;;60760-0429-30
 ;;9002226.02101,"1733,60760-0429-30 ",.02)
 ;;60760-0429-30
 ;;9002226.02101,"1733,60760-0632-90 ",.01)
 ;;60760-0632-90
 ;;9002226.02101,"1733,60760-0632-90 ",.02)
 ;;60760-0632-90
 ;;9002226.02101,"1733,60760-0633-90 ",.01)
 ;;60760-0633-90
 ;;9002226.02101,"1733,60760-0633-90 ",.02)
 ;;60760-0633-90
 ;;9002226.02101,"1733,60760-0760-30 ",.01)
 ;;60760-0760-30
 ;;9002226.02101,"1733,60760-0760-30 ",.02)
 ;;60760-0760-30
 ;;9002226.02101,"1733,60760-0760-90 ",.01)
 ;;60760-0760-90
 ;;9002226.02101,"1733,60760-0760-90 ",.02)
 ;;60760-0760-90
 ;;9002226.02101,"1733,61570-0110-01 ",.01)
 ;;61570-0110-01
 ;;9002226.02101,"1733,61570-0110-01 ",.02)
 ;;61570-0110-01
 ;;9002226.02101,"1733,61570-0111-01 ",.01)
 ;;61570-0111-01
 ;;9002226.02101,"1733,61570-0111-01 ",.02)
 ;;61570-0111-01
 ;;9002226.02101,"1733,61570-0112-01 ",.01)
 ;;61570-0112-01
 ;;9002226.02101,"1733,61570-0112-01 ",.02)
 ;;61570-0112-01
 ;;9002226.02101,"1733,61570-0120-01 ",.01)
 ;;61570-0120-01
 ;;9002226.02101,"1733,61570-0120-01 ",.02)
 ;;61570-0120-01
 ;;9002226.02101,"1733,61894-0001-02 ",.01)
 ;;61894-0001-02
 ;;9002226.02101,"1733,61894-0001-02 ",.02)
 ;;61894-0001-02
 ;;9002226.02101,"1733,61894-0002-02 ",.01)
 ;;61894-0002-02
 ;;9002226.02101,"1733,61894-0002-02 ",.02)
 ;;61894-0002-02
 ;;9002226.02101,"1733,61894-0010-02 ",.01)
 ;;61894-0010-02
 ;;9002226.02101,"1733,61894-0010-02 ",.02)
 ;;61894-0010-02
 ;;9002226.02101,"1733,61894-0011-02 ",.01)
 ;;61894-0011-02
 ;;9002226.02101,"1733,61894-0011-02 ",.02)
 ;;61894-0011-02
 ;;9002226.02101,"1733,61894-0012-02 ",.01)
 ;;61894-0012-02
 ;;9002226.02101,"1733,61894-0012-02 ",.02)
 ;;61894-0012-02
 ;;9002226.02101,"1733,61919-0030-30 ",.01)
 ;;61919-0030-30
 ;;9002226.02101,"1733,61919-0030-30 ",.02)
 ;;61919-0030-30
 ;;9002226.02101,"1733,61919-0030-90 ",.01)
 ;;61919-0030-90
 ;;9002226.02101,"1733,61919-0030-90 ",.02)
 ;;61919-0030-90
 ;;9002226.02101,"1733,61919-0040-30 ",.01)
 ;;61919-0040-30
 ;;9002226.02101,"1733,61919-0040-30 ",.02)
 ;;61919-0040-30
 ;;9002226.02101,"1733,61919-0040-90 ",.01)
 ;;61919-0040-90
 ;;9002226.02101,"1733,61919-0040-90 ",.02)
 ;;61919-0040-90
 ;;9002226.02101,"1733,61919-0157-30 ",.01)
 ;;61919-0157-30
 ;;9002226.02101,"1733,61919-0157-30 ",.02)
 ;;61919-0157-30
 ;;9002226.02101,"1733,61919-0277-30 ",.01)
 ;;61919-0277-30
 ;;9002226.02101,"1733,61919-0277-30 ",.02)
 ;;61919-0277-30
 ;;9002226.02101,"1733,61919-0280-30 ",.01)
 ;;61919-0280-30
 ;;9002226.02101,"1733,61919-0280-30 ",.02)
 ;;61919-0280-30
 ;;9002226.02101,"1733,61919-0280-60 ",.01)
 ;;61919-0280-60
 ;;9002226.02101,"1733,61919-0280-60 ",.02)
 ;;61919-0280-60
 ;;9002226.02101,"1733,61919-0306-30 ",.01)
 ;;61919-0306-30
 ;;9002226.02101,"1733,61919-0306-30 ",.02)
 ;;61919-0306-30
 ;;9002226.02101,"1733,61919-0306-60 ",.01)
 ;;61919-0306-60
 ;;9002226.02101,"1733,61919-0306-60 ",.02)
 ;;61919-0306-60
 ;;9002226.02101,"1733,61919-0306-90 ",.01)
 ;;61919-0306-90
 ;;9002226.02101,"1733,61919-0306-90 ",.02)
 ;;61919-0306-90
 ;;9002226.02101,"1733,61919-0307-30 ",.01)
 ;;61919-0307-30
 ;;9002226.02101,"1733,61919-0307-30 ",.02)
 ;;61919-0307-30
 ;;9002226.02101,"1733,61919-0307-90 ",.01)
 ;;61919-0307-90
 ;;9002226.02101,"1733,61919-0307-90 ",.02)
 ;;61919-0307-90
 ;;9002226.02101,"1733,61919-0308-90 ",.01)
 ;;61919-0308-90
 ;;9002226.02101,"1733,61919-0308-90 ",.02)
 ;;61919-0308-90
 ;;9002226.02101,"1733,61919-0309-30 ",.01)
 ;;61919-0309-30
 ;;9002226.02101,"1733,61919-0309-30 ",.02)
 ;;61919-0309-30
 ;;9002226.02101,"1733,61919-0309-71 ",.01)
 ;;61919-0309-71
 ;;9002226.02101,"1733,61919-0309-71 ",.02)
 ;;61919-0309-71
 ;;9002226.02101,"1733,61919-0309-90 ",.01)
 ;;61919-0309-90
 ;;9002226.02101,"1733,61919-0309-90 ",.02)
 ;;61919-0309-90
 ;;9002226.02101,"1733,61919-0332-30 ",.01)
 ;;61919-0332-30
 ;;9002226.02101,"1733,61919-0332-30 ",.02)
 ;;61919-0332-30
 ;;9002226.02101,"1733,61919-0356-90 ",.01)
 ;;61919-0356-90
 ;;9002226.02101,"1733,61919-0356-90 ",.02)
 ;;61919-0356-90
 ;;9002226.02101,"1733,61919-0372-30 ",.01)
 ;;61919-0372-30
 ;;9002226.02101,"1733,61919-0372-30 ",.02)
 ;;61919-0372-30
 ;;9002226.02101,"1733,61919-0461-30 ",.01)
 ;;61919-0461-30
 ;;9002226.02101,"1733,61919-0461-30 ",.02)
 ;;61919-0461-30
 ;;9002226.02101,"1733,61919-0634-30 ",.01)
 ;;61919-0634-30
 ;;9002226.02101,"1733,61919-0634-30 ",.02)
 ;;61919-0634-30
 ;;9002226.02101,"1733,61919-0634-90 ",.01)
 ;;61919-0634-90
 ;;9002226.02101,"1733,61919-0634-90 ",.02)
 ;;61919-0634-90
 ;;9002226.02101,"1733,61919-0760-30 ",.01)
 ;;61919-0760-30
 ;;9002226.02101,"1733,61919-0760-30 ",.02)
 ;;61919-0760-30
 ;;9002226.02101,"1733,61919-0785-90 ",.01)
 ;;61919-0785-90
 ;;9002226.02101,"1733,61919-0785-90 ",.02)
 ;;61919-0785-90
 ;;9002226.02101,"1733,61919-0790-30 ",.01)
 ;;61919-0790-30
 ;;9002226.02101,"1733,61919-0790-30 ",.02)
 ;;61919-0790-30
 ;;9002226.02101,"1733,61919-0833-30 ",.01)
 ;;61919-0833-30
 ;;9002226.02101,"1733,61919-0833-30 ",.02)
 ;;61919-0833-30
 ;;9002226.02101,"1733,61919-0952-30 ",.01)
 ;;61919-0952-30
 ;;9002226.02101,"1733,61919-0952-30 ",.02)
 ;;61919-0952-30
 ;;9002226.02101,"1733,61919-0954-30 ",.01)
 ;;61919-0954-30
 ;;9002226.02101,"1733,61919-0954-30 ",.02)
 ;;61919-0954-30
 ;;9002226.02101,"1733,61919-0954-90 ",.01)
 ;;61919-0954-90
 ;;9002226.02101,"1733,61919-0954-90 ",.02)
 ;;61919-0954-90
 ;;9002226.02101,"1733,61919-0970-90 ",.01)
 ;;61919-0970-90
 ;;9002226.02101,"1733,61919-0970-90 ",.02)
 ;;61919-0970-90
 ;;9002226.02101,"1733,61919-0972-30 ",.01)
 ;;61919-0972-30
 ;;9002226.02101,"1733,61919-0972-30 ",.02)
 ;;61919-0972-30
 ;;9002226.02101,"1733,62332-0027-30 ",.01)
 ;;62332-0027-30
 ;;9002226.02101,"1733,62332-0027-30 ",.02)
 ;;62332-0027-30
 ;;9002226.02101,"1733,62332-0027-90 ",.01)
 ;;62332-0027-90
 ;;9002226.02101,"1733,62332-0027-90 ",.02)
 ;;62332-0027-90
 ;;9002226.02101,"1733,62332-0027-91 ",.01)
 ;;62332-0027-91
 ;;9002226.02101,"1733,62332-0027-91 ",.02)
 ;;62332-0027-91
 ;;9002226.02101,"1733,62332-0028-30 ",.01)
 ;;62332-0028-30
 ;;9002226.02101,"1733,62332-0028-30 ",.02)
 ;;62332-0028-30
 ;;9002226.02101,"1733,62332-0028-90 ",.01)
 ;;62332-0028-90
 ;;9002226.02101,"1733,62332-0028-90 ",.02)
 ;;62332-0028-90
 ;;9002226.02101,"1733,62332-0028-91 ",.01)
 ;;62332-0028-91
 ;;9002226.02101,"1733,62332-0028-91 ",.02)
 ;;62332-0028-91
 ;;9002226.02101,"1733,62332-0029-30 ",.01)
 ;;62332-0029-30
 ;;9002226.02101,"1733,62332-0029-30 ",.02)
 ;;62332-0029-30
 ;;9002226.02101,"1733,62332-0029-90 ",.01)
 ;;62332-0029-90
 ;;9002226.02101,"1733,62332-0029-90 ",.02)
 ;;62332-0029-90
 ;;9002226.02101,"1733,62332-0029-91 ",.01)
 ;;62332-0029-91
 ;;9002226.02101,"1733,62332-0029-91 ",.02)
 ;;62332-0029-91
 ;;9002226.02101,"1733,62332-0041-30 ",.01)
 ;;62332-0041-30
 ;;9002226.02101,"1733,62332-0041-30 ",.02)
 ;;62332-0041-30
 ;;9002226.02101,"1733,62332-0041-90 ",.01)
 ;;62332-0041-90
 ;;9002226.02101,"1733,62332-0041-90 ",.02)
 ;;62332-0041-90
 ;;9002226.02101,"1733,62332-0042-30 ",.01)
 ;;62332-0042-30
 ;;9002226.02101,"1733,62332-0042-30 ",.02)
 ;;62332-0042-30
 ;;9002226.02101,"1733,62332-0042-71 ",.01)
 ;;62332-0042-71
 ;;9002226.02101,"1733,62332-0042-71 ",.02)
 ;;62332-0042-71
 ;;9002226.02101,"1733,62332-0042-90 ",.01)
 ;;62332-0042-90
 ;;9002226.02101,"1733,62332-0042-90 ",.02)
 ;;62332-0042-90
 ;;9002226.02101,"1733,62332-0043-30 ",.01)
 ;;62332-0043-30
 ;;9002226.02101,"1733,62332-0043-30 ",.02)
 ;;62332-0043-30
 ;;9002226.02101,"1733,62332-0043-71 ",.01)
 ;;62332-0043-71
 ;;9002226.02101,"1733,62332-0043-71 ",.02)
 ;;62332-0043-71
 ;;9002226.02101,"1733,62332-0043-90 ",.01)
 ;;62332-0043-90
 ;;9002226.02101,"1733,62332-0043-90 ",.02)
 ;;62332-0043-90
 ;;9002226.02101,"1733,62332-0044-90 ",.01)
 ;;62332-0044-90
 ;;9002226.02101,"1733,62332-0044-90 ",.02)
 ;;62332-0044-90
 ;;9002226.02101,"1733,62332-0045-71 ",.01)
 ;;62332-0045-71
 ;;9002226.02101,"1733,62332-0045-71 ",.02)
 ;;62332-0045-71
 ;;9002226.02101,"1733,62332-0045-90 ",.01)
 ;;62332-0045-90
 ;;9002226.02101,"1733,62332-0045-90 ",.02)
 ;;62332-0045-90
 ;;9002226.02101,"1733,62332-0046-71 ",.01)
 ;;62332-0046-71
 ;;9002226.02101,"1733,62332-0046-71 ",.02)
 ;;62332-0046-71
 ;;9002226.02101,"1733,62332-0046-90 ",.01)
 ;;62332-0046-90
 ;;9002226.02101,"1733,62332-0046-90 ",.02)
 ;;62332-0046-90
 ;;9002226.02101,"1733,62332-0047-71 ",.01)
 ;;62332-0047-71
 ;;9002226.02101,"1733,62332-0047-71 ",.02)
 ;;62332-0047-71
 ;;9002226.02101,"1733,62332-0047-90 ",.01)
 ;;62332-0047-90
 ;;9002226.02101,"1733,62332-0047-90 ",.02)
 ;;62332-0047-90
 ;;9002226.02101,"1733,62332-0048-30 ",.01)
 ;;62332-0048-30
 ;;9002226.02101,"1733,62332-0048-30 ",.02)
 ;;62332-0048-30
 ;;9002226.02101,"1733,62332-0048-90 ",.01)
 ;;62332-0048-90
 ;;9002226.02101,"1733,62332-0048-90 ",.02)
 ;;62332-0048-90
 ;;9002226.02101,"1733,62332-0048-91 ",.01)
 ;;62332-0048-91
 ;;9002226.02101,"1733,62332-0048-91 ",.02)
 ;;62332-0048-91
 ;;9002226.02101,"1733,62332-0049-30 ",.01)
 ;;62332-0049-30
 ;;9002226.02101,"1733,62332-0049-30 ",.02)
 ;;62332-0049-30
 ;;9002226.02101,"1733,62332-0049-90 ",.01)
 ;;62332-0049-90
 ;;9002226.02101,"1733,62332-0049-90 ",.02)
 ;;62332-0049-90
 ;;9002226.02101,"1733,62332-0049-91 ",.01)
 ;;62332-0049-91
 ;;9002226.02101,"1733,62332-0049-91 ",.02)
 ;;62332-0049-91
 ;;9002226.02101,"1733,62332-0050-30 ",.01)
 ;;62332-0050-30
 ;;9002226.02101,"1733,62332-0050-30 ",.02)
 ;;62332-0050-30
 ;;9002226.02101,"1733,62332-0050-90 ",.01)
 ;;62332-0050-90
 ;;9002226.02101,"1733,62332-0050-90 ",.02)
 ;;62332-0050-90
 ;;9002226.02101,"1733,62332-0050-91 ",.01)
 ;;62332-0050-91
 ;;9002226.02101,"1733,62332-0050-91 ",.02)
 ;;62332-0050-91
 ;;9002226.02101,"1733,62332-0051-30 ",.01)
 ;;62332-0051-30
 ;;9002226.02101,"1733,62332-0051-30 ",.02)
 ;;62332-0051-30
 ;;9002226.02101,"1733,62332-0051-90 ",.01)
 ;;62332-0051-90
 ;;9002226.02101,"1733,62332-0051-90 ",.02)
 ;;62332-0051-90
 ;;9002226.02101,"1733,62332-0052-30 ",.01)
 ;;62332-0052-30