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

BGP73F29.m

Go to the documentation of this file.
BGP73F29 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;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,"868,00517-8725-10 ",.02)
 ;;00517-8725-10
 ;;9002226.02101,"868,00517-8750-10 ",.01)
 ;;00517-8750-10
 ;;9002226.02101,"868,00517-8750-10 ",.02)
 ;;00517-8750-10
 ;;9002226.02101,"868,00527-1335-01 ",.01)
 ;;00527-1335-01
 ;;9002226.02101,"868,00527-1335-01 ",.02)
 ;;00527-1335-01
 ;;9002226.02101,"868,00527-1336-01 ",.01)
 ;;00527-1336-01
 ;;9002226.02101,"868,00527-1336-01 ",.02)
 ;;00527-1336-01
 ;;9002226.02101,"868,00527-1338-25 ",.01)
 ;;00527-1338-25
 ;;9002226.02101,"868,00527-1338-25 ",.02)
 ;;00527-1338-25
 ;;9002226.02101,"868,00527-1338-50 ",.01)
 ;;00527-1338-50
 ;;9002226.02101,"868,00527-1338-50 ",.02)
 ;;00527-1338-50
 ;;9002226.02101,"868,00527-1381-04 ",.01)
 ;;00527-1381-04
 ;;9002226.02101,"868,00527-1381-04 ",.02)
 ;;00527-1381-04
 ;;9002226.02101,"868,00527-1382-01 ",.01)
 ;;00527-1382-01
 ;;9002226.02101,"868,00527-1382-01 ",.02)
 ;;00527-1382-01
 ;;9002226.02101,"868,00527-1383-01 ",.01)
 ;;00527-1383-01
 ;;9002226.02101,"868,00527-1383-01 ",.02)
 ;;00527-1383-01
 ;;9002226.02101,"868,00527-1383-02 ",.01)
 ;;00527-1383-02
 ;;9002226.02101,"868,00527-1383-02 ",.02)
 ;;00527-1383-02
 ;;9002226.02101,"868,00527-1384-01 ",.01)
 ;;00527-1384-01
 ;;9002226.02101,"868,00527-1384-01 ",.02)
 ;;00527-1384-01
 ;;9002226.02101,"868,00527-1385-01 ",.01)
 ;;00527-1385-01
 ;;9002226.02101,"868,00527-1385-01 ",.02)
 ;;00527-1385-01
 ;;9002226.02101,"868,00527-1386-50 ",.01)
 ;;00527-1386-50
 ;;9002226.02101,"868,00527-1386-50 ",.02)
 ;;00527-1386-50
 ;;9002226.02101,"868,00527-1442-01 ",.01)
 ;;00527-1442-01
 ;;9002226.02101,"868,00527-1442-01 ",.02)
 ;;00527-1442-01
 ;;9002226.02101,"868,00527-1443-01 ",.01)
 ;;00527-1443-01
 ;;9002226.02101,"868,00527-1443-01 ",.02)
 ;;00527-1443-01
 ;;9002226.02101,"868,00527-1443-05 ",.01)
 ;;00527-1443-05
 ;;9002226.02101,"868,00527-1443-05 ",.02)
 ;;00527-1443-05
 ;;9002226.02101,"868,00527-1535-01 ",.01)
 ;;00527-1535-01
 ;;9002226.02101,"868,00527-1535-01 ",.02)
 ;;00527-1535-01
 ;;9002226.02101,"868,00527-1537-30 ",.01)
 ;;00527-1537-30
 ;;9002226.02101,"868,00527-1537-30 ",.02)
 ;;00527-1537-30
 ;;9002226.02101,"868,00527-1931-06 ",.01)
 ;;00527-1931-06
 ;;9002226.02101,"868,00527-1931-06 ",.02)
 ;;00527-1931-06
 ;;9002226.02101,"868,00527-1932-06 ",.01)
 ;;00527-1932-06
 ;;9002226.02101,"868,00527-1932-06 ",.02)
 ;;00527-1932-06
 ;;9002226.02101,"868,00555-0178-01 ",.01)
 ;;00555-0178-01
 ;;9002226.02101,"868,00555-0178-01 ",.02)
 ;;00555-0178-01
 ;;9002226.02101,"868,00555-0178-02 ",.01)
 ;;00555-0178-02
 ;;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-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,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-5780-21 ",.01)
 ;;00603-5780-21
 ;;9002226.02101,"868,00603-5780-21 ",.02)
 ;;00603-5780-21
 ;;9002226.02101,"868,00603-5780-28 ",.01)
 ;;00603-5780-28
 ;;9002226.02101,"868,00603-5780-28 ",.02)
 ;;00603-5780-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,00686-3145-09 ",.01)
 ;;00686-3145-09
 ;;9002226.02101,"868,00686-3145-09 ",.02)
 ;;00686-3145-09
 ;;9002226.02101,"868,00703-0315-01 ",.01)
 ;;00703-0315-01
 ;;9002226.02101,"868,00703-0315-01 ",.02)
 ;;00703-0315-01
 ;;9002226.02101,"868,00703-0315-03 ",.01)
 ;;00703-0315-03
 ;;9002226.02101,"868,00703-0315-03 ",.02)
 ;;00703-0315-03
 ;;9002226.02101,"868,00703-0325-03 ",.01)
 ;;00703-0325-03
 ;;9002226.02101,"868,00703-0325-03 ",.02)
 ;;00703-0325-03
 ;;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-0956-01 ",.01)
 ;;00703-0956-01
 ;;9002226.02101,"868,00703-0956-01 ",.02)
 ;;00703-0956-01
 ;;9002226.02101,"868,00703-0956-03 ",.01)
 ;;00703-0956-03
 ;;9002226.02101,"868,00703-0956-03 ",.02)
 ;;00703-0956-03
 ;;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-0960-31 ",.01)
 ;;00703-0960-31
 ;;9002226.02101,"868,00703-0960-31 ",.02)
 ;;00703-0960-31
 ;;9002226.02101,"868,00703-0960-36 ",.01)
 ;;00703-0960-36
 ;;9002226.02101,"868,00703-0960-36 ",.02)
 ;;00703-0960-36
 ;;9002226.02101,"868,00703-0969-31 ",.01)
 ;;00703-0969-31
 ;;9002226.02101,"868,00703-0969-31 ",.02)
 ;;00703-0969-31
 ;;9002226.02101,"868,00703-0969-36 ",.01)
 ;;00703-0969-36
 ;;9002226.02101,"868,00703-0969-36 ",.02)
 ;;00703-0969-36
 ;;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