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

BGP82I52.m

Go to the documentation of this file.
BGP82I52 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1733,62332-0052-30 ",.02)
 ;;62332-0052-30
 ;;9002226.02101,"1733,62332-0052-90 ",.01)
 ;;62332-0052-90
 ;;9002226.02101,"1733,62332-0052-90 ",.02)
 ;;62332-0052-90
 ;;9002226.02101,"1733,62332-0079-71 ",.01)
 ;;62332-0079-71
 ;;9002226.02101,"1733,62332-0079-71 ",.02)
 ;;62332-0079-71
 ;;9002226.02101,"1733,62332-0079-90 ",.01)
 ;;62332-0079-90
 ;;9002226.02101,"1733,62332-0079-90 ",.02)
 ;;62332-0079-90
 ;;9002226.02101,"1733,62332-0080-71 ",.01)
 ;;62332-0080-71
 ;;9002226.02101,"1733,62332-0080-71 ",.02)
 ;;62332-0080-71
 ;;9002226.02101,"1733,62332-0080-90 ",.01)
 ;;62332-0080-90
 ;;9002226.02101,"1733,62332-0080-90 ",.02)
 ;;62332-0080-90
 ;;9002226.02101,"1733,62332-0081-71 ",.01)
 ;;62332-0081-71
 ;;9002226.02101,"1733,62332-0081-71 ",.02)
 ;;62332-0081-71
 ;;9002226.02101,"1733,62332-0081-90 ",.01)
 ;;62332-0081-90
 ;;9002226.02101,"1733,62332-0081-90 ",.02)
 ;;62332-0081-90
 ;;9002226.02101,"1733,62332-0082-71 ",.01)
 ;;62332-0082-71
 ;;9002226.02101,"1733,62332-0082-71 ",.02)
 ;;62332-0082-71
 ;;9002226.02101,"1733,62332-0082-90 ",.01)
 ;;62332-0082-90
 ;;9002226.02101,"1733,62332-0082-90 ",.02)
 ;;62332-0082-90
 ;;9002226.02101,"1733,62332-0083-71 ",.01)
 ;;62332-0083-71
 ;;9002226.02101,"1733,62332-0083-71 ",.02)
 ;;62332-0083-71
 ;;9002226.02101,"1733,62332-0083-90 ",.01)
 ;;62332-0083-90
 ;;9002226.02101,"1733,62332-0083-90 ",.02)
 ;;62332-0083-90
 ;;9002226.02101,"1733,62332-0087-30 ",.01)
 ;;62332-0087-30
 ;;9002226.02101,"1733,62332-0087-30 ",.02)
 ;;62332-0087-30
 ;;9002226.02101,"1733,62332-0088-30 ",.01)
 ;;62332-0088-30
 ;;9002226.02101,"1733,62332-0088-30 ",.02)
 ;;62332-0088-30
 ;;9002226.02101,"1733,62332-0089-30 ",.01)
 ;;62332-0089-30
 ;;9002226.02101,"1733,62332-0089-30 ",.02)
 ;;62332-0089-30
 ;;9002226.02101,"1733,62332-0131-30 ",.01)
 ;;62332-0131-30
 ;;9002226.02101,"1733,62332-0131-30 ",.02)
 ;;62332-0131-30
 ;;9002226.02101,"1733,62332-0131-90 ",.01)
 ;;62332-0131-90
 ;;9002226.02101,"1733,62332-0131-90 ",.02)
 ;;62332-0131-90
 ;;9002226.02101,"1733,62332-0132-30 ",.01)
 ;;62332-0132-30
 ;;9002226.02101,"1733,62332-0132-30 ",.02)
 ;;62332-0132-30
 ;;9002226.02101,"1733,62332-0132-90 ",.01)
 ;;62332-0132-90
 ;;9002226.02101,"1733,62332-0132-90 ",.02)
 ;;62332-0132-90
 ;;9002226.02101,"1733,62332-0133-30 ",.01)
 ;;62332-0133-30
 ;;9002226.02101,"1733,62332-0133-30 ",.02)
 ;;62332-0133-30
 ;;9002226.02101,"1733,62332-0133-90 ",.01)
 ;;62332-0133-90
 ;;9002226.02101,"1733,62332-0133-90 ",.02)
 ;;62332-0133-90
 ;;9002226.02101,"1733,62332-0149-30 ",.01)
 ;;62332-0149-30
 ;;9002226.02101,"1733,62332-0149-30 ",.02)
 ;;62332-0149-30
 ;;9002226.02101,"1733,62332-0149-90 ",.01)
 ;;62332-0149-90
 ;;9002226.02101,"1733,62332-0149-90 ",.02)
 ;;62332-0149-90
 ;;9002226.02101,"1733,62332-0150-30 ",.01)
 ;;62332-0150-30
 ;;9002226.02101,"1733,62332-0150-30 ",.02)
 ;;62332-0150-30
 ;;9002226.02101,"1733,62332-0150-90 ",.01)
 ;;62332-0150-90
 ;;9002226.02101,"1733,62332-0150-90 ",.02)
 ;;62332-0150-90
 ;;9002226.02101,"1733,62332-0151-30 ",.01)
 ;;62332-0151-30
 ;;9002226.02101,"1733,62332-0151-30 ",.02)
 ;;62332-0151-30
 ;;9002226.02101,"1733,62332-0151-90 ",.01)
 ;;62332-0151-90
 ;;9002226.02101,"1733,62332-0151-90 ",.02)
 ;;62332-0151-90
 ;;9002226.02101,"1733,62332-0205-30 ",.01)
 ;;62332-0205-30
 ;;9002226.02101,"1733,62332-0205-30 ",.02)
 ;;62332-0205-30
 ;;9002226.02101,"1733,62332-0205-90 ",.01)
 ;;62332-0205-90
 ;;9002226.02101,"1733,62332-0205-90 ",.02)
 ;;62332-0205-90
 ;;9002226.02101,"1733,62332-0206-30 ",.01)
 ;;62332-0206-30
 ;;9002226.02101,"1733,62332-0206-30 ",.02)
 ;;62332-0206-30
 ;;9002226.02101,"1733,62332-0206-90 ",.01)
 ;;62332-0206-90
 ;;9002226.02101,"1733,62332-0206-90 ",.02)
 ;;62332-0206-90
 ;;9002226.02101,"1733,62332-0207-30 ",.01)
 ;;62332-0207-30
 ;;9002226.02101,"1733,62332-0207-30 ",.02)
 ;;62332-0207-30
 ;;9002226.02101,"1733,62332-0207-90 ",.01)
 ;;62332-0207-90
 ;;9002226.02101,"1733,62332-0207-90 ",.02)
 ;;62332-0207-90
 ;;9002226.02101,"1733,62332-0208-30 ",.01)
 ;;62332-0208-30
 ;;9002226.02101,"1733,62332-0208-30 ",.02)
 ;;62332-0208-30
 ;;9002226.02101,"1733,62332-0208-90 ",.01)
 ;;62332-0208-90
 ;;9002226.02101,"1733,62332-0208-90 ",.02)
 ;;62332-0208-90
 ;;9002226.02101,"1733,62332-0209-30 ",.01)
 ;;62332-0209-30
 ;;9002226.02101,"1733,62332-0209-30 ",.02)
 ;;62332-0209-30
 ;;9002226.02101,"1733,62332-0210-30 ",.01)
 ;;62332-0210-30
 ;;9002226.02101,"1733,62332-0210-30 ",.02)
 ;;62332-0210-30
 ;;9002226.02101,"1733,62332-0211-30 ",.01)
 ;;62332-0211-30
 ;;9002226.02101,"1733,62332-0211-30 ",.02)
 ;;62332-0211-30
 ;;9002226.02101,"1733,63187-0370-30 ",.01)
 ;;63187-0370-30
 ;;9002226.02101,"1733,63187-0370-30 ",.02)
 ;;63187-0370-30
 ;;9002226.02101,"1733,63187-0391-90 ",.01)
 ;;63187-0391-90
 ;;9002226.02101,"1733,63187-0391-90 ",.02)
 ;;63187-0391-90
 ;;9002226.02101,"1733,63187-0393-90 ",.01)
 ;;63187-0393-90
 ;;9002226.02101,"1733,63187-0393-90 ",.02)
 ;;63187-0393-90
 ;;9002226.02101,"1733,63187-0394-30 ",.01)
 ;;63187-0394-30
 ;;9002226.02101,"1733,63187-0394-30 ",.02)
 ;;63187-0394-30
 ;;9002226.02101,"1733,63187-0394-90 ",.01)
 ;;63187-0394-90
 ;;9002226.02101,"1733,63187-0394-90 ",.02)
 ;;63187-0394-90
 ;;9002226.02101,"1733,63187-0397-30 ",.01)
 ;;63187-0397-30
 ;;9002226.02101,"1733,63187-0397-30 ",.02)
 ;;63187-0397-30
 ;;9002226.02101,"1733,63187-0757-30 ",.01)
 ;;63187-0757-30
 ;;9002226.02101,"1733,63187-0757-30 ",.02)
 ;;63187-0757-30
 ;;9002226.02101,"1733,63187-0775-30 ",.01)
 ;;63187-0775-30
 ;;9002226.02101,"1733,63187-0775-30 ",.02)
 ;;63187-0775-30
 ;;9002226.02101,"1733,63187-0808-90 ",.01)
 ;;63187-0808-90
 ;;9002226.02101,"1733,63187-0808-90 ",.02)
 ;;63187-0808-90
 ;;9002226.02101,"1733,63187-0816-30 ",.01)
 ;;63187-0816-30
 ;;9002226.02101,"1733,63187-0816-30 ",.02)
 ;;63187-0816-30
 ;;9002226.02101,"1733,63187-0816-90 ",.01)
 ;;63187-0816-90
 ;;9002226.02101,"1733,63187-0816-90 ",.02)
 ;;63187-0816-90
 ;;9002226.02101,"1733,63187-0821-90 ",.01)
 ;;63187-0821-90
 ;;9002226.02101,"1733,63187-0821-90 ",.02)
 ;;63187-0821-90
 ;;9002226.02101,"1733,63187-0825-30 ",.01)
 ;;63187-0825-30
 ;;9002226.02101,"1733,63187-0825-30 ",.02)
 ;;63187-0825-30
 ;;9002226.02101,"1733,63187-0825-90 ",.01)
 ;;63187-0825-90
 ;;9002226.02101,"1733,63187-0825-90 ",.02)
 ;;63187-0825-90
 ;;9002226.02101,"1733,63187-0830-90 ",.01)
 ;;63187-0830-90
 ;;9002226.02101,"1733,63187-0830-90 ",.02)
 ;;63187-0830-90
 ;;9002226.02101,"1733,63304-0337-01 ",.01)
 ;;63304-0337-01
 ;;9002226.02101,"1733,63304-0337-01 ",.02)
 ;;63304-0337-01
 ;;9002226.02101,"1733,63304-0338-01 ",.01)
 ;;63304-0338-01
 ;;9002226.02101,"1733,63304-0338-01 ",.02)
 ;;63304-0338-01
 ;;9002226.02101,"1733,63304-0338-05 ",.01)
 ;;63304-0338-05
 ;;9002226.02101,"1733,63304-0338-05 ",.02)
 ;;63304-0338-05
 ;;9002226.02101,"1733,63304-0339-01 ",.01)
 ;;63304-0339-01
 ;;9002226.02101,"1733,63304-0339-01 ",.02)
 ;;63304-0339-01
 ;;9002226.02101,"1733,63304-0339-05 ",.01)
 ;;63304-0339-05
 ;;9002226.02101,"1733,63304-0339-05 ",.02)
 ;;63304-0339-05
 ;;9002226.02101,"1733,63304-0340-01 ",.01)
 ;;63304-0340-01
 ;;9002226.02101,"1733,63304-0340-01 ",.02)
 ;;63304-0340-01
 ;;9002226.02101,"1733,63304-0340-05 ",.01)
 ;;63304-0340-05
 ;;9002226.02101,"1733,63304-0340-05 ",.02)
 ;;63304-0340-05
 ;;9002226.02101,"1733,63304-0531-01 ",.01)
 ;;63304-0531-01
 ;;9002226.02101,"1733,63304-0531-01 ",.02)
 ;;63304-0531-01
 ;;9002226.02101,"1733,63304-0532-01 ",.01)
 ;;63304-0532-01
 ;;9002226.02101,"1733,63304-0532-01 ",.02)
 ;;63304-0532-01
 ;;9002226.02101,"1733,63304-0532-10 ",.01)
 ;;63304-0532-10
 ;;9002226.02101,"1733,63304-0532-10 ",.02)
 ;;63304-0532-10
 ;;9002226.02101,"1733,63304-0533-01 ",.01)
 ;;63304-0533-01
 ;;9002226.02101,"1733,63304-0533-01 ",.02)
 ;;63304-0533-01
 ;;9002226.02101,"1733,63304-0533-10 ",.01)
 ;;63304-0533-10
 ;;9002226.02101,"1733,63304-0533-10 ",.02)
 ;;63304-0533-10
 ;;9002226.02101,"1733,63304-0534-01 ",.01)
 ;;63304-0534-01
 ;;9002226.02101,"1733,63304-0534-01 ",.02)
 ;;63304-0534-01
 ;;9002226.02101,"1733,63304-0534-10 ",.01)
 ;;63304-0534-10
 ;;9002226.02101,"1733,63304-0534-10 ",.02)
 ;;63304-0534-10
 ;;9002226.02101,"1733,63304-0535-01 ",.01)
 ;;63304-0535-01
 ;;9002226.02101,"1733,63304-0535-01 ",.02)
 ;;63304-0535-01
 ;;9002226.02101,"1733,63304-0535-10 ",.01)
 ;;63304-0535-10
 ;;9002226.02101,"1733,63304-0535-10 ",.02)
 ;;63304-0535-10
 ;;9002226.02101,"1733,63304-0536-05 ",.01)
 ;;63304-0536-05
 ;;9002226.02101,"1733,63304-0536-05 ",.02)
 ;;63304-0536-05
 ;;9002226.02101,"1733,63304-0537-05 ",.01)
 ;;63304-0537-05
 ;;9002226.02101,"1733,63304-0537-05 ",.02)
 ;;63304-0537-05
 ;;9002226.02101,"1733,63304-0538-05 ",.01)
 ;;63304-0538-05
 ;;9002226.02101,"1733,63304-0538-05 ",.02)
 ;;63304-0538-05
 ;;9002226.02101,"1733,63304-0548-90 ",.01)
 ;;63304-0548-90
 ;;9002226.02101,"1733,63304-0548-90 ",.02)
 ;;63304-0548-90
 ;;9002226.02101,"1733,63304-0549-90 ",.01)
 ;;63304-0549-90
 ;;9002226.02101,"1733,63304-0549-90 ",.02)
 ;;63304-0549-90
 ;;9002226.02101,"1733,63304-0550-90 ",.01)
 ;;63304-0550-90
 ;;9002226.02101,"1733,63304-0550-90 ",.02)
 ;;63304-0550-90
 ;;9002226.02101,"1733,63304-0551-90 ",.01)
 ;;63304-0551-90
 ;;9002226.02101,"1733,63304-0551-90 ",.02)
 ;;63304-0551-90
 ;;9002226.02101,"1733,63304-0599-01 ",.01)
 ;;63304-0599-01
 ;;9002226.02101,"1733,63304-0599-01 ",.02)
 ;;63304-0599-01
 ;;9002226.02101,"1733,63629-1241-01 ",.01)
 ;;63629-1241-01
 ;;9002226.02101,"1733,63629-1241-01 ",.02)
 ;;63629-1241-01
 ;;9002226.02101,"1733,63629-1242-01 ",.01)
 ;;63629-1242-01
 ;;9002226.02101,"1733,63629-1242-01 ",.02)
 ;;63629-1242-01
 ;;9002226.02101,"1733,63629-1253-01 ",.01)
 ;;63629-1253-01
 ;;9002226.02101,"1733,63629-1253-01 ",.02)
 ;;63629-1253-01
 ;;9002226.02101,"1733,63629-1253-02 ",.01)
 ;;63629-1253-02
 ;;9002226.02101,"1733,63629-1253-02 ",.02)
 ;;63629-1253-02
 ;;9002226.02101,"1733,63629-1254-01 ",.01)
 ;;63629-1254-01
 ;;9002226.02101,"1733,63629-1254-01 ",.02)
 ;;63629-1254-01
 ;;9002226.02101,"1733,63629-1254-02 ",.01)
 ;;63629-1254-02
 ;;9002226.02101,"1733,63629-1254-02 ",.02)
 ;;63629-1254-02
 ;;9002226.02101,"1733,63629-1337-01 ",.01)
 ;;63629-1337-01
 ;;9002226.02101,"1733,63629-1337-01 ",.02)
 ;;63629-1337-01
 ;;9002226.02101,"1733,63629-1337-02 ",.01)
 ;;63629-1337-02
 ;;9002226.02101,"1733,63629-1337-02 ",.02)
 ;;63629-1337-02
 ;;9002226.02101,"1733,63629-1337-03 ",.01)
 ;;63629-1337-03
 ;;9002226.02101,"1733,63629-1337-03 ",.02)
 ;;63629-1337-03
 ;;9002226.02101,"1733,63629-1338-01 ",.01)
 ;;63629-1338-01
 ;;9002226.02101,"1733,63629-1338-01 ",.02)
 ;;63629-1338-01
 ;;9002226.02101,"1733,63629-1338-02 ",.01)
 ;;63629-1338-02
 ;;9002226.02101,"1733,63629-1338-02 ",.02)
 ;;63629-1338-02
 ;;9002226.02101,"1733,63629-1338-03 ",.01)
 ;;63629-1338-03
 ;;9002226.02101,"1733,63629-1338-03 ",.02)
 ;;63629-1338-03
 ;;9002226.02101,"1733,63629-1454-01 ",.01)
 ;;63629-1454-01
 ;;9002226.02101,"1733,63629-1454-01 ",.02)
 ;;63629-1454-01
 ;;9002226.02101,"1733,63629-1522-01 ",.01)
 ;;63629-1522-01
 ;;9002226.02101,"1733,63629-1522-01 ",.02)
 ;;63629-1522-01
 ;;9002226.02101,"1733,63629-1522-02 ",.01)
 ;;63629-1522-02
 ;;9002226.02101,"1733,63629-1522-02 ",.02)
 ;;63629-1522-02
 ;;9002226.02101,"1733,63629-1522-03 ",.01)
 ;;63629-1522-03
 ;;9002226.02101,"1733,63629-1522-03 ",.02)
 ;;63629-1522-03
 ;;9002226.02101,"1733,63629-1522-04 ",.01)
 ;;63629-1522-04
 ;;9002226.02101,"1733,63629-1522-04 ",.02)
 ;;63629-1522-04
 ;;9002226.02101,"1733,63629-1525-01 ",.01)
 ;;63629-1525-01
 ;;9002226.02101,"1733,63629-1525-01 ",.02)
 ;;63629-1525-01