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

BGP8ZH65.m

Go to the documentation of this file.
  1. BGP8ZH65 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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,"868,63874-0114-21 ",.02)
  1. ;;63874-0114-21
  1. ;;9002226.02101,"868,63874-0114-24 ",.01)
  1. ;;63874-0114-24
  1. ;;9002226.02101,"868,63874-0114-24 ",.02)
  1. ;;63874-0114-24
  1. ;;9002226.02101,"868,63874-0114-25 ",.01)
  1. ;;63874-0114-25
  1. ;;9002226.02101,"868,63874-0114-25 ",.02)
  1. ;;63874-0114-25
  1. ;;9002226.02101,"868,63874-0114-28 ",.01)
  1. ;;63874-0114-28
  1. ;;9002226.02101,"868,63874-0114-28 ",.02)
  1. ;;63874-0114-28
  1. ;;9002226.02101,"868,63874-0114-30 ",.01)
  1. ;;63874-0114-30
  1. ;;9002226.02101,"868,63874-0114-30 ",.02)
  1. ;;63874-0114-30
  1. ;;9002226.02101,"868,63874-0114-40 ",.01)
  1. ;;63874-0114-40
  1. ;;9002226.02101,"868,63874-0114-40 ",.02)
  1. ;;63874-0114-40
  1. ;;9002226.02101,"868,63874-0114-50 ",.01)
  1. ;;63874-0114-50
  1. ;;9002226.02101,"868,63874-0114-50 ",.02)
  1. ;;63874-0114-50
  1. ;;9002226.02101,"868,63874-0118-01 ",.01)
  1. ;;63874-0118-01
  1. ;;9002226.02101,"868,63874-0118-01 ",.02)
  1. ;;63874-0118-01
  1. ;;9002226.02101,"868,63874-0118-03 ",.01)
  1. ;;63874-0118-03
  1. ;;9002226.02101,"868,63874-0118-03 ",.02)
  1. ;;63874-0118-03
  1. ;;9002226.02101,"868,63874-0118-06 ",.01)
  1. ;;63874-0118-06
  1. ;;9002226.02101,"868,63874-0118-06 ",.02)
  1. ;;63874-0118-06
  1. ;;9002226.02101,"868,63874-0118-07 ",.01)
  1. ;;63874-0118-07
  1. ;;9002226.02101,"868,63874-0118-07 ",.02)
  1. ;;63874-0118-07
  1. ;;9002226.02101,"868,63874-0118-10 ",.01)
  1. ;;63874-0118-10
  1. ;;9002226.02101,"868,63874-0118-10 ",.02)
  1. ;;63874-0118-10
  1. ;;9002226.02101,"868,63874-0118-12 ",.01)
  1. ;;63874-0118-12
  1. ;;9002226.02101,"868,63874-0118-12 ",.02)
  1. ;;63874-0118-12
  1. ;;9002226.02101,"868,63874-0118-14 ",.01)
  1. ;;63874-0118-14
  1. ;;9002226.02101,"868,63874-0118-14 ",.02)
  1. ;;63874-0118-14
  1. ;;9002226.02101,"868,63874-0118-15 ",.01)
  1. ;;63874-0118-15
  1. ;;9002226.02101,"868,63874-0118-15 ",.02)
  1. ;;63874-0118-15
  1. ;;9002226.02101,"868,63874-0118-18 ",.01)
  1. ;;63874-0118-18
  1. ;;9002226.02101,"868,63874-0118-18 ",.02)
  1. ;;63874-0118-18
  1. ;;9002226.02101,"868,63874-0118-20 ",.01)
  1. ;;63874-0118-20
  1. ;;9002226.02101,"868,63874-0118-20 ",.02)
  1. ;;63874-0118-20
  1. ;;9002226.02101,"868,63874-0118-21 ",.01)
  1. ;;63874-0118-21
  1. ;;9002226.02101,"868,63874-0118-21 ",.02)
  1. ;;63874-0118-21
  1. ;;9002226.02101,"868,63874-0118-24 ",.01)
  1. ;;63874-0118-24
  1. ;;9002226.02101,"868,63874-0118-24 ",.02)
  1. ;;63874-0118-24
  1. ;;9002226.02101,"868,63874-0118-28 ",.01)
  1. ;;63874-0118-28
  1. ;;9002226.02101,"868,63874-0118-28 ",.02)
  1. ;;63874-0118-28
  1. ;;9002226.02101,"868,63874-0118-30 ",.01)
  1. ;;63874-0118-30
  1. ;;9002226.02101,"868,63874-0118-30 ",.02)
  1. ;;63874-0118-30
  1. ;;9002226.02101,"868,63874-0118-40 ",.01)
  1. ;;63874-0118-40
  1. ;;9002226.02101,"868,63874-0118-40 ",.02)
  1. ;;63874-0118-40
  1. ;;9002226.02101,"868,63874-0118-50 ",.01)
  1. ;;63874-0118-50
  1. ;;9002226.02101,"868,63874-0118-50 ",.02)
  1. ;;63874-0118-50
  1. ;;9002226.02101,"868,63874-0118-60 ",.01)
  1. ;;63874-0118-60
  1. ;;9002226.02101,"868,63874-0118-60 ",.02)
  1. ;;63874-0118-60
  1. ;;9002226.02101,"868,63874-0119-01 ",.01)
  1. ;;63874-0119-01
  1. ;;9002226.02101,"868,63874-0119-01 ",.02)
  1. ;;63874-0119-01
  1. ;;9002226.02101,"868,63874-0119-21 ",.01)
  1. ;;63874-0119-21
  1. ;;9002226.02101,"868,63874-0119-21 ",.02)
  1. ;;63874-0119-21
  1. ;;9002226.02101,"868,63874-0119-30 ",.01)
  1. ;;63874-0119-30
  1. ;;9002226.02101,"868,63874-0119-30 ",.02)
  1. ;;63874-0119-30
  1. ;;9002226.02101,"868,63874-0120-01 ",.01)
  1. ;;63874-0120-01
  1. ;;9002226.02101,"868,63874-0120-01 ",.02)
  1. ;;63874-0120-01
  1. ;;9002226.02101,"868,63874-0120-12 ",.01)
  1. ;;63874-0120-12
  1. ;;9002226.02101,"868,63874-0120-12 ",.02)
  1. ;;63874-0120-12
  1. ;;9002226.02101,"868,63874-0120-20 ",.01)
  1. ;;63874-0120-20
  1. ;;9002226.02101,"868,63874-0120-20 ",.02)
  1. ;;63874-0120-20
  1. ;;9002226.02101,"868,63874-0120-30 ",.01)
  1. ;;63874-0120-30
  1. ;;9002226.02101,"868,63874-0120-30 ",.02)
  1. ;;63874-0120-30
  1. ;;9002226.02101,"868,63874-0123-01 ",.01)
  1. ;;63874-0123-01
  1. ;;9002226.02101,"868,63874-0123-01 ",.02)
  1. ;;63874-0123-01
  1. ;;9002226.02101,"868,63874-0123-12 ",.01)
  1. ;;63874-0123-12
  1. ;;9002226.02101,"868,63874-0123-12 ",.02)
  1. ;;63874-0123-12
  1. ;;9002226.02101,"868,63874-0123-14 ",.01)
  1. ;;63874-0123-14
  1. ;;9002226.02101,"868,63874-0123-14 ",.02)
  1. ;;63874-0123-14
  1. ;;9002226.02101,"868,63874-0123-15 ",.01)
  1. ;;63874-0123-15
  1. ;;9002226.02101,"868,63874-0123-15 ",.02)
  1. ;;63874-0123-15
  1. ;;9002226.02101,"868,63874-0123-20 ",.01)
  1. ;;63874-0123-20
  1. ;;9002226.02101,"868,63874-0123-20 ",.02)
  1. ;;63874-0123-20
  1. ;;9002226.02101,"868,63874-0123-21 ",.01)
  1. ;;63874-0123-21
  1. ;;9002226.02101,"868,63874-0123-21 ",.02)
  1. ;;63874-0123-21
  1. ;;9002226.02101,"868,63874-0123-24 ",.01)
  1. ;;63874-0123-24
  1. ;;9002226.02101,"868,63874-0123-24 ",.02)
  1. ;;63874-0123-24
  1. ;;9002226.02101,"868,63874-0123-28 ",.01)
  1. ;;63874-0123-28
  1. ;;9002226.02101,"868,63874-0123-28 ",.02)
  1. ;;63874-0123-28
  1. ;;9002226.02101,"868,63874-0123-30 ",.01)
  1. ;;63874-0123-30
  1. ;;9002226.02101,"868,63874-0123-30 ",.02)
  1. ;;63874-0123-30
  1. ;;9002226.02101,"868,63874-0123-40 ",.01)
  1. ;;63874-0123-40
  1. ;;9002226.02101,"868,63874-0123-40 ",.02)
  1. ;;63874-0123-40
  1. ;;9002226.02101,"868,63874-0123-50 ",.01)
  1. ;;63874-0123-50
  1. ;;9002226.02101,"868,63874-0123-50 ",.02)
  1. ;;63874-0123-50
  1. ;;9002226.02101,"868,63874-0123-60 ",.01)
  1. ;;63874-0123-60
  1. ;;9002226.02101,"868,63874-0123-60 ",.02)
  1. ;;63874-0123-60
  1. ;;9002226.02101,"868,63874-0125-01 ",.01)
  1. ;;63874-0125-01
  1. ;;9002226.02101,"868,63874-0125-01 ",.02)
  1. ;;63874-0125-01
  1. ;;9002226.02101,"868,63874-0125-02 ",.01)
  1. ;;63874-0125-02
  1. ;;9002226.02101,"868,63874-0125-02 ",.02)
  1. ;;63874-0125-02
  1. ;;9002226.02101,"868,63874-0125-10 ",.01)
  1. ;;63874-0125-10
  1. ;;9002226.02101,"868,63874-0125-10 ",.02)
  1. ;;63874-0125-10
  1. ;;9002226.02101,"868,63874-0125-14 ",.01)
  1. ;;63874-0125-14
  1. ;;9002226.02101,"868,63874-0125-14 ",.02)
  1. ;;63874-0125-14
  1. ;;9002226.02101,"868,63874-0125-15 ",.01)
  1. ;;63874-0125-15
  1. ;;9002226.02101,"868,63874-0125-15 ",.02)
  1. ;;63874-0125-15
  1. ;;9002226.02101,"868,63874-0125-20 ",.01)
  1. ;;63874-0125-20
  1. ;;9002226.02101,"868,63874-0125-20 ",.02)
  1. ;;63874-0125-20
  1. ;;9002226.02101,"868,63874-0125-21 ",.01)
  1. ;;63874-0125-21
  1. ;;9002226.02101,"868,63874-0125-21 ",.02)
  1. ;;63874-0125-21
  1. ;;9002226.02101,"868,63874-0125-24 ",.01)
  1. ;;63874-0125-24
  1. ;;9002226.02101,"868,63874-0125-24 ",.02)
  1. ;;63874-0125-24
  1. ;;9002226.02101,"868,63874-0125-28 ",.01)
  1. ;;63874-0125-28
  1. ;;9002226.02101,"868,63874-0125-28 ",.02)
  1. ;;63874-0125-28
  1. ;;9002226.02101,"868,63874-0125-30 ",.01)
  1. ;;63874-0125-30
  1. ;;9002226.02101,"868,63874-0125-30 ",.02)
  1. ;;63874-0125-30
  1. ;;9002226.02101,"868,63874-0125-40 ",.01)
  1. ;;63874-0125-40
  1. ;;9002226.02101,"868,63874-0125-40 ",.02)
  1. ;;63874-0125-40
  1. ;;9002226.02101,"868,63874-0125-60 ",.01)
  1. ;;63874-0125-60
  1. ;;9002226.02101,"868,63874-0125-60 ",.02)
  1. ;;63874-0125-60
  1. ;;9002226.02101,"868,63874-0125-80 ",.01)
  1. ;;63874-0125-80
  1. ;;9002226.02101,"868,63874-0125-80 ",.02)
  1. ;;63874-0125-80
  1. ;;9002226.02101,"868,63874-0127-01 ",.01)
  1. ;;63874-0127-01
  1. ;;9002226.02101,"868,63874-0127-01 ",.02)
  1. ;;63874-0127-01
  1. ;;9002226.02101,"868,63874-0127-05 ",.01)
  1. ;;63874-0127-05
  1. ;;9002226.02101,"868,63874-0127-05 ",.02)
  1. ;;63874-0127-05
  1. ;;9002226.02101,"868,63874-0127-18 ",.01)
  1. ;;63874-0127-18
  1. ;;9002226.02101,"868,63874-0127-18 ",.02)
  1. ;;63874-0127-18
  1. ;;9002226.02101,"868,63874-0127-20 ",.01)
  1. ;;63874-0127-20
  1. ;;9002226.02101,"868,63874-0127-20 ",.02)
  1. ;;63874-0127-20
  1. ;;9002226.02101,"868,63874-0127-21 ",.01)
  1. ;;63874-0127-21
  1. ;;9002226.02101,"868,63874-0127-21 ",.02)
  1. ;;63874-0127-21
  1. ;;9002226.02101,"868,63874-0127-28 ",.01)
  1. ;;63874-0127-28
  1. ;;9002226.02101,"868,63874-0127-28 ",.02)
  1. ;;63874-0127-28
  1. ;;9002226.02101,"868,63874-0127-30 ",.01)
  1. ;;63874-0127-30
  1. ;;9002226.02101,"868,63874-0127-30 ",.02)
  1. ;;63874-0127-30
  1. ;;9002226.02101,"868,63874-0127-40 ",.01)
  1. ;;63874-0127-40
  1. ;;9002226.02101,"868,63874-0127-40 ",.02)
  1. ;;63874-0127-40
  1. ;;9002226.02101,"868,63874-0127-42 ",.01)
  1. ;;63874-0127-42
  1. ;;9002226.02101,"868,63874-0127-42 ",.02)
  1. ;;63874-0127-42
  1. ;;9002226.02101,"868,63874-0143-10 ",.01)
  1. ;;63874-0143-10
  1. ;;9002226.02101,"868,63874-0143-10 ",.02)
  1. ;;63874-0143-10
  1. ;;9002226.02101,"868,63874-0143-15 ",.01)
  1. ;;63874-0143-15
  1. ;;9002226.02101,"868,63874-0143-15 ",.02)
  1. ;;63874-0143-15
  1. ;;9002226.02101,"868,63874-0143-80 ",.01)
  1. ;;63874-0143-80
  1. ;;9002226.02101,"868,63874-0143-80 ",.02)
  1. ;;63874-0143-80
  1. ;;9002226.02101,"868,63874-0144-10 ",.01)
  1. ;;63874-0144-10
  1. ;;9002226.02101,"868,63874-0144-10 ",.02)
  1. ;;63874-0144-10
  1. ;;9002226.02101,"868,63874-0144-15 ",.01)
  1. ;;63874-0144-15
  1. ;;9002226.02101,"868,63874-0144-15 ",.02)
  1. ;;63874-0144-15
  1. ;;9002226.02101,"868,63874-0146-10 ",.01)
  1. ;;63874-0146-10
  1. ;;9002226.02101,"868,63874-0146-10 ",.02)
  1. ;;63874-0146-10
  1. ;;9002226.02101,"868,63874-0146-15 ",.01)
  1. ;;63874-0146-15
  1. ;;9002226.02101,"868,63874-0146-15 ",.02)
  1. ;;63874-0146-15
  1. ;;9002226.02101,"868,63874-0146-20 ",.01)
  1. ;;63874-0146-20
  1. ;;9002226.02101,"868,63874-0146-20 ",.02)
  1. ;;63874-0146-20
  1. ;;9002226.02101,"868,63874-0150-10 ",.01)
  1. ;;63874-0150-10
  1. ;;9002226.02101,"868,63874-0150-10 ",.02)
  1. ;;63874-0150-10
  1. ;;9002226.02101,"868,63874-0150-20 ",.01)
  1. ;;63874-0150-20
  1. ;;9002226.02101,"868,63874-0150-20 ",.02)
  1. ;;63874-0150-20
  1. ;;9002226.02101,"868,63874-0155-10 ",.01)
  1. ;;63874-0155-10
  1. ;;9002226.02101,"868,63874-0155-10 ",.02)
  1. ;;63874-0155-10
  1. ;;9002226.02101,"868,63874-0155-20 ",.01)
  1. ;;63874-0155-20
  1. ;;9002226.02101,"868,63874-0155-20 ",.02)
  1. ;;63874-0155-20
  1. ;;9002226.02101,"868,63874-0156-10 ",.01)
  1. ;;63874-0156-10
  1. ;;9002226.02101,"868,63874-0156-10 ",.02)
  1. ;;63874-0156-10
  1. ;;9002226.02101,"868,63874-0156-15 ",.01)
  1. ;;63874-0156-15
  1. ;;9002226.02101,"868,63874-0156-15 ",.02)
  1. ;;63874-0156-15
  1. ;;9002226.02101,"868,63874-0156-20 ",.01)
  1. ;;63874-0156-20
  1. ;;9002226.02101,"868,63874-0156-20 ",.02)
  1. ;;63874-0156-20
  1. ;;9002226.02101,"868,63874-0159-10 ",.01)
  1. ;;63874-0159-10
  1. ;;9002226.02101,"868,63874-0159-10 ",.02)
  1. ;;63874-0159-10
  1. ;;9002226.02101,"868,63874-0159-20 ",.01)
  1. ;;63874-0159-20
  1. ;;9002226.02101,"868,63874-0159-20 ",.02)
  1. ;;63874-0159-20
  1. ;;9002226.02101,"868,63874-0160-10 ",.01)
  1. ;;63874-0160-10
  1. ;;9002226.02101,"868,63874-0160-10 ",.02)
  1. ;;63874-0160-10
  1. ;;9002226.02101,"868,63874-0160-20 ",.01)
  1. ;;63874-0160-20
  1. ;;9002226.02101,"868,63874-0160-20 ",.02)
  1. ;;63874-0160-20
  1. ;;9002226.02101,"868,63874-0160-48 ",.01)
  1. ;;63874-0160-48
  1. ;;9002226.02101,"868,63874-0160-48 ",.02)
  1. ;;63874-0160-48
  1. ;;9002226.02101,"868,63874-0166-10 ",.01)
  1. ;;63874-0166-10
  1. ;;9002226.02101,"868,63874-0166-10 ",.02)
  1. ;;63874-0166-10
  1. ;;9002226.02101,"868,63874-0166-20 ",.01)
  1. ;;63874-0166-20
  1. ;;9002226.02101,"868,63874-0166-20 ",.02)
  1. ;;63874-0166-20
  1. ;;9002226.02101,"868,63874-0170-10 ",.01)
  1. ;;63874-0170-10
  1. ;;9002226.02101,"868,63874-0170-10 ",.02)
  1. ;;63874-0170-10
  1. ;;9002226.02101,"868,63874-0170-20 ",.01)
  1. ;;63874-0170-20
  1. ;;9002226.02101,"868,63874-0170-20 ",.02)
  1. ;;63874-0170-20
  1. ;;9002226.02101,"868,63874-0232-01 ",.01)
  1. ;;63874-0232-01
  1. ;;9002226.02101,"868,63874-0232-01 ",.02)
  1. ;;63874-0232-01
  1. ;;9002226.02101,"868,63874-0232-02 ",.01)
  1. ;;63874-0232-02
  1. ;;9002226.02101,"868,63874-0232-02 ",.02)
  1. ;;63874-0232-02
  1. ;;9002226.02101,"868,63874-0232-03 ",.01)
  1. ;;63874-0232-03
  1. ;;9002226.02101,"868,63874-0232-03 ",.02)
  1. ;;63874-0232-03
  1. ;;9002226.02101,"868,63874-0232-10 ",.01)
  1. ;;63874-0232-10
  1. ;;9002226.02101,"868,63874-0232-10 ",.02)
  1. ;;63874-0232-10
  1. ;;9002226.02101,"868,63874-0232-12 ",.01)
  1. ;;63874-0232-12
  1. ;;9002226.02101,"868,63874-0232-12 ",.02)
  1. ;;63874-0232-12
  1. ;;9002226.02101,"868,63874-0232-16 ",.01)
  1. ;;63874-0232-16
  1. ;;9002226.02101,"868,63874-0232-16 ",.02)
  1. ;;63874-0232-16
  1. ;;9002226.02101,"868,63874-0232-20 ",.01)
  1. ;;63874-0232-20
  1. ;;9002226.02101,"868,63874-0232-20 ",.02)
  1. ;;63874-0232-20
  1. ;;9002226.02101,"868,63874-0232-21 ",.01)
  1. ;;63874-0232-21