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

BGP0ZD25.m

Go to the documentation of this file.
BGP0ZD25 ;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,55289-0142-15 ",.02)
 ;;55289-0142-15
 ;;9002226.02101,"976,55289-0142-18 ",.01)
 ;;55289-0142-18
 ;;9002226.02101,"976,55289-0142-18 ",.02)
 ;;55289-0142-18
 ;;9002226.02101,"976,55289-0142-20 ",.01)
 ;;55289-0142-20
 ;;9002226.02101,"976,55289-0142-20 ",.02)
 ;;55289-0142-20
 ;;9002226.02101,"976,55289-0142-21 ",.01)
 ;;55289-0142-21
 ;;9002226.02101,"976,55289-0142-21 ",.02)
 ;;55289-0142-21
 ;;9002226.02101,"976,55289-0142-24 ",.01)
 ;;55289-0142-24
 ;;9002226.02101,"976,55289-0142-24 ",.02)
 ;;55289-0142-24
 ;;9002226.02101,"976,55289-0142-28 ",.01)
 ;;55289-0142-28
 ;;9002226.02101,"976,55289-0142-28 ",.02)
 ;;55289-0142-28
 ;;9002226.02101,"976,55289-0142-30 ",.01)
 ;;55289-0142-30
 ;;9002226.02101,"976,55289-0142-30 ",.02)
 ;;55289-0142-30
 ;;9002226.02101,"976,55289-0142-40 ",.01)
 ;;55289-0142-40
 ;;9002226.02101,"976,55289-0142-40 ",.02)
 ;;55289-0142-40
 ;;9002226.02101,"976,55289-0142-60 ",.01)
 ;;55289-0142-60
 ;;9002226.02101,"976,55289-0142-60 ",.02)
 ;;55289-0142-60
 ;;9002226.02101,"976,55289-0147-20 ",.01)
 ;;55289-0147-20
 ;;9002226.02101,"976,55289-0147-20 ",.02)
 ;;55289-0147-20
 ;;9002226.02101,"976,55289-0147-21 ",.01)
 ;;55289-0147-21
 ;;9002226.02101,"976,55289-0147-21 ",.02)
 ;;55289-0147-21
 ;;9002226.02101,"976,55289-0147-30 ",.01)
 ;;55289-0147-30
 ;;9002226.02101,"976,55289-0147-30 ",.02)
 ;;55289-0147-30
 ;;9002226.02101,"976,55289-0150-10 ",.01)
 ;;55289-0150-10
 ;;9002226.02101,"976,55289-0150-10 ",.02)
 ;;55289-0150-10
 ;;9002226.02101,"976,55289-0150-15 ",.01)
 ;;55289-0150-15
 ;;9002226.02101,"976,55289-0150-15 ",.02)
 ;;55289-0150-15
 ;;9002226.02101,"976,55289-0150-20 ",.01)
 ;;55289-0150-20
 ;;9002226.02101,"976,55289-0150-20 ",.02)
 ;;55289-0150-20
 ;;9002226.02101,"976,55289-0150-30 ",.01)
 ;;55289-0150-30
 ;;9002226.02101,"976,55289-0150-30 ",.02)
 ;;55289-0150-30
 ;;9002226.02101,"976,55289-0166-10 ",.01)
 ;;55289-0166-10
 ;;9002226.02101,"976,55289-0166-10 ",.02)
 ;;55289-0166-10
 ;;9002226.02101,"976,55289-0166-14 ",.01)
 ;;55289-0166-14
 ;;9002226.02101,"976,55289-0166-14 ",.02)
 ;;55289-0166-14
 ;;9002226.02101,"976,55289-0166-20 ",.01)
 ;;55289-0166-20
 ;;9002226.02101,"976,55289-0166-20 ",.02)
 ;;55289-0166-20
 ;;9002226.02101,"976,55289-0166-30 ",.01)
 ;;55289-0166-30
 ;;9002226.02101,"976,55289-0166-30 ",.02)
 ;;55289-0166-30
 ;;9002226.02101,"976,55289-0178-30 ",.01)
 ;;55289-0178-30
 ;;9002226.02101,"976,55289-0178-30 ",.02)
 ;;55289-0178-30
 ;;9002226.02101,"976,55289-0181-15 ",.01)
 ;;55289-0181-15
 ;;9002226.02101,"976,55289-0181-15 ",.02)
 ;;55289-0181-15
 ;;9002226.02101,"976,55289-0181-20 ",.01)
 ;;55289-0181-20
 ;;9002226.02101,"976,55289-0181-20 ",.02)
 ;;55289-0181-20
 ;;9002226.02101,"976,55289-0181-21 ",.01)
 ;;55289-0181-21
 ;;9002226.02101,"976,55289-0181-21 ",.02)
 ;;55289-0181-21
 ;;9002226.02101,"976,55289-0181-30 ",.01)
 ;;55289-0181-30
 ;;9002226.02101,"976,55289-0181-30 ",.02)
 ;;55289-0181-30
 ;;9002226.02101,"976,55289-0197-10 ",.01)
 ;;55289-0197-10
 ;;9002226.02101,"976,55289-0197-10 ",.02)
 ;;55289-0197-10
 ;;9002226.02101,"976,55289-0197-20 ",.01)
 ;;55289-0197-20
 ;;9002226.02101,"976,55289-0197-20 ",.02)
 ;;55289-0197-20
 ;;9002226.02101,"976,55289-0220-14 ",.01)
 ;;55289-0220-14
 ;;9002226.02101,"976,55289-0220-14 ",.02)
 ;;55289-0220-14
 ;;9002226.02101,"976,55289-0237-20 ",.01)
 ;;55289-0237-20
 ;;9002226.02101,"976,55289-0237-20 ",.02)
 ;;55289-0237-20
 ;;9002226.02101,"976,55289-0239-12 ",.01)
 ;;55289-0239-12
 ;;9002226.02101,"976,55289-0239-12 ",.02)
 ;;55289-0239-12
 ;;9002226.02101,"976,55289-0239-21 ",.01)
 ;;55289-0239-21
 ;;9002226.02101,"976,55289-0239-21 ",.02)
 ;;55289-0239-21
 ;;9002226.02101,"976,55289-0239-30 ",.01)
 ;;55289-0239-30
 ;;9002226.02101,"976,55289-0239-30 ",.02)
 ;;55289-0239-30
 ;;9002226.02101,"976,55289-0239-45 ",.01)
 ;;55289-0239-45
 ;;9002226.02101,"976,55289-0239-45 ",.02)
 ;;55289-0239-45
 ;;9002226.02101,"976,55289-0267-15 ",.01)
 ;;55289-0267-15
 ;;9002226.02101,"976,55289-0267-15 ",.02)
 ;;55289-0267-15
 ;;9002226.02101,"976,55289-0267-24 ",.01)
 ;;55289-0267-24
 ;;9002226.02101,"976,55289-0267-24 ",.02)
 ;;55289-0267-24
 ;;9002226.02101,"976,55289-0272-40 ",.01)
 ;;55289-0272-40
 ;;9002226.02101,"976,55289-0272-40 ",.02)
 ;;55289-0272-40
 ;;9002226.02101,"976,55289-0272-60 ",.01)
 ;;55289-0272-60
 ;;9002226.02101,"976,55289-0272-60 ",.02)
 ;;55289-0272-60
 ;;9002226.02101,"976,55289-0282-28 ",.01)
 ;;55289-0282-28
 ;;9002226.02101,"976,55289-0282-28 ",.02)
 ;;55289-0282-28
 ;;9002226.02101,"976,55289-0285-30 ",.01)
 ;;55289-0285-30
 ;;9002226.02101,"976,55289-0285-30 ",.02)
 ;;55289-0285-30
 ;;9002226.02101,"976,55289-0285-56 ",.01)
 ;;55289-0285-56
 ;;9002226.02101,"976,55289-0285-56 ",.02)
 ;;55289-0285-56
 ;;9002226.02101,"976,55289-0286-30 ",.01)
 ;;55289-0286-30
 ;;9002226.02101,"976,55289-0286-30 ",.02)
 ;;55289-0286-30
 ;;9002226.02101,"976,55289-0286-60 ",.01)
 ;;55289-0286-60
 ;;9002226.02101,"976,55289-0286-60 ",.02)
 ;;55289-0286-60
 ;;9002226.02101,"976,55289-0286-90 ",.01)
 ;;55289-0286-90
 ;;9002226.02101,"976,55289-0286-90 ",.02)
 ;;55289-0286-90
 ;;9002226.02101,"976,55289-0286-98 ",.01)
 ;;55289-0286-98
 ;;9002226.02101,"976,55289-0286-98 ",.02)
 ;;55289-0286-98
 ;;9002226.02101,"976,55289-0287-15 ",.01)
 ;;55289-0287-15
 ;;9002226.02101,"976,55289-0287-15 ",.02)
 ;;55289-0287-15
 ;;9002226.02101,"976,55289-0287-30 ",.01)
 ;;55289-0287-30
 ;;9002226.02101,"976,55289-0287-30 ",.02)
 ;;55289-0287-30
 ;;9002226.02101,"976,55289-0287-45 ",.01)
 ;;55289-0287-45
 ;;9002226.02101,"976,55289-0287-45 ",.02)
 ;;55289-0287-45
 ;;9002226.02101,"976,55289-0297-10 ",.01)
 ;;55289-0297-10
 ;;9002226.02101,"976,55289-0297-10 ",.02)
 ;;55289-0297-10
 ;;9002226.02101,"976,55289-0297-14 ",.01)
 ;;55289-0297-14
 ;;9002226.02101,"976,55289-0297-14 ",.02)
 ;;55289-0297-14
 ;;9002226.02101,"976,55289-0297-15 ",.01)
 ;;55289-0297-15
 ;;9002226.02101,"976,55289-0297-15 ",.02)
 ;;55289-0297-15
 ;;9002226.02101,"976,55289-0297-20 ",.01)
 ;;55289-0297-20
 ;;9002226.02101,"976,55289-0297-20 ",.02)
 ;;55289-0297-20
 ;;9002226.02101,"976,55289-0297-21 ",.01)
 ;;55289-0297-21
 ;;9002226.02101,"976,55289-0297-21 ",.02)
 ;;55289-0297-21
 ;;9002226.02101,"976,55289-0297-24 ",.01)
 ;;55289-0297-24
 ;;9002226.02101,"976,55289-0297-24 ",.02)
 ;;55289-0297-24
 ;;9002226.02101,"976,55289-0297-30 ",.01)
 ;;55289-0297-30
 ;;9002226.02101,"976,55289-0297-30 ",.02)
 ;;55289-0297-30
 ;;9002226.02101,"976,55289-0297-42 ",.01)
 ;;55289-0297-42
 ;;9002226.02101,"976,55289-0297-42 ",.02)
 ;;55289-0297-42
 ;;9002226.02101,"976,55289-0297-60 ",.01)
 ;;55289-0297-60
 ;;9002226.02101,"976,55289-0297-60 ",.02)
 ;;55289-0297-60
 ;;9002226.02101,"976,55289-0298-06 ",.01)
 ;;55289-0298-06
 ;;9002226.02101,"976,55289-0298-06 ",.02)
 ;;55289-0298-06
 ;;9002226.02101,"976,55289-0298-07 ",.01)
 ;;55289-0298-07
 ;;9002226.02101,"976,55289-0298-07 ",.02)
 ;;55289-0298-07
 ;;9002226.02101,"976,55289-0298-10 ",.01)
 ;;55289-0298-10
 ;;9002226.02101,"976,55289-0298-10 ",.02)
 ;;55289-0298-10
 ;;9002226.02101,"976,55289-0298-14 ",.01)
 ;;55289-0298-14
 ;;9002226.02101,"976,55289-0298-14 ",.02)
 ;;55289-0298-14
 ;;9002226.02101,"976,55289-0298-15 ",.01)
 ;;55289-0298-15
 ;;9002226.02101,"976,55289-0298-15 ",.02)
 ;;55289-0298-15
 ;;9002226.02101,"976,55289-0298-20 ",.01)
 ;;55289-0298-20
 ;;9002226.02101,"976,55289-0298-20 ",.02)
 ;;55289-0298-20
 ;;9002226.02101,"976,55289-0298-24 ",.01)
 ;;55289-0298-24
 ;;9002226.02101,"976,55289-0298-24 ",.02)
 ;;55289-0298-24
 ;;9002226.02101,"976,55289-0298-28 ",.01)
 ;;55289-0298-28
 ;;9002226.02101,"976,55289-0298-28 ",.02)
 ;;55289-0298-28
 ;;9002226.02101,"976,55289-0298-30 ",.01)
 ;;55289-0298-30
 ;;9002226.02101,"976,55289-0298-30 ",.02)
 ;;55289-0298-30
 ;;9002226.02101,"976,55289-0298-40 ",.01)
 ;;55289-0298-40
 ;;9002226.02101,"976,55289-0298-40 ",.02)
 ;;55289-0298-40
 ;;9002226.02101,"976,55289-0298-60 ",.01)
 ;;55289-0298-60
 ;;9002226.02101,"976,55289-0298-60 ",.02)
 ;;55289-0298-60
 ;;9002226.02101,"976,55289-0307-15 ",.01)
 ;;55289-0307-15
 ;;9002226.02101,"976,55289-0307-15 ",.02)
 ;;55289-0307-15
 ;;9002226.02101,"976,55289-0307-24 ",.01)
 ;;55289-0307-24
 ;;9002226.02101,"976,55289-0307-24 ",.02)
 ;;55289-0307-24
 ;;9002226.02101,"976,55289-0307-30 ",.01)
 ;;55289-0307-30
 ;;9002226.02101,"976,55289-0307-30 ",.02)
 ;;55289-0307-30
 ;;9002226.02101,"976,55289-0328-15 ",.01)
 ;;55289-0328-15
 ;;9002226.02101,"976,55289-0328-15 ",.02)
 ;;55289-0328-15
 ;;9002226.02101,"976,55289-0328-20 ",.01)
 ;;55289-0328-20
 ;;9002226.02101,"976,55289-0328-20 ",.02)
 ;;55289-0328-20
 ;;9002226.02101,"976,55289-0328-30 ",.01)
 ;;55289-0328-30
 ;;9002226.02101,"976,55289-0328-30 ",.02)
 ;;55289-0328-30
 ;;9002226.02101,"976,55289-0332-06 ",.01)
 ;;55289-0332-06
 ;;9002226.02101,"976,55289-0332-06 ",.02)
 ;;55289-0332-06
 ;;9002226.02101,"976,55289-0332-15 ",.01)
 ;;55289-0332-15
 ;;9002226.02101,"976,55289-0332-15 ",.02)
 ;;55289-0332-15
 ;;9002226.02101,"976,55289-0332-20 ",.01)
 ;;55289-0332-20
 ;;9002226.02101,"976,55289-0332-20 ",.02)
 ;;55289-0332-20
 ;;9002226.02101,"976,55289-0332-30 ",.01)
 ;;55289-0332-30
 ;;9002226.02101,"976,55289-0332-30 ",.02)
 ;;55289-0332-30
 ;;9002226.02101,"976,55289-0334-20 ",.01)
 ;;55289-0334-20
 ;;9002226.02101,"976,55289-0334-20 ",.02)
 ;;55289-0334-20
 ;;9002226.02101,"976,55289-0334-30 ",.01)
 ;;55289-0334-30
 ;;9002226.02101,"976,55289-0334-30 ",.02)
 ;;55289-0334-30
 ;;9002226.02101,"976,55289-0334-40 ",.01)
 ;;55289-0334-40
 ;;9002226.02101,"976,55289-0334-40 ",.02)
 ;;55289-0334-40
 ;;9002226.02101,"976,55289-0367-06 ",.01)
 ;;55289-0367-06
 ;;9002226.02101,"976,55289-0367-06 ",.02)
 ;;55289-0367-06
 ;;9002226.02101,"976,55289-0367-10 ",.01)
 ;;55289-0367-10
 ;;9002226.02101,"976,55289-0367-10 ",.02)
 ;;55289-0367-10
 ;;9002226.02101,"976,55289-0367-14 ",.01)
 ;;55289-0367-14
 ;;9002226.02101,"976,55289-0367-14 ",.02)
 ;;55289-0367-14
 ;;9002226.02101,"976,55289-0367-15 ",.01)
 ;;55289-0367-15
 ;;9002226.02101,"976,55289-0367-15 ",.02)
 ;;55289-0367-15
 ;;9002226.02101,"976,55289-0367-20 ",.01)
 ;;55289-0367-20
 ;;9002226.02101,"976,55289-0367-20 ",.02)
 ;;55289-0367-20
 ;;9002226.02101,"976,55289-0367-28 ",.01)
 ;;55289-0367-28
 ;;9002226.02101,"976,55289-0367-28 ",.02)
 ;;55289-0367-28
 ;;9002226.02101,"976,55289-0367-30 ",.01)
 ;;55289-0367-30
 ;;9002226.02101,"976,55289-0367-30 ",.02)
 ;;55289-0367-30
 ;;9002226.02101,"976,55289-0367-42 ",.01)
 ;;55289-0367-42
 ;;9002226.02101,"976,55289-0367-42 ",.02)
 ;;55289-0367-42
 ;;9002226.02101,"976,55289-0369-10 ",.01)
 ;;55289-0369-10
 ;;9002226.02101,"976,55289-0369-10 ",.02)
 ;;55289-0369-10
 ;;9002226.02101,"976,55289-0406-15 ",.01)
 ;;55289-0406-15
 ;;9002226.02101,"976,55289-0406-15 ",.02)
 ;;55289-0406-15
 ;;9002226.02101,"976,55289-0406-30 ",.01)
 ;;55289-0406-30
 ;;9002226.02101,"976,55289-0406-30 ",.02)
 ;;55289-0406-30
 ;;9002226.02101,"976,55289-0418-14 ",.01)
 ;;55289-0418-14
 ;;9002226.02101,"976,55289-0418-14 ",.02)
 ;;55289-0418-14
 ;;9002226.02101,"976,55289-0418-20 ",.01)
 ;;55289-0418-20
 ;;9002226.02101,"976,55289-0418-20 ",.02)
 ;;55289-0418-20
 ;;9002226.02101,"976,55289-0418-30 ",.01)
 ;;55289-0418-30
 ;;9002226.02101,"976,55289-0418-30 ",.02)
 ;;55289-0418-30
 ;;9002226.02101,"976,55289-0420-10 ",.01)
 ;;55289-0420-10
 ;;9002226.02101,"976,55289-0420-10 ",.02)
 ;;55289-0420-10
 ;;9002226.02101,"976,55289-0420-14 ",.01)
 ;;55289-0420-14
 ;;9002226.02101,"976,55289-0420-14 ",.02)
 ;;55289-0420-14
 ;;9002226.02101,"976,55289-0420-15 ",.01)
 ;;55289-0420-15
 ;;9002226.02101,"976,55289-0420-15 ",.02)
 ;;55289-0420-15
 ;;9002226.02101,"976,55289-0420-20 ",.01)
 ;;55289-0420-20
 ;;9002226.02101,"976,55289-0420-20 ",.02)
 ;;55289-0420-20
 ;;9002226.02101,"976,55289-0420-30 ",.01)
 ;;55289-0420-30
 ;;9002226.02101,"976,55289-0420-30 ",.02)
 ;;55289-0420-30
 ;;9002226.02101,"976,55289-0420-40 ",.01)
 ;;55289-0420-40
 ;;9002226.02101,"976,55289-0420-40 ",.02)
 ;;55289-0420-40
 ;;9002226.02101,"976,55289-0435-15 ",.01)
 ;;55289-0435-15
 ;;9002226.02101,"976,55289-0435-15 ",.02)
 ;;55289-0435-15
 ;;9002226.02101,"976,55289-0435-20 ",.01)
 ;;55289-0435-20
 ;;9002226.02101,"976,55289-0435-20 ",.02)
 ;;55289-0435-20
 ;;9002226.02101,"976,55289-0435-21 ",.01)
 ;;55289-0435-21
 ;;9002226.02101,"976,55289-0435-21 ",.02)
 ;;55289-0435-21
 ;;9002226.02101,"976,55289-0435-30 ",.01)
 ;;55289-0435-30
 ;;9002226.02101,"976,55289-0435-30 ",.02)
 ;;55289-0435-30
 ;;9002226.02101,"976,55289-0435-40 ",.01)
 ;;55289-0435-40
 ;;9002226.02101,"976,55289-0435-40 ",.02)
 ;;55289-0435-40
 ;;9002226.02101,"976,55289-0445-15 ",.01)
 ;;55289-0445-15
 ;;9002226.02101,"976,55289-0445-15 ",.02)
 ;;55289-0445-15
 ;;9002226.02101,"976,55289-0445-20 ",.01)
 ;;55289-0445-20
 ;;9002226.02101,"976,55289-0445-20 ",.02)
 ;;55289-0445-20
 ;;9002226.02101,"976,55289-0445-21 ",.01)
 ;;55289-0445-21
 ;;9002226.02101,"976,55289-0445-21 ",.02)
 ;;55289-0445-21
 ;;9002226.02101,"976,55289-0445-28 ",.01)
 ;;55289-0445-28
 ;;9002226.02101,"976,55289-0445-28 ",.02)
 ;;55289-0445-28
 ;;9002226.02101,"976,55289-0445-30 ",.01)
 ;;55289-0445-30
 ;;9002226.02101,"976,55289-0445-30 ",.02)
 ;;55289-0445-30
 ;;9002226.02101,"976,55289-0445-56 ",.01)
 ;;55289-0445-56
 ;;9002226.02101,"976,55289-0445-56 ",.02)
 ;;55289-0445-56
 ;;9002226.02101,"976,55289-0445-60 ",.01)
 ;;55289-0445-60