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

BGP62Y33.m

Go to the documentation of this file.
BGP62Y33 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,00440-2406-20 ",.02)
 ;;00440-2406-20
 ;;9002226.02101,"868,00440-7101-30 ",.01)
 ;;00440-7101-30
 ;;9002226.02101,"868,00440-7101-30 ",.02)
 ;;00440-7101-30
 ;;9002226.02101,"868,00440-7105-30 ",.01)
 ;;00440-7105-30
 ;;9002226.02101,"868,00440-7105-30 ",.02)
 ;;00440-7105-30
 ;;9002226.02101,"868,00440-7108-20 ",.01)
 ;;00440-7108-20
 ;;9002226.02101,"868,00440-7108-20 ",.02)
 ;;00440-7108-20
 ;;9002226.02101,"868,00440-7175-06 ",.01)
 ;;00440-7175-06
 ;;9002226.02101,"868,00440-7175-06 ",.02)
 ;;00440-7175-06
 ;;9002226.02101,"868,00440-7240-28 ",.01)
 ;;00440-7240-28
 ;;9002226.02101,"868,00440-7240-28 ",.02)
 ;;00440-7240-28
 ;;9002226.02101,"868,00440-7241-21 ",.01)
 ;;00440-7241-21
 ;;9002226.02101,"868,00440-7241-21 ",.02)
 ;;00440-7241-21
 ;;9002226.02101,"868,00440-7290-06 ",.01)
 ;;00440-7290-06
 ;;9002226.02101,"868,00440-7290-06 ",.02)
 ;;00440-7290-06
 ;;9002226.02101,"868,00440-7291-20 ",.01)
 ;;00440-7291-20
 ;;9002226.02101,"868,00440-7291-20 ",.02)
 ;;00440-7291-20
 ;;9002226.02101,"868,00440-7300-30 ",.01)
 ;;00440-7300-30
 ;;9002226.02101,"868,00440-7300-30 ",.02)
 ;;00440-7300-30
 ;;9002226.02101,"868,00440-7381-40 ",.01)
 ;;00440-7381-40
 ;;9002226.02101,"868,00440-7381-40 ",.02)
 ;;00440-7381-40
 ;;9002226.02101,"868,00440-7483-92 ",.01)
 ;;00440-7483-92
 ;;9002226.02101,"868,00440-7483-92 ",.02)
 ;;00440-7483-92
 ;;9002226.02101,"868,00440-7512-40 ",.01)
 ;;00440-7512-40
 ;;9002226.02101,"868,00440-7512-40 ",.02)
 ;;00440-7512-40
 ;;9002226.02101,"868,00440-8050-40 ",.01)
 ;;00440-8050-40
 ;;9002226.02101,"868,00440-8050-40 ",.02)
 ;;00440-8050-40
 ;;9002226.02101,"868,00440-8055-40 ",.01)
 ;;00440-8055-40
 ;;9002226.02101,"868,00440-8055-40 ",.02)
 ;;00440-8055-40
 ;;9002226.02101,"868,00440-8056-20 ",.01)
 ;;00440-8056-20
 ;;9002226.02101,"868,00440-8056-20 ",.02)
 ;;00440-8056-20
 ;;9002226.02101,"868,00440-8358-20 ",.01)
 ;;00440-8358-20
 ;;9002226.02101,"868,00440-8358-20 ",.02)
 ;;00440-8358-20
 ;;9002226.02101,"868,00440-8406-03 ",.01)
 ;;00440-8406-03
 ;;9002226.02101,"868,00440-8406-03 ",.02)
 ;;00440-8406-03
 ;;9002226.02101,"868,00440-8505-40 ",.01)
 ;;00440-8505-40
 ;;9002226.02101,"868,00440-8505-40 ",.02)
 ;;00440-8505-40
 ;;9002226.02101,"868,00472-0850-10 ",.01)
 ;;00472-0850-10
 ;;9002226.02101,"868,00472-0850-10 ",.02)
 ;;00472-0850-10
 ;;9002226.02101,"868,00472-1285-16 ",.01)
 ;;00472-1285-16
 ;;9002226.02101,"868,00472-1285-16 ",.02)
 ;;00472-1285-16
 ;;9002226.02101,"868,00472-1285-33 ",.01)
 ;;00472-1285-33
 ;;9002226.02101,"868,00472-1285-33 ",.02)
 ;;00472-1285-33
 ;;9002226.02101,"868,00480-7146-99 ",.01)
 ;;00480-7146-99
 ;;9002226.02101,"868,00480-7146-99 ",.02)
 ;;00480-7146-99
 ;;9002226.02101,"868,00480-7169-99 ",.01)
 ;;00480-7169-99
 ;;9002226.02101,"868,00480-7169-99 ",.02)
 ;;00480-7169-99
 ;;9002226.02101,"868,00490-0085-00 ",.01)
 ;;00490-0085-00
 ;;9002226.02101,"868,00490-0085-00 ",.02)
 ;;00490-0085-00
 ;;9002226.02101,"868,00490-0085-30 ",.01)
 ;;00490-0085-30
 ;;9002226.02101,"868,00490-0085-30 ",.02)
 ;;00490-0085-30
 ;;9002226.02101,"868,00490-0085-60 ",.01)
 ;;00490-0085-60
 ;;9002226.02101,"868,00490-0085-60 ",.02)
 ;;00490-0085-60
 ;;9002226.02101,"868,00490-0085-90 ",.01)
 ;;00490-0085-90
 ;;9002226.02101,"868,00490-0085-90 ",.02)
 ;;00490-0085-90
 ;;9002226.02101,"868,00517-8711-10 ",.01)
 ;;00517-8711-10
 ;;9002226.02101,"868,00517-8711-10 ",.02)
 ;;00517-8711-10
 ;;9002226.02101,"868,00517-8722-10 ",.01)
 ;;00517-8722-10
 ;;9002226.02101,"868,00517-8722-10 ",.02)
 ;;00517-8722-10
 ;;9002226.02101,"868,00517-8725-10 ",.01)
 ;;00517-8725-10
 ;;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,00555-0011-02 ",.01)
 ;;00555-0011-02
 ;;9002226.02101,"868,00555-0011-02 ",.02)
 ;;00555-0011-02
 ;;9002226.02101,"868,00555-0011-05 ",.01)
 ;;00555-0011-05
 ;;9002226.02101,"868,00555-0011-05 ",.02)
 ;;00555-0011-05
 ;;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-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,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