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

BGP13D21.m

Go to the documentation of this file.
BGP13D21 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"994,59390-0065-35 ",.02)
 ;;59390-0065-35
 ;;9002226.02101,"994,59390-0065-46 ",.01)
 ;;59390-0065-46
 ;;9002226.02101,"994,59390-0065-46 ",.02)
 ;;59390-0065-46
 ;;9002226.02101,"994,59390-0065-47 ",.01)
 ;;59390-0065-47
 ;;9002226.02101,"994,59390-0065-47 ",.02)
 ;;59390-0065-47
 ;;9002226.02101,"994,59630-0465-04 ",.01)
 ;;59630-0465-04
 ;;9002226.02101,"994,59630-0465-04 ",.02)
 ;;59630-0465-04
 ;;9002226.02101,"994,59630-0465-16 ",.01)
 ;;59630-0465-16
 ;;9002226.02101,"994,59630-0465-16 ",.02)
 ;;59630-0465-16
 ;;9002226.02101,"994,59630-0470-04 ",.01)
 ;;59630-0470-04
 ;;9002226.02101,"994,59630-0470-04 ",.02)
 ;;59630-0470-04
 ;;9002226.02101,"994,59630-0470-16 ",.01)
 ;;59630-0470-16
 ;;9002226.02101,"994,59630-0470-16 ",.02)
 ;;59630-0470-16
 ;;9002226.02101,"994,60242-0202-01 ",.01)
 ;;60242-0202-01
 ;;9002226.02101,"994,60242-0202-01 ",.02)
 ;;60242-0202-01
 ;;9002226.02101,"994,60242-0202-10 ",.01)
 ;;60242-0202-10
 ;;9002226.02101,"994,60242-0202-10 ",.02)
 ;;60242-0202-10
 ;;9002226.02101,"994,60258-0401-16 ",.01)
 ;;60258-0401-16
 ;;9002226.02101,"994,60258-0401-16 ",.02)
 ;;60258-0401-16
 ;;9002226.02101,"994,60258-0410-16 ",.01)
 ;;60258-0410-16
 ;;9002226.02101,"994,60258-0410-16 ",.02)
 ;;60258-0410-16
 ;;9002226.02101,"994,60258-0480-16 ",.01)
 ;;60258-0480-16
 ;;9002226.02101,"994,60258-0480-16 ",.02)
 ;;60258-0480-16
 ;;9002226.02101,"994,60258-0683-16 ",.01)
 ;;60258-0683-16
 ;;9002226.02101,"994,60258-0683-16 ",.02)
 ;;60258-0683-16
 ;;9002226.02101,"994,60258-0709-16 ",.01)
 ;;60258-0709-16
 ;;9002226.02101,"994,60258-0709-16 ",.02)
 ;;60258-0709-16
 ;;9002226.02101,"994,60258-0711-16 ",.01)
 ;;60258-0711-16
 ;;9002226.02101,"994,60258-0711-16 ",.02)
 ;;60258-0711-16
 ;;9002226.02101,"994,60258-0850-01 ",.01)
 ;;60258-0850-01
 ;;9002226.02101,"994,60258-0850-01 ",.02)
 ;;60258-0850-01
 ;;9002226.02101,"994,60258-0850-10 ",.01)
 ;;60258-0850-10
 ;;9002226.02101,"994,60258-0850-10 ",.02)
 ;;60258-0850-10
 ;;9002226.02101,"994,60429-0149-01 ",.01)
 ;;60429-0149-01
 ;;9002226.02101,"994,60429-0149-01 ",.02)
 ;;60429-0149-01
 ;;9002226.02101,"994,60429-0150-01 ",.01)
 ;;60429-0150-01
 ;;9002226.02101,"994,60429-0150-01 ",.02)
 ;;60429-0150-01
 ;;9002226.02101,"994,60429-0150-10 ",.01)
 ;;60429-0150-10
 ;;9002226.02101,"994,60429-0150-10 ",.02)
 ;;60429-0150-10
 ;;9002226.02101,"994,60429-0150-12 ",.01)
 ;;60429-0150-12
 ;;9002226.02101,"994,60429-0150-12 ",.02)
 ;;60429-0150-12
 ;;9002226.02101,"994,60429-0150-30 ",.01)
 ;;60429-0150-30
 ;;9002226.02101,"994,60429-0150-30 ",.02)
 ;;60429-0150-30
 ;;9002226.02101,"994,60429-0150-60 ",.01)
 ;;60429-0150-60
 ;;9002226.02101,"994,60429-0150-60 ",.02)
 ;;60429-0150-60
 ;;9002226.02101,"994,60429-0150-90 ",.01)
 ;;60429-0150-90
 ;;9002226.02101,"994,60429-0150-90 ",.02)
 ;;60429-0150-90
 ;;9002226.02101,"994,60429-0151-01 ",.01)
 ;;60429-0151-01
 ;;9002226.02101,"994,60429-0151-01 ",.02)
 ;;60429-0151-01
 ;;9002226.02101,"994,60432-0033-04 ",.01)
 ;;60432-0033-04
 ;;9002226.02101,"994,60432-0033-04 ",.02)
 ;;60432-0033-04
 ;;9002226.02101,"994,60432-0033-08 ",.01)
 ;;60432-0033-08
 ;;9002226.02101,"994,60432-0033-08 ",.02)
 ;;60432-0033-08
 ;;9002226.02101,"994,60432-0033-16 ",.01)
 ;;60432-0033-16
 ;;9002226.02101,"994,60432-0033-16 ",.02)
 ;;60432-0033-16
 ;;9002226.02101,"994,60432-0150-04 ",.01)
 ;;60432-0150-04
 ;;9002226.02101,"994,60432-0150-04 ",.02)
 ;;60432-0150-04
 ;;9002226.02101,"994,60432-0150-16 ",.01)
 ;;60432-0150-16
 ;;9002226.02101,"994,60432-0150-16 ",.02)
 ;;60432-0150-16
 ;;9002226.02101,"994,60432-0198-04 ",.01)
 ;;60432-0198-04
 ;;9002226.02101,"994,60432-0198-04 ",.02)
 ;;60432-0198-04
 ;;9002226.02101,"994,60432-0198-16 ",.01)
 ;;60432-0198-16
 ;;9002226.02101,"994,60432-0198-16 ",.02)
 ;;60432-0198-16
 ;;9002226.02101,"994,60432-0539-16 ",.01)
 ;;60432-0539-16
 ;;9002226.02101,"994,60432-0539-16 ",.02)
 ;;60432-0539-16
 ;;9002226.02101,"994,60432-0604-04 ",.01)
 ;;60432-0604-04
 ;;9002226.02101,"994,60432-0604-04 ",.02)
 ;;60432-0604-04
 ;;9002226.02101,"994,60432-0604-16 ",.01)
 ;;60432-0604-16
 ;;9002226.02101,"994,60432-0604-16 ",.02)
 ;;60432-0604-16
 ;;9002226.02101,"994,60432-0606-16 ",.01)
 ;;60432-0606-16
 ;;9002226.02101,"994,60432-0606-16 ",.02)
 ;;60432-0606-16
 ;;9002226.02101,"994,60432-0608-04 ",.01)
 ;;60432-0608-04
 ;;9002226.02101,"994,60432-0608-04 ",.02)
 ;;60432-0608-04
 ;;9002226.02101,"994,60432-0608-16 ",.01)
 ;;60432-0608-16
 ;;9002226.02101,"994,60432-0608-16 ",.02)
 ;;60432-0608-16
 ;;9002226.02101,"994,60432-0634-08 ",.01)
 ;;60432-0634-08
 ;;9002226.02101,"994,60432-0634-08 ",.02)
 ;;60432-0634-08
 ;;9002226.02101,"994,60569-0471-04 ",.01)
 ;;60569-0471-04
 ;;9002226.02101,"994,60569-0471-04 ",.02)
 ;;60569-0471-04
 ;;9002226.02101,"994,60760-0307-20 ",.01)
 ;;60760-0307-20
 ;;9002226.02101,"994,60760-0307-20 ",.02)
 ;;60760-0307-20
 ;;9002226.02101,"994,60760-0330-30 ",.01)
 ;;60760-0330-30
 ;;9002226.02101,"994,60760-0330-30 ",.02)
 ;;60760-0330-30
 ;;9002226.02101,"994,60760-0971-30 ",.01)
 ;;60760-0971-30
 ;;9002226.02101,"994,60760-0971-30 ",.02)
 ;;60760-0971-30
 ;;9002226.02101,"994,60814-0104-30 ",.01)
 ;;60814-0104-30
 ;;9002226.02101,"994,60814-0104-30 ",.02)
 ;;60814-0104-30
 ;;9002226.02101,"994,61392-0010-15 ",.01)
 ;;61392-0010-15
 ;;9002226.02101,"994,61392-0010-15 ",.02)
 ;;61392-0010-15
 ;;9002226.02101,"994,61392-0010-30 ",.01)
 ;;61392-0010-30
 ;;9002226.02101,"994,61392-0010-30 ",.02)
 ;;61392-0010-30
 ;;9002226.02101,"994,61392-0010-31 ",.01)
 ;;61392-0010-31
 ;;9002226.02101,"994,61392-0010-31 ",.02)
 ;;61392-0010-31
 ;;9002226.02101,"994,61392-0010-32 ",.01)
 ;;61392-0010-32
 ;;9002226.02101,"994,61392-0010-32 ",.02)
 ;;61392-0010-32
 ;;9002226.02101,"994,61392-0010-39 ",.01)
 ;;61392-0010-39
 ;;9002226.02101,"994,61392-0010-39 ",.02)
 ;;61392-0010-39
 ;;9002226.02101,"994,61392-0010-45 ",.01)
 ;;61392-0010-45
 ;;9002226.02101,"994,61392-0010-45 ",.02)
 ;;61392-0010-45
 ;;9002226.02101,"994,61392-0010-51 ",.01)
 ;;61392-0010-51
 ;;9002226.02101,"994,61392-0010-51 ",.02)
 ;;61392-0010-51
 ;;9002226.02101,"994,61392-0010-54 ",.01)
 ;;61392-0010-54
 ;;9002226.02101,"994,61392-0010-54 ",.02)
 ;;61392-0010-54
 ;;9002226.02101,"994,61392-0010-56 ",.01)
 ;;61392-0010-56
 ;;9002226.02101,"994,61392-0010-56 ",.02)
 ;;61392-0010-56
 ;;9002226.02101,"994,61392-0010-60 ",.01)
 ;;61392-0010-60
 ;;9002226.02101,"994,61392-0010-60 ",.02)
 ;;61392-0010-60
 ;;9002226.02101,"994,61392-0010-90 ",.01)
 ;;61392-0010-90
 ;;9002226.02101,"994,61392-0010-90 ",.02)
 ;;61392-0010-90
 ;;9002226.02101,"994,61392-0010-91 ",.01)
 ;;61392-0010-91
 ;;9002226.02101,"994,61392-0010-91 ",.02)
 ;;61392-0010-91
 ;;9002226.02101,"994,61392-0012-30 ",.01)
 ;;61392-0012-30
 ;;9002226.02101,"994,61392-0012-30 ",.02)
 ;;61392-0012-30
 ;;9002226.02101,"994,61392-0012-31 ",.01)
 ;;61392-0012-31
 ;;9002226.02101,"994,61392-0012-31 ",.02)
 ;;61392-0012-31
 ;;9002226.02101,"994,61392-0012-32 ",.01)
 ;;61392-0012-32
 ;;9002226.02101,"994,61392-0012-32 ",.02)
 ;;61392-0012-32
 ;;9002226.02101,"994,61392-0012-34 ",.01)
 ;;61392-0012-34
 ;;9002226.02101,"994,61392-0012-34 ",.02)
 ;;61392-0012-34
 ;;9002226.02101,"994,61392-0012-39 ",.01)
 ;;61392-0012-39
 ;;9002226.02101,"994,61392-0012-39 ",.02)
 ;;61392-0012-39
 ;;9002226.02101,"994,61392-0012-45 ",.01)
 ;;61392-0012-45
 ;;9002226.02101,"994,61392-0012-45 ",.02)
 ;;61392-0012-45
 ;;9002226.02101,"994,61392-0012-51 ",.01)
 ;;61392-0012-51
 ;;9002226.02101,"994,61392-0012-51 ",.02)
 ;;61392-0012-51
 ;;9002226.02101,"994,61392-0012-54 ",.01)
 ;;61392-0012-54
 ;;9002226.02101,"994,61392-0012-54 ",.02)
 ;;61392-0012-54
 ;;9002226.02101,"994,61392-0012-56 ",.01)
 ;;61392-0012-56
 ;;9002226.02101,"994,61392-0012-56 ",.02)
 ;;61392-0012-56
 ;;9002226.02101,"994,61392-0012-60 ",.01)
 ;;61392-0012-60
 ;;9002226.02101,"994,61392-0012-60 ",.02)
 ;;61392-0012-60
 ;;9002226.02101,"994,61392-0012-90 ",.01)
 ;;61392-0012-90
 ;;9002226.02101,"994,61392-0012-90 ",.02)
 ;;61392-0012-90
 ;;9002226.02101,"994,61392-0012-91 ",.01)
 ;;61392-0012-91
 ;;9002226.02101,"994,61392-0012-91 ",.02)
 ;;61392-0012-91
 ;;9002226.02101,"994,61392-0013-15 ",.01)
 ;;61392-0013-15
 ;;9002226.02101,"994,61392-0013-15 ",.02)
 ;;61392-0013-15
 ;;9002226.02101,"994,61392-0013-30 ",.01)
 ;;61392-0013-30
 ;;9002226.02101,"994,61392-0013-30 ",.02)
 ;;61392-0013-30
 ;;9002226.02101,"994,61392-0013-31 ",.01)
 ;;61392-0013-31
 ;;9002226.02101,"994,61392-0013-31 ",.02)
 ;;61392-0013-31
 ;;9002226.02101,"994,61392-0013-32 ",.01)
 ;;61392-0013-32
 ;;9002226.02101,"994,61392-0013-32 ",.02)
 ;;61392-0013-32
 ;;9002226.02101,"994,61392-0013-39 ",.01)
 ;;61392-0013-39
 ;;9002226.02101,"994,61392-0013-39 ",.02)
 ;;61392-0013-39
 ;;9002226.02101,"994,61392-0013-45 ",.01)
 ;;61392-0013-45
 ;;9002226.02101,"994,61392-0013-45 ",.02)
 ;;61392-0013-45
 ;;9002226.02101,"994,61392-0013-51 ",.01)
 ;;61392-0013-51
 ;;9002226.02101,"994,61392-0013-51 ",.02)
 ;;61392-0013-51
 ;;9002226.02101,"994,61392-0013-54 ",.01)
 ;;61392-0013-54
 ;;9002226.02101,"994,61392-0013-54 ",.02)
 ;;61392-0013-54
 ;;9002226.02101,"994,61392-0013-56 ",.01)
 ;;61392-0013-56
 ;;9002226.02101,"994,61392-0013-56 ",.02)
 ;;61392-0013-56
 ;;9002226.02101,"994,61392-0013-60 ",.01)
 ;;61392-0013-60
 ;;9002226.02101,"994,61392-0013-60 ",.02)
 ;;61392-0013-60
 ;;9002226.02101,"994,61392-0013-90 ",.01)
 ;;61392-0013-90
 ;;9002226.02101,"994,61392-0013-90 ",.02)
 ;;61392-0013-90
 ;;9002226.02101,"994,61392-0013-91 ",.01)
 ;;61392-0013-91
 ;;9002226.02101,"994,61392-0013-91 ",.02)
 ;;61392-0013-91
 ;;9002226.02101,"994,61392-0122-30 ",.01)
 ;;61392-0122-30
 ;;9002226.02101,"994,61392-0122-30 ",.02)
 ;;61392-0122-30
 ;;9002226.02101,"994,61392-0122-31 ",.01)
 ;;61392-0122-31
 ;;9002226.02101,"994,61392-0122-31 ",.02)
 ;;61392-0122-31
 ;;9002226.02101,"994,61392-0122-32 ",.01)
 ;;61392-0122-32
 ;;9002226.02101,"994,61392-0122-32 ",.02)
 ;;61392-0122-32
 ;;9002226.02101,"994,61392-0122-39 ",.01)
 ;;61392-0122-39
 ;;9002226.02101,"994,61392-0122-39 ",.02)
 ;;61392-0122-39
 ;;9002226.02101,"994,61392-0122-45 ",.01)
 ;;61392-0122-45
 ;;9002226.02101,"994,61392-0122-45 ",.02)
 ;;61392-0122-45
 ;;9002226.02101,"994,61392-0122-51 ",.01)
 ;;61392-0122-51
 ;;9002226.02101,"994,61392-0122-51 ",.02)
 ;;61392-0122-51
 ;;9002226.02101,"994,61392-0122-54 ",.01)
 ;;61392-0122-54
 ;;9002226.02101,"994,61392-0122-54 ",.02)
 ;;61392-0122-54
 ;;9002226.02101,"994,61392-0122-60 ",.01)
 ;;61392-0122-60
 ;;9002226.02101,"994,61392-0122-60 ",.02)
 ;;61392-0122-60
 ;;9002226.02101,"994,61392-0122-90 ",.01)
 ;;61392-0122-90
 ;;9002226.02101,"994,61392-0122-90 ",.02)
 ;;61392-0122-90
 ;;9002226.02101,"994,61392-0122-91 ",.01)
 ;;61392-0122-91
 ;;9002226.02101,"994,61392-0122-91 ",.02)
 ;;61392-0122-91
 ;;9002226.02101,"994,61392-0123-30 ",.01)
 ;;61392-0123-30
 ;;9002226.02101,"994,61392-0123-30 ",.02)
 ;;61392-0123-30
 ;;9002226.02101,"994,61392-0123-31 ",.01)
 ;;61392-0123-31
 ;;9002226.02101,"994,61392-0123-31 ",.02)
 ;;61392-0123-31
 ;;9002226.02101,"994,61392-0123-32 ",.01)
 ;;61392-0123-32
 ;;9002226.02101,"994,61392-0123-32 ",.02)
 ;;61392-0123-32
 ;;9002226.02101,"994,61392-0123-39 ",.01)
 ;;61392-0123-39
 ;;9002226.02101,"994,61392-0123-39 ",.02)
 ;;61392-0123-39
 ;;9002226.02101,"994,61392-0123-45 ",.01)
 ;;61392-0123-45
 ;;9002226.02101,"994,61392-0123-45 ",.02)
 ;;61392-0123-45
 ;;9002226.02101,"994,61392-0123-51 ",.01)
 ;;61392-0123-51
 ;;9002226.02101,"994,61392-0123-51 ",.02)
 ;;61392-0123-51
 ;;9002226.02101,"994,61392-0123-54 ",.01)
 ;;61392-0123-54
 ;;9002226.02101,"994,61392-0123-54 ",.02)
 ;;61392-0123-54
 ;;9002226.02101,"994,61392-0123-60 ",.01)
 ;;61392-0123-60
 ;;9002226.02101,"994,61392-0123-60 ",.02)
 ;;61392-0123-60
 ;;9002226.02101,"994,61392-0123-90 ",.01)
 ;;61392-0123-90
 ;;9002226.02101,"994,61392-0123-90 ",.02)
 ;;61392-0123-90
 ;;9002226.02101,"994,61392-0123-91 ",.01)
 ;;61392-0123-91
 ;;9002226.02101,"994,61392-0123-91 ",.02)
 ;;61392-0123-91
 ;;9002226.02101,"994,61392-0209-30 ",.01)
 ;;61392-0209-30
 ;;9002226.02101,"994,61392-0209-30 ",.02)
 ;;61392-0209-30
 ;;9002226.02101,"994,61392-0209-51 ",.01)
 ;;61392-0209-51
 ;;9002226.02101,"994,61392-0209-51 ",.02)
 ;;61392-0209-51
 ;;9002226.02101,"994,61392-0209-54 ",.01)
 ;;61392-0209-54
 ;;9002226.02101,"994,61392-0209-54 ",.02)
 ;;61392-0209-54
 ;;9002226.02101,"994,61392-0209-56 ",.01)
 ;;61392-0209-56
 ;;9002226.02101,"994,61392-0209-56 ",.02)
 ;;61392-0209-56