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

BGP06B27.m

Go to the documentation of this file.
  1. BGP06B27 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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,"975,55370-0531-07 ",.01)
  1. ;;55370-0531-07
  1. ;;9002226.02101,"975,55370-0531-07 ",.02)
  1. ;;55370-0531-07
  1. ;;9002226.02101,"975,55370-0532-07 ",.01)
  1. ;;55370-0532-07
  1. ;;9002226.02101,"975,55370-0532-07 ",.02)
  1. ;;55370-0532-07
  1. ;;9002226.02101,"975,55829-0142-10 ",.01)
  1. ;;55829-0142-10
  1. ;;9002226.02101,"975,55829-0142-10 ",.02)
  1. ;;55829-0142-10
  1. ;;9002226.02101,"975,55829-0143-10 ",.01)
  1. ;;55829-0143-10
  1. ;;9002226.02101,"975,55829-0143-10 ",.02)
  1. ;;55829-0143-10
  1. ;;9002226.02101,"975,55829-0144-10 ",.01)
  1. ;;55829-0144-10
  1. ;;9002226.02101,"975,55829-0144-10 ",.02)
  1. ;;55829-0144-10
  1. ;;9002226.02101,"975,55829-0145-10 ",.01)
  1. ;;55829-0145-10
  1. ;;9002226.02101,"975,55829-0145-10 ",.02)
  1. ;;55829-0145-10
  1. ;;9002226.02101,"975,55829-0146-10 ",.01)
  1. ;;55829-0146-10
  1. ;;9002226.02101,"975,55829-0146-10 ",.02)
  1. ;;55829-0146-10
  1. ;;9002226.02101,"975,55829-0147-10 ",.01)
  1. ;;55829-0147-10
  1. ;;9002226.02101,"975,55829-0147-10 ",.02)
  1. ;;55829-0147-10
  1. ;;9002226.02101,"975,55829-0222-10 ",.01)
  1. ;;55829-0222-10
  1. ;;9002226.02101,"975,55829-0222-10 ",.02)
  1. ;;55829-0222-10
  1. ;;9002226.02101,"975,55829-0223-10 ",.01)
  1. ;;55829-0223-10
  1. ;;9002226.02101,"975,55829-0223-10 ",.02)
  1. ;;55829-0223-10
  1. ;;9002226.02101,"975,55829-0224-10 ",.01)
  1. ;;55829-0224-10
  1. ;;9002226.02101,"975,55829-0224-10 ",.02)
  1. ;;55829-0224-10
  1. ;;9002226.02101,"975,55829-0520-10 ",.01)
  1. ;;55829-0520-10
  1. ;;9002226.02101,"975,55829-0520-10 ",.02)
  1. ;;55829-0520-10
  1. ;;9002226.02101,"975,55829-0521-10 ",.01)
  1. ;;55829-0521-10
  1. ;;9002226.02101,"975,55829-0521-10 ",.02)
  1. ;;55829-0521-10
  1. ;;9002226.02101,"975,55887-0490-30 ",.01)
  1. ;;55887-0490-30
  1. ;;9002226.02101,"975,55887-0490-30 ",.02)
  1. ;;55887-0490-30
  1. ;;9002226.02101,"975,55887-0490-60 ",.01)
  1. ;;55887-0490-60
  1. ;;9002226.02101,"975,55887-0490-60 ",.02)
  1. ;;55887-0490-60
  1. ;;9002226.02101,"975,55887-0490-82 ",.01)
  1. ;;55887-0490-82
  1. ;;9002226.02101,"975,55887-0490-82 ",.02)
  1. ;;55887-0490-82
  1. ;;9002226.02101,"975,55887-0490-90 ",.01)
  1. ;;55887-0490-90
  1. ;;9002226.02101,"975,55887-0490-90 ",.02)
  1. ;;55887-0490-90
  1. ;;9002226.02101,"975,55887-0511-20 ",.01)
  1. ;;55887-0511-20
  1. ;;9002226.02101,"975,55887-0511-20 ",.02)
  1. ;;55887-0511-20
  1. ;;9002226.02101,"975,55887-0511-30 ",.01)
  1. ;;55887-0511-30
  1. ;;9002226.02101,"975,55887-0511-30 ",.02)
  1. ;;55887-0511-30
  1. ;;9002226.02101,"975,55887-0511-60 ",.01)
  1. ;;55887-0511-60
  1. ;;9002226.02101,"975,55887-0511-60 ",.02)
  1. ;;55887-0511-60
  1. ;;9002226.02101,"975,55887-0511-82 ",.01)
  1. ;;55887-0511-82
  1. ;;9002226.02101,"975,55887-0511-82 ",.02)
  1. ;;55887-0511-82
  1. ;;9002226.02101,"975,55887-0511-90 ",.01)
  1. ;;55887-0511-90
  1. ;;9002226.02101,"975,55887-0511-90 ",.02)
  1. ;;55887-0511-90
  1. ;;9002226.02101,"975,55887-0549-30 ",.01)
  1. ;;55887-0549-30
  1. ;;9002226.02101,"975,55887-0549-30 ",.02)
  1. ;;55887-0549-30
  1. ;;9002226.02101,"975,55887-0549-60 ",.01)
  1. ;;55887-0549-60
  1. ;;9002226.02101,"975,55887-0549-60 ",.02)
  1. ;;55887-0549-60
  1. ;;9002226.02101,"975,55887-0549-90 ",.01)
  1. ;;55887-0549-90
  1. ;;9002226.02101,"975,55887-0549-90 ",.02)
  1. ;;55887-0549-90
  1. ;;9002226.02101,"975,55887-0650-30 ",.01)
  1. ;;55887-0650-30
  1. ;;9002226.02101,"975,55887-0650-30 ",.02)
  1. ;;55887-0650-30
  1. ;;9002226.02101,"975,55887-0745-50 ",.01)
  1. ;;55887-0745-50
  1. ;;9002226.02101,"975,55887-0745-50 ",.02)
  1. ;;55887-0745-50
  1. ;;9002226.02101,"975,55953-0031-40 ",.01)
  1. ;;55953-0031-40
  1. ;;9002226.02101,"975,55953-0031-40 ",.02)
  1. ;;55953-0031-40
  1. ;;9002226.02101,"975,55953-0031-70 ",.01)
  1. ;;55953-0031-70
  1. ;;9002226.02101,"975,55953-0031-70 ",.02)
  1. ;;55953-0031-70
  1. ;;9002226.02101,"975,55953-0032-40 ",.01)
  1. ;;55953-0032-40
  1. ;;9002226.02101,"975,55953-0032-40 ",.02)
  1. ;;55953-0032-40
  1. ;;9002226.02101,"975,55953-0032-70 ",.01)
  1. ;;55953-0032-70
  1. ;;9002226.02101,"975,55953-0032-70 ",.02)
  1. ;;55953-0032-70
  1. ;;9002226.02101,"975,55953-0033-40 ",.01)
  1. ;;55953-0033-40
  1. ;;9002226.02101,"975,55953-0033-40 ",.02)
  1. ;;55953-0033-40
  1. ;;9002226.02101,"975,56126-0054-11 ",.01)
  1. ;;56126-0054-11
  1. ;;9002226.02101,"975,56126-0054-11 ",.02)
  1. ;;56126-0054-11
  1. ;;9002226.02101,"975,56126-0055-11 ",.01)
  1. ;;56126-0055-11
  1. ;;9002226.02101,"975,56126-0055-11 ",.02)
  1. ;;56126-0055-11
  1. ;;9002226.02101,"975,56126-0056-11 ",.01)
  1. ;;56126-0056-11
  1. ;;9002226.02101,"975,56126-0056-11 ",.02)
  1. ;;56126-0056-11
  1. ;;9002226.02101,"975,56126-0133-11 ",.01)
  1. ;;56126-0133-11
  1. ;;9002226.02101,"975,56126-0133-11 ",.02)
  1. ;;56126-0133-11
  1. ;;9002226.02101,"975,56126-0135-11 ",.01)
  1. ;;56126-0135-11
  1. ;;9002226.02101,"975,56126-0135-11 ",.02)
  1. ;;56126-0135-11
  1. ;;9002226.02101,"975,56126-0137-11 ",.01)
  1. ;;56126-0137-11
  1. ;;9002226.02101,"975,56126-0137-11 ",.02)
  1. ;;56126-0137-11
  1. ;;9002226.02101,"975,56126-0182-11 ",.01)
  1. ;;56126-0182-11
  1. ;;9002226.02101,"975,56126-0182-11 ",.02)
  1. ;;56126-0182-11
  1. ;;9002226.02101,"975,56126-0183-11 ",.01)
  1. ;;56126-0183-11
  1. ;;9002226.02101,"975,56126-0183-11 ",.02)
  1. ;;56126-0183-11
  1. ;;9002226.02101,"975,56126-0185-11 ",.01)
  1. ;;56126-0185-11
  1. ;;9002226.02101,"975,56126-0185-11 ",.02)
  1. ;;56126-0185-11
  1. ;;9002226.02101,"975,56126-0345-11 ",.01)
  1. ;;56126-0345-11
  1. ;;9002226.02101,"975,56126-0345-11 ",.02)
  1. ;;56126-0345-11
  1. ;;9002226.02101,"975,56126-0346-11 ",.01)
  1. ;;56126-0346-11
  1. ;;9002226.02101,"975,56126-0346-11 ",.02)
  1. ;;56126-0346-11
  1. ;;9002226.02101,"975,56126-0347-11 ",.01)
  1. ;;56126-0347-11
  1. ;;9002226.02101,"975,56126-0347-11 ",.02)
  1. ;;56126-0347-11
  1. ;;9002226.02101,"975,56126-0348-11 ",.01)
  1. ;;56126-0348-11
  1. ;;9002226.02101,"975,56126-0348-11 ",.02)
  1. ;;56126-0348-11
  1. ;;9002226.02101,"975,56126-0349-11 ",.01)
  1. ;;56126-0349-11
  1. ;;9002226.02101,"975,56126-0349-11 ",.02)
  1. ;;56126-0349-11
  1. ;;9002226.02101,"975,56126-0368-11 ",.01)
  1. ;;56126-0368-11
  1. ;;9002226.02101,"975,56126-0368-11 ",.02)
  1. ;;56126-0368-11
  1. ;;9002226.02101,"975,56126-0369-11 ",.01)
  1. ;;56126-0369-11
  1. ;;9002226.02101,"975,56126-0369-11 ",.02)
  1. ;;56126-0369-11
  1. ;;9002226.02101,"975,56126-0376-11 ",.01)
  1. ;;56126-0376-11
  1. ;;9002226.02101,"975,56126-0376-11 ",.02)
  1. ;;56126-0376-11
  1. ;;9002226.02101,"975,56126-0377-11 ",.01)
  1. ;;56126-0377-11
  1. ;;9002226.02101,"975,56126-0377-11 ",.02)
  1. ;;56126-0377-11
  1. ;;9002226.02101,"975,56126-0401-11 ",.01)
  1. ;;56126-0401-11
  1. ;;9002226.02101,"975,56126-0401-11 ",.02)
  1. ;;56126-0401-11
  1. ;;9002226.02101,"975,57480-0320-01 ",.01)
  1. ;;57480-0320-01
  1. ;;9002226.02101,"975,57480-0320-01 ",.02)
  1. ;;57480-0320-01
  1. ;;9002226.02101,"975,57480-0369-01 ",.01)
  1. ;;57480-0369-01
  1. ;;9002226.02101,"975,57480-0369-01 ",.02)
  1. ;;57480-0369-01
  1. ;;9002226.02101,"975,57480-0369-06 ",.01)
  1. ;;57480-0369-06
  1. ;;9002226.02101,"975,57480-0369-06 ",.02)
  1. ;;57480-0369-06
  1. ;;9002226.02101,"975,57480-0370-01 ",.01)
  1. ;;57480-0370-01
  1. ;;9002226.02101,"975,57480-0370-01 ",.02)
  1. ;;57480-0370-01
  1. ;;9002226.02101,"975,57480-0370-06 ",.01)
  1. ;;57480-0370-06
  1. ;;9002226.02101,"975,57480-0370-06 ",.02)
  1. ;;57480-0370-06
  1. ;;9002226.02101,"975,57480-0480-01 ",.01)
  1. ;;57480-0480-01
  1. ;;9002226.02101,"975,57480-0480-01 ",.02)
  1. ;;57480-0480-01
  1. ;;9002226.02101,"975,57480-0481-01 ",.01)
  1. ;;57480-0481-01
  1. ;;9002226.02101,"975,57480-0481-01 ",.02)
  1. ;;57480-0481-01
  1. ;;9002226.02101,"975,57480-0826-06 ",.01)
  1. ;;57480-0826-06
  1. ;;9002226.02101,"975,57480-0826-06 ",.02)
  1. ;;57480-0826-06
  1. ;;9002226.02101,"975,57664-0357-88 ",.01)
  1. ;;57664-0357-88
  1. ;;9002226.02101,"975,57664-0357-88 ",.02)
  1. ;;57664-0357-88
  1. ;;9002226.02101,"975,57664-0361-13 ",.01)
  1. ;;57664-0361-13
  1. ;;9002226.02101,"975,57664-0361-13 ",.02)
  1. ;;57664-0361-13
  1. ;;9002226.02101,"975,57664-0361-88 ",.01)
  1. ;;57664-0361-88
  1. ;;9002226.02101,"975,57664-0361-88 ",.02)
  1. ;;57664-0361-88
  1. ;;9002226.02101,"975,57664-0362-13 ",.01)
  1. ;;57664-0362-13
  1. ;;9002226.02101,"975,57664-0362-13 ",.02)
  1. ;;57664-0362-13
  1. ;;9002226.02101,"975,57664-0362-88 ",.01)
  1. ;;57664-0362-88
  1. ;;9002226.02101,"975,57664-0362-88 ",.02)
  1. ;;57664-0362-88
  1. ;;9002226.02101,"975,57664-0499-18 ",.01)
  1. ;;57664-0499-18
  1. ;;9002226.02101,"975,57664-0499-18 ",.02)
  1. ;;57664-0499-18
  1. ;;9002226.02101,"975,57664-0499-83 ",.01)
  1. ;;57664-0499-83
  1. ;;9002226.02101,"975,57664-0499-83 ",.02)
  1. ;;57664-0499-83
  1. ;;9002226.02101,"975,57664-0500-18 ",.01)
  1. ;;57664-0500-18
  1. ;;9002226.02101,"975,57664-0500-18 ",.02)
  1. ;;57664-0500-18
  1. ;;9002226.02101,"975,57664-0500-83 ",.01)
  1. ;;57664-0500-83
  1. ;;9002226.02101,"975,57664-0500-83 ",.02)
  1. ;;57664-0500-83
  1. ;;9002226.02101,"975,57664-0501-18 ",.01)
  1. ;;57664-0501-18
  1. ;;9002226.02101,"975,57664-0501-18 ",.02)
  1. ;;57664-0501-18
  1. ;;9002226.02101,"975,57664-0501-83 ",.01)
  1. ;;57664-0501-83
  1. ;;9002226.02101,"975,57664-0501-83 ",.02)
  1. ;;57664-0501-83
  1. ;;9002226.02101,"975,57664-0507-13 ",.01)
  1. ;;57664-0507-13
  1. ;;9002226.02101,"975,57664-0507-13 ",.02)
  1. ;;57664-0507-13
  1. ;;9002226.02101,"975,57664-0507-18 ",.01)
  1. ;;57664-0507-18
  1. ;;9002226.02101,"975,57664-0507-18 ",.02)
  1. ;;57664-0507-18
  1. ;;9002226.02101,"975,57664-0507-88 ",.01)
  1. ;;57664-0507-88
  1. ;;9002226.02101,"975,57664-0507-88 ",.02)
  1. ;;57664-0507-88
  1. ;;9002226.02101,"975,57664-0508-13 ",.01)
  1. ;;57664-0508-13
  1. ;;9002226.02101,"975,57664-0508-13 ",.02)
  1. ;;57664-0508-13
  1. ;;9002226.02101,"975,57664-0508-18 ",.01)
  1. ;;57664-0508-18
  1. ;;9002226.02101,"975,57664-0508-18 ",.02)
  1. ;;57664-0508-18
  1. ;;9002226.02101,"975,57664-0508-88 ",.01)
  1. ;;57664-0508-88
  1. ;;9002226.02101,"975,57664-0508-88 ",.02)
  1. ;;57664-0508-88
  1. ;;9002226.02101,"975,57664-0509-13 ",.01)
  1. ;;57664-0509-13
  1. ;;9002226.02101,"975,57664-0509-13 ",.02)
  1. ;;57664-0509-13
  1. ;;9002226.02101,"975,57664-0509-18 ",.01)
  1. ;;57664-0509-18
  1. ;;9002226.02101,"975,57664-0509-18 ",.02)
  1. ;;57664-0509-18
  1. ;;9002226.02101,"975,57664-0509-88 ",.01)
  1. ;;57664-0509-88
  1. ;;9002226.02101,"975,57664-0509-88 ",.02)
  1. ;;57664-0509-88
  1. ;;9002226.02101,"975,57664-0510-83 ",.01)
  1. ;;57664-0510-83
  1. ;;9002226.02101,"975,57664-0510-83 ",.02)
  1. ;;57664-0510-83
  1. ;;9002226.02101,"975,57866-0045-08 ",.01)
  1. ;;57866-0045-08
  1. ;;9002226.02101,"975,57866-0045-08 ",.02)
  1. ;;57866-0045-08
  1. ;;9002226.02101,"975,57866-0901-02 ",.01)
  1. ;;57866-0901-02
  1. ;;9002226.02101,"975,57866-0901-02 ",.02)
  1. ;;57866-0901-02
  1. ;;9002226.02101,"975,57866-0920-01 ",.01)
  1. ;;57866-0920-01
  1. ;;9002226.02101,"975,57866-0920-01 ",.02)
  1. ;;57866-0920-01
  1. ;;9002226.02101,"975,57866-0920-02 ",.01)
  1. ;;57866-0920-02
  1. ;;9002226.02101,"975,57866-0920-02 ",.02)
  1. ;;57866-0920-02
  1. ;;9002226.02101,"975,57866-0920-03 ",.01)
  1. ;;57866-0920-03
  1. ;;9002226.02101,"975,57866-0920-03 ",.02)
  1. ;;57866-0920-03
  1. ;;9002226.02101,"975,57866-0922-01 ",.01)
  1. ;;57866-0922-01
  1. ;;9002226.02101,"975,57866-0922-01 ",.02)
  1. ;;57866-0922-01
  1. ;;9002226.02101,"975,57866-0922-02 ",.01)
  1. ;;57866-0922-02
  1. ;;9002226.02101,"975,57866-0922-02 ",.02)
  1. ;;57866-0922-02
  1. ;;9002226.02101,"975,57866-0922-03 ",.01)
  1. ;;57866-0922-03
  1. ;;9002226.02101,"975,57866-0922-03 ",.02)
  1. ;;57866-0922-03
  1. ;;9002226.02101,"975,57866-1035-01 ",.01)
  1. ;;57866-1035-01
  1. ;;9002226.02101,"975,57866-1035-01 ",.02)
  1. ;;57866-1035-01
  1. ;;9002226.02101,"975,57866-3072-02 ",.01)
  1. ;;57866-3072-02
  1. ;;9002226.02101,"975,57866-3072-02 ",.02)
  1. ;;57866-3072-02
  1. ;;9002226.02101,"975,57866-3072-10 ",.01)
  1. ;;57866-3072-10
  1. ;;9002226.02101,"975,57866-3072-10 ",.02)
  1. ;;57866-3072-10
  1. ;;9002226.02101,"975,57866-3073-01 ",.01)
  1. ;;57866-3073-01
  1. ;;9002226.02101,"975,57866-3073-01 ",.02)
  1. ;;57866-3073-01
  1. ;;9002226.02101,"975,57866-3073-02 ",.01)
  1. ;;57866-3073-02
  1. ;;9002226.02101,"975,57866-3073-02 ",.02)
  1. ;;57866-3073-02
  1. ;;9002226.02101,"975,57866-3073-03 ",.01)
  1. ;;57866-3073-03
  1. ;;9002226.02101,"975,57866-3073-03 ",.02)
  1. ;;57866-3073-03
  1. ;;9002226.02101,"975,57866-3083-05 ",.01)
  1. ;;57866-3083-05
  1. ;;9002226.02101,"975,57866-3083-05 ",.02)
  1. ;;57866-3083-05
  1. ;;9002226.02101,"975,57866-3930-01 ",.01)
  1. ;;57866-3930-01
  1. ;;9002226.02101,"975,57866-3930-01 ",.02)
  1. ;;57866-3930-01
  1. ;;9002226.02101,"975,57866-3931-01 ",.01)
  1. ;;57866-3931-01
  1. ;;9002226.02101,"975,57866-3931-01 ",.02)
  1. ;;57866-3931-01
  1. ;;9002226.02101,"975,57866-4422-01 ",.01)
  1. ;;57866-4422-01
  1. ;;9002226.02101,"975,57866-4422-01 ",.02)
  1. ;;57866-4422-01
  1. ;;9002226.02101,"975,57866-4564-01 ",.01)
  1. ;;57866-4564-01
  1. ;;9002226.02101,"975,57866-4564-01 ",.02)
  1. ;;57866-4564-01
  1. ;;9002226.02101,"975,57866-4565-01 ",.01)
  1. ;;57866-4565-01
  1. ;;9002226.02101,"975,57866-4565-01 ",.02)
  1. ;;57866-4565-01
  1. ;;9002226.02101,"975,57866-4565-02 ",.01)
  1. ;;57866-4565-02
  1. ;;9002226.02101,"975,57866-4565-02 ",.02)
  1. ;;57866-4565-02
  1. ;;9002226.02101,"975,57866-4565-03 ",.01)
  1. ;;57866-4565-03
  1. ;;9002226.02101,"975,57866-4565-03 ",.02)
  1. ;;57866-4565-03
  1. ;;9002226.02101,"975,57866-4565-04 ",.01)
  1. ;;57866-4565-04
  1. ;;9002226.02101,"975,57866-4565-04 ",.02)
  1. ;;57866-4565-04
  1. ;;9002226.02101,"975,57866-4566-01 ",.01)
  1. ;;57866-4566-01
  1. ;;9002226.02101,"975,57866-4566-01 ",.02)
  1. ;;57866-4566-01
  1. ;;9002226.02101,"975,57866-4688-01 ",.01)
  1. ;;57866-4688-01
  1. ;;9002226.02101,"975,57866-4688-01 ",.02)
  1. ;;57866-4688-01
  1. ;;9002226.02101,"975,57866-4688-02 ",.01)
  1. ;;57866-4688-02
  1. ;;9002226.02101,"975,57866-4688-02 ",.02)
  1. ;;57866-4688-02
  1. ;;9002226.02101,"975,57866-4688-03 ",.01)
  1. ;;57866-4688-03
  1. ;;9002226.02101,"975,57866-4688-03 ",.02)
  1. ;;57866-4688-03
  1. ;;9002226.02101,"975,57866-4688-04 ",.01)
  1. ;;57866-4688-04
  1. ;;9002226.02101,"975,57866-4688-04 ",.02)
  1. ;;57866-4688-04
  1. ;;9002226.02101,"975,57866-4715-01 ",.01)
  1. ;;57866-4715-01
  1. ;;9002226.02101,"975,57866-4715-01 ",.02)
  1. ;;57866-4715-01
  1. ;;9002226.02101,"975,57866-4715-02 ",.01)
  1. ;;57866-4715-02
  1. ;;9002226.02101,"975,57866-4715-02 ",.02)
  1. ;;57866-4715-02
  1. ;;9002226.02101,"975,57866-4715-03 ",.01)
  1. ;;57866-4715-03
  1. ;;9002226.02101,"975,57866-4715-03 ",.02)
  1. ;;57866-4715-03