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