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