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

BGP47D30.m

Go to the documentation of this file.
BGP47D30 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,00247-2358-01 ",.02)
 ;;00247-2358-01
 ;;9002226.02101,"734,00247-2358-02 ",.01)
 ;;00247-2358-02
 ;;9002226.02101,"734,00247-2358-02 ",.02)
 ;;00247-2358-02
 ;;9002226.02101,"734,00247-2358-06 ",.01)
 ;;00247-2358-06
 ;;9002226.02101,"734,00247-2358-06 ",.02)
 ;;00247-2358-06
 ;;9002226.02101,"734,00264-3102-11 ",.01)
 ;;00264-3102-11
 ;;9002226.02101,"734,00264-3102-11 ",.02)
 ;;00264-3102-11
 ;;9002226.02101,"734,00264-3103-11 ",.01)
 ;;00264-3103-11
 ;;9002226.02101,"734,00264-3103-11 ",.02)
 ;;00264-3103-11
 ;;9002226.02101,"734,00264-3105-11 ",.01)
 ;;00264-3105-11
 ;;9002226.02101,"734,00264-3105-11 ",.02)
 ;;00264-3105-11
 ;;9002226.02101,"734,00264-3112-11 ",.01)
 ;;00264-3112-11
 ;;9002226.02101,"734,00264-3112-11 ",.02)
 ;;00264-3112-11
 ;;9002226.02101,"734,00264-3114-11 ",.01)
 ;;00264-3114-11
 ;;9002226.02101,"734,00264-3114-11 ",.02)
 ;;00264-3114-11
 ;;9002226.02101,"734,00264-3153-11 ",.01)
 ;;00264-3153-11
 ;;9002226.02101,"734,00264-3153-11 ",.02)
 ;;00264-3153-11
 ;;9002226.02101,"734,00264-3155-11 ",.01)
 ;;00264-3155-11
 ;;9002226.02101,"734,00264-3155-11 ",.02)
 ;;00264-3155-11
 ;;9002226.02101,"734,00299-3822-30 ",.01)
 ;;00299-3822-30
 ;;9002226.02101,"734,00299-3822-30 ",.02)
 ;;00299-3822-30
 ;;9002226.02101,"734,00299-5960-02 ",.01)
 ;;00299-5960-02
 ;;9002226.02101,"734,00299-5960-02 ",.02)
 ;;00299-5960-02
 ;;9002226.02101,"734,00316-0142-01 ",.01)
 ;;00316-0142-01
 ;;9002226.02101,"734,00316-0142-01 ",.02)
 ;;00316-0142-01
 ;;9002226.02101,"734,00338-0960-37 ",.01)
 ;;00338-0960-37
 ;;9002226.02101,"734,00338-0960-37 ",.02)
 ;;00338-0960-37
 ;;9002226.02101,"734,00338-0960-48 ",.01)
 ;;00338-0960-48
 ;;9002226.02101,"734,00338-0960-48 ",.02)
 ;;00338-0960-48
 ;;9002226.02101,"734,00338-1021-41 ",.01)
 ;;00338-1021-41
 ;;9002226.02101,"734,00338-1021-41 ",.02)
 ;;00338-1021-41
 ;;9002226.02101,"734,00338-1023-41 ",.01)
 ;;00338-1023-41
 ;;9002226.02101,"734,00338-1023-41 ",.02)
 ;;00338-1023-41
 ;;9002226.02101,"734,00338-1025-41 ",.01)
 ;;00338-1025-41
 ;;9002226.02101,"734,00338-1025-41 ",.02)
 ;;00338-1025-41
 ;;9002226.02101,"734,00338-3502-41 ",.01)
 ;;00338-3502-41
 ;;9002226.02101,"734,00338-3502-41 ",.02)
 ;;00338-3502-41
 ;;9002226.02101,"734,00338-3503-41 ",.01)
 ;;00338-3503-41
 ;;9002226.02101,"734,00338-3503-41 ",.02)
 ;;00338-3503-41
 ;;9002226.02101,"734,00338-5002-41 ",.01)
 ;;00338-5002-41
 ;;9002226.02101,"734,00338-5002-41 ",.02)
 ;;00338-5002-41
 ;;9002226.02101,"734,00338-5003-41 ",.01)
 ;;00338-5003-41
 ;;9002226.02101,"734,00338-5003-41 ",.02)
 ;;00338-5003-41
 ;;9002226.02101,"734,00364-2033-50 ",.01)
 ;;00364-2033-50
 ;;9002226.02101,"734,00364-2033-50 ",.02)
 ;;00364-2033-50
 ;;9002226.02101,"734,00364-2464-34 ",.01)
 ;;00364-2464-34
 ;;9002226.02101,"734,00364-2464-34 ",.02)
 ;;00364-2464-34
 ;;9002226.02101,"734,00364-2466-93 ",.01)
 ;;00364-2466-93
 ;;9002226.02101,"734,00364-2466-93 ",.02)
 ;;00364-2466-93
 ;;9002226.02101,"734,00364-2906-38 ",.01)
 ;;00364-2906-38
 ;;9002226.02101,"734,00364-2906-38 ",.02)
 ;;00364-2906-38
 ;;9002226.02101,"734,00364-2908-61 ",.01)
 ;;00364-2908-61
 ;;9002226.02101,"734,00364-2908-61 ",.02)
 ;;00364-2908-61
 ;;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-1322-05 ",.01)
 ;;00378-1322-05
 ;;9002226.02101,"734,00378-1322-05 ",.02)
 ;;00378-1322-05
 ;;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-1534-53 ",.01)
 ;;00378-1534-53
 ;;9002226.02101,"734,00378-1534-53 ",.02)
 ;;00378-1534-53
 ;;9002226.02101,"734,00378-1534-59 ",.01)
 ;;00378-1534-59
 ;;9002226.02101,"734,00378-1534-59 ",.02)
 ;;00378-1534-59
 ;;9002226.02101,"734,00378-1535-93 ",.01)
 ;;00378-1535-93
 ;;9002226.02101,"734,00378-1535-93 ",.02)
 ;;00378-1535-93
 ;;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-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-15 ",.01)
 ;;00430-2782-15
 ;;9002226.02101,"734,00430-2782-15 ",.02)
 ;;00430-2782-15
 ;;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-16 ",.01)
 ;;00430-2783-16
 ;;9002226.02101,"734,00430-2783-16 ",.02)
 ;;00430-2783-16
 ;;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