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

BGP47D82.m

Go to the documentation of this file.
  1. BGP47D82 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
  1. ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
  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,"734,68820-0019-16 ",.02)
  1. ;;68820-0019-16
  1. ;;9002226.02101,"734,68820-0019-17 ",.01)
  1. ;;68820-0019-17
  1. ;;9002226.02101,"734,68820-0019-17 ",.02)
  1. ;;68820-0019-17
  1. ;;9002226.02101,"734,68820-0043-08 ",.01)
  1. ;;68820-0043-08
  1. ;;9002226.02101,"734,68820-0043-08 ",.02)
  1. ;;68820-0043-08
  1. ;;9002226.02101,"734,68820-0043-10 ",.01)
  1. ;;68820-0043-10
  1. ;;9002226.02101,"734,68820-0043-10 ",.02)
  1. ;;68820-0043-10
  1. ;;9002226.02101,"734,68820-0063-06 ",.01)
  1. ;;68820-0063-06
  1. ;;9002226.02101,"734,68820-0063-06 ",.02)
  1. ;;68820-0063-06
  1. ;;9002226.02101,"734,68820-0063-09 ",.01)
  1. ;;68820-0063-09
  1. ;;9002226.02101,"734,68820-0063-09 ",.02)
  1. ;;68820-0063-09
  1. ;;9002226.02101,"734,68820-0063-19 ",.01)
  1. ;;68820-0063-19
  1. ;;9002226.02101,"734,68820-0063-19 ",.02)
  1. ;;68820-0063-19
  1. ;;9002226.02101,"734,68820-0064-17 ",.01)
  1. ;;68820-0064-17
  1. ;;9002226.02101,"734,68820-0064-17 ",.02)
  1. ;;68820-0064-17
  1. ;;9002226.02101,"734,68820-0064-37 ",.01)
  1. ;;68820-0064-37
  1. ;;9002226.02101,"734,68820-0064-37 ",.02)
  1. ;;68820-0064-37
  1. ;;9002226.02101,"734,68820-0065-17 ",.01)
  1. ;;68820-0065-17
  1. ;;9002226.02101,"734,68820-0065-17 ",.02)
  1. ;;68820-0065-17
  1. ;;9002226.02101,"734,68820-0065-37 ",.01)
  1. ;;68820-0065-37
  1. ;;9002226.02101,"734,68820-0065-37 ",.02)
  1. ;;68820-0065-37
  1. ;;9002226.02101,"734,76439-0101-10 ",.01)
  1. ;;76439-0101-10
  1. ;;9002226.02101,"734,76439-0101-10 ",.02)
  1. ;;76439-0101-10
  1. ;;9002226.02101,"734,76439-0101-50 ",.01)
  1. ;;76439-0101-50
  1. ;;9002226.02101,"734,76439-0101-50 ",.02)
  1. ;;76439-0101-50
  1. ;;9002226.02101,"734,76439-0102-10 ",.01)
  1. ;;76439-0102-10
  1. ;;9002226.02101,"734,76439-0102-10 ",.02)
  1. ;;76439-0102-10
  1. ;;9002226.02101,"734,76439-0102-50 ",.01)
  1. ;;76439-0102-50
  1. ;;9002226.02101,"734,76439-0102-50 ",.02)
  1. ;;76439-0102-50
  1. ;;9002226.02101,"734,76439-0103-10 ",.01)
  1. ;;76439-0103-10
  1. ;;9002226.02101,"734,76439-0103-10 ",.02)
  1. ;;76439-0103-10
  1. ;;9002226.02101,"734,76439-0103-50 ",.01)
  1. ;;76439-0103-50
  1. ;;9002226.02101,"734,76439-0103-50 ",.02)
  1. ;;76439-0103-50
  1. ;;9002226.02101,"734,76439-0104-10 ",.01)
  1. ;;76439-0104-10
  1. ;;9002226.02101,"734,76439-0104-10 ",.02)
  1. ;;76439-0104-10
  1. ;;9002226.02101,"734,76439-0104-50 ",.01)
  1. ;;76439-0104-50
  1. ;;9002226.02101,"734,76439-0104-50 ",.02)
  1. ;;76439-0104-50
  1. ;;9002226.02101,"734,99207-0460-10 ",.01)
  1. ;;99207-0460-10
  1. ;;9002226.02101,"734,99207-0460-10 ",.02)
  1. ;;99207-0460-10
  1. ;;9002226.02101,"734,99207-0460-30 ",.01)
  1. ;;99207-0460-30
  1. ;;9002226.02101,"734,99207-0460-30 ",.02)
  1. ;;99207-0460-30
  1. ;;9002226.02101,"734,99207-0461-10 ",.01)
  1. ;;99207-0461-10
  1. ;;9002226.02101,"734,99207-0461-10 ",.02)
  1. ;;99207-0461-10
  1. ;;9002226.02101,"734,99207-0461-30 ",.01)
  1. ;;99207-0461-30
  1. ;;9002226.02101,"734,99207-0461-30 ",.02)
  1. ;;99207-0461-30
  1. ;;9002226.02101,"734,99207-0462-10 ",.01)
  1. ;;99207-0462-10
  1. ;;9002226.02101,"734,99207-0462-10 ",.02)
  1. ;;99207-0462-10
  1. ;;9002226.02101,"734,99207-0462-30 ",.01)
  1. ;;99207-0462-30
  1. ;;9002226.02101,"734,99207-0462-30 ",.02)
  1. ;;99207-0462-30
  1. ;;9002226.02101,"734,99207-0463-30 ",.01)
  1. ;;99207-0463-30
  1. ;;9002226.02101,"734,99207-0463-30 ",.02)
  1. ;;99207-0463-30
  1. ;;9002226.02101,"734,99207-0464-30 ",.01)
  1. ;;99207-0464-30
  1. ;;9002226.02101,"734,99207-0464-30 ",.02)
  1. ;;99207-0464-30
  1. ;;9002226.02101,"734,99207-0465-30 ",.01)
  1. ;;99207-0465-30
  1. ;;9002226.02101,"734,99207-0465-30 ",.02)
  1. ;;99207-0465-30
  1. ;;9002226.02101,"734,99207-0466-30 ",.01)
  1. ;;99207-0466-30
  1. ;;9002226.02101,"734,99207-0466-30 ",.02)
  1. ;;99207-0466-30
  1. ;;9002226.02101,"734,99207-0467-30 ",.01)
  1. ;;99207-0467-30
  1. ;;9002226.02101,"734,99207-0467-30 ",.02)
  1. ;;99207-0467-30
  1. ;;9002226.02101,"734,99207-0490-10 ",.01)
  1. ;;99207-0490-10
  1. ;;9002226.02101,"734,99207-0490-10 ",.02)
  1. ;;99207-0490-10
  1. ;;9002226.02101,"734,99207-0491-10 ",.01)
  1. ;;99207-0491-10
  1. ;;9002226.02101,"734,99207-0491-10 ",.02)
  1. ;;99207-0491-10
  1. ;;9002226.02101,"734,99207-0491-11 ",.01)
  1. ;;99207-0491-11
  1. ;;9002226.02101,"734,99207-0491-11 ",.02)
  1. ;;99207-0491-11
  1. ;;9002226.02101,"734,99207-0492-11 ",.01)
  1. ;;99207-0492-11
  1. ;;9002226.02101,"734,99207-0492-11 ",.02)
  1. ;;99207-0492-11
  1. ;;9002226.02101,"734,99207-0492-50 ",.01)
  1. ;;99207-0492-50
  1. ;;9002226.02101,"734,99207-0492-50 ",.02)
  1. ;;99207-0492-50
  1. ;;9002226.02101,"734,99207-0497-05 ",.01)
  1. ;;99207-0497-05
  1. ;;9002226.02101,"734,99207-0497-05 ",.02)
  1. ;;99207-0497-05
  1. ;;9002226.02101,"734,99207-0498-05 ",.01)
  1. ;;99207-0498-05
  1. ;;9002226.02101,"734,99207-0498-05 ",.02)
  1. ;;99207-0498-05
  1. ;;9002226.02101,"734,99207-0499-05 ",.01)
  1. ;;99207-0499-05
  1. ;;9002226.02101,"734,99207-0499-05 ",.02)
  1. ;;99207-0499-05
  1. ;;9002226.02101,"734,99207-0499-10 ",.01)
  1. ;;99207-0499-10
  1. ;;9002226.02101,"734,99207-0499-10 ",.02)
  1. ;;99207-0499-10
  1. ;;9002226.02101,"734,99207-0499-11 ",.01)
  1. ;;99207-0499-11
  1. ;;9002226.02101,"734,99207-0499-11 ",.02)
  1. ;;99207-0499-11