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

BGP8ZH26.m

Go to the documentation of this file.
BGP8ZH26 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"868,00555-0178-02 ",.02)
 ;;00555-0178-02
 ;;9002226.02101,"868,00555-0179-01 ",.01)
 ;;00555-0179-01
 ;;9002226.02101,"868,00555-0179-01 ",.02)
 ;;00555-0179-01
 ;;9002226.02101,"868,00555-0179-02 ",.01)
 ;;00555-0179-02
 ;;9002226.02101,"868,00555-0179-02 ",.02)
 ;;00555-0179-02
 ;;9002226.02101,"868,00555-0180-01 ",.01)
 ;;00555-0180-01
 ;;9002226.02101,"868,00555-0180-01 ",.02)
 ;;00555-0180-01
 ;;9002226.02101,"868,00555-0180-02 ",.01)
 ;;00555-0180-02
 ;;9002226.02101,"868,00555-0180-02 ",.02)
 ;;00555-0180-02
 ;;9002226.02101,"868,00555-0259-02 ",.01)
 ;;00555-0259-02
 ;;9002226.02101,"868,00555-0259-02 ",.02)
 ;;00555-0259-02
 ;;9002226.02101,"868,00555-0259-04 ",.01)
 ;;00555-0259-04
 ;;9002226.02101,"868,00555-0259-04 ",.02)
 ;;00555-0259-04
 ;;9002226.02101,"868,00555-0379-87 ",.01)
 ;;00555-0379-87
 ;;9002226.02101,"868,00555-0379-87 ",.02)
 ;;00555-0379-87
 ;;9002226.02101,"868,00555-0380-87 ",.01)
 ;;00555-0380-87
 ;;9002226.02101,"868,00555-0380-87 ",.02)
 ;;00555-0380-87
 ;;9002226.02101,"868,00555-0445-22 ",.01)
 ;;00555-0445-22
 ;;9002226.02101,"868,00555-0445-22 ",.02)
 ;;00555-0445-22
 ;;9002226.02101,"868,00555-0445-23 ",.01)
 ;;00555-0445-23
 ;;9002226.02101,"868,00555-0445-23 ",.02)
 ;;00555-0445-23
 ;;9002226.02101,"868,00555-0816-10 ",.01)
 ;;00555-0816-10
 ;;9002226.02101,"868,00555-0816-10 ",.02)
 ;;00555-0816-10
 ;;9002226.02101,"868,00574-0129-01 ",.01)
 ;;00574-0129-01
 ;;9002226.02101,"868,00574-0129-01 ",.02)
 ;;00574-0129-01
 ;;9002226.02101,"868,00591-0410-01 ",.01)
 ;;00591-0410-01
 ;;9002226.02101,"868,00591-0410-01 ",.02)
 ;;00591-0410-01
 ;;9002226.02101,"868,00591-0411-50 ",.01)
 ;;00591-0411-50
 ;;9002226.02101,"868,00591-0411-50 ",.02)
 ;;00591-0411-50
 ;;9002226.02101,"868,00591-2234-01 ",.01)
 ;;00591-2234-01
 ;;9002226.02101,"868,00591-2234-01 ",.02)
 ;;00591-2234-01
 ;;9002226.02101,"868,00591-2234-10 ",.01)
 ;;00591-2234-10
 ;;9002226.02101,"868,00591-2234-10 ",.02)
 ;;00591-2234-10
 ;;9002226.02101,"868,00591-2235-01 ",.01)
 ;;00591-2235-01
 ;;9002226.02101,"868,00591-2235-01 ",.02)
 ;;00591-2235-01
 ;;9002226.02101,"868,00591-2235-10 ",.01)
 ;;00591-2235-10
 ;;9002226.02101,"868,00591-2235-10 ",.02)
 ;;00591-2235-10
 ;;9002226.02101,"868,00591-2365-69 ",.01)
 ;;00591-2365-69
 ;;9002226.02101,"868,00591-2365-69 ",.02)
 ;;00591-2365-69
 ;;9002226.02101,"868,00591-2404-01 ",.01)
 ;;00591-2404-01
 ;;9002226.02101,"868,00591-2404-01 ",.02)
 ;;00591-2404-01
 ;;9002226.02101,"868,00591-2474-01 ",.01)
 ;;00591-2474-01
 ;;9002226.02101,"868,00591-2474-01 ",.02)
 ;;00591-2474-01
 ;;9002226.02101,"868,00591-2475-01 ",.01)
 ;;00591-2475-01
 ;;9002226.02101,"868,00591-2475-01 ",.02)
 ;;00591-2475-01
 ;;9002226.02101,"868,00591-2805-60 ",.01)
 ;;00591-2805-60
 ;;9002226.02101,"868,00591-2805-60 ",.02)
 ;;00591-2805-60
 ;;9002226.02101,"868,00591-2932-01 ",.01)
 ;;00591-2932-01
 ;;9002226.02101,"868,00591-2932-01 ",.02)
 ;;00591-2932-01
 ;;9002226.02101,"868,00591-3120-01 ",.01)
 ;;00591-3120-01
 ;;9002226.02101,"868,00591-3120-01 ",.02)
 ;;00591-3120-01
 ;;9002226.02101,"868,00591-3120-16 ",.01)
 ;;00591-3120-16
 ;;9002226.02101,"868,00591-3120-16 ",.02)
 ;;00591-3120-16
 ;;9002226.02101,"868,00591-3153-01 ",.01)
 ;;00591-3153-01
 ;;9002226.02101,"868,00591-3153-01 ",.02)
 ;;00591-3153-01
 ;;9002226.02101,"868,00591-3224-15 ",.01)
 ;;00591-3224-15
 ;;9002226.02101,"868,00591-3224-15 ",.02)
 ;;00591-3224-15
 ;;9002226.02101,"868,00591-3549-69 ",.01)
 ;;00591-3549-69
 ;;9002226.02101,"868,00591-3549-69 ",.02)
 ;;00591-3549-69
 ;;9002226.02101,"868,00591-3550-57 ",.01)
 ;;00591-3550-57
 ;;9002226.02101,"868,00591-3550-57 ",.02)
 ;;00591-3550-57
 ;;9002226.02101,"868,00591-3550-68 ",.01)
 ;;00591-3550-68
 ;;9002226.02101,"868,00591-3550-68 ",.02)
 ;;00591-3550-68
 ;;9002226.02101,"868,00591-5440-05 ",.01)
 ;;00591-5440-05
 ;;9002226.02101,"868,00591-5440-05 ",.02)
 ;;00591-5440-05
 ;;9002226.02101,"868,00591-5440-50 ",.01)
 ;;00591-5440-50
 ;;9002226.02101,"868,00591-5440-50 ",.02)
 ;;00591-5440-50
 ;;9002226.02101,"868,00591-5535-50 ",.01)
 ;;00591-5535-50
 ;;9002226.02101,"868,00591-5535-50 ",.02)
 ;;00591-5535-50
 ;;9002226.02101,"868,00591-5553-05 ",.01)
 ;;00591-5553-05
 ;;9002226.02101,"868,00591-5553-05 ",.02)
 ;;00591-5553-05
 ;;9002226.02101,"868,00591-5553-50 ",.01)
 ;;00591-5553-50
 ;;9002226.02101,"868,00591-5553-50 ",.02)
 ;;00591-5553-50
 ;;9002226.02101,"868,00591-5571-01 ",.01)
 ;;00591-5571-01
 ;;9002226.02101,"868,00591-5571-01 ",.02)
 ;;00591-5571-01
 ;;9002226.02101,"868,00591-5694-01 ",.01)
 ;;00591-5694-01
 ;;9002226.02101,"868,00591-5694-01 ",.02)
 ;;00591-5694-01
 ;;9002226.02101,"868,00591-5694-60 ",.01)
 ;;00591-5694-60
 ;;9002226.02101,"868,00591-5694-60 ",.02)
 ;;00591-5694-60
 ;;9002226.02101,"868,00591-5695-50 ",.01)
 ;;00591-5695-50
 ;;9002226.02101,"868,00591-5695-50 ",.02)
 ;;00591-5695-50
 ;;9002226.02101,"868,00591-5708-01 ",.01)
 ;;00591-5708-01
 ;;9002226.02101,"868,00591-5708-01 ",.02)
 ;;00591-5708-01
 ;;9002226.02101,"868,00591-6100-60 ",.01)
 ;;00591-6100-60
 ;;9002226.02101,"868,00591-6100-60 ",.02)
 ;;00591-6100-60
 ;;9002226.02101,"868,00591-6125-60 ",.01)
 ;;00591-6125-60
 ;;9002226.02101,"868,00591-6125-60 ",.02)
 ;;00591-6125-60
 ;;9002226.02101,"868,00603-1684-58 ",.01)
 ;;00603-1684-58
 ;;9002226.02101,"868,00603-1684-58 ",.02)
 ;;00603-1684-58
 ;;9002226.02101,"868,00603-1685-58 ",.01)
 ;;00603-1685-58
 ;;9002226.02101,"868,00603-1685-58 ",.02)
 ;;00603-1685-58
 ;;9002226.02101,"868,00603-3480-19 ",.01)
 ;;00603-3480-19
 ;;9002226.02101,"868,00603-3480-19 ",.02)
 ;;00603-3480-19
 ;;9002226.02101,"868,00603-3481-19 ",.01)
 ;;00603-3481-19
 ;;9002226.02101,"868,00603-3481-19 ",.02)
 ;;00603-3481-19
 ;;9002226.02101,"868,00603-3481-28 ",.01)
 ;;00603-3481-28
 ;;9002226.02101,"868,00603-3481-28 ",.02)
 ;;00603-3481-28
 ;;9002226.02101,"868,00603-3482-19 ",.01)
 ;;00603-3482-19
 ;;9002226.02101,"868,00603-3482-19 ",.02)
 ;;00603-3482-19
 ;;9002226.02101,"868,00603-3482-28 ",.01)
 ;;00603-3482-28
 ;;9002226.02101,"868,00603-3482-28 ",.02)
 ;;00603-3482-28
 ;;9002226.02101,"868,00603-5781-21 ",.01)
 ;;00603-5781-21
 ;;9002226.02101,"868,00603-5781-21 ",.02)
 ;;00603-5781-21
 ;;9002226.02101,"868,00603-5781-28 ",.01)
 ;;00603-5781-28
 ;;9002226.02101,"868,00603-5781-28 ",.02)
 ;;00603-5781-28
 ;;9002226.02101,"868,00603-6500-84 ",.01)
 ;;00603-6500-84
 ;;9002226.02101,"868,00603-6500-84 ",.02)
 ;;00603-6500-84
 ;;9002226.02101,"868,00603-8537-47 ",.01)
 ;;00603-8537-47
 ;;9002226.02101,"868,00603-8537-47 ",.02)
 ;;00603-8537-47
 ;;9002226.02101,"868,00686-3145-09 ",.01)
 ;;00686-3145-09
 ;;9002226.02101,"868,00686-3145-09 ",.02)
 ;;00686-3145-09
 ;;9002226.02101,"868,00703-0335-04 ",.01)
 ;;00703-0335-04
 ;;9002226.02101,"868,00703-0335-04 ",.02)
 ;;00703-0335-04
 ;;9002226.02101,"868,00703-0346-03 ",.01)
 ;;00703-0346-03
 ;;9002226.02101,"868,00703-0346-03 ",.02)
 ;;00703-0346-03
 ;;9002226.02101,"868,00703-0359-01 ",.01)
 ;;00703-0359-01
 ;;9002226.02101,"868,00703-0359-01 ",.02)
 ;;00703-0359-01
 ;;9002226.02101,"868,00703-0958-01 ",.01)
 ;;00703-0958-01
 ;;9002226.02101,"868,00703-0958-01 ",.02)
 ;;00703-0958-01
 ;;9002226.02101,"868,00703-0958-03 ",.01)
 ;;00703-0958-03
 ;;9002226.02101,"868,00703-0958-03 ",.02)
 ;;00703-0958-03
 ;;9002226.02101,"868,00703-9503-01 ",.01)
 ;;00703-9503-01
 ;;9002226.02101,"868,00703-9503-01 ",.02)
 ;;00703-9503-01
 ;;9002226.02101,"868,00703-9503-03 ",.01)
 ;;00703-9503-03
 ;;9002226.02101,"868,00703-9503-03 ",.02)
 ;;00703-9503-03
 ;;9002226.02101,"868,00703-9514-01 ",.01)
 ;;00703-9514-01
 ;;9002226.02101,"868,00703-9514-01 ",.02)
 ;;00703-9514-01
 ;;9002226.02101,"868,00703-9514-03 ",.01)
 ;;00703-9514-03
 ;;9002226.02101,"868,00703-9514-03 ",.02)
 ;;00703-9514-03
 ;;9002226.02101,"868,00703-9514-83 ",.01)
 ;;00703-9514-83
 ;;9002226.02101,"868,00703-9514-83 ",.02)
 ;;00703-9514-83
 ;;9002226.02101,"868,00703-9526-01 ",.01)
 ;;00703-9526-01
 ;;9002226.02101,"868,00703-9526-01 ",.02)
 ;;00703-9526-01
 ;;9002226.02101,"868,00713-0427-01 ",.01)
 ;;00713-0427-01
 ;;9002226.02101,"868,00713-0427-01 ",.02)
 ;;00713-0427-01
 ;;9002226.02101,"868,00713-0428-01 ",.01)
 ;;00713-0428-01
 ;;9002226.02101,"868,00713-0428-01 ",.02)
 ;;00713-0428-01
 ;;9002226.02101,"868,00713-0429-50 ",.01)
 ;;00713-0429-50
 ;;9002226.02101,"868,00713-0429-50 ",.02)
 ;;00713-0429-50
 ;;9002226.02101,"868,00713-0429-93 ",.01)
 ;;00713-0429-93
 ;;9002226.02101,"868,00713-0429-93 ",.02)
 ;;00713-0429-93
 ;;9002226.02101,"868,00713-3171-01 ",.01)
 ;;00713-3171-01
 ;;9002226.02101,"868,00713-3171-01 ",.02)
 ;;00713-3171-01
 ;;9002226.02101,"868,00713-5256-01 ",.01)
 ;;00713-5256-01
 ;;9002226.02101,"868,00713-5256-01 ",.02)
 ;;00713-5256-01
 ;;9002226.02101,"868,00777-0869-02 ",.01)
 ;;00777-0869-02
 ;;9002226.02101,"868,00777-0869-02 ",.02)
 ;;00777-0869-02
 ;;9002226.02101,"868,00777-0869-20 ",.01)
 ;;00777-0869-20
 ;;9002226.02101,"868,00777-0869-20 ",.02)
 ;;00777-0869-20
 ;;9002226.02101,"868,00777-0871-02 ",.01)
 ;;00777-0871-02
 ;;9002226.02101,"868,00777-0871-02 ",.02)
 ;;00777-0871-02
 ;;9002226.02101,"868,00777-0871-20 ",.01)
 ;;00777-0871-20
 ;;9002226.02101,"868,00777-0871-20 ",.02)
 ;;00777-0871-20
 ;;9002226.02101,"868,00781-1205-01 ",.01)
 ;;00781-1205-01
 ;;9002226.02101,"868,00781-1205-01 ",.02)
 ;;00781-1205-01
 ;;9002226.02101,"868,00781-1205-10 ",.01)
 ;;00781-1205-10
 ;;9002226.02101,"868,00781-1205-10 ",.02)
 ;;00781-1205-10
 ;;9002226.02101,"868,00781-1496-31 ",.01)
 ;;00781-1496-31
 ;;9002226.02101,"868,00781-1496-31 ",.02)
 ;;00781-1496-31
 ;;9002226.02101,"868,00781-1496-68 ",.01)
 ;;00781-1496-68
 ;;9002226.02101,"868,00781-1496-68 ",.02)
 ;;00781-1496-68
 ;;9002226.02101,"868,00781-1496-69 ",.01)
 ;;00781-1496-69
 ;;9002226.02101,"868,00781-1496-69 ",.02)
 ;;00781-1496-69
 ;;9002226.02101,"868,00781-1497-31 ",.01)
 ;;00781-1497-31
 ;;9002226.02101,"868,00781-1497-31 ",.02)
 ;;00781-1497-31
 ;;9002226.02101,"868,00781-1619-66 ",.01)
 ;;00781-1619-66
 ;;9002226.02101,"868,00781-1619-66 ",.02)
 ;;00781-1619-66
 ;;9002226.02101,"868,00781-1643-66 ",.01)
 ;;00781-1643-66
 ;;9002226.02101,"868,00781-1643-66 ",.02)
 ;;00781-1643-66
 ;;9002226.02101,"868,00781-1655-01 ",.01)
 ;;00781-1655-01
 ;;9002226.02101,"868,00781-1655-01 ",.02)
 ;;00781-1655-01
 ;;9002226.02101,"868,00781-1655-10 ",.01)
 ;;00781-1655-10
 ;;9002226.02101,"868,00781-1655-10 ",.02)
 ;;00781-1655-10
 ;;9002226.02101,"868,00781-1831-20 ",.01)
 ;;00781-1831-20
 ;;9002226.02101,"868,00781-1831-20 ",.02)
 ;;00781-1831-20
 ;;9002226.02101,"868,00781-1852-20 ",.01)
 ;;00781-1852-20
 ;;9002226.02101,"868,00781-1852-20 ",.02)
 ;;00781-1852-20
 ;;9002226.02101,"868,00781-1874-31 ",.01)
 ;;00781-1874-31
 ;;9002226.02101,"868,00781-1874-31 ",.02)
 ;;00781-1874-31
 ;;9002226.02101,"868,00781-1941-31 ",.01)
 ;;00781-1941-31
 ;;9002226.02101,"868,00781-1941-31 ",.02)
 ;;00781-1941-31
 ;;9002226.02101,"868,00781-1941-33 ",.01)
 ;;00781-1941-33
 ;;9002226.02101,"868,00781-1941-33 ",.02)
 ;;00781-1941-33
 ;;9002226.02101,"868,00781-1943-39 ",.01)
 ;;00781-1943-39
 ;;9002226.02101,"868,00781-1943-39 ",.02)
 ;;00781-1943-39
 ;;9002226.02101,"868,00781-1943-82 ",.01)
 ;;00781-1943-82
 ;;9002226.02101,"868,00781-1943-82 ",.02)
 ;;00781-1943-82
 ;;9002226.02101,"868,00781-1961-60 ",.01)
 ;;00781-1961-60
 ;;9002226.02101,"868,00781-1961-60 ",.02)
 ;;00781-1961-60
 ;;9002226.02101,"868,00781-1962-60 ",.01)
 ;;00781-1962-60
 ;;9002226.02101,"868,00781-1962-60 ",.02)
 ;;00781-1962-60
 ;;9002226.02101,"868,00781-2020-01 ",.01)
 ;;00781-2020-01