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

BGP8ZH25.m

Go to the documentation of this file.
BGP8ZH25 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"868,00378-4298-93 ",.02)
 ;;00378-4298-93
 ;;9002226.02101,"868,00378-4531-91 ",.01)
 ;;00378-4531-91
 ;;9002226.02101,"868,00378-4531-91 ",.02)
 ;;00378-4531-91
 ;;9002226.02101,"868,00378-4532-01 ",.01)
 ;;00378-4532-01
 ;;9002226.02101,"868,00378-4532-01 ",.02)
 ;;00378-4532-01
 ;;9002226.02101,"868,00378-4533-91 ",.01)
 ;;00378-4533-91
 ;;9002226.02101,"868,00378-4533-91 ",.02)
 ;;00378-4533-91
 ;;9002226.02101,"868,00378-4535-78 ",.01)
 ;;00378-4535-78
 ;;9002226.02101,"868,00378-4535-78 ",.02)
 ;;00378-4535-78
 ;;9002226.02101,"868,00378-5475-91 ",.01)
 ;;00378-5475-91
 ;;9002226.02101,"868,00378-5475-91 ",.02)
 ;;00378-5475-91
 ;;9002226.02101,"868,00378-6021-01 ",.01)
 ;;00378-6021-01
 ;;9002226.02101,"868,00378-6021-01 ",.02)
 ;;00378-6021-01
 ;;9002226.02101,"868,00378-6022-01 ",.01)
 ;;00378-6022-01
 ;;9002226.02101,"868,00378-6022-01 ",.02)
 ;;00378-6022-01
 ;;9002226.02101,"868,00378-6023-89 ",.01)
 ;;00378-6023-89
 ;;9002226.02101,"868,00378-6023-89 ",.02)
 ;;00378-6023-89
 ;;9002226.02101,"868,00378-6124-93 ",.01)
 ;;00378-6124-93
 ;;9002226.02101,"868,00378-6124-93 ",.02)
 ;;00378-6124-93
 ;;9002226.02101,"868,00378-7097-01 ",.01)
 ;;00378-7097-01
 ;;9002226.02101,"868,00378-7097-01 ",.02)
 ;;00378-7097-01
 ;;9002226.02101,"868,00378-7098-01 ",.01)
 ;;00378-7098-01
 ;;9002226.02101,"868,00378-7098-01 ",.02)
 ;;00378-7098-01
 ;;9002226.02101,"868,00378-7099-89 ",.01)
 ;;00378-7099-89
 ;;9002226.02101,"868,00378-7099-89 ",.02)
 ;;00378-7099-89
 ;;9002226.02101,"868,00378-8250-91 ",.01)
 ;;00378-8250-91
 ;;9002226.02101,"868,00378-8250-91 ",.02)
 ;;00378-8250-91
 ;;9002226.02101,"868,00378-8500-91 ",.01)
 ;;00378-8500-91
 ;;9002226.02101,"868,00378-8500-91 ",.02)
 ;;00378-8500-91
 ;;9002226.02101,"868,00378-8730-35 ",.01)
 ;;00378-8730-35
 ;;9002226.02101,"868,00378-8730-35 ",.02)
 ;;00378-8730-35
 ;;9002226.02101,"868,00409-0144-10 ",.01)
 ;;00409-0144-10
 ;;9002226.02101,"868,00409-0144-10 ",.02)
 ;;00409-0144-10
 ;;9002226.02101,"868,00409-0144-11 ",.01)
 ;;00409-0144-11
 ;;9002226.02101,"868,00409-0144-11 ",.02)
 ;;00409-0144-11
 ;;9002226.02101,"868,00409-0528-13 ",.01)
 ;;00409-0528-13
 ;;9002226.02101,"868,00409-0528-13 ",.02)
 ;;00409-0528-13
 ;;9002226.02101,"868,00409-0528-15 ",.01)
 ;;00409-0528-15
 ;;9002226.02101,"868,00409-0528-15 ",.02)
 ;;00409-0528-15
 ;;9002226.02101,"868,00409-0528-23 ",.01)
 ;;00409-0528-23
 ;;9002226.02101,"868,00409-0528-23 ",.02)
 ;;00409-0528-23
 ;;9002226.02101,"868,00409-0528-25 ",.01)
 ;;00409-0528-25
 ;;9002226.02101,"868,00409-0528-25 ",.02)
 ;;00409-0528-25
 ;;9002226.02101,"868,00409-0528-31 ",.01)
 ;;00409-0528-31
 ;;9002226.02101,"868,00409-0528-31 ",.02)
 ;;00409-0528-31
 ;;9002226.02101,"868,00409-0528-35 ",.01)
 ;;00409-0528-35
 ;;9002226.02101,"868,00409-0528-35 ",.02)
 ;;00409-0528-35
 ;;9002226.02101,"868,00409-0802-01 ",.01)
 ;;00409-0802-01
 ;;9002226.02101,"868,00409-0802-01 ",.02)
 ;;00409-0802-01
 ;;9002226.02101,"868,00409-0803-01 ",.01)
 ;;00409-0803-01
 ;;9002226.02101,"868,00409-0803-01 ",.02)
 ;;00409-0803-01
 ;;9002226.02101,"868,00409-0805-01 ",.01)
 ;;00409-0805-01
 ;;9002226.02101,"868,00409-0805-01 ",.02)
 ;;00409-0805-01
 ;;9002226.02101,"868,00409-0806-01 ",.01)
 ;;00409-0806-01
 ;;9002226.02101,"868,00409-0806-01 ",.02)
 ;;00409-0806-01
 ;;9002226.02101,"868,00409-2585-01 ",.01)
 ;;00409-2585-01
 ;;9002226.02101,"868,00409-2585-01 ",.02)
 ;;00409-2585-01
 ;;9002226.02101,"868,00409-4050-01 ",.01)
 ;;00409-4050-01
 ;;9002226.02101,"868,00409-4050-01 ",.02)
 ;;00409-4050-01
 ;;9002226.02101,"868,00409-4051-01 ",.01)
 ;;00409-4051-01
 ;;9002226.02101,"868,00409-4051-01 ",.02)
 ;;00409-4051-01
 ;;9002226.02101,"868,00409-4052-01 ",.01)
 ;;00409-4052-01
 ;;9002226.02101,"868,00409-4052-01 ",.02)
 ;;00409-4052-01
 ;;9002226.02101,"868,00409-4053-03 ",.01)
 ;;00409-4053-03
 ;;9002226.02101,"868,00409-4053-03 ",.02)
 ;;00409-4053-03
 ;;9002226.02101,"868,00409-4054-03 ",.01)
 ;;00409-4054-03
 ;;9002226.02101,"868,00409-4054-03 ",.02)
 ;;00409-4054-03
 ;;9002226.02101,"868,00409-4055-03 ",.01)
 ;;00409-4055-03
 ;;9002226.02101,"868,00409-4055-03 ",.02)
 ;;00409-4055-03
 ;;9002226.02101,"868,00409-4197-01 ",.01)
 ;;00409-4197-01
 ;;9002226.02101,"868,00409-4197-01 ",.02)
 ;;00409-4197-01
 ;;9002226.02101,"868,00409-4765-86 ",.01)
 ;;00409-4765-86
 ;;9002226.02101,"868,00409-4765-86 ",.02)
 ;;00409-4765-86
 ;;9002226.02101,"868,00409-4777-02 ",.01)
 ;;00409-4777-02
 ;;9002226.02101,"868,00409-4777-02 ",.02)
 ;;00409-4777-02
 ;;9002226.02101,"868,00409-4777-23 ",.01)
 ;;00409-4777-23
 ;;9002226.02101,"868,00409-4777-23 ",.02)
 ;;00409-4777-23
 ;;9002226.02101,"868,00409-4777-49 ",.01)
 ;;00409-4777-49
 ;;9002226.02101,"868,00409-4777-49 ",.02)
 ;;00409-4777-49
 ;;9002226.02101,"868,00409-4777-50 ",.01)
 ;;00409-4777-50
 ;;9002226.02101,"868,00409-4777-50 ",.02)
 ;;00409-4777-50
 ;;9002226.02101,"868,00409-4778-86 ",.01)
 ;;00409-4778-86
 ;;9002226.02101,"868,00409-4778-86 ",.02)
 ;;00409-4778-86
 ;;9002226.02101,"868,00409-6476-44 ",.01)
 ;;00409-6476-44
 ;;9002226.02101,"868,00409-6476-44 ",.02)
 ;;00409-6476-44
 ;;9002226.02101,"868,00409-6482-01 ",.01)
 ;;00409-6482-01
 ;;9002226.02101,"868,00409-6482-01 ",.02)
 ;;00409-6482-01
 ;;9002226.02101,"868,00409-7332-01 ",.01)
 ;;00409-7332-01
 ;;9002226.02101,"868,00409-7332-01 ",.02)
 ;;00409-7332-01
 ;;9002226.02101,"868,00409-7333-04 ",.01)
 ;;00409-7333-04
 ;;9002226.02101,"868,00409-7333-04 ",.02)
 ;;00409-7333-04
 ;;9002226.02101,"868,00409-7333-49 ",.01)
 ;;00409-7333-49
 ;;9002226.02101,"868,00409-7333-49 ",.02)
 ;;00409-7333-49
 ;;9002226.02101,"868,00409-7334-10 ",.01)
 ;;00409-7334-10
 ;;9002226.02101,"868,00409-7334-10 ",.02)
 ;;00409-7334-10
 ;;9002226.02101,"868,00409-7335-03 ",.01)
 ;;00409-7335-03
 ;;9002226.02101,"868,00409-7335-03 ",.02)
 ;;00409-7335-03
 ;;9002226.02101,"868,00409-7336-04 ",.01)
 ;;00409-7336-04
 ;;9002226.02101,"868,00409-7336-04 ",.02)
 ;;00409-7336-04
 ;;9002226.02101,"868,00409-7336-49 ",.01)
 ;;00409-7336-49
 ;;9002226.02101,"868,00409-7336-49 ",.02)
 ;;00409-7336-49
 ;;9002226.02101,"868,00409-7337-01 ",.01)
 ;;00409-7337-01
 ;;9002226.02101,"868,00409-7337-01 ",.02)
 ;;00409-7337-01
 ;;9002226.02101,"868,00409-7338-01 ",.01)
 ;;00409-7338-01
 ;;9002226.02101,"868,00409-7338-01 ",.02)
 ;;00409-7338-01
 ;;9002226.02101,"868,00430-0113-20 ",.01)
 ;;00430-0113-20
 ;;9002226.02101,"868,00430-0113-20 ",.02)
 ;;00430-0113-20
 ;;9002226.02101,"868,00430-0114-20 ",.01)
 ;;00430-0114-20
 ;;9002226.02101,"868,00430-0114-20 ",.02)
 ;;00430-0114-20
 ;;9002226.02101,"868,00430-0115-20 ",.01)
 ;;00430-0115-20
 ;;9002226.02101,"868,00430-0115-20 ",.02)
 ;;00430-0115-20
 ;;9002226.02101,"868,00430-0115-95 ",.01)
 ;;00430-0115-95
 ;;9002226.02101,"868,00430-0115-95 ",.02)
 ;;00430-0115-95
 ;;9002226.02101,"868,00430-2782-17 ",.01)
 ;;00430-2782-17
 ;;9002226.02101,"868,00430-2782-17 ",.02)
 ;;00430-2782-17
 ;;9002226.02101,"868,00430-2783-17 ",.01)
 ;;00430-2783-17
 ;;9002226.02101,"868,00430-2783-17 ",.02)
 ;;00430-2783-17
 ;;9002226.02101,"868,00440-1101-30 ",.01)
 ;;00440-1101-30
 ;;9002226.02101,"868,00440-1101-30 ",.02)
 ;;00440-1101-30
 ;;9002226.02101,"868,00440-2406-20 ",.01)
 ;;00440-2406-20
 ;;9002226.02101,"868,00440-2406-20 ",.02)
 ;;00440-2406-20
 ;;9002226.02101,"868,00440-7240-28 ",.01)
 ;;00440-7240-28
 ;;9002226.02101,"868,00440-7240-28 ",.02)
 ;;00440-7240-28
 ;;9002226.02101,"868,00440-7241-21 ",.01)
 ;;00440-7241-21
 ;;9002226.02101,"868,00440-7241-21 ",.02)
 ;;00440-7241-21
 ;;9002226.02101,"868,00440-7290-06 ",.01)
 ;;00440-7290-06
 ;;9002226.02101,"868,00440-7290-06 ",.02)
 ;;00440-7290-06
 ;;9002226.02101,"868,00440-7291-20 ",.01)
 ;;00440-7291-20
 ;;9002226.02101,"868,00440-7291-20 ",.02)
 ;;00440-7291-20
 ;;9002226.02101,"868,00440-7483-92 ",.01)
 ;;00440-7483-92
 ;;9002226.02101,"868,00440-7483-92 ",.02)
 ;;00440-7483-92
 ;;9002226.02101,"868,00440-7512-40 ",.01)
 ;;00440-7512-40
 ;;9002226.02101,"868,00440-7512-40 ",.02)
 ;;00440-7512-40
 ;;9002226.02101,"868,00440-8050-40 ",.01)
 ;;00440-8050-40
 ;;9002226.02101,"868,00440-8050-40 ",.02)
 ;;00440-8050-40
 ;;9002226.02101,"868,00440-8358-20 ",.01)
 ;;00440-8358-20
 ;;9002226.02101,"868,00440-8358-20 ",.02)
 ;;00440-8358-20
 ;;9002226.02101,"868,00440-8505-40 ",.01)
 ;;00440-8505-40
 ;;9002226.02101,"868,00440-8505-40 ",.02)
 ;;00440-8505-40
 ;;9002226.02101,"868,00472-0850-10 ",.01)
 ;;00472-0850-10
 ;;9002226.02101,"868,00472-0850-10 ",.02)
 ;;00472-0850-10
 ;;9002226.02101,"868,00472-1285-16 ",.01)
 ;;00472-1285-16
 ;;9002226.02101,"868,00472-1285-16 ",.02)
 ;;00472-1285-16
 ;;9002226.02101,"868,00472-1285-33 ",.01)
 ;;00472-1285-33
 ;;9002226.02101,"868,00472-1285-33 ",.02)
 ;;00472-1285-33
 ;;9002226.02101,"868,00517-8711-10 ",.01)
 ;;00517-8711-10
 ;;9002226.02101,"868,00517-8711-10 ",.02)
 ;;00517-8711-10
 ;;9002226.02101,"868,00517-8722-10 ",.01)
 ;;00517-8722-10
 ;;9002226.02101,"868,00517-8722-10 ",.02)
 ;;00517-8722-10
 ;;9002226.02101,"868,00517-8725-10 ",.01)
 ;;00517-8725-10
 ;;9002226.02101,"868,00517-8725-10 ",.02)
 ;;00517-8725-10
 ;;9002226.02101,"868,00517-8750-10 ",.01)
 ;;00517-8750-10
 ;;9002226.02101,"868,00517-8750-10 ",.02)
 ;;00517-8750-10
 ;;9002226.02101,"868,00527-1335-01 ",.01)
 ;;00527-1335-01
 ;;9002226.02101,"868,00527-1335-01 ",.02)
 ;;00527-1335-01
 ;;9002226.02101,"868,00527-1336-01 ",.01)
 ;;00527-1336-01
 ;;9002226.02101,"868,00527-1336-01 ",.02)
 ;;00527-1336-01
 ;;9002226.02101,"868,00527-1338-25 ",.01)
 ;;00527-1338-25
 ;;9002226.02101,"868,00527-1338-25 ",.02)
 ;;00527-1338-25
 ;;9002226.02101,"868,00527-1338-50 ",.01)
 ;;00527-1338-50
 ;;9002226.02101,"868,00527-1338-50 ",.02)
 ;;00527-1338-50
 ;;9002226.02101,"868,00527-1381-04 ",.01)
 ;;00527-1381-04
 ;;9002226.02101,"868,00527-1381-04 ",.02)
 ;;00527-1381-04
 ;;9002226.02101,"868,00527-1382-01 ",.01)
 ;;00527-1382-01
 ;;9002226.02101,"868,00527-1382-01 ",.02)
 ;;00527-1382-01
 ;;9002226.02101,"868,00527-1383-01 ",.01)
 ;;00527-1383-01
 ;;9002226.02101,"868,00527-1383-01 ",.02)
 ;;00527-1383-01
 ;;9002226.02101,"868,00527-1383-02 ",.01)
 ;;00527-1383-02
 ;;9002226.02101,"868,00527-1383-02 ",.02)
 ;;00527-1383-02
 ;;9002226.02101,"868,00527-1384-01 ",.01)
 ;;00527-1384-01
 ;;9002226.02101,"868,00527-1384-01 ",.02)
 ;;00527-1384-01
 ;;9002226.02101,"868,00527-1385-01 ",.01)
 ;;00527-1385-01
 ;;9002226.02101,"868,00527-1385-01 ",.02)
 ;;00527-1385-01
 ;;9002226.02101,"868,00527-1386-50 ",.01)
 ;;00527-1386-50
 ;;9002226.02101,"868,00527-1386-50 ",.02)
 ;;00527-1386-50
 ;;9002226.02101,"868,00527-1442-01 ",.01)
 ;;00527-1442-01
 ;;9002226.02101,"868,00527-1442-01 ",.02)
 ;;00527-1442-01
 ;;9002226.02101,"868,00527-1443-01 ",.01)
 ;;00527-1443-01
 ;;9002226.02101,"868,00527-1443-01 ",.02)
 ;;00527-1443-01
 ;;9002226.02101,"868,00527-1443-05 ",.01)
 ;;00527-1443-05
 ;;9002226.02101,"868,00527-1443-05 ",.02)
 ;;00527-1443-05
 ;;9002226.02101,"868,00527-1535-01 ",.01)
 ;;00527-1535-01
 ;;9002226.02101,"868,00527-1535-01 ",.02)
 ;;00527-1535-01
 ;;9002226.02101,"868,00527-1537-30 ",.01)
 ;;00527-1537-30
 ;;9002226.02101,"868,00527-1537-30 ",.02)
 ;;00527-1537-30
 ;;9002226.02101,"868,00527-1931-06 ",.01)
 ;;00527-1931-06
 ;;9002226.02101,"868,00527-1931-06 ",.02)
 ;;00527-1931-06
 ;;9002226.02101,"868,00527-1932-06 ",.01)
 ;;00527-1932-06
 ;;9002226.02101,"868,00527-1932-06 ",.02)
 ;;00527-1932-06
 ;;9002226.02101,"868,00555-0178-01 ",.01)
 ;;00555-0178-01
 ;;9002226.02101,"868,00555-0178-01 ",.02)
 ;;00555-0178-01
 ;;9002226.02101,"868,00555-0178-02 ",.01)
 ;;00555-0178-02