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

BGP06D17.m

Go to the documentation of this file.
  1. BGP06D17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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,"978,54838-0154-80 ",.01)
  1. ;;54838-0154-80
  1. ;;9002226.02101,"978,54838-0154-80 ",.02)
  1. ;;54838-0154-80
  1. ;;9002226.02101,"978,54868-0026-00 ",.01)
  1. ;;54868-0026-00
  1. ;;9002226.02101,"978,54868-0026-00 ",.02)
  1. ;;54868-0026-00
  1. ;;9002226.02101,"978,54868-0026-01 ",.01)
  1. ;;54868-0026-01
  1. ;;9002226.02101,"978,54868-0026-01 ",.02)
  1. ;;54868-0026-01
  1. ;;9002226.02101,"978,54868-0026-04 ",.01)
  1. ;;54868-0026-04
  1. ;;9002226.02101,"978,54868-0026-04 ",.02)
  1. ;;54868-0026-04
  1. ;;9002226.02101,"978,54868-0026-05 ",.01)
  1. ;;54868-0026-05
  1. ;;9002226.02101,"978,54868-0026-05 ",.02)
  1. ;;54868-0026-05
  1. ;;9002226.02101,"978,54868-0026-06 ",.01)
  1. ;;54868-0026-06
  1. ;;9002226.02101,"978,54868-0026-06 ",.02)
  1. ;;54868-0026-06
  1. ;;9002226.02101,"978,54868-0026-07 ",.01)
  1. ;;54868-0026-07
  1. ;;9002226.02101,"978,54868-0026-07 ",.02)
  1. ;;54868-0026-07
  1. ;;9002226.02101,"978,54868-0063-00 ",.01)
  1. ;;54868-0063-00
  1. ;;9002226.02101,"978,54868-0063-00 ",.02)
  1. ;;54868-0063-00
  1. ;;9002226.02101,"978,54868-0063-01 ",.01)
  1. ;;54868-0063-01
  1. ;;9002226.02101,"978,54868-0063-01 ",.02)
  1. ;;54868-0063-01
  1. ;;9002226.02101,"978,54868-0063-02 ",.01)
  1. ;;54868-0063-02
  1. ;;9002226.02101,"978,54868-0063-02 ",.02)
  1. ;;54868-0063-02
  1. ;;9002226.02101,"978,54868-0063-03 ",.01)
  1. ;;54868-0063-03
  1. ;;9002226.02101,"978,54868-0063-03 ",.02)
  1. ;;54868-0063-03
  1. ;;9002226.02101,"978,54868-0063-05 ",.01)
  1. ;;54868-0063-05
  1. ;;9002226.02101,"978,54868-0063-05 ",.02)
  1. ;;54868-0063-05
  1. ;;9002226.02101,"978,54868-0063-06 ",.01)
  1. ;;54868-0063-06
  1. ;;9002226.02101,"978,54868-0063-06 ",.02)
  1. ;;54868-0063-06
  1. ;;9002226.02101,"978,54868-0063-07 ",.01)
  1. ;;54868-0063-07
  1. ;;9002226.02101,"978,54868-0063-07 ",.02)
  1. ;;54868-0063-07
  1. ;;9002226.02101,"978,54868-0063-09 ",.01)
  1. ;;54868-0063-09
  1. ;;9002226.02101,"978,54868-0063-09 ",.02)
  1. ;;54868-0063-09
  1. ;;9002226.02101,"978,54868-0169-01 ",.01)
  1. ;;54868-0169-01
  1. ;;9002226.02101,"978,54868-0169-01 ",.02)
  1. ;;54868-0169-01
  1. ;;9002226.02101,"978,54868-0229-01 ",.01)
  1. ;;54868-0229-01
  1. ;;9002226.02101,"978,54868-0229-01 ",.02)
  1. ;;54868-0229-01
  1. ;;9002226.02101,"978,54868-0229-02 ",.01)
  1. ;;54868-0229-02
  1. ;;9002226.02101,"978,54868-0229-02 ",.02)
  1. ;;54868-0229-02
  1. ;;9002226.02101,"978,54868-0229-03 ",.01)
  1. ;;54868-0229-03
  1. ;;9002226.02101,"978,54868-0229-03 ",.02)
  1. ;;54868-0229-03
  1. ;;9002226.02101,"978,54868-0229-04 ",.01)
  1. ;;54868-0229-04
  1. ;;9002226.02101,"978,54868-0229-04 ",.02)
  1. ;;54868-0229-04
  1. ;;9002226.02101,"978,54868-0263-00 ",.01)
  1. ;;54868-0263-00
  1. ;;9002226.02101,"978,54868-0263-00 ",.02)
  1. ;;54868-0263-00
  1. ;;9002226.02101,"978,54868-0263-01 ",.01)
  1. ;;54868-0263-01
  1. ;;9002226.02101,"978,54868-0263-01 ",.02)
  1. ;;54868-0263-01
  1. ;;9002226.02101,"978,54868-0721-00 ",.01)
  1. ;;54868-0721-00
  1. ;;9002226.02101,"978,54868-0721-00 ",.02)
  1. ;;54868-0721-00
  1. ;;9002226.02101,"978,54868-1029-00 ",.01)
  1. ;;54868-1029-00
  1. ;;9002226.02101,"978,54868-1029-00 ",.02)
  1. ;;54868-1029-00
  1. ;;9002226.02101,"978,54868-1029-01 ",.01)
  1. ;;54868-1029-01
  1. ;;9002226.02101,"978,54868-1029-01 ",.02)
  1. ;;54868-1029-01
  1. ;;9002226.02101,"978,54868-1029-02 ",.01)
  1. ;;54868-1029-02
  1. ;;9002226.02101,"978,54868-1029-02 ",.02)
  1. ;;54868-1029-02
  1. ;;9002226.02101,"978,54868-1050-00 ",.01)
  1. ;;54868-1050-00
  1. ;;9002226.02101,"978,54868-1050-00 ",.02)
  1. ;;54868-1050-00
  1. ;;9002226.02101,"978,54868-1050-01 ",.01)
  1. ;;54868-1050-01
  1. ;;9002226.02101,"978,54868-1050-01 ",.02)
  1. ;;54868-1050-01
  1. ;;9002226.02101,"978,54868-1050-03 ",.01)
  1. ;;54868-1050-03
  1. ;;9002226.02101,"978,54868-1050-03 ",.02)
  1. ;;54868-1050-03
  1. ;;9002226.02101,"978,54868-1050-04 ",.01)
  1. ;;54868-1050-04
  1. ;;9002226.02101,"978,54868-1050-04 ",.02)
  1. ;;54868-1050-04
  1. ;;9002226.02101,"978,54868-1050-05 ",.01)
  1. ;;54868-1050-05
  1. ;;9002226.02101,"978,54868-1050-05 ",.02)
  1. ;;54868-1050-05
  1. ;;9002226.02101,"978,54868-1227-00 ",.01)
  1. ;;54868-1227-00
  1. ;;9002226.02101,"978,54868-1227-00 ",.02)
  1. ;;54868-1227-00
  1. ;;9002226.02101,"978,54868-1227-02 ",.01)
  1. ;;54868-1227-02
  1. ;;9002226.02101,"978,54868-1227-02 ",.02)
  1. ;;54868-1227-02
  1. ;;9002226.02101,"978,54868-1285-00 ",.01)
  1. ;;54868-1285-00
  1. ;;9002226.02101,"978,54868-1285-00 ",.02)
  1. ;;54868-1285-00
  1. ;;9002226.02101,"978,54868-1285-01 ",.01)
  1. ;;54868-1285-01
  1. ;;9002226.02101,"978,54868-1285-01 ",.02)
  1. ;;54868-1285-01
  1. ;;9002226.02101,"978,54868-1323-00 ",.01)
  1. ;;54868-1323-00
  1. ;;9002226.02101,"978,54868-1323-00 ",.02)
  1. ;;54868-1323-00
  1. ;;9002226.02101,"978,54868-1323-01 ",.01)
  1. ;;54868-1323-01
  1. ;;9002226.02101,"978,54868-1323-01 ",.02)
  1. ;;54868-1323-01
  1. ;;9002226.02101,"978,54868-1323-02 ",.01)
  1. ;;54868-1323-02
  1. ;;9002226.02101,"978,54868-1323-02 ",.02)
  1. ;;54868-1323-02
  1. ;;9002226.02101,"978,54868-1323-04 ",.01)
  1. ;;54868-1323-04
  1. ;;9002226.02101,"978,54868-1323-04 ",.02)
  1. ;;54868-1323-04
  1. ;;9002226.02101,"978,54868-1323-05 ",.01)
  1. ;;54868-1323-05
  1. ;;9002226.02101,"978,54868-1323-05 ",.02)
  1. ;;54868-1323-05
  1. ;;9002226.02101,"978,54868-1323-06 ",.01)
  1. ;;54868-1323-06
  1. ;;9002226.02101,"978,54868-1323-06 ",.02)
  1. ;;54868-1323-06
  1. ;;9002226.02101,"978,54868-1332-01 ",.01)
  1. ;;54868-1332-01
  1. ;;9002226.02101,"978,54868-1332-01 ",.02)
  1. ;;54868-1332-01
  1. ;;9002226.02101,"978,54868-1332-02 ",.01)
  1. ;;54868-1332-02
  1. ;;9002226.02101,"978,54868-1332-02 ",.02)
  1. ;;54868-1332-02
  1. ;;9002226.02101,"978,54868-1332-03 ",.01)
  1. ;;54868-1332-03
  1. ;;9002226.02101,"978,54868-1332-03 ",.02)
  1. ;;54868-1332-03
  1. ;;9002226.02101,"978,54868-1332-04 ",.01)
  1. ;;54868-1332-04
  1. ;;9002226.02101,"978,54868-1332-04 ",.02)
  1. ;;54868-1332-04
  1. ;;9002226.02101,"978,54868-1332-05 ",.01)
  1. ;;54868-1332-05
  1. ;;9002226.02101,"978,54868-1332-05 ",.02)
  1. ;;54868-1332-05
  1. ;;9002226.02101,"978,54868-1332-06 ",.01)
  1. ;;54868-1332-06
  1. ;;9002226.02101,"978,54868-1332-06 ",.02)
  1. ;;54868-1332-06
  1. ;;9002226.02101,"978,54868-1332-07 ",.01)
  1. ;;54868-1332-07
  1. ;;9002226.02101,"978,54868-1332-07 ",.02)
  1. ;;54868-1332-07
  1. ;;9002226.02101,"978,54868-1804-00 ",.01)
  1. ;;54868-1804-00
  1. ;;9002226.02101,"978,54868-1804-00 ",.02)
  1. ;;54868-1804-00
  1. ;;9002226.02101,"978,54868-1804-02 ",.01)
  1. ;;54868-1804-02
  1. ;;9002226.02101,"978,54868-1804-02 ",.02)
  1. ;;54868-1804-02
  1. ;;9002226.02101,"978,54868-1804-04 ",.01)
  1. ;;54868-1804-04
  1. ;;9002226.02101,"978,54868-1804-04 ",.02)
  1. ;;54868-1804-04
  1. ;;9002226.02101,"978,54868-1854-00 ",.01)
  1. ;;54868-1854-00
  1. ;;9002226.02101,"978,54868-1854-00 ",.02)
  1. ;;54868-1854-00
  1. ;;9002226.02101,"978,54868-1854-01 ",.01)
  1. ;;54868-1854-01
  1. ;;9002226.02101,"978,54868-1854-01 ",.02)
  1. ;;54868-1854-01
  1. ;;9002226.02101,"978,54868-1854-03 ",.01)
  1. ;;54868-1854-03
  1. ;;9002226.02101,"978,54868-1854-03 ",.02)
  1. ;;54868-1854-03
  1. ;;9002226.02101,"978,54868-1854-04 ",.01)
  1. ;;54868-1854-04
  1. ;;9002226.02101,"978,54868-1854-04 ",.02)
  1. ;;54868-1854-04
  1. ;;9002226.02101,"978,54868-1867-00 ",.01)
  1. ;;54868-1867-00
  1. ;;9002226.02101,"978,54868-1867-00 ",.02)
  1. ;;54868-1867-00
  1. ;;9002226.02101,"978,54868-1990-00 ",.01)
  1. ;;54868-1990-00
  1. ;;9002226.02101,"978,54868-1990-00 ",.02)
  1. ;;54868-1990-00
  1. ;;9002226.02101,"978,54868-1990-01 ",.01)
  1. ;;54868-1990-01
  1. ;;9002226.02101,"978,54868-1990-01 ",.02)
  1. ;;54868-1990-01
  1. ;;9002226.02101,"978,54868-2032-00 ",.01)
  1. ;;54868-2032-00
  1. ;;9002226.02101,"978,54868-2032-00 ",.02)
  1. ;;54868-2032-00
  1. ;;9002226.02101,"978,54868-2844-00 ",.01)
  1. ;;54868-2844-00
  1. ;;9002226.02101,"978,54868-2844-00 ",.02)
  1. ;;54868-2844-00
  1. ;;9002226.02101,"978,54868-2892-00 ",.01)
  1. ;;54868-2892-00
  1. ;;9002226.02101,"978,54868-2892-00 ",.02)
  1. ;;54868-2892-00
  1. ;;9002226.02101,"978,54868-2892-02 ",.01)
  1. ;;54868-2892-02
  1. ;;9002226.02101,"978,54868-2892-02 ",.02)
  1. ;;54868-2892-02
  1. ;;9002226.02101,"978,54868-2892-03 ",.01)
  1. ;;54868-2892-03
  1. ;;9002226.02101,"978,54868-2892-03 ",.02)
  1. ;;54868-2892-03
  1. ;;9002226.02101,"978,54868-2892-04 ",.01)
  1. ;;54868-2892-04
  1. ;;9002226.02101,"978,54868-2892-04 ",.02)
  1. ;;54868-2892-04
  1. ;;9002226.02101,"978,54868-3935-00 ",.01)
  1. ;;54868-3935-00
  1. ;;9002226.02101,"978,54868-3935-00 ",.02)
  1. ;;54868-3935-00
  1. ;;9002226.02101,"978,54868-3935-01 ",.01)
  1. ;;54868-3935-01
  1. ;;9002226.02101,"978,54868-3935-01 ",.02)
  1. ;;54868-3935-01
  1. ;;9002226.02101,"978,54868-4108-00 ",.01)
  1. ;;54868-4108-00
  1. ;;9002226.02101,"978,54868-4108-00 ",.02)
  1. ;;54868-4108-00
  1. ;;9002226.02101,"978,54868-4109-00 ",.01)
  1. ;;54868-4109-00
  1. ;;9002226.02101,"978,54868-4109-00 ",.02)
  1. ;;54868-4109-00
  1. ;;9002226.02101,"978,54868-4336-00 ",.01)
  1. ;;54868-4336-00
  1. ;;9002226.02101,"978,54868-4336-00 ",.02)
  1. ;;54868-4336-00
  1. ;;9002226.02101,"978,54868-4338-00 ",.01)
  1. ;;54868-4338-00
  1. ;;9002226.02101,"978,54868-4338-00 ",.02)
  1. ;;54868-4338-00
  1. ;;9002226.02101,"978,55045-1124-00 ",.01)
  1. ;;55045-1124-00
  1. ;;9002226.02101,"978,55045-1124-00 ",.02)
  1. ;;55045-1124-00
  1. ;;9002226.02101,"978,55045-1124-01 ",.01)
  1. ;;55045-1124-01
  1. ;;9002226.02101,"978,55045-1124-01 ",.02)
  1. ;;55045-1124-01
  1. ;;9002226.02101,"978,55045-1124-02 ",.01)
  1. ;;55045-1124-02
  1. ;;9002226.02101,"978,55045-1124-02 ",.02)
  1. ;;55045-1124-02
  1. ;;9002226.02101,"978,55045-1124-03 ",.01)
  1. ;;55045-1124-03
  1. ;;9002226.02101,"978,55045-1124-03 ",.02)
  1. ;;55045-1124-03
  1. ;;9002226.02101,"978,55045-1124-04 ",.01)
  1. ;;55045-1124-04
  1. ;;9002226.02101,"978,55045-1124-04 ",.02)
  1. ;;55045-1124-04
  1. ;;9002226.02101,"978,55045-1124-05 ",.01)
  1. ;;55045-1124-05
  1. ;;9002226.02101,"978,55045-1124-05 ",.02)
  1. ;;55045-1124-05
  1. ;;9002226.02101,"978,55045-1124-06 ",.01)
  1. ;;55045-1124-06
  1. ;;9002226.02101,"978,55045-1124-06 ",.02)
  1. ;;55045-1124-06
  1. ;;9002226.02101,"978,55045-1124-07 ",.01)
  1. ;;55045-1124-07
  1. ;;9002226.02101,"978,55045-1124-07 ",.02)
  1. ;;55045-1124-07
  1. ;;9002226.02101,"978,55045-1124-08 ",.01)
  1. ;;55045-1124-08
  1. ;;9002226.02101,"978,55045-1124-08 ",.02)
  1. ;;55045-1124-08
  1. ;;9002226.02101,"978,55045-1124-09 ",.01)
  1. ;;55045-1124-09
  1. ;;9002226.02101,"978,55045-1124-09 ",.02)
  1. ;;55045-1124-09
  1. ;;9002226.02101,"978,55045-1125-00 ",.01)
  1. ;;55045-1125-00
  1. ;;9002226.02101,"978,55045-1125-00 ",.02)
  1. ;;55045-1125-00
  1. ;;9002226.02101,"978,55045-1125-01 ",.01)
  1. ;;55045-1125-01
  1. ;;9002226.02101,"978,55045-1125-01 ",.02)
  1. ;;55045-1125-01
  1. ;;9002226.02101,"978,55045-1125-02 ",.01)
  1. ;;55045-1125-02
  1. ;;9002226.02101,"978,55045-1125-02 ",.02)
  1. ;;55045-1125-02
  1. ;;9002226.02101,"978,55045-1125-03 ",.01)
  1. ;;55045-1125-03
  1. ;;9002226.02101,"978,55045-1125-03 ",.02)
  1. ;;55045-1125-03
  1. ;;9002226.02101,"978,55045-1125-04 ",.01)
  1. ;;55045-1125-04
  1. ;;9002226.02101,"978,55045-1125-04 ",.02)
  1. ;;55045-1125-04
  1. ;;9002226.02101,"978,55045-1125-05 ",.01)
  1. ;;55045-1125-05
  1. ;;9002226.02101,"978,55045-1125-05 ",.02)
  1. ;;55045-1125-05
  1. ;;9002226.02101,"978,55045-1125-06 ",.01)
  1. ;;55045-1125-06
  1. ;;9002226.02101,"978,55045-1125-06 ",.02)
  1. ;;55045-1125-06
  1. ;;9002226.02101,"978,55045-1125-08 ",.01)
  1. ;;55045-1125-08
  1. ;;9002226.02101,"978,55045-1125-08 ",.02)
  1. ;;55045-1125-08
  1. ;;9002226.02101,"978,55045-1125-09 ",.01)
  1. ;;55045-1125-09
  1. ;;9002226.02101,"978,55045-1125-09 ",.02)
  1. ;;55045-1125-09
  1. ;;9002226.02101,"978,55045-1252-02 ",.01)
  1. ;;55045-1252-02
  1. ;;9002226.02101,"978,55045-1252-02 ",.02)
  1. ;;55045-1252-02
  1. ;;9002226.02101,"978,55045-1266-08 ",.01)
  1. ;;55045-1266-08
  1. ;;9002226.02101,"978,55045-1266-08 ",.02)
  1. ;;55045-1266-08
  1. ;;9002226.02101,"978,55045-1446-05 ",.01)
  1. ;;55045-1446-05
  1. ;;9002226.02101,"978,55045-1446-05 ",.02)
  1. ;;55045-1446-05
  1. ;;9002226.02101,"978,55045-1446-07 ",.01)
  1. ;;55045-1446-07
  1. ;;9002226.02101,"978,55045-1446-07 ",.02)
  1. ;;55045-1446-07
  1. ;;9002226.02101,"978,55045-1446-08 ",.01)
  1. ;;55045-1446-08
  1. ;;9002226.02101,"978,55045-1446-08 ",.02)
  1. ;;55045-1446-08
  1. ;;9002226.02101,"978,55045-1596-00 ",.01)
  1. ;;55045-1596-00
  1. ;;9002226.02101,"978,55045-1596-00 ",.02)
  1. ;;55045-1596-00
  1. ;;9002226.02101,"978,55045-1596-01 ",.01)
  1. ;;55045-1596-01
  1. ;;9002226.02101,"978,55045-1596-01 ",.02)
  1. ;;55045-1596-01
  1. ;;9002226.02101,"978,55045-1596-02 ",.01)
  1. ;;55045-1596-02
  1. ;;9002226.02101,"978,55045-1596-02 ",.02)
  1. ;;55045-1596-02
  1. ;;9002226.02101,"978,55045-1596-03 ",.01)
  1. ;;55045-1596-03
  1. ;;9002226.02101,"978,55045-1596-03 ",.02)
  1. ;;55045-1596-03
  1. ;;9002226.02101,"978,55045-1596-04 ",.01)
  1. ;;55045-1596-04
  1. ;;9002226.02101,"978,55045-1596-04 ",.02)
  1. ;;55045-1596-04
  1. ;;9002226.02101,"978,55045-1596-05 ",.01)
  1. ;;55045-1596-05
  1. ;;9002226.02101,"978,55045-1596-05 ",.02)
  1. ;;55045-1596-05
  1. ;;9002226.02101,"978,55045-1596-06 ",.01)
  1. ;;55045-1596-06
  1. ;;9002226.02101,"978,55045-1596-06 ",.02)
  1. ;;55045-1596-06
  1. ;;9002226.02101,"978,55045-1596-08 ",.01)
  1. ;;55045-1596-08
  1. ;;9002226.02101,"978,55045-1596-08 ",.02)
  1. ;;55045-1596-08
  1. ;;9002226.02101,"978,55045-1596-09 ",.01)
  1. ;;55045-1596-09
  1. ;;9002226.02101,"978,55045-1596-09 ",.02)
  1. ;;55045-1596-09
  1. ;;9002226.02101,"978,55045-1643-09 ",.01)
  1. ;;55045-1643-09
  1. ;;9002226.02101,"978,55045-1643-09 ",.02)
  1. ;;55045-1643-09
  1. ;;9002226.02101,"978,55045-1661-00 ",.01)
  1. ;;55045-1661-00
  1. ;;9002226.02101,"978,55045-1661-00 ",.02)
  1. ;;55045-1661-00
  1. ;;9002226.02101,"978,55045-1661-01 ",.01)
  1. ;;55045-1661-01
  1. ;;9002226.02101,"978,55045-1661-01 ",.02)
  1. ;;55045-1661-01
  1. ;;9002226.02101,"978,55045-1661-02 ",.01)
  1. ;;55045-1661-02
  1. ;;9002226.02101,"978,55045-1661-02 ",.02)
  1. ;;55045-1661-02
  1. ;;9002226.02101,"978,55045-1661-03 ",.01)
  1. ;;55045-1661-03
  1. ;;9002226.02101,"978,55045-1661-03 ",.02)
  1. ;;55045-1661-03
  1. ;;9002226.02101,"978,55045-1661-06 ",.01)
  1. ;;55045-1661-06
  1. ;;9002226.02101,"978,55045-1661-06 ",.02)
  1. ;;55045-1661-06
  1. ;;9002226.02101,"978,55045-1661-08 ",.01)
  1. ;;55045-1661-08
  1. ;;9002226.02101,"978,55045-1661-08 ",.02)
  1. ;;55045-1661-08
  1. ;;9002226.02101,"978,55045-1687-02 ",.01)
  1. ;;55045-1687-02
  1. ;;9002226.02101,"978,55045-1687-02 ",.02)
  1. ;;55045-1687-02