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

BGP31O3.m

Go to the documentation of this file.
BGP31O3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"726,00143-1241-51 ",.02)
 ;;00143-1241-51
 ;;9002226.02101,"726,00172-2931-60 ",.01)
 ;;00172-2931-60
 ;;9002226.02101,"726,00172-2931-60 ",.02)
 ;;00172-2931-60
 ;;9002226.02101,"726,00172-2931-80 ",.01)
 ;;00172-2931-80
 ;;9002226.02101,"726,00172-2931-80 ",.02)
 ;;00172-2931-80
 ;;9002226.02101,"726,00172-2932-60 ",.01)
 ;;00172-2932-60
 ;;9002226.02101,"726,00172-2932-60 ",.02)
 ;;00172-2932-60
 ;;9002226.02101,"726,00172-2932-70 ",.01)
 ;;00172-2932-70
 ;;9002226.02101,"726,00172-2932-70 ",.02)
 ;;00172-2932-70
 ;;9002226.02101,"726,00172-4226-60 ",.01)
 ;;00172-4226-60
 ;;9002226.02101,"726,00172-4226-60 ",.02)
 ;;00172-4226-60
 ;;9002226.02101,"726,00172-4227-60 ",.01)
 ;;00172-4227-60
 ;;9002226.02101,"726,00172-4227-60 ",.02)
 ;;00172-4227-60
 ;;9002226.02101,"726,00173-0242-55 ",.01)
 ;;00173-0242-55
 ;;9002226.02101,"726,00173-0242-55 ",.02)
 ;;00173-0242-55
 ;;9002226.02101,"726,00173-0242-56 ",.01)
 ;;00173-0242-56
 ;;9002226.02101,"726,00173-0242-56 ",.02)
 ;;00173-0242-56
 ;;9002226.02101,"726,00173-0242-75 ",.01)
 ;;00173-0242-75
 ;;9002226.02101,"726,00173-0242-75 ",.02)
 ;;00173-0242-75
 ;;9002226.02101,"726,00173-0249-55 ",.01)
 ;;00173-0249-55
 ;;9002226.02101,"726,00173-0249-55 ",.02)
 ;;00173-0249-55
 ;;9002226.02101,"726,00173-0249-56 ",.01)
 ;;00173-0249-56
 ;;9002226.02101,"726,00173-0249-56 ",.02)
 ;;00173-0249-56
 ;;9002226.02101,"726,00173-0249-75 ",.01)
 ;;00173-0249-75
 ;;9002226.02101,"726,00173-0249-75 ",.02)
 ;;00173-0249-75
 ;;9002226.02101,"726,00173-0249-80 ",.01)
 ;;00173-0249-80
 ;;9002226.02101,"726,00173-0249-80 ",.02)
 ;;00173-0249-80
 ;;9002226.02101,"726,00173-0260-10 ",.01)
 ;;00173-0260-10
 ;;9002226.02101,"726,00173-0260-10 ",.02)
 ;;00173-0260-10
 ;;9002226.02101,"726,00173-0260-35 ",.01)
 ;;00173-0260-35
 ;;9002226.02101,"726,00173-0260-35 ",.02)
 ;;00173-0260-35
 ;;9002226.02101,"726,00173-0262-10 ",.01)
 ;;00173-0262-10
 ;;9002226.02101,"726,00173-0262-10 ",.02)
 ;;00173-0262-10
 ;;9002226.02101,"726,00173-0264-27 ",.01)
 ;;00173-0264-27
 ;;9002226.02101,"726,00173-0264-27 ",.02)
 ;;00173-0264-27
 ;;9002226.02101,"726,00173-0270-55 ",.01)
 ;;00173-0270-55
 ;;9002226.02101,"726,00173-0270-55 ",.02)
 ;;00173-0270-55
 ;;9002226.02101,"726,00173-0272-55 ",.01)
 ;;00173-0272-55
 ;;9002226.02101,"726,00173-0272-55 ",.02)
 ;;00173-0272-55
 ;;9002226.02101,"726,00173-0274-55 ",.01)
 ;;00173-0274-55
 ;;9002226.02101,"726,00173-0274-55 ",.02)
 ;;00173-0274-55
 ;;9002226.02101,"726,00185-0032-01 ",.01)
 ;;00185-0032-01
 ;;9002226.02101,"726,00185-0032-01 ",.02)
 ;;00185-0032-01
 ;;9002226.02101,"726,00185-0032-10 ",.01)
 ;;00185-0032-10
 ;;9002226.02101,"726,00185-0032-10 ",.02)
 ;;00185-0032-10
 ;;9002226.02101,"726,00185-0134-01 ",.01)
 ;;00185-0134-01
 ;;9002226.02101,"726,00185-0134-01 ",.02)
 ;;00185-0134-01
 ;;9002226.02101,"726,00185-0134-10 ",.01)
 ;;00185-0134-10
 ;;9002226.02101,"726,00185-0134-10 ",.02)
 ;;00185-0134-10
 ;;9002226.02101,"726,00228-2497-10 ",.01)
 ;;00228-2497-10
 ;;9002226.02101,"726,00228-2497-10 ",.02)
 ;;00228-2497-10
 ;;9002226.02101,"726,00228-2497-30 ",.01)
 ;;00228-2497-30
 ;;9002226.02101,"726,00228-2497-30 ",.02)
 ;;00228-2497-30
 ;;9002226.02101,"726,00228-2530-10 ",.01)
 ;;00228-2530-10
 ;;9002226.02101,"726,00228-2530-10 ",.02)
 ;;00228-2530-10
 ;;9002226.02101,"726,00228-2530-30 ",.01)
 ;;00228-2530-30
 ;;9002226.02101,"726,00228-2530-30 ",.02)
 ;;00228-2530-30
 ;;9002226.02101,"726,00247-0274-01 ",.01)
 ;;00247-0274-01
 ;;9002226.02101,"726,00247-0274-01 ",.02)
 ;;00247-0274-01
 ;;9002226.02101,"726,00247-0510-00 ",.01)
 ;;00247-0510-00
 ;;9002226.02101,"726,00247-0510-00 ",.02)
 ;;00247-0510-00
 ;;9002226.02101,"726,00247-0510-02 ",.01)
 ;;00247-0510-02
 ;;9002226.02101,"726,00247-0510-02 ",.02)
 ;;00247-0510-02
 ;;9002226.02101,"726,00247-0510-05 ",.01)
 ;;00247-0510-05
 ;;9002226.02101,"726,00247-0510-05 ",.02)
 ;;00247-0510-05
 ;;9002226.02101,"726,00247-0510-06 ",.01)
 ;;00247-0510-06
 ;;9002226.02101,"726,00247-0510-06 ",.02)
 ;;00247-0510-06
 ;;9002226.02101,"726,00247-0510-10 ",.01)
 ;;00247-0510-10
 ;;9002226.02101,"726,00247-0510-10 ",.02)
 ;;00247-0510-10
 ;;9002226.02101,"726,00247-0510-30 ",.01)
 ;;00247-0510-30
 ;;9002226.02101,"726,00247-0510-30 ",.02)
 ;;00247-0510-30
 ;;9002226.02101,"726,00247-0510-50 ",.01)
 ;;00247-0510-50
 ;;9002226.02101,"726,00247-0510-50 ",.02)
 ;;00247-0510-50
 ;;9002226.02101,"726,00247-0510-60 ",.01)
 ;;00247-0510-60
 ;;9002226.02101,"726,00247-0510-60 ",.02)
 ;;00247-0510-60
 ;;9002226.02101,"726,00247-0510-90 ",.01)
 ;;00247-0510-90
 ;;9002226.02101,"726,00247-0510-90 ",.02)
 ;;00247-0510-90
 ;;9002226.02101,"726,00247-0786-02 ",.01)
 ;;00247-0786-02
 ;;9002226.02101,"726,00247-0786-02 ",.02)
 ;;00247-0786-02
 ;;9002226.02101,"726,00247-0786-03 ",.01)
 ;;00247-0786-03
 ;;9002226.02101,"726,00247-0786-03 ",.02)
 ;;00247-0786-03
 ;;9002226.02101,"726,00247-0786-30 ",.01)
 ;;00247-0786-30
 ;;9002226.02101,"726,00247-0786-30 ",.02)
 ;;00247-0786-30
 ;;9002226.02101,"726,00247-0786-50 ",.01)
 ;;00247-0786-50
 ;;9002226.02101,"726,00247-0786-50 ",.02)
 ;;00247-0786-50
 ;;9002226.02101,"726,00378-0421-01 ",.01)
 ;;00378-0421-01
 ;;9002226.02101,"726,00378-0421-01 ",.02)
 ;;00378-0421-01
 ;;9002226.02101,"726,00378-0421-05 ",.01)
 ;;00378-0421-05
 ;;9002226.02101,"726,00378-0421-05 ",.02)
 ;;00378-0421-05
 ;;9002226.02101,"726,00378-0507-01 ",.01)
 ;;00378-0507-01
 ;;9002226.02101,"726,00378-0507-01 ",.02)
 ;;00378-0507-01
 ;;9002226.02101,"726,00378-0611-01 ",.01)
 ;;00378-0611-01
 ;;9002226.02101,"726,00378-0611-01 ",.02)
 ;;00378-0611-01
 ;;9002226.02101,"726,00378-0611-10 ",.01)
 ;;00378-0611-10
 ;;9002226.02101,"726,00378-0611-10 ",.02)
 ;;00378-0611-10
 ;;9002226.02101,"726,00378-0711-01 ",.01)
 ;;00378-0711-01
 ;;9002226.02101,"726,00378-0711-01 ",.02)
 ;;00378-0711-01
 ;;9002226.02101,"726,00378-0711-10 ",.01)
 ;;00378-0711-10
 ;;9002226.02101,"726,00378-0711-10 ",.02)
 ;;00378-0711-10
 ;;9002226.02101,"726,00378-1160-01 ",.01)
 ;;00378-1160-01
 ;;9002226.02101,"726,00378-1160-01 ",.02)
 ;;00378-1160-01
 ;;9002226.02101,"726,00378-1190-01 ",.01)
 ;;00378-1190-01
 ;;9002226.02101,"726,00378-1190-01 ",.02)
 ;;00378-1190-01
 ;;9002226.02101,"726,00409-2169-31 ",.01)
 ;;00409-2169-31
 ;;9002226.02101,"726,00409-2169-31 ",.02)
 ;;00409-2169-31
 ;;9002226.02101,"726,00440-7390-90 ",.01)
 ;;00440-7390-90
 ;;9002226.02101,"726,00440-7390-90 ",.02)
 ;;00440-7390-90
 ;;9002226.02101,"726,00440-7391-30 ",.01)
 ;;00440-7391-30
 ;;9002226.02101,"726,00440-7391-30 ",.02)
 ;;00440-7391-30
 ;;9002226.02101,"726,00440-7391-90 ",.01)
 ;;00440-7391-90
 ;;9002226.02101,"726,00440-7391-90 ",.02)
 ;;00440-7391-90
 ;;9002226.02101,"726,00440-7685-10 ",.01)
 ;;00440-7685-10
 ;;9002226.02101,"726,00440-7685-10 ",.02)
 ;;00440-7685-10
 ;;9002226.02101,"726,00440-7685-30 ",.01)
 ;;00440-7685-30
 ;;9002226.02101,"726,00440-7685-30 ",.02)
 ;;00440-7685-30
 ;;9002226.02101,"726,00440-7685-90 ",.01)
 ;;00440-7685-90
 ;;9002226.02101,"726,00440-7685-90 ",.02)
 ;;00440-7685-90
 ;;9002226.02101,"726,00440-7686-30 ",.01)
 ;;00440-7686-30
 ;;9002226.02101,"726,00440-7686-30 ",.02)
 ;;00440-7686-30
 ;;9002226.02101,"726,00440-7686-90 ",.01)
 ;;00440-7686-90
 ;;9002226.02101,"726,00440-7686-90 ",.02)
 ;;00440-7686-90
 ;;9002226.02101,"726,00440-7755-90 ",.01)
 ;;00440-7755-90
 ;;9002226.02101,"726,00440-7755-90 ",.02)
 ;;00440-7755-90
 ;;9002226.02101,"726,00440-7755-94 ",.01)
 ;;00440-7755-94
 ;;9002226.02101,"726,00440-7755-94 ",.02)
 ;;00440-7755-94
 ;;9002226.02101,"726,00440-7756-90 ",.01)
 ;;00440-7756-90
 ;;9002226.02101,"726,00440-7756-90 ",.02)
 ;;00440-7756-90
 ;;9002226.02101,"726,00440-7756-94 ",.01)
 ;;00440-7756-94
 ;;9002226.02101,"726,00440-7756-94 ",.02)
 ;;00440-7756-94
 ;;9002226.02101,"726,00440-7860-04 ",.01)
 ;;00440-7860-04
 ;;9002226.02101,"726,00440-7860-04 ",.02)
 ;;00440-7860-04
 ;;9002226.02101,"726,00440-7860-08 ",.01)
 ;;00440-7860-08
 ;;9002226.02101,"726,00440-7860-08 ",.02)
 ;;00440-7860-08
 ;;9002226.02101,"726,00440-7860-90 ",.01)
 ;;00440-7860-90
 ;;9002226.02101,"726,00440-7860-90 ",.02)
 ;;00440-7860-90
 ;;9002226.02101,"726,00440-8305-30 ",.01)
 ;;00440-8305-30
 ;;9002226.02101,"726,00440-8305-30 ",.02)
 ;;00440-8305-30
 ;;9002226.02101,"726,00440-8305-90 ",.01)
 ;;00440-8305-90
 ;;9002226.02101,"726,00440-8305-90 ",.02)
 ;;00440-8305-90
 ;;9002226.02101,"726,00440-8306-30 ",.01)
 ;;00440-8306-30
 ;;9002226.02101,"726,00440-8306-30 ",.02)
 ;;00440-8306-30
 ;;9002226.02101,"726,00440-8306-90 ",.01)
 ;;00440-8306-90
 ;;9002226.02101,"726,00440-8306-90 ",.02)
 ;;00440-8306-90
 ;;9002226.02101,"726,00517-8905-01 ",.01)
 ;;00517-8905-01
 ;;9002226.02101,"726,00517-8905-01 ",.02)
 ;;00517-8905-01
 ;;9002226.02101,"726,00517-8905-10 ",.01)
 ;;00517-8905-10
 ;;9002226.02101,"726,00517-8905-10 ",.02)
 ;;00517-8905-10
 ;;9002226.02101,"726,00527-1324-01 ",.01)
 ;;00527-1324-01
 ;;9002226.02101,"726,00527-1324-01 ",.02)
 ;;00527-1324-01
 ;;9002226.02101,"726,00527-1324-10 ",.01)
 ;;00527-1324-10
 ;;9002226.02101,"726,00527-1324-10 ",.02)
 ;;00527-1324-10
 ;;9002226.02101,"726,00527-1325-01 ",.01)
 ;;00527-1325-01
 ;;9002226.02101,"726,00527-1325-01 ",.02)
 ;;00527-1325-01
 ;;9002226.02101,"726,00527-1325-10 ",.01)
 ;;00527-1325-10
 ;;9002226.02101,"726,00527-1325-10 ",.02)
 ;;00527-1325-10
 ;;9002226.02101,"726,00591-0444-01 ",.01)
 ;;00591-0444-01
 ;;9002226.02101,"726,00591-0444-01 ",.02)
 ;;00591-0444-01
 ;;9002226.02101,"726,00591-0453-01 ",.01)
 ;;00591-0453-01
 ;;9002226.02101,"726,00591-0453-01 ",.02)
 ;;00591-0453-01
 ;;9002226.02101,"726,00591-5560-01 ",.01)
 ;;00591-5560-01
 ;;9002226.02101,"726,00591-5560-01 ",.02)
 ;;00591-5560-01
 ;;9002226.02101,"726,00591-5561-01 ",.01)
 ;;00591-5561-01
 ;;9002226.02101,"726,00591-5561-01 ",.02)
 ;;00591-5561-01
 ;;9002226.02101,"726,00603-3774-21 ",.01)
 ;;00603-3774-21
 ;;9002226.02101,"726,00603-3774-21 ",.02)
 ;;00603-3774-21
 ;;9002226.02101,"726,00603-3775-21 ",.01)
 ;;00603-3775-21
 ;;9002226.02101,"726,00603-3775-21 ",.02)
 ;;00603-3775-21
 ;;9002226.02101,"726,00615-0518-53 ",.01)
 ;;00615-0518-53
 ;;9002226.02101,"726,00615-0518-53 ",.02)
 ;;00615-0518-53
 ;;9002226.02101,"726,00615-0518-63 ",.01)
 ;;00615-0518-63
 ;;9002226.02101,"726,00615-0518-63 ",.02)
 ;;00615-0518-63
 ;;9002226.02101,"726,00615-0547-43 ",.01)
 ;;00615-0547-43
 ;;9002226.02101,"726,00615-0547-43 ",.02)
 ;;00615-0547-43
 ;;9002226.02101,"726,00615-0547-53 ",.01)
 ;;00615-0547-53
 ;;9002226.02101,"726,00615-0547-53 ",.02)
 ;;00615-0547-53
 ;;9002226.02101,"726,00615-0547-63 ",.01)
 ;;00615-0547-63
 ;;9002226.02101,"726,00615-0547-63 ",.02)
 ;;00615-0547-63
 ;;9002226.02101,"726,00615-4566-53 ",.01)
 ;;00615-4566-53
 ;;9002226.02101,"726,00615-4566-53 ",.02)
 ;;00615-4566-53
 ;;9002226.02101,"726,00615-4566-63 ",.01)
 ;;00615-4566-63
 ;;9002226.02101,"726,00615-4566-63 ",.02)
 ;;00615-4566-63
 ;;9002226.02101,"726,00615-4567-53 ",.01)
 ;;00615-4567-53
 ;;9002226.02101,"726,00615-4567-53 ",.02)
 ;;00615-4567-53
 ;;9002226.02101,"726,00615-4567-63 ",.01)
 ;;00615-4567-63
 ;;9002226.02101,"726,00615-4567-63 ",.02)
 ;;00615-4567-63
 ;;9002226.02101,"726,00641-1410-31 ",.01)
 ;;00641-1410-31
 ;;9002226.02101,"726,00641-1410-31 ",.02)
 ;;00641-1410-31
 ;;9002226.02101,"726,00641-1410-35 ",.01)
 ;;00641-1410-35
 ;;9002226.02101,"726,00641-1410-35 ",.02)
 ;;00641-1410-35
 ;;9002226.02101,"726,00677-0415-01 ",.01)
 ;;00677-0415-01
 ;;9002226.02101,"726,00677-0415-01 ",.02)
 ;;00677-0415-01
 ;;9002226.02101,"726,00677-0415-10 ",.01)
 ;;00677-0415-10
 ;;9002226.02101,"726,00677-0415-10 ",.02)
 ;;00677-0415-10
 ;;9002226.02101,"726,00781-3059-95 ",.01)
 ;;00781-3059-95
 ;;9002226.02101,"726,00781-3059-95 ",.02)
 ;;00781-3059-95
 ;;9002226.02101,"726,00904-0408-61 ",.01)
 ;;00904-0408-61
 ;;9002226.02101,"726,00904-0408-61 ",.02)
 ;;00904-0408-61
 ;;9002226.02101,"726,00904-0409-61 ",.01)
 ;;00904-0409-61
 ;;9002226.02101,"726,00904-0409-61 ",.02)
 ;;00904-0409-61
 ;;9002226.02101,"726,00904-2400-61 ",.01)
 ;;00904-2400-61
 ;;9002226.02101,"726,00904-2400-61 ",.02)
 ;;00904-2400-61
 ;;9002226.02101,"726,00904-5133-60 ",.01)
 ;;00904-5133-60
 ;;9002226.02101,"726,00904-5133-60 ",.02)
 ;;00904-5133-60
 ;;9002226.02101,"726,00904-5134-60 ",.01)
 ;;00904-5134-60
 ;;9002226.02101,"726,00904-5134-60 ",.02)
 ;;00904-5134-60
 ;;9002226.02101,"726,00904-5579-60 ",.01)
 ;;00904-5579-60
 ;;9002226.02101,"726,00904-5579-60 ",.02)
 ;;00904-5579-60
 ;;9002226.02101,"726,00904-5580-60 ",.01)
 ;;00904-5580-60
 ;;9002226.02101,"726,00904-5580-60 ",.02)
 ;;00904-5580-60
 ;;9002226.02101,"726,00904-5921-61 ",.01)
 ;;00904-5921-61
 ;;9002226.02101,"726,00904-5921-61 ",.02)
 ;;00904-5921-61
 ;;9002226.02101,"726,00904-5922-61 ",.01)
 ;;00904-5922-61
 ;;9002226.02101,"726,00904-5922-61 ",.02)
 ;;00904-5922-61
 ;;9002226.02101,"726,00904-6183-60 ",.01)
 ;;00904-6183-60
 ;;9002226.02101,"726,00904-6183-60 ",.02)
 ;;00904-6183-60
 ;;9002226.02101,"726,00904-6184-60 ",.01)
 ;;00904-6184-60
 ;;9002226.02101,"726,00904-6184-60 ",.02)
 ;;00904-6184-60
 ;;9002226.02101,"726,10135-0534-01 ",.01)
 ;;10135-0534-01
 ;;9002226.02101,"726,10135-0534-01 ",.02)
 ;;10135-0534-01
 ;;9002226.02101,"726,10135-0534-10 ",.01)
 ;;10135-0534-10
 ;;9002226.02101,"726,10135-0534-10 ",.02)
 ;;10135-0534-10
 ;;9002226.02101,"726,10135-0535-01 ",.01)
 ;;10135-0535-01