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

BGP53I27.m

Go to the documentation of this file.
  1. BGP53I27 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  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,"734,00378-0167-05 ",.02)
  1. ;;00378-0167-05
  1. ;;9002226.02101,"734,00378-0167-89 ",.01)
  1. ;;00378-0167-89
  1. ;;9002226.02101,"734,00378-0167-89 ",.02)
  1. ;;00378-0167-89
  1. ;;9002226.02101,"734,00378-1215-89 ",.01)
  1. ;;00378-1215-89
  1. ;;9002226.02101,"734,00378-1215-89 ",.02)
  1. ;;00378-1215-89
  1. ;;9002226.02101,"734,00378-1217-89 ",.01)
  1. ;;00378-1217-89
  1. ;;9002226.02101,"734,00378-1217-89 ",.02)
  1. ;;00378-1217-89
  1. ;;9002226.02101,"734,00378-1221-94 ",.01)
  1. ;;00378-1221-94
  1. ;;9002226.02101,"734,00378-1221-94 ",.02)
  1. ;;00378-1221-94
  1. ;;9002226.02101,"734,00378-1322-01 ",.01)
  1. ;;00378-1322-01
  1. ;;9002226.02101,"734,00378-1322-01 ",.02)
  1. ;;00378-1322-01
  1. ;;9002226.02101,"734,00378-1323-01 ",.01)
  1. ;;00378-1323-01
  1. ;;9002226.02101,"734,00378-1323-01 ",.02)
  1. ;;00378-1323-01
  1. ;;9002226.02101,"734,00378-1323-05 ",.01)
  1. ;;00378-1323-05
  1. ;;9002226.02101,"734,00378-1323-05 ",.02)
  1. ;;00378-1323-05
  1. ;;9002226.02101,"734,00378-1324-89 ",.01)
  1. ;;00378-1324-89
  1. ;;9002226.02101,"734,00378-1324-89 ",.02)
  1. ;;00378-1324-89
  1. ;;9002226.02101,"734,00378-1533-56 ",.01)
  1. ;;00378-1533-56
  1. ;;9002226.02101,"734,00378-1533-56 ",.02)
  1. ;;00378-1533-56
  1. ;;9002226.02101,"734,00378-1533-83 ",.01)
  1. ;;00378-1533-83
  1. ;;9002226.02101,"734,00378-1533-83 ",.02)
  1. ;;00378-1533-83
  1. ;;9002226.02101,"734,00378-1743-89 ",.01)
  1. ;;00378-1743-89
  1. ;;9002226.02101,"734,00378-1743-89 ",.02)
  1. ;;00378-1743-89
  1. ;;9002226.02101,"734,00378-1745-89 ",.01)
  1. ;;00378-1745-89
  1. ;;9002226.02101,"734,00378-1745-89 ",.02)
  1. ;;00378-1745-89
  1. ;;9002226.02101,"734,00378-3030-01 ",.01)
  1. ;;00378-3030-01
  1. ;;9002226.02101,"734,00378-3030-01 ",.02)
  1. ;;00378-3030-01
  1. ;;9002226.02101,"734,00378-4296-01 ",.01)
  1. ;;00378-4296-01
  1. ;;9002226.02101,"734,00378-4296-01 ",.02)
  1. ;;00378-4296-01
  1. ;;9002226.02101,"734,00378-4296-93 ",.01)
  1. ;;00378-4296-93
  1. ;;9002226.02101,"734,00378-4296-93 ",.02)
  1. ;;00378-4296-93
  1. ;;9002226.02101,"734,00378-4297-01 ",.01)
  1. ;;00378-4297-01
  1. ;;9002226.02101,"734,00378-4297-01 ",.02)
  1. ;;00378-4297-01
  1. ;;9002226.02101,"734,00378-4297-93 ",.01)
  1. ;;00378-4297-93
  1. ;;9002226.02101,"734,00378-4297-93 ",.02)
  1. ;;00378-4297-93
  1. ;;9002226.02101,"734,00378-4298-01 ",.01)
  1. ;;00378-4298-01
  1. ;;9002226.02101,"734,00378-4298-01 ",.02)
  1. ;;00378-4298-01
  1. ;;9002226.02101,"734,00378-4298-93 ",.01)
  1. ;;00378-4298-93
  1. ;;9002226.02101,"734,00378-4298-93 ",.02)
  1. ;;00378-4298-93
  1. ;;9002226.02101,"734,00378-4531-91 ",.01)
  1. ;;00378-4531-91
  1. ;;9002226.02101,"734,00378-4531-91 ",.02)
  1. ;;00378-4531-91
  1. ;;9002226.02101,"734,00378-4532-01 ",.01)
  1. ;;00378-4532-01
  1. ;;9002226.02101,"734,00378-4532-01 ",.02)
  1. ;;00378-4532-01
  1. ;;9002226.02101,"734,00378-5475-91 ",.01)
  1. ;;00378-5475-91
  1. ;;9002226.02101,"734,00378-5475-91 ",.02)
  1. ;;00378-5475-91
  1. ;;9002226.02101,"734,00378-6021-01 ",.01)
  1. ;;00378-6021-01
  1. ;;9002226.02101,"734,00378-6021-01 ",.02)
  1. ;;00378-6021-01
  1. ;;9002226.02101,"734,00378-6022-01 ",.01)
  1. ;;00378-6022-01
  1. ;;9002226.02101,"734,00378-6022-01 ",.02)
  1. ;;00378-6022-01
  1. ;;9002226.02101,"734,00378-6023-89 ",.01)
  1. ;;00378-6023-89
  1. ;;9002226.02101,"734,00378-6023-89 ",.02)
  1. ;;00378-6023-89
  1. ;;9002226.02101,"734,00378-6124-93 ",.01)
  1. ;;00378-6124-93
  1. ;;9002226.02101,"734,00378-6124-93 ",.02)
  1. ;;00378-6124-93
  1. ;;9002226.02101,"734,00378-7097-01 ",.01)
  1. ;;00378-7097-01
  1. ;;9002226.02101,"734,00378-7097-01 ",.02)
  1. ;;00378-7097-01
  1. ;;9002226.02101,"734,00378-7098-01 ",.01)
  1. ;;00378-7098-01
  1. ;;9002226.02101,"734,00378-7098-01 ",.02)
  1. ;;00378-7098-01
  1. ;;9002226.02101,"734,00378-7099-89 ",.01)
  1. ;;00378-7099-89
  1. ;;9002226.02101,"734,00378-7099-89 ",.02)
  1. ;;00378-7099-89
  1. ;;9002226.02101,"734,00378-8250-91 ",.01)
  1. ;;00378-8250-91
  1. ;;9002226.02101,"734,00378-8250-91 ",.02)
  1. ;;00378-8250-91
  1. ;;9002226.02101,"734,00378-8500-91 ",.01)
  1. ;;00378-8500-91
  1. ;;9002226.02101,"734,00378-8500-91 ",.02)
  1. ;;00378-8500-91
  1. ;;9002226.02101,"734,00409-0144-10 ",.01)
  1. ;;00409-0144-10
  1. ;;9002226.02101,"734,00409-0144-10 ",.02)
  1. ;;00409-0144-10
  1. ;;9002226.02101,"734,00409-0144-11 ",.01)
  1. ;;00409-0144-11
  1. ;;9002226.02101,"734,00409-0144-11 ",.02)
  1. ;;00409-0144-11
  1. ;;9002226.02101,"734,00409-0528-13 ",.01)
  1. ;;00409-0528-13
  1. ;;9002226.02101,"734,00409-0528-13 ",.02)
  1. ;;00409-0528-13
  1. ;;9002226.02101,"734,00409-0528-23 ",.01)
  1. ;;00409-0528-23
  1. ;;9002226.02101,"734,00409-0528-23 ",.02)
  1. ;;00409-0528-23
  1. ;;9002226.02101,"734,00409-0528-31 ",.01)
  1. ;;00409-0528-31
  1. ;;9002226.02101,"734,00409-0528-31 ",.02)
  1. ;;00409-0528-31
  1. ;;9002226.02101,"734,00409-0802-01 ",.01)
  1. ;;00409-0802-01
  1. ;;9002226.02101,"734,00409-0802-01 ",.02)
  1. ;;00409-0802-01
  1. ;;9002226.02101,"734,00409-0803-01 ",.01)
  1. ;;00409-0803-01
  1. ;;9002226.02101,"734,00409-0803-01 ",.02)
  1. ;;00409-0803-01
  1. ;;9002226.02101,"734,00409-0805-01 ",.01)
  1. ;;00409-0805-01
  1. ;;9002226.02101,"734,00409-0805-01 ",.02)
  1. ;;00409-0805-01
  1. ;;9002226.02101,"734,00409-0806-01 ",.01)
  1. ;;00409-0806-01
  1. ;;9002226.02101,"734,00409-0806-01 ",.02)
  1. ;;00409-0806-01
  1. ;;9002226.02101,"734,00409-2585-01 ",.01)
  1. ;;00409-2585-01
  1. ;;9002226.02101,"734,00409-2585-01 ",.02)
  1. ;;00409-2585-01
  1. ;;9002226.02101,"734,00409-4050-01 ",.01)
  1. ;;00409-4050-01
  1. ;;9002226.02101,"734,00409-4050-01 ",.02)
  1. ;;00409-4050-01
  1. ;;9002226.02101,"734,00409-4051-01 ",.01)
  1. ;;00409-4051-01
  1. ;;9002226.02101,"734,00409-4051-01 ",.02)
  1. ;;00409-4051-01
  1. ;;9002226.02101,"734,00409-4052-01 ",.01)
  1. ;;00409-4052-01
  1. ;;9002226.02101,"734,00409-4052-01 ",.02)
  1. ;;00409-4052-01
  1. ;;9002226.02101,"734,00409-4053-03 ",.01)
  1. ;;00409-4053-03
  1. ;;9002226.02101,"734,00409-4053-03 ",.02)
  1. ;;00409-4053-03
  1. ;;9002226.02101,"734,00409-4054-03 ",.01)
  1. ;;00409-4054-03
  1. ;;9002226.02101,"734,00409-4054-03 ",.02)
  1. ;;00409-4054-03
  1. ;;9002226.02101,"734,00409-4055-03 ",.01)
  1. ;;00409-4055-03
  1. ;;9002226.02101,"734,00409-4055-03 ",.02)
  1. ;;00409-4055-03
  1. ;;9002226.02101,"734,00409-4197-01 ",.01)
  1. ;;00409-4197-01
  1. ;;9002226.02101,"734,00409-4197-01 ",.02)
  1. ;;00409-4197-01
  1. ;;9002226.02101,"734,00409-4765-86 ",.01)
  1. ;;00409-4765-86
  1. ;;9002226.02101,"734,00409-4765-86 ",.02)
  1. ;;00409-4765-86
  1. ;;9002226.02101,"734,00409-4777-02 ",.01)
  1. ;;00409-4777-02
  1. ;;9002226.02101,"734,00409-4777-02 ",.02)
  1. ;;00409-4777-02
  1. ;;9002226.02101,"734,00409-4777-23 ",.01)
  1. ;;00409-4777-23
  1. ;;9002226.02101,"734,00409-4777-23 ",.02)
  1. ;;00409-4777-23
  1. ;;9002226.02101,"734,00409-4777-49 ",.01)
  1. ;;00409-4777-49
  1. ;;9002226.02101,"734,00409-4777-49 ",.02)
  1. ;;00409-4777-49
  1. ;;9002226.02101,"734,00409-4777-50 ",.01)
  1. ;;00409-4777-50
  1. ;;9002226.02101,"734,00409-4777-50 ",.02)
  1. ;;00409-4777-50
  1. ;;9002226.02101,"734,00409-4777-61 ",.01)
  1. ;;00409-4777-61
  1. ;;9002226.02101,"734,00409-4777-61 ",.02)
  1. ;;00409-4777-61
  1. ;;9002226.02101,"734,00409-4777-62 ",.01)
  1. ;;00409-4777-62
  1. ;;9002226.02101,"734,00409-4777-62 ",.02)
  1. ;;00409-4777-62
  1. ;;9002226.02101,"734,00409-4778-86 ",.01)
  1. ;;00409-4778-86
  1. ;;9002226.02101,"734,00409-4778-86 ",.02)
  1. ;;00409-4778-86
  1. ;;9002226.02101,"734,00409-6476-44 ",.01)
  1. ;;00409-6476-44
  1. ;;9002226.02101,"734,00409-6476-44 ",.02)
  1. ;;00409-6476-44
  1. ;;9002226.02101,"734,00409-6478-44 ",.01)
  1. ;;00409-6478-44
  1. ;;9002226.02101,"734,00409-6478-44 ",.02)
  1. ;;00409-6478-44
  1. ;;9002226.02101,"734,00409-6482-01 ",.01)
  1. ;;00409-6482-01
  1. ;;9002226.02101,"734,00409-6482-01 ",.02)
  1. ;;00409-6482-01
  1. ;;9002226.02101,"734,00409-7332-01 ",.01)
  1. ;;00409-7332-01
  1. ;;9002226.02101,"734,00409-7332-01 ",.02)
  1. ;;00409-7332-01
  1. ;;9002226.02101,"734,00409-7332-61 ",.01)
  1. ;;00409-7332-61
  1. ;;9002226.02101,"734,00409-7332-61 ",.02)
  1. ;;00409-7332-61
  1. ;;9002226.02101,"734,00409-7333-04 ",.01)
  1. ;;00409-7333-04
  1. ;;9002226.02101,"734,00409-7333-04 ",.02)
  1. ;;00409-7333-04
  1. ;;9002226.02101,"734,00409-7333-49 ",.01)
  1. ;;00409-7333-49
  1. ;;9002226.02101,"734,00409-7333-49 ",.02)
  1. ;;00409-7333-49
  1. ;;9002226.02101,"734,00409-7334-10 ",.01)
  1. ;;00409-7334-10
  1. ;;9002226.02101,"734,00409-7334-10 ",.02)
  1. ;;00409-7334-10
  1. ;;9002226.02101,"734,00409-7335-03 ",.01)
  1. ;;00409-7335-03
  1. ;;9002226.02101,"734,00409-7335-03 ",.02)
  1. ;;00409-7335-03
  1. ;;9002226.02101,"734,00409-7335-61 ",.01)
  1. ;;00409-7335-61
  1. ;;9002226.02101,"734,00409-7335-61 ",.02)
  1. ;;00409-7335-61
  1. ;;9002226.02101,"734,00409-7336-04 ",.01)
  1. ;;00409-7336-04
  1. ;;9002226.02101,"734,00409-7336-04 ",.02)
  1. ;;00409-7336-04
  1. ;;9002226.02101,"734,00409-7336-49 ",.01)
  1. ;;00409-7336-49
  1. ;;9002226.02101,"734,00409-7336-49 ",.02)
  1. ;;00409-7336-49
  1. ;;9002226.02101,"734,00409-7337-01 ",.01)
  1. ;;00409-7337-01
  1. ;;9002226.02101,"734,00409-7337-01 ",.02)
  1. ;;00409-7337-01
  1. ;;9002226.02101,"734,00409-7338-01 ",.01)
  1. ;;00409-7338-01
  1. ;;9002226.02101,"734,00409-7338-01 ",.02)
  1. ;;00409-7338-01
  1. ;;9002226.02101,"734,00430-0111-20 ",.01)
  1. ;;00430-0111-20
  1. ;;9002226.02101,"734,00430-0111-20 ",.02)
  1. ;;00430-0111-20
  1. ;;9002226.02101,"734,00430-0111-96 ",.01)
  1. ;;00430-0111-96
  1. ;;9002226.02101,"734,00430-0111-96 ",.02)
  1. ;;00430-0111-96
  1. ;;9002226.02101,"734,00430-0112-24 ",.01)
  1. ;;00430-0112-24
  1. ;;9002226.02101,"734,00430-0112-24 ",.02)
  1. ;;00430-0112-24
  1. ;;9002226.02101,"734,00430-0112-96 ",.01)
  1. ;;00430-0112-96
  1. ;;9002226.02101,"734,00430-0112-96 ",.02)
  1. ;;00430-0112-96
  1. ;;9002226.02101,"734,00430-0113-20 ",.01)
  1. ;;00430-0113-20
  1. ;;9002226.02101,"734,00430-0113-20 ",.02)
  1. ;;00430-0113-20
  1. ;;9002226.02101,"734,00430-0114-20 ",.01)
  1. ;;00430-0114-20
  1. ;;9002226.02101,"734,00430-0114-20 ",.02)
  1. ;;00430-0114-20
  1. ;;9002226.02101,"734,00430-0115-20 ",.01)
  1. ;;00430-0115-20
  1. ;;9002226.02101,"734,00430-0115-20 ",.02)
  1. ;;00430-0115-20
  1. ;;9002226.02101,"734,00430-0115-95 ",.01)
  1. ;;00430-0115-95
  1. ;;9002226.02101,"734,00430-0115-95 ",.02)
  1. ;;00430-0115-95
  1. ;;9002226.02101,"734,00430-2782-17 ",.01)
  1. ;;00430-2782-17
  1. ;;9002226.02101,"734,00430-2782-17 ",.02)
  1. ;;00430-2782-17
  1. ;;9002226.02101,"734,00430-2783-17 ",.01)
  1. ;;00430-2783-17
  1. ;;9002226.02101,"734,00430-2783-17 ",.02)
  1. ;;00430-2783-17
  1. ;;9002226.02101,"734,00440-1101-30 ",.01)
  1. ;;00440-1101-30
  1. ;;9002226.02101,"734,00440-1101-30 ",.02)
  1. ;;00440-1101-30
  1. ;;9002226.02101,"734,00440-2406-20 ",.01)
  1. ;;00440-2406-20
  1. ;;9002226.02101,"734,00440-2406-20 ",.02)
  1. ;;00440-2406-20
  1. ;;9002226.02101,"734,00440-7101-30 ",.01)
  1. ;;00440-7101-30
  1. ;;9002226.02101,"734,00440-7101-30 ",.02)
  1. ;;00440-7101-30
  1. ;;9002226.02101,"734,00440-7105-30 ",.01)
  1. ;;00440-7105-30
  1. ;;9002226.02101,"734,00440-7105-30 ",.02)
  1. ;;00440-7105-30
  1. ;;9002226.02101,"734,00440-7108-20 ",.01)
  1. ;;00440-7108-20
  1. ;;9002226.02101,"734,00440-7108-20 ",.02)
  1. ;;00440-7108-20
  1. ;;9002226.02101,"734,00440-7175-06 ",.01)
  1. ;;00440-7175-06
  1. ;;9002226.02101,"734,00440-7175-06 ",.02)
  1. ;;00440-7175-06
  1. ;;9002226.02101,"734,00440-7240-28 ",.01)
  1. ;;00440-7240-28
  1. ;;9002226.02101,"734,00440-7240-28 ",.02)
  1. ;;00440-7240-28
  1. ;;9002226.02101,"734,00440-7241-21 ",.01)
  1. ;;00440-7241-21
  1. ;;9002226.02101,"734,00440-7241-21 ",.02)
  1. ;;00440-7241-21
  1. ;;9002226.02101,"734,00440-7290-06 ",.01)
  1. ;;00440-7290-06
  1. ;;9002226.02101,"734,00440-7290-06 ",.02)
  1. ;;00440-7290-06
  1. ;;9002226.02101,"734,00440-7291-20 ",.01)
  1. ;;00440-7291-20
  1. ;;9002226.02101,"734,00440-7291-20 ",.02)
  1. ;;00440-7291-20
  1. ;;9002226.02101,"734,00440-7300-30 ",.01)
  1. ;;00440-7300-30
  1. ;;9002226.02101,"734,00440-7300-30 ",.02)
  1. ;;00440-7300-30
  1. ;;9002226.02101,"734,00440-7381-40 ",.01)
  1. ;;00440-7381-40
  1. ;;9002226.02101,"734,00440-7381-40 ",.02)
  1. ;;00440-7381-40
  1. ;;9002226.02101,"734,00440-7481-14 ",.01)
  1. ;;00440-7481-14
  1. ;;9002226.02101,"734,00440-7481-14 ",.02)
  1. ;;00440-7481-14
  1. ;;9002226.02101,"734,00440-7483-92 ",.01)
  1. ;;00440-7483-92
  1. ;;9002226.02101,"734,00440-7483-92 ",.02)
  1. ;;00440-7483-92
  1. ;;9002226.02101,"734,00440-7512-40 ",.01)
  1. ;;00440-7512-40
  1. ;;9002226.02101,"734,00440-7512-40 ",.02)
  1. ;;00440-7512-40
  1. ;;9002226.02101,"734,00440-8050-40 ",.01)
  1. ;;00440-8050-40
  1. ;;9002226.02101,"734,00440-8050-40 ",.02)
  1. ;;00440-8050-40
  1. ;;9002226.02101,"734,00440-8055-40 ",.01)
  1. ;;00440-8055-40
  1. ;;9002226.02101,"734,00440-8055-40 ",.02)
  1. ;;00440-8055-40
  1. ;;9002226.02101,"734,00440-8056-20 ",.01)
  1. ;;00440-8056-20
  1. ;;9002226.02101,"734,00440-8056-20 ",.02)
  1. ;;00440-8056-20
  1. ;;9002226.02101,"734,00440-8358-20 ",.01)
  1. ;;00440-8358-20
  1. ;;9002226.02101,"734,00440-8358-20 ",.02)
  1. ;;00440-8358-20
  1. ;;9002226.02101,"734,00440-8406-03 ",.01)
  1. ;;00440-8406-03
  1. ;;9002226.02101,"734,00440-8406-03 ",.02)
  1. ;;00440-8406-03
  1. ;;9002226.02101,"734,00440-8505-40 ",.01)
  1. ;;00440-8505-40
  1. ;;9002226.02101,"734,00440-8505-40 ",.02)
  1. ;;00440-8505-40
  1. ;;9002226.02101,"734,00472-0850-10 ",.01)
  1. ;;00472-0850-10
  1. ;;9002226.02101,"734,00472-0850-10 ",.02)
  1. ;;00472-0850-10
  1. ;;9002226.02101,"734,00472-1285-16 ",.01)
  1. ;;00472-1285-16
  1. ;;9002226.02101,"734,00472-1285-16 ",.02)
  1. ;;00472-1285-16
  1. ;;9002226.02101,"734,00472-1285-33 ",.01)
  1. ;;00472-1285-33
  1. ;;9002226.02101,"734,00472-1285-33 ",.02)
  1. ;;00472-1285-33
  1. ;;9002226.02101,"734,00490-0085-00 ",.01)
  1. ;;00490-0085-00
  1. ;;9002226.02101,"734,00490-0085-00 ",.02)
  1. ;;00490-0085-00
  1. ;;9002226.02101,"734,00490-0085-30 ",.01)
  1. ;;00490-0085-30
  1. ;;9002226.02101,"734,00490-0085-30 ",.02)
  1. ;;00490-0085-30
  1. ;;9002226.02101,"734,00490-0085-60 ",.01)
  1. ;;00490-0085-60
  1. ;;9002226.02101,"734,00490-0085-60 ",.02)
  1. ;;00490-0085-60
  1. ;;9002226.02101,"734,00490-0085-90 ",.01)
  1. ;;00490-0085-90
  1. ;;9002226.02101,"734,00490-0085-90 ",.02)
  1. ;;00490-0085-90
  1. ;;9002226.02101,"734,00517-8711-10 ",.01)
  1. ;;00517-8711-10
  1. ;;9002226.02101,"734,00517-8711-10 ",.02)
  1. ;;00517-8711-10
  1. ;;9002226.02101,"734,00517-8722-10 ",.01)
  1. ;;00517-8722-10
  1. ;;9002226.02101,"734,00517-8722-10 ",.02)
  1. ;;00517-8722-10
  1. ;;9002226.02101,"734,00517-8725-10 ",.01)
  1. ;;00517-8725-10