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

BGP71J15.m

Go to the documentation of this file.
BGP71J15 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"1795,55289-0354-10 ",.01)
 ;;55289-0354-10
 ;;9002226.02101,"1795,55289-0354-10 ",.02)
 ;;55289-0354-10
 ;;9002226.02101,"1795,55289-0464-02 ",.01)
 ;;55289-0464-02
 ;;9002226.02101,"1795,55289-0464-02 ",.02)
 ;;55289-0464-02
 ;;9002226.02101,"1795,55289-0464-05 ",.01)
 ;;55289-0464-05
 ;;9002226.02101,"1795,55289-0464-05 ",.02)
 ;;55289-0464-05
 ;;9002226.02101,"1795,55289-0464-10 ",.01)
 ;;55289-0464-10
 ;;9002226.02101,"1795,55289-0464-10 ",.02)
 ;;55289-0464-10
 ;;9002226.02101,"1795,55289-0464-12 ",.01)
 ;;55289-0464-12
 ;;9002226.02101,"1795,55289-0464-12 ",.02)
 ;;55289-0464-12
 ;;9002226.02101,"1795,55289-0464-15 ",.01)
 ;;55289-0464-15
 ;;9002226.02101,"1795,55289-0464-15 ",.02)
 ;;55289-0464-15
 ;;9002226.02101,"1795,55289-0464-20 ",.01)
 ;;55289-0464-20
 ;;9002226.02101,"1795,55289-0464-20 ",.02)
 ;;55289-0464-20
 ;;9002226.02101,"1795,55289-0464-25 ",.01)
 ;;55289-0464-25
 ;;9002226.02101,"1795,55289-0464-25 ",.02)
 ;;55289-0464-25
 ;;9002226.02101,"1795,55289-0464-30 ",.01)
 ;;55289-0464-30
 ;;9002226.02101,"1795,55289-0464-30 ",.02)
 ;;55289-0464-30
 ;;9002226.02101,"1795,55289-0464-60 ",.01)
 ;;55289-0464-60
 ;;9002226.02101,"1795,55289-0464-60 ",.02)
 ;;55289-0464-60
 ;;9002226.02101,"1795,55289-0464-79 ",.01)
 ;;55289-0464-79
 ;;9002226.02101,"1795,55289-0464-79 ",.02)
 ;;55289-0464-79
 ;;9002226.02101,"1795,55289-0531-04 ",.01)
 ;;55289-0531-04
 ;;9002226.02101,"1795,55289-0531-04 ",.02)
 ;;55289-0531-04
 ;;9002226.02101,"1795,55289-0762-30 ",.01)
 ;;55289-0762-30
 ;;9002226.02101,"1795,55289-0762-30 ",.02)
 ;;55289-0762-30
 ;;9002226.02101,"1795,55289-0912-10 ",.01)
 ;;55289-0912-10
 ;;9002226.02101,"1795,55289-0912-10 ",.02)
 ;;55289-0912-10
 ;;9002226.02101,"1795,55289-0912-30 ",.01)
 ;;55289-0912-30
 ;;9002226.02101,"1795,55289-0912-30 ",.02)
 ;;55289-0912-30
 ;;9002226.02101,"1795,55289-0912-60 ",.01)
 ;;55289-0912-60
 ;;9002226.02101,"1795,55289-0912-60 ",.02)
 ;;55289-0912-60
 ;;9002226.02101,"1795,55289-0928-02 ",.01)
 ;;55289-0928-02
 ;;9002226.02101,"1795,55289-0928-02 ",.02)
 ;;55289-0928-02
 ;;9002226.02101,"1795,55289-0928-04 ",.01)
 ;;55289-0928-04
 ;;9002226.02101,"1795,55289-0928-04 ",.02)
 ;;55289-0928-04
 ;;9002226.02101,"1795,55289-0928-06 ",.01)
 ;;55289-0928-06
 ;;9002226.02101,"1795,55289-0928-06 ",.02)
 ;;55289-0928-06
 ;;9002226.02101,"1795,55289-0928-79 ",.01)
 ;;55289-0928-79
 ;;9002226.02101,"1795,55289-0928-79 ",.02)
 ;;55289-0928-79
 ;;9002226.02101,"1795,55289-0940-02 ",.01)
 ;;55289-0940-02
 ;;9002226.02101,"1795,55289-0940-02 ",.02)
 ;;55289-0940-02
 ;;9002226.02101,"1795,55289-0940-06 ",.01)
 ;;55289-0940-06
 ;;9002226.02101,"1795,55289-0940-06 ",.02)
 ;;55289-0940-06
 ;;9002226.02101,"1795,55289-0948-02 ",.01)
 ;;55289-0948-02
 ;;9002226.02101,"1795,55289-0948-02 ",.02)
 ;;55289-0948-02
 ;;9002226.02101,"1795,55494-0100-10 ",.01)
 ;;55494-0100-10
 ;;9002226.02101,"1795,55494-0100-10 ",.02)
 ;;55494-0100-10
 ;;9002226.02101,"1795,55700-0033-30 ",.01)
 ;;55700-0033-30
 ;;9002226.02101,"1795,55700-0033-30 ",.02)
 ;;55700-0033-30
 ;;9002226.02101,"1795,55700-0042-15 ",.01)
 ;;55700-0042-15
 ;;9002226.02101,"1795,55700-0042-15 ",.02)
 ;;55700-0042-15
 ;;9002226.02101,"1795,55700-0042-20 ",.01)
 ;;55700-0042-20
 ;;9002226.02101,"1795,55700-0042-20 ",.02)
 ;;55700-0042-20
 ;;9002226.02101,"1795,55700-0042-30 ",.01)
 ;;55700-0042-30
 ;;9002226.02101,"1795,55700-0042-30 ",.02)
 ;;55700-0042-30
 ;;9002226.02101,"1795,55700-0042-60 ",.01)
 ;;55700-0042-60
 ;;9002226.02101,"1795,55700-0042-60 ",.02)
 ;;55700-0042-60
 ;;9002226.02101,"1795,55700-0169-30 ",.01)
 ;;55700-0169-30
 ;;9002226.02101,"1795,55700-0169-30 ",.02)
 ;;55700-0169-30
 ;;9002226.02101,"1795,55700-0202-20 ",.01)
 ;;55700-0202-20
 ;;9002226.02101,"1795,55700-0202-20 ",.02)
 ;;55700-0202-20
 ;;9002226.02101,"1795,55700-0202-30 ",.01)
 ;;55700-0202-30
 ;;9002226.02101,"1795,55700-0202-30 ",.02)
 ;;55700-0202-30
 ;;9002226.02101,"1795,55700-0221-05 ",.01)
 ;;55700-0221-05
 ;;9002226.02101,"1795,55700-0221-05 ",.02)
 ;;55700-0221-05
 ;;9002226.02101,"1795,55700-0221-10 ",.01)
 ;;55700-0221-10
 ;;9002226.02101,"1795,55700-0221-10 ",.02)
 ;;55700-0221-10
 ;;9002226.02101,"1795,55700-0221-12 ",.01)
 ;;55700-0221-12
 ;;9002226.02101,"1795,55700-0221-12 ",.02)
 ;;55700-0221-12
 ;;9002226.02101,"1795,55700-0221-15 ",.01)
 ;;55700-0221-15
 ;;9002226.02101,"1795,55700-0221-15 ",.02)
 ;;55700-0221-15
 ;;9002226.02101,"1795,55700-0221-16 ",.01)
 ;;55700-0221-16
 ;;9002226.02101,"1795,55700-0221-16 ",.02)
 ;;55700-0221-16
 ;;9002226.02101,"1795,55700-0221-20 ",.01)
 ;;55700-0221-20
 ;;9002226.02101,"1795,55700-0221-20 ",.02)
 ;;55700-0221-20
 ;;9002226.02101,"1795,55700-0221-30 ",.01)
 ;;55700-0221-30
 ;;9002226.02101,"1795,55700-0221-30 ",.02)
 ;;55700-0221-30
 ;;9002226.02101,"1795,55700-0221-60 ",.01)
 ;;55700-0221-60
 ;;9002226.02101,"1795,55700-0221-60 ",.02)
 ;;55700-0221-60
 ;;9002226.02101,"1795,55700-0221-90 ",.01)
 ;;55700-0221-90
 ;;9002226.02101,"1795,55700-0221-90 ",.02)
 ;;55700-0221-90
 ;;9002226.02101,"1795,55700-0237-30 ",.01)
 ;;55700-0237-30
 ;;9002226.02101,"1795,55700-0237-30 ",.02)
 ;;55700-0237-30
 ;;9002226.02101,"1795,57664-0107-88 ",.01)
 ;;57664-0107-88
 ;;9002226.02101,"1795,57664-0107-88 ",.02)
 ;;57664-0107-88
 ;;9002226.02101,"1795,57664-0108-18 ",.01)
 ;;57664-0108-18
 ;;9002226.02101,"1795,57664-0108-18 ",.02)
 ;;57664-0108-18
 ;;9002226.02101,"1795,57664-0108-88 ",.01)
 ;;57664-0108-88
 ;;9002226.02101,"1795,57664-0108-88 ",.02)
 ;;57664-0108-88
 ;;9002226.02101,"1795,57664-0109-88 ",.01)
 ;;57664-0109-88
 ;;9002226.02101,"1795,57664-0109-88 ",.02)
 ;;57664-0109-88
 ;;9002226.02101,"1795,57664-0146-31 ",.01)
 ;;57664-0146-31
 ;;9002226.02101,"1795,57664-0146-31 ",.02)
 ;;57664-0146-31
 ;;9002226.02101,"1795,57664-0146-34 ",.01)
 ;;57664-0146-34
 ;;9002226.02101,"1795,57664-0146-34 ",.02)
 ;;57664-0146-34
 ;;9002226.02101,"1795,57664-0185-31 ",.01)
 ;;57664-0185-31
 ;;9002226.02101,"1795,57664-0185-31 ",.02)
 ;;57664-0185-31
 ;;9002226.02101,"1795,57664-0185-34 ",.01)
 ;;57664-0185-34
 ;;9002226.02101,"1795,57664-0185-34 ",.02)
 ;;57664-0185-34
 ;;9002226.02101,"1795,58118-0011-06 ",.01)
 ;;58118-0011-06
 ;;9002226.02101,"1795,58118-0011-06 ",.02)
 ;;58118-0011-06
 ;;9002226.02101,"1795,58118-0011-08 ",.01)
 ;;58118-0011-08
 ;;9002226.02101,"1795,58118-0011-08 ",.02)
 ;;58118-0011-08
 ;;9002226.02101,"1795,58118-0012-06 ",.01)
 ;;58118-0012-06
 ;;9002226.02101,"1795,58118-0012-06 ",.02)
 ;;58118-0012-06
 ;;9002226.02101,"1795,58118-0012-08 ",.01)
 ;;58118-0012-08
 ;;9002226.02101,"1795,58118-0012-08 ",.02)
 ;;58118-0012-08
 ;;9002226.02101,"1795,58118-0034-01 ",.01)
 ;;58118-0034-01
 ;;9002226.02101,"1795,58118-0034-01 ",.02)
 ;;58118-0034-01
 ;;9002226.02101,"1795,58118-0613-03 ",.01)
 ;;58118-0613-03
 ;;9002226.02101,"1795,58118-0613-03 ",.02)
 ;;58118-0613-03
 ;;9002226.02101,"1795,58118-0613-06 ",.01)
 ;;58118-0613-06
 ;;9002226.02101,"1795,58118-0613-06 ",.02)
 ;;58118-0613-06
 ;;9002226.02101,"1795,58118-0615-03 ",.01)
 ;;58118-0615-03
 ;;9002226.02101,"1795,58118-0615-03 ",.02)
 ;;58118-0615-03
 ;;9002226.02101,"1795,58118-0615-06 ",.01)
 ;;58118-0615-06
 ;;9002226.02101,"1795,58118-0615-06 ",.02)
 ;;58118-0615-06
 ;;9002226.02101,"1795,58118-5307-01 ",.01)
 ;;58118-5307-01
 ;;9002226.02101,"1795,58118-5307-01 ",.02)
 ;;58118-5307-01
 ;;9002226.02101,"1795,58118-5307-02 ",.01)
 ;;58118-5307-02
 ;;9002226.02101,"1795,58118-5307-02 ",.02)
 ;;58118-5307-02
 ;;9002226.02101,"1795,58118-5307-03 ",.01)
 ;;58118-5307-03
 ;;9002226.02101,"1795,58118-5307-03 ",.02)
 ;;58118-5307-03
 ;;9002226.02101,"1795,58118-5307-05 ",.01)
 ;;58118-5307-05
 ;;9002226.02101,"1795,58118-5307-05 ",.02)
 ;;58118-5307-05
 ;;9002226.02101,"1795,58118-5307-09 ",.01)
 ;;58118-5307-09
 ;;9002226.02101,"1795,58118-5307-09 ",.02)
 ;;58118-5307-09
 ;;9002226.02101,"1795,58118-9914-01 ",.01)
 ;;58118-9914-01
 ;;9002226.02101,"1795,58118-9914-01 ",.02)
 ;;58118-9914-01
 ;;9002226.02101,"1795,58118-9915-01 ",.01)
 ;;58118-9915-01
 ;;9002226.02101,"1795,58118-9915-01 ",.02)
 ;;58118-9915-01
 ;;9002226.02101,"1795,58118-9958-04 ",.01)
 ;;58118-9958-04
 ;;9002226.02101,"1795,58118-9958-04 ",.02)
 ;;58118-9958-04
 ;;9002226.02101,"1795,58118-9978-01 ",.01)
 ;;58118-9978-01
 ;;9002226.02101,"1795,58118-9978-01 ",.02)
 ;;58118-9978-01
 ;;9002226.02101,"1795,58118-9978-04 ",.01)
 ;;58118-9978-04
 ;;9002226.02101,"1795,58118-9978-04 ",.02)
 ;;58118-9978-04
 ;;9002226.02101,"1795,58298-0314-16 ",.01)
 ;;58298-0314-16
 ;;9002226.02101,"1795,58298-0314-16 ",.02)
 ;;58298-0314-16
 ;;9002226.02101,"1795,58552-0123-16 ",.01)
 ;;58552-0123-16
 ;;9002226.02101,"1795,58552-0123-16 ",.02)
 ;;58552-0123-16
 ;;9002226.02101,"1795,58552-0124-02 ",.01)
 ;;58552-0124-02
 ;;9002226.02101,"1795,58552-0124-02 ",.02)
 ;;58552-0124-02
 ;;9002226.02101,"1795,58864-0045-20 ",.01)
 ;;58864-0045-20
 ;;9002226.02101,"1795,58864-0045-20 ",.02)
 ;;58864-0045-20
 ;;9002226.02101,"1795,58864-0045-30 ",.01)
 ;;58864-0045-30
 ;;9002226.02101,"1795,58864-0045-30 ",.02)
 ;;58864-0045-30
 ;;9002226.02101,"1795,58864-0045-42 ",.01)
 ;;58864-0045-42
 ;;9002226.02101,"1795,58864-0045-42 ",.02)
 ;;58864-0045-42
 ;;9002226.02101,"1795,58864-0045-60 ",.01)
 ;;58864-0045-60
 ;;9002226.02101,"1795,58864-0045-60 ",.02)
 ;;58864-0045-60
 ;;9002226.02101,"1795,58864-0055-06 ",.01)
 ;;58864-0055-06
 ;;9002226.02101,"1795,58864-0055-06 ",.02)
 ;;58864-0055-06
 ;;9002226.02101,"1795,58864-0056-30 ",.01)
 ;;58864-0056-30
 ;;9002226.02101,"1795,58864-0056-30 ",.02)
 ;;58864-0056-30
 ;;9002226.02101,"1795,58864-0761-10 ",.01)
 ;;58864-0761-10
 ;;9002226.02101,"1795,58864-0761-10 ",.02)
 ;;58864-0761-10
 ;;9002226.02101,"1795,58864-0761-30 ",.01)
 ;;58864-0761-30
 ;;9002226.02101,"1795,58864-0761-30 ",.02)
 ;;58864-0761-30
 ;;9002226.02101,"1795,58864-0761-42 ",.01)
 ;;58864-0761-42
 ;;9002226.02101,"1795,58864-0761-42 ",.02)
 ;;58864-0761-42
 ;;9002226.02101,"1795,59702-0800-16 ",.01)
 ;;59702-0800-16
 ;;9002226.02101,"1795,59702-0800-16 ",.02)
 ;;59702-0800-16
 ;;9002226.02101,"1795,60258-0850-01 ",.01)
 ;;60258-0850-01
 ;;9002226.02101,"1795,60258-0850-01 ",.02)
 ;;60258-0850-01
 ;;9002226.02101,"1795,60258-0850-10 ",.01)
 ;;60258-0850-10
 ;;9002226.02101,"1795,60258-0850-10 ",.02)
 ;;60258-0850-10
 ;;9002226.02101,"1795,60258-0876-16 ",.01)
 ;;60258-0876-16
 ;;9002226.02101,"1795,60258-0876-16 ",.02)
 ;;60258-0876-16
 ;;9002226.02101,"1795,60429-0149-01 ",.01)
 ;;60429-0149-01
 ;;9002226.02101,"1795,60429-0149-01 ",.02)
 ;;60429-0149-01
 ;;9002226.02101,"1795,60429-0150-01 ",.01)
 ;;60429-0150-01
 ;;9002226.02101,"1795,60429-0150-01 ",.02)
 ;;60429-0150-01
 ;;9002226.02101,"1795,60429-0150-10 ",.01)
 ;;60429-0150-10
 ;;9002226.02101,"1795,60429-0150-10 ",.02)
 ;;60429-0150-10
 ;;9002226.02101,"1795,60429-0150-12 ",.01)
 ;;60429-0150-12
 ;;9002226.02101,"1795,60429-0150-12 ",.02)
 ;;60429-0150-12
 ;;9002226.02101,"1795,60429-0150-30 ",.01)
 ;;60429-0150-30
 ;;9002226.02101,"1795,60429-0150-30 ",.02)
 ;;60429-0150-30
 ;;9002226.02101,"1795,60429-0150-60 ",.01)
 ;;60429-0150-60
 ;;9002226.02101,"1795,60429-0150-60 ",.02)
 ;;60429-0150-60
 ;;9002226.02101,"1795,60429-0150-90 ",.01)
 ;;60429-0150-90
 ;;9002226.02101,"1795,60429-0150-90 ",.02)
 ;;60429-0150-90
 ;;9002226.02101,"1795,60429-0151-01 ",.01)
 ;;60429-0151-01
 ;;9002226.02101,"1795,60429-0151-01 ",.02)
 ;;60429-0151-01
 ;;9002226.02101,"1795,60429-0223-01 ",.01)
 ;;60429-0223-01
 ;;9002226.02101,"1795,60429-0223-01 ",.02)
 ;;60429-0223-01
 ;;9002226.02101,"1795,60429-0223-10 ",.01)
 ;;60429-0223-10