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

BGP83A29.m

Go to the documentation of this file.
BGP83A29 ; 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,"1828,54868-0038-05 ",.02)
 ;;54868-0038-05
 ;;9002226.02101,"1828,54868-0038-06 ",.01)
 ;;54868-0038-06
 ;;9002226.02101,"1828,54868-0038-06 ",.02)
 ;;54868-0038-06
 ;;9002226.02101,"1828,54868-0039-02 ",.01)
 ;;54868-0039-02
 ;;9002226.02101,"1828,54868-0039-02 ",.02)
 ;;54868-0039-02
 ;;9002226.02101,"1828,54868-0039-03 ",.01)
 ;;54868-0039-03
 ;;9002226.02101,"1828,54868-0039-03 ",.02)
 ;;54868-0039-03
 ;;9002226.02101,"1828,54868-0039-05 ",.01)
 ;;54868-0039-05
 ;;9002226.02101,"1828,54868-0039-05 ",.02)
 ;;54868-0039-05
 ;;9002226.02101,"1828,54868-0039-06 ",.01)
 ;;54868-0039-06
 ;;9002226.02101,"1828,54868-0039-06 ",.02)
 ;;54868-0039-06
 ;;9002226.02101,"1828,54868-0059-00 ",.01)
 ;;54868-0059-00
 ;;9002226.02101,"1828,54868-0059-00 ",.02)
 ;;54868-0059-00
 ;;9002226.02101,"1828,54868-0059-01 ",.01)
 ;;54868-0059-01
 ;;9002226.02101,"1828,54868-0059-01 ",.02)
 ;;54868-0059-01
 ;;9002226.02101,"1828,54868-0059-02 ",.01)
 ;;54868-0059-02
 ;;9002226.02101,"1828,54868-0059-02 ",.02)
 ;;54868-0059-02
 ;;9002226.02101,"1828,54868-0059-03 ",.01)
 ;;54868-0059-03
 ;;9002226.02101,"1828,54868-0059-03 ",.02)
 ;;54868-0059-03
 ;;9002226.02101,"1828,54868-0059-04 ",.01)
 ;;54868-0059-04
 ;;9002226.02101,"1828,54868-0059-04 ",.02)
 ;;54868-0059-04
 ;;9002226.02101,"1828,54868-0059-05 ",.01)
 ;;54868-0059-05
 ;;9002226.02101,"1828,54868-0059-05 ",.02)
 ;;54868-0059-05
 ;;9002226.02101,"1828,54868-0059-06 ",.01)
 ;;54868-0059-06
 ;;9002226.02101,"1828,54868-0059-06 ",.02)
 ;;54868-0059-06
 ;;9002226.02101,"1828,54868-0059-08 ",.01)
 ;;54868-0059-08
 ;;9002226.02101,"1828,54868-0059-08 ",.02)
 ;;54868-0059-08
 ;;9002226.02101,"1828,54868-0059-09 ",.01)
 ;;54868-0059-09
 ;;9002226.02101,"1828,54868-0059-09 ",.02)
 ;;54868-0059-09
 ;;9002226.02101,"1828,54868-0061-02 ",.01)
 ;;54868-0061-02
 ;;9002226.02101,"1828,54868-0061-02 ",.02)
 ;;54868-0061-02
 ;;9002226.02101,"1828,54868-0061-03 ",.01)
 ;;54868-0061-03
 ;;9002226.02101,"1828,54868-0061-03 ",.02)
 ;;54868-0061-03
 ;;9002226.02101,"1828,54868-0061-04 ",.01)
 ;;54868-0061-04
 ;;9002226.02101,"1828,54868-0061-04 ",.02)
 ;;54868-0061-04
 ;;9002226.02101,"1828,54868-0061-05 ",.01)
 ;;54868-0061-05
 ;;9002226.02101,"1828,54868-0061-05 ",.02)
 ;;54868-0061-05
 ;;9002226.02101,"1828,54868-0061-06 ",.01)
 ;;54868-0061-06
 ;;9002226.02101,"1828,54868-0061-06 ",.02)
 ;;54868-0061-06
 ;;9002226.02101,"1828,54868-0070-00 ",.01)
 ;;54868-0070-00
 ;;9002226.02101,"1828,54868-0070-00 ",.02)
 ;;54868-0070-00
 ;;9002226.02101,"1828,54868-0070-02 ",.01)
 ;;54868-0070-02
 ;;9002226.02101,"1828,54868-0070-02 ",.02)
 ;;54868-0070-02
 ;;9002226.02101,"1828,54868-0092-01 ",.01)
 ;;54868-0092-01
 ;;9002226.02101,"1828,54868-0092-01 ",.02)
 ;;54868-0092-01
 ;;9002226.02101,"1828,54868-0092-02 ",.01)
 ;;54868-0092-02
 ;;9002226.02101,"1828,54868-0092-02 ",.02)
 ;;54868-0092-02
 ;;9002226.02101,"1828,54868-0093-00 ",.01)
 ;;54868-0093-00
 ;;9002226.02101,"1828,54868-0093-00 ",.02)
 ;;54868-0093-00
 ;;9002226.02101,"1828,54868-0093-01 ",.01)
 ;;54868-0093-01
 ;;9002226.02101,"1828,54868-0093-01 ",.02)
 ;;54868-0093-01
 ;;9002226.02101,"1828,54868-0522-01 ",.01)
 ;;54868-0522-01
 ;;9002226.02101,"1828,54868-0522-01 ",.02)
 ;;54868-0522-01
 ;;9002226.02101,"1828,54868-0522-02 ",.01)
 ;;54868-0522-02
 ;;9002226.02101,"1828,54868-0522-02 ",.02)
 ;;54868-0522-02
 ;;9002226.02101,"1828,54868-0522-03 ",.01)
 ;;54868-0522-03
 ;;9002226.02101,"1828,54868-0522-03 ",.02)
 ;;54868-0522-03
 ;;9002226.02101,"1828,54868-0522-04 ",.01)
 ;;54868-0522-04
 ;;9002226.02101,"1828,54868-0522-04 ",.02)
 ;;54868-0522-04
 ;;9002226.02101,"1828,54868-0522-05 ",.01)
 ;;54868-0522-05
 ;;9002226.02101,"1828,54868-0522-05 ",.02)
 ;;54868-0522-05
 ;;9002226.02101,"1828,54868-0522-06 ",.01)
 ;;54868-0522-06
 ;;9002226.02101,"1828,54868-0522-06 ",.02)
 ;;54868-0522-06
 ;;9002226.02101,"1828,54868-0522-07 ",.01)
 ;;54868-0522-07
 ;;9002226.02101,"1828,54868-0522-07 ",.02)
 ;;54868-0522-07
 ;;9002226.02101,"1828,54868-0522-08 ",.01)
 ;;54868-0522-08
 ;;9002226.02101,"1828,54868-0522-08 ",.02)
 ;;54868-0522-08
 ;;9002226.02101,"1828,54868-0703-00 ",.01)
 ;;54868-0703-00
 ;;9002226.02101,"1828,54868-0703-00 ",.02)
 ;;54868-0703-00
 ;;9002226.02101,"1828,54868-0703-01 ",.01)
 ;;54868-0703-01
 ;;9002226.02101,"1828,54868-0703-01 ",.02)
 ;;54868-0703-01
 ;;9002226.02101,"1828,54868-0703-02 ",.01)
 ;;54868-0703-02
 ;;9002226.02101,"1828,54868-0703-02 ",.02)
 ;;54868-0703-02
 ;;9002226.02101,"1828,54868-0703-03 ",.01)
 ;;54868-0703-03
 ;;9002226.02101,"1828,54868-0703-03 ",.02)
 ;;54868-0703-03
 ;;9002226.02101,"1828,54868-0778-00 ",.01)
 ;;54868-0778-00
 ;;9002226.02101,"1828,54868-0778-00 ",.02)
 ;;54868-0778-00
 ;;9002226.02101,"1828,54868-0778-01 ",.01)
 ;;54868-0778-01
 ;;9002226.02101,"1828,54868-0778-01 ",.02)
 ;;54868-0778-01
 ;;9002226.02101,"1828,54868-0778-03 ",.01)
 ;;54868-0778-03
 ;;9002226.02101,"1828,54868-0778-03 ",.02)
 ;;54868-0778-03
 ;;9002226.02101,"1828,54868-0802-01 ",.01)
 ;;54868-0802-01
 ;;9002226.02101,"1828,54868-0802-01 ",.02)
 ;;54868-0802-01
 ;;9002226.02101,"1828,54868-0802-03 ",.01)
 ;;54868-0802-03
 ;;9002226.02101,"1828,54868-0802-03 ",.02)
 ;;54868-0802-03
 ;;9002226.02101,"1828,54868-0829-01 ",.01)
 ;;54868-0829-01
 ;;9002226.02101,"1828,54868-0829-01 ",.02)
 ;;54868-0829-01
 ;;9002226.02101,"1828,54868-0829-02 ",.01)
 ;;54868-0829-02
 ;;9002226.02101,"1828,54868-0829-02 ",.02)
 ;;54868-0829-02
 ;;9002226.02101,"1828,54868-0829-03 ",.01)
 ;;54868-0829-03
 ;;9002226.02101,"1828,54868-0829-03 ",.02)
 ;;54868-0829-03
 ;;9002226.02101,"1828,54868-0829-04 ",.01)
 ;;54868-0829-04
 ;;9002226.02101,"1828,54868-0829-04 ",.02)
 ;;54868-0829-04
 ;;9002226.02101,"1828,54868-0988-00 ",.01)
 ;;54868-0988-00
 ;;9002226.02101,"1828,54868-0988-00 ",.02)
 ;;54868-0988-00
 ;;9002226.02101,"1828,54868-0988-01 ",.01)
 ;;54868-0988-01
 ;;9002226.02101,"1828,54868-0988-01 ",.02)
 ;;54868-0988-01
 ;;9002226.02101,"1828,54868-0988-02 ",.01)
 ;;54868-0988-02
 ;;9002226.02101,"1828,54868-0988-02 ",.02)
 ;;54868-0988-02
 ;;9002226.02101,"1828,54868-0988-03 ",.01)
 ;;54868-0988-03
 ;;9002226.02101,"1828,54868-0988-03 ",.02)
 ;;54868-0988-03
 ;;9002226.02101,"1828,54868-0988-04 ",.01)
 ;;54868-0988-04
 ;;9002226.02101,"1828,54868-0988-04 ",.02)
 ;;54868-0988-04
 ;;9002226.02101,"1828,54868-0988-05 ",.01)
 ;;54868-0988-05
 ;;9002226.02101,"1828,54868-0988-05 ",.02)
 ;;54868-0988-05
 ;;9002226.02101,"1828,54868-0988-06 ",.01)
 ;;54868-0988-06
 ;;9002226.02101,"1828,54868-0988-06 ",.02)
 ;;54868-0988-06
 ;;9002226.02101,"1828,54868-0988-07 ",.01)
 ;;54868-0988-07
 ;;9002226.02101,"1828,54868-0988-07 ",.02)
 ;;54868-0988-07
 ;;9002226.02101,"1828,54868-0988-08 ",.01)
 ;;54868-0988-08
 ;;9002226.02101,"1828,54868-0988-08 ",.02)
 ;;54868-0988-08
 ;;9002226.02101,"1828,54868-0988-09 ",.01)
 ;;54868-0988-09
 ;;9002226.02101,"1828,54868-0988-09 ",.02)
 ;;54868-0988-09
 ;;9002226.02101,"1828,54868-0992-00 ",.01)
 ;;54868-0992-00
 ;;9002226.02101,"1828,54868-0992-00 ",.02)
 ;;54868-0992-00
 ;;9002226.02101,"1828,54868-0992-01 ",.01)
 ;;54868-0992-01
 ;;9002226.02101,"1828,54868-0992-01 ",.02)
 ;;54868-0992-01
 ;;9002226.02101,"1828,54868-0992-02 ",.01)
 ;;54868-0992-02
 ;;9002226.02101,"1828,54868-0992-02 ",.02)
 ;;54868-0992-02
 ;;9002226.02101,"1828,54868-0992-03 ",.01)
 ;;54868-0992-03
 ;;9002226.02101,"1828,54868-0992-03 ",.02)
 ;;54868-0992-03
 ;;9002226.02101,"1828,54868-0992-04 ",.01)
 ;;54868-0992-04
 ;;9002226.02101,"1828,54868-0992-04 ",.02)
 ;;54868-0992-04
 ;;9002226.02101,"1828,54868-1251-00 ",.01)
 ;;54868-1251-00
 ;;9002226.02101,"1828,54868-1251-00 ",.02)
 ;;54868-1251-00
 ;;9002226.02101,"1828,54868-1251-01 ",.01)
 ;;54868-1251-01
 ;;9002226.02101,"1828,54868-1251-01 ",.02)
 ;;54868-1251-01
 ;;9002226.02101,"1828,54868-1251-02 ",.01)
 ;;54868-1251-02
 ;;9002226.02101,"1828,54868-1251-02 ",.02)
 ;;54868-1251-02
 ;;9002226.02101,"1828,54868-1338-00 ",.01)
 ;;54868-1338-00
 ;;9002226.02101,"1828,54868-1338-00 ",.02)
 ;;54868-1338-00
 ;;9002226.02101,"1828,54868-1338-01 ",.01)
 ;;54868-1338-01
 ;;9002226.02101,"1828,54868-1338-01 ",.02)
 ;;54868-1338-01
 ;;9002226.02101,"1828,54868-1338-02 ",.01)
 ;;54868-1338-02
 ;;9002226.02101,"1828,54868-1338-02 ",.02)
 ;;54868-1338-02
 ;;9002226.02101,"1828,54868-1338-03 ",.01)
 ;;54868-1338-03
 ;;9002226.02101,"1828,54868-1338-03 ",.02)
 ;;54868-1338-03
 ;;9002226.02101,"1828,54868-1338-04 ",.01)
 ;;54868-1338-04
 ;;9002226.02101,"1828,54868-1338-04 ",.02)
 ;;54868-1338-04
 ;;9002226.02101,"1828,54868-1338-06 ",.01)
 ;;54868-1338-06
 ;;9002226.02101,"1828,54868-1338-06 ",.02)
 ;;54868-1338-06
 ;;9002226.02101,"1828,54868-1338-07 ",.01)
 ;;54868-1338-07
 ;;9002226.02101,"1828,54868-1338-07 ",.02)
 ;;54868-1338-07
 ;;9002226.02101,"1828,54868-1338-08 ",.01)
 ;;54868-1338-08
 ;;9002226.02101,"1828,54868-1338-08 ",.02)
 ;;54868-1338-08
 ;;9002226.02101,"1828,54868-1338-09 ",.01)
 ;;54868-1338-09
 ;;9002226.02101,"1828,54868-1338-09 ",.02)
 ;;54868-1338-09
 ;;9002226.02101,"1828,54868-1339-00 ",.01)
 ;;54868-1339-00
 ;;9002226.02101,"1828,54868-1339-00 ",.02)
 ;;54868-1339-00
 ;;9002226.02101,"1828,54868-1339-01 ",.01)
 ;;54868-1339-01
 ;;9002226.02101,"1828,54868-1339-01 ",.02)
 ;;54868-1339-01
 ;;9002226.02101,"1828,54868-1339-02 ",.01)
 ;;54868-1339-02
 ;;9002226.02101,"1828,54868-1339-02 ",.02)
 ;;54868-1339-02
 ;;9002226.02101,"1828,54868-1339-05 ",.01)
 ;;54868-1339-05
 ;;9002226.02101,"1828,54868-1339-05 ",.02)
 ;;54868-1339-05
 ;;9002226.02101,"1828,54868-1341-00 ",.01)
 ;;54868-1341-00
 ;;9002226.02101,"1828,54868-1341-00 ",.02)
 ;;54868-1341-00
 ;;9002226.02101,"1828,54868-1694-00 ",.01)
 ;;54868-1694-00
 ;;9002226.02101,"1828,54868-1694-00 ",.02)
 ;;54868-1694-00
 ;;9002226.02101,"1828,54868-1694-02 ",.01)
 ;;54868-1694-02
 ;;9002226.02101,"1828,54868-1694-02 ",.02)
 ;;54868-1694-02
 ;;9002226.02101,"1828,54868-1694-03 ",.01)
 ;;54868-1694-03
 ;;9002226.02101,"1828,54868-1694-03 ",.02)
 ;;54868-1694-03
 ;;9002226.02101,"1828,54868-2126-01 ",.01)
 ;;54868-2126-01
 ;;9002226.02101,"1828,54868-2126-01 ",.02)
 ;;54868-2126-01
 ;;9002226.02101,"1828,54868-2126-02 ",.01)
 ;;54868-2126-02
 ;;9002226.02101,"1828,54868-2126-02 ",.02)
 ;;54868-2126-02
 ;;9002226.02101,"1828,54868-2126-04 ",.01)
 ;;54868-2126-04
 ;;9002226.02101,"1828,54868-2126-04 ",.02)
 ;;54868-2126-04
 ;;9002226.02101,"1828,54868-2126-05 ",.01)
 ;;54868-2126-05
 ;;9002226.02101,"1828,54868-2126-05 ",.02)
 ;;54868-2126-05
 ;;9002226.02101,"1828,54868-2126-06 ",.01)
 ;;54868-2126-06
 ;;9002226.02101,"1828,54868-2126-06 ",.02)
 ;;54868-2126-06
 ;;9002226.02101,"1828,54868-2126-07 ",.01)
 ;;54868-2126-07
 ;;9002226.02101,"1828,54868-2126-07 ",.02)
 ;;54868-2126-07
 ;;9002226.02101,"1828,54868-2133-00 ",.01)
 ;;54868-2133-00
 ;;9002226.02101,"1828,54868-2133-00 ",.02)
 ;;54868-2133-00
 ;;9002226.02101,"1828,54868-2133-02 ",.01)
 ;;54868-2133-02
 ;;9002226.02101,"1828,54868-2133-02 ",.02)
 ;;54868-2133-02
 ;;9002226.02101,"1828,54868-2133-03 ",.01)
 ;;54868-2133-03
 ;;9002226.02101,"1828,54868-2133-03 ",.02)
 ;;54868-2133-03
 ;;9002226.02101,"1828,54868-2133-04 ",.01)
 ;;54868-2133-04
 ;;9002226.02101,"1828,54868-2133-04 ",.02)
 ;;54868-2133-04
 ;;9002226.02101,"1828,54868-2144-00 ",.01)
 ;;54868-2144-00
 ;;9002226.02101,"1828,54868-2144-00 ",.02)
 ;;54868-2144-00
 ;;9002226.02101,"1828,54868-2145-00 ",.01)
 ;;54868-2145-00
 ;;9002226.02101,"1828,54868-2145-00 ",.02)
 ;;54868-2145-00
 ;;9002226.02101,"1828,54868-2145-02 ",.01)
 ;;54868-2145-02
 ;;9002226.02101,"1828,54868-2145-02 ",.02)
 ;;54868-2145-02