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

BGP0ZD29.m

Go to the documentation of this file.
BGP0ZD29 ;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,58016-0169-28 ",.02)
 ;;58016-0169-28
 ;;9002226.02101,"976,58016-0169-30 ",.01)
 ;;58016-0169-30
 ;;9002226.02101,"976,58016-0169-30 ",.02)
 ;;58016-0169-30
 ;;9002226.02101,"976,58016-0169-60 ",.01)
 ;;58016-0169-60
 ;;9002226.02101,"976,58016-0169-60 ",.02)
 ;;58016-0169-60
 ;;9002226.02101,"976,58016-0194-00 ",.01)
 ;;58016-0194-00
 ;;9002226.02101,"976,58016-0194-00 ",.02)
 ;;58016-0194-00
 ;;9002226.02101,"976,58016-0194-02 ",.01)
 ;;58016-0194-02
 ;;9002226.02101,"976,58016-0194-02 ",.02)
 ;;58016-0194-02
 ;;9002226.02101,"976,58016-0194-03 ",.01)
 ;;58016-0194-03
 ;;9002226.02101,"976,58016-0194-03 ",.02)
 ;;58016-0194-03
 ;;9002226.02101,"976,58016-0194-10 ",.01)
 ;;58016-0194-10
 ;;9002226.02101,"976,58016-0194-10 ",.02)
 ;;58016-0194-10
 ;;9002226.02101,"976,58016-0194-12 ",.01)
 ;;58016-0194-12
 ;;9002226.02101,"976,58016-0194-12 ",.02)
 ;;58016-0194-12
 ;;9002226.02101,"976,58016-0194-14 ",.01)
 ;;58016-0194-14
 ;;9002226.02101,"976,58016-0194-14 ",.02)
 ;;58016-0194-14
 ;;9002226.02101,"976,58016-0194-15 ",.01)
 ;;58016-0194-15
 ;;9002226.02101,"976,58016-0194-15 ",.02)
 ;;58016-0194-15
 ;;9002226.02101,"976,58016-0194-20 ",.01)
 ;;58016-0194-20
 ;;9002226.02101,"976,58016-0194-20 ",.02)
 ;;58016-0194-20
 ;;9002226.02101,"976,58016-0194-21 ",.01)
 ;;58016-0194-21
 ;;9002226.02101,"976,58016-0194-21 ",.02)
 ;;58016-0194-21
 ;;9002226.02101,"976,58016-0194-24 ",.01)
 ;;58016-0194-24
 ;;9002226.02101,"976,58016-0194-24 ",.02)
 ;;58016-0194-24
 ;;9002226.02101,"976,58016-0194-28 ",.01)
 ;;58016-0194-28
 ;;9002226.02101,"976,58016-0194-28 ",.02)
 ;;58016-0194-28
 ;;9002226.02101,"976,58016-0194-30 ",.01)
 ;;58016-0194-30
 ;;9002226.02101,"976,58016-0194-30 ",.02)
 ;;58016-0194-30
 ;;9002226.02101,"976,58016-0194-40 ",.01)
 ;;58016-0194-40
 ;;9002226.02101,"976,58016-0194-40 ",.02)
 ;;58016-0194-40
 ;;9002226.02101,"976,58016-0194-50 ",.01)
 ;;58016-0194-50
 ;;9002226.02101,"976,58016-0194-50 ",.02)
 ;;58016-0194-50
 ;;9002226.02101,"976,58016-0194-60 ",.01)
 ;;58016-0194-60
 ;;9002226.02101,"976,58016-0194-60 ",.02)
 ;;58016-0194-60
 ;;9002226.02101,"976,58016-0194-70 ",.01)
 ;;58016-0194-70
 ;;9002226.02101,"976,58016-0194-70 ",.02)
 ;;58016-0194-70
 ;;9002226.02101,"976,58016-0194-73 ",.01)
 ;;58016-0194-73
 ;;9002226.02101,"976,58016-0194-73 ",.02)
 ;;58016-0194-73
 ;;9002226.02101,"976,58016-0194-80 ",.01)
 ;;58016-0194-80
 ;;9002226.02101,"976,58016-0194-80 ",.02)
 ;;58016-0194-80
 ;;9002226.02101,"976,58016-0194-89 ",.01)
 ;;58016-0194-89
 ;;9002226.02101,"976,58016-0194-89 ",.02)
 ;;58016-0194-89
 ;;9002226.02101,"976,58016-0194-90 ",.01)
 ;;58016-0194-90
 ;;9002226.02101,"976,58016-0194-90 ",.02)
 ;;58016-0194-90
 ;;9002226.02101,"976,58016-0206-00 ",.01)
 ;;58016-0206-00
 ;;9002226.02101,"976,58016-0206-00 ",.02)
 ;;58016-0206-00
 ;;9002226.02101,"976,58016-0206-14 ",.01)
 ;;58016-0206-14
 ;;9002226.02101,"976,58016-0206-14 ",.02)
 ;;58016-0206-14
 ;;9002226.02101,"976,58016-0206-15 ",.01)
 ;;58016-0206-15
 ;;9002226.02101,"976,58016-0206-15 ",.02)
 ;;58016-0206-15
 ;;9002226.02101,"976,58016-0206-20 ",.01)
 ;;58016-0206-20
 ;;9002226.02101,"976,58016-0206-20 ",.02)
 ;;58016-0206-20
 ;;9002226.02101,"976,58016-0206-21 ",.01)
 ;;58016-0206-21
 ;;9002226.02101,"976,58016-0206-21 ",.02)
 ;;58016-0206-21
 ;;9002226.02101,"976,58016-0206-30 ",.01)
 ;;58016-0206-30
 ;;9002226.02101,"976,58016-0206-30 ",.02)
 ;;58016-0206-30
 ;;9002226.02101,"976,58016-0206-42 ",.01)
 ;;58016-0206-42
 ;;9002226.02101,"976,58016-0206-42 ",.02)
 ;;58016-0206-42
 ;;9002226.02101,"976,58016-0208-00 ",.01)
 ;;58016-0208-00
 ;;9002226.02101,"976,58016-0208-00 ",.02)
 ;;58016-0208-00
 ;;9002226.02101,"976,58016-0208-14 ",.01)
 ;;58016-0208-14
 ;;9002226.02101,"976,58016-0208-14 ",.02)
 ;;58016-0208-14
 ;;9002226.02101,"976,58016-0208-15 ",.01)
 ;;58016-0208-15
 ;;9002226.02101,"976,58016-0208-15 ",.02)
 ;;58016-0208-15
 ;;9002226.02101,"976,58016-0208-20 ",.01)
 ;;58016-0208-20
 ;;9002226.02101,"976,58016-0208-20 ",.02)
 ;;58016-0208-20
 ;;9002226.02101,"976,58016-0208-21 ",.01)
 ;;58016-0208-21
 ;;9002226.02101,"976,58016-0208-21 ",.02)
 ;;58016-0208-21
 ;;9002226.02101,"976,58016-0208-30 ",.01)
 ;;58016-0208-30
 ;;9002226.02101,"976,58016-0208-30 ",.02)
 ;;58016-0208-30
 ;;9002226.02101,"976,58016-0208-42 ",.01)
 ;;58016-0208-42
 ;;9002226.02101,"976,58016-0208-42 ",.02)
 ;;58016-0208-42
 ;;9002226.02101,"976,58016-0208-60 ",.01)
 ;;58016-0208-60
 ;;9002226.02101,"976,58016-0208-60 ",.02)
 ;;58016-0208-60
 ;;9002226.02101,"976,58016-0208-90 ",.01)
 ;;58016-0208-90
 ;;9002226.02101,"976,58016-0208-90 ",.02)
 ;;58016-0208-90
 ;;9002226.02101,"976,58016-0209-00 ",.01)
 ;;58016-0209-00
 ;;9002226.02101,"976,58016-0209-00 ",.02)
 ;;58016-0209-00
 ;;9002226.02101,"976,58016-0209-14 ",.01)
 ;;58016-0209-14
 ;;9002226.02101,"976,58016-0209-14 ",.02)
 ;;58016-0209-14
 ;;9002226.02101,"976,58016-0209-15 ",.01)
 ;;58016-0209-15
 ;;9002226.02101,"976,58016-0209-15 ",.02)
 ;;58016-0209-15
 ;;9002226.02101,"976,58016-0209-20 ",.01)
 ;;58016-0209-20
 ;;9002226.02101,"976,58016-0209-20 ",.02)
 ;;58016-0209-20
 ;;9002226.02101,"976,58016-0209-21 ",.01)
 ;;58016-0209-21
 ;;9002226.02101,"976,58016-0209-21 ",.02)
 ;;58016-0209-21
 ;;9002226.02101,"976,58016-0209-30 ",.01)
 ;;58016-0209-30
 ;;9002226.02101,"976,58016-0209-30 ",.02)
 ;;58016-0209-30
 ;;9002226.02101,"976,58016-0209-42 ",.01)
 ;;58016-0209-42
 ;;9002226.02101,"976,58016-0209-42 ",.02)
 ;;58016-0209-42
 ;;9002226.02101,"976,58016-0209-60 ",.01)
 ;;58016-0209-60
 ;;9002226.02101,"976,58016-0209-60 ",.02)
 ;;58016-0209-60
 ;;9002226.02101,"976,58016-0209-90 ",.01)
 ;;58016-0209-90
 ;;9002226.02101,"976,58016-0209-90 ",.02)
 ;;58016-0209-90
 ;;9002226.02101,"976,58016-0223-00 ",.01)
 ;;58016-0223-00
 ;;9002226.02101,"976,58016-0223-00 ",.02)
 ;;58016-0223-00
 ;;9002226.02101,"976,58016-0223-10 ",.01)
 ;;58016-0223-10
 ;;9002226.02101,"976,58016-0223-10 ",.02)
 ;;58016-0223-10
 ;;9002226.02101,"976,58016-0223-12 ",.01)
 ;;58016-0223-12
 ;;9002226.02101,"976,58016-0223-12 ",.02)
 ;;58016-0223-12
 ;;9002226.02101,"976,58016-0223-14 ",.01)
 ;;58016-0223-14
 ;;9002226.02101,"976,58016-0223-14 ",.02)
 ;;58016-0223-14
 ;;9002226.02101,"976,58016-0223-15 ",.01)
 ;;58016-0223-15
 ;;9002226.02101,"976,58016-0223-15 ",.02)
 ;;58016-0223-15
 ;;9002226.02101,"976,58016-0223-20 ",.01)
 ;;58016-0223-20
 ;;9002226.02101,"976,58016-0223-20 ",.02)
 ;;58016-0223-20
 ;;9002226.02101,"976,58016-0223-21 ",.01)
 ;;58016-0223-21
 ;;9002226.02101,"976,58016-0223-21 ",.02)
 ;;58016-0223-21
 ;;9002226.02101,"976,58016-0223-28 ",.01)
 ;;58016-0223-28
 ;;9002226.02101,"976,58016-0223-28 ",.02)
 ;;58016-0223-28
 ;;9002226.02101,"976,58016-0223-30 ",.01)
 ;;58016-0223-30
 ;;9002226.02101,"976,58016-0223-30 ",.02)
 ;;58016-0223-30
 ;;9002226.02101,"976,58016-0223-60 ",.01)
 ;;58016-0223-60
 ;;9002226.02101,"976,58016-0223-60 ",.02)
 ;;58016-0223-60
 ;;9002226.02101,"976,58016-0235-00 ",.01)
 ;;58016-0235-00
 ;;9002226.02101,"976,58016-0235-00 ",.02)
 ;;58016-0235-00
 ;;9002226.02101,"976,58016-0235-08 ",.01)
 ;;58016-0235-08
 ;;9002226.02101,"976,58016-0235-08 ",.02)
 ;;58016-0235-08
 ;;9002226.02101,"976,58016-0235-20 ",.01)
 ;;58016-0235-20
 ;;9002226.02101,"976,58016-0235-20 ",.02)
 ;;58016-0235-20
 ;;9002226.02101,"976,58016-0235-30 ",.01)
 ;;58016-0235-30
 ;;9002226.02101,"976,58016-0235-30 ",.02)
 ;;58016-0235-30
 ;;9002226.02101,"976,58016-0235-60 ",.01)
 ;;58016-0235-60
 ;;9002226.02101,"976,58016-0235-60 ",.02)
 ;;58016-0235-60
 ;;9002226.02101,"976,58016-0235-75 ",.01)
 ;;58016-0235-75
 ;;9002226.02101,"976,58016-0235-75 ",.02)
 ;;58016-0235-75
 ;;9002226.02101,"976,58016-0236-00 ",.01)
 ;;58016-0236-00
 ;;9002226.02101,"976,58016-0236-00 ",.02)
 ;;58016-0236-00
 ;;9002226.02101,"976,58016-0236-14 ",.01)
 ;;58016-0236-14
 ;;9002226.02101,"976,58016-0236-14 ",.02)
 ;;58016-0236-14
 ;;9002226.02101,"976,58016-0236-20 ",.01)
 ;;58016-0236-20
 ;;9002226.02101,"976,58016-0236-20 ",.02)
 ;;58016-0236-20
 ;;9002226.02101,"976,58016-0236-21 ",.01)
 ;;58016-0236-21
 ;;9002226.02101,"976,58016-0236-21 ",.02)
 ;;58016-0236-21
 ;;9002226.02101,"976,58016-0236-30 ",.01)
 ;;58016-0236-30
 ;;9002226.02101,"976,58016-0236-30 ",.02)
 ;;58016-0236-30
 ;;9002226.02101,"976,58016-0236-40 ",.01)
 ;;58016-0236-40
 ;;9002226.02101,"976,58016-0236-40 ",.02)
 ;;58016-0236-40
 ;;9002226.02101,"976,58016-0236-60 ",.01)
 ;;58016-0236-60
 ;;9002226.02101,"976,58016-0236-60 ",.02)
 ;;58016-0236-60
 ;;9002226.02101,"976,58016-0237-07 ",.01)
 ;;58016-0237-07
 ;;9002226.02101,"976,58016-0237-07 ",.02)
 ;;58016-0237-07
 ;;9002226.02101,"976,58016-0237-10 ",.01)
 ;;58016-0237-10
 ;;9002226.02101,"976,58016-0237-10 ",.02)
 ;;58016-0237-10
 ;;9002226.02101,"976,58016-0237-12 ",.01)
 ;;58016-0237-12
 ;;9002226.02101,"976,58016-0237-12 ",.02)
 ;;58016-0237-12
 ;;9002226.02101,"976,58016-0237-14 ",.01)
 ;;58016-0237-14
 ;;9002226.02101,"976,58016-0237-14 ",.02)
 ;;58016-0237-14
 ;;9002226.02101,"976,58016-0237-15 ",.01)
 ;;58016-0237-15
 ;;9002226.02101,"976,58016-0237-15 ",.02)
 ;;58016-0237-15
 ;;9002226.02101,"976,58016-0237-20 ",.01)
 ;;58016-0237-20
 ;;9002226.02101,"976,58016-0237-20 ",.02)
 ;;58016-0237-20
 ;;9002226.02101,"976,58016-0237-21 ",.01)
 ;;58016-0237-21
 ;;9002226.02101,"976,58016-0237-21 ",.02)
 ;;58016-0237-21
 ;;9002226.02101,"976,58016-0237-24 ",.01)
 ;;58016-0237-24
 ;;9002226.02101,"976,58016-0237-24 ",.02)
 ;;58016-0237-24
 ;;9002226.02101,"976,58016-0237-28 ",.01)
 ;;58016-0237-28
 ;;9002226.02101,"976,58016-0237-28 ",.02)
 ;;58016-0237-28
 ;;9002226.02101,"976,58016-0237-30 ",.01)
 ;;58016-0237-30
 ;;9002226.02101,"976,58016-0237-30 ",.02)
 ;;58016-0237-30
 ;;9002226.02101,"976,58016-0237-40 ",.01)
 ;;58016-0237-40
 ;;9002226.02101,"976,58016-0237-40 ",.02)
 ;;58016-0237-40
 ;;9002226.02101,"976,58016-0237-60 ",.01)
 ;;58016-0237-60
 ;;9002226.02101,"976,58016-0237-60 ",.02)
 ;;58016-0237-60
 ;;9002226.02101,"976,58016-0241-00 ",.01)
 ;;58016-0241-00
 ;;9002226.02101,"976,58016-0241-00 ",.02)
 ;;58016-0241-00
 ;;9002226.02101,"976,58016-0241-02 ",.01)
 ;;58016-0241-02
 ;;9002226.02101,"976,58016-0241-02 ",.02)
 ;;58016-0241-02
 ;;9002226.02101,"976,58016-0241-08 ",.01)
 ;;58016-0241-08
 ;;9002226.02101,"976,58016-0241-08 ",.02)
 ;;58016-0241-08
 ;;9002226.02101,"976,58016-0241-12 ",.01)
 ;;58016-0241-12
 ;;9002226.02101,"976,58016-0241-12 ",.02)
 ;;58016-0241-12
 ;;9002226.02101,"976,58016-0241-14 ",.01)
 ;;58016-0241-14
 ;;9002226.02101,"976,58016-0241-14 ",.02)
 ;;58016-0241-14
 ;;9002226.02101,"976,58016-0241-15 ",.01)
 ;;58016-0241-15
 ;;9002226.02101,"976,58016-0241-15 ",.02)
 ;;58016-0241-15
 ;;9002226.02101,"976,58016-0241-16 ",.01)
 ;;58016-0241-16
 ;;9002226.02101,"976,58016-0241-16 ",.02)
 ;;58016-0241-16
 ;;9002226.02101,"976,58016-0241-20 ",.01)
 ;;58016-0241-20
 ;;9002226.02101,"976,58016-0241-20 ",.02)
 ;;58016-0241-20
 ;;9002226.02101,"976,58016-0241-21 ",.01)
 ;;58016-0241-21
 ;;9002226.02101,"976,58016-0241-21 ",.02)
 ;;58016-0241-21
 ;;9002226.02101,"976,58016-0241-30 ",.01)
 ;;58016-0241-30
 ;;9002226.02101,"976,58016-0241-30 ",.02)
 ;;58016-0241-30
 ;;9002226.02101,"976,58016-0241-40 ",.01)
 ;;58016-0241-40
 ;;9002226.02101,"976,58016-0241-40 ",.02)
 ;;58016-0241-40
 ;;9002226.02101,"976,58016-0241-50 ",.01)
 ;;58016-0241-50
 ;;9002226.02101,"976,58016-0241-50 ",.02)
 ;;58016-0241-50
 ;;9002226.02101,"976,58016-0241-56 ",.01)
 ;;58016-0241-56
 ;;9002226.02101,"976,58016-0241-56 ",.02)
 ;;58016-0241-56
 ;;9002226.02101,"976,58016-0241-60 ",.01)
 ;;58016-0241-60
 ;;9002226.02101,"976,58016-0241-60 ",.02)
 ;;58016-0241-60
 ;;9002226.02101,"976,58016-0241-90 ",.01)
 ;;58016-0241-90
 ;;9002226.02101,"976,58016-0241-90 ",.02)
 ;;58016-0241-90
 ;;9002226.02101,"976,58016-0242-00 ",.01)
 ;;58016-0242-00
 ;;9002226.02101,"976,58016-0242-00 ",.02)
 ;;58016-0242-00
 ;;9002226.02101,"976,58016-0242-02 ",.01)
 ;;58016-0242-02
 ;;9002226.02101,"976,58016-0242-02 ",.02)
 ;;58016-0242-02
 ;;9002226.02101,"976,58016-0242-06 ",.01)
 ;;58016-0242-06
 ;;9002226.02101,"976,58016-0242-06 ",.02)
 ;;58016-0242-06
 ;;9002226.02101,"976,58016-0242-08 ",.01)
 ;;58016-0242-08
 ;;9002226.02101,"976,58016-0242-08 ",.02)
 ;;58016-0242-08
 ;;9002226.02101,"976,58016-0242-10 ",.01)
 ;;58016-0242-10
 ;;9002226.02101,"976,58016-0242-10 ",.02)
 ;;58016-0242-10
 ;;9002226.02101,"976,58016-0242-12 ",.01)
 ;;58016-0242-12
 ;;9002226.02101,"976,58016-0242-12 ",.02)
 ;;58016-0242-12
 ;;9002226.02101,"976,58016-0242-15 ",.01)
 ;;58016-0242-15
 ;;9002226.02101,"976,58016-0242-15 ",.02)
 ;;58016-0242-15
 ;;9002226.02101,"976,58016-0242-20 ",.01)
 ;;58016-0242-20
 ;;9002226.02101,"976,58016-0242-20 ",.02)
 ;;58016-0242-20
 ;;9002226.02101,"976,58016-0242-21 ",.01)
 ;;58016-0242-21
 ;;9002226.02101,"976,58016-0242-21 ",.02)
 ;;58016-0242-21
 ;;9002226.02101,"976,58016-0242-28 ",.01)
 ;;58016-0242-28
 ;;9002226.02101,"976,58016-0242-28 ",.02)
 ;;58016-0242-28
 ;;9002226.02101,"976,58016-0242-30 ",.01)
 ;;58016-0242-30
 ;;9002226.02101,"976,58016-0242-30 ",.02)
 ;;58016-0242-30
 ;;9002226.02101,"976,58016-0242-40 ",.01)
 ;;58016-0242-40
 ;;9002226.02101,"976,58016-0242-40 ",.02)
 ;;58016-0242-40
 ;;9002226.02101,"976,58016-0242-42 ",.01)
 ;;58016-0242-42
 ;;9002226.02101,"976,58016-0242-42 ",.02)
 ;;58016-0242-42
 ;;9002226.02101,"976,58016-0242-50 ",.01)
 ;;58016-0242-50