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

BGP0ZD33.m

Go to the documentation of this file.
  1. BGP0ZD33 ;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,58016-0694-60 ",.02)
  1. ;;58016-0694-60
  1. ;;9002226.02101,"976,58016-0694-73 ",.01)
  1. ;;58016-0694-73
  1. ;;9002226.02101,"976,58016-0694-73 ",.02)
  1. ;;58016-0694-73
  1. ;;9002226.02101,"976,58016-0694-89 ",.01)
  1. ;;58016-0694-89
  1. ;;9002226.02101,"976,58016-0694-89 ",.02)
  1. ;;58016-0694-89
  1. ;;9002226.02101,"976,58016-0694-90 ",.01)
  1. ;;58016-0694-90
  1. ;;9002226.02101,"976,58016-0694-90 ",.02)
  1. ;;58016-0694-90
  1. ;;9002226.02101,"976,58016-0705-00 ",.01)
  1. ;;58016-0705-00
  1. ;;9002226.02101,"976,58016-0705-00 ",.02)
  1. ;;58016-0705-00
  1. ;;9002226.02101,"976,58016-0705-07 ",.01)
  1. ;;58016-0705-07
  1. ;;9002226.02101,"976,58016-0705-07 ",.02)
  1. ;;58016-0705-07
  1. ;;9002226.02101,"976,58016-0705-10 ",.01)
  1. ;;58016-0705-10
  1. ;;9002226.02101,"976,58016-0705-10 ",.02)
  1. ;;58016-0705-10
  1. ;;9002226.02101,"976,58016-0705-14 ",.01)
  1. ;;58016-0705-14
  1. ;;9002226.02101,"976,58016-0705-14 ",.02)
  1. ;;58016-0705-14
  1. ;;9002226.02101,"976,58016-0705-15 ",.01)
  1. ;;58016-0705-15
  1. ;;9002226.02101,"976,58016-0705-15 ",.02)
  1. ;;58016-0705-15
  1. ;;9002226.02101,"976,58016-0705-20 ",.01)
  1. ;;58016-0705-20
  1. ;;9002226.02101,"976,58016-0705-20 ",.02)
  1. ;;58016-0705-20
  1. ;;9002226.02101,"976,58016-0705-21 ",.01)
  1. ;;58016-0705-21
  1. ;;9002226.02101,"976,58016-0705-21 ",.02)
  1. ;;58016-0705-21
  1. ;;9002226.02101,"976,58016-0705-28 ",.01)
  1. ;;58016-0705-28
  1. ;;9002226.02101,"976,58016-0705-28 ",.02)
  1. ;;58016-0705-28
  1. ;;9002226.02101,"976,58016-0705-30 ",.01)
  1. ;;58016-0705-30
  1. ;;9002226.02101,"976,58016-0705-30 ",.02)
  1. ;;58016-0705-30
  1. ;;9002226.02101,"976,58016-0705-40 ",.01)
  1. ;;58016-0705-40
  1. ;;9002226.02101,"976,58016-0705-40 ",.02)
  1. ;;58016-0705-40
  1. ;;9002226.02101,"976,58016-0705-50 ",.01)
  1. ;;58016-0705-50
  1. ;;9002226.02101,"976,58016-0705-50 ",.02)
  1. ;;58016-0705-50
  1. ;;9002226.02101,"976,58016-0705-60 ",.01)
  1. ;;58016-0705-60
  1. ;;9002226.02101,"976,58016-0705-60 ",.02)
  1. ;;58016-0705-60
  1. ;;9002226.02101,"976,58016-0705-90 ",.01)
  1. ;;58016-0705-90
  1. ;;9002226.02101,"976,58016-0705-90 ",.02)
  1. ;;58016-0705-90
  1. ;;9002226.02101,"976,58016-0705-97 ",.01)
  1. ;;58016-0705-97
  1. ;;9002226.02101,"976,58016-0705-97 ",.02)
  1. ;;58016-0705-97
  1. ;;9002226.02101,"976,58016-0743-00 ",.01)
  1. ;;58016-0743-00
  1. ;;9002226.02101,"976,58016-0743-00 ",.02)
  1. ;;58016-0743-00
  1. ;;9002226.02101,"976,58016-0743-02 ",.01)
  1. ;;58016-0743-02
  1. ;;9002226.02101,"976,58016-0743-02 ",.02)
  1. ;;58016-0743-02
  1. ;;9002226.02101,"976,58016-0743-03 ",.01)
  1. ;;58016-0743-03
  1. ;;9002226.02101,"976,58016-0743-03 ",.02)
  1. ;;58016-0743-03
  1. ;;9002226.02101,"976,58016-0743-12 ",.01)
  1. ;;58016-0743-12
  1. ;;9002226.02101,"976,58016-0743-12 ",.02)
  1. ;;58016-0743-12
  1. ;;9002226.02101,"976,58016-0743-15 ",.01)
  1. ;;58016-0743-15
  1. ;;9002226.02101,"976,58016-0743-15 ",.02)
  1. ;;58016-0743-15
  1. ;;9002226.02101,"976,58016-0743-20 ",.01)
  1. ;;58016-0743-20
  1. ;;9002226.02101,"976,58016-0743-20 ",.02)
  1. ;;58016-0743-20
  1. ;;9002226.02101,"976,58016-0743-30 ",.01)
  1. ;;58016-0743-30
  1. ;;9002226.02101,"976,58016-0743-30 ",.02)
  1. ;;58016-0743-30
  1. ;;9002226.02101,"976,58016-0743-60 ",.01)
  1. ;;58016-0743-60
  1. ;;9002226.02101,"976,58016-0743-60 ",.02)
  1. ;;58016-0743-60
  1. ;;9002226.02101,"976,58016-0743-73 ",.01)
  1. ;;58016-0743-73
  1. ;;9002226.02101,"976,58016-0743-73 ",.02)
  1. ;;58016-0743-73
  1. ;;9002226.02101,"976,58016-0743-89 ",.01)
  1. ;;58016-0743-89
  1. ;;9002226.02101,"976,58016-0743-89 ",.02)
  1. ;;58016-0743-89
  1. ;;9002226.02101,"976,58016-0743-90 ",.01)
  1. ;;58016-0743-90
  1. ;;9002226.02101,"976,58016-0743-90 ",.02)
  1. ;;58016-0743-90
  1. ;;9002226.02101,"976,58016-0750-00 ",.01)
  1. ;;58016-0750-00
  1. ;;9002226.02101,"976,58016-0750-00 ",.02)
  1. ;;58016-0750-00
  1. ;;9002226.02101,"976,58016-0750-10 ",.01)
  1. ;;58016-0750-10
  1. ;;9002226.02101,"976,58016-0750-10 ",.02)
  1. ;;58016-0750-10
  1. ;;9002226.02101,"976,58016-0750-12 ",.01)
  1. ;;58016-0750-12
  1. ;;9002226.02101,"976,58016-0750-12 ",.02)
  1. ;;58016-0750-12
  1. ;;9002226.02101,"976,58016-0750-14 ",.01)
  1. ;;58016-0750-14
  1. ;;9002226.02101,"976,58016-0750-14 ",.02)
  1. ;;58016-0750-14
  1. ;;9002226.02101,"976,58016-0750-15 ",.01)
  1. ;;58016-0750-15
  1. ;;9002226.02101,"976,58016-0750-15 ",.02)
  1. ;;58016-0750-15
  1. ;;9002226.02101,"976,58016-0750-20 ",.01)
  1. ;;58016-0750-20
  1. ;;9002226.02101,"976,58016-0750-20 ",.02)
  1. ;;58016-0750-20
  1. ;;9002226.02101,"976,58016-0750-28 ",.01)
  1. ;;58016-0750-28
  1. ;;9002226.02101,"976,58016-0750-28 ",.02)
  1. ;;58016-0750-28
  1. ;;9002226.02101,"976,58016-0750-30 ",.01)
  1. ;;58016-0750-30
  1. ;;9002226.02101,"976,58016-0750-30 ",.02)
  1. ;;58016-0750-30
  1. ;;9002226.02101,"976,58016-0750-40 ",.01)
  1. ;;58016-0750-40
  1. ;;9002226.02101,"976,58016-0750-40 ",.02)
  1. ;;58016-0750-40
  1. ;;9002226.02101,"976,58016-0754-30 ",.01)
  1. ;;58016-0754-30
  1. ;;9002226.02101,"976,58016-0754-30 ",.02)
  1. ;;58016-0754-30
  1. ;;9002226.02101,"976,58016-4046-01 ",.01)
  1. ;;58016-4046-01
  1. ;;9002226.02101,"976,58016-4046-01 ",.02)
  1. ;;58016-4046-01
  1. ;;9002226.02101,"976,58016-6038-30 ",.01)
  1. ;;58016-6038-30
  1. ;;9002226.02101,"976,58016-6038-30 ",.02)
  1. ;;58016-6038-30
  1. ;;9002226.02101,"976,58016-6038-60 ",.01)
  1. ;;58016-6038-60
  1. ;;9002226.02101,"976,58016-6038-60 ",.02)
  1. ;;58016-6038-60
  1. ;;9002226.02101,"976,58016-6449-01 ",.01)
  1. ;;58016-6449-01
  1. ;;9002226.02101,"976,58016-6449-01 ",.02)
  1. ;;58016-6449-01
  1. ;;9002226.02101,"976,58016-6462-01 ",.01)
  1. ;;58016-6462-01
  1. ;;9002226.02101,"976,58016-6462-01 ",.02)
  1. ;;58016-6462-01
  1. ;;9002226.02101,"976,58016-9413-01 ",.01)
  1. ;;58016-9413-01
  1. ;;9002226.02101,"976,58016-9413-01 ",.02)
  1. ;;58016-9413-01
  1. ;;9002226.02101,"976,58177-0301-04 ",.01)
  1. ;;58177-0301-04
  1. ;;9002226.02101,"976,58177-0301-04 ",.02)
  1. ;;58177-0301-04
  1. ;;9002226.02101,"976,58177-0302-04 ",.01)
  1. ;;58177-0302-04
  1. ;;9002226.02101,"976,58177-0302-04 ",.02)
  1. ;;58177-0302-04
  1. ;;9002226.02101,"976,58177-0303-04 ",.01)
  1. ;;58177-0303-04
  1. ;;9002226.02101,"976,58177-0303-04 ",.02)
  1. ;;58177-0303-04
  1. ;;9002226.02101,"976,58468-2965-04 ",.01)
  1. ;;58468-2965-04
  1. ;;9002226.02101,"976,58468-2965-04 ",.02)
  1. ;;58468-2965-04
  1. ;;9002226.02101,"976,58768-0100-02 ",.01)
  1. ;;58768-0100-02
  1. ;;9002226.02101,"976,58768-0100-02 ",.02)
  1. ;;58768-0100-02
  1. ;;9002226.02101,"976,58768-0100-05 ",.01)
  1. ;;58768-0100-05
  1. ;;9002226.02101,"976,58768-0100-05 ",.02)
  1. ;;58768-0100-05
  1. ;;9002226.02101,"976,58864-0026-30 ",.01)
  1. ;;58864-0026-30
  1. ;;9002226.02101,"976,58864-0026-30 ",.02)
  1. ;;58864-0026-30
  1. ;;9002226.02101,"976,58864-0287-60 ",.01)
  1. ;;58864-0287-60
  1. ;;9002226.02101,"976,58864-0287-60 ",.02)
  1. ;;58864-0287-60
  1. ;;9002226.02101,"976,58864-0287-90 ",.01)
  1. ;;58864-0287-90
  1. ;;9002226.02101,"976,58864-0287-90 ",.02)
  1. ;;58864-0287-90
  1. ;;9002226.02101,"976,58864-0296-30 ",.01)
  1. ;;58864-0296-30
  1. ;;9002226.02101,"976,58864-0296-30 ",.02)
  1. ;;58864-0296-30
  1. ;;9002226.02101,"976,58864-0296-42 ",.01)
  1. ;;58864-0296-42
  1. ;;9002226.02101,"976,58864-0296-42 ",.02)
  1. ;;58864-0296-42
  1. ;;9002226.02101,"976,58864-0296-90 ",.01)
  1. ;;58864-0296-90
  1. ;;9002226.02101,"976,58864-0296-90 ",.02)
  1. ;;58864-0296-90
  1. ;;9002226.02101,"976,58864-0359-01 ",.01)
  1. ;;58864-0359-01
  1. ;;9002226.02101,"976,58864-0359-01 ",.02)
  1. ;;58864-0359-01
  1. ;;9002226.02101,"976,58864-0359-60 ",.01)
  1. ;;58864-0359-60
  1. ;;9002226.02101,"976,58864-0359-60 ",.02)
  1. ;;58864-0359-60
  1. ;;9002226.02101,"976,58864-0359-90 ",.01)
  1. ;;58864-0359-90
  1. ;;9002226.02101,"976,58864-0359-90 ",.02)
  1. ;;58864-0359-90
  1. ;;9002226.02101,"976,58864-0360-60 ",.01)
  1. ;;58864-0360-60
  1. ;;9002226.02101,"976,58864-0360-60 ",.02)
  1. ;;58864-0360-60
  1. ;;9002226.02101,"976,58864-0360-90 ",.01)
  1. ;;58864-0360-90
  1. ;;9002226.02101,"976,58864-0360-90 ",.02)
  1. ;;58864-0360-90
  1. ;;9002226.02101,"976,58864-0400-14 ",.01)
  1. ;;58864-0400-14
  1. ;;9002226.02101,"976,58864-0400-14 ",.02)
  1. ;;58864-0400-14
  1. ;;9002226.02101,"976,58864-0400-20 ",.01)
  1. ;;58864-0400-20
  1. ;;9002226.02101,"976,58864-0400-20 ",.02)
  1. ;;58864-0400-20
  1. ;;9002226.02101,"976,58864-0400-30 ",.01)
  1. ;;58864-0400-30
  1. ;;9002226.02101,"976,58864-0400-30 ",.02)
  1. ;;58864-0400-30
  1. ;;9002226.02101,"976,58864-0400-60 ",.01)
  1. ;;58864-0400-60
  1. ;;9002226.02101,"976,58864-0400-60 ",.02)
  1. ;;58864-0400-60
  1. ;;9002226.02101,"976,58864-0445-15 ",.01)
  1. ;;58864-0445-15
  1. ;;9002226.02101,"976,58864-0445-15 ",.02)
  1. ;;58864-0445-15
  1. ;;9002226.02101,"976,58864-0485-60 ",.01)
  1. ;;58864-0485-60
  1. ;;9002226.02101,"976,58864-0485-60 ",.02)
  1. ;;58864-0485-60
  1. ;;9002226.02101,"976,58864-0643-14 ",.01)
  1. ;;58864-0643-14
  1. ;;9002226.02101,"976,58864-0643-14 ",.02)
  1. ;;58864-0643-14
  1. ;;9002226.02101,"976,58864-0643-30 ",.01)
  1. ;;58864-0643-30
  1. ;;9002226.02101,"976,58864-0643-30 ",.02)
  1. ;;58864-0643-30
  1. ;;9002226.02101,"976,58864-0691-30 ",.01)
  1. ;;58864-0691-30
  1. ;;9002226.02101,"976,58864-0691-30 ",.02)
  1. ;;58864-0691-30
  1. ;;9002226.02101,"976,58864-0709-30 ",.01)
  1. ;;58864-0709-30
  1. ;;9002226.02101,"976,58864-0709-30 ",.02)
  1. ;;58864-0709-30
  1. ;;9002226.02101,"976,58864-0751-30 ",.01)
  1. ;;58864-0751-30
  1. ;;9002226.02101,"976,58864-0751-30 ",.02)
  1. ;;58864-0751-30
  1. ;;9002226.02101,"976,58864-0752-30 ",.01)
  1. ;;58864-0752-30
  1. ;;9002226.02101,"976,58864-0752-30 ",.02)
  1. ;;58864-0752-30
  1. ;;9002226.02101,"976,58868-0643-20 ",.01)
  1. ;;58868-0643-20
  1. ;;9002226.02101,"976,58868-0643-20 ",.02)
  1. ;;58868-0643-20
  1. ;;9002226.02101,"976,59591-0154-74 ",.01)
  1. ;;59591-0154-74
  1. ;;9002226.02101,"976,59591-0154-74 ",.02)
  1. ;;59591-0154-74
  1. ;;9002226.02101,"976,59591-0170-74 ",.01)
  1. ;;59591-0170-74
  1. ;;9002226.02101,"976,59591-0170-74 ",.02)
  1. ;;59591-0170-74
  1. ;;9002226.02101,"976,59591-0196-74 ",.01)
  1. ;;59591-0196-74
  1. ;;9002226.02101,"976,59591-0196-74 ",.02)
  1. ;;59591-0196-74
  1. ;;9002226.02101,"976,59630-0400-10 ",.01)
  1. ;;59630-0400-10
  1. ;;9002226.02101,"976,59630-0400-10 ",.02)
  1. ;;59630-0400-10
  1. ;;9002226.02101,"976,59762-3724-01 ",.01)
  1. ;;59762-3724-01
  1. ;;9002226.02101,"976,59762-3724-01 ",.02)
  1. ;;59762-3724-01
  1. ;;9002226.02101,"976,59762-3724-03 ",.01)
  1. ;;59762-3724-03
  1. ;;9002226.02101,"976,59762-3724-03 ",.02)
  1. ;;59762-3724-03
  1. ;;9002226.02101,"976,59762-5002-01 ",.01)
  1. ;;59762-5002-01
  1. ;;9002226.02101,"976,59762-5002-01 ",.02)
  1. ;;59762-5002-01
  1. ;;9002226.02101,"976,59762-5002-02 ",.01)
  1. ;;59762-5002-02
  1. ;;9002226.02101,"976,59762-5002-02 ",.02)
  1. ;;59762-5002-02
  1. ;;9002226.02101,"976,59762-7378-02 ",.01)
  1. ;;59762-7378-02
  1. ;;9002226.02101,"976,59762-7378-02 ",.02)
  1. ;;59762-7378-02
  1. ;;9002226.02101,"976,59762-7379-01 ",.01)
  1. ;;59762-7379-01
  1. ;;9002226.02101,"976,59762-7379-01 ",.02)
  1. ;;59762-7379-01
  1. ;;9002226.02101,"976,59762-7379-02 ",.01)
  1. ;;59762-7379-02
  1. ;;9002226.02101,"976,59762-7379-02 ",.02)
  1. ;;59762-7379-02
  1. ;;9002226.02101,"976,59762-7380-01 ",.01)
  1. ;;59762-7380-01
  1. ;;9002226.02101,"976,59762-7380-01 ",.02)
  1. ;;59762-7380-01
  1. ;;9002226.02101,"976,59762-7380-02 ",.01)
  1. ;;59762-7380-02
  1. ;;9002226.02101,"976,59762-7380-02 ",.02)
  1. ;;59762-7380-02
  1. ;;9002226.02101,"976,59762-7478-01 ",.01)
  1. ;;59762-7478-01
  1. ;;9002226.02101,"976,59762-7478-01 ",.02)
  1. ;;59762-7478-01
  1. ;;9002226.02101,"976,59930-1508-01 ",.01)
  1. ;;59930-1508-01
  1. ;;9002226.02101,"976,59930-1508-01 ",.02)
  1. ;;59930-1508-01
  1. ;;9002226.02101,"976,59930-1508-02 ",.01)
  1. ;;59930-1508-02
  1. ;;9002226.02101,"976,59930-1508-02 ",.02)
  1. ;;59930-1508-02
  1. ;;9002226.02101,"976,60258-0090-08 ",.01)
  1. ;;60258-0090-08
  1. ;;9002226.02101,"976,60258-0090-08 ",.02)
  1. ;;60258-0090-08
  1. ;;9002226.02101,"976,60258-0106-01 ",.01)
  1. ;;60258-0106-01
  1. ;;9002226.02101,"976,60258-0106-01 ",.02)
  1. ;;60258-0106-01
  1. ;;9002226.02101,"976,60345-0815-20 ",.01)
  1. ;;60345-0815-20
  1. ;;9002226.02101,"976,60345-0815-20 ",.02)
  1. ;;60345-0815-20
  1. ;;9002226.02101,"976,60346-0637-14 ",.01)
  1. ;;60346-0637-14
  1. ;;9002226.02101,"976,60346-0637-14 ",.02)
  1. ;;60346-0637-14
  1. ;;9002226.02101,"976,60346-0684-20 ",.01)
  1. ;;60346-0684-20
  1. ;;9002226.02101,"976,60346-0684-20 ",.02)
  1. ;;60346-0684-20
  1. ;;9002226.02101,"976,60346-0684-28 ",.01)
  1. ;;60346-0684-28
  1. ;;9002226.02101,"976,60346-0684-28 ",.02)
  1. ;;60346-0684-28
  1. ;;9002226.02101,"976,60346-0684-30 ",.01)
  1. ;;60346-0684-30
  1. ;;9002226.02101,"976,60346-0684-30 ",.02)
  1. ;;60346-0684-30
  1. ;;9002226.02101,"976,60346-0687-20 ",.01)
  1. ;;60346-0687-20
  1. ;;9002226.02101,"976,60346-0687-20 ",.02)
  1. ;;60346-0687-20
  1. ;;9002226.02101,"976,60346-0722-60 ",.01)
  1. ;;60346-0722-60
  1. ;;9002226.02101,"976,60346-0722-60 ",.02)
  1. ;;60346-0722-60
  1. ;;9002226.02101,"976,60426-0172-60 ",.01)
  1. ;;60426-0172-60
  1. ;;9002226.02101,"976,60426-0172-60 ",.02)
  1. ;;60426-0172-60
  1. ;;9002226.02101,"976,60429-0092-30 ",.01)
  1. ;;60429-0092-30
  1. ;;9002226.02101,"976,60429-0092-30 ",.02)
  1. ;;60429-0092-30
  1. ;;9002226.02101,"976,60429-0092-60 ",.01)
  1. ;;60429-0092-60
  1. ;;9002226.02101,"976,60429-0092-60 ",.02)
  1. ;;60429-0092-60
  1. ;;9002226.02101,"976,60429-0092-90 ",.01)
  1. ;;60429-0092-90
  1. ;;9002226.02101,"976,60429-0092-90 ",.02)
  1. ;;60429-0092-90
  1. ;;9002226.02101,"976,60429-0093-30 ",.01)
  1. ;;60429-0093-30
  1. ;;9002226.02101,"976,60429-0093-30 ",.02)
  1. ;;60429-0093-30
  1. ;;9002226.02101,"976,60429-0093-60 ",.01)
  1. ;;60429-0093-60
  1. ;;9002226.02101,"976,60429-0093-60 ",.02)
  1. ;;60429-0093-60
  1. ;;9002226.02101,"976,60429-0093-90 ",.01)
  1. ;;60429-0093-90
  1. ;;9002226.02101,"976,60429-0093-90 ",.02)
  1. ;;60429-0093-90
  1. ;;9002226.02101,"976,60429-0094-27 ",.01)
  1. ;;60429-0094-27
  1. ;;9002226.02101,"976,60429-0094-27 ",.02)
  1. ;;60429-0094-27
  1. ;;9002226.02101,"976,60429-0094-30 ",.01)
  1. ;;60429-0094-30
  1. ;;9002226.02101,"976,60429-0094-30 ",.02)
  1. ;;60429-0094-30
  1. ;;9002226.02101,"976,60429-0094-90 ",.01)
  1. ;;60429-0094-90
  1. ;;9002226.02101,"976,60429-0094-90 ",.02)
  1. ;;60429-0094-90
  1. ;;9002226.02101,"976,60429-0098-21 ",.01)
  1. ;;60429-0098-21
  1. ;;9002226.02101,"976,60429-0098-21 ",.02)
  1. ;;60429-0098-21
  1. ;;9002226.02101,"976,60429-0133-12 ",.01)
  1. ;;60429-0133-12