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

BGP83A27.m

Go to the documentation of this file.
BGP83A27 ; 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,52959-0538-10 ",.02)
 ;;52959-0538-10
 ;;9002226.02101,"1828,52959-0538-20 ",.01)
 ;;52959-0538-20
 ;;9002226.02101,"1828,52959-0538-20 ",.02)
 ;;52959-0538-20
 ;;9002226.02101,"1828,52959-0538-30 ",.01)
 ;;52959-0538-30
 ;;9002226.02101,"1828,52959-0538-30 ",.02)
 ;;52959-0538-30
 ;;9002226.02101,"1828,52959-0538-40 ",.01)
 ;;52959-0538-40
 ;;9002226.02101,"1828,52959-0538-40 ",.02)
 ;;52959-0538-40
 ;;9002226.02101,"1828,52959-0538-60 ",.01)
 ;;52959-0538-60
 ;;9002226.02101,"1828,52959-0538-60 ",.02)
 ;;52959-0538-60
 ;;9002226.02101,"1828,52959-0538-90 ",.01)
 ;;52959-0538-90
 ;;9002226.02101,"1828,52959-0538-90 ",.02)
 ;;52959-0538-90
 ;;9002226.02101,"1828,52959-0630-00 ",.01)
 ;;52959-0630-00
 ;;9002226.02101,"1828,52959-0630-00 ",.02)
 ;;52959-0630-00
 ;;9002226.02101,"1828,52959-0630-02 ",.01)
 ;;52959-0630-02
 ;;9002226.02101,"1828,52959-0630-02 ",.02)
 ;;52959-0630-02
 ;;9002226.02101,"1828,52959-0630-18 ",.01)
 ;;52959-0630-18
 ;;9002226.02101,"1828,52959-0630-18 ",.02)
 ;;52959-0630-18
 ;;9002226.02101,"1828,52959-0630-30 ",.01)
 ;;52959-0630-30
 ;;9002226.02101,"1828,52959-0630-30 ",.02)
 ;;52959-0630-30
 ;;9002226.02101,"1828,52959-0630-60 ",.01)
 ;;52959-0630-60
 ;;9002226.02101,"1828,52959-0630-60 ",.02)
 ;;52959-0630-60
 ;;9002226.02101,"1828,52959-0630-90 ",.01)
 ;;52959-0630-90
 ;;9002226.02101,"1828,52959-0630-90 ",.02)
 ;;52959-0630-90
 ;;9002226.02101,"1828,52959-0761-00 ",.01)
 ;;52959-0761-00
 ;;9002226.02101,"1828,52959-0761-00 ",.02)
 ;;52959-0761-00
 ;;9002226.02101,"1828,52959-0761-02 ",.01)
 ;;52959-0761-02
 ;;9002226.02101,"1828,52959-0761-02 ",.02)
 ;;52959-0761-02
 ;;9002226.02101,"1828,52959-0761-10 ",.01)
 ;;52959-0761-10
 ;;9002226.02101,"1828,52959-0761-10 ",.02)
 ;;52959-0761-10
 ;;9002226.02101,"1828,52959-0761-30 ",.01)
 ;;52959-0761-30
 ;;9002226.02101,"1828,52959-0761-30 ",.02)
 ;;52959-0761-30
 ;;9002226.02101,"1828,52959-0761-60 ",.01)
 ;;52959-0761-60
 ;;9002226.02101,"1828,52959-0761-60 ",.02)
 ;;52959-0761-60
 ;;9002226.02101,"1828,52959-0837-90 ",.01)
 ;;52959-0837-90
 ;;9002226.02101,"1828,52959-0837-90 ",.02)
 ;;52959-0837-90
 ;;9002226.02101,"1828,52959-0864-00 ",.01)
 ;;52959-0864-00
 ;;9002226.02101,"1828,52959-0864-00 ",.02)
 ;;52959-0864-00
 ;;9002226.02101,"1828,52959-0864-10 ",.01)
 ;;52959-0864-10
 ;;9002226.02101,"1828,52959-0864-10 ",.02)
 ;;52959-0864-10
 ;;9002226.02101,"1828,52959-0864-30 ",.01)
 ;;52959-0864-30
 ;;9002226.02101,"1828,52959-0864-30 ",.02)
 ;;52959-0864-30
 ;;9002226.02101,"1828,52959-0864-40 ",.01)
 ;;52959-0864-40
 ;;9002226.02101,"1828,52959-0864-40 ",.02)
 ;;52959-0864-40
 ;;9002226.02101,"1828,52959-0864-60 ",.01)
 ;;52959-0864-60
 ;;9002226.02101,"1828,52959-0864-60 ",.02)
 ;;52959-0864-60
 ;;9002226.02101,"1828,52959-0864-90 ",.01)
 ;;52959-0864-90
 ;;9002226.02101,"1828,52959-0864-90 ",.02)
 ;;52959-0864-90
 ;;9002226.02101,"1828,52959-0873-30 ",.01)
 ;;52959-0873-30
 ;;9002226.02101,"1828,52959-0873-30 ",.02)
 ;;52959-0873-30
 ;;9002226.02101,"1828,52959-0873-60 ",.01)
 ;;52959-0873-60
 ;;9002226.02101,"1828,52959-0873-60 ",.02)
 ;;52959-0873-60
 ;;9002226.02101,"1828,52959-0874-30 ",.01)
 ;;52959-0874-30
 ;;9002226.02101,"1828,52959-0874-30 ",.02)
 ;;52959-0874-30
 ;;9002226.02101,"1828,52959-0874-60 ",.01)
 ;;52959-0874-60
 ;;9002226.02101,"1828,52959-0874-60 ",.02)
 ;;52959-0874-60
 ;;9002226.02101,"1828,52959-0887-30 ",.01)
 ;;52959-0887-30
 ;;9002226.02101,"1828,52959-0887-30 ",.02)
 ;;52959-0887-30
 ;;9002226.02101,"1828,52959-0915-01 ",.01)
 ;;52959-0915-01
 ;;9002226.02101,"1828,52959-0915-01 ",.02)
 ;;52959-0915-01
 ;;9002226.02101,"1828,52959-0964-30 ",.01)
 ;;52959-0964-30
 ;;9002226.02101,"1828,52959-0964-30 ",.02)
 ;;52959-0964-30
 ;;9002226.02101,"1828,52959-0965-15 ",.01)
 ;;52959-0965-15
 ;;9002226.02101,"1828,52959-0965-15 ",.02)
 ;;52959-0965-15
 ;;9002226.02101,"1828,52959-0965-30 ",.01)
 ;;52959-0965-30
 ;;9002226.02101,"1828,52959-0965-30 ",.02)
 ;;52959-0965-30
 ;;9002226.02101,"1828,52959-0965-60 ",.01)
 ;;52959-0965-60
 ;;9002226.02101,"1828,52959-0965-60 ",.02)
 ;;52959-0965-60
 ;;9002226.02101,"1828,52959-0970-30 ",.01)
 ;;52959-0970-30
 ;;9002226.02101,"1828,52959-0970-30 ",.02)
 ;;52959-0970-30
 ;;9002226.02101,"1828,53002-0395-05 ",.01)
 ;;53002-0395-05
 ;;9002226.02101,"1828,53002-0395-05 ",.02)
 ;;53002-0395-05
 ;;9002226.02101,"1828,53002-0395-10 ",.01)
 ;;53002-0395-10
 ;;9002226.02101,"1828,53002-0395-10 ",.02)
 ;;53002-0395-10
 ;;9002226.02101,"1828,53002-0395-15 ",.01)
 ;;53002-0395-15
 ;;9002226.02101,"1828,53002-0395-15 ",.02)
 ;;53002-0395-15
 ;;9002226.02101,"1828,53002-0395-20 ",.01)
 ;;53002-0395-20
 ;;9002226.02101,"1828,53002-0395-20 ",.02)
 ;;53002-0395-20
 ;;9002226.02101,"1828,53002-0395-30 ",.01)
 ;;53002-0395-30
 ;;9002226.02101,"1828,53002-0395-30 ",.02)
 ;;53002-0395-30
 ;;9002226.02101,"1828,53217-0056-07 ",.01)
 ;;53217-0056-07
 ;;9002226.02101,"1828,53217-0056-07 ",.02)
 ;;53217-0056-07
 ;;9002226.02101,"1828,53217-0056-14 ",.01)
 ;;53217-0056-14
 ;;9002226.02101,"1828,53217-0056-14 ",.02)
 ;;53217-0056-14
 ;;9002226.02101,"1828,53217-0056-21 ",.01)
 ;;53217-0056-21
 ;;9002226.02101,"1828,53217-0056-21 ",.02)
 ;;53217-0056-21
 ;;9002226.02101,"1828,53217-0056-30 ",.01)
 ;;53217-0056-30
 ;;9002226.02101,"1828,53217-0056-30 ",.02)
 ;;53217-0056-30
 ;;9002226.02101,"1828,53217-0056-60 ",.01)
 ;;53217-0056-60
 ;;9002226.02101,"1828,53217-0056-60 ",.02)
 ;;53217-0056-60
 ;;9002226.02101,"1828,53217-0056-90 ",.01)
 ;;53217-0056-90
 ;;9002226.02101,"1828,53217-0056-90 ",.02)
 ;;53217-0056-90
 ;;9002226.02101,"1828,53217-0179-02 ",.01)
 ;;53217-0179-02
 ;;9002226.02101,"1828,53217-0179-02 ",.02)
 ;;53217-0179-02
 ;;9002226.02101,"1828,53217-0179-30 ",.01)
 ;;53217-0179-30
 ;;9002226.02101,"1828,53217-0179-30 ",.02)
 ;;53217-0179-30
 ;;9002226.02101,"1828,53217-0179-45 ",.01)
 ;;53217-0179-45
 ;;9002226.02101,"1828,53217-0179-45 ",.02)
 ;;53217-0179-45
 ;;9002226.02101,"1828,53217-0179-60 ",.01)
 ;;53217-0179-60
 ;;9002226.02101,"1828,53217-0179-60 ",.02)
 ;;53217-0179-60
 ;;9002226.02101,"1828,53217-0179-90 ",.01)
 ;;53217-0179-90
 ;;9002226.02101,"1828,53217-0179-90 ",.02)
 ;;53217-0179-90
 ;;9002226.02101,"1828,53217-0183-20 ",.01)
 ;;53217-0183-20
 ;;9002226.02101,"1828,53217-0183-20 ",.02)
 ;;53217-0183-20
 ;;9002226.02101,"1828,53217-0183-30 ",.01)
 ;;53217-0183-30
 ;;9002226.02101,"1828,53217-0183-30 ",.02)
 ;;53217-0183-30
 ;;9002226.02101,"1828,53217-0184-00 ",.01)
 ;;53217-0184-00
 ;;9002226.02101,"1828,53217-0184-00 ",.02)
 ;;53217-0184-00
 ;;9002226.02101,"1828,53217-0184-02 ",.01)
 ;;53217-0184-02
 ;;9002226.02101,"1828,53217-0184-02 ",.02)
 ;;53217-0184-02
 ;;9002226.02101,"1828,53217-0184-05 ",.01)
 ;;53217-0184-05
 ;;9002226.02101,"1828,53217-0184-05 ",.02)
 ;;53217-0184-05
 ;;9002226.02101,"1828,53217-0184-07 ",.01)
 ;;53217-0184-07
 ;;9002226.02101,"1828,53217-0184-07 ",.02)
 ;;53217-0184-07
 ;;9002226.02101,"1828,53217-0184-08 ",.01)
 ;;53217-0184-08
 ;;9002226.02101,"1828,53217-0184-08 ",.02)
 ;;53217-0184-08
 ;;9002226.02101,"1828,53217-0184-10 ",.01)
 ;;53217-0184-10
 ;;9002226.02101,"1828,53217-0184-10 ",.02)
 ;;53217-0184-10
 ;;9002226.02101,"1828,53217-0184-14 ",.01)
 ;;53217-0184-14
 ;;9002226.02101,"1828,53217-0184-14 ",.02)
 ;;53217-0184-14
 ;;9002226.02101,"1828,53217-0184-20 ",.01)
 ;;53217-0184-20
 ;;9002226.02101,"1828,53217-0184-20 ",.02)
 ;;53217-0184-20
 ;;9002226.02101,"1828,53217-0184-29 ",.01)
 ;;53217-0184-29
 ;;9002226.02101,"1828,53217-0184-29 ",.02)
 ;;53217-0184-29
 ;;9002226.02101,"1828,53217-0184-30 ",.01)
 ;;53217-0184-30
 ;;9002226.02101,"1828,53217-0184-30 ",.02)
 ;;53217-0184-30
 ;;9002226.02101,"1828,53217-0184-31 ",.01)
 ;;53217-0184-31
 ;;9002226.02101,"1828,53217-0184-31 ",.02)
 ;;53217-0184-31
 ;;9002226.02101,"1828,53217-0184-60 ",.01)
 ;;53217-0184-60
 ;;9002226.02101,"1828,53217-0184-60 ",.02)
 ;;53217-0184-60
 ;;9002226.02101,"1828,53217-0184-90 ",.01)
 ;;53217-0184-90
 ;;9002226.02101,"1828,53217-0184-90 ",.02)
 ;;53217-0184-90
 ;;9002226.02101,"1828,53217-0185-00 ",.01)
 ;;53217-0185-00
 ;;9002226.02101,"1828,53217-0185-00 ",.02)
 ;;53217-0185-00
 ;;9002226.02101,"1828,53217-0185-02 ",.01)
 ;;53217-0185-02
 ;;9002226.02101,"1828,53217-0185-02 ",.02)
 ;;53217-0185-02
 ;;9002226.02101,"1828,53217-0185-05 ",.01)
 ;;53217-0185-05
 ;;9002226.02101,"1828,53217-0185-05 ",.02)
 ;;53217-0185-05
 ;;9002226.02101,"1828,53217-0185-07 ",.01)
 ;;53217-0185-07
 ;;9002226.02101,"1828,53217-0185-07 ",.02)
 ;;53217-0185-07
 ;;9002226.02101,"1828,53217-0185-08 ",.01)
 ;;53217-0185-08
 ;;9002226.02101,"1828,53217-0185-08 ",.02)
 ;;53217-0185-08
 ;;9002226.02101,"1828,53217-0185-10 ",.01)
 ;;53217-0185-10
 ;;9002226.02101,"1828,53217-0185-10 ",.02)
 ;;53217-0185-10
 ;;9002226.02101,"1828,53217-0185-14 ",.01)
 ;;53217-0185-14
 ;;9002226.02101,"1828,53217-0185-14 ",.02)
 ;;53217-0185-14
 ;;9002226.02101,"1828,53217-0185-20 ",.01)
 ;;53217-0185-20
 ;;9002226.02101,"1828,53217-0185-20 ",.02)
 ;;53217-0185-20
 ;;9002226.02101,"1828,53217-0185-29 ",.01)
 ;;53217-0185-29
 ;;9002226.02101,"1828,53217-0185-29 ",.02)
 ;;53217-0185-29
 ;;9002226.02101,"1828,53217-0185-30 ",.01)
 ;;53217-0185-30
 ;;9002226.02101,"1828,53217-0185-30 ",.02)
 ;;53217-0185-30
 ;;9002226.02101,"1828,53217-0185-31 ",.01)
 ;;53217-0185-31
 ;;9002226.02101,"1828,53217-0185-31 ",.02)
 ;;53217-0185-31
 ;;9002226.02101,"1828,53217-0185-60 ",.01)
 ;;53217-0185-60
 ;;9002226.02101,"1828,53217-0185-60 ",.02)
 ;;53217-0185-60
 ;;9002226.02101,"1828,53217-0185-90 ",.01)
 ;;53217-0185-90
 ;;9002226.02101,"1828,53217-0185-90 ",.02)
 ;;53217-0185-90
 ;;9002226.02101,"1828,53217-0189-02 ",.01)
 ;;53217-0189-02
 ;;9002226.02101,"1828,53217-0189-02 ",.02)
 ;;53217-0189-02
 ;;9002226.02101,"1828,53217-0189-30 ",.01)
 ;;53217-0189-30
 ;;9002226.02101,"1828,53217-0189-30 ",.02)
 ;;53217-0189-30
 ;;9002226.02101,"1828,53217-0189-60 ",.01)
 ;;53217-0189-60
 ;;9002226.02101,"1828,53217-0189-60 ",.02)
 ;;53217-0189-60
 ;;9002226.02101,"1828,53217-0189-90 ",.01)
 ;;53217-0189-90
 ;;9002226.02101,"1828,53217-0189-90 ",.02)
 ;;53217-0189-90
 ;;9002226.02101,"1828,53217-0200-30 ",.01)
 ;;53217-0200-30
 ;;9002226.02101,"1828,53217-0200-30 ",.02)
 ;;53217-0200-30
 ;;9002226.02101,"1828,53217-0200-60 ",.01)
 ;;53217-0200-60
 ;;9002226.02101,"1828,53217-0200-60 ",.02)
 ;;53217-0200-60
 ;;9002226.02101,"1828,53217-0200-90 ",.01)
 ;;53217-0200-90
 ;;9002226.02101,"1828,53217-0200-90 ",.02)
 ;;53217-0200-90
 ;;9002226.02101,"1828,53217-0205-30 ",.01)
 ;;53217-0205-30
 ;;9002226.02101,"1828,53217-0205-30 ",.02)
 ;;53217-0205-30
 ;;9002226.02101,"1828,53217-0208-02 ",.01)
 ;;53217-0208-02
 ;;9002226.02101,"1828,53217-0208-02 ",.02)
 ;;53217-0208-02
 ;;9002226.02101,"1828,53217-0208-05 ",.01)
 ;;53217-0208-05
 ;;9002226.02101,"1828,53217-0208-05 ",.02)
 ;;53217-0208-05
 ;;9002226.02101,"1828,53217-0208-30 ",.01)
 ;;53217-0208-30
 ;;9002226.02101,"1828,53217-0208-30 ",.02)
 ;;53217-0208-30
 ;;9002226.02101,"1828,53217-0208-45 ",.01)
 ;;53217-0208-45
 ;;9002226.02101,"1828,53217-0208-45 ",.02)
 ;;53217-0208-45
 ;;9002226.02101,"1828,53217-0208-60 ",.01)
 ;;53217-0208-60
 ;;9002226.02101,"1828,53217-0208-60 ",.02)
 ;;53217-0208-60
 ;;9002226.02101,"1828,53217-0208-90 ",.01)
 ;;53217-0208-90
 ;;9002226.02101,"1828,53217-0208-90 ",.02)
 ;;53217-0208-90
 ;;9002226.02101,"1828,53217-0216-00 ",.01)
 ;;53217-0216-00
 ;;9002226.02101,"1828,53217-0216-00 ",.02)
 ;;53217-0216-00
 ;;9002226.02101,"1828,53217-0216-15 ",.01)
 ;;53217-0216-15
 ;;9002226.02101,"1828,53217-0216-15 ",.02)
 ;;53217-0216-15