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

BGP7LXGI.m

Go to the documentation of this file.
  1. BGP7LXGI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"624,00677-0459-01 ",.02)
  1. ;;00677-0459-01
  1. ;;9002226.02101,"624,00677-1088-21 ",.01)
  1. ;;00677-1088-21
  1. ;;9002226.02101,"624,00677-1088-21 ",.02)
  1. ;;00677-1088-21
  1. ;;9002226.02101,"624,00686-1057-71 ",.01)
  1. ;;00686-1057-71
  1. ;;9002226.02101,"624,00686-1057-71 ",.02)
  1. ;;00686-1057-71
  1. ;;9002226.02101,"624,00686-1065-71 ",.01)
  1. ;;00686-1065-71
  1. ;;9002226.02101,"624,00686-1065-71 ",.02)
  1. ;;00686-1065-71
  1. ;;9002226.02101,"624,00686-1140-25 ",.01)
  1. ;;00686-1140-25
  1. ;;9002226.02101,"624,00686-1140-25 ",.02)
  1. ;;00686-1140-25
  1. ;;9002226.02101,"624,00686-3501-01 ",.01)
  1. ;;00686-3501-01
  1. ;;9002226.02101,"624,00686-3501-01 ",.02)
  1. ;;00686-3501-01
  1. ;;9002226.02101,"624,00686-3601-01 ",.01)
  1. ;;00686-3601-01
  1. ;;9002226.02101,"624,00686-3601-01 ",.02)
  1. ;;00686-3601-01
  1. ;;9002226.02101,"624,00703-2501-04 ",.01)
  1. ;;00703-2501-04
  1. ;;9002226.02101,"624,00703-2501-04 ",.02)
  1. ;;00703-2501-04
  1. ;;9002226.02101,"624,00703-2511-04 ",.01)
  1. ;;00703-2511-04
  1. ;;9002226.02101,"624,00703-2511-04 ",.02)
  1. ;;00703-2511-04
  1. ;;9002226.02101,"624,00703-2525-03 ",.01)
  1. ;;00703-2525-03
  1. ;;9002226.02101,"624,00703-2525-03 ",.02)
  1. ;;00703-2525-03
  1. ;;9002226.02101,"624,00722-5044-01 ",.01)
  1. ;;00722-5044-01
  1. ;;9002226.02101,"624,00722-5044-01 ",.02)
  1. ;;00722-5044-01
  1. ;;9002226.02101,"624,00722-5044-02 ",.01)
  1. ;;00722-5044-02
  1. ;;9002226.02101,"624,00722-5044-02 ",.02)
  1. ;;00722-5044-02
  1. ;;9002226.02101,"624,00722-5120-02 ",.01)
  1. ;;00722-5120-02
  1. ;;9002226.02101,"624,00722-5120-02 ",.02)
  1. ;;00722-5120-02
  1. ;;9002226.02101,"624,00722-5120-03 ",.01)
  1. ;;00722-5120-03
  1. ;;9002226.02101,"624,00722-5120-03 ",.02)
  1. ;;00722-5120-03
  1. ;;9002226.02101,"624,00722-5515-02 ",.01)
  1. ;;00722-5515-02
  1. ;;9002226.02101,"624,00722-5515-02 ",.02)
  1. ;;00722-5515-02
  1. ;;9002226.02101,"624,00722-5515-03 ",.01)
  1. ;;00722-5515-03
  1. ;;9002226.02101,"624,00722-5515-03 ",.02)
  1. ;;00722-5515-03
  1. ;;9002226.02101,"624,00781-1105-10 ",.01)
  1. ;;00781-1105-10
  1. ;;9002226.02101,"624,00781-1105-10 ",.02)
  1. ;;00781-1105-10
  1. ;;9002226.02101,"624,00781-1482-01 ",.01)
  1. ;;00781-1482-01
  1. ;;9002226.02101,"624,00781-1482-01 ",.02)
  1. ;;00781-1482-01
  1. ;;9002226.02101,"624,00781-1482-05 ",.01)
  1. ;;00781-1482-05
  1. ;;9002226.02101,"624,00781-1482-05 ",.02)
  1. ;;00781-1482-05
  1. ;;9002226.02101,"624,00781-1482-13 ",.01)
  1. ;;00781-1482-13
  1. ;;9002226.02101,"624,00781-1482-13 ",.02)
  1. ;;00781-1482-13
  1. ;;9002226.02101,"624,00781-1483-01 ",.01)
  1. ;;00781-1483-01
  1. ;;9002226.02101,"624,00781-1483-01 ",.02)
  1. ;;00781-1483-01
  1. ;;9002226.02101,"624,00781-1483-05 ",.01)
  1. ;;00781-1483-05
  1. ;;9002226.02101,"624,00781-1483-05 ",.02)
  1. ;;00781-1483-05
  1. ;;9002226.02101,"624,00781-1483-13 ",.01)
  1. ;;00781-1483-13
  1. ;;9002226.02101,"624,00781-1483-13 ",.02)
  1. ;;00781-1483-13
  1. ;;9002226.02101,"624,00781-1484-01 ",.01)
  1. ;;00781-1484-01
  1. ;;9002226.02101,"624,00781-1484-01 ",.02)
  1. ;;00781-1484-01
  1. ;;9002226.02101,"624,00781-1484-05 ",.01)
  1. ;;00781-1484-05
  1. ;;9002226.02101,"624,00781-1484-05 ",.02)
  1. ;;00781-1484-05
  1. ;;9002226.02101,"624,00781-1484-13 ",.01)
  1. ;;00781-1484-13
  1. ;;9002226.02101,"624,00781-1484-13 ",.02)
  1. ;;00781-1484-13
  1. ;;9002226.02101,"624,00781-2080-01 ",.01)
  1. ;;00781-2080-01
  1. ;;9002226.02101,"624,00781-2080-01 ",.02)
  1. ;;00781-2080-01
  1. ;;9002226.02101,"624,00781-2080-05 ",.01)
  1. ;;00781-2080-05
  1. ;;9002226.02101,"624,00781-2080-05 ",.02)
  1. ;;00781-2080-05
  1. ;;9002226.02101,"624,00781-2080-10 ",.01)
  1. ;;00781-2080-10
  1. ;;9002226.02101,"624,00781-2080-10 ",.02)
  1. ;;00781-2080-10
  1. ;;9002226.02101,"624,00781-2082-05 ",.01)
  1. ;;00781-2082-05
  1. ;;9002226.02101,"624,00781-2082-05 ",.02)
  1. ;;00781-2082-05
  1. ;;9002226.02101,"624,00781-2082-10 ",.01)
  1. ;;00781-2082-10
  1. ;;9002226.02101,"624,00781-2082-10 ",.02)
  1. ;;00781-2082-10
  1. ;;9002226.02101,"624,00781-2084-01 ",.01)
  1. ;;00781-2084-01
  1. ;;9002226.02101,"624,00781-2084-01 ",.02)
  1. ;;00781-2084-01
  1. ;;9002226.02101,"624,00781-2084-05 ",.01)
  1. ;;00781-2084-05
  1. ;;9002226.02101,"624,00781-2084-05 ",.02)
  1. ;;00781-2084-05
  1. ;;9002226.02101,"624,00781-2084-10 ",.01)
  1. ;;00781-2084-10
  1. ;;9002226.02101,"624,00781-2084-10 ",.02)
  1. ;;00781-2084-10
  1. ;;9002226.02101,"624,00781-2506-03 ",.01)
  1. ;;00781-2506-03
  1. ;;9002226.02101,"624,00781-2506-03 ",.02)
  1. ;;00781-2506-03
  1. ;;9002226.02101,"624,00781-2506-13 ",.01)
  1. ;;00781-2506-13
  1. ;;9002226.02101,"624,00781-2506-13 ",.02)
  1. ;;00781-2506-13
  1. ;;9002226.02101,"624,00814-7085-82 ",.01)
  1. ;;00814-7085-82
  1. ;;9002226.02101,"624,00814-7085-82 ",.02)
  1. ;;00814-7085-82
  1. ;;9002226.02101,"624,00832-0225-10 ",.01)
  1. ;;00832-0225-10
  1. ;;9002226.02101,"624,00832-0225-10 ",.02)
  1. ;;00832-0225-10
  1. ;;9002226.02101,"624,00832-0226-10 ",.01)
  1. ;;00832-0226-10
  1. ;;9002226.02101,"624,00832-0226-10 ",.02)
  1. ;;00832-0226-10
  1. ;;9002226.02101,"624,00832-0229-10 ",.01)
  1. ;;00832-0229-10
  1. ;;9002226.02101,"624,00832-0229-10 ",.02)
  1. ;;00832-0229-10
  1. ;;9002226.02101,"624,00832-8009-04 ",.01)
  1. ;;00832-8009-04
  1. ;;9002226.02101,"624,00832-8009-04 ",.02)
  1. ;;00832-8009-04
  1. ;;9002226.02101,"624,00832-8009-16 ",.01)
  1. ;;00832-8009-16
  1. ;;9002226.02101,"624,00832-8009-16 ",.02)
  1. ;;00832-8009-16
  1. ;;9002226.02101,"624,00832-8009-28 ",.01)
  1. ;;00832-8009-28
  1. ;;9002226.02101,"624,00832-8009-28 ",.02)
  1. ;;00832-8009-28
  1. ;;9002226.02101,"624,00832-8026-16 ",.01)
  1. ;;00832-8026-16
  1. ;;9002226.02101,"624,00832-8026-16 ",.02)
  1. ;;00832-8026-16
  1. ;;9002226.02101,"624,00832-8026-28 ",.01)
  1. ;;00832-8026-28
  1. ;;9002226.02101,"624,00832-8026-28 ",.02)
  1. ;;00832-8026-28
  1. ;;9002226.02101,"624,00832-8027-16 ",.01)
  1. ;;00832-8027-16
  1. ;;9002226.02101,"624,00832-8027-16 ",.02)
  1. ;;00832-8027-16
  1. ;;9002226.02101,"624,00839-1130-06 ",.01)
  1. ;;00839-1130-06
  1. ;;9002226.02101,"624,00839-1130-06 ",.02)
  1. ;;00839-1130-06
  1. ;;9002226.02101,"624,00839-1130-16 ",.01)
  1. ;;00839-1130-16
  1. ;;9002226.02101,"624,00839-1130-16 ",.02)
  1. ;;00839-1130-16
  1. ;;9002226.02101,"624,00839-1131-06 ",.01)
  1. ;;00839-1131-06
  1. ;;9002226.02101,"624,00839-1131-06 ",.02)
  1. ;;00839-1131-06
  1. ;;9002226.02101,"624,00839-1131-16 ",.01)
  1. ;;00839-1131-16
  1. ;;9002226.02101,"624,00839-1131-16 ",.02)
  1. ;;00839-1131-16
  1. ;;9002226.02101,"624,00839-1132-06 ",.01)
  1. ;;00839-1132-06
  1. ;;9002226.02101,"624,00839-1132-06 ",.02)
  1. ;;00839-1132-06
  1. ;;9002226.02101,"624,00839-5018-65 ",.01)
  1. ;;00839-5018-65
  1. ;;9002226.02101,"624,00839-5018-65 ",.02)
  1. ;;00839-5018-65
  1. ;;9002226.02101,"624,00839-5018-70 ",.01)
  1. ;;00839-5018-70
  1. ;;9002226.02101,"624,00839-5018-70 ",.02)
  1. ;;00839-5018-70
  1. ;;9002226.02101,"624,00839-5055-19 ",.01)
  1. ;;00839-5055-19
  1. ;;9002226.02101,"624,00839-5055-19 ",.02)
  1. ;;00839-5055-19
  1. ;;9002226.02101,"624,00839-7131-06 ",.01)
  1. ;;00839-7131-06
  1. ;;9002226.02101,"624,00839-7131-06 ",.02)
  1. ;;00839-7131-06
  1. ;;9002226.02101,"624,00839-7131-16 ",.01)
  1. ;;00839-7131-16
  1. ;;9002226.02101,"624,00839-7131-16 ",.02)
  1. ;;00839-7131-16
  1. ;;9002226.02101,"624,00839-7132-06 ",.01)
  1. ;;00839-7132-06
  1. ;;9002226.02101,"624,00839-7132-06 ",.02)
  1. ;;00839-7132-06
  1. ;;9002226.02101,"624,00839-7132-16 ",.01)
  1. ;;00839-7132-16
  1. ;;9002226.02101,"624,00839-7132-16 ",.02)
  1. ;;00839-7132-16
  1. ;;9002226.02101,"624,00839-7133-06 ",.01)
  1. ;;00839-7133-06
  1. ;;9002226.02101,"624,00839-7133-06 ",.02)
  1. ;;00839-7133-06
  1. ;;9002226.02101,"624,00839-7133-12 ",.01)
  1. ;;00839-7133-12
  1. ;;9002226.02101,"624,00839-7133-12 ",.02)
  1. ;;00839-7133-12
  1. ;;9002226.02101,"624,00839-7133-16 ",.01)
  1. ;;00839-7133-16
  1. ;;9002226.02101,"624,00839-7133-16 ",.02)
  1. ;;00839-7133-16
  1. ;;9002226.02101,"624,00839-7154-06 ",.01)
  1. ;;00839-7154-06
  1. ;;9002226.02101,"624,00839-7154-06 ",.02)
  1. ;;00839-7154-06
  1. ;;9002226.02101,"624,00839-7154-12 ",.01)
  1. ;;00839-7154-12
  1. ;;9002226.02101,"624,00839-7154-12 ",.02)
  1. ;;00839-7154-12
  1. ;;9002226.02101,"624,00839-7155-06 ",.01)
  1. ;;00839-7155-06
  1. ;;9002226.02101,"624,00839-7155-06 ",.02)
  1. ;;00839-7155-06
  1. ;;9002226.02101,"624,00839-7155-12 ",.01)
  1. ;;00839-7155-12
  1. ;;9002226.02101,"624,00839-7155-12 ",.02)
  1. ;;00839-7155-12
  1. ;;9002226.02101,"624,00839-7190-30 ",.01)
  1. ;;00839-7190-30
  1. ;;9002226.02101,"624,00839-7190-30 ",.02)
  1. ;;00839-7190-30
  1. ;;9002226.02101,"624,00839-7279-06 ",.01)
  1. ;;00839-7279-06
  1. ;;9002226.02101,"624,00839-7279-06 ",.02)
  1. ;;00839-7279-06
  1. ;;9002226.02101,"624,00839-7279-12 ",.01)
  1. ;;00839-7279-12
  1. ;;9002226.02101,"624,00839-7279-12 ",.02)
  1. ;;00839-7279-12
  1. ;;9002226.02101,"624,00839-7280-06 ",.01)
  1. ;;00839-7280-06
  1. ;;9002226.02101,"624,00839-7280-06 ",.02)
  1. ;;00839-7280-06
  1. ;;9002226.02101,"624,00839-7280-12 ",.01)
  1. ;;00839-7280-12
  1. ;;9002226.02101,"624,00839-7280-12 ",.02)
  1. ;;00839-7280-12
  1. ;;9002226.02101,"624,00839-7818-06 ",.01)
  1. ;;00839-7818-06
  1. ;;9002226.02101,"624,00839-7818-06 ",.02)
  1. ;;00839-7818-06
  1. ;;9002226.02101,"624,00879-0027-01 ",.01)
  1. ;;00879-0027-01
  1. ;;9002226.02101,"624,00879-0027-01 ",.02)
  1. ;;00879-0027-01
  1. ;;9002226.02101,"624,00879-0027-10 ",.01)
  1. ;;00879-0027-10
  1. ;;9002226.02101,"624,00879-0027-10 ",.02)
  1. ;;00879-0027-10
  1. ;;9002226.02101,"624,00879-0029-01 ",.01)
  1. ;;00879-0029-01
  1. ;;9002226.02101,"624,00879-0029-01 ",.02)
  1. ;;00879-0029-01
  1. ;;9002226.02101,"624,00879-0029-10 ",.01)
  1. ;;00879-0029-10
  1. ;;9002226.02101,"624,00879-0029-10 ",.02)
  1. ;;00879-0029-10
  1. ;;9002226.02101,"624,00879-0034-01 ",.01)
  1. ;;00879-0034-01
  1. ;;9002226.02101,"624,00879-0034-01 ",.02)
  1. ;;00879-0034-01
  1. ;;9002226.02101,"624,00879-0034-10 ",.01)
  1. ;;00879-0034-10
  1. ;;9002226.02101,"624,00879-0034-10 ",.02)
  1. ;;00879-0034-10
  1. ;;9002226.02101,"624,00879-0049-32 ",.01)
  1. ;;00879-0049-32
  1. ;;9002226.02101,"624,00879-0049-32 ",.02)
  1. ;;00879-0049-32
  1. ;;9002226.02101,"624,00879-0058-01 ",.01)
  1. ;;00879-0058-01
  1. ;;9002226.02101,"624,00879-0058-01 ",.02)
  1. ;;00879-0058-01
  1. ;;9002226.02101,"624,00879-0058-10 ",.01)
  1. ;;00879-0058-10
  1. ;;9002226.02101,"624,00879-0058-10 ",.02)
  1. ;;00879-0058-10
  1. ;;9002226.02101,"624,00879-0059-04 ",.01)
  1. ;;00879-0059-04
  1. ;;9002226.02101,"624,00879-0059-04 ",.02)
  1. ;;00879-0059-04
  1. ;;9002226.02101,"624,00904-0090-40 ",.01)
  1. ;;00904-0090-40
  1. ;;9002226.02101,"624,00904-0090-40 ",.02)
  1. ;;00904-0090-40
  1. ;;9002226.02101,"624,00904-0090-60 ",.01)
  1. ;;00904-0090-60
  1. ;;9002226.02101,"624,00904-0090-60 ",.02)
  1. ;;00904-0090-60
  1. ;;9002226.02101,"624,00904-0090-80 ",.01)
  1. ;;00904-0090-80
  1. ;;9002226.02101,"624,00904-0090-80 ",.02)
  1. ;;00904-0090-80
  1. ;;9002226.02101,"624,00904-0091-40 ",.01)
  1. ;;00904-0091-40
  1. ;;9002226.02101,"624,00904-0091-40 ",.02)
  1. ;;00904-0091-40
  1. ;;9002226.02101,"624,00904-0091-60 ",.01)
  1. ;;00904-0091-60
  1. ;;9002226.02101,"624,00904-0091-60 ",.02)
  1. ;;00904-0091-60
  1. ;;9002226.02101,"624,00904-0091-80 ",.01)
  1. ;;00904-0091-80
  1. ;;9002226.02101,"624,00904-0091-80 ",.02)
  1. ;;00904-0091-80
  1. ;;9002226.02101,"624,00904-0092-40 ",.01)
  1. ;;00904-0092-40
  1. ;;9002226.02101,"624,00904-0092-40 ",.02)
  1. ;;00904-0092-40
  1. ;;9002226.02101,"624,00904-0092-60 ",.01)
  1. ;;00904-0092-60
  1. ;;9002226.02101,"624,00904-0092-60 ",.02)
  1. ;;00904-0092-60
  1. ;;9002226.02101,"624,00904-1700-40 ",.01)
  1. ;;00904-1700-40
  1. ;;9002226.02101,"624,00904-1700-40 ",.02)
  1. ;;00904-1700-40
  1. ;;9002226.02101,"624,00904-1700-60 ",.01)
  1. ;;00904-1700-60
  1. ;;9002226.02101,"624,00904-1700-60 ",.02)
  1. ;;00904-1700-60
  1. ;;9002226.02101,"624,00904-1701-40 ",.01)
  1. ;;00904-1701-40
  1. ;;9002226.02101,"624,00904-1701-40 ",.02)
  1. ;;00904-1701-40
  1. ;;9002226.02101,"624,00904-1797-80 ",.01)
  1. ;;00904-1797-80
  1. ;;9002226.02101,"624,00904-1797-80 ",.02)
  1. ;;00904-1797-80
  1. ;;9002226.02101,"624,00904-1798-60 ",.01)
  1. ;;00904-1798-60
  1. ;;9002226.02101,"624,00904-1798-60 ",.02)
  1. ;;00904-1798-60
  1. ;;9002226.02101,"624,00904-2800-40 ",.01)
  1. ;;00904-2800-40
  1. ;;9002226.02101,"624,00904-2800-40 ",.02)
  1. ;;00904-2800-40
  1. ;;9002226.02101,"624,00904-2800-60 ",.01)
  1. ;;00904-2800-60
  1. ;;9002226.02101,"624,00904-2800-60 ",.02)
  1. ;;00904-2800-60
  1. ;;9002226.02101,"624,00904-2800-61 ",.01)
  1. ;;00904-2800-61
  1. ;;9002226.02101,"624,00904-2800-61 ",.02)
  1. ;;00904-2800-61
  1. ;;9002226.02101,"624,00904-2801-40 ",.01)
  1. ;;00904-2801-40
  1. ;;9002226.02101,"624,00904-2801-40 ",.02)
  1. ;;00904-2801-40
  1. ;;9002226.02101,"624,00904-2801-60 ",.01)
  1. ;;00904-2801-60
  1. ;;9002226.02101,"624,00904-2801-60 ",.02)
  1. ;;00904-2801-60
  1. ;;9002226.02101,"624,00904-2801-61 ",.01)
  1. ;;00904-2801-61
  1. ;;9002226.02101,"624,00904-2801-61 ",.02)
  1. ;;00904-2801-61
  1. ;;9002226.02101,"624,00904-3884-80 ",.01)
  1. ;;00904-3884-80
  1. ;;9002226.02101,"624,00904-3884-80 ",.02)
  1. ;;00904-3884-80
  1. ;;9002226.02101,"624,00904-3901-40 ",.01)
  1. ;;00904-3901-40
  1. ;;9002226.02101,"624,00904-3901-40 ",.02)
  1. ;;00904-3901-40
  1. ;;9002226.02101,"624,00904-3901-60 ",.01)
  1. ;;00904-3901-60
  1. ;;9002226.02101,"624,00904-3901-60 ",.02)
  1. ;;00904-3901-60
  1. ;;9002226.02101,"624,00904-3901-61 ",.01)
  1. ;;00904-3901-61
  1. ;;9002226.02101,"624,00904-3901-61 ",.02)
  1. ;;00904-3901-61
  1. ;;9002226.02101,"624,00904-3901-80 ",.01)
  1. ;;00904-3901-80
  1. ;;9002226.02101,"624,00904-3901-80 ",.02)
  1. ;;00904-3901-80
  1. ;;9002226.02101,"624,00904-3902-40 ",.01)
  1. ;;00904-3902-40
  1. ;;9002226.02101,"624,00904-3902-40 ",.02)
  1. ;;00904-3902-40
  1. ;;9002226.02101,"624,00904-3902-60 ",.01)
  1. ;;00904-3902-60
  1. ;;9002226.02101,"624,00904-3902-60 ",.02)
  1. ;;00904-3902-60
  1. ;;9002226.02101,"624,00904-3902-61 ",.01)
  1. ;;00904-3902-61
  1. ;;9002226.02101,"624,00904-3902-61 ",.02)
  1. ;;00904-3902-61
  1. ;;9002226.02101,"624,00904-3902-80 ",.01)
  1. ;;00904-3902-80
  1. ;;9002226.02101,"624,00904-3902-80 ",.02)
  1. ;;00904-3902-80
  1. ;;9002226.02101,"624,00904-3903-40 ",.01)
  1. ;;00904-3903-40
  1. ;;9002226.02101,"624,00904-3903-40 ",.02)
  1. ;;00904-3903-40
  1. ;;9002226.02101,"624,00904-3903-60 ",.01)
  1. ;;00904-3903-60
  1. ;;9002226.02101,"624,00904-3903-60 ",.02)
  1. ;;00904-3903-60
  1. ;;9002226.02101,"624,00904-3903-80 ",.01)
  1. ;;00904-3903-80