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

BGP47D31.m

Go to the documentation of this file.
BGP47D31 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,00440-1101-30 ",.02)
 ;;00440-1101-30
 ;;9002226.02101,"734,00440-2406-20 ",.01)
 ;;00440-2406-20
 ;;9002226.02101,"734,00440-2406-20 ",.02)
 ;;00440-2406-20
 ;;9002226.02101,"734,00440-7101-30 ",.01)
 ;;00440-7101-30
 ;;9002226.02101,"734,00440-7101-30 ",.02)
 ;;00440-7101-30
 ;;9002226.02101,"734,00440-7105-30 ",.01)
 ;;00440-7105-30
 ;;9002226.02101,"734,00440-7105-30 ",.02)
 ;;00440-7105-30
 ;;9002226.02101,"734,00440-7108-20 ",.01)
 ;;00440-7108-20
 ;;9002226.02101,"734,00440-7108-20 ",.02)
 ;;00440-7108-20
 ;;9002226.02101,"734,00440-7175-06 ",.01)
 ;;00440-7175-06
 ;;9002226.02101,"734,00440-7175-06 ",.02)
 ;;00440-7175-06
 ;;9002226.02101,"734,00440-7240-28 ",.01)
 ;;00440-7240-28
 ;;9002226.02101,"734,00440-7240-28 ",.02)
 ;;00440-7240-28
 ;;9002226.02101,"734,00440-7241-21 ",.01)
 ;;00440-7241-21
 ;;9002226.02101,"734,00440-7241-21 ",.02)
 ;;00440-7241-21
 ;;9002226.02101,"734,00440-7290-06 ",.01)
 ;;00440-7290-06
 ;;9002226.02101,"734,00440-7290-06 ",.02)
 ;;00440-7290-06
 ;;9002226.02101,"734,00440-7291-20 ",.01)
 ;;00440-7291-20
 ;;9002226.02101,"734,00440-7291-20 ",.02)
 ;;00440-7291-20
 ;;9002226.02101,"734,00440-7300-30 ",.01)
 ;;00440-7300-30
 ;;9002226.02101,"734,00440-7300-30 ",.02)
 ;;00440-7300-30
 ;;9002226.02101,"734,00440-7381-40 ",.01)
 ;;00440-7381-40
 ;;9002226.02101,"734,00440-7381-40 ",.02)
 ;;00440-7381-40
 ;;9002226.02101,"734,00440-7481-14 ",.01)
 ;;00440-7481-14
 ;;9002226.02101,"734,00440-7481-14 ",.02)
 ;;00440-7481-14
 ;;9002226.02101,"734,00440-7483-92 ",.01)
 ;;00440-7483-92
 ;;9002226.02101,"734,00440-7483-92 ",.02)
 ;;00440-7483-92
 ;;9002226.02101,"734,00440-7512-40 ",.01)
 ;;00440-7512-40
 ;;9002226.02101,"734,00440-7512-40 ",.02)
 ;;00440-7512-40
 ;;9002226.02101,"734,00440-8050-40 ",.01)
 ;;00440-8050-40
 ;;9002226.02101,"734,00440-8050-40 ",.02)
 ;;00440-8050-40
 ;;9002226.02101,"734,00440-8055-40 ",.01)
 ;;00440-8055-40
 ;;9002226.02101,"734,00440-8055-40 ",.02)
 ;;00440-8055-40
 ;;9002226.02101,"734,00440-8056-20 ",.01)
 ;;00440-8056-20
 ;;9002226.02101,"734,00440-8056-20 ",.02)
 ;;00440-8056-20
 ;;9002226.02101,"734,00440-8358-20 ",.01)
 ;;00440-8358-20
 ;;9002226.02101,"734,00440-8358-20 ",.02)
 ;;00440-8358-20
 ;;9002226.02101,"734,00440-8406-03 ",.01)
 ;;00440-8406-03
 ;;9002226.02101,"734,00440-8406-03 ",.02)
 ;;00440-8406-03
 ;;9002226.02101,"734,00440-8505-40 ",.01)
 ;;00440-8505-40
 ;;9002226.02101,"734,00440-8505-40 ",.02)
 ;;00440-8505-40
 ;;9002226.02101,"734,00472-0850-10 ",.01)
 ;;00472-0850-10
 ;;9002226.02101,"734,00472-0850-10 ",.02)
 ;;00472-0850-10
 ;;9002226.02101,"734,00472-1285-16 ",.01)
 ;;00472-1285-16
 ;;9002226.02101,"734,00472-1285-16 ",.02)
 ;;00472-1285-16
 ;;9002226.02101,"734,00472-1285-33 ",.01)
 ;;00472-1285-33
 ;;9002226.02101,"734,00472-1285-33 ",.02)
 ;;00472-1285-33
 ;;9002226.02101,"734,00490-0085-00 ",.01)
 ;;00490-0085-00
 ;;9002226.02101,"734,00490-0085-00 ",.02)
 ;;00490-0085-00
 ;;9002226.02101,"734,00490-0085-30 ",.01)
 ;;00490-0085-30
 ;;9002226.02101,"734,00490-0085-30 ",.02)
 ;;00490-0085-30
 ;;9002226.02101,"734,00490-0085-60 ",.01)
 ;;00490-0085-60
 ;;9002226.02101,"734,00490-0085-60 ",.02)
 ;;00490-0085-60
 ;;9002226.02101,"734,00490-0085-90 ",.01)
 ;;00490-0085-90
 ;;9002226.02101,"734,00490-0085-90 ",.02)
 ;;00490-0085-90
 ;;9002226.02101,"734,00517-8711-10 ",.01)
 ;;00517-8711-10
 ;;9002226.02101,"734,00517-8711-10 ",.02)
 ;;00517-8711-10
 ;;9002226.02101,"734,00517-8722-10 ",.01)
 ;;00517-8722-10
 ;;9002226.02101,"734,00517-8722-10 ",.02)
 ;;00517-8722-10
 ;;9002226.02101,"734,00517-8725-10 ",.01)
 ;;00517-8725-10
 ;;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-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