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

BGP82Z64.m

Go to the documentation of this file.
BGP82Z64 ; 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,"619,63187-0120-60 ",.02)
 ;;63187-0120-60
 ;;9002226.02101,"619,63187-0375-15 ",.01)
 ;;63187-0375-15
 ;;9002226.02101,"619,63187-0375-15 ",.02)
 ;;63187-0375-15
 ;;9002226.02101,"619,63187-0375-20 ",.01)
 ;;63187-0375-20
 ;;9002226.02101,"619,63187-0375-20 ",.02)
 ;;63187-0375-20
 ;;9002226.02101,"619,63187-0375-30 ",.01)
 ;;63187-0375-30
 ;;9002226.02101,"619,63187-0375-30 ",.02)
 ;;63187-0375-30
 ;;9002226.02101,"619,63187-0375-60 ",.01)
 ;;63187-0375-60
 ;;9002226.02101,"619,63187-0375-60 ",.02)
 ;;63187-0375-60
 ;;9002226.02101,"619,63187-0615-30 ",.01)
 ;;63187-0615-30
 ;;9002226.02101,"619,63187-0615-30 ",.02)
 ;;63187-0615-30
 ;;9002226.02101,"619,63187-0615-60 ",.01)
 ;;63187-0615-60
 ;;9002226.02101,"619,63187-0615-60 ",.02)
 ;;63187-0615-60
 ;;9002226.02101,"619,63187-0658-30 ",.01)
 ;;63187-0658-30
 ;;9002226.02101,"619,63187-0658-30 ",.02)
 ;;63187-0658-30
 ;;9002226.02101,"619,63187-0658-60 ",.01)
 ;;63187-0658-60
 ;;9002226.02101,"619,63187-0658-60 ",.02)
 ;;63187-0658-60
 ;;9002226.02101,"619,63187-0705-00 ",.01)
 ;;63187-0705-00
 ;;9002226.02101,"619,63187-0705-00 ",.02)
 ;;63187-0705-00
 ;;9002226.02101,"619,63187-0705-60 ",.01)
 ;;63187-0705-60
 ;;9002226.02101,"619,63187-0705-60 ",.02)
 ;;63187-0705-60
 ;;9002226.02101,"619,63187-0719-30 ",.01)
 ;;63187-0719-30
 ;;9002226.02101,"619,63187-0719-30 ",.02)
 ;;63187-0719-30
 ;;9002226.02101,"619,63187-0778-15 ",.01)
 ;;63187-0778-15
 ;;9002226.02101,"619,63187-0778-15 ",.02)
 ;;63187-0778-15
 ;;9002226.02101,"619,63187-0778-30 ",.01)
 ;;63187-0778-30
 ;;9002226.02101,"619,63187-0778-30 ",.02)
 ;;63187-0778-30
 ;;9002226.02101,"619,63187-0778-60 ",.01)
 ;;63187-0778-60
 ;;9002226.02101,"619,63187-0778-60 ",.02)
 ;;63187-0778-60
 ;;9002226.02101,"619,63187-0778-90 ",.01)
 ;;63187-0778-90
 ;;9002226.02101,"619,63187-0778-90 ",.02)
 ;;63187-0778-90
 ;;9002226.02101,"619,63187-0815-20 ",.01)
 ;;63187-0815-20
 ;;9002226.02101,"619,63187-0815-20 ",.02)
 ;;63187-0815-20
 ;;9002226.02101,"619,63187-0815-30 ",.01)
 ;;63187-0815-30
 ;;9002226.02101,"619,63187-0815-30 ",.02)
 ;;63187-0815-30
 ;;9002226.02101,"619,63187-0823-60 ",.01)
 ;;63187-0823-60
 ;;9002226.02101,"619,63187-0823-60 ",.02)
 ;;63187-0823-60
 ;;9002226.02101,"619,63187-0824-30 ",.01)
 ;;63187-0824-30
 ;;9002226.02101,"619,63187-0824-30 ",.02)
 ;;63187-0824-30
 ;;9002226.02101,"619,63187-0824-90 ",.01)
 ;;63187-0824-90
 ;;9002226.02101,"619,63187-0824-90 ",.02)
 ;;63187-0824-90
 ;;9002226.02101,"619,63187-0838-60 ",.01)
 ;;63187-0838-60
 ;;9002226.02101,"619,63187-0838-60 ",.02)
 ;;63187-0838-60
 ;;9002226.02101,"619,63187-0838-90 ",.01)
 ;;63187-0838-90
 ;;9002226.02101,"619,63187-0838-90 ",.02)
 ;;63187-0838-90
 ;;9002226.02101,"619,63304-0450-01 ",.01)
 ;;63304-0450-01
 ;;9002226.02101,"619,63304-0450-01 ",.02)
 ;;63304-0450-01
 ;;9002226.02101,"619,63304-0451-01 ",.01)
 ;;63304-0451-01
 ;;9002226.02101,"619,63304-0451-01 ",.02)
 ;;63304-0451-01
 ;;9002226.02101,"619,63304-0452-01 ",.01)
 ;;63304-0452-01
 ;;9002226.02101,"619,63304-0452-01 ",.02)
 ;;63304-0452-01
 ;;9002226.02101,"619,63304-0453-01 ",.01)
 ;;63304-0453-01
 ;;9002226.02101,"619,63304-0453-01 ",.02)
 ;;63304-0453-01
 ;;9002226.02101,"619,63304-0561-01 ",.01)
 ;;63304-0561-01
 ;;9002226.02101,"619,63304-0561-01 ",.02)
 ;;63304-0561-01
 ;;9002226.02101,"619,63304-0683-01 ",.01)
 ;;63304-0683-01
 ;;9002226.02101,"619,63304-0683-01 ",.02)
 ;;63304-0683-01
 ;;9002226.02101,"619,63304-0684-01 ",.01)
 ;;63304-0684-01
 ;;9002226.02101,"619,63304-0684-01 ",.02)
 ;;63304-0684-01
 ;;9002226.02101,"619,63304-0758-01 ",.01)
 ;;63304-0758-01
 ;;9002226.02101,"619,63304-0758-01 ",.02)
 ;;63304-0758-01
 ;;9002226.02101,"619,63459-0502-01 ",.01)
 ;;63459-0502-01
 ;;9002226.02101,"619,63459-0502-01 ",.02)
 ;;63459-0502-01
 ;;9002226.02101,"619,63459-0502-30 ",.01)
 ;;63459-0502-30
 ;;9002226.02101,"619,63459-0502-30 ",.02)
 ;;63459-0502-30
 ;;9002226.02101,"619,63459-0504-01 ",.01)
 ;;63459-0504-01
 ;;9002226.02101,"619,63459-0504-01 ",.02)
 ;;63459-0504-01
 ;;9002226.02101,"619,63459-0504-30 ",.01)
 ;;63459-0504-30
 ;;9002226.02101,"619,63459-0504-30 ",.02)
 ;;63459-0504-30
 ;;9002226.02101,"619,63459-0506-01 ",.01)
 ;;63459-0506-01
 ;;9002226.02101,"619,63459-0506-01 ",.02)
 ;;63459-0506-01
 ;;9002226.02101,"619,63459-0506-30 ",.01)
 ;;63459-0506-30
 ;;9002226.02101,"619,63459-0506-30 ",.02)
 ;;63459-0506-30
 ;;9002226.02101,"619,63459-0508-01 ",.01)
 ;;63459-0508-01
 ;;9002226.02101,"619,63459-0508-01 ",.02)
 ;;63459-0508-01
 ;;9002226.02101,"619,63459-0508-30 ",.01)
 ;;63459-0508-30
 ;;9002226.02101,"619,63459-0508-30 ",.02)
 ;;63459-0508-30
 ;;9002226.02101,"619,63459-0512-01 ",.01)
 ;;63459-0512-01
 ;;9002226.02101,"619,63459-0512-01 ",.02)
 ;;63459-0512-01
 ;;9002226.02101,"619,63459-0512-30 ",.01)
 ;;63459-0512-30
 ;;9002226.02101,"619,63459-0512-30 ",.02)
 ;;63459-0512-30
 ;;9002226.02101,"619,63459-0516-01 ",.01)
 ;;63459-0516-01
 ;;9002226.02101,"619,63459-0516-01 ",.02)
 ;;63459-0516-01
 ;;9002226.02101,"619,63459-0516-30 ",.01)
 ;;63459-0516-30
 ;;9002226.02101,"619,63459-0516-30 ",.02)
 ;;63459-0516-30
 ;;9002226.02101,"619,63459-0541-04 ",.01)
 ;;63459-0541-04
 ;;9002226.02101,"619,63459-0541-04 ",.02)
 ;;63459-0541-04
 ;;9002226.02101,"619,63459-0541-28 ",.01)
 ;;63459-0541-28
 ;;9002226.02101,"619,63459-0541-28 ",.02)
 ;;63459-0541-28
 ;;9002226.02101,"619,63459-0542-04 ",.01)
 ;;63459-0542-04
 ;;9002226.02101,"619,63459-0542-04 ",.02)
 ;;63459-0542-04
 ;;9002226.02101,"619,63459-0542-28 ",.01)
 ;;63459-0542-28
 ;;9002226.02101,"619,63459-0542-28 ",.02)
 ;;63459-0542-28
 ;;9002226.02101,"619,63459-0544-04 ",.01)
 ;;63459-0544-04
 ;;9002226.02101,"619,63459-0544-04 ",.02)
 ;;63459-0544-04
 ;;9002226.02101,"619,63459-0544-28 ",.01)
 ;;63459-0544-28
 ;;9002226.02101,"619,63459-0544-28 ",.02)
 ;;63459-0544-28
 ;;9002226.02101,"619,63459-0546-04 ",.01)
 ;;63459-0546-04
 ;;9002226.02101,"619,63459-0546-04 ",.02)
 ;;63459-0546-04
 ;;9002226.02101,"619,63459-0546-28 ",.01)
 ;;63459-0546-28
 ;;9002226.02101,"619,63459-0546-28 ",.02)
 ;;63459-0546-28
 ;;9002226.02101,"619,63459-0548-04 ",.01)
 ;;63459-0548-04
 ;;9002226.02101,"619,63459-0548-04 ",.02)
 ;;63459-0548-04
 ;;9002226.02101,"619,63459-0548-28 ",.01)
 ;;63459-0548-28
 ;;9002226.02101,"619,63459-0548-28 ",.02)
 ;;63459-0548-28
 ;;9002226.02101,"619,63481-0161-01 ",.01)
 ;;63481-0161-01
 ;;9002226.02101,"619,63481-0161-01 ",.02)
 ;;63481-0161-01
 ;;9002226.02101,"619,63481-0161-60 ",.01)
 ;;63481-0161-60
 ;;9002226.02101,"619,63481-0161-60 ",.02)
 ;;63481-0161-60
 ;;9002226.02101,"619,63481-0207-01 ",.01)
 ;;63481-0207-01
 ;;9002226.02101,"619,63481-0207-01 ",.02)
 ;;63481-0207-01
 ;;9002226.02101,"619,63481-0207-60 ",.01)
 ;;63481-0207-60
 ;;9002226.02101,"619,63481-0207-60 ",.02)
 ;;63481-0207-60
 ;;9002226.02101,"619,63481-0348-01 ",.01)
 ;;63481-0348-01
 ;;9002226.02101,"619,63481-0348-01 ",.02)
 ;;63481-0348-01
 ;;9002226.02101,"619,63481-0348-60 ",.01)
 ;;63481-0348-60
 ;;9002226.02101,"619,63481-0348-60 ",.02)
 ;;63481-0348-60
 ;;9002226.02101,"619,63481-0519-01 ",.01)
 ;;63481-0519-01
 ;;9002226.02101,"619,63481-0519-01 ",.02)
 ;;63481-0519-01
 ;;9002226.02101,"619,63481-0519-60 ",.01)
 ;;63481-0519-60
 ;;9002226.02101,"619,63481-0519-60 ",.02)
 ;;63481-0519-60
 ;;9002226.02101,"619,63481-0612-70 ",.01)
 ;;63481-0612-70
 ;;9002226.02101,"619,63481-0612-70 ",.02)
 ;;63481-0612-70
 ;;9002226.02101,"619,63481-0613-70 ",.01)
 ;;63481-0613-70
 ;;9002226.02101,"619,63481-0613-70 ",.02)
 ;;63481-0613-70
 ;;9002226.02101,"619,63481-0623-70 ",.01)
 ;;63481-0623-70
 ;;9002226.02101,"619,63481-0623-70 ",.02)
 ;;63481-0623-70
 ;;9002226.02101,"619,63481-0623-85 ",.01)
 ;;63481-0623-85
 ;;9002226.02101,"619,63481-0623-85 ",.02)
 ;;63481-0623-85
 ;;9002226.02101,"619,63481-0627-70 ",.01)
 ;;63481-0627-70
 ;;9002226.02101,"619,63481-0627-70 ",.02)
 ;;63481-0627-70
 ;;9002226.02101,"619,63481-0628-70 ",.01)
 ;;63481-0628-70
 ;;9002226.02101,"619,63481-0628-70 ",.02)
 ;;63481-0628-70
 ;;9002226.02101,"619,63481-0629-70 ",.01)
 ;;63481-0629-70
 ;;9002226.02101,"619,63481-0629-70 ",.02)
 ;;63481-0629-70
 ;;9002226.02101,"619,63481-0685-01 ",.01)
 ;;63481-0685-01
 ;;9002226.02101,"619,63481-0685-01 ",.02)
 ;;63481-0685-01
 ;;9002226.02101,"619,63481-0685-60 ",.01)
 ;;63481-0685-60
 ;;9002226.02101,"619,63481-0685-60 ",.02)
 ;;63481-0685-60
 ;;9002226.02101,"619,63481-0812-20 ",.01)
 ;;63481-0812-20
 ;;9002226.02101,"619,63481-0812-20 ",.02)
 ;;63481-0812-20
 ;;9002226.02101,"619,63481-0812-60 ",.01)
 ;;63481-0812-60
 ;;9002226.02101,"619,63481-0812-60 ",.02)
 ;;63481-0812-60
 ;;9002226.02101,"619,63481-0813-20 ",.01)
 ;;63481-0813-20
 ;;9002226.02101,"619,63481-0813-20 ",.02)
 ;;63481-0813-20
 ;;9002226.02101,"619,63481-0813-60 ",.01)
 ;;63481-0813-60
 ;;9002226.02101,"619,63481-0813-60 ",.02)
 ;;63481-0813-60
 ;;9002226.02101,"619,63481-0814-20 ",.01)
 ;;63481-0814-20
 ;;9002226.02101,"619,63481-0814-20 ",.02)
 ;;63481-0814-20
 ;;9002226.02101,"619,63481-0814-60 ",.01)
 ;;63481-0814-60
 ;;9002226.02101,"619,63481-0814-60 ",.02)
 ;;63481-0814-60
 ;;9002226.02101,"619,63481-0815-20 ",.01)
 ;;63481-0815-20
 ;;9002226.02101,"619,63481-0815-20 ",.02)
 ;;63481-0815-20
 ;;9002226.02101,"619,63481-0815-60 ",.01)
 ;;63481-0815-60
 ;;9002226.02101,"619,63481-0815-60 ",.02)
 ;;63481-0815-60
 ;;9002226.02101,"619,63481-0816-20 ",.01)
 ;;63481-0816-20
 ;;9002226.02101,"619,63481-0816-20 ",.02)
 ;;63481-0816-20
 ;;9002226.02101,"619,63481-0816-60 ",.01)
 ;;63481-0816-60
 ;;9002226.02101,"619,63481-0816-60 ",.02)
 ;;63481-0816-60
 ;;9002226.02101,"619,63481-0817-20 ",.01)
 ;;63481-0817-20
 ;;9002226.02101,"619,63481-0817-20 ",.02)
 ;;63481-0817-20
 ;;9002226.02101,"619,63481-0817-60 ",.01)
 ;;63481-0817-60
 ;;9002226.02101,"619,63481-0817-60 ",.02)
 ;;63481-0817-60
 ;;9002226.02101,"619,63481-0818-20 ",.01)
 ;;63481-0818-20
 ;;9002226.02101,"619,63481-0818-20 ",.02)
 ;;63481-0818-20
 ;;9002226.02101,"619,63481-0818-60 ",.01)
 ;;63481-0818-60
 ;;9002226.02101,"619,63481-0818-60 ",.02)
 ;;63481-0818-60
 ;;9002226.02101,"619,63481-0820-01 ",.01)
 ;;63481-0820-01
 ;;9002226.02101,"619,63481-0820-01 ",.02)
 ;;63481-0820-01
 ;;9002226.02101,"619,63481-0820-60 ",.01)
 ;;63481-0820-60
 ;;9002226.02101,"619,63481-0820-60 ",.02)
 ;;63481-0820-60
 ;;9002226.02101,"619,63481-0952-01 ",.01)
 ;;63481-0952-01
 ;;9002226.02101,"619,63481-0952-01 ",.02)
 ;;63481-0952-01
 ;;9002226.02101,"619,63481-0952-60 ",.01)
 ;;63481-0952-60
 ;;9002226.02101,"619,63481-0952-60 ",.02)
 ;;63481-0952-60
 ;;9002226.02101,"619,63629-1494-00 ",.01)
 ;;63629-1494-00
 ;;9002226.02101,"619,63629-1494-00 ",.02)
 ;;63629-1494-00
 ;;9002226.02101,"619,63629-1494-01 ",.01)
 ;;63629-1494-01
 ;;9002226.02101,"619,63629-1494-01 ",.02)
 ;;63629-1494-01
 ;;9002226.02101,"619,63629-1494-02 ",.01)
 ;;63629-1494-02
 ;;9002226.02101,"619,63629-1494-02 ",.02)
 ;;63629-1494-02
 ;;9002226.02101,"619,63629-1494-03 ",.01)
 ;;63629-1494-03
 ;;9002226.02101,"619,63629-1494-03 ",.02)
 ;;63629-1494-03
 ;;9002226.02101,"619,63629-1494-04 ",.01)
 ;;63629-1494-04
 ;;9002226.02101,"619,63629-1494-04 ",.02)
 ;;63629-1494-04
 ;;9002226.02101,"619,63629-1494-05 ",.01)
 ;;63629-1494-05
 ;;9002226.02101,"619,63629-1494-05 ",.02)
 ;;63629-1494-05
 ;;9002226.02101,"619,63629-1494-06 ",.01)
 ;;63629-1494-06
 ;;9002226.02101,"619,63629-1494-06 ",.02)
 ;;63629-1494-06
 ;;9002226.02101,"619,63629-1494-07 ",.01)
 ;;63629-1494-07
 ;;9002226.02101,"619,63629-1494-07 ",.02)
 ;;63629-1494-07
 ;;9002226.02101,"619,63629-1494-08 ",.01)
 ;;63629-1494-08