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

BGP0ZD17.m

Go to the documentation of this file.
BGP0ZD17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"976,52959-0192-28 ",.02)
 ;;52959-0192-28
 ;;9002226.02101,"976,52959-0192-30 ",.01)
 ;;52959-0192-30
 ;;9002226.02101,"976,52959-0192-30 ",.02)
 ;;52959-0192-30
 ;;9002226.02101,"976,52959-0192-40 ",.01)
 ;;52959-0192-40
 ;;9002226.02101,"976,52959-0192-40 ",.02)
 ;;52959-0192-40
 ;;9002226.02101,"976,52959-0192-60 ",.01)
 ;;52959-0192-60
 ;;9002226.02101,"976,52959-0192-60 ",.02)
 ;;52959-0192-60
 ;;9002226.02101,"976,52959-0193-02 ",.01)
 ;;52959-0193-02
 ;;9002226.02101,"976,52959-0193-02 ",.02)
 ;;52959-0193-02
 ;;9002226.02101,"976,52959-0193-10 ",.01)
 ;;52959-0193-10
 ;;9002226.02101,"976,52959-0193-10 ",.02)
 ;;52959-0193-10
 ;;9002226.02101,"976,52959-0193-14 ",.01)
 ;;52959-0193-14
 ;;9002226.02101,"976,52959-0193-14 ",.02)
 ;;52959-0193-14
 ;;9002226.02101,"976,52959-0193-15 ",.01)
 ;;52959-0193-15
 ;;9002226.02101,"976,52959-0193-15 ",.02)
 ;;52959-0193-15
 ;;9002226.02101,"976,52959-0193-20 ",.01)
 ;;52959-0193-20
 ;;9002226.02101,"976,52959-0193-20 ",.02)
 ;;52959-0193-20
 ;;9002226.02101,"976,52959-0193-21 ",.01)
 ;;52959-0193-21
 ;;9002226.02101,"976,52959-0193-21 ",.02)
 ;;52959-0193-21
 ;;9002226.02101,"976,52959-0193-24 ",.01)
 ;;52959-0193-24
 ;;9002226.02101,"976,52959-0193-24 ",.02)
 ;;52959-0193-24
 ;;9002226.02101,"976,52959-0193-28 ",.01)
 ;;52959-0193-28
 ;;9002226.02101,"976,52959-0193-28 ",.02)
 ;;52959-0193-28
 ;;9002226.02101,"976,52959-0193-30 ",.01)
 ;;52959-0193-30
 ;;9002226.02101,"976,52959-0193-30 ",.02)
 ;;52959-0193-30
 ;;9002226.02101,"976,52959-0193-35 ",.01)
 ;;52959-0193-35
 ;;9002226.02101,"976,52959-0193-35 ",.02)
 ;;52959-0193-35
 ;;9002226.02101,"976,52959-0193-40 ",.01)
 ;;52959-0193-40
 ;;9002226.02101,"976,52959-0193-40 ",.02)
 ;;52959-0193-40
 ;;9002226.02101,"976,52959-0193-60 ",.01)
 ;;52959-0193-60
 ;;9002226.02101,"976,52959-0193-60 ",.02)
 ;;52959-0193-60
 ;;9002226.02101,"976,52959-0193-90 ",.01)
 ;;52959-0193-90
 ;;9002226.02101,"976,52959-0193-90 ",.02)
 ;;52959-0193-90
 ;;9002226.02101,"976,52959-0194-30 ",.01)
 ;;52959-0194-30
 ;;9002226.02101,"976,52959-0194-30 ",.02)
 ;;52959-0194-30
 ;;9002226.02101,"976,52959-0195-14 ",.01)
 ;;52959-0195-14
 ;;9002226.02101,"976,52959-0195-14 ",.02)
 ;;52959-0195-14
 ;;9002226.02101,"976,52959-0195-15 ",.01)
 ;;52959-0195-15
 ;;9002226.02101,"976,52959-0195-15 ",.02)
 ;;52959-0195-15
 ;;9002226.02101,"976,52959-0195-20 ",.01)
 ;;52959-0195-20
 ;;9002226.02101,"976,52959-0195-20 ",.02)
 ;;52959-0195-20
 ;;9002226.02101,"976,52959-0195-28 ",.01)
 ;;52959-0195-28
 ;;9002226.02101,"976,52959-0195-28 ",.02)
 ;;52959-0195-28
 ;;9002226.02101,"976,52959-0195-30 ",.01)
 ;;52959-0195-30
 ;;9002226.02101,"976,52959-0195-30 ",.02)
 ;;52959-0195-30
 ;;9002226.02101,"976,52959-0195-60 ",.01)
 ;;52959-0195-60
 ;;9002226.02101,"976,52959-0195-60 ",.02)
 ;;52959-0195-60
 ;;9002226.02101,"976,52959-0196-00 ",.01)
 ;;52959-0196-00
 ;;9002226.02101,"976,52959-0196-00 ",.02)
 ;;52959-0196-00
 ;;9002226.02101,"976,52959-0196-14 ",.01)
 ;;52959-0196-14
 ;;9002226.02101,"976,52959-0196-14 ",.02)
 ;;52959-0196-14
 ;;9002226.02101,"976,52959-0196-15 ",.01)
 ;;52959-0196-15
 ;;9002226.02101,"976,52959-0196-15 ",.02)
 ;;52959-0196-15
 ;;9002226.02101,"976,52959-0196-20 ",.01)
 ;;52959-0196-20
 ;;9002226.02101,"976,52959-0196-20 ",.02)
 ;;52959-0196-20
 ;;9002226.02101,"976,52959-0196-30 ",.01)
 ;;52959-0196-30
 ;;9002226.02101,"976,52959-0196-30 ",.02)
 ;;52959-0196-30
 ;;9002226.02101,"976,52959-0196-60 ",.01)
 ;;52959-0196-60
 ;;9002226.02101,"976,52959-0196-60 ",.02)
 ;;52959-0196-60
 ;;9002226.02101,"976,52959-0211-20 ",.01)
 ;;52959-0211-20
 ;;9002226.02101,"976,52959-0211-20 ",.02)
 ;;52959-0211-20
 ;;9002226.02101,"976,52959-0211-21 ",.01)
 ;;52959-0211-21
 ;;9002226.02101,"976,52959-0211-21 ",.02)
 ;;52959-0211-21
 ;;9002226.02101,"976,52959-0211-30 ",.01)
 ;;52959-0211-30
 ;;9002226.02101,"976,52959-0211-30 ",.02)
 ;;52959-0211-30
 ;;9002226.02101,"976,52959-0211-42 ",.01)
 ;;52959-0211-42
 ;;9002226.02101,"976,52959-0211-42 ",.02)
 ;;52959-0211-42
 ;;9002226.02101,"976,52959-0224-08 ",.01)
 ;;52959-0224-08
 ;;9002226.02101,"976,52959-0224-08 ",.02)
 ;;52959-0224-08
 ;;9002226.02101,"976,52959-0224-10 ",.01)
 ;;52959-0224-10
 ;;9002226.02101,"976,52959-0224-10 ",.02)
 ;;52959-0224-10
 ;;9002226.02101,"976,52959-0224-12 ",.01)
 ;;52959-0224-12
 ;;9002226.02101,"976,52959-0224-12 ",.02)
 ;;52959-0224-12
 ;;9002226.02101,"976,52959-0224-14 ",.01)
 ;;52959-0224-14
 ;;9002226.02101,"976,52959-0224-14 ",.02)
 ;;52959-0224-14
 ;;9002226.02101,"976,52959-0224-15 ",.01)
 ;;52959-0224-15
 ;;9002226.02101,"976,52959-0224-15 ",.02)
 ;;52959-0224-15
 ;;9002226.02101,"976,52959-0224-20 ",.01)
 ;;52959-0224-20
 ;;9002226.02101,"976,52959-0224-20 ",.02)
 ;;52959-0224-20
 ;;9002226.02101,"976,52959-0224-30 ",.01)
 ;;52959-0224-30
 ;;9002226.02101,"976,52959-0224-30 ",.02)
 ;;52959-0224-30
 ;;9002226.02101,"976,52959-0224-40 ",.01)
 ;;52959-0224-40
 ;;9002226.02101,"976,52959-0224-40 ",.02)
 ;;52959-0224-40
 ;;9002226.02101,"976,52959-0224-60 ",.01)
 ;;52959-0224-60
 ;;9002226.02101,"976,52959-0224-60 ",.02)
 ;;52959-0224-60
 ;;9002226.02101,"976,52959-0227-14 ",.01)
 ;;52959-0227-14
 ;;9002226.02101,"976,52959-0227-14 ",.02)
 ;;52959-0227-14
 ;;9002226.02101,"976,52959-0227-15 ",.01)
 ;;52959-0227-15
 ;;9002226.02101,"976,52959-0227-15 ",.02)
 ;;52959-0227-15
 ;;9002226.02101,"976,52959-0227-20 ",.01)
 ;;52959-0227-20
 ;;9002226.02101,"976,52959-0227-20 ",.02)
 ;;52959-0227-20
 ;;9002226.02101,"976,52959-0227-28 ",.01)
 ;;52959-0227-28
 ;;9002226.02101,"976,52959-0227-28 ",.02)
 ;;52959-0227-28
 ;;9002226.02101,"976,52959-0227-30 ",.01)
 ;;52959-0227-30
 ;;9002226.02101,"976,52959-0227-30 ",.02)
 ;;52959-0227-30
 ;;9002226.02101,"976,52959-0227-40 ",.01)
 ;;52959-0227-40
 ;;9002226.02101,"976,52959-0227-40 ",.02)
 ;;52959-0227-40
 ;;9002226.02101,"976,52959-0227-60 ",.01)
 ;;52959-0227-60
 ;;9002226.02101,"976,52959-0227-60 ",.02)
 ;;52959-0227-60
 ;;9002226.02101,"976,52959-0232-07 ",.01)
 ;;52959-0232-07
 ;;9002226.02101,"976,52959-0232-07 ",.02)
 ;;52959-0232-07
 ;;9002226.02101,"976,52959-0232-09 ",.01)
 ;;52959-0232-09
 ;;9002226.02101,"976,52959-0232-09 ",.02)
 ;;52959-0232-09
 ;;9002226.02101,"976,52959-0232-10 ",.01)
 ;;52959-0232-10
 ;;9002226.02101,"976,52959-0232-10 ",.02)
 ;;52959-0232-10
 ;;9002226.02101,"976,52959-0232-14 ",.01)
 ;;52959-0232-14
 ;;9002226.02101,"976,52959-0232-14 ",.02)
 ;;52959-0232-14
 ;;9002226.02101,"976,52959-0232-15 ",.01)
 ;;52959-0232-15
 ;;9002226.02101,"976,52959-0232-15 ",.02)
 ;;52959-0232-15
 ;;9002226.02101,"976,52959-0232-18 ",.01)
 ;;52959-0232-18
 ;;9002226.02101,"976,52959-0232-18 ",.02)
 ;;52959-0232-18
 ;;9002226.02101,"976,52959-0232-20 ",.01)
 ;;52959-0232-20
 ;;9002226.02101,"976,52959-0232-20 ",.02)
 ;;52959-0232-20
 ;;9002226.02101,"976,52959-0232-21 ",.01)
 ;;52959-0232-21
 ;;9002226.02101,"976,52959-0232-21 ",.02)
 ;;52959-0232-21
 ;;9002226.02101,"976,52959-0232-30 ",.01)
 ;;52959-0232-30
 ;;9002226.02101,"976,52959-0232-30 ",.02)
 ;;52959-0232-30
 ;;9002226.02101,"976,52959-0232-60 ",.01)
 ;;52959-0232-60
 ;;9002226.02101,"976,52959-0232-60 ",.02)
 ;;52959-0232-60
 ;;9002226.02101,"976,52959-0245-15 ",.01)
 ;;52959-0245-15
 ;;9002226.02101,"976,52959-0245-15 ",.02)
 ;;52959-0245-15
 ;;9002226.02101,"976,52959-0245-20 ",.01)
 ;;52959-0245-20
 ;;9002226.02101,"976,52959-0245-20 ",.02)
 ;;52959-0245-20
 ;;9002226.02101,"976,52959-0245-21 ",.01)
 ;;52959-0245-21
 ;;9002226.02101,"976,52959-0245-21 ",.02)
 ;;52959-0245-21
 ;;9002226.02101,"976,52959-0245-30 ",.01)
 ;;52959-0245-30
 ;;9002226.02101,"976,52959-0245-30 ",.02)
 ;;52959-0245-30
 ;;9002226.02101,"976,52959-0252-01 ",.01)
 ;;52959-0252-01
 ;;9002226.02101,"976,52959-0252-01 ",.02)
 ;;52959-0252-01
 ;;9002226.02101,"976,52959-0252-14 ",.01)
 ;;52959-0252-14
 ;;9002226.02101,"976,52959-0252-14 ",.02)
 ;;52959-0252-14
 ;;9002226.02101,"976,52959-0252-15 ",.01)
 ;;52959-0252-15
 ;;9002226.02101,"976,52959-0252-15 ",.02)
 ;;52959-0252-15
 ;;9002226.02101,"976,52959-0252-20 ",.01)
 ;;52959-0252-20
 ;;9002226.02101,"976,52959-0252-20 ",.02)
 ;;52959-0252-20
 ;;9002226.02101,"976,52959-0252-21 ",.01)
 ;;52959-0252-21
 ;;9002226.02101,"976,52959-0252-21 ",.02)
 ;;52959-0252-21
 ;;9002226.02101,"976,52959-0252-24 ",.01)
 ;;52959-0252-24
 ;;9002226.02101,"976,52959-0252-24 ",.02)
 ;;52959-0252-24
 ;;9002226.02101,"976,52959-0252-28 ",.01)
 ;;52959-0252-28
 ;;9002226.02101,"976,52959-0252-28 ",.02)
 ;;52959-0252-28
 ;;9002226.02101,"976,52959-0252-30 ",.01)
 ;;52959-0252-30
 ;;9002226.02101,"976,52959-0252-30 ",.02)
 ;;52959-0252-30
 ;;9002226.02101,"976,52959-0252-42 ",.01)
 ;;52959-0252-42
 ;;9002226.02101,"976,52959-0252-42 ",.02)
 ;;52959-0252-42
 ;;9002226.02101,"976,52959-0252-45 ",.01)
 ;;52959-0252-45
 ;;9002226.02101,"976,52959-0252-45 ",.02)
 ;;52959-0252-45
 ;;9002226.02101,"976,52959-0252-60 ",.01)
 ;;52959-0252-60
 ;;9002226.02101,"976,52959-0252-60 ",.02)
 ;;52959-0252-60
 ;;9002226.02101,"976,52959-0266-03 ",.01)
 ;;52959-0266-03
 ;;9002226.02101,"976,52959-0266-03 ",.02)
 ;;52959-0266-03
 ;;9002226.02101,"976,52959-0271-14 ",.01)
 ;;52959-0271-14
 ;;9002226.02101,"976,52959-0271-14 ",.02)
 ;;52959-0271-14
 ;;9002226.02101,"976,52959-0271-15 ",.01)
 ;;52959-0271-15
 ;;9002226.02101,"976,52959-0271-15 ",.02)
 ;;52959-0271-15
 ;;9002226.02101,"976,52959-0271-20 ",.01)
 ;;52959-0271-20
 ;;9002226.02101,"976,52959-0271-20 ",.02)
 ;;52959-0271-20
 ;;9002226.02101,"976,52959-0271-28 ",.01)
 ;;52959-0271-28
 ;;9002226.02101,"976,52959-0271-28 ",.02)
 ;;52959-0271-28
 ;;9002226.02101,"976,52959-0271-30 ",.01)
 ;;52959-0271-30
 ;;9002226.02101,"976,52959-0271-30 ",.02)
 ;;52959-0271-30
 ;;9002226.02101,"976,52959-0271-60 ",.01)
 ;;52959-0271-60
 ;;9002226.02101,"976,52959-0271-60 ",.02)
 ;;52959-0271-60
 ;;9002226.02101,"976,52959-0271-90 ",.01)
 ;;52959-0271-90
 ;;9002226.02101,"976,52959-0271-90 ",.02)
 ;;52959-0271-90
 ;;9002226.02101,"976,52959-0281-14 ",.01)
 ;;52959-0281-14
 ;;9002226.02101,"976,52959-0281-14 ",.02)
 ;;52959-0281-14
 ;;9002226.02101,"976,52959-0281-20 ",.01)
 ;;52959-0281-20
 ;;9002226.02101,"976,52959-0281-20 ",.02)
 ;;52959-0281-20
 ;;9002226.02101,"976,52959-0281-30 ",.01)
 ;;52959-0281-30
 ;;9002226.02101,"976,52959-0281-30 ",.02)
 ;;52959-0281-30
 ;;9002226.02101,"976,52959-0281-60 ",.01)
 ;;52959-0281-60
 ;;9002226.02101,"976,52959-0281-60 ",.02)
 ;;52959-0281-60
 ;;9002226.02101,"976,52959-0318-14 ",.01)
 ;;52959-0318-14
 ;;9002226.02101,"976,52959-0318-14 ",.02)
 ;;52959-0318-14
 ;;9002226.02101,"976,52959-0318-20 ",.01)
 ;;52959-0318-20
 ;;9002226.02101,"976,52959-0318-20 ",.02)
 ;;52959-0318-20
 ;;9002226.02101,"976,52959-0318-30 ",.01)
 ;;52959-0318-30
 ;;9002226.02101,"976,52959-0318-30 ",.02)
 ;;52959-0318-30
 ;;9002226.02101,"976,52959-0342-00 ",.01)
 ;;52959-0342-00
 ;;9002226.02101,"976,52959-0342-00 ",.02)
 ;;52959-0342-00
 ;;9002226.02101,"976,52959-0342-30 ",.01)
 ;;52959-0342-30
 ;;9002226.02101,"976,52959-0342-30 ",.02)
 ;;52959-0342-30
 ;;9002226.02101,"976,52959-0347-15 ",.01)
 ;;52959-0347-15
 ;;9002226.02101,"976,52959-0347-15 ",.02)
 ;;52959-0347-15
 ;;9002226.02101,"976,52959-0347-20 ",.01)
 ;;52959-0347-20
 ;;9002226.02101,"976,52959-0347-20 ",.02)
 ;;52959-0347-20
 ;;9002226.02101,"976,52959-0347-30 ",.01)
 ;;52959-0347-30
 ;;9002226.02101,"976,52959-0347-30 ",.02)
 ;;52959-0347-30
 ;;9002226.02101,"976,52959-0357-21 ",.01)
 ;;52959-0357-21
 ;;9002226.02101,"976,52959-0357-21 ",.02)
 ;;52959-0357-21
 ;;9002226.02101,"976,52959-0357-30 ",.01)
 ;;52959-0357-30
 ;;9002226.02101,"976,52959-0357-30 ",.02)
 ;;52959-0357-30
 ;;9002226.02101,"976,52959-0357-60 ",.01)
 ;;52959-0357-60
 ;;9002226.02101,"976,52959-0357-60 ",.02)
 ;;52959-0357-60
 ;;9002226.02101,"976,52959-0373-20 ",.01)
 ;;52959-0373-20
 ;;9002226.02101,"976,52959-0373-20 ",.02)
 ;;52959-0373-20
 ;;9002226.02101,"976,52959-0373-28 ",.01)
 ;;52959-0373-28
 ;;9002226.02101,"976,52959-0373-28 ",.02)
 ;;52959-0373-28
 ;;9002226.02101,"976,52959-0373-30 ",.01)
 ;;52959-0373-30
 ;;9002226.02101,"976,52959-0373-30 ",.02)
 ;;52959-0373-30
 ;;9002226.02101,"976,52959-0373-40 ",.01)
 ;;52959-0373-40
 ;;9002226.02101,"976,52959-0373-40 ",.02)
 ;;52959-0373-40
 ;;9002226.02101,"976,52959-0377-30 ",.01)
 ;;52959-0377-30
 ;;9002226.02101,"976,52959-0377-30 ",.02)
 ;;52959-0377-30
 ;;9002226.02101,"976,52959-0377-60 ",.01)
 ;;52959-0377-60
 ;;9002226.02101,"976,52959-0377-60 ",.02)
 ;;52959-0377-60
 ;;9002226.02101,"976,52959-0379-15 ",.01)
 ;;52959-0379-15
 ;;9002226.02101,"976,52959-0379-15 ",.02)
 ;;52959-0379-15
 ;;9002226.02101,"976,52959-0379-20 ",.01)
 ;;52959-0379-20
 ;;9002226.02101,"976,52959-0379-20 ",.02)
 ;;52959-0379-20
 ;;9002226.02101,"976,52959-0379-30 ",.01)
 ;;52959-0379-30
 ;;9002226.02101,"976,52959-0379-30 ",.02)
 ;;52959-0379-30
 ;;9002226.02101,"976,52959-0398-00 ",.01)
 ;;52959-0398-00
 ;;9002226.02101,"976,52959-0398-00 ",.02)
 ;;52959-0398-00
 ;;9002226.02101,"976,52959-0398-10 ",.01)
 ;;52959-0398-10
 ;;9002226.02101,"976,52959-0398-10 ",.02)
 ;;52959-0398-10
 ;;9002226.02101,"976,52959-0398-20 ",.01)
 ;;52959-0398-20
 ;;9002226.02101,"976,52959-0398-20 ",.02)
 ;;52959-0398-20
 ;;9002226.02101,"976,52959-0398-21 ",.01)
 ;;52959-0398-21
 ;;9002226.02101,"976,52959-0398-21 ",.02)
 ;;52959-0398-21
 ;;9002226.02101,"976,52959-0398-30 ",.01)
 ;;52959-0398-30