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

BGP53J53.m

Go to the documentation of this file.
BGP53J53 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"798,65162-0052-10 ",.01)
 ;;65162-0052-10
 ;;9002226.02101,"798,65162-0052-10 ",.02)
 ;;65162-0052-10
 ;;9002226.02101,"798,65162-0052-50 ",.01)
 ;;65162-0052-50
 ;;9002226.02101,"798,65162-0052-50 ",.02)
 ;;65162-0052-50
 ;;9002226.02101,"798,65162-0053-03 ",.01)
 ;;65162-0053-03
 ;;9002226.02101,"798,65162-0053-03 ",.02)
 ;;65162-0053-03
 ;;9002226.02101,"798,65162-0053-10 ",.01)
 ;;65162-0053-10
 ;;9002226.02101,"798,65162-0053-10 ",.02)
 ;;65162-0053-10
 ;;9002226.02101,"798,65162-0053-50 ",.01)
 ;;65162-0053-50
 ;;9002226.02101,"798,65162-0053-50 ",.02)
 ;;65162-0053-50
 ;;9002226.02101,"798,65162-0054-03 ",.01)
 ;;65162-0054-03
 ;;9002226.02101,"798,65162-0054-03 ",.02)
 ;;65162-0054-03
 ;;9002226.02101,"798,65162-0054-10 ",.01)
 ;;65162-0054-10
 ;;9002226.02101,"798,65162-0054-10 ",.02)
 ;;65162-0054-10
 ;;9002226.02101,"798,65162-0054-50 ",.01)
 ;;65162-0054-50
 ;;9002226.02101,"798,65162-0054-50 ",.02)
 ;;65162-0054-50
 ;;9002226.02101,"798,65162-0300-09 ",.01)
 ;;65162-0300-09
 ;;9002226.02101,"798,65162-0300-09 ",.02)
 ;;65162-0300-09
 ;;9002226.02101,"798,65162-0302-09 ",.01)
 ;;65162-0302-09
 ;;9002226.02101,"798,65162-0302-09 ",.02)
 ;;65162-0302-09
 ;;9002226.02101,"798,65162-0305-09 ",.01)
 ;;65162-0305-09
 ;;9002226.02101,"798,65162-0305-09 ",.02)
 ;;65162-0305-09
 ;;9002226.02101,"798,65162-0306-09 ",.01)
 ;;65162-0306-09
 ;;9002226.02101,"798,65162-0306-09 ",.02)
 ;;65162-0306-09
 ;;9002226.02101,"798,65162-0307-09 ",.01)
 ;;65162-0307-09
 ;;9002226.02101,"798,65162-0307-09 ",.02)
 ;;65162-0307-09
 ;;9002226.02101,"798,65162-0705-88 ",.01)
 ;;65162-0705-88
 ;;9002226.02101,"798,65162-0705-88 ",.02)
 ;;65162-0705-88
 ;;9002226.02101,"798,65224-0880-31 ",.01)
 ;;65224-0880-31
 ;;9002226.02101,"798,65224-0880-31 ",.02)
 ;;65224-0880-31
 ;;9002226.02101,"798,65224-0880-90 ",.01)
 ;;65224-0880-90
 ;;9002226.02101,"798,65224-0880-90 ",.02)
 ;;65224-0880-90
 ;;9002226.02101,"798,65224-0890-31 ",.01)
 ;;65224-0890-31
 ;;9002226.02101,"798,65224-0890-31 ",.02)
 ;;65224-0890-31
 ;;9002226.02101,"798,65224-0890-90 ",.01)
 ;;65224-0890-90
 ;;9002226.02101,"798,65224-0890-90 ",.02)
 ;;65224-0890-90
 ;;9002226.02101,"798,65243-0006-03 ",.01)
 ;;65243-0006-03
 ;;9002226.02101,"798,65243-0006-03 ",.02)
 ;;65243-0006-03
 ;;9002226.02101,"798,65243-0063-03 ",.01)
 ;;65243-0063-03
 ;;9002226.02101,"798,65243-0063-03 ",.02)
 ;;65243-0063-03
 ;;9002226.02101,"798,65243-0310-03 ",.01)
 ;;65243-0310-03
 ;;9002226.02101,"798,65243-0310-03 ",.02)
 ;;65243-0310-03
 ;;9002226.02101,"798,65243-0319-03 ",.01)
 ;;65243-0319-03
 ;;9002226.02101,"798,65243-0319-03 ",.02)
 ;;65243-0319-03
 ;;9002226.02101,"798,65243-0327-03 ",.01)
 ;;65243-0327-03
 ;;9002226.02101,"798,65243-0327-03 ",.02)
 ;;65243-0327-03
 ;;9002226.02101,"798,65580-0301-03 ",.01)
 ;;65580-0301-03
 ;;9002226.02101,"798,65580-0301-03 ",.02)
 ;;65580-0301-03
 ;;9002226.02101,"798,65580-0301-09 ",.01)
 ;;65580-0301-09
 ;;9002226.02101,"798,65580-0301-09 ",.02)
 ;;65580-0301-09
 ;;9002226.02101,"798,65580-0302-03 ",.01)
 ;;65580-0302-03
 ;;9002226.02101,"798,65580-0302-03 ",.02)
 ;;65580-0302-03
 ;;9002226.02101,"798,65580-0302-09 ",.01)
 ;;65580-0302-09
 ;;9002226.02101,"798,65580-0302-09 ",.02)
 ;;65580-0302-09
 ;;9002226.02101,"798,65580-0303-03 ",.01)
 ;;65580-0303-03
 ;;9002226.02101,"798,65580-0303-03 ",.02)
 ;;65580-0303-03
 ;;9002226.02101,"798,65580-0303-09 ",.01)
 ;;65580-0303-09
 ;;9002226.02101,"798,65580-0303-09 ",.02)
 ;;65580-0303-09
 ;;9002226.02101,"798,65580-0304-03 ",.01)
 ;;65580-0304-03
 ;;9002226.02101,"798,65580-0304-03 ",.02)
 ;;65580-0304-03
 ;;9002226.02101,"798,65580-0304-09 ",.01)
 ;;65580-0304-09
 ;;9002226.02101,"798,65580-0304-09 ",.02)
 ;;65580-0304-09
 ;;9002226.02101,"798,65862-0001-01 ",.01)
 ;;65862-0001-01
 ;;9002226.02101,"798,65862-0001-01 ",.02)
 ;;65862-0001-01
 ;;9002226.02101,"798,65862-0001-05 ",.01)
 ;;65862-0001-05
 ;;9002226.02101,"798,65862-0001-05 ",.02)
 ;;65862-0001-05
 ;;9002226.02101,"798,65862-0001-30 ",.01)
 ;;65862-0001-30
 ;;9002226.02101,"798,65862-0001-30 ",.02)
 ;;65862-0001-30
 ;;9002226.02101,"798,65862-0003-01 ",.01)
 ;;65862-0003-01
 ;;9002226.02101,"798,65862-0003-01 ",.02)
 ;;65862-0003-01
 ;;9002226.02101,"798,65862-0003-03 ",.01)
 ;;65862-0003-03
 ;;9002226.02101,"798,65862-0003-03 ",.02)
 ;;65862-0003-03
 ;;9002226.02101,"798,65862-0003-05 ",.01)
 ;;65862-0003-05
 ;;9002226.02101,"798,65862-0003-05 ",.02)
 ;;65862-0003-05
 ;;9002226.02101,"798,65862-0003-30 ",.01)
 ;;65862-0003-30
 ;;9002226.02101,"798,65862-0003-30 ",.02)
 ;;65862-0003-30
 ;;9002226.02101,"798,65862-0003-90 ",.01)
 ;;65862-0003-90
 ;;9002226.02101,"798,65862-0003-90 ",.02)
 ;;65862-0003-90
 ;;9002226.02101,"798,65862-0005-01 ",.01)
 ;;65862-0005-01
 ;;9002226.02101,"798,65862-0005-01 ",.02)
 ;;65862-0005-01
 ;;9002226.02101,"798,65862-0005-05 ",.01)
 ;;65862-0005-05
 ;;9002226.02101,"798,65862-0005-05 ",.02)
 ;;65862-0005-05
 ;;9002226.02101,"798,65862-0005-30 ",.01)
 ;;65862-0005-30
 ;;9002226.02101,"798,65862-0005-30 ",.02)
 ;;65862-0005-30
 ;;9002226.02101,"798,65862-0006-01 ",.01)
 ;;65862-0006-01
 ;;9002226.02101,"798,65862-0006-01 ",.02)
 ;;65862-0006-01
 ;;9002226.02101,"798,65862-0006-05 ",.01)
 ;;65862-0006-05
 ;;9002226.02101,"798,65862-0006-05 ",.02)
 ;;65862-0006-05
 ;;9002226.02101,"798,65862-0006-30 ",.01)
 ;;65862-0006-30
 ;;9002226.02101,"798,65862-0006-30 ",.02)
 ;;65862-0006-30
 ;;9002226.02101,"798,65862-0007-01 ",.01)
 ;;65862-0007-01
 ;;9002226.02101,"798,65862-0007-01 ",.02)
 ;;65862-0007-01
 ;;9002226.02101,"798,65862-0007-05 ",.01)
 ;;65862-0007-05
 ;;9002226.02101,"798,65862-0007-05 ",.02)
 ;;65862-0007-05
 ;;9002226.02101,"798,65862-0007-30 ",.01)
 ;;65862-0007-30
 ;;9002226.02101,"798,65862-0007-30 ",.02)
 ;;65862-0007-30
 ;;9002226.02101,"798,65862-0011-01 ",.01)
 ;;65862-0011-01
 ;;9002226.02101,"798,65862-0011-01 ",.02)
 ;;65862-0011-01
 ;;9002226.02101,"798,65862-0011-05 ",.01)
 ;;65862-0011-05
 ;;9002226.02101,"798,65862-0011-05 ",.02)
 ;;65862-0011-05
 ;;9002226.02101,"798,65862-0011-30 ",.01)
 ;;65862-0011-30
 ;;9002226.02101,"798,65862-0011-30 ",.02)
 ;;65862-0011-30
 ;;9002226.02101,"798,65862-0011-90 ",.01)
 ;;65862-0011-90
 ;;9002226.02101,"798,65862-0011-90 ",.02)
 ;;65862-0011-90
 ;;9002226.02101,"798,65862-0012-01 ",.01)
 ;;65862-0012-01
 ;;9002226.02101,"798,65862-0012-01 ",.02)
 ;;65862-0012-01
 ;;9002226.02101,"798,65862-0012-05 ",.01)
 ;;65862-0012-05
 ;;9002226.02101,"798,65862-0012-05 ",.02)
 ;;65862-0012-05
 ;;9002226.02101,"798,65862-0012-30 ",.01)
 ;;65862-0012-30
 ;;9002226.02101,"798,65862-0012-30 ",.02)
 ;;65862-0012-30
 ;;9002226.02101,"798,65862-0012-90 ",.01)
 ;;65862-0012-90
 ;;9002226.02101,"798,65862-0012-90 ",.02)
 ;;65862-0012-90
 ;;9002226.02101,"798,65862-0013-01 ",.01)
 ;;65862-0013-01
 ;;9002226.02101,"798,65862-0013-01 ",.02)
 ;;65862-0013-01
 ;;9002226.02101,"798,65862-0013-05 ",.01)
 ;;65862-0013-05
 ;;9002226.02101,"798,65862-0013-05 ",.02)
 ;;65862-0013-05
 ;;9002226.02101,"798,65862-0013-30 ",.01)
 ;;65862-0013-30
 ;;9002226.02101,"798,65862-0013-30 ",.02)
 ;;65862-0013-30
 ;;9002226.02101,"798,65862-0013-90 ",.01)
 ;;65862-0013-90
 ;;9002226.02101,"798,65862-0013-90 ",.02)
 ;;65862-0013-90
 ;;9002226.02101,"798,65862-0021-06 ",.01)
 ;;65862-0021-06
 ;;9002226.02101,"798,65862-0021-06 ",.02)
 ;;65862-0021-06
 ;;9002226.02101,"798,65862-0022-06 ",.01)
 ;;65862-0022-06
 ;;9002226.02101,"798,65862-0022-06 ",.02)
 ;;65862-0022-06
 ;;9002226.02101,"798,65862-0023-06 ",.01)
 ;;65862-0023-06
 ;;9002226.02101,"798,65862-0023-06 ",.02)
 ;;65862-0023-06
 ;;9002226.02101,"798,65862-0031-01 ",.01)
 ;;65862-0031-01
 ;;9002226.02101,"798,65862-0031-01 ",.02)
 ;;65862-0031-01
 ;;9002226.02101,"798,65862-0031-03 ",.01)
 ;;65862-0031-03
 ;;9002226.02101,"798,65862-0031-03 ",.02)
 ;;65862-0031-03
 ;;9002226.02101,"798,65862-0031-05 ",.01)
 ;;65862-0031-05
 ;;9002226.02101,"798,65862-0031-05 ",.02)
 ;;65862-0031-05
 ;;9002226.02101,"798,65862-0031-30 ",.01)
 ;;65862-0031-30
 ;;9002226.02101,"798,65862-0031-30 ",.02)
 ;;65862-0031-30
 ;;9002226.02101,"798,65862-0031-90 ",.01)
 ;;65862-0031-90
 ;;9002226.02101,"798,65862-0031-90 ",.02)
 ;;65862-0031-90
 ;;9002226.02101,"798,65862-0032-01 ",.01)
 ;;65862-0032-01
 ;;9002226.02101,"798,65862-0032-01 ",.02)
 ;;65862-0032-01
 ;;9002226.02101,"798,65862-0032-03 ",.01)
 ;;65862-0032-03
 ;;9002226.02101,"798,65862-0032-03 ",.02)
 ;;65862-0032-03
 ;;9002226.02101,"798,65862-0032-05 ",.01)
 ;;65862-0032-05
 ;;9002226.02101,"798,65862-0032-05 ",.02)
 ;;65862-0032-05
 ;;9002226.02101,"798,65862-0032-30 ",.01)
 ;;65862-0032-30
 ;;9002226.02101,"798,65862-0032-30 ",.02)
 ;;65862-0032-30
 ;;9002226.02101,"798,65862-0032-90 ",.01)
 ;;65862-0032-90
 ;;9002226.02101,"798,65862-0032-90 ",.02)
 ;;65862-0032-90
 ;;9002226.02101,"798,65862-0074-24 ",.01)
 ;;65862-0074-24
 ;;9002226.02101,"798,65862-0074-24 ",.02)
 ;;65862-0074-24
 ;;9002226.02101,"798,65862-0154-30 ",.01)
 ;;65862-0154-30
 ;;9002226.02101,"798,65862-0154-30 ",.02)
 ;;65862-0154-30
 ;;9002226.02101,"798,65862-0155-05 ",.01)
 ;;65862-0155-05
 ;;9002226.02101,"798,65862-0155-05 ",.02)
 ;;65862-0155-05
 ;;9002226.02101,"798,65862-0155-30 ",.01)
 ;;65862-0155-30
 ;;9002226.02101,"798,65862-0155-30 ",.02)
 ;;65862-0155-30
 ;;9002226.02101,"798,65862-0155-99 ",.01)
 ;;65862-0155-99
 ;;9002226.02101,"798,65862-0155-99 ",.02)
 ;;65862-0155-99
 ;;9002226.02101,"798,65862-0156-30 ",.01)
 ;;65862-0156-30
 ;;9002226.02101,"798,65862-0156-30 ",.02)
 ;;65862-0156-30
 ;;9002226.02101,"798,65862-0156-99 ",.01)
 ;;65862-0156-99
 ;;9002226.02101,"798,65862-0156-99 ",.02)
 ;;65862-0156-99
 ;;9002226.02101,"798,65862-0157-30 ",.01)
 ;;65862-0157-30
 ;;9002226.02101,"798,65862-0157-30 ",.02)
 ;;65862-0157-30
 ;;9002226.02101,"798,65862-0157-99 ",.01)
 ;;65862-0157-99
 ;;9002226.02101,"798,65862-0157-99 ",.02)
 ;;65862-0157-99
 ;;9002226.02101,"798,65862-0192-01 ",.01)
 ;;65862-0192-01
 ;;9002226.02101,"798,65862-0192-01 ",.02)
 ;;65862-0192-01
 ;;9002226.02101,"798,65862-0192-05 ",.01)
 ;;65862-0192-05
 ;;9002226.02101,"798,65862-0192-05 ",.02)
 ;;65862-0192-05
 ;;9002226.02101,"798,65862-0192-99 ",.01)
 ;;65862-0192-99
 ;;9002226.02101,"798,65862-0192-99 ",.02)
 ;;65862-0192-99
 ;;9002226.02101,"798,65862-0193-01 ",.01)
 ;;65862-0193-01
 ;;9002226.02101,"798,65862-0193-01 ",.02)
 ;;65862-0193-01
 ;;9002226.02101,"798,65862-0193-05 ",.01)
 ;;65862-0193-05
 ;;9002226.02101,"798,65862-0193-05 ",.02)
 ;;65862-0193-05
 ;;9002226.02101,"798,65862-0193-99 ",.01)
 ;;65862-0193-99
 ;;9002226.02101,"798,65862-0193-99 ",.02)
 ;;65862-0193-99
 ;;9002226.02101,"798,65862-0194-01 ",.01)
 ;;65862-0194-01
 ;;9002226.02101,"798,65862-0194-01 ",.02)
 ;;65862-0194-01
 ;;9002226.02101,"798,65862-0194-05 ",.01)
 ;;65862-0194-05
 ;;9002226.02101,"798,65862-0194-05 ",.02)
 ;;65862-0194-05
 ;;9002226.02101,"798,65862-0194-30 ",.01)
 ;;65862-0194-30
 ;;9002226.02101,"798,65862-0194-30 ",.02)
 ;;65862-0194-30
 ;;9002226.02101,"798,65862-0194-99 ",.01)
 ;;65862-0194-99
 ;;9002226.02101,"798,65862-0194-99 ",.02)
 ;;65862-0194-99
 ;;9002226.02101,"798,65862-0248-24 ",.01)
 ;;65862-0248-24
 ;;9002226.02101,"798,65862-0248-24 ",.02)
 ;;65862-0248-24
 ;;9002226.02101,"798,65862-0373-01 ",.01)
 ;;65862-0373-01
 ;;9002226.02101,"798,65862-0373-01 ",.02)
 ;;65862-0373-01
 ;;9002226.02101,"798,65862-0373-05 ",.01)
 ;;65862-0373-05
 ;;9002226.02101,"798,65862-0373-05 ",.02)
 ;;65862-0373-05
 ;;9002226.02101,"798,65862-0374-01 ",.01)
 ;;65862-0374-01
 ;;9002226.02101,"798,65862-0374-01 ",.02)
 ;;65862-0374-01
 ;;9002226.02101,"798,65862-0374-05 ",.01)
 ;;65862-0374-05
 ;;9002226.02101,"798,65862-0374-05 ",.02)
 ;;65862-0374-05
 ;;9002226.02101,"798,65862-0375-01 ",.01)
 ;;65862-0375-01
 ;;9002226.02101,"798,65862-0375-01 ",.02)
 ;;65862-0375-01
 ;;9002226.02101,"798,65862-0375-05 ",.01)
 ;;65862-0375-05
 ;;9002226.02101,"798,65862-0375-05 ",.02)
 ;;65862-0375-05
 ;;9002226.02101,"798,65862-0404-01 ",.01)
 ;;65862-0404-01
 ;;9002226.02101,"798,65862-0404-01 ",.02)
 ;;65862-0404-01
 ;;9002226.02101,"798,65862-0404-60 ",.01)
 ;;65862-0404-60
 ;;9002226.02101,"798,65862-0404-60 ",.02)
 ;;65862-0404-60
 ;;9002226.02101,"798,65862-0405-01 ",.01)
 ;;65862-0405-01
 ;;9002226.02101,"798,65862-0405-01 ",.02)
 ;;65862-0405-01
 ;;9002226.02101,"798,65862-0405-60 ",.01)
 ;;65862-0405-60
 ;;9002226.02101,"798,65862-0405-60 ",.02)
 ;;65862-0405-60
 ;;9002226.02101,"798,65862-0405-90 ",.01)
 ;;65862-0405-90
 ;;9002226.02101,"798,65862-0405-90 ",.02)
 ;;65862-0405-90
 ;;9002226.02101,"798,65862-0406-01 ",.01)
 ;;65862-0406-01
 ;;9002226.02101,"798,65862-0406-01 ",.02)
 ;;65862-0406-01
 ;;9002226.02101,"798,65862-0406-30 ",.01)
 ;;65862-0406-30
 ;;9002226.02101,"798,65862-0406-30 ",.02)
 ;;65862-0406-30
 ;;9002226.02101,"798,65862-0406-90 ",.01)
 ;;65862-0406-90
 ;;9002226.02101,"798,65862-0406-90 ",.02)
 ;;65862-0406-90
 ;;9002226.02101,"798,65862-0407-01 ",.01)
 ;;65862-0407-01
 ;;9002226.02101,"798,65862-0407-01 ",.02)
 ;;65862-0407-01
 ;;9002226.02101,"798,65862-0407-30 ",.01)
 ;;65862-0407-30
 ;;9002226.02101,"798,65862-0407-30 ",.02)
 ;;65862-0407-30
 ;;9002226.02101,"798,65862-0408-01 ",.01)
 ;;65862-0408-01
 ;;9002226.02101,"798,65862-0408-01 ",.02)
 ;;65862-0408-01
 ;;9002226.02101,"798,65862-0408-20 ",.01)
 ;;65862-0408-20
 ;;9002226.02101,"798,65862-0408-20 ",.02)
 ;;65862-0408-20