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

BGP83A27.m

Go to the documentation of this file.
  1. BGP83A27 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"1828,52959-0538-10 ",.02)
  1. ;;52959-0538-10
  1. ;;9002226.02101,"1828,52959-0538-20 ",.01)
  1. ;;52959-0538-20
  1. ;;9002226.02101,"1828,52959-0538-20 ",.02)
  1. ;;52959-0538-20
  1. ;;9002226.02101,"1828,52959-0538-30 ",.01)
  1. ;;52959-0538-30
  1. ;;9002226.02101,"1828,52959-0538-30 ",.02)
  1. ;;52959-0538-30
  1. ;;9002226.02101,"1828,52959-0538-40 ",.01)
  1. ;;52959-0538-40
  1. ;;9002226.02101,"1828,52959-0538-40 ",.02)
  1. ;;52959-0538-40
  1. ;;9002226.02101,"1828,52959-0538-60 ",.01)
  1. ;;52959-0538-60
  1. ;;9002226.02101,"1828,52959-0538-60 ",.02)
  1. ;;52959-0538-60
  1. ;;9002226.02101,"1828,52959-0538-90 ",.01)
  1. ;;52959-0538-90
  1. ;;9002226.02101,"1828,52959-0538-90 ",.02)
  1. ;;52959-0538-90
  1. ;;9002226.02101,"1828,52959-0630-00 ",.01)
  1. ;;52959-0630-00
  1. ;;9002226.02101,"1828,52959-0630-00 ",.02)
  1. ;;52959-0630-00
  1. ;;9002226.02101,"1828,52959-0630-02 ",.01)
  1. ;;52959-0630-02
  1. ;;9002226.02101,"1828,52959-0630-02 ",.02)
  1. ;;52959-0630-02
  1. ;;9002226.02101,"1828,52959-0630-18 ",.01)
  1. ;;52959-0630-18
  1. ;;9002226.02101,"1828,52959-0630-18 ",.02)
  1. ;;52959-0630-18
  1. ;;9002226.02101,"1828,52959-0630-30 ",.01)
  1. ;;52959-0630-30
  1. ;;9002226.02101,"1828,52959-0630-30 ",.02)
  1. ;;52959-0630-30
  1. ;;9002226.02101,"1828,52959-0630-60 ",.01)
  1. ;;52959-0630-60
  1. ;;9002226.02101,"1828,52959-0630-60 ",.02)
  1. ;;52959-0630-60
  1. ;;9002226.02101,"1828,52959-0630-90 ",.01)
  1. ;;52959-0630-90
  1. ;;9002226.02101,"1828,52959-0630-90 ",.02)
  1. ;;52959-0630-90
  1. ;;9002226.02101,"1828,52959-0761-00 ",.01)
  1. ;;52959-0761-00
  1. ;;9002226.02101,"1828,52959-0761-00 ",.02)
  1. ;;52959-0761-00
  1. ;;9002226.02101,"1828,52959-0761-02 ",.01)
  1. ;;52959-0761-02
  1. ;;9002226.02101,"1828,52959-0761-02 ",.02)
  1. ;;52959-0761-02
  1. ;;9002226.02101,"1828,52959-0761-10 ",.01)
  1. ;;52959-0761-10
  1. ;;9002226.02101,"1828,52959-0761-10 ",.02)
  1. ;;52959-0761-10
  1. ;;9002226.02101,"1828,52959-0761-30 ",.01)
  1. ;;52959-0761-30
  1. ;;9002226.02101,"1828,52959-0761-30 ",.02)
  1. ;;52959-0761-30
  1. ;;9002226.02101,"1828,52959-0761-60 ",.01)
  1. ;;52959-0761-60
  1. ;;9002226.02101,"1828,52959-0761-60 ",.02)
  1. ;;52959-0761-60
  1. ;;9002226.02101,"1828,52959-0837-90 ",.01)
  1. ;;52959-0837-90
  1. ;;9002226.02101,"1828,52959-0837-90 ",.02)
  1. ;;52959-0837-90
  1. ;;9002226.02101,"1828,52959-0864-00 ",.01)
  1. ;;52959-0864-00
  1. ;;9002226.02101,"1828,52959-0864-00 ",.02)
  1. ;;52959-0864-00
  1. ;;9002226.02101,"1828,52959-0864-10 ",.01)
  1. ;;52959-0864-10
  1. ;;9002226.02101,"1828,52959-0864-10 ",.02)
  1. ;;52959-0864-10
  1. ;;9002226.02101,"1828,52959-0864-30 ",.01)
  1. ;;52959-0864-30
  1. ;;9002226.02101,"1828,52959-0864-30 ",.02)
  1. ;;52959-0864-30
  1. ;;9002226.02101,"1828,52959-0864-40 ",.01)
  1. ;;52959-0864-40
  1. ;;9002226.02101,"1828,52959-0864-40 ",.02)
  1. ;;52959-0864-40
  1. ;;9002226.02101,"1828,52959-0864-60 ",.01)
  1. ;;52959-0864-60
  1. ;;9002226.02101,"1828,52959-0864-60 ",.02)
  1. ;;52959-0864-60
  1. ;;9002226.02101,"1828,52959-0864-90 ",.01)
  1. ;;52959-0864-90
  1. ;;9002226.02101,"1828,52959-0864-90 ",.02)
  1. ;;52959-0864-90
  1. ;;9002226.02101,"1828,52959-0873-30 ",.01)
  1. ;;52959-0873-30
  1. ;;9002226.02101,"1828,52959-0873-30 ",.02)
  1. ;;52959-0873-30
  1. ;;9002226.02101,"1828,52959-0873-60 ",.01)
  1. ;;52959-0873-60
  1. ;;9002226.02101,"1828,52959-0873-60 ",.02)
  1. ;;52959-0873-60
  1. ;;9002226.02101,"1828,52959-0874-30 ",.01)
  1. ;;52959-0874-30
  1. ;;9002226.02101,"1828,52959-0874-30 ",.02)
  1. ;;52959-0874-30
  1. ;;9002226.02101,"1828,52959-0874-60 ",.01)
  1. ;;52959-0874-60
  1. ;;9002226.02101,"1828,52959-0874-60 ",.02)
  1. ;;52959-0874-60
  1. ;;9002226.02101,"1828,52959-0887-30 ",.01)
  1. ;;52959-0887-30
  1. ;;9002226.02101,"1828,52959-0887-30 ",.02)
  1. ;;52959-0887-30
  1. ;;9002226.02101,"1828,52959-0915-01 ",.01)
  1. ;;52959-0915-01
  1. ;;9002226.02101,"1828,52959-0915-01 ",.02)
  1. ;;52959-0915-01
  1. ;;9002226.02101,"1828,52959-0964-30 ",.01)
  1. ;;52959-0964-30
  1. ;;9002226.02101,"1828,52959-0964-30 ",.02)
  1. ;;52959-0964-30
  1. ;;9002226.02101,"1828,52959-0965-15 ",.01)
  1. ;;52959-0965-15
  1. ;;9002226.02101,"1828,52959-0965-15 ",.02)
  1. ;;52959-0965-15
  1. ;;9002226.02101,"1828,52959-0965-30 ",.01)
  1. ;;52959-0965-30
  1. ;;9002226.02101,"1828,52959-0965-30 ",.02)
  1. ;;52959-0965-30
  1. ;;9002226.02101,"1828,52959-0965-60 ",.01)
  1. ;;52959-0965-60
  1. ;;9002226.02101,"1828,52959-0965-60 ",.02)
  1. ;;52959-0965-60
  1. ;;9002226.02101,"1828,52959-0970-30 ",.01)
  1. ;;52959-0970-30
  1. ;;9002226.02101,"1828,52959-0970-30 ",.02)
  1. ;;52959-0970-30
  1. ;;9002226.02101,"1828,53002-0395-05 ",.01)
  1. ;;53002-0395-05
  1. ;;9002226.02101,"1828,53002-0395-05 ",.02)
  1. ;;53002-0395-05
  1. ;;9002226.02101,"1828,53002-0395-10 ",.01)
  1. ;;53002-0395-10
  1. ;;9002226.02101,"1828,53002-0395-10 ",.02)
  1. ;;53002-0395-10
  1. ;;9002226.02101,"1828,53002-0395-15 ",.01)
  1. ;;53002-0395-15
  1. ;;9002226.02101,"1828,53002-0395-15 ",.02)
  1. ;;53002-0395-15
  1. ;;9002226.02101,"1828,53002-0395-20 ",.01)
  1. ;;53002-0395-20
  1. ;;9002226.02101,"1828,53002-0395-20 ",.02)
  1. ;;53002-0395-20
  1. ;;9002226.02101,"1828,53002-0395-30 ",.01)
  1. ;;53002-0395-30
  1. ;;9002226.02101,"1828,53002-0395-30 ",.02)
  1. ;;53002-0395-30
  1. ;;9002226.02101,"1828,53217-0056-07 ",.01)
  1. ;;53217-0056-07
  1. ;;9002226.02101,"1828,53217-0056-07 ",.02)
  1. ;;53217-0056-07
  1. ;;9002226.02101,"1828,53217-0056-14 ",.01)
  1. ;;53217-0056-14
  1. ;;9002226.02101,"1828,53217-0056-14 ",.02)
  1. ;;53217-0056-14
  1. ;;9002226.02101,"1828,53217-0056-21 ",.01)
  1. ;;53217-0056-21
  1. ;;9002226.02101,"1828,53217-0056-21 ",.02)
  1. ;;53217-0056-21
  1. ;;9002226.02101,"1828,53217-0056-30 ",.01)
  1. ;;53217-0056-30
  1. ;;9002226.02101,"1828,53217-0056-30 ",.02)
  1. ;;53217-0056-30
  1. ;;9002226.02101,"1828,53217-0056-60 ",.01)
  1. ;;53217-0056-60
  1. ;;9002226.02101,"1828,53217-0056-60 ",.02)
  1. ;;53217-0056-60
  1. ;;9002226.02101,"1828,53217-0056-90 ",.01)
  1. ;;53217-0056-90
  1. ;;9002226.02101,"1828,53217-0056-90 ",.02)
  1. ;;53217-0056-90
  1. ;;9002226.02101,"1828,53217-0179-02 ",.01)
  1. ;;53217-0179-02
  1. ;;9002226.02101,"1828,53217-0179-02 ",.02)
  1. ;;53217-0179-02
  1. ;;9002226.02101,"1828,53217-0179-30 ",.01)
  1. ;;53217-0179-30
  1. ;;9002226.02101,"1828,53217-0179-30 ",.02)
  1. ;;53217-0179-30
  1. ;;9002226.02101,"1828,53217-0179-45 ",.01)
  1. ;;53217-0179-45
  1. ;;9002226.02101,"1828,53217-0179-45 ",.02)
  1. ;;53217-0179-45
  1. ;;9002226.02101,"1828,53217-0179-60 ",.01)
  1. ;;53217-0179-60
  1. ;;9002226.02101,"1828,53217-0179-60 ",.02)
  1. ;;53217-0179-60
  1. ;;9002226.02101,"1828,53217-0179-90 ",.01)
  1. ;;53217-0179-90
  1. ;;9002226.02101,"1828,53217-0179-90 ",.02)
  1. ;;53217-0179-90
  1. ;;9002226.02101,"1828,53217-0183-20 ",.01)
  1. ;;53217-0183-20
  1. ;;9002226.02101,"1828,53217-0183-20 ",.02)
  1. ;;53217-0183-20
  1. ;;9002226.02101,"1828,53217-0183-30 ",.01)
  1. ;;53217-0183-30
  1. ;;9002226.02101,"1828,53217-0183-30 ",.02)
  1. ;;53217-0183-30
  1. ;;9002226.02101,"1828,53217-0184-00 ",.01)
  1. ;;53217-0184-00
  1. ;;9002226.02101,"1828,53217-0184-00 ",.02)
  1. ;;53217-0184-00
  1. ;;9002226.02101,"1828,53217-0184-02 ",.01)
  1. ;;53217-0184-02
  1. ;;9002226.02101,"1828,53217-0184-02 ",.02)
  1. ;;53217-0184-02
  1. ;;9002226.02101,"1828,53217-0184-05 ",.01)
  1. ;;53217-0184-05
  1. ;;9002226.02101,"1828,53217-0184-05 ",.02)
  1. ;;53217-0184-05
  1. ;;9002226.02101,"1828,53217-0184-07 ",.01)
  1. ;;53217-0184-07
  1. ;;9002226.02101,"1828,53217-0184-07 ",.02)
  1. ;;53217-0184-07
  1. ;;9002226.02101,"1828,53217-0184-08 ",.01)
  1. ;;53217-0184-08
  1. ;;9002226.02101,"1828,53217-0184-08 ",.02)
  1. ;;53217-0184-08
  1. ;;9002226.02101,"1828,53217-0184-10 ",.01)
  1. ;;53217-0184-10
  1. ;;9002226.02101,"1828,53217-0184-10 ",.02)
  1. ;;53217-0184-10
  1. ;;9002226.02101,"1828,53217-0184-14 ",.01)
  1. ;;53217-0184-14
  1. ;;9002226.02101,"1828,53217-0184-14 ",.02)
  1. ;;53217-0184-14
  1. ;;9002226.02101,"1828,53217-0184-20 ",.01)
  1. ;;53217-0184-20
  1. ;;9002226.02101,"1828,53217-0184-20 ",.02)
  1. ;;53217-0184-20
  1. ;;9002226.02101,"1828,53217-0184-29 ",.01)
  1. ;;53217-0184-29
  1. ;;9002226.02101,"1828,53217-0184-29 ",.02)
  1. ;;53217-0184-29
  1. ;;9002226.02101,"1828,53217-0184-30 ",.01)
  1. ;;53217-0184-30
  1. ;;9002226.02101,"1828,53217-0184-30 ",.02)
  1. ;;53217-0184-30
  1. ;;9002226.02101,"1828,53217-0184-31 ",.01)
  1. ;;53217-0184-31
  1. ;;9002226.02101,"1828,53217-0184-31 ",.02)
  1. ;;53217-0184-31
  1. ;;9002226.02101,"1828,53217-0184-60 ",.01)
  1. ;;53217-0184-60
  1. ;;9002226.02101,"1828,53217-0184-60 ",.02)
  1. ;;53217-0184-60
  1. ;;9002226.02101,"1828,53217-0184-90 ",.01)
  1. ;;53217-0184-90
  1. ;;9002226.02101,"1828,53217-0184-90 ",.02)
  1. ;;53217-0184-90
  1. ;;9002226.02101,"1828,53217-0185-00 ",.01)
  1. ;;53217-0185-00
  1. ;;9002226.02101,"1828,53217-0185-00 ",.02)
  1. ;;53217-0185-00
  1. ;;9002226.02101,"1828,53217-0185-02 ",.01)
  1. ;;53217-0185-02
  1. ;;9002226.02101,"1828,53217-0185-02 ",.02)
  1. ;;53217-0185-02
  1. ;;9002226.02101,"1828,53217-0185-05 ",.01)
  1. ;;53217-0185-05
  1. ;;9002226.02101,"1828,53217-0185-05 ",.02)
  1. ;;53217-0185-05
  1. ;;9002226.02101,"1828,53217-0185-07 ",.01)
  1. ;;53217-0185-07
  1. ;;9002226.02101,"1828,53217-0185-07 ",.02)
  1. ;;53217-0185-07
  1. ;;9002226.02101,"1828,53217-0185-08 ",.01)
  1. ;;53217-0185-08
  1. ;;9002226.02101,"1828,53217-0185-08 ",.02)
  1. ;;53217-0185-08
  1. ;;9002226.02101,"1828,53217-0185-10 ",.01)
  1. ;;53217-0185-10
  1. ;;9002226.02101,"1828,53217-0185-10 ",.02)
  1. ;;53217-0185-10
  1. ;;9002226.02101,"1828,53217-0185-14 ",.01)
  1. ;;53217-0185-14
  1. ;;9002226.02101,"1828,53217-0185-14 ",.02)
  1. ;;53217-0185-14
  1. ;;9002226.02101,"1828,53217-0185-20 ",.01)
  1. ;;53217-0185-20
  1. ;;9002226.02101,"1828,53217-0185-20 ",.02)
  1. ;;53217-0185-20
  1. ;;9002226.02101,"1828,53217-0185-29 ",.01)
  1. ;;53217-0185-29
  1. ;;9002226.02101,"1828,53217-0185-29 ",.02)
  1. ;;53217-0185-29
  1. ;;9002226.02101,"1828,53217-0185-30 ",.01)
  1. ;;53217-0185-30
  1. ;;9002226.02101,"1828,53217-0185-30 ",.02)
  1. ;;53217-0185-30
  1. ;;9002226.02101,"1828,53217-0185-31 ",.01)
  1. ;;53217-0185-31
  1. ;;9002226.02101,"1828,53217-0185-31 ",.02)
  1. ;;53217-0185-31
  1. ;;9002226.02101,"1828,53217-0185-60 ",.01)
  1. ;;53217-0185-60
  1. ;;9002226.02101,"1828,53217-0185-60 ",.02)
  1. ;;53217-0185-60
  1. ;;9002226.02101,"1828,53217-0185-90 ",.01)
  1. ;;53217-0185-90
  1. ;;9002226.02101,"1828,53217-0185-90 ",.02)
  1. ;;53217-0185-90
  1. ;;9002226.02101,"1828,53217-0189-02 ",.01)
  1. ;;53217-0189-02
  1. ;;9002226.02101,"1828,53217-0189-02 ",.02)
  1. ;;53217-0189-02
  1. ;;9002226.02101,"1828,53217-0189-30 ",.01)
  1. ;;53217-0189-30
  1. ;;9002226.02101,"1828,53217-0189-30 ",.02)
  1. ;;53217-0189-30
  1. ;;9002226.02101,"1828,53217-0189-60 ",.01)
  1. ;;53217-0189-60
  1. ;;9002226.02101,"1828,53217-0189-60 ",.02)
  1. ;;53217-0189-60
  1. ;;9002226.02101,"1828,53217-0189-90 ",.01)
  1. ;;53217-0189-90
  1. ;;9002226.02101,"1828,53217-0189-90 ",.02)
  1. ;;53217-0189-90
  1. ;;9002226.02101,"1828,53217-0200-30 ",.01)
  1. ;;53217-0200-30
  1. ;;9002226.02101,"1828,53217-0200-30 ",.02)
  1. ;;53217-0200-30
  1. ;;9002226.02101,"1828,53217-0200-60 ",.01)
  1. ;;53217-0200-60
  1. ;;9002226.02101,"1828,53217-0200-60 ",.02)
  1. ;;53217-0200-60
  1. ;;9002226.02101,"1828,53217-0200-90 ",.01)
  1. ;;53217-0200-90
  1. ;;9002226.02101,"1828,53217-0200-90 ",.02)
  1. ;;53217-0200-90
  1. ;;9002226.02101,"1828,53217-0205-30 ",.01)
  1. ;;53217-0205-30
  1. ;;9002226.02101,"1828,53217-0205-30 ",.02)
  1. ;;53217-0205-30
  1. ;;9002226.02101,"1828,53217-0208-02 ",.01)
  1. ;;53217-0208-02
  1. ;;9002226.02101,"1828,53217-0208-02 ",.02)
  1. ;;53217-0208-02
  1. ;;9002226.02101,"1828,53217-0208-05 ",.01)
  1. ;;53217-0208-05
  1. ;;9002226.02101,"1828,53217-0208-05 ",.02)
  1. ;;53217-0208-05
  1. ;;9002226.02101,"1828,53217-0208-30 ",.01)
  1. ;;53217-0208-30
  1. ;;9002226.02101,"1828,53217-0208-30 ",.02)
  1. ;;53217-0208-30
  1. ;;9002226.02101,"1828,53217-0208-45 ",.01)
  1. ;;53217-0208-45
  1. ;;9002226.02101,"1828,53217-0208-45 ",.02)
  1. ;;53217-0208-45
  1. ;;9002226.02101,"1828,53217-0208-60 ",.01)
  1. ;;53217-0208-60
  1. ;;9002226.02101,"1828,53217-0208-60 ",.02)
  1. ;;53217-0208-60
  1. ;;9002226.02101,"1828,53217-0208-90 ",.01)
  1. ;;53217-0208-90
  1. ;;9002226.02101,"1828,53217-0208-90 ",.02)
  1. ;;53217-0208-90
  1. ;;9002226.02101,"1828,53217-0216-00 ",.01)
  1. ;;53217-0216-00
  1. ;;9002226.02101,"1828,53217-0216-00 ",.02)
  1. ;;53217-0216-00
  1. ;;9002226.02101,"1828,53217-0216-15 ",.01)
  1. ;;53217-0216-15
  1. ;;9002226.02101,"1828,53217-0216-15 ",.02)
  1. ;;53217-0216-15