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

BGP06D20.m

Go to the documentation of this file.
BGP06D20 ;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,"978,58864-0162-30 ",.01)
 ;;58864-0162-30
 ;;9002226.02101,"978,58864-0162-30 ",.02)
 ;;58864-0162-30
 ;;9002226.02101,"978,58864-0162-56 ",.01)
 ;;58864-0162-56
 ;;9002226.02101,"978,58864-0162-56 ",.02)
 ;;58864-0162-56
 ;;9002226.02101,"978,58864-0162-60 ",.01)
 ;;58864-0162-60
 ;;9002226.02101,"978,58864-0162-60 ",.02)
 ;;58864-0162-60
 ;;9002226.02101,"978,58864-0163-30 ",.01)
 ;;58864-0163-30
 ;;9002226.02101,"978,58864-0163-30 ",.02)
 ;;58864-0163-30
 ;;9002226.02101,"978,58864-0163-60 ",.01)
 ;;58864-0163-60
 ;;9002226.02101,"978,58864-0163-60 ",.02)
 ;;58864-0163-60
 ;;9002226.02101,"978,59390-0065-35 ",.01)
 ;;59390-0065-35
 ;;9002226.02101,"978,59390-0065-35 ",.02)
 ;;59390-0065-35
 ;;9002226.02101,"978,59390-0065-46 ",.01)
 ;;59390-0065-46
 ;;9002226.02101,"978,59390-0065-46 ",.02)
 ;;59390-0065-46
 ;;9002226.02101,"978,59390-0065-47 ",.01)
 ;;59390-0065-47
 ;;9002226.02101,"978,59390-0065-47 ",.02)
 ;;59390-0065-47
 ;;9002226.02101,"978,59630-0465-04 ",.01)
 ;;59630-0465-04
 ;;9002226.02101,"978,59630-0465-04 ",.02)
 ;;59630-0465-04
 ;;9002226.02101,"978,59630-0465-16 ",.01)
 ;;59630-0465-16
 ;;9002226.02101,"978,59630-0465-16 ",.02)
 ;;59630-0465-16
 ;;9002226.02101,"978,59630-0470-04 ",.01)
 ;;59630-0470-04
 ;;9002226.02101,"978,59630-0470-04 ",.02)
 ;;59630-0470-04
 ;;9002226.02101,"978,59630-0470-16 ",.01)
 ;;59630-0470-16
 ;;9002226.02101,"978,59630-0470-16 ",.02)
 ;;59630-0470-16
 ;;9002226.02101,"978,60242-0202-01 ",.01)
 ;;60242-0202-01
 ;;9002226.02101,"978,60242-0202-01 ",.02)
 ;;60242-0202-01
 ;;9002226.02101,"978,60242-0202-10 ",.01)
 ;;60242-0202-10
 ;;9002226.02101,"978,60242-0202-10 ",.02)
 ;;60242-0202-10
 ;;9002226.02101,"978,60258-0401-16 ",.01)
 ;;60258-0401-16
 ;;9002226.02101,"978,60258-0401-16 ",.02)
 ;;60258-0401-16
 ;;9002226.02101,"978,60258-0410-16 ",.01)
 ;;60258-0410-16
 ;;9002226.02101,"978,60258-0410-16 ",.02)
 ;;60258-0410-16
 ;;9002226.02101,"978,60258-0480-16 ",.01)
 ;;60258-0480-16
 ;;9002226.02101,"978,60258-0480-16 ",.02)
 ;;60258-0480-16
 ;;9002226.02101,"978,60258-0683-16 ",.01)
 ;;60258-0683-16
 ;;9002226.02101,"978,60258-0683-16 ",.02)
 ;;60258-0683-16
 ;;9002226.02101,"978,60258-0709-16 ",.01)
 ;;60258-0709-16
 ;;9002226.02101,"978,60258-0709-16 ",.02)
 ;;60258-0709-16
 ;;9002226.02101,"978,60258-0711-16 ",.01)
 ;;60258-0711-16
 ;;9002226.02101,"978,60258-0711-16 ",.02)
 ;;60258-0711-16
 ;;9002226.02101,"978,60258-0850-01 ",.01)
 ;;60258-0850-01
 ;;9002226.02101,"978,60258-0850-01 ",.02)
 ;;60258-0850-01
 ;;9002226.02101,"978,60258-0850-10 ",.01)
 ;;60258-0850-10
 ;;9002226.02101,"978,60258-0850-10 ",.02)
 ;;60258-0850-10
 ;;9002226.02101,"978,60432-0033-04 ",.01)
 ;;60432-0033-04
 ;;9002226.02101,"978,60432-0033-04 ",.02)
 ;;60432-0033-04
 ;;9002226.02101,"978,60432-0033-08 ",.01)
 ;;60432-0033-08
 ;;9002226.02101,"978,60432-0033-08 ",.02)
 ;;60432-0033-08
 ;;9002226.02101,"978,60432-0033-16 ",.01)
 ;;60432-0033-16
 ;;9002226.02101,"978,60432-0033-16 ",.02)
 ;;60432-0033-16
 ;;9002226.02101,"978,60432-0150-04 ",.01)
 ;;60432-0150-04
 ;;9002226.02101,"978,60432-0150-04 ",.02)
 ;;60432-0150-04
 ;;9002226.02101,"978,60432-0150-16 ",.01)
 ;;60432-0150-16
 ;;9002226.02101,"978,60432-0150-16 ",.02)
 ;;60432-0150-16
 ;;9002226.02101,"978,60432-0198-04 ",.01)
 ;;60432-0198-04
 ;;9002226.02101,"978,60432-0198-04 ",.02)
 ;;60432-0198-04
 ;;9002226.02101,"978,60432-0198-16 ",.01)
 ;;60432-0198-16
 ;;9002226.02101,"978,60432-0198-16 ",.02)
 ;;60432-0198-16
 ;;9002226.02101,"978,60432-0539-16 ",.01)
 ;;60432-0539-16
 ;;9002226.02101,"978,60432-0539-16 ",.02)
 ;;60432-0539-16
 ;;9002226.02101,"978,60432-0604-04 ",.01)
 ;;60432-0604-04
 ;;9002226.02101,"978,60432-0604-04 ",.02)
 ;;60432-0604-04
 ;;9002226.02101,"978,60432-0604-16 ",.01)
 ;;60432-0604-16
 ;;9002226.02101,"978,60432-0604-16 ",.02)
 ;;60432-0604-16
 ;;9002226.02101,"978,60432-0606-16 ",.01)
 ;;60432-0606-16
 ;;9002226.02101,"978,60432-0606-16 ",.02)
 ;;60432-0606-16
 ;;9002226.02101,"978,60432-0608-04 ",.01)
 ;;60432-0608-04
 ;;9002226.02101,"978,60432-0608-04 ",.02)
 ;;60432-0608-04
 ;;9002226.02101,"978,60432-0608-16 ",.01)
 ;;60432-0608-16
 ;;9002226.02101,"978,60432-0608-16 ",.02)
 ;;60432-0608-16
 ;;9002226.02101,"978,60432-0634-08 ",.01)
 ;;60432-0634-08
 ;;9002226.02101,"978,60432-0634-08 ",.02)
 ;;60432-0634-08
 ;;9002226.02101,"978,60569-0471-04 ",.01)
 ;;60569-0471-04
 ;;9002226.02101,"978,60569-0471-04 ",.02)
 ;;60569-0471-04
 ;;9002226.02101,"978,60760-0307-20 ",.01)
 ;;60760-0307-20
 ;;9002226.02101,"978,60760-0307-20 ",.02)
 ;;60760-0307-20
 ;;9002226.02101,"978,60760-0330-30 ",.01)
 ;;60760-0330-30
 ;;9002226.02101,"978,60760-0330-30 ",.02)
 ;;60760-0330-30
 ;;9002226.02101,"978,60760-0971-30 ",.01)
 ;;60760-0971-30
 ;;9002226.02101,"978,60760-0971-30 ",.02)
 ;;60760-0971-30
 ;;9002226.02101,"978,60814-0104-30 ",.01)
 ;;60814-0104-30
 ;;9002226.02101,"978,60814-0104-30 ",.02)
 ;;60814-0104-30
 ;;9002226.02101,"978,61392-0010-15 ",.01)
 ;;61392-0010-15
 ;;9002226.02101,"978,61392-0010-15 ",.02)
 ;;61392-0010-15
 ;;9002226.02101,"978,61392-0010-30 ",.01)
 ;;61392-0010-30
 ;;9002226.02101,"978,61392-0010-30 ",.02)
 ;;61392-0010-30
 ;;9002226.02101,"978,61392-0010-31 ",.01)
 ;;61392-0010-31
 ;;9002226.02101,"978,61392-0010-31 ",.02)
 ;;61392-0010-31
 ;;9002226.02101,"978,61392-0010-32 ",.01)
 ;;61392-0010-32
 ;;9002226.02101,"978,61392-0010-32 ",.02)
 ;;61392-0010-32
 ;;9002226.02101,"978,61392-0010-39 ",.01)
 ;;61392-0010-39
 ;;9002226.02101,"978,61392-0010-39 ",.02)
 ;;61392-0010-39
 ;;9002226.02101,"978,61392-0010-45 ",.01)
 ;;61392-0010-45
 ;;9002226.02101,"978,61392-0010-45 ",.02)
 ;;61392-0010-45
 ;;9002226.02101,"978,61392-0010-51 ",.01)
 ;;61392-0010-51
 ;;9002226.02101,"978,61392-0010-51 ",.02)
 ;;61392-0010-51
 ;;9002226.02101,"978,61392-0010-54 ",.01)
 ;;61392-0010-54
 ;;9002226.02101,"978,61392-0010-54 ",.02)
 ;;61392-0010-54
 ;;9002226.02101,"978,61392-0010-56 ",.01)
 ;;61392-0010-56
 ;;9002226.02101,"978,61392-0010-56 ",.02)
 ;;61392-0010-56
 ;;9002226.02101,"978,61392-0010-60 ",.01)
 ;;61392-0010-60
 ;;9002226.02101,"978,61392-0010-60 ",.02)
 ;;61392-0010-60
 ;;9002226.02101,"978,61392-0010-90 ",.01)
 ;;61392-0010-90
 ;;9002226.02101,"978,61392-0010-90 ",.02)
 ;;61392-0010-90
 ;;9002226.02101,"978,61392-0010-91 ",.01)
 ;;61392-0010-91
 ;;9002226.02101,"978,61392-0010-91 ",.02)
 ;;61392-0010-91
 ;;9002226.02101,"978,61392-0012-30 ",.01)
 ;;61392-0012-30
 ;;9002226.02101,"978,61392-0012-30 ",.02)
 ;;61392-0012-30
 ;;9002226.02101,"978,61392-0012-31 ",.01)
 ;;61392-0012-31
 ;;9002226.02101,"978,61392-0012-31 ",.02)
 ;;61392-0012-31
 ;;9002226.02101,"978,61392-0012-32 ",.01)
 ;;61392-0012-32
 ;;9002226.02101,"978,61392-0012-32 ",.02)
 ;;61392-0012-32
 ;;9002226.02101,"978,61392-0012-34 ",.01)
 ;;61392-0012-34
 ;;9002226.02101,"978,61392-0012-34 ",.02)
 ;;61392-0012-34
 ;;9002226.02101,"978,61392-0012-39 ",.01)
 ;;61392-0012-39
 ;;9002226.02101,"978,61392-0012-39 ",.02)
 ;;61392-0012-39
 ;;9002226.02101,"978,61392-0012-45 ",.01)
 ;;61392-0012-45
 ;;9002226.02101,"978,61392-0012-45 ",.02)
 ;;61392-0012-45
 ;;9002226.02101,"978,61392-0012-51 ",.01)
 ;;61392-0012-51
 ;;9002226.02101,"978,61392-0012-51 ",.02)
 ;;61392-0012-51
 ;;9002226.02101,"978,61392-0012-54 ",.01)
 ;;61392-0012-54
 ;;9002226.02101,"978,61392-0012-54 ",.02)
 ;;61392-0012-54
 ;;9002226.02101,"978,61392-0012-56 ",.01)
 ;;61392-0012-56
 ;;9002226.02101,"978,61392-0012-56 ",.02)
 ;;61392-0012-56
 ;;9002226.02101,"978,61392-0012-60 ",.01)
 ;;61392-0012-60
 ;;9002226.02101,"978,61392-0012-60 ",.02)
 ;;61392-0012-60
 ;;9002226.02101,"978,61392-0012-90 ",.01)
 ;;61392-0012-90
 ;;9002226.02101,"978,61392-0012-90 ",.02)
 ;;61392-0012-90
 ;;9002226.02101,"978,61392-0012-91 ",.01)
 ;;61392-0012-91
 ;;9002226.02101,"978,61392-0012-91 ",.02)
 ;;61392-0012-91
 ;;9002226.02101,"978,61392-0013-15 ",.01)
 ;;61392-0013-15
 ;;9002226.02101,"978,61392-0013-15 ",.02)
 ;;61392-0013-15
 ;;9002226.02101,"978,61392-0013-30 ",.01)
 ;;61392-0013-30
 ;;9002226.02101,"978,61392-0013-30 ",.02)
 ;;61392-0013-30
 ;;9002226.02101,"978,61392-0013-31 ",.01)
 ;;61392-0013-31
 ;;9002226.02101,"978,61392-0013-31 ",.02)
 ;;61392-0013-31
 ;;9002226.02101,"978,61392-0013-32 ",.01)
 ;;61392-0013-32
 ;;9002226.02101,"978,61392-0013-32 ",.02)
 ;;61392-0013-32
 ;;9002226.02101,"978,61392-0013-39 ",.01)
 ;;61392-0013-39
 ;;9002226.02101,"978,61392-0013-39 ",.02)
 ;;61392-0013-39
 ;;9002226.02101,"978,61392-0013-45 ",.01)
 ;;61392-0013-45
 ;;9002226.02101,"978,61392-0013-45 ",.02)
 ;;61392-0013-45
 ;;9002226.02101,"978,61392-0013-51 ",.01)
 ;;61392-0013-51
 ;;9002226.02101,"978,61392-0013-51 ",.02)
 ;;61392-0013-51
 ;;9002226.02101,"978,61392-0013-54 ",.01)
 ;;61392-0013-54
 ;;9002226.02101,"978,61392-0013-54 ",.02)
 ;;61392-0013-54
 ;;9002226.02101,"978,61392-0013-56 ",.01)
 ;;61392-0013-56
 ;;9002226.02101,"978,61392-0013-56 ",.02)
 ;;61392-0013-56
 ;;9002226.02101,"978,61392-0013-60 ",.01)
 ;;61392-0013-60
 ;;9002226.02101,"978,61392-0013-60 ",.02)
 ;;61392-0013-60
 ;;9002226.02101,"978,61392-0013-90 ",.01)
 ;;61392-0013-90
 ;;9002226.02101,"978,61392-0013-90 ",.02)
 ;;61392-0013-90
 ;;9002226.02101,"978,61392-0013-91 ",.01)
 ;;61392-0013-91
 ;;9002226.02101,"978,61392-0013-91 ",.02)
 ;;61392-0013-91
 ;;9002226.02101,"978,61392-0122-30 ",.01)
 ;;61392-0122-30
 ;;9002226.02101,"978,61392-0122-30 ",.02)
 ;;61392-0122-30
 ;;9002226.02101,"978,61392-0122-31 ",.01)
 ;;61392-0122-31
 ;;9002226.02101,"978,61392-0122-31 ",.02)
 ;;61392-0122-31
 ;;9002226.02101,"978,61392-0122-32 ",.01)
 ;;61392-0122-32
 ;;9002226.02101,"978,61392-0122-32 ",.02)
 ;;61392-0122-32
 ;;9002226.02101,"978,61392-0122-39 ",.01)
 ;;61392-0122-39
 ;;9002226.02101,"978,61392-0122-39 ",.02)
 ;;61392-0122-39
 ;;9002226.02101,"978,61392-0122-45 ",.01)
 ;;61392-0122-45
 ;;9002226.02101,"978,61392-0122-45 ",.02)
 ;;61392-0122-45
 ;;9002226.02101,"978,61392-0122-51 ",.01)
 ;;61392-0122-51
 ;;9002226.02101,"978,61392-0122-51 ",.02)
 ;;61392-0122-51
 ;;9002226.02101,"978,61392-0122-54 ",.01)
 ;;61392-0122-54
 ;;9002226.02101,"978,61392-0122-54 ",.02)
 ;;61392-0122-54
 ;;9002226.02101,"978,61392-0122-60 ",.01)
 ;;61392-0122-60
 ;;9002226.02101,"978,61392-0122-60 ",.02)
 ;;61392-0122-60
 ;;9002226.02101,"978,61392-0122-90 ",.01)
 ;;61392-0122-90
 ;;9002226.02101,"978,61392-0122-90 ",.02)
 ;;61392-0122-90
 ;;9002226.02101,"978,61392-0122-91 ",.01)
 ;;61392-0122-91
 ;;9002226.02101,"978,61392-0122-91 ",.02)
 ;;61392-0122-91
 ;;9002226.02101,"978,61392-0123-30 ",.01)
 ;;61392-0123-30
 ;;9002226.02101,"978,61392-0123-30 ",.02)
 ;;61392-0123-30
 ;;9002226.02101,"978,61392-0123-31 ",.01)
 ;;61392-0123-31
 ;;9002226.02101,"978,61392-0123-31 ",.02)
 ;;61392-0123-31
 ;;9002226.02101,"978,61392-0123-32 ",.01)
 ;;61392-0123-32
 ;;9002226.02101,"978,61392-0123-32 ",.02)
 ;;61392-0123-32
 ;;9002226.02101,"978,61392-0123-39 ",.01)
 ;;61392-0123-39
 ;;9002226.02101,"978,61392-0123-39 ",.02)
 ;;61392-0123-39
 ;;9002226.02101,"978,61392-0123-45 ",.01)
 ;;61392-0123-45
 ;;9002226.02101,"978,61392-0123-45 ",.02)
 ;;61392-0123-45
 ;;9002226.02101,"978,61392-0123-51 ",.01)
 ;;61392-0123-51
 ;;9002226.02101,"978,61392-0123-51 ",.02)
 ;;61392-0123-51
 ;;9002226.02101,"978,61392-0123-54 ",.01)
 ;;61392-0123-54
 ;;9002226.02101,"978,61392-0123-54 ",.02)
 ;;61392-0123-54
 ;;9002226.02101,"978,61392-0123-60 ",.01)
 ;;61392-0123-60
 ;;9002226.02101,"978,61392-0123-60 ",.02)
 ;;61392-0123-60
 ;;9002226.02101,"978,61392-0123-90 ",.01)
 ;;61392-0123-90
 ;;9002226.02101,"978,61392-0123-90 ",.02)
 ;;61392-0123-90
 ;;9002226.02101,"978,61392-0123-91 ",.01)
 ;;61392-0123-91
 ;;9002226.02101,"978,61392-0123-91 ",.02)
 ;;61392-0123-91
 ;;9002226.02101,"978,61392-0209-30 ",.01)
 ;;61392-0209-30
 ;;9002226.02101,"978,61392-0209-30 ",.02)
 ;;61392-0209-30
 ;;9002226.02101,"978,61392-0209-51 ",.01)
 ;;61392-0209-51
 ;;9002226.02101,"978,61392-0209-51 ",.02)
 ;;61392-0209-51
 ;;9002226.02101,"978,61392-0209-54 ",.01)
 ;;61392-0209-54
 ;;9002226.02101,"978,61392-0209-54 ",.02)
 ;;61392-0209-54
 ;;9002226.02101,"978,61392-0209-56 ",.01)
 ;;61392-0209-56
 ;;9002226.02101,"978,61392-0209-56 ",.02)
 ;;61392-0209-56
 ;;9002226.02101,"978,61392-0209-60 ",.01)
 ;;61392-0209-60
 ;;9002226.02101,"978,61392-0209-60 ",.02)
 ;;61392-0209-60
 ;;9002226.02101,"978,61392-0209-90 ",.01)
 ;;61392-0209-90
 ;;9002226.02101,"978,61392-0209-90 ",.02)
 ;;61392-0209-90
 ;;9002226.02101,"978,61392-0209-91 ",.01)
 ;;61392-0209-91
 ;;9002226.02101,"978,61392-0209-91 ",.02)
 ;;61392-0209-91
 ;;9002226.02101,"978,61392-0220-15 ",.01)
 ;;61392-0220-15
 ;;9002226.02101,"978,61392-0220-15 ",.02)
 ;;61392-0220-15
 ;;9002226.02101,"978,61392-0220-30 ",.01)
 ;;61392-0220-30
 ;;9002226.02101,"978,61392-0220-30 ",.02)
 ;;61392-0220-30
 ;;9002226.02101,"978,61392-0220-31 ",.01)
 ;;61392-0220-31
 ;;9002226.02101,"978,61392-0220-31 ",.02)
 ;;61392-0220-31
 ;;9002226.02101,"978,61392-0220-32 ",.01)
 ;;61392-0220-32
 ;;9002226.02101,"978,61392-0220-32 ",.02)
 ;;61392-0220-32
 ;;9002226.02101,"978,61392-0220-39 ",.01)
 ;;61392-0220-39
 ;;9002226.02101,"978,61392-0220-39 ",.02)
 ;;61392-0220-39
 ;;9002226.02101,"978,61392-0220-45 ",.01)
 ;;61392-0220-45
 ;;9002226.02101,"978,61392-0220-45 ",.02)
 ;;61392-0220-45
 ;;9002226.02101,"978,61392-0220-51 ",.01)
 ;;61392-0220-51
 ;;9002226.02101,"978,61392-0220-51 ",.02)
 ;;61392-0220-51