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