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

BGP51F15.m

Go to the documentation of this file.
BGP51F15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"618,58016-0018-90 ",.01)
 ;;58016-0018-90
 ;;9002226.02101,"618,58016-0018-90 ",.02)
 ;;58016-0018-90
 ;;9002226.02101,"618,58016-0041-00 ",.01)
 ;;58016-0041-00
 ;;9002226.02101,"618,58016-0041-00 ",.02)
 ;;58016-0041-00
 ;;9002226.02101,"618,58016-0041-30 ",.01)
 ;;58016-0041-30
 ;;9002226.02101,"618,58016-0041-30 ",.02)
 ;;58016-0041-30
 ;;9002226.02101,"618,58016-0041-60 ",.01)
 ;;58016-0041-60
 ;;9002226.02101,"618,58016-0041-60 ",.02)
 ;;58016-0041-60
 ;;9002226.02101,"618,58016-0041-90 ",.01)
 ;;58016-0041-90
 ;;9002226.02101,"618,58016-0041-90 ",.02)
 ;;58016-0041-90
 ;;9002226.02101,"618,58016-0259-00 ",.01)
 ;;58016-0259-00
 ;;9002226.02101,"618,58016-0259-00 ",.02)
 ;;58016-0259-00
 ;;9002226.02101,"618,58016-0259-10 ",.01)
 ;;58016-0259-10
 ;;9002226.02101,"618,58016-0259-10 ",.02)
 ;;58016-0259-10
 ;;9002226.02101,"618,58016-0259-20 ",.01)
 ;;58016-0259-20
 ;;9002226.02101,"618,58016-0259-20 ",.02)
 ;;58016-0259-20
 ;;9002226.02101,"618,58016-0259-30 ",.01)
 ;;58016-0259-30
 ;;9002226.02101,"618,58016-0259-30 ",.02)
 ;;58016-0259-30
 ;;9002226.02101,"618,58016-0259-50 ",.01)
 ;;58016-0259-50
 ;;9002226.02101,"618,58016-0259-50 ",.02)
 ;;58016-0259-50
 ;;9002226.02101,"618,58016-0259-60 ",.01)
 ;;58016-0259-60
 ;;9002226.02101,"618,58016-0259-60 ",.02)
 ;;58016-0259-60
 ;;9002226.02101,"618,58016-0390-01 ",.01)
 ;;58016-0390-01
 ;;9002226.02101,"618,58016-0390-01 ",.02)
 ;;58016-0390-01
 ;;9002226.02101,"618,58016-0405-00 ",.01)
 ;;58016-0405-00
 ;;9002226.02101,"618,58016-0405-00 ",.02)
 ;;58016-0405-00
 ;;9002226.02101,"618,58016-0405-06 ",.01)
 ;;58016-0405-06
 ;;9002226.02101,"618,58016-0405-06 ",.02)
 ;;58016-0405-06
 ;;9002226.02101,"618,58016-0405-15 ",.01)
 ;;58016-0405-15
 ;;9002226.02101,"618,58016-0405-15 ",.02)
 ;;58016-0405-15
 ;;9002226.02101,"618,58016-0405-20 ",.01)
 ;;58016-0405-20
 ;;9002226.02101,"618,58016-0405-20 ",.02)
 ;;58016-0405-20
 ;;9002226.02101,"618,58016-0405-30 ",.01)
 ;;58016-0405-30
 ;;9002226.02101,"618,58016-0405-30 ",.02)
 ;;58016-0405-30
 ;;9002226.02101,"618,58016-0406-00 ",.01)
 ;;58016-0406-00
 ;;9002226.02101,"618,58016-0406-00 ",.02)
 ;;58016-0406-00
 ;;9002226.02101,"618,58016-0406-09 ",.01)
 ;;58016-0406-09
 ;;9002226.02101,"618,58016-0406-09 ",.02)
 ;;58016-0406-09
 ;;9002226.02101,"618,58016-0406-12 ",.01)
 ;;58016-0406-12
 ;;9002226.02101,"618,58016-0406-12 ",.02)
 ;;58016-0406-12
 ;;9002226.02101,"618,58016-0406-15 ",.01)
 ;;58016-0406-15
 ;;9002226.02101,"618,58016-0406-15 ",.02)
 ;;58016-0406-15
 ;;9002226.02101,"618,58016-0406-20 ",.01)
 ;;58016-0406-20
 ;;9002226.02101,"618,58016-0406-20 ",.02)
 ;;58016-0406-20
 ;;9002226.02101,"618,58016-0406-30 ",.01)
 ;;58016-0406-30
 ;;9002226.02101,"618,58016-0406-30 ",.02)
 ;;58016-0406-30
 ;;9002226.02101,"618,58016-0406-40 ",.01)
 ;;58016-0406-40
 ;;9002226.02101,"618,58016-0406-40 ",.02)
 ;;58016-0406-40
 ;;9002226.02101,"618,58016-0406-60 ",.01)
 ;;58016-0406-60
 ;;9002226.02101,"618,58016-0406-60 ",.02)
 ;;58016-0406-60
 ;;9002226.02101,"618,58016-0407-01 ",.01)
 ;;58016-0407-01
 ;;9002226.02101,"618,58016-0407-01 ",.02)
 ;;58016-0407-01
 ;;9002226.02101,"618,58016-0409-00 ",.01)
 ;;58016-0409-00
 ;;9002226.02101,"618,58016-0409-00 ",.02)
 ;;58016-0409-00
 ;;9002226.02101,"618,58016-0409-10 ",.01)
 ;;58016-0409-10
 ;;9002226.02101,"618,58016-0409-10 ",.02)
 ;;58016-0409-10
 ;;9002226.02101,"618,58016-0409-12 ",.01)
 ;;58016-0409-12
 ;;9002226.02101,"618,58016-0409-12 ",.02)
 ;;58016-0409-12
 ;;9002226.02101,"618,58016-0409-15 ",.01)
 ;;58016-0409-15
 ;;9002226.02101,"618,58016-0409-15 ",.02)
 ;;58016-0409-15
 ;;9002226.02101,"618,58016-0409-20 ",.01)
 ;;58016-0409-20
 ;;9002226.02101,"618,58016-0409-20 ",.02)
 ;;58016-0409-20
 ;;9002226.02101,"618,58016-0409-21 ",.01)
 ;;58016-0409-21
 ;;9002226.02101,"618,58016-0409-21 ",.02)
 ;;58016-0409-21
 ;;9002226.02101,"618,58016-0409-24 ",.01)
 ;;58016-0409-24
 ;;9002226.02101,"618,58016-0409-24 ",.02)
 ;;58016-0409-24
 ;;9002226.02101,"618,58016-0409-30 ",.01)
 ;;58016-0409-30
 ;;9002226.02101,"618,58016-0409-30 ",.02)
 ;;58016-0409-30
 ;;9002226.02101,"618,58016-0409-60 ",.01)
 ;;58016-0409-60
 ;;9002226.02101,"618,58016-0409-60 ",.02)
 ;;58016-0409-60
 ;;9002226.02101,"618,58016-0409-90 ",.01)
 ;;58016-0409-90
 ;;9002226.02101,"618,58016-0409-90 ",.02)
 ;;58016-0409-90
 ;;9002226.02101,"618,58016-0424-00 ",.01)
 ;;58016-0424-00
 ;;9002226.02101,"618,58016-0424-00 ",.02)
 ;;58016-0424-00
 ;;9002226.02101,"618,58016-0424-02 ",.01)
 ;;58016-0424-02
 ;;9002226.02101,"618,58016-0424-02 ",.02)
 ;;58016-0424-02
 ;;9002226.02101,"618,58016-0424-03 ",.01)
 ;;58016-0424-03
 ;;9002226.02101,"618,58016-0424-03 ",.02)
 ;;58016-0424-03
 ;;9002226.02101,"618,58016-0424-10 ",.01)
 ;;58016-0424-10
 ;;9002226.02101,"618,58016-0424-10 ",.02)
 ;;58016-0424-10
 ;;9002226.02101,"618,58016-0424-12 ",.01)
 ;;58016-0424-12
 ;;9002226.02101,"618,58016-0424-12 ",.02)
 ;;58016-0424-12
 ;;9002226.02101,"618,58016-0424-15 ",.01)
 ;;58016-0424-15
 ;;9002226.02101,"618,58016-0424-15 ",.02)
 ;;58016-0424-15
 ;;9002226.02101,"618,58016-0424-20 ",.01)
 ;;58016-0424-20
 ;;9002226.02101,"618,58016-0424-20 ",.02)
 ;;58016-0424-20
 ;;9002226.02101,"618,58016-0424-30 ",.01)
 ;;58016-0424-30
 ;;9002226.02101,"618,58016-0424-30 ",.02)
 ;;58016-0424-30
 ;;9002226.02101,"618,58016-0424-50 ",.01)
 ;;58016-0424-50
 ;;9002226.02101,"618,58016-0424-50 ",.02)
 ;;58016-0424-50
 ;;9002226.02101,"618,58016-0424-60 ",.01)
 ;;58016-0424-60
 ;;9002226.02101,"618,58016-0424-60 ",.02)
 ;;58016-0424-60
 ;;9002226.02101,"618,58016-0424-73 ",.01)
 ;;58016-0424-73
 ;;9002226.02101,"618,58016-0424-73 ",.02)
 ;;58016-0424-73
 ;;9002226.02101,"618,58016-0424-89 ",.01)
 ;;58016-0424-89
 ;;9002226.02101,"618,58016-0424-89 ",.02)
 ;;58016-0424-89
 ;;9002226.02101,"618,58016-0424-90 ",.01)
 ;;58016-0424-90
 ;;9002226.02101,"618,58016-0424-90 ",.02)
 ;;58016-0424-90
 ;;9002226.02101,"618,58016-0452-00 ",.01)
 ;;58016-0452-00
 ;;9002226.02101,"618,58016-0452-00 ",.02)
 ;;58016-0452-00
 ;;9002226.02101,"618,58016-0452-20 ",.01)
 ;;58016-0452-20
 ;;9002226.02101,"618,58016-0452-20 ",.02)
 ;;58016-0452-20
 ;;9002226.02101,"618,58016-0452-30 ",.01)
 ;;58016-0452-30
 ;;9002226.02101,"618,58016-0452-30 ",.02)
 ;;58016-0452-30
 ;;9002226.02101,"618,58016-0464-10 ",.01)
 ;;58016-0464-10
 ;;9002226.02101,"618,58016-0464-10 ",.02)
 ;;58016-0464-10
 ;;9002226.02101,"618,58016-0464-15 ",.01)
 ;;58016-0464-15
 ;;9002226.02101,"618,58016-0464-15 ",.02)
 ;;58016-0464-15
 ;;9002226.02101,"618,58016-0464-20 ",.01)
 ;;58016-0464-20
 ;;9002226.02101,"618,58016-0464-20 ",.02)
 ;;58016-0464-20
 ;;9002226.02101,"618,58016-0464-30 ",.01)
 ;;58016-0464-30
 ;;9002226.02101,"618,58016-0464-30 ",.02)
 ;;58016-0464-30
 ;;9002226.02101,"618,58016-0472-24 ",.01)
 ;;58016-0472-24
 ;;9002226.02101,"618,58016-0472-24 ",.02)
 ;;58016-0472-24
 ;;9002226.02101,"618,58016-0472-36 ",.01)
 ;;58016-0472-36
 ;;9002226.02101,"618,58016-0472-36 ",.02)
 ;;58016-0472-36
 ;;9002226.02101,"618,58016-4845-01 ",.01)
 ;;58016-4845-01
 ;;9002226.02101,"618,58016-4845-01 ",.02)
 ;;58016-4845-01
 ;;9002226.02101,"618,58016-4852-01 ",.01)
 ;;58016-4852-01
 ;;9002226.02101,"618,58016-4852-01 ",.02)
 ;;58016-4852-01
 ;;9002226.02101,"618,58016-5009-01 ",.01)
 ;;58016-5009-01
 ;;9002226.02101,"618,58016-5009-01 ",.02)
 ;;58016-5009-01
 ;;9002226.02101,"618,58016-9299-01 ",.01)
 ;;58016-9299-01
 ;;9002226.02101,"618,58016-9299-01 ",.02)
 ;;58016-9299-01
 ;;9002226.02101,"618,58118-0011-06 ",.01)
 ;;58118-0011-06
 ;;9002226.02101,"618,58118-0011-06 ",.02)
 ;;58118-0011-06
 ;;9002226.02101,"618,58118-0011-08 ",.01)
 ;;58118-0011-08
 ;;9002226.02101,"618,58118-0011-08 ",.02)
 ;;58118-0011-08
 ;;9002226.02101,"618,58118-0012-06 ",.01)
 ;;58118-0012-06
 ;;9002226.02101,"618,58118-0012-06 ",.02)
 ;;58118-0012-06
 ;;9002226.02101,"618,58118-0012-08 ",.01)
 ;;58118-0012-08
 ;;9002226.02101,"618,58118-0012-08 ",.02)
 ;;58118-0012-08
 ;;9002226.02101,"618,58118-0034-01 ",.01)
 ;;58118-0034-01
 ;;9002226.02101,"618,58118-0034-01 ",.02)
 ;;58118-0034-01
 ;;9002226.02101,"618,58118-0613-03 ",.01)
 ;;58118-0613-03
 ;;9002226.02101,"618,58118-0613-03 ",.02)
 ;;58118-0613-03
 ;;9002226.02101,"618,58118-0613-06 ",.01)
 ;;58118-0613-06
 ;;9002226.02101,"618,58118-0613-06 ",.02)
 ;;58118-0613-06
 ;;9002226.02101,"618,58118-0615-03 ",.01)
 ;;58118-0615-03
 ;;9002226.02101,"618,58118-0615-03 ",.02)
 ;;58118-0615-03
 ;;9002226.02101,"618,58118-0615-06 ",.01)
 ;;58118-0615-06
 ;;9002226.02101,"618,58118-0615-06 ",.02)
 ;;58118-0615-06
 ;;9002226.02101,"618,58118-5307-01 ",.01)
 ;;58118-5307-01
 ;;9002226.02101,"618,58118-5307-01 ",.02)
 ;;58118-5307-01
 ;;9002226.02101,"618,58118-5307-02 ",.01)
 ;;58118-5307-02
 ;;9002226.02101,"618,58118-5307-02 ",.02)
 ;;58118-5307-02
 ;;9002226.02101,"618,58118-5307-03 ",.01)
 ;;58118-5307-03
 ;;9002226.02101,"618,58118-5307-03 ",.02)
 ;;58118-5307-03
 ;;9002226.02101,"618,58118-5307-05 ",.01)
 ;;58118-5307-05
 ;;9002226.02101,"618,58118-5307-05 ",.02)
 ;;58118-5307-05
 ;;9002226.02101,"618,58118-5307-09 ",.01)
 ;;58118-5307-09
 ;;9002226.02101,"618,58118-5307-09 ",.02)
 ;;58118-5307-09
 ;;9002226.02101,"618,58118-9914-01 ",.01)
 ;;58118-9914-01
 ;;9002226.02101,"618,58118-9914-01 ",.02)
 ;;58118-9914-01
 ;;9002226.02101,"618,58118-9915-01 ",.01)
 ;;58118-9915-01
 ;;9002226.02101,"618,58118-9915-01 ",.02)
 ;;58118-9915-01
 ;;9002226.02101,"618,58118-9958-04 ",.01)
 ;;58118-9958-04
 ;;9002226.02101,"618,58118-9958-04 ",.02)
 ;;58118-9958-04
 ;;9002226.02101,"618,58118-9978-01 ",.01)
 ;;58118-9978-01
 ;;9002226.02101,"618,58118-9978-01 ",.02)
 ;;58118-9978-01
 ;;9002226.02101,"618,58118-9978-04 ",.01)
 ;;58118-9978-04
 ;;9002226.02101,"618,58118-9978-04 ",.02)
 ;;58118-9978-04
 ;;9002226.02101,"618,58173-0037-04 ",.01)
 ;;58173-0037-04
 ;;9002226.02101,"618,58173-0037-04 ",.02)
 ;;58173-0037-04
 ;;9002226.02101,"618,58298-0314-16 ",.01)
 ;;58298-0314-16
 ;;9002226.02101,"618,58298-0314-16 ",.02)
 ;;58298-0314-16
 ;;9002226.02101,"618,58552-0123-16 ",.01)
 ;;58552-0123-16
 ;;9002226.02101,"618,58552-0123-16 ",.02)
 ;;58552-0123-16
 ;;9002226.02101,"618,58552-0124-02 ",.01)
 ;;58552-0124-02
 ;;9002226.02101,"618,58552-0124-02 ",.02)
 ;;58552-0124-02
 ;;9002226.02101,"618,58605-0436-01 ",.01)
 ;;58605-0436-01
 ;;9002226.02101,"618,58605-0436-01 ",.02)
 ;;58605-0436-01
 ;;9002226.02101,"618,58605-0437-01 ",.01)
 ;;58605-0437-01
 ;;9002226.02101,"618,58605-0437-01 ",.02)
 ;;58605-0437-01
 ;;9002226.02101,"618,58605-0438-01 ",.01)
 ;;58605-0438-01
 ;;9002226.02101,"618,58605-0438-01 ",.02)
 ;;58605-0438-01
 ;;9002226.02101,"618,58809-0817-01 ",.01)
 ;;58809-0817-01
 ;;9002226.02101,"618,58809-0817-01 ",.02)
 ;;58809-0817-01
 ;;9002226.02101,"618,58864-0045-20 ",.01)
 ;;58864-0045-20
 ;;9002226.02101,"618,58864-0045-20 ",.02)
 ;;58864-0045-20
 ;;9002226.02101,"618,58864-0045-30 ",.01)
 ;;58864-0045-30
 ;;9002226.02101,"618,58864-0045-30 ",.02)
 ;;58864-0045-30
 ;;9002226.02101,"618,58864-0045-42 ",.01)
 ;;58864-0045-42
 ;;9002226.02101,"618,58864-0045-42 ",.02)
 ;;58864-0045-42
 ;;9002226.02101,"618,58864-0045-60 ",.01)
 ;;58864-0045-60
 ;;9002226.02101,"618,58864-0045-60 ",.02)
 ;;58864-0045-60
 ;;9002226.02101,"618,58864-0055-06 ",.01)
 ;;58864-0055-06
 ;;9002226.02101,"618,58864-0055-06 ",.02)
 ;;58864-0055-06
 ;;9002226.02101,"618,58864-0056-30 ",.01)
 ;;58864-0056-30
 ;;9002226.02101,"618,58864-0056-30 ",.02)
 ;;58864-0056-30
 ;;9002226.02101,"618,58864-0761-10 ",.01)
 ;;58864-0761-10
 ;;9002226.02101,"618,58864-0761-10 ",.02)
 ;;58864-0761-10
 ;;9002226.02101,"618,58864-0761-30 ",.01)
 ;;58864-0761-30
 ;;9002226.02101,"618,58864-0761-30 ",.02)
 ;;58864-0761-30
 ;;9002226.02101,"618,58864-0761-42 ",.01)
 ;;58864-0761-42
 ;;9002226.02101,"618,58864-0761-42 ",.02)
 ;;58864-0761-42
 ;;9002226.02101,"618,59702-0800-16 ",.01)
 ;;59702-0800-16
 ;;9002226.02101,"618,59702-0800-16 ",.02)
 ;;59702-0800-16
 ;;9002226.02101,"618,60258-0850-01 ",.01)
 ;;60258-0850-01
 ;;9002226.02101,"618,60258-0850-01 ",.02)
 ;;60258-0850-01
 ;;9002226.02101,"618,60258-0850-10 ",.01)
 ;;60258-0850-10
 ;;9002226.02101,"618,60258-0850-10 ",.02)
 ;;60258-0850-10
 ;;9002226.02101,"618,60258-0876-16 ",.01)
 ;;60258-0876-16
 ;;9002226.02101,"618,60258-0876-16 ",.02)
 ;;60258-0876-16
 ;;9002226.02101,"618,60429-0149-01 ",.01)
 ;;60429-0149-01
 ;;9002226.02101,"618,60429-0149-01 ",.02)
 ;;60429-0149-01
 ;;9002226.02101,"618,60429-0150-01 ",.01)
 ;;60429-0150-01
 ;;9002226.02101,"618,60429-0150-01 ",.02)
 ;;60429-0150-01
 ;;9002226.02101,"618,60429-0150-10 ",.01)
 ;;60429-0150-10
 ;;9002226.02101,"618,60429-0150-10 ",.02)
 ;;60429-0150-10
 ;;9002226.02101,"618,60429-0150-12 ",.01)
 ;;60429-0150-12
 ;;9002226.02101,"618,60429-0150-12 ",.02)
 ;;60429-0150-12
 ;;9002226.02101,"618,60429-0150-30 ",.01)
 ;;60429-0150-30
 ;;9002226.02101,"618,60429-0150-30 ",.02)
 ;;60429-0150-30
 ;;9002226.02101,"618,60429-0150-60 ",.01)
 ;;60429-0150-60
 ;;9002226.02101,"618,60429-0150-60 ",.02)
 ;;60429-0150-60
 ;;9002226.02101,"618,60429-0150-90 ",.01)
 ;;60429-0150-90
 ;;9002226.02101,"618,60429-0150-90 ",.02)
 ;;60429-0150-90
 ;;9002226.02101,"618,60429-0151-01 ",.01)
 ;;60429-0151-01
 ;;9002226.02101,"618,60429-0151-01 ",.02)
 ;;60429-0151-01
 ;;9002226.02101,"618,60429-0223-01 ",.01)
 ;;60429-0223-01
 ;;9002226.02101,"618,60429-0223-01 ",.02)
 ;;60429-0223-01