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

BGP51L5.m

Go to the documentation of this file.
BGP51L5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;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,"806,00228-2751-11 ",.02)
 ;;00228-2751-11
 ;;9002226.02101,"806,00228-2751-50 ",.01)
 ;;00228-2751-50
 ;;9002226.02101,"806,00228-2751-50 ",.02)
 ;;00228-2751-50
 ;;9002226.02101,"806,00228-2752-11 ",.01)
 ;;00228-2752-11
 ;;9002226.02101,"806,00228-2752-11 ",.02)
 ;;00228-2752-11
 ;;9002226.02101,"806,00228-2752-50 ",.01)
 ;;00228-2752-50
 ;;9002226.02101,"806,00228-2752-50 ",.02)
 ;;00228-2752-50
 ;;9002226.02101,"806,00228-2753-11 ",.01)
 ;;00228-2753-11
 ;;9002226.02101,"806,00228-2753-11 ",.02)
 ;;00228-2753-11
 ;;9002226.02101,"806,00228-2753-50 ",.01)
 ;;00228-2753-50
 ;;9002226.02101,"806,00228-2753-50 ",.02)
 ;;00228-2753-50
 ;;9002226.02101,"806,00245-0880-30 ",.01)
 ;;00245-0880-30
 ;;9002226.02101,"806,00245-0880-30 ",.02)
 ;;00245-0880-30
 ;;9002226.02101,"806,00245-0881-30 ",.01)
 ;;00245-0881-30
 ;;9002226.02101,"806,00245-0881-30 ",.02)
 ;;00245-0881-30
 ;;9002226.02101,"806,00245-0882-30 ",.01)
 ;;00245-0882-30
 ;;9002226.02101,"806,00245-0882-30 ",.02)
 ;;00245-0882-30
 ;;9002226.02101,"806,00378-0197-01 ",.01)
 ;;00378-0197-01
 ;;9002226.02101,"806,00378-0197-01 ",.02)
 ;;00378-0197-01
 ;;9002226.02101,"806,00378-0197-05 ",.01)
 ;;00378-0197-05
 ;;9002226.02101,"806,00378-0197-05 ",.02)
 ;;00378-0197-05
 ;;9002226.02101,"806,00378-0210-01 ",.01)
 ;;00378-0210-01
 ;;9002226.02101,"806,00378-0210-01 ",.02)
 ;;00378-0210-01
 ;;9002226.02101,"806,00378-0210-10 ",.01)
 ;;00378-0210-10
 ;;9002226.02101,"806,00378-0210-10 ",.02)
 ;;00378-0210-10
 ;;9002226.02101,"806,00378-1113-01 ",.01)
 ;;00378-1113-01
 ;;9002226.02101,"806,00378-1113-01 ",.02)
 ;;00378-1113-01
 ;;9002226.02101,"806,00378-1125-01 ",.01)
 ;;00378-1125-01
 ;;9002226.02101,"806,00378-1125-01 ",.02)
 ;;00378-1125-01
 ;;9002226.02101,"806,00378-1125-10 ",.01)
 ;;00378-1125-10
 ;;9002226.02101,"806,00378-1125-10 ",.02)
 ;;00378-1125-10
 ;;9002226.02101,"806,00378-1142-01 ",.01)
 ;;00378-1142-01
 ;;9002226.02101,"806,00378-1142-01 ",.02)
 ;;00378-1142-01
 ;;9002226.02101,"806,00378-1452-01 ",.01)
 ;;00378-1452-01
 ;;9002226.02101,"806,00378-1452-01 ",.02)
 ;;00378-1452-01
 ;;9002226.02101,"806,00378-1452-05 ",.01)
 ;;00378-1452-05
 ;;9002226.02101,"806,00378-1452-05 ",.02)
 ;;00378-1452-05
 ;;9002226.02101,"806,00378-1454-01 ",.01)
 ;;00378-1454-01
 ;;9002226.02101,"806,00378-1454-01 ",.02)
 ;;00378-1454-01
 ;;9002226.02101,"806,00378-1454-05 ",.01)
 ;;00378-1454-05
 ;;9002226.02101,"806,00378-1454-05 ",.02)
 ;;00378-1454-05
 ;;9002226.02101,"806,00378-1458-01 ",.01)
 ;;00378-1458-01
 ;;9002226.02101,"806,00378-1458-01 ",.02)
 ;;00378-1458-01
 ;;9002226.02101,"806,00378-1458-05 ",.01)
 ;;00378-1458-05
 ;;9002226.02101,"806,00378-1458-05 ",.02)
 ;;00378-1458-05
 ;;9002226.02101,"806,00378-1458-77 ",.01)
 ;;00378-1458-77
 ;;9002226.02101,"806,00378-1458-77 ",.02)
 ;;00378-1458-77
 ;;9002226.02101,"806,00378-3349-16 ",.01)
 ;;00378-3349-16
 ;;9002226.02101,"806,00378-3349-16 ",.02)
 ;;00378-3349-16
 ;;9002226.02101,"806,00378-3349-99 ",.01)
 ;;00378-3349-99
 ;;9002226.02101,"806,00378-3349-99 ",.02)
 ;;00378-3349-99
 ;;9002226.02101,"806,00378-3350-16 ",.01)
 ;;00378-3350-16
 ;;9002226.02101,"806,00378-3350-16 ",.02)
 ;;00378-3350-16
 ;;9002226.02101,"806,00378-3350-99 ",.01)
 ;;00378-3350-99
 ;;9002226.02101,"806,00378-3350-99 ",.02)
 ;;00378-3350-99
 ;;9002226.02101,"806,00378-3351-16 ",.01)
 ;;00378-3351-16
 ;;9002226.02101,"806,00378-3351-16 ",.02)
 ;;00378-3351-16
 ;;9002226.02101,"806,00378-3351-99 ",.01)
 ;;00378-3351-99
 ;;9002226.02101,"806,00378-3351-99 ",.02)
 ;;00378-3351-99
 ;;9002226.02101,"806,00378-3352-16 ",.01)
 ;;00378-3352-16
 ;;9002226.02101,"806,00378-3352-16 ",.02)
 ;;00378-3352-16
 ;;9002226.02101,"806,00378-3352-99 ",.01)
 ;;00378-3352-99
 ;;9002226.02101,"806,00378-3352-99 ",.02)
 ;;00378-3352-99
 ;;9002226.02101,"806,00378-3360-99 ",.01)
 ;;00378-3360-99
 ;;9002226.02101,"806,00378-3360-99 ",.02)
 ;;00378-3360-99
 ;;9002226.02101,"806,00378-3361-16 ",.01)
 ;;00378-3361-16
 ;;9002226.02101,"806,00378-3361-16 ",.02)
 ;;00378-3361-16
 ;;9002226.02101,"806,00378-3361-99 ",.01)
 ;;00378-3361-99
 ;;9002226.02101,"806,00378-3361-99 ",.02)
 ;;00378-3361-99
 ;;9002226.02101,"806,00378-4551-01 ",.01)
 ;;00378-4551-01
 ;;9002226.02101,"806,00378-4551-01 ",.02)
 ;;00378-4551-01
 ;;9002226.02101,"806,00378-4553-01 ",.01)
 ;;00378-4553-01
 ;;9002226.02101,"806,00378-4553-01 ",.02)
 ;;00378-4553-01
 ;;9002226.02101,"806,00430-0145-14 ",.01)
 ;;00430-0145-14
 ;;9002226.02101,"806,00430-0145-14 ",.02)
 ;;00430-0145-14
 ;;9002226.02101,"806,00430-0145-23 ",.01)
 ;;00430-0145-23
 ;;9002226.02101,"806,00430-0145-23 ",.02)
 ;;00430-0145-23
 ;;9002226.02101,"806,00430-0389-24 ",.01)
 ;;00430-0389-24
 ;;9002226.02101,"806,00430-0389-24 ",.02)
 ;;00430-0389-24
 ;;9002226.02101,"806,00430-0390-24 ",.01)
 ;;00430-0390-24
 ;;9002226.02101,"806,00430-0390-24 ",.02)
 ;;00430-0390-24
 ;;9002226.02101,"806,00430-0544-14 ",.01)
 ;;00430-0544-14
 ;;9002226.02101,"806,00430-0544-14 ",.02)
 ;;00430-0544-14
 ;;9002226.02101,"806,00430-0544-23 ",.01)
 ;;00430-0544-23
 ;;9002226.02101,"806,00430-0544-23 ",.02)
 ;;00430-0544-23
 ;;9002226.02101,"806,00430-0720-24 ",.01)
 ;;00430-0720-24
 ;;9002226.02101,"806,00430-0720-24 ",.02)
 ;;00430-0720-24
 ;;9002226.02101,"806,00430-0721-24 ",.01)
 ;;00430-0721-24
 ;;9002226.02101,"806,00430-0721-24 ",.02)
 ;;00430-0721-24
 ;;9002226.02101,"806,00430-0722-24 ",.01)
 ;;00430-0722-24
 ;;9002226.02101,"806,00430-0722-24 ",.02)
 ;;00430-0722-24
 ;;9002226.02101,"806,00440-7570-20 ",.01)
 ;;00440-7570-20
 ;;9002226.02101,"806,00440-7570-20 ",.02)
 ;;00440-7570-20
 ;;9002226.02101,"806,00440-7571-14 ",.01)
 ;;00440-7571-14
 ;;9002226.02101,"806,00440-7571-14 ",.02)
 ;;00440-7571-14
 ;;9002226.02101,"806,00440-7571-30 ",.01)
 ;;00440-7571-30
 ;;9002226.02101,"806,00440-7571-30 ",.02)
 ;;00440-7571-30
 ;;9002226.02101,"806,00440-7571-60 ",.01)
 ;;00440-7571-60
 ;;9002226.02101,"806,00440-7571-60 ",.02)
 ;;00440-7571-60
 ;;9002226.02101,"806,00440-7571-90 ",.01)
 ;;00440-7571-90
 ;;9002226.02101,"806,00440-7571-90 ",.02)
 ;;00440-7571-90
 ;;9002226.02101,"806,00440-7571-91 ",.01)
 ;;00440-7571-91
 ;;9002226.02101,"806,00440-7571-91 ",.02)
 ;;00440-7571-91
 ;;9002226.02101,"806,00440-7571-92 ",.01)
 ;;00440-7571-92
 ;;9002226.02101,"806,00440-7571-92 ",.02)
 ;;00440-7571-92
 ;;9002226.02101,"806,00440-7571-94 ",.01)
 ;;00440-7571-94
 ;;9002226.02101,"806,00440-7571-94 ",.02)
 ;;00440-7571-94
 ;;9002226.02101,"806,00440-7571-95 ",.01)
 ;;00440-7571-95
 ;;9002226.02101,"806,00440-7571-95 ",.02)
 ;;00440-7571-95
 ;;9002226.02101,"806,00440-7585-90 ",.01)
 ;;00440-7585-90
 ;;9002226.02101,"806,00440-7585-90 ",.02)
 ;;00440-7585-90
 ;;9002226.02101,"806,00440-7587-90 ",.01)
 ;;00440-7587-90
 ;;9002226.02101,"806,00440-7587-90 ",.02)
 ;;00440-7587-90
 ;;9002226.02101,"806,00440-7589-90 ",.01)
 ;;00440-7589-90
 ;;9002226.02101,"806,00440-7589-90 ",.02)
 ;;00440-7589-90
 ;;9002226.02101,"806,00440-7589-95 ",.01)
 ;;00440-7589-95
 ;;9002226.02101,"806,00440-7589-95 ",.02)
 ;;00440-7589-95
 ;;9002226.02101,"806,00440-7749-10 ",.01)
 ;;00440-7749-10
 ;;9002226.02101,"806,00440-7749-10 ",.02)
 ;;00440-7749-10
 ;;9002226.02101,"806,00440-7749-20 ",.01)
 ;;00440-7749-20
 ;;9002226.02101,"806,00440-7749-20 ",.02)
 ;;00440-7749-20
 ;;9002226.02101,"806,00440-7749-30 ",.01)
 ;;00440-7749-30
 ;;9002226.02101,"806,00440-7749-30 ",.02)
 ;;00440-7749-30
 ;;9002226.02101,"806,00440-7749-60 ",.01)
 ;;00440-7749-60
 ;;9002226.02101,"806,00440-7749-60 ",.02)
 ;;00440-7749-60
 ;;9002226.02101,"806,00440-8170-30 ",.01)
 ;;00440-8170-30
 ;;9002226.02101,"806,00440-8170-30 ",.02)
 ;;00440-8170-30
 ;;9002226.02101,"806,00440-8170-60 ",.01)
 ;;00440-8170-60
 ;;9002226.02101,"806,00440-8170-60 ",.02)
 ;;00440-8170-60
 ;;9002226.02101,"806,00440-8170-90 ",.01)
 ;;00440-8170-90
 ;;9002226.02101,"806,00440-8170-90 ",.02)
 ;;00440-8170-90
 ;;9002226.02101,"806,00440-8171-30 ",.01)
 ;;00440-8171-30
 ;;9002226.02101,"806,00440-8171-30 ",.02)
 ;;00440-8171-30
 ;;9002226.02101,"806,00440-8171-60 ",.01)
 ;;00440-8171-60
 ;;9002226.02101,"806,00440-8171-60 ",.02)
 ;;00440-8171-60
 ;;9002226.02101,"806,00440-8171-90 ",.01)
 ;;00440-8171-90
 ;;9002226.02101,"806,00440-8171-90 ",.02)
 ;;00440-8171-90
 ;;9002226.02101,"806,00440-8172-30 ",.01)
 ;;00440-8172-30
 ;;9002226.02101,"806,00440-8172-30 ",.02)
 ;;00440-8172-30
 ;;9002226.02101,"806,00440-8172-60 ",.01)
 ;;00440-8172-60
 ;;9002226.02101,"806,00440-8172-60 ",.02)
 ;;00440-8172-60
 ;;9002226.02101,"806,00440-8172-90 ",.01)
 ;;00440-8172-90
 ;;9002226.02101,"806,00440-8172-90 ",.02)
 ;;00440-8172-90
 ;;9002226.02101,"806,00456-0457-01 ",.01)
 ;;00456-0457-01
 ;;9002226.02101,"806,00456-0457-01 ",.02)
 ;;00456-0457-01
 ;;9002226.02101,"806,00456-0458-01 ",.01)
 ;;00456-0458-01
 ;;9002226.02101,"806,00456-0458-01 ",.02)
 ;;00456-0458-01
 ;;9002226.02101,"806,00456-0458-11 ",.01)
 ;;00456-0458-11
 ;;9002226.02101,"806,00456-0458-11 ",.02)
 ;;00456-0458-11
 ;;9002226.02101,"806,00456-0458-63 ",.01)
 ;;00456-0458-63
 ;;9002226.02101,"806,00456-0458-63 ",.02)
 ;;00456-0458-63
 ;;9002226.02101,"806,00456-0459-01 ",.01)
 ;;00456-0459-01
 ;;9002226.02101,"806,00456-0459-01 ",.02)
 ;;00456-0459-01
 ;;9002226.02101,"806,00456-0459-11 ",.01)
 ;;00456-0459-11
 ;;9002226.02101,"806,00456-0459-11 ",.02)
 ;;00456-0459-11
 ;;9002226.02101,"806,00456-0459-63 ",.01)
 ;;00456-0459-63
 ;;9002226.02101,"806,00456-0459-63 ",.02)
 ;;00456-0459-63
 ;;9002226.02101,"806,00456-0460-01 ",.01)
 ;;00456-0460-01
 ;;9002226.02101,"806,00456-0460-01 ",.02)
 ;;00456-0460-01
 ;;9002226.02101,"806,00456-0461-01 ",.01)
 ;;00456-0461-01
 ;;9002226.02101,"806,00456-0461-01 ",.02)
 ;;00456-0461-01
 ;;9002226.02101,"806,00456-0461-63 ",.01)
 ;;00456-0461-63
 ;;9002226.02101,"806,00456-0461-63 ",.02)
 ;;00456-0461-63
 ;;9002226.02101,"806,00456-0462-01 ",.01)
 ;;00456-0462-01
 ;;9002226.02101,"806,00456-0462-01 ",.02)
 ;;00456-0462-01
 ;;9002226.02101,"806,00456-0463-01 ",.01)
 ;;00456-0463-01
 ;;9002226.02101,"806,00456-0463-01 ",.02)
 ;;00456-0463-01
 ;;9002226.02101,"806,00456-0464-01 ",.01)
 ;;00456-0464-01
 ;;9002226.02101,"806,00456-0464-01 ",.02)
 ;;00456-0464-01
 ;;9002226.02101,"806,00527-1409-01 ",.01)
 ;;00527-1409-01
 ;;9002226.02101,"806,00527-1409-01 ",.02)
 ;;00527-1409-01
 ;;9002226.02101,"806,00527-1409-10 ",.01)
 ;;00527-1409-10
 ;;9002226.02101,"806,00527-1409-10 ",.02)
 ;;00527-1409-10
 ;;9002226.02101,"806,00527-1410-01 ",.01)
 ;;00527-1410-01
 ;;9002226.02101,"806,00527-1410-01 ",.02)
 ;;00527-1410-01
 ;;9002226.02101,"806,00527-1410-10 ",.01)
 ;;00527-1410-10
 ;;9002226.02101,"806,00527-1410-10 ",.02)
 ;;00527-1410-10
 ;;9002226.02101,"806,00555-0606-02 ",.01)
 ;;00555-0606-02
 ;;9002226.02101,"806,00555-0606-02 ",.02)
 ;;00555-0606-02
 ;;9002226.02101,"806,00555-0607-02 ",.01)
 ;;00555-0607-02
 ;;9002226.02101,"806,00555-0607-02 ",.02)
 ;;00555-0607-02
 ;;9002226.02101,"806,00555-0607-04 ",.01)
 ;;00555-0607-04
 ;;9002226.02101,"806,00555-0607-04 ",.02)
 ;;00555-0607-04
 ;;9002226.02101,"806,00555-0727-02 ",.01)
 ;;00555-0727-02
 ;;9002226.02101,"806,00555-0727-02 ",.02)
 ;;00555-0727-02
 ;;9002226.02101,"806,00555-0728-02 ",.01)
 ;;00555-0728-02
 ;;9002226.02101,"806,00555-0728-02 ",.02)
 ;;00555-0728-02
 ;;9002226.02101,"806,00555-0729-02 ",.01)
 ;;00555-0729-02
 ;;9002226.02101,"806,00555-0729-02 ",.02)
 ;;00555-0729-02
 ;;9002226.02101,"806,00555-0886-02 ",.01)
 ;;00555-0886-02
 ;;9002226.02101,"806,00555-0886-02 ",.02)
 ;;00555-0886-02
 ;;9002226.02101,"806,00555-0886-04 ",.01)
 ;;00555-0886-04
 ;;9002226.02101,"806,00555-0886-04 ",.02)
 ;;00555-0886-04
 ;;9002226.02101,"806,00555-0887-02 ",.01)
 ;;00555-0887-02
 ;;9002226.02101,"806,00555-0887-02 ",.02)
 ;;00555-0887-02
 ;;9002226.02101,"806,00555-0887-04 ",.01)
 ;;00555-0887-04
 ;;9002226.02101,"806,00555-0887-04 ",.02)
 ;;00555-0887-04
 ;;9002226.02101,"806,00555-0899-02 ",.01)
 ;;00555-0899-02
 ;;9002226.02101,"806,00555-0899-02 ",.02)
 ;;00555-0899-02
 ;;9002226.02101,"806,00591-0414-01 ",.01)
 ;;00591-0414-01
 ;;9002226.02101,"806,00591-0414-01 ",.02)
 ;;00591-0414-01
 ;;9002226.02101,"806,00591-0415-01 ",.01)
 ;;00591-0415-01
 ;;9002226.02101,"806,00591-0415-01 ",.02)
 ;;00591-0415-01
 ;;9002226.02101,"806,00591-0416-01 ",.01)
 ;;00591-0416-01
 ;;9002226.02101,"806,00591-0416-01 ",.02)
 ;;00591-0416-01
 ;;9002226.02101,"806,00591-0487-01 ",.01)
 ;;00591-0487-01
 ;;9002226.02101,"806,00591-0487-01 ",.02)
 ;;00591-0487-01
 ;;9002226.02101,"806,00591-0487-05 ",.01)
 ;;00591-0487-05
 ;;9002226.02101,"806,00591-0487-05 ",.02)
 ;;00591-0487-05
 ;;9002226.02101,"806,00591-0488-01 ",.01)
 ;;00591-0488-01
 ;;9002226.02101,"806,00591-0488-01 ",.02)
 ;;00591-0488-01
 ;;9002226.02101,"806,00591-0488-05 ",.01)
 ;;00591-0488-05
 ;;9002226.02101,"806,00591-0488-05 ",.02)
 ;;00591-0488-05
 ;;9002226.02101,"806,00591-0528-01 ",.01)
 ;;00591-0528-01
 ;;9002226.02101,"806,00591-0528-01 ",.02)
 ;;00591-0528-01
 ;;9002226.02101,"806,00904-3571-61 ",.01)
 ;;00904-3571-61
 ;;9002226.02101,"806,00904-3571-61 ",.02)
 ;;00904-3571-61
 ;;9002226.02101,"806,00904-6137-60 ",.01)
 ;;00904-6137-60
 ;;9002226.02101,"806,00904-6137-60 ",.02)
 ;;00904-6137-60
 ;;9002226.02101,"806,00904-6138-40 ",.01)
 ;;00904-6138-40
 ;;9002226.02101,"806,00904-6138-40 ",.02)
 ;;00904-6138-40
 ;;9002226.02101,"806,00904-6138-60 ",.01)
 ;;00904-6138-60