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

BGP53I28.m

Go to the documentation of this file.
BGP53I28 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;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,"734,00517-8725-10 ",.02)
 ;;00517-8725-10
 ;;9002226.02101,"734,00517-8750-10 ",.01)
 ;;00517-8750-10
 ;;9002226.02101,"734,00517-8750-10 ",.02)
 ;;00517-8750-10
 ;;9002226.02101,"734,00527-1335-01 ",.01)
 ;;00527-1335-01
 ;;9002226.02101,"734,00527-1335-01 ",.02)
 ;;00527-1335-01
 ;;9002226.02101,"734,00527-1336-01 ",.01)
 ;;00527-1336-01
 ;;9002226.02101,"734,00527-1336-01 ",.02)
 ;;00527-1336-01
 ;;9002226.02101,"734,00527-1338-25 ",.01)
 ;;00527-1338-25
 ;;9002226.02101,"734,00527-1338-25 ",.02)
 ;;00527-1338-25
 ;;9002226.02101,"734,00527-1338-50 ",.01)
 ;;00527-1338-50
 ;;9002226.02101,"734,00527-1338-50 ",.02)
 ;;00527-1338-50
 ;;9002226.02101,"734,00527-1382-01 ",.01)
 ;;00527-1382-01
 ;;9002226.02101,"734,00527-1382-01 ",.02)
 ;;00527-1382-01
 ;;9002226.02101,"734,00527-1383-01 ",.01)
 ;;00527-1383-01
 ;;9002226.02101,"734,00527-1383-01 ",.02)
 ;;00527-1383-01
 ;;9002226.02101,"734,00527-1383-02 ",.01)
 ;;00527-1383-02
 ;;9002226.02101,"734,00527-1383-02 ",.02)
 ;;00527-1383-02
 ;;9002226.02101,"734,00527-1384-01 ",.01)
 ;;00527-1384-01
 ;;9002226.02101,"734,00527-1384-01 ",.02)
 ;;00527-1384-01
 ;;9002226.02101,"734,00527-1385-01 ",.01)
 ;;00527-1385-01
 ;;9002226.02101,"734,00527-1385-01 ",.02)
 ;;00527-1385-01
 ;;9002226.02101,"734,00527-1386-50 ",.01)
 ;;00527-1386-50
 ;;9002226.02101,"734,00527-1386-50 ",.02)
 ;;00527-1386-50
 ;;9002226.02101,"734,00527-1442-01 ",.01)
 ;;00527-1442-01
 ;;9002226.02101,"734,00527-1442-01 ",.02)
 ;;00527-1442-01
 ;;9002226.02101,"734,00527-1443-01 ",.01)
 ;;00527-1443-01
 ;;9002226.02101,"734,00527-1443-01 ",.02)
 ;;00527-1443-01
 ;;9002226.02101,"734,00527-1443-05 ",.01)
 ;;00527-1443-05
 ;;9002226.02101,"734,00527-1443-05 ",.02)
 ;;00527-1443-05
 ;;9002226.02101,"734,00527-1535-01 ",.01)
 ;;00527-1535-01
 ;;9002226.02101,"734,00527-1535-01 ",.02)
 ;;00527-1535-01
 ;;9002226.02101,"734,00527-1537-30 ",.01)
 ;;00527-1537-30
 ;;9002226.02101,"734,00527-1537-30 ",.02)
 ;;00527-1537-30
 ;;9002226.02101,"734,00555-0010-02 ",.01)
 ;;00555-0010-02
 ;;9002226.02101,"734,00555-0010-02 ",.02)
 ;;00555-0010-02
 ;;9002226.02101,"734,00555-0010-05 ",.01)
 ;;00555-0010-05
 ;;9002226.02101,"734,00555-0010-05 ",.02)
 ;;00555-0010-05
 ;;9002226.02101,"734,00555-0011-02 ",.01)
 ;;00555-0011-02
 ;;9002226.02101,"734,00555-0011-02 ",.02)
 ;;00555-0011-02
 ;;9002226.02101,"734,00555-0011-05 ",.01)
 ;;00555-0011-05
 ;;9002226.02101,"734,00555-0011-05 ",.02)
 ;;00555-0011-05
 ;;9002226.02101,"734,00555-0178-01 ",.01)
 ;;00555-0178-01
 ;;9002226.02101,"734,00555-0178-01 ",.02)
 ;;00555-0178-01
 ;;9002226.02101,"734,00555-0178-02 ",.01)
 ;;00555-0178-02
 ;;9002226.02101,"734,00555-0178-02 ",.02)
 ;;00555-0178-02
 ;;9002226.02101,"734,00555-0179-01 ",.01)
 ;;00555-0179-01
 ;;9002226.02101,"734,00555-0179-01 ",.02)
 ;;00555-0179-01
 ;;9002226.02101,"734,00555-0179-02 ",.01)
 ;;00555-0179-02
 ;;9002226.02101,"734,00555-0179-02 ",.02)
 ;;00555-0179-02
 ;;9002226.02101,"734,00555-0180-01 ",.01)
 ;;00555-0180-01
 ;;9002226.02101,"734,00555-0180-01 ",.02)
 ;;00555-0180-01
 ;;9002226.02101,"734,00555-0180-02 ",.01)
 ;;00555-0180-02
 ;;9002226.02101,"734,00555-0180-02 ",.02)
 ;;00555-0180-02
 ;;9002226.02101,"734,00555-0259-02 ",.01)
 ;;00555-0259-02
 ;;9002226.02101,"734,00555-0259-02 ",.02)
 ;;00555-0259-02
 ;;9002226.02101,"734,00555-0259-04 ",.01)
 ;;00555-0259-04
 ;;9002226.02101,"734,00555-0259-04 ",.02)
 ;;00555-0259-04
 ;;9002226.02101,"734,00555-0379-87 ",.01)
 ;;00555-0379-87
 ;;9002226.02101,"734,00555-0379-87 ",.02)
 ;;00555-0379-87
 ;;9002226.02101,"734,00555-0380-87 ",.01)
 ;;00555-0380-87
 ;;9002226.02101,"734,00555-0380-87 ",.02)
 ;;00555-0380-87
 ;;9002226.02101,"734,00555-0445-22 ",.01)
 ;;00555-0445-22
 ;;9002226.02101,"734,00555-0445-22 ",.02)
 ;;00555-0445-22
 ;;9002226.02101,"734,00555-0445-23 ",.01)
 ;;00555-0445-23
 ;;9002226.02101,"734,00555-0445-23 ",.02)
 ;;00555-0445-23
 ;;9002226.02101,"734,00555-0816-10 ",.01)
 ;;00555-0816-10
 ;;9002226.02101,"734,00555-0816-10 ",.02)
 ;;00555-0816-10
 ;;9002226.02101,"734,00574-0129-01 ",.01)
 ;;00574-0129-01
 ;;9002226.02101,"734,00574-0129-01 ",.02)
 ;;00574-0129-01
 ;;9002226.02101,"734,00591-0410-01 ",.01)
 ;;00591-0410-01
 ;;9002226.02101,"734,00591-0410-01 ",.02)
 ;;00591-0410-01
 ;;9002226.02101,"734,00591-0411-50 ",.01)
 ;;00591-0411-50
 ;;9002226.02101,"734,00591-0411-50 ",.02)
 ;;00591-0411-50
 ;;9002226.02101,"734,00591-2234-01 ",.01)
 ;;00591-2234-01
 ;;9002226.02101,"734,00591-2234-01 ",.02)
 ;;00591-2234-01
 ;;9002226.02101,"734,00591-2234-10 ",.01)
 ;;00591-2234-10
 ;;9002226.02101,"734,00591-2234-10 ",.02)
 ;;00591-2234-10
 ;;9002226.02101,"734,00591-2235-01 ",.01)
 ;;00591-2235-01
 ;;9002226.02101,"734,00591-2235-01 ",.02)
 ;;00591-2235-01
 ;;9002226.02101,"734,00591-2235-10 ",.01)
 ;;00591-2235-10
 ;;9002226.02101,"734,00591-2235-10 ",.02)
 ;;00591-2235-10
 ;;9002226.02101,"734,00591-2365-69 ",.01)
 ;;00591-2365-69
 ;;9002226.02101,"734,00591-2365-69 ",.02)
 ;;00591-2365-69
 ;;9002226.02101,"734,00591-2805-60 ",.01)
 ;;00591-2805-60
 ;;9002226.02101,"734,00591-2805-60 ",.02)
 ;;00591-2805-60
 ;;9002226.02101,"734,00591-3120-01 ",.01)
 ;;00591-3120-01
 ;;9002226.02101,"734,00591-3120-01 ",.02)
 ;;00591-3120-01
 ;;9002226.02101,"734,00591-3120-16 ",.01)
 ;;00591-3120-16
 ;;9002226.02101,"734,00591-3120-16 ",.02)
 ;;00591-3120-16
 ;;9002226.02101,"734,00591-3153-01 ",.01)
 ;;00591-3153-01
 ;;9002226.02101,"734,00591-3153-01 ",.02)
 ;;00591-3153-01
 ;;9002226.02101,"734,00591-3224-15 ",.01)
 ;;00591-3224-15
 ;;9002226.02101,"734,00591-3224-15 ",.02)
 ;;00591-3224-15
 ;;9002226.02101,"734,00591-3549-69 ",.01)
 ;;00591-3549-69
 ;;9002226.02101,"734,00591-3549-69 ",.02)
 ;;00591-3549-69
 ;;9002226.02101,"734,00591-3550-57 ",.01)
 ;;00591-3550-57
 ;;9002226.02101,"734,00591-3550-57 ",.02)
 ;;00591-3550-57
 ;;9002226.02101,"734,00591-3550-68 ",.01)
 ;;00591-3550-68
 ;;9002226.02101,"734,00591-3550-68 ",.02)
 ;;00591-3550-68
 ;;9002226.02101,"734,00591-5440-05 ",.01)
 ;;00591-5440-05
 ;;9002226.02101,"734,00591-5440-05 ",.02)
 ;;00591-5440-05
 ;;9002226.02101,"734,00591-5440-50 ",.01)
 ;;00591-5440-50
 ;;9002226.02101,"734,00591-5440-50 ",.02)
 ;;00591-5440-50
 ;;9002226.02101,"734,00591-5535-50 ",.01)
 ;;00591-5535-50
 ;;9002226.02101,"734,00591-5535-50 ",.02)
 ;;00591-5535-50
 ;;9002226.02101,"734,00591-5553-05 ",.01)
 ;;00591-5553-05
 ;;9002226.02101,"734,00591-5553-05 ",.02)
 ;;00591-5553-05
 ;;9002226.02101,"734,00591-5553-50 ",.01)
 ;;00591-5553-50
 ;;9002226.02101,"734,00591-5553-50 ",.02)
 ;;00591-5553-50
 ;;9002226.02101,"734,00591-5571-01 ",.01)
 ;;00591-5571-01
 ;;9002226.02101,"734,00591-5571-01 ",.02)
 ;;00591-5571-01
 ;;9002226.02101,"734,00591-5694-01 ",.01)
 ;;00591-5694-01
 ;;9002226.02101,"734,00591-5694-01 ",.02)
 ;;00591-5694-01
 ;;9002226.02101,"734,00591-5694-60 ",.01)
 ;;00591-5694-60
 ;;9002226.02101,"734,00591-5694-60 ",.02)
 ;;00591-5694-60
 ;;9002226.02101,"734,00591-5695-50 ",.01)
 ;;00591-5695-50
 ;;9002226.02101,"734,00591-5695-50 ",.02)
 ;;00591-5695-50
 ;;9002226.02101,"734,00591-5708-01 ",.01)
 ;;00591-5708-01
 ;;9002226.02101,"734,00591-5708-01 ",.02)
 ;;00591-5708-01
 ;;9002226.02101,"734,00603-1684-58 ",.01)
 ;;00603-1684-58
 ;;9002226.02101,"734,00603-1684-58 ",.02)
 ;;00603-1684-58
 ;;9002226.02101,"734,00603-1685-58 ",.01)
 ;;00603-1685-58
 ;;9002226.02101,"734,00603-1685-58 ",.02)
 ;;00603-1685-58
 ;;9002226.02101,"734,00603-3480-19 ",.01)
 ;;00603-3480-19
 ;;9002226.02101,"734,00603-3480-19 ",.02)
 ;;00603-3480-19
 ;;9002226.02101,"734,00603-3481-19 ",.01)
 ;;00603-3481-19
 ;;9002226.02101,"734,00603-3481-19 ",.02)
 ;;00603-3481-19
 ;;9002226.02101,"734,00603-3481-28 ",.01)
 ;;00603-3481-28
 ;;9002226.02101,"734,00603-3481-28 ",.02)
 ;;00603-3481-28
 ;;9002226.02101,"734,00603-3482-19 ",.01)
 ;;00603-3482-19
 ;;9002226.02101,"734,00603-3482-19 ",.02)
 ;;00603-3482-19
 ;;9002226.02101,"734,00603-3482-28 ",.01)
 ;;00603-3482-28
 ;;9002226.02101,"734,00603-3482-28 ",.02)
 ;;00603-3482-28
 ;;9002226.02101,"734,00603-5780-21 ",.01)
 ;;00603-5780-21
 ;;9002226.02101,"734,00603-5780-21 ",.02)
 ;;00603-5780-21
 ;;9002226.02101,"734,00603-5780-28 ",.01)
 ;;00603-5780-28
 ;;9002226.02101,"734,00603-5780-28 ",.02)
 ;;00603-5780-28
 ;;9002226.02101,"734,00603-5781-21 ",.01)
 ;;00603-5781-21
 ;;9002226.02101,"734,00603-5781-21 ",.02)
 ;;00603-5781-21
 ;;9002226.02101,"734,00603-5781-28 ",.01)
 ;;00603-5781-28
 ;;9002226.02101,"734,00603-5781-28 ",.02)
 ;;00603-5781-28
 ;;9002226.02101,"734,00603-6500-84 ",.01)
 ;;00603-6500-84
 ;;9002226.02101,"734,00603-6500-84 ",.02)
 ;;00603-6500-84
 ;;9002226.02101,"734,00603-8537-47 ",.01)
 ;;00603-8537-47
 ;;9002226.02101,"734,00603-8537-47 ",.02)
 ;;00603-8537-47
 ;;9002226.02101,"734,00641-2764-43 ",.01)
 ;;00641-2764-43
 ;;9002226.02101,"734,00641-2764-43 ",.02)
 ;;00641-2764-43
 ;;9002226.02101,"734,00686-3145-09 ",.01)
 ;;00686-3145-09
 ;;9002226.02101,"734,00686-3145-09 ",.02)
 ;;00686-3145-09
 ;;9002226.02101,"734,00703-0315-01 ",.01)
 ;;00703-0315-01
 ;;9002226.02101,"734,00703-0315-01 ",.02)
 ;;00703-0315-01
 ;;9002226.02101,"734,00703-0315-03 ",.01)
 ;;00703-0315-03
 ;;9002226.02101,"734,00703-0315-03 ",.02)
 ;;00703-0315-03
 ;;9002226.02101,"734,00703-0325-03 ",.01)
 ;;00703-0325-03
 ;;9002226.02101,"734,00703-0325-03 ",.02)
 ;;00703-0325-03
 ;;9002226.02101,"734,00703-0335-04 ",.01)
 ;;00703-0335-04
 ;;9002226.02101,"734,00703-0335-04 ",.02)
 ;;00703-0335-04
 ;;9002226.02101,"734,00703-0346-03 ",.01)
 ;;00703-0346-03
 ;;9002226.02101,"734,00703-0346-03 ",.02)
 ;;00703-0346-03
 ;;9002226.02101,"734,00703-0359-01 ",.01)
 ;;00703-0359-01
 ;;9002226.02101,"734,00703-0359-01 ",.02)
 ;;00703-0359-01
 ;;9002226.02101,"734,00703-0956-01 ",.01)
 ;;00703-0956-01
 ;;9002226.02101,"734,00703-0956-01 ",.02)
 ;;00703-0956-01
 ;;9002226.02101,"734,00703-0956-03 ",.01)
 ;;00703-0956-03
 ;;9002226.02101,"734,00703-0956-03 ",.02)
 ;;00703-0956-03
 ;;9002226.02101,"734,00703-0958-01 ",.01)
 ;;00703-0958-01
 ;;9002226.02101,"734,00703-0958-01 ",.02)
 ;;00703-0958-01
 ;;9002226.02101,"734,00703-0958-03 ",.01)
 ;;00703-0958-03
 ;;9002226.02101,"734,00703-0958-03 ",.02)
 ;;00703-0958-03
 ;;9002226.02101,"734,00703-0960-31 ",.01)
 ;;00703-0960-31
 ;;9002226.02101,"734,00703-0960-31 ",.02)
 ;;00703-0960-31
 ;;9002226.02101,"734,00703-0960-36 ",.01)
 ;;00703-0960-36
 ;;9002226.02101,"734,00703-0960-36 ",.02)
 ;;00703-0960-36
 ;;9002226.02101,"734,00703-0969-31 ",.01)
 ;;00703-0969-31
 ;;9002226.02101,"734,00703-0969-31 ",.02)
 ;;00703-0969-31
 ;;9002226.02101,"734,00703-0969-36 ",.01)
 ;;00703-0969-36
 ;;9002226.02101,"734,00703-0969-36 ",.02)
 ;;00703-0969-36
 ;;9002226.02101,"734,00703-9089-01 ",.01)
 ;;00703-9089-01
 ;;9002226.02101,"734,00703-9089-01 ",.02)
 ;;00703-9089-01
 ;;9002226.02101,"734,00703-9503-01 ",.01)
 ;;00703-9503-01
 ;;9002226.02101,"734,00703-9503-01 ",.02)
 ;;00703-9503-01
 ;;9002226.02101,"734,00703-9503-03 ",.01)
 ;;00703-9503-03
 ;;9002226.02101,"734,00703-9503-03 ",.02)
 ;;00703-9503-03
 ;;9002226.02101,"734,00703-9514-01 ",.01)
 ;;00703-9514-01
 ;;9002226.02101,"734,00703-9514-01 ",.02)
 ;;00703-9514-01
 ;;9002226.02101,"734,00703-9514-03 ",.01)
 ;;00703-9514-03
 ;;9002226.02101,"734,00703-9514-03 ",.02)
 ;;00703-9514-03
 ;;9002226.02101,"734,00703-9526-01 ",.01)
 ;;00703-9526-01
 ;;9002226.02101,"734,00703-9526-01 ",.02)
 ;;00703-9526-01
 ;;9002226.02101,"734,00777-0869-02 ",.01)
 ;;00777-0869-02
 ;;9002226.02101,"734,00777-0869-02 ",.02)
 ;;00777-0869-02
 ;;9002226.02101,"734,00777-0869-20 ",.01)
 ;;00777-0869-20
 ;;9002226.02101,"734,00777-0869-20 ",.02)
 ;;00777-0869-20
 ;;9002226.02101,"734,00777-0871-02 ",.01)
 ;;00777-0871-02
 ;;9002226.02101,"734,00777-0871-02 ",.02)
 ;;00777-0871-02
 ;;9002226.02101,"734,00777-0871-20 ",.01)
 ;;00777-0871-20
 ;;9002226.02101,"734,00777-0871-20 ",.02)
 ;;00777-0871-20
 ;;9002226.02101,"734,00781-1205-01 ",.01)
 ;;00781-1205-01
 ;;9002226.02101,"734,00781-1205-01 ",.02)
 ;;00781-1205-01
 ;;9002226.02101,"734,00781-1205-10 ",.01)
 ;;00781-1205-10
 ;;9002226.02101,"734,00781-1205-10 ",.02)
 ;;00781-1205-10
 ;;9002226.02101,"734,00781-1496-31 ",.01)
 ;;00781-1496-31
 ;;9002226.02101,"734,00781-1496-31 ",.02)
 ;;00781-1496-31
 ;;9002226.02101,"734,00781-1496-68 ",.01)
 ;;00781-1496-68
 ;;9002226.02101,"734,00781-1496-68 ",.02)
 ;;00781-1496-68
 ;;9002226.02101,"734,00781-1496-69 ",.01)
 ;;00781-1496-69
 ;;9002226.02101,"734,00781-1496-69 ",.02)
 ;;00781-1496-69
 ;;9002226.02101,"734,00781-1497-31 ",.01)
 ;;00781-1497-31
 ;;9002226.02101,"734,00781-1497-31 ",.02)
 ;;00781-1497-31
 ;;9002226.02101,"734,00781-1619-66 ",.01)
 ;;00781-1619-66
 ;;9002226.02101,"734,00781-1619-66 ",.02)
 ;;00781-1619-66
 ;;9002226.02101,"734,00781-1643-66 ",.01)
 ;;00781-1643-66
 ;;9002226.02101,"734,00781-1643-66 ",.02)
 ;;00781-1643-66
 ;;9002226.02101,"734,00781-1655-01 ",.01)
 ;;00781-1655-01
 ;;9002226.02101,"734,00781-1655-01 ",.02)
 ;;00781-1655-01
 ;;9002226.02101,"734,00781-1655-10 ",.01)
 ;;00781-1655-10
 ;;9002226.02101,"734,00781-1655-10 ",.02)
 ;;00781-1655-10
 ;;9002226.02101,"734,00781-1831-20 ",.01)
 ;;00781-1831-20
 ;;9002226.02101,"734,00781-1831-20 ",.02)
 ;;00781-1831-20
 ;;9002226.02101,"734,00781-1852-20 ",.01)
 ;;00781-1852-20
 ;;9002226.02101,"734,00781-1852-20 ",.02)
 ;;00781-1852-20
 ;;9002226.02101,"734,00781-1874-31 ",.01)
 ;;00781-1874-31