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

BGP82B6.m

Go to the documentation of this file.
  1. BGP82B6 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"544,50486-0221-12 ",.02)
  1. ;;50486-0221-12
  1. ;;9002226.02101,"544,51285-0058-66 ",.01)
  1. ;;51285-0058-66
  1. ;;9002226.02101,"544,51285-0058-66 ",.02)
  1. ;;51285-0058-66
  1. ;;9002226.02101,"544,51285-0079-97 ",.01)
  1. ;;51285-0079-97
  1. ;;9002226.02101,"544,51285-0079-97 ",.02)
  1. ;;51285-0079-97
  1. ;;9002226.02101,"544,51285-0080-70 ",.01)
  1. ;;51285-0080-70
  1. ;;9002226.02101,"544,51285-0080-70 ",.02)
  1. ;;51285-0080-70
  1. ;;9002226.02101,"544,51285-0081-98 ",.01)
  1. ;;51285-0081-98
  1. ;;9002226.02101,"544,51285-0081-98 ",.02)
  1. ;;51285-0081-98
  1. ;;9002226.02101,"544,51285-0082-97 ",.01)
  1. ;;51285-0082-97
  1. ;;9002226.02101,"544,51285-0082-97 ",.02)
  1. ;;51285-0082-97
  1. ;;9002226.02101,"544,51285-0083-70 ",.01)
  1. ;;51285-0083-70
  1. ;;9002226.02101,"544,51285-0083-70 ",.02)
  1. ;;51285-0083-70
  1. ;;9002226.02101,"544,51285-0084-98 ",.01)
  1. ;;51285-0084-98
  1. ;;9002226.02101,"544,51285-0084-98 ",.02)
  1. ;;51285-0084-98
  1. ;;9002226.02101,"544,51285-0087-87 ",.01)
  1. ;;51285-0087-87
  1. ;;9002226.02101,"544,51285-0087-87 ",.02)
  1. ;;51285-0087-87
  1. ;;9002226.02101,"544,51285-0091-58 ",.01)
  1. ;;51285-0091-58
  1. ;;9002226.02101,"544,51285-0091-58 ",.02)
  1. ;;51285-0091-58
  1. ;;9002226.02101,"544,51285-0092-87 ",.01)
  1. ;;51285-0092-87
  1. ;;9002226.02101,"544,51285-0092-87 ",.02)
  1. ;;51285-0092-87
  1. ;;9002226.02101,"544,51285-0114-58 ",.01)
  1. ;;51285-0114-58
  1. ;;9002226.02101,"544,51285-0114-58 ",.02)
  1. ;;51285-0114-58
  1. ;;9002226.02101,"544,51285-0120-58 ",.01)
  1. ;;51285-0120-58
  1. ;;9002226.02101,"544,51285-0120-58 ",.02)
  1. ;;51285-0120-58
  1. ;;9002226.02101,"544,51285-0125-70 ",.01)
  1. ;;51285-0125-70
  1. ;;9002226.02101,"544,51285-0125-70 ",.02)
  1. ;;51285-0125-70
  1. ;;9002226.02101,"544,51285-0126-98 ",.01)
  1. ;;51285-0126-98
  1. ;;9002226.02101,"544,51285-0126-98 ",.02)
  1. ;;51285-0126-98
  1. ;;9002226.02101,"544,51285-0127-97 ",.01)
  1. ;;51285-0127-97
  1. ;;9002226.02101,"544,51285-0127-97 ",.02)
  1. ;;51285-0127-97
  1. ;;9002226.02101,"544,51285-0128-70 ",.01)
  1. ;;51285-0128-70
  1. ;;9002226.02101,"544,51285-0128-70 ",.02)
  1. ;;51285-0128-70
  1. ;;9002226.02101,"544,51285-0129-98 ",.01)
  1. ;;51285-0129-98
  1. ;;9002226.02101,"544,51285-0129-98 ",.02)
  1. ;;51285-0129-98
  1. ;;9002226.02101,"544,51285-0131-97 ",.01)
  1. ;;51285-0131-97
  1. ;;9002226.02101,"544,51285-0131-97 ",.02)
  1. ;;51285-0131-97
  1. ;;9002226.02101,"544,51285-0146-19 ",.01)
  1. ;;51285-0146-19
  1. ;;9002226.02101,"544,51285-0146-19 ",.02)
  1. ;;51285-0146-19
  1. ;;9002226.02101,"544,51285-0162-88 ",.01)
  1. ;;51285-0162-88
  1. ;;9002226.02101,"544,51285-0162-88 ",.02)
  1. ;;51285-0162-88
  1. ;;9002226.02101,"544,51285-0431-65 ",.01)
  1. ;;51285-0431-65
  1. ;;9002226.02101,"544,51285-0431-65 ",.02)
  1. ;;51285-0431-65
  1. ;;9002226.02101,"544,51285-0546-28 ",.01)
  1. ;;51285-0546-28
  1. ;;9002226.02101,"544,51285-0546-28 ",.02)
  1. ;;51285-0546-28
  1. ;;9002226.02101,"544,51285-0942-88 ",.01)
  1. ;;51285-0942-88
  1. ;;9002226.02101,"544,51285-0942-88 ",.02)
  1. ;;51285-0942-88
  1. ;;9002226.02101,"544,51285-0943-88 ",.01)
  1. ;;51285-0943-88
  1. ;;9002226.02101,"544,51285-0943-88 ",.02)
  1. ;;51285-0943-88
  1. ;;9002226.02101,"544,51285-0963-19 ",.01)
  1. ;;51285-0963-19
  1. ;;9002226.02101,"544,51285-0963-19 ",.02)
  1. ;;51285-0963-19
  1. ;;9002226.02101,"544,51660-0127-86 ",.01)
  1. ;;51660-0127-86
  1. ;;9002226.02101,"544,51660-0127-86 ",.02)
  1. ;;51660-0127-86
  1. ;;9002226.02101,"544,51660-0572-86 ",.01)
  1. ;;51660-0572-86
  1. ;;9002226.02101,"544,51660-0572-86 ",.02)
  1. ;;51660-0572-86
  1. ;;9002226.02101,"544,52544-0035-54 ",.01)
  1. ;;52544-0035-54
  1. ;;9002226.02101,"544,52544-0035-54 ",.02)
  1. ;;52544-0035-54
  1. ;;9002226.02101,"544,52544-0054-31 ",.01)
  1. ;;52544-0054-31
  1. ;;9002226.02101,"544,52544-0054-31 ",.02)
  1. ;;52544-0054-31
  1. ;;9002226.02101,"544,52544-0064-31 ",.01)
  1. ;;52544-0064-31
  1. ;;9002226.02101,"544,52544-0064-31 ",.02)
  1. ;;52544-0064-31
  1. ;;9002226.02101,"544,52544-0065-54 ",.01)
  1. ;;52544-0065-54
  1. ;;9002226.02101,"544,52544-0065-54 ",.02)
  1. ;;52544-0065-54
  1. ;;9002226.02101,"544,52544-0087-28 ",.01)
  1. ;;52544-0087-28
  1. ;;9002226.02101,"544,52544-0087-28 ",.02)
  1. ;;52544-0087-28
  1. ;;9002226.02101,"544,52544-0087-41 ",.01)
  1. ;;52544-0087-41
  1. ;;9002226.02101,"544,52544-0087-41 ",.02)
  1. ;;52544-0087-41
  1. ;;9002226.02101,"544,52544-0143-31 ",.01)
  1. ;;52544-0143-31
  1. ;;9002226.02101,"544,52544-0143-31 ",.02)
  1. ;;52544-0143-31
  1. ;;9002226.02101,"544,52544-0165-28 ",.01)
  1. ;;52544-0165-28
  1. ;;9002226.02101,"544,52544-0165-28 ",.02)
  1. ;;52544-0165-28
  1. ;;9002226.02101,"544,52544-0167-31 ",.01)
  1. ;;52544-0167-31
  1. ;;9002226.02101,"544,52544-0167-31 ",.02)
  1. ;;52544-0167-31
  1. ;;9002226.02101,"544,52544-0175-72 ",.01)
  1. ;;52544-0175-72
  1. ;;9002226.02101,"544,52544-0175-72 ",.02)
  1. ;;52544-0175-72
  1. ;;9002226.02101,"544,52544-0204-31 ",.01)
  1. ;;52544-0204-31
  1. ;;9002226.02101,"544,52544-0204-31 ",.02)
  1. ;;52544-0204-31
  1. ;;9002226.02101,"544,52544-0210-28 ",.01)
  1. ;;52544-0210-28
  1. ;;9002226.02101,"544,52544-0210-28 ",.02)
  1. ;;52544-0210-28
  1. ;;9002226.02101,"544,52544-0219-28 ",.01)
  1. ;;52544-0219-28
  1. ;;9002226.02101,"544,52544-0219-28 ",.02)
  1. ;;52544-0219-28
  1. ;;9002226.02101,"544,52544-0228-29 ",.01)
  1. ;;52544-0228-29
  1. ;;9002226.02101,"544,52544-0228-29 ",.02)
  1. ;;52544-0228-29
  1. ;;9002226.02101,"544,52544-0233-28 ",.01)
  1. ;;52544-0233-28
  1. ;;9002226.02101,"544,52544-0233-28 ",.02)
  1. ;;52544-0233-28
  1. ;;9002226.02101,"544,52544-0235-28 ",.01)
  1. ;;52544-0235-28
  1. ;;9002226.02101,"544,52544-0235-28 ",.02)
  1. ;;52544-0235-28
  1. ;;9002226.02101,"544,52544-0235-31 ",.01)
  1. ;;52544-0235-31
  1. ;;9002226.02101,"544,52544-0235-31 ",.02)
  1. ;;52544-0235-31
  1. ;;9002226.02101,"544,52544-0245-31 ",.01)
  1. ;;52544-0245-31
  1. ;;9002226.02101,"544,52544-0245-31 ",.02)
  1. ;;52544-0245-31
  1. ;;9002226.02101,"544,52544-0247-28 ",.01)
  1. ;;52544-0247-28
  1. ;;9002226.02101,"544,52544-0247-28 ",.02)
  1. ;;52544-0247-28
  1. ;;9002226.02101,"544,52544-0248-28 ",.01)
  1. ;;52544-0248-28
  1. ;;9002226.02101,"544,52544-0248-28 ",.02)
  1. ;;52544-0248-28
  1. ;;9002226.02101,"544,52544-0249-28 ",.01)
  1. ;;52544-0249-28
  1. ;;9002226.02101,"544,52544-0249-28 ",.02)
  1. ;;52544-0249-28
  1. ;;9002226.02101,"544,52544-0254-28 ",.01)
  1. ;;52544-0254-28
  1. ;;9002226.02101,"544,52544-0254-28 ",.02)
  1. ;;52544-0254-28
  1. ;;9002226.02101,"544,52544-0259-28 ",.01)
  1. ;;52544-0259-28
  1. ;;9002226.02101,"544,52544-0259-28 ",.02)
  1. ;;52544-0259-28
  1. ;;9002226.02101,"544,52544-0259-88 ",.01)
  1. ;;52544-0259-88
  1. ;;9002226.02101,"544,52544-0259-88 ",.02)
  1. ;;52544-0259-88
  1. ;;9002226.02101,"544,52544-0265-31 ",.01)
  1. ;;52544-0265-31
  1. ;;9002226.02101,"544,52544-0265-31 ",.02)
  1. ;;52544-0265-31
  1. ;;9002226.02101,"544,52544-0268-29 ",.01)
  1. ;;52544-0268-29
  1. ;;9002226.02101,"544,52544-0268-29 ",.02)
  1. ;;52544-0268-29
  1. ;;9002226.02101,"544,52544-0268-84 ",.01)
  1. ;;52544-0268-84
  1. ;;9002226.02101,"544,52544-0268-84 ",.02)
  1. ;;52544-0268-84
  1. ;;9002226.02101,"544,52544-0274-28 ",.01)
  1. ;;52544-0274-28
  1. ;;9002226.02101,"544,52544-0274-28 ",.02)
  1. ;;52544-0274-28
  1. ;;9002226.02101,"544,52544-0274-31 ",.01)
  1. ;;52544-0274-31
  1. ;;9002226.02101,"544,52544-0274-31 ",.02)
  1. ;;52544-0274-31
  1. ;;9002226.02101,"544,52544-0275-36 ",.01)
  1. ;;52544-0275-36
  1. ;;9002226.02101,"544,52544-0275-36 ",.02)
  1. ;;52544-0275-36
  1. ;;9002226.02101,"544,52544-0276-21 ",.01)
  1. ;;52544-0276-21
  1. ;;9002226.02101,"544,52544-0276-21 ",.02)
  1. ;;52544-0276-21
  1. ;;9002226.02101,"544,52544-0279-28 ",.01)
  1. ;;52544-0279-28
  1. ;;9002226.02101,"544,52544-0279-28 ",.02)
  1. ;;52544-0279-28
  1. ;;9002226.02101,"544,52544-0287-54 ",.01)
  1. ;;52544-0287-54
  1. ;;9002226.02101,"544,52544-0287-54 ",.02)
  1. ;;52544-0287-54
  1. ;;9002226.02101,"544,52544-0290-21 ",.01)
  1. ;;52544-0290-21
  1. ;;9002226.02101,"544,52544-0290-21 ",.02)
  1. ;;52544-0290-21
  1. ;;9002226.02101,"544,52544-0291-28 ",.01)
  1. ;;52544-0291-28
  1. ;;9002226.02101,"544,52544-0291-28 ",.02)
  1. ;;52544-0291-28
  1. ;;9002226.02101,"544,52544-0292-31 ",.01)
  1. ;;52544-0292-31
  1. ;;9002226.02101,"544,52544-0292-31 ",.02)
  1. ;;52544-0292-31
  1. ;;9002226.02101,"544,52544-0292-41 ",.01)
  1. ;;52544-0292-41
  1. ;;9002226.02101,"544,52544-0292-41 ",.02)
  1. ;;52544-0292-41
  1. ;;9002226.02101,"544,52544-0295-28 ",.01)
  1. ;;52544-0295-28
  1. ;;9002226.02101,"544,52544-0295-28 ",.02)
  1. ;;52544-0295-28
  1. ;;9002226.02101,"544,52544-0383-28 ",.01)
  1. ;;52544-0383-28
  1. ;;9002226.02101,"544,52544-0383-28 ",.02)
  1. ;;52544-0383-28
  1. ;;9002226.02101,"544,52544-0384-28 ",.01)
  1. ;;52544-0384-28
  1. ;;9002226.02101,"544,52544-0384-28 ",.02)
  1. ;;52544-0384-28
  1. ;;9002226.02101,"544,52544-0475-36 ",.01)
  1. ;;52544-0475-36
  1. ;;9002226.02101,"544,52544-0475-36 ",.02)
  1. ;;52544-0475-36
  1. ;;9002226.02101,"544,52544-0550-28 ",.01)
  1. ;;52544-0550-28
  1. ;;9002226.02101,"544,52544-0550-28 ",.02)
  1. ;;52544-0550-28
  1. ;;9002226.02101,"544,52544-0552-28 ",.01)
  1. ;;52544-0552-28
  1. ;;9002226.02101,"544,52544-0552-28 ",.02)
  1. ;;52544-0552-28
  1. ;;9002226.02101,"544,52544-0554-28 ",.01)
  1. ;;52544-0554-28
  1. ;;9002226.02101,"544,52544-0554-28 ",.02)
  1. ;;52544-0554-28
  1. ;;9002226.02101,"544,52544-0629-28 ",.01)
  1. ;;52544-0629-28
  1. ;;9002226.02101,"544,52544-0629-28 ",.02)
  1. ;;52544-0629-28
  1. ;;9002226.02101,"544,52544-0630-28 ",.01)
  1. ;;52544-0630-28
  1. ;;9002226.02101,"544,52544-0630-28 ",.02)
  1. ;;52544-0630-28
  1. ;;9002226.02101,"544,52544-0631-28 ",.01)
  1. ;;52544-0631-28
  1. ;;9002226.02101,"544,52544-0631-28 ",.02)
  1. ;;52544-0631-28
  1. ;;9002226.02101,"544,52544-0847-28 ",.01)
  1. ;;52544-0847-28
  1. ;;9002226.02101,"544,52544-0847-28 ",.02)
  1. ;;52544-0847-28
  1. ;;9002226.02101,"544,52544-0848-28 ",.01)
  1. ;;52544-0848-28
  1. ;;9002226.02101,"544,52544-0848-28 ",.02)
  1. ;;52544-0848-28
  1. ;;9002226.02101,"544,52544-0892-28 ",.01)
  1. ;;52544-0892-28
  1. ;;9002226.02101,"544,52544-0892-28 ",.02)
  1. ;;52544-0892-28
  1. ;;9002226.02101,"544,52544-0936-28 ",.01)
  1. ;;52544-0936-28
  1. ;;9002226.02101,"544,52544-0936-28 ",.02)
  1. ;;52544-0936-28
  1. ;;9002226.02101,"544,52544-0940-28 ",.01)
  1. ;;52544-0940-28
  1. ;;9002226.02101,"544,52544-0940-28 ",.02)
  1. ;;52544-0940-28
  1. ;;9002226.02101,"544,52544-0949-28 ",.01)
  1. ;;52544-0949-28
  1. ;;9002226.02101,"544,52544-0949-28 ",.02)
  1. ;;52544-0949-28
  1. ;;9002226.02101,"544,52544-0950-21 ",.01)
  1. ;;52544-0950-21
  1. ;;9002226.02101,"544,52544-0950-21 ",.02)
  1. ;;52544-0950-21
  1. ;;9002226.02101,"544,52544-0951-21 ",.01)
  1. ;;52544-0951-21
  1. ;;9002226.02101,"544,52544-0951-21 ",.02)
  1. ;;52544-0951-21
  1. ;;9002226.02101,"544,52544-0953-28 ",.01)
  1. ;;52544-0953-28
  1. ;;9002226.02101,"544,52544-0953-28 ",.02)
  1. ;;52544-0953-28
  1. ;;9002226.02101,"544,52544-0954-28 ",.01)
  1. ;;52544-0954-28
  1. ;;9002226.02101,"544,52544-0954-28 ",.02)
  1. ;;52544-0954-28
  1. ;;9002226.02101,"544,52544-0959-31 ",.01)
  1. ;;52544-0959-31
  1. ;;9002226.02101,"544,52544-0959-31 ",.02)
  1. ;;52544-0959-31
  1. ;;9002226.02101,"544,52544-0966-91 ",.01)
  1. ;;52544-0966-91
  1. ;;9002226.02101,"544,52544-0966-91 ",.02)
  1. ;;52544-0966-91
  1. ;;9002226.02101,"544,52544-0967-28 ",.01)
  1. ;;52544-0967-28
  1. ;;9002226.02101,"544,52544-0967-28 ",.02)
  1. ;;52544-0967-28
  1. ;;9002226.02101,"544,52544-0981-31 ",.01)
  1. ;;52544-0981-31
  1. ;;9002226.02101,"544,52544-0981-31 ",.02)
  1. ;;52544-0981-31
  1. ;;9002226.02101,"544,52544-0982-31 ",.01)
  1. ;;52544-0982-31
  1. ;;9002226.02101,"544,52544-0982-31 ",.02)
  1. ;;52544-0982-31
  1. ;;9002226.02101,"544,52925-0112-01 ",.01)
  1. ;;52925-0112-01
  1. ;;9002226.02101,"544,52925-0112-01 ",.02)
  1. ;;52925-0112-01
  1. ;;9002226.02101,"544,52925-0112-02 ",.01)
  1. ;;52925-0112-02
  1. ;;9002226.02101,"544,52925-0112-02 ",.02)
  1. ;;52925-0112-02
  1. ;;9002226.02101,"544,52925-0112-03 ",.01)
  1. ;;52925-0112-03
  1. ;;9002226.02101,"544,52925-0112-03 ",.02)
  1. ;;52925-0112-03
  1. ;;9002226.02101,"544,52925-0312-14 ",.01)
  1. ;;52925-0312-14
  1. ;;9002226.02101,"544,52925-0312-14 ",.02)
  1. ;;52925-0312-14
  1. ;;9002226.02101,"544,52959-0450-02 ",.01)
  1. ;;52959-0450-02
  1. ;;9002226.02101,"544,52959-0450-02 ",.02)
  1. ;;52959-0450-02
  1. ;;9002226.02101,"544,54569-0679-00 ",.01)
  1. ;;54569-0679-00
  1. ;;9002226.02101,"544,54569-0679-00 ",.02)
  1. ;;54569-0679-00
  1. ;;9002226.02101,"544,54569-0685-00 ",.01)
  1. ;;54569-0685-00