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

BGP81W12.m

Go to the documentation of this file.
BGP81W12 ; 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,"1795,17478-0802-16 ",.01)
 ;;17478-0802-16
 ;;9002226.02101,"1795,17478-0802-16 ",.02)
 ;;17478-0802-16
 ;;9002226.02101,"1795,17478-0805-04 ",.01)
 ;;17478-0805-04
 ;;9002226.02101,"1795,17478-0805-04 ",.02)
 ;;17478-0805-04
 ;;9002226.02101,"1795,17478-0805-16 ",.01)
 ;;17478-0805-16
 ;;9002226.02101,"1795,17478-0805-16 ",.02)
 ;;17478-0805-16
 ;;9002226.02101,"1795,17856-0052-05 ",.01)
 ;;17856-0052-05
 ;;9002226.02101,"1795,17856-0052-05 ",.02)
 ;;17856-0052-05
 ;;9002226.02101,"1795,17856-0235-05 ",.01)
 ;;17856-0235-05
 ;;9002226.02101,"1795,17856-0235-05 ",.02)
 ;;17856-0235-05
 ;;9002226.02101,"1795,17856-0423-03 ",.01)
 ;;17856-0423-03
 ;;9002226.02101,"1795,17856-0423-03 ",.02)
 ;;17856-0423-03
 ;;9002226.02101,"1795,17856-0423-04 ",.01)
 ;;17856-0423-04
 ;;9002226.02101,"1795,17856-0423-04 ",.02)
 ;;17856-0423-04
 ;;9002226.02101,"1795,17856-0423-05 ",.01)
 ;;17856-0423-05
 ;;9002226.02101,"1795,17856-0423-05 ",.02)
 ;;17856-0423-05
 ;;9002226.02101,"1795,17856-0423-09 ",.01)
 ;;17856-0423-09
 ;;9002226.02101,"1795,17856-0423-09 ",.02)
 ;;17856-0423-09
 ;;9002226.02101,"1795,17856-0490-30 ",.01)
 ;;17856-0490-30
 ;;9002226.02101,"1795,17856-0490-30 ",.02)
 ;;17856-0490-30
 ;;9002226.02101,"1795,17856-0490-31 ",.01)
 ;;17856-0490-31
 ;;9002226.02101,"1795,17856-0490-31 ",.02)
 ;;17856-0490-31
 ;;9002226.02101,"1795,17856-0490-32 ",.01)
 ;;17856-0490-32
 ;;9002226.02101,"1795,17856-0490-32 ",.02)
 ;;17856-0490-32
 ;;9002226.02101,"1795,17856-0604-05 ",.01)
 ;;17856-0604-05
 ;;9002226.02101,"1795,17856-0604-05 ",.02)
 ;;17856-0604-05
 ;;9002226.02101,"1795,17856-0608-05 ",.01)
 ;;17856-0608-05
 ;;9002226.02101,"1795,17856-0608-05 ",.02)
 ;;17856-0608-05
 ;;9002226.02101,"1795,17856-0804-05 ",.01)
 ;;17856-0804-05
 ;;9002226.02101,"1795,17856-0804-05 ",.02)
 ;;17856-0804-05
 ;;9002226.02101,"1795,17856-1161-01 ",.01)
 ;;17856-1161-01
 ;;9002226.02101,"1795,17856-1161-01 ",.02)
 ;;17856-1161-01
 ;;9002226.02101,"1795,21695-0208-15 ",.01)
 ;;21695-0208-15
 ;;9002226.02101,"1795,21695-0208-15 ",.02)
 ;;21695-0208-15
 ;;9002226.02101,"1795,21695-0208-20 ",.01)
 ;;21695-0208-20
 ;;9002226.02101,"1795,21695-0208-20 ",.02)
 ;;21695-0208-20
 ;;9002226.02101,"1795,21695-0208-30 ",.01)
 ;;21695-0208-30
 ;;9002226.02101,"1795,21695-0208-30 ",.02)
 ;;21695-0208-30
 ;;9002226.02101,"1795,21695-0208-60 ",.01)
 ;;21695-0208-60
 ;;9002226.02101,"1795,21695-0208-60 ",.02)
 ;;21695-0208-60
 ;;9002226.02101,"1795,21695-0208-90 ",.01)
 ;;21695-0208-90
 ;;9002226.02101,"1795,21695-0208-90 ",.02)
 ;;21695-0208-90
 ;;9002226.02101,"1795,21695-0218-30 ",.01)
 ;;21695-0218-30
 ;;9002226.02101,"1795,21695-0218-30 ",.02)
 ;;21695-0218-30
 ;;9002226.02101,"1795,21695-0218-60 ",.01)
 ;;21695-0218-60
 ;;9002226.02101,"1795,21695-0218-60 ",.02)
 ;;21695-0218-60
 ;;9002226.02101,"1795,21695-0218-90 ",.01)
 ;;21695-0218-90
 ;;9002226.02101,"1795,21695-0218-90 ",.02)
 ;;21695-0218-90
 ;;9002226.02101,"1795,21695-0219-20 ",.01)
 ;;21695-0219-20
 ;;9002226.02101,"1795,21695-0219-20 ",.02)
 ;;21695-0219-20
 ;;9002226.02101,"1795,21695-0219-30 ",.01)
 ;;21695-0219-30
 ;;9002226.02101,"1795,21695-0219-30 ",.02)
 ;;21695-0219-30
 ;;9002226.02101,"1795,21695-0237-10 ",.01)
 ;;21695-0237-10
 ;;9002226.02101,"1795,21695-0237-10 ",.02)
 ;;21695-0237-10
 ;;9002226.02101,"1795,21695-0237-15 ",.01)
 ;;21695-0237-15
 ;;9002226.02101,"1795,21695-0237-15 ",.02)
 ;;21695-0237-15
 ;;9002226.02101,"1795,21695-0237-30 ",.01)
 ;;21695-0237-30
 ;;9002226.02101,"1795,21695-0237-30 ",.02)
 ;;21695-0237-30
 ;;9002226.02101,"1795,21695-0237-40 ",.01)
 ;;21695-0237-40
 ;;9002226.02101,"1795,21695-0237-40 ",.02)
 ;;21695-0237-40
 ;;9002226.02101,"1795,21695-0237-90 ",.01)
 ;;21695-0237-90
 ;;9002226.02101,"1795,21695-0237-90 ",.02)
 ;;21695-0237-90
 ;;9002226.02101,"1795,21695-0286-30 ",.01)
 ;;21695-0286-30
 ;;9002226.02101,"1795,21695-0286-30 ",.02)
 ;;21695-0286-30
 ;;9002226.02101,"1795,21695-0336-04 ",.01)
 ;;21695-0336-04
 ;;9002226.02101,"1795,21695-0336-04 ",.02)
 ;;21695-0336-04
 ;;9002226.02101,"1795,21695-0336-16 ",.01)
 ;;21695-0336-16
 ;;9002226.02101,"1795,21695-0336-16 ",.02)
 ;;21695-0336-16
 ;;9002226.02101,"1795,21695-0356-60 ",.01)
 ;;21695-0356-60
 ;;9002226.02101,"1795,21695-0356-60 ",.02)
 ;;21695-0356-60
 ;;9002226.02101,"1795,21695-0378-30 ",.01)
 ;;21695-0378-30
 ;;9002226.02101,"1795,21695-0378-30 ",.02)
 ;;21695-0378-30
 ;;9002226.02101,"1795,21695-0383-30 ",.01)
 ;;21695-0383-30
 ;;9002226.02101,"1795,21695-0383-30 ",.02)
 ;;21695-0383-30
 ;;9002226.02101,"1795,21695-0442-10 ",.01)
 ;;21695-0442-10
 ;;9002226.02101,"1795,21695-0442-10 ",.02)
 ;;21695-0442-10
 ;;9002226.02101,"1795,21695-0442-20 ",.01)
 ;;21695-0442-20
 ;;9002226.02101,"1795,21695-0442-20 ",.02)
 ;;21695-0442-20
 ;;9002226.02101,"1795,21695-0453-10 ",.01)
 ;;21695-0453-10
 ;;9002226.02101,"1795,21695-0453-10 ",.02)
 ;;21695-0453-10
 ;;9002226.02101,"1795,21695-0453-12 ",.01)
 ;;21695-0453-12
 ;;9002226.02101,"1795,21695-0453-12 ",.02)
 ;;21695-0453-12
 ;;9002226.02101,"1795,21695-0453-15 ",.01)
 ;;21695-0453-15
 ;;9002226.02101,"1795,21695-0453-15 ",.02)
 ;;21695-0453-15
 ;;9002226.02101,"1795,21695-0453-20 ",.01)
 ;;21695-0453-20
 ;;9002226.02101,"1795,21695-0453-20 ",.02)
 ;;21695-0453-20
 ;;9002226.02101,"1795,21695-0453-30 ",.01)
 ;;21695-0453-30
 ;;9002226.02101,"1795,21695-0453-30 ",.02)
 ;;21695-0453-30
 ;;9002226.02101,"1795,21695-0453-60 ",.01)
 ;;21695-0453-60
 ;;9002226.02101,"1795,21695-0453-60 ",.02)
 ;;21695-0453-60
 ;;9002226.02101,"1795,21695-0573-20 ",.01)
 ;;21695-0573-20
 ;;9002226.02101,"1795,21695-0573-20 ",.02)
 ;;21695-0573-20
 ;;9002226.02101,"1795,21695-0573-30 ",.01)
 ;;21695-0573-30
 ;;9002226.02101,"1795,21695-0573-30 ",.02)
 ;;21695-0573-30
 ;;9002226.02101,"1795,21695-0573-40 ",.01)
 ;;21695-0573-40
 ;;9002226.02101,"1795,21695-0573-40 ",.02)
 ;;21695-0573-40
 ;;9002226.02101,"1795,21695-0589-15 ",.01)
 ;;21695-0589-15
 ;;9002226.02101,"1795,21695-0589-15 ",.02)
 ;;21695-0589-15
 ;;9002226.02101,"1795,21695-0649-12 ",.01)
 ;;21695-0649-12
 ;;9002226.02101,"1795,21695-0649-12 ",.02)
 ;;21695-0649-12
 ;;9002226.02101,"1795,21695-0688-15 ",.01)
 ;;21695-0688-15
 ;;9002226.02101,"1795,21695-0688-15 ",.02)
 ;;21695-0688-15
 ;;9002226.02101,"1795,21695-0688-20 ",.01)
 ;;21695-0688-20
 ;;9002226.02101,"1795,21695-0688-20 ",.02)
 ;;21695-0688-20
 ;;9002226.02101,"1795,21695-0688-30 ",.01)
 ;;21695-0688-30
 ;;9002226.02101,"1795,21695-0688-30 ",.02)
 ;;21695-0688-30
 ;;9002226.02101,"1795,21695-0698-04 ",.01)
 ;;21695-0698-04
 ;;9002226.02101,"1795,21695-0698-04 ",.02)
 ;;21695-0698-04
 ;;9002226.02101,"1795,21695-0703-04 ",.01)
 ;;21695-0703-04
 ;;9002226.02101,"1795,21695-0703-04 ",.02)
 ;;21695-0703-04
 ;;9002226.02101,"1795,21695-0885-10 ",.01)
 ;;21695-0885-10
 ;;9002226.02101,"1795,21695-0885-10 ",.02)
 ;;21695-0885-10
 ;;9002226.02101,"1795,21695-0890-30 ",.01)
 ;;21695-0890-30
 ;;9002226.02101,"1795,21695-0890-30 ",.02)
 ;;21695-0890-30
 ;;9002226.02101,"1795,21695-0900-16 ",.01)
 ;;21695-0900-16
 ;;9002226.02101,"1795,21695-0900-16 ",.02)
 ;;21695-0900-16
 ;;9002226.02101,"1795,21695-0926-15 ",.01)
 ;;21695-0926-15
 ;;9002226.02101,"1795,21695-0926-15 ",.02)
 ;;21695-0926-15
 ;;9002226.02101,"1795,21695-0959-12 ",.01)
 ;;21695-0959-12
 ;;9002226.02101,"1795,21695-0959-12 ",.02)
 ;;21695-0959-12
 ;;9002226.02101,"1795,21695-0970-16 ",.01)
 ;;21695-0970-16
 ;;9002226.02101,"1795,21695-0970-16 ",.02)
 ;;21695-0970-16
 ;;9002226.02101,"1795,23155-0105-01 ",.01)
 ;;23155-0105-01
 ;;9002226.02101,"1795,23155-0105-01 ",.02)
 ;;23155-0105-01
 ;;9002226.02101,"1795,23155-0105-05 ",.01)
 ;;23155-0105-05
 ;;9002226.02101,"1795,23155-0105-05 ",.02)
 ;;23155-0105-05
 ;;9002226.02101,"1795,23155-0105-10 ",.01)
 ;;23155-0105-10
 ;;9002226.02101,"1795,23155-0105-10 ",.02)
 ;;23155-0105-10
 ;;9002226.02101,"1795,23155-0106-01 ",.01)
 ;;23155-0106-01
 ;;9002226.02101,"1795,23155-0106-01 ",.02)
 ;;23155-0106-01
 ;;9002226.02101,"1795,23155-0106-05 ",.01)
 ;;23155-0106-05
 ;;9002226.02101,"1795,23155-0106-05 ",.02)
 ;;23155-0106-05
 ;;9002226.02101,"1795,23155-0106-10 ",.01)
 ;;23155-0106-10
 ;;9002226.02101,"1795,23155-0106-10 ",.02)
 ;;23155-0106-10
 ;;9002226.02101,"1795,23155-0107-01 ",.01)
 ;;23155-0107-01
 ;;9002226.02101,"1795,23155-0107-01 ",.02)
 ;;23155-0107-01
 ;;9002226.02101,"1795,23155-0107-05 ",.01)
 ;;23155-0107-05
 ;;9002226.02101,"1795,23155-0107-05 ",.02)
 ;;23155-0107-05
 ;;9002226.02101,"1795,23155-0107-10 ",.01)
 ;;23155-0107-10
 ;;9002226.02101,"1795,23155-0107-10 ",.02)
 ;;23155-0107-10
 ;;9002226.02101,"1795,23155-0500-01 ",.01)
 ;;23155-0500-01
 ;;9002226.02101,"1795,23155-0500-01 ",.02)
 ;;23155-0500-01
 ;;9002226.02101,"1795,23155-0500-05 ",.01)
 ;;23155-0500-05
 ;;9002226.02101,"1795,23155-0500-05 ",.02)
 ;;23155-0500-05
 ;;9002226.02101,"1795,23155-0500-10 ",.01)
 ;;23155-0500-10
 ;;9002226.02101,"1795,23155-0500-10 ",.02)
 ;;23155-0500-10
 ;;9002226.02101,"1795,23155-0501-01 ",.01)
 ;;23155-0501-01
 ;;9002226.02101,"1795,23155-0501-01 ",.02)
 ;;23155-0501-01
 ;;9002226.02101,"1795,23155-0501-05 ",.01)
 ;;23155-0501-05
 ;;9002226.02101,"1795,23155-0501-05 ",.02)
 ;;23155-0501-05
 ;;9002226.02101,"1795,23155-0501-10 ",.01)
 ;;23155-0501-10
 ;;9002226.02101,"1795,23155-0501-10 ",.02)
 ;;23155-0501-10
 ;;9002226.02101,"1795,23155-0502-01 ",.01)
 ;;23155-0502-01
 ;;9002226.02101,"1795,23155-0502-01 ",.02)
 ;;23155-0502-01
 ;;9002226.02101,"1795,23155-0502-05 ",.01)
 ;;23155-0502-05
 ;;9002226.02101,"1795,23155-0502-05 ",.02)
 ;;23155-0502-05
 ;;9002226.02101,"1795,23155-0502-10 ",.01)
 ;;23155-0502-10
 ;;9002226.02101,"1795,23155-0502-10 ",.02)
 ;;23155-0502-10
 ;;9002226.02101,"1795,23359-0014-30 ",.01)
 ;;23359-0014-30
 ;;9002226.02101,"1795,23359-0014-30 ",.02)
 ;;23359-0014-30
 ;;9002226.02101,"1795,23359-0015-30 ",.01)
 ;;23359-0015-30
 ;;9002226.02101,"1795,23359-0015-30 ",.02)
 ;;23359-0015-30
 ;;9002226.02101,"1795,23359-0016-16 ",.01)
 ;;23359-0016-16
 ;;9002226.02101,"1795,23359-0016-16 ",.02)
 ;;23359-0016-16
 ;;9002226.02101,"1795,23359-0019-16 ",.01)
 ;;23359-0019-16
 ;;9002226.02101,"1795,23359-0019-16 ",.02)
 ;;23359-0019-16
 ;;9002226.02101,"1795,24486-0200-16 ",.01)
 ;;24486-0200-16
 ;;9002226.02101,"1795,24486-0200-16 ",.02)
 ;;24486-0200-16
 ;;9002226.02101,"1795,24839-0346-16 ",.01)
 ;;24839-0346-16
 ;;9002226.02101,"1795,24839-0346-16 ",.02)
 ;;24839-0346-16
 ;;9002226.02101,"1795,24839-0699-01 ",.01)
 ;;24839-0699-01
 ;;9002226.02101,"1795,24839-0699-01 ",.02)
 ;;24839-0699-01
 ;;9002226.02101,"1795,27808-0086-01 ",.01)
 ;;27808-0086-01
 ;;9002226.02101,"1795,27808-0086-01 ",.02)
 ;;27808-0086-01
 ;;9002226.02101,"1795,27808-0086-02 ",.01)
 ;;27808-0086-02
 ;;9002226.02101,"1795,27808-0086-02 ",.02)
 ;;27808-0086-02
 ;;9002226.02101,"1795,27808-0087-01 ",.01)
 ;;27808-0087-01
 ;;9002226.02101,"1795,27808-0087-01 ",.02)
 ;;27808-0087-01
 ;;9002226.02101,"1795,28595-0250-16 ",.01)
 ;;28595-0250-16
 ;;9002226.02101,"1795,28595-0250-16 ",.02)
 ;;28595-0250-16
 ;;9002226.02101,"1795,29273-0202-16 ",.01)
 ;;29273-0202-16
 ;;9002226.02101,"1795,29273-0202-16 ",.02)
 ;;29273-0202-16
 ;;9002226.02101,"1795,29273-0204-16 ",.01)
 ;;29273-0204-16
 ;;9002226.02101,"1795,29273-0204-16 ",.02)
 ;;29273-0204-16
 ;;9002226.02101,"1795,31722-0218-01 ",.01)
 ;;31722-0218-01
 ;;9002226.02101,"1795,31722-0218-01 ",.02)
 ;;31722-0218-01
 ;;9002226.02101,"1795,31722-0219-01 ",.01)
 ;;31722-0219-01
 ;;9002226.02101,"1795,31722-0219-01 ",.02)
 ;;31722-0219-01
 ;;9002226.02101,"1795,31722-0219-10 ",.01)
 ;;31722-0219-10