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

BGP31R8.m

Go to the documentation of this file.
BGP31R8 ;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,"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-0391-24 ",.01)
 ;;00430-0391-24
 ;;9002226.02101,"806,00430-0391-24 ",.02)
 ;;00430-0391-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-00 ",.01)
 ;;00456-0458-00
 ;;9002226.02101,"806,00456-0458-00 ",.02)
 ;;00456-0458-00
 ;;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-0458-69 ",.01)
 ;;00456-0458-69
 ;;9002226.02101,"806,00456-0458-69 ",.02)
 ;;00456-0458-69
 ;;9002226.02101,"806,00456-0459-00 ",.01)
 ;;00456-0459-00
 ;;9002226.02101,"806,00456-0459-00 ",.02)
 ;;00456-0459-00
 ;;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-51 ",.01)
 ;;00456-0459-51
 ;;9002226.02101,"806,00456-0459-51 ",.02)
 ;;00456-0459-51
 ;;9002226.02101,"806,00456-0459-63 ",.01)
 ;;00456-0459-63
 ;;9002226.02101,"806,00456-0459-63 ",.02)
 ;;00456-0459-63
 ;;9002226.02101,"806,00456-0459-69 ",.01)
 ;;00456-0459-69
 ;;9002226.02101,"806,00456-0459-69 ",.02)
 ;;00456-0459-69
 ;;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-00 ",.01)
 ;;00456-0461-00
 ;;9002226.02101,"806,00456-0461-00 ",.02)
 ;;00456-0461-00
 ;;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-0461-69 ",.01)
 ;;00456-0461-69
 ;;9002226.02101,"806,00456-0461-69 ",.02)
 ;;00456-0461-69
 ;;9002226.02101,"806,00456-0462-00 ",.01)
 ;;00456-0462-00
 ;;9002226.02101,"806,00456-0462-00 ",.02)
 ;;00456-0462-00
 ;;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,00482-4900-02 ",.01)
 ;;00482-4900-02
 ;;9002226.02101,"806,00482-4900-02 ",.02)
 ;;00482-4900-02
 ;;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-03 ",.01)
 ;;00555-0607-03
 ;;9002226.02101,"806,00555-0607-03 ",.02)
 ;;00555-0607-03
 ;;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,00603-2835-21 ",.01)
 ;;00603-2835-21
 ;;9002226.02101,"806,00603-2835-21 ",.02)
 ;;00603-2835-21
 ;;9002226.02101,"806,00603-2836-32 ",.01)
 ;;00603-2836-32
 ;;9002226.02101,"806,00603-2836-32 ",.02)
 ;;00603-2836-32
 ;;9002226.02101,"806,00603-6045-32 ",.01)
 ;;00603-6045-32
 ;;9002226.02101,"806,00603-6045-32 ",.02)
 ;;00603-6045-32
 ;;9002226.02101,"806,00603-6046-32 ",.01)
 ;;00603-6046-32
 ;;9002226.02101,"806,00603-6046-32 ",.02)
 ;;00603-6046-32
 ;;9002226.02101,"806,00603-6047-32 ",.01)
 ;;00603-6047-32
 ;;9002226.02101,"806,00603-6047-32 ",.02)
 ;;00603-6047-32
 ;;9002226.02101,"806,00603-6048-32 ",.01)
 ;;00603-6048-32
 ;;9002226.02101,"806,00603-6048-32 ",.02)
 ;;00603-6048-32
 ;;9002226.02101,"806,00603-6050-21 ",.01)
 ;;00603-6050-21
 ;;9002226.02101,"806,00603-6050-21 ",.02)
 ;;00603-6050-21
 ;;9002226.02101,"806,00603-6051-21 ",.01)
 ;;00603-6051-21
 ;;9002226.02101,"806,00603-6051-21 ",.02)
 ;;00603-6051-21
 ;;9002226.02101,"806,00603-6051-32 ",.01)
 ;;00603-6051-32
 ;;9002226.02101,"806,00603-6051-32 ",.02)
 ;;00603-6051-32
 ;;9002226.02101,"806,00603-6052-21 ",.01)
 ;;00603-6052-21
 ;;9002226.02101,"806,00603-6052-21 ",.02)
 ;;00603-6052-21
 ;;9002226.02101,"806,00603-6052-32 ",.01)
 ;;00603-6052-32
 ;;9002226.02101,"806,00603-6052-32 ",.02)
 ;;00603-6052-32
 ;;9002226.02101,"806,00603-6053-21 ",.01)
 ;;00603-6053-21
 ;;9002226.02101,"806,00603-6053-21 ",.02)
 ;;00603-6053-21
 ;;9002226.02101,"806,00603-6053-32 ",.01)
 ;;00603-6053-32
 ;;9002226.02101,"806,00603-6053-32 ",.02)
 ;;00603-6053-32
 ;;9002226.02101,"806,00603-6054-21 ",.01)
 ;;00603-6054-21
 ;;9002226.02101,"806,00603-6054-21 ",.02)
 ;;00603-6054-21
 ;;9002226.02101,"806,00603-6054-32 ",.01)
 ;;00603-6054-32
 ;;9002226.02101,"806,00603-6054-32 ",.02)
 ;;00603-6054-32
 ;;9002226.02101,"806,00603-6055-21 ",.01)
 ;;00603-6055-21
 ;;9002226.02101,"806,00603-6055-21 ",.02)
 ;;00603-6055-21
 ;;9002226.02101,"806,00603-6055-32 ",.01)
 ;;00603-6055-32
 ;;9002226.02101,"806,00603-6055-32 ",.02)
 ;;00603-6055-32
 ;;9002226.02101,"806,00603-6056-21 ",.01)
 ;;00603-6056-21
 ;;9002226.02101,"806,00603-6056-21 ",.02)
 ;;00603-6056-21
 ;;9002226.02101,"806,00603-6057-21 ",.01)
 ;;00603-6057-21
 ;;9002226.02101,"806,00603-6057-21 ",.02)
 ;;00603-6057-21
 ;;9002226.02101,"806,00615-3570-53 ",.01)
 ;;00615-3570-53
 ;;9002226.02101,"806,00615-3570-53 ",.02)
 ;;00615-3570-53
 ;;9002226.02101,"806,00615-3570-63 ",.01)
 ;;00615-3570-63
 ;;9002226.02101,"806,00615-3570-63 ",.02)
 ;;00615-3570-63
 ;;9002226.02101,"806,00677-1657-10 ",.01)
 ;;00677-1657-10
 ;;9002226.02101,"806,00677-1657-10 ",.02)
 ;;00677-1657-10
 ;;9002226.02101,"806,00677-1658-10 ",.01)
 ;;00677-1658-10
 ;;9002226.02101,"806,00677-1658-10 ",.02)
 ;;00677-1658-10
 ;;9002226.02101,"806,00677-1659-10 ",.01)
 ;;00677-1659-10
 ;;9002226.02101,"806,00677-1659-10 ",.02)
 ;;00677-1659-10
 ;;9002226.02101,"806,00781-1138-01 ",.01)
 ;;00781-1138-01
 ;;9002226.02101,"806,00781-1138-01 ",.02)
 ;;00781-1138-01
 ;;9002226.02101,"806,00781-1146-01 ",.01)
 ;;00781-1146-01
 ;;9002226.02101,"806,00781-1146-01 ",.02)
 ;;00781-1146-01
 ;;9002226.02101,"806,00781-1191-01 ",.01)
 ;;00781-1191-01
 ;;9002226.02101,"806,00781-1191-01 ",.02)
 ;;00781-1191-01
 ;;9002226.02101,"806,00781-1191-10 ",.01)
 ;;00781-1191-10
 ;;9002226.02101,"806,00781-1191-10 ",.02)
 ;;00781-1191-10
 ;;9002226.02101,"806,00781-5170-01 ",.01)
 ;;00781-5170-01
 ;;9002226.02101,"806,00781-5170-01 ",.02)
 ;;00781-5170-01
 ;;9002226.02101,"806,00781-5171-01 ",.01)
 ;;00781-5171-01
 ;;9002226.02101,"806,00781-5171-01 ",.02)
 ;;00781-5171-01
 ;;9002226.02101,"806,00781-5171-05 ",.01)
 ;;00781-5171-05