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

BGP0ZD19.m

Go to the documentation of this file.
  1. BGP0ZD19 ;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,"976,52959-0663-30 ",.02)
  1. ;;52959-0663-30
  1. ;;9002226.02101,"976,52959-0663-60 ",.01)
  1. ;;52959-0663-60
  1. ;;9002226.02101,"976,52959-0663-60 ",.02)
  1. ;;52959-0663-60
  1. ;;9002226.02101,"976,52959-0663-90 ",.01)
  1. ;;52959-0663-90
  1. ;;9002226.02101,"976,52959-0663-90 ",.02)
  1. ;;52959-0663-90
  1. ;;9002226.02101,"976,52959-0800-00 ",.01)
  1. ;;52959-0800-00
  1. ;;9002226.02101,"976,52959-0800-00 ",.02)
  1. ;;52959-0800-00
  1. ;;9002226.02101,"976,52959-0800-14 ",.01)
  1. ;;52959-0800-14
  1. ;;9002226.02101,"976,52959-0800-14 ",.02)
  1. ;;52959-0800-14
  1. ;;9002226.02101,"976,52959-0800-15 ",.01)
  1. ;;52959-0800-15
  1. ;;9002226.02101,"976,52959-0800-15 ",.02)
  1. ;;52959-0800-15
  1. ;;9002226.02101,"976,52959-0800-20 ",.01)
  1. ;;52959-0800-20
  1. ;;9002226.02101,"976,52959-0800-20 ",.02)
  1. ;;52959-0800-20
  1. ;;9002226.02101,"976,52959-0800-21 ",.01)
  1. ;;52959-0800-21
  1. ;;9002226.02101,"976,52959-0800-21 ",.02)
  1. ;;52959-0800-21
  1. ;;9002226.02101,"976,52959-0800-24 ",.01)
  1. ;;52959-0800-24
  1. ;;9002226.02101,"976,52959-0800-24 ",.02)
  1. ;;52959-0800-24
  1. ;;9002226.02101,"976,52959-0800-28 ",.01)
  1. ;;52959-0800-28
  1. ;;9002226.02101,"976,52959-0800-28 ",.02)
  1. ;;52959-0800-28
  1. ;;9002226.02101,"976,52959-0800-30 ",.01)
  1. ;;52959-0800-30
  1. ;;9002226.02101,"976,52959-0800-30 ",.02)
  1. ;;52959-0800-30
  1. ;;9002226.02101,"976,52959-0800-40 ",.01)
  1. ;;52959-0800-40
  1. ;;9002226.02101,"976,52959-0800-40 ",.02)
  1. ;;52959-0800-40
  1. ;;9002226.02101,"976,52959-0800-42 ",.01)
  1. ;;52959-0800-42
  1. ;;9002226.02101,"976,52959-0800-42 ",.02)
  1. ;;52959-0800-42
  1. ;;9002226.02101,"976,52959-0800-45 ",.01)
  1. ;;52959-0800-45
  1. ;;9002226.02101,"976,52959-0800-45 ",.02)
  1. ;;52959-0800-45
  1. ;;9002226.02101,"976,52959-0800-60 ",.01)
  1. ;;52959-0800-60
  1. ;;9002226.02101,"976,52959-0800-60 ",.02)
  1. ;;52959-0800-60
  1. ;;9002226.02101,"976,52989-0512-30 ",.01)
  1. ;;52989-0512-30
  1. ;;9002226.02101,"976,52989-0512-30 ",.02)
  1. ;;52989-0512-30
  1. ;;9002226.02101,"976,53265-0267-10 ",.01)
  1. ;;53265-0267-10
  1. ;;9002226.02101,"976,53265-0267-10 ",.02)
  1. ;;53265-0267-10
  1. ;;9002226.02101,"976,53265-0267-11 ",.01)
  1. ;;53265-0267-11
  1. ;;9002226.02101,"976,53265-0267-11 ",.02)
  1. ;;53265-0267-11
  1. ;;9002226.02101,"976,53265-0268-10 ",.01)
  1. ;;53265-0268-10
  1. ;;9002226.02101,"976,53265-0268-10 ",.02)
  1. ;;53265-0268-10
  1. ;;9002226.02101,"976,53265-0268-50 ",.01)
  1. ;;53265-0268-50
  1. ;;9002226.02101,"976,53265-0268-50 ",.02)
  1. ;;53265-0268-50
  1. ;;9002226.02101,"976,53265-0269-10 ",.01)
  1. ;;53265-0269-10
  1. ;;9002226.02101,"976,53265-0269-10 ",.02)
  1. ;;53265-0269-10
  1. ;;9002226.02101,"976,53265-0269-11 ",.01)
  1. ;;53265-0269-11
  1. ;;9002226.02101,"976,53265-0269-11 ",.02)
  1. ;;53265-0269-11
  1. ;;9002226.02101,"976,53265-0269-60 ",.01)
  1. ;;53265-0269-60
  1. ;;9002226.02101,"976,53265-0269-60 ",.02)
  1. ;;53265-0269-60
  1. ;;9002226.02101,"976,53265-0363-10 ",.01)
  1. ;;53265-0363-10
  1. ;;9002226.02101,"976,53265-0363-10 ",.02)
  1. ;;53265-0363-10
  1. ;;9002226.02101,"976,53265-0363-11 ",.01)
  1. ;;53265-0363-11
  1. ;;9002226.02101,"976,53265-0363-11 ",.02)
  1. ;;53265-0363-11
  1. ;;9002226.02101,"976,53265-0363-50 ",.01)
  1. ;;53265-0363-50
  1. ;;9002226.02101,"976,53265-0363-50 ",.02)
  1. ;;53265-0363-50
  1. ;;9002226.02101,"976,53265-0364-10 ",.01)
  1. ;;53265-0364-10
  1. ;;9002226.02101,"976,53265-0364-10 ",.02)
  1. ;;53265-0364-10
  1. ;;9002226.02101,"976,53265-0364-11 ",.01)
  1. ;;53265-0364-11
  1. ;;9002226.02101,"976,53265-0364-11 ",.02)
  1. ;;53265-0364-11
  1. ;;9002226.02101,"976,53265-0364-50 ",.01)
  1. ;;53265-0364-50
  1. ;;9002226.02101,"976,53265-0364-50 ",.02)
  1. ;;53265-0364-50
  1. ;;9002226.02101,"976,53489-0478-01 ",.01)
  1. ;;53489-0478-01
  1. ;;9002226.02101,"976,53489-0478-01 ",.02)
  1. ;;53489-0478-01
  1. ;;9002226.02101,"976,53489-0478-05 ",.01)
  1. ;;53489-0478-05
  1. ;;9002226.02101,"976,53489-0478-05 ",.02)
  1. ;;53489-0478-05
  1. ;;9002226.02101,"976,53489-0479-01 ",.01)
  1. ;;53489-0479-01
  1. ;;9002226.02101,"976,53489-0479-01 ",.02)
  1. ;;53489-0479-01
  1. ;;9002226.02101,"976,53489-0479-05 ",.01)
  1. ;;53489-0479-05
  1. ;;9002226.02101,"976,53489-0479-05 ",.02)
  1. ;;53489-0479-05
  1. ;;9002226.02101,"976,53489-0506-01 ",.01)
  1. ;;53489-0506-01
  1. ;;9002226.02101,"976,53489-0506-01 ",.02)
  1. ;;53489-0506-01
  1. ;;9002226.02101,"976,53716-0189-50 ",.01)
  1. ;;53716-0189-50
  1. ;;9002226.02101,"976,53716-0189-50 ",.02)
  1. ;;53716-0189-50
  1. ;;9002226.02101,"976,53746-0131-01 ",.01)
  1. ;;53746-0131-01
  1. ;;9002226.02101,"976,53746-0131-01 ",.02)
  1. ;;53746-0131-01
  1. ;;9002226.02101,"976,53746-0131-05 ",.01)
  1. ;;53746-0131-05
  1. ;;9002226.02101,"976,53746-0131-05 ",.02)
  1. ;;53746-0131-05
  1. ;;9002226.02101,"976,53746-0131-18 ",.01)
  1. ;;53746-0131-18
  1. ;;9002226.02101,"976,53746-0131-18 ",.02)
  1. ;;53746-0131-18
  1. ;;9002226.02101,"976,53746-0131-24 ",.01)
  1. ;;53746-0131-24
  1. ;;9002226.02101,"976,53746-0131-24 ",.02)
  1. ;;53746-0131-24
  1. ;;9002226.02101,"976,53746-0131-27 ",.01)
  1. ;;53746-0131-27
  1. ;;9002226.02101,"976,53746-0131-27 ",.02)
  1. ;;53746-0131-27
  1. ;;9002226.02101,"976,53746-0131-50 ",.01)
  1. ;;53746-0131-50
  1. ;;9002226.02101,"976,53746-0131-50 ",.02)
  1. ;;53746-0131-50
  1. ;;9002226.02101,"976,53746-0131-60 ",.01)
  1. ;;53746-0131-60
  1. ;;9002226.02101,"976,53746-0131-60 ",.02)
  1. ;;53746-0131-60
  1. ;;9002226.02101,"976,53746-0131-90 ",.01)
  1. ;;53746-0131-90
  1. ;;9002226.02101,"976,53746-0131-90 ",.02)
  1. ;;53746-0131-90
  1. ;;9002226.02101,"976,53746-0132-01 ",.01)
  1. ;;53746-0132-01
  1. ;;9002226.02101,"976,53746-0132-01 ",.02)
  1. ;;53746-0132-01
  1. ;;9002226.02101,"976,53746-0132-05 ",.01)
  1. ;;53746-0132-05
  1. ;;9002226.02101,"976,53746-0132-05 ",.02)
  1. ;;53746-0132-05
  1. ;;9002226.02101,"976,53746-0132-18 ",.01)
  1. ;;53746-0132-18
  1. ;;9002226.02101,"976,53746-0132-18 ",.02)
  1. ;;53746-0132-18
  1. ;;9002226.02101,"976,53746-0132-24 ",.01)
  1. ;;53746-0132-24
  1. ;;9002226.02101,"976,53746-0132-24 ",.02)
  1. ;;53746-0132-24
  1. ;;9002226.02101,"976,53746-0132-27 ",.01)
  1. ;;53746-0132-27
  1. ;;9002226.02101,"976,53746-0132-27 ",.02)
  1. ;;53746-0132-27
  1. ;;9002226.02101,"976,53746-0132-30 ",.01)
  1. ;;53746-0132-30
  1. ;;9002226.02101,"976,53746-0132-30 ",.02)
  1. ;;53746-0132-30
  1. ;;9002226.02101,"976,53746-0132-50 ",.01)
  1. ;;53746-0132-50
  1. ;;9002226.02101,"976,53746-0132-50 ",.02)
  1. ;;53746-0132-50
  1. ;;9002226.02101,"976,53746-0132-60 ",.01)
  1. ;;53746-0132-60
  1. ;;9002226.02101,"976,53746-0132-60 ",.02)
  1. ;;53746-0132-60
  1. ;;9002226.02101,"976,53746-0132-90 ",.01)
  1. ;;53746-0132-90
  1. ;;9002226.02101,"976,53746-0132-90 ",.02)
  1. ;;53746-0132-90
  1. ;;9002226.02101,"976,53746-0137-01 ",.01)
  1. ;;53746-0137-01
  1. ;;9002226.02101,"976,53746-0137-01 ",.02)
  1. ;;53746-0137-01
  1. ;;9002226.02101,"976,53746-0137-05 ",.01)
  1. ;;53746-0137-05
  1. ;;9002226.02101,"976,53746-0137-05 ",.02)
  1. ;;53746-0137-05
  1. ;;9002226.02101,"976,53746-0137-24 ",.01)
  1. ;;53746-0137-24
  1. ;;9002226.02101,"976,53746-0137-24 ",.02)
  1. ;;53746-0137-24
  1. ;;9002226.02101,"976,53746-0137-50 ",.01)
  1. ;;53746-0137-50
  1. ;;9002226.02101,"976,53746-0137-50 ",.02)
  1. ;;53746-0137-50
  1. ;;9002226.02101,"976,53746-0137-90 ",.01)
  1. ;;53746-0137-90
  1. ;;9002226.02101,"976,53746-0137-90 ",.02)
  1. ;;53746-0137-90
  1. ;;9002226.02101,"976,53746-0188-01 ",.01)
  1. ;;53746-0188-01
  1. ;;9002226.02101,"976,53746-0188-01 ",.02)
  1. ;;53746-0188-01
  1. ;;9002226.02101,"976,53746-0188-05 ",.01)
  1. ;;53746-0188-05
  1. ;;9002226.02101,"976,53746-0188-05 ",.02)
  1. ;;53746-0188-05
  1. ;;9002226.02101,"976,53746-0188-50 ",.01)
  1. ;;53746-0188-50
  1. ;;9002226.02101,"976,53746-0188-50 ",.02)
  1. ;;53746-0188-50
  1. ;;9002226.02101,"976,53746-0189-01 ",.01)
  1. ;;53746-0189-01
  1. ;;9002226.02101,"976,53746-0189-01 ",.02)
  1. ;;53746-0189-01
  1. ;;9002226.02101,"976,53746-0189-05 ",.01)
  1. ;;53746-0189-05
  1. ;;9002226.02101,"976,53746-0189-05 ",.02)
  1. ;;53746-0189-05
  1. ;;9002226.02101,"976,53746-0190-01 ",.01)
  1. ;;53746-0190-01
  1. ;;9002226.02101,"976,53746-0190-01 ",.02)
  1. ;;53746-0190-01
  1. ;;9002226.02101,"976,53746-0190-05 ",.01)
  1. ;;53746-0190-05
  1. ;;9002226.02101,"976,53746-0190-05 ",.02)
  1. ;;53746-0190-05
  1. ;;9002226.02101,"976,53746-0190-50 ",.01)
  1. ;;53746-0190-50
  1. ;;9002226.02101,"976,53746-0190-50 ",.02)
  1. ;;53746-0190-50
  1. ;;9002226.02101,"976,54560-4002-01 ",.01)
  1. ;;54560-4002-01
  1. ;;9002226.02101,"976,54560-4002-01 ",.02)
  1. ;;54560-4002-01
  1. ;;9002226.02101,"976,54569-0275-00 ",.01)
  1. ;;54569-0275-00
  1. ;;9002226.02101,"976,54569-0275-00 ",.02)
  1. ;;54569-0275-00
  1. ;;9002226.02101,"976,54569-0275-01 ",.01)
  1. ;;54569-0275-01
  1. ;;9002226.02101,"976,54569-0275-01 ",.02)
  1. ;;54569-0275-01
  1. ;;9002226.02101,"976,54569-0275-05 ",.01)
  1. ;;54569-0275-05
  1. ;;9002226.02101,"976,54569-0275-05 ",.02)
  1. ;;54569-0275-05
  1. ;;9002226.02101,"976,54569-0277-01 ",.01)
  1. ;;54569-0277-01
  1. ;;9002226.02101,"976,54569-0277-01 ",.02)
  1. ;;54569-0277-01
  1. ;;9002226.02101,"976,54569-0277-03 ",.01)
  1. ;;54569-0277-03
  1. ;;9002226.02101,"976,54569-0277-03 ",.02)
  1. ;;54569-0277-03
  1. ;;9002226.02101,"976,54569-0277-04 ",.01)
  1. ;;54569-0277-04
  1. ;;9002226.02101,"976,54569-0277-04 ",.02)
  1. ;;54569-0277-04
  1. ;;9002226.02101,"976,54569-0285-01 ",.01)
  1. ;;54569-0285-01
  1. ;;9002226.02101,"976,54569-0285-01 ",.02)
  1. ;;54569-0285-01
  1. ;;9002226.02101,"976,54569-0285-02 ",.01)
  1. ;;54569-0285-02
  1. ;;9002226.02101,"976,54569-0285-02 ",.02)
  1. ;;54569-0285-02
  1. ;;9002226.02101,"976,54569-0285-03 ",.01)
  1. ;;54569-0285-03
  1. ;;9002226.02101,"976,54569-0285-03 ",.02)
  1. ;;54569-0285-03
  1. ;;9002226.02101,"976,54569-0285-04 ",.01)
  1. ;;54569-0285-04
  1. ;;9002226.02101,"976,54569-0285-04 ",.02)
  1. ;;54569-0285-04
  1. ;;9002226.02101,"976,54569-0285-05 ",.01)
  1. ;;54569-0285-05
  1. ;;9002226.02101,"976,54569-0285-05 ",.02)
  1. ;;54569-0285-05
  1. ;;9002226.02101,"976,54569-0285-06 ",.01)
  1. ;;54569-0285-06
  1. ;;9002226.02101,"976,54569-0285-06 ",.02)
  1. ;;54569-0285-06
  1. ;;9002226.02101,"976,54569-0285-07 ",.01)
  1. ;;54569-0285-07
  1. ;;9002226.02101,"976,54569-0285-07 ",.02)
  1. ;;54569-0285-07
  1. ;;9002226.02101,"976,54569-0285-08 ",.01)
  1. ;;54569-0285-08
  1. ;;9002226.02101,"976,54569-0285-08 ",.02)
  1. ;;54569-0285-08
  1. ;;9002226.02101,"976,54569-0287-00 ",.01)
  1. ;;54569-0287-00
  1. ;;9002226.02101,"976,54569-0287-00 ",.02)
  1. ;;54569-0287-00
  1. ;;9002226.02101,"976,54569-0287-01 ",.01)
  1. ;;54569-0287-01
  1. ;;9002226.02101,"976,54569-0287-01 ",.02)
  1. ;;54569-0287-01
  1. ;;9002226.02101,"976,54569-0287-02 ",.01)
  1. ;;54569-0287-02
  1. ;;9002226.02101,"976,54569-0287-02 ",.02)
  1. ;;54569-0287-02
  1. ;;9002226.02101,"976,54569-0287-03 ",.01)
  1. ;;54569-0287-03
  1. ;;9002226.02101,"976,54569-0287-03 ",.02)
  1. ;;54569-0287-03
  1. ;;9002226.02101,"976,54569-0287-04 ",.01)
  1. ;;54569-0287-04
  1. ;;9002226.02101,"976,54569-0287-04 ",.02)
  1. ;;54569-0287-04
  1. ;;9002226.02101,"976,54569-0287-05 ",.01)
  1. ;;54569-0287-05
  1. ;;9002226.02101,"976,54569-0287-05 ",.02)
  1. ;;54569-0287-05
  1. ;;9002226.02101,"976,54569-0287-07 ",.01)
  1. ;;54569-0287-07
  1. ;;9002226.02101,"976,54569-0287-07 ",.02)
  1. ;;54569-0287-07
  1. ;;9002226.02101,"976,54569-0287-08 ",.01)
  1. ;;54569-0287-08
  1. ;;9002226.02101,"976,54569-0287-08 ",.02)
  1. ;;54569-0287-08
  1. ;;9002226.02101,"976,54569-0287-09 ",.01)
  1. ;;54569-0287-09
  1. ;;9002226.02101,"976,54569-0287-09 ",.02)
  1. ;;54569-0287-09
  1. ;;9002226.02101,"976,54569-0287-60 ",.01)
  1. ;;54569-0287-60
  1. ;;9002226.02101,"976,54569-0287-60 ",.02)
  1. ;;54569-0287-60
  1. ;;9002226.02101,"976,54569-0289-00 ",.01)
  1. ;;54569-0289-00
  1. ;;9002226.02101,"976,54569-0289-00 ",.02)
  1. ;;54569-0289-00
  1. ;;9002226.02101,"976,54569-0289-01 ",.01)
  1. ;;54569-0289-01
  1. ;;9002226.02101,"976,54569-0289-01 ",.02)
  1. ;;54569-0289-01
  1. ;;9002226.02101,"976,54569-0289-02 ",.01)
  1. ;;54569-0289-02
  1. ;;9002226.02101,"976,54569-0289-02 ",.02)
  1. ;;54569-0289-02
  1. ;;9002226.02101,"976,54569-0289-03 ",.01)
  1. ;;54569-0289-03
  1. ;;9002226.02101,"976,54569-0289-03 ",.02)
  1. ;;54569-0289-03
  1. ;;9002226.02101,"976,54569-0289-04 ",.01)
  1. ;;54569-0289-04
  1. ;;9002226.02101,"976,54569-0289-04 ",.02)
  1. ;;54569-0289-04
  1. ;;9002226.02101,"976,54569-0289-05 ",.01)
  1. ;;54569-0289-05
  1. ;;9002226.02101,"976,54569-0289-05 ",.02)
  1. ;;54569-0289-05
  1. ;;9002226.02101,"976,54569-0289-06 ",.01)
  1. ;;54569-0289-06
  1. ;;9002226.02101,"976,54569-0289-06 ",.02)
  1. ;;54569-0289-06
  1. ;;9002226.02101,"976,54569-0289-07 ",.01)
  1. ;;54569-0289-07
  1. ;;9002226.02101,"976,54569-0289-07 ",.02)
  1. ;;54569-0289-07
  1. ;;9002226.02101,"976,54569-0289-08 ",.01)
  1. ;;54569-0289-08
  1. ;;9002226.02101,"976,54569-0289-08 ",.02)
  1. ;;54569-0289-08
  1. ;;9002226.02101,"976,54569-0289-09 ",.01)
  1. ;;54569-0289-09
  1. ;;9002226.02101,"976,54569-0289-09 ",.02)
  1. ;;54569-0289-09
  1. ;;9002226.02101,"976,54569-0293-01 ",.01)
  1. ;;54569-0293-01
  1. ;;9002226.02101,"976,54569-0293-01 ",.02)
  1. ;;54569-0293-01
  1. ;;9002226.02101,"976,54569-0294-01 ",.01)
  1. ;;54569-0294-01
  1. ;;9002226.02101,"976,54569-0294-01 ",.02)
  1. ;;54569-0294-01
  1. ;;9002226.02101,"976,54569-0294-02 ",.01)
  1. ;;54569-0294-02
  1. ;;9002226.02101,"976,54569-0294-02 ",.02)
  1. ;;54569-0294-02
  1. ;;9002226.02101,"976,54569-0296-06 ",.01)
  1. ;;54569-0296-06
  1. ;;9002226.02101,"976,54569-0296-06 ",.02)
  1. ;;54569-0296-06
  1. ;;9002226.02101,"976,54569-1467-07 ",.01)
  1. ;;54569-1467-07
  1. ;;9002226.02101,"976,54569-1467-07 ",.02)
  1. ;;54569-1467-07
  1. ;;9002226.02101,"976,54569-1518-00 ",.01)
  1. ;;54569-1518-00
  1. ;;9002226.02101,"976,54569-1518-00 ",.02)
  1. ;;54569-1518-00
  1. ;;9002226.02101,"976,54569-1518-01 ",.01)
  1. ;;54569-1518-01
  1. ;;9002226.02101,"976,54569-1518-01 ",.02)
  1. ;;54569-1518-01
  1. ;;9002226.02101,"976,54569-1518-02 ",.01)
  1. ;;54569-1518-02
  1. ;;9002226.02101,"976,54569-1518-02 ",.02)
  1. ;;54569-1518-02
  1. ;;9002226.02101,"976,54569-1518-03 ",.01)
  1. ;;54569-1518-03
  1. ;;9002226.02101,"976,54569-1518-03 ",.02)
  1. ;;54569-1518-03
  1. ;;9002226.02101,"976,54569-1763-03 ",.01)
  1. ;;54569-1763-03
  1. ;;9002226.02101,"976,54569-1763-03 ",.02)
  1. ;;54569-1763-03
  1. ;;9002226.02101,"976,54569-2105-01 ",.01)
  1. ;;54569-2105-01
  1. ;;9002226.02101,"976,54569-2105-01 ",.02)
  1. ;;54569-2105-01
  1. ;;9002226.02101,"976,54569-2155-01 ",.01)
  1. ;;54569-2155-01