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

BGP82H31.m

Go to the documentation of this file.
BGP82H31 ; 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,"1218,68788-6786-09 ",.02)
 ;;68788-6786-09
 ;;9002226.02101,"1218,68788-6787-01 ",.01)
 ;;68788-6787-01
 ;;9002226.02101,"1218,68788-6787-01 ",.02)
 ;;68788-6787-01
 ;;9002226.02101,"1218,68788-6787-02 ",.01)
 ;;68788-6787-02
 ;;9002226.02101,"1218,68788-6787-02 ",.02)
 ;;68788-6787-02
 ;;9002226.02101,"1218,68788-6787-03 ",.01)
 ;;68788-6787-03
 ;;9002226.02101,"1218,68788-6787-03 ",.02)
 ;;68788-6787-03
 ;;9002226.02101,"1218,68788-6787-06 ",.01)
 ;;68788-6787-06
 ;;9002226.02101,"1218,68788-6787-06 ",.02)
 ;;68788-6787-06
 ;;9002226.02101,"1218,68788-6787-09 ",.01)
 ;;68788-6787-09
 ;;9002226.02101,"1218,68788-6787-09 ",.02)
 ;;68788-6787-09
 ;;9002226.02101,"1218,68788-6817-01 ",.01)
 ;;68788-6817-01
 ;;9002226.02101,"1218,68788-6817-01 ",.02)
 ;;68788-6817-01
 ;;9002226.02101,"1218,68788-6817-03 ",.01)
 ;;68788-6817-03
 ;;9002226.02101,"1218,68788-6817-03 ",.02)
 ;;68788-6817-03
 ;;9002226.02101,"1218,68788-6817-06 ",.01)
 ;;68788-6817-06
 ;;9002226.02101,"1218,68788-6817-06 ",.02)
 ;;68788-6817-06
 ;;9002226.02101,"1218,68788-6817-08 ",.01)
 ;;68788-6817-08
 ;;9002226.02101,"1218,68788-6817-08 ",.02)
 ;;68788-6817-08
 ;;9002226.02101,"1218,68788-6817-09 ",.01)
 ;;68788-6817-09
 ;;9002226.02101,"1218,68788-6817-09 ",.02)
 ;;68788-6817-09
 ;;9002226.02101,"1218,68788-6819-01 ",.01)
 ;;68788-6819-01
 ;;9002226.02101,"1218,68788-6819-01 ",.02)
 ;;68788-6819-01
 ;;9002226.02101,"1218,68788-6819-03 ",.01)
 ;;68788-6819-03
 ;;9002226.02101,"1218,68788-6819-03 ",.02)
 ;;68788-6819-03
 ;;9002226.02101,"1218,68788-6819-06 ",.01)
 ;;68788-6819-06
 ;;9002226.02101,"1218,68788-6819-06 ",.02)
 ;;68788-6819-06
 ;;9002226.02101,"1218,68788-6819-08 ",.01)
 ;;68788-6819-08
 ;;9002226.02101,"1218,68788-6819-08 ",.02)
 ;;68788-6819-08
 ;;9002226.02101,"1218,68788-6819-09 ",.01)
 ;;68788-6819-09
 ;;9002226.02101,"1218,68788-6819-09 ",.02)
 ;;68788-6819-09
 ;;9002226.02101,"1218,68788-6826-01 ",.01)
 ;;68788-6826-01
 ;;9002226.02101,"1218,68788-6826-01 ",.02)
 ;;68788-6826-01
 ;;9002226.02101,"1218,68788-6826-02 ",.01)
 ;;68788-6826-02
 ;;9002226.02101,"1218,68788-6826-02 ",.02)
 ;;68788-6826-02
 ;;9002226.02101,"1218,68788-6826-03 ",.01)
 ;;68788-6826-03
 ;;9002226.02101,"1218,68788-6826-03 ",.02)
 ;;68788-6826-03
 ;;9002226.02101,"1218,68788-6826-06 ",.01)
 ;;68788-6826-06
 ;;9002226.02101,"1218,68788-6826-06 ",.02)
 ;;68788-6826-06
 ;;9002226.02101,"1218,68788-6826-09 ",.01)
 ;;68788-6826-09
 ;;9002226.02101,"1218,68788-6826-09 ",.02)
 ;;68788-6826-09
 ;;9002226.02101,"1218,68788-7368-01 ",.01)
 ;;68788-7368-01
 ;;9002226.02101,"1218,68788-7368-01 ",.02)
 ;;68788-7368-01
 ;;9002226.02101,"1218,68788-7368-03 ",.01)
 ;;68788-7368-03
 ;;9002226.02101,"1218,68788-7368-03 ",.02)
 ;;68788-7368-03
 ;;9002226.02101,"1218,68788-7368-06 ",.01)
 ;;68788-7368-06
 ;;9002226.02101,"1218,68788-7368-06 ",.02)
 ;;68788-7368-06
 ;;9002226.02101,"1218,68788-7368-09 ",.01)
 ;;68788-7368-09
 ;;9002226.02101,"1218,68788-7368-09 ",.02)
 ;;68788-7368-09
 ;;9002226.02101,"1218,68788-8932-01 ",.01)
 ;;68788-8932-01
 ;;9002226.02101,"1218,68788-8932-01 ",.02)
 ;;68788-8932-01
 ;;9002226.02101,"1218,68788-8932-03 ",.01)
 ;;68788-8932-03
 ;;9002226.02101,"1218,68788-8932-03 ",.02)
 ;;68788-8932-03
 ;;9002226.02101,"1218,68788-8932-06 ",.01)
 ;;68788-8932-06
 ;;9002226.02101,"1218,68788-8932-06 ",.02)
 ;;68788-8932-06
 ;;9002226.02101,"1218,68788-8932-09 ",.01)
 ;;68788-8932-09
 ;;9002226.02101,"1218,68788-8932-09 ",.02)
 ;;68788-8932-09
 ;;9002226.02101,"1218,68788-9048-03 ",.01)
 ;;68788-9048-03
 ;;9002226.02101,"1218,68788-9048-03 ",.02)
 ;;68788-9048-03
 ;;9002226.02101,"1218,68788-9049-03 ",.01)
 ;;68788-9049-03
 ;;9002226.02101,"1218,68788-9049-03 ",.02)
 ;;68788-9049-03
 ;;9002226.02101,"1218,68788-9286-01 ",.01)
 ;;68788-9286-01
 ;;9002226.02101,"1218,68788-9286-01 ",.02)
 ;;68788-9286-01
 ;;9002226.02101,"1218,68788-9286-03 ",.01)
 ;;68788-9286-03
 ;;9002226.02101,"1218,68788-9286-03 ",.02)
 ;;68788-9286-03
 ;;9002226.02101,"1218,68788-9286-06 ",.01)
 ;;68788-9286-06
 ;;9002226.02101,"1218,68788-9286-06 ",.02)
 ;;68788-9286-06
 ;;9002226.02101,"1218,68788-9286-09 ",.01)
 ;;68788-9286-09
 ;;9002226.02101,"1218,68788-9286-09 ",.02)
 ;;68788-9286-09
 ;;9002226.02101,"1218,68788-9691-03 ",.01)
 ;;68788-9691-03
 ;;9002226.02101,"1218,68788-9691-03 ",.02)
 ;;68788-9691-03
 ;;9002226.02101,"1218,68788-9738-03 ",.01)
 ;;68788-9738-03
 ;;9002226.02101,"1218,68788-9738-03 ",.02)
 ;;68788-9738-03
 ;;9002226.02101,"1218,68788-9761-01 ",.01)
 ;;68788-9761-01
 ;;9002226.02101,"1218,68788-9761-01 ",.02)
 ;;68788-9761-01
 ;;9002226.02101,"1218,68788-9761-03 ",.01)
 ;;68788-9761-03
 ;;9002226.02101,"1218,68788-9761-03 ",.02)
 ;;68788-9761-03
 ;;9002226.02101,"1218,68788-9761-06 ",.01)
 ;;68788-9761-06
 ;;9002226.02101,"1218,68788-9761-06 ",.02)
 ;;68788-9761-06
 ;;9002226.02101,"1218,68788-9761-09 ",.01)
 ;;68788-9761-09
 ;;9002226.02101,"1218,68788-9761-09 ",.02)
 ;;68788-9761-09
 ;;9002226.02101,"1218,68788-9789-03 ",.01)
 ;;68788-9789-03
 ;;9002226.02101,"1218,68788-9789-03 ",.02)
 ;;68788-9789-03
 ;;9002226.02101,"1218,69097-0867-07 ",.01)
 ;;69097-0867-07
 ;;9002226.02101,"1218,69097-0867-07 ",.02)
 ;;69097-0867-07
 ;;9002226.02101,"1218,69097-0868-07 ",.01)
 ;;69097-0868-07
 ;;9002226.02101,"1218,69097-0868-07 ",.02)
 ;;69097-0868-07
 ;;9002226.02101,"1218,69097-0869-07 ",.01)
 ;;69097-0869-07
 ;;9002226.02101,"1218,69097-0869-07 ",.02)
 ;;69097-0869-07
 ;;9002226.02101,"1218,69499-0321-30 ",.01)
 ;;69499-0321-30
 ;;9002226.02101,"1218,69499-0321-30 ",.02)
 ;;69499-0321-30
 ;;9002226.02101,"1218,69499-0323-30 ",.01)
 ;;69499-0323-30
 ;;9002226.02101,"1218,69499-0323-30 ",.02)
 ;;69499-0323-30
 ;;9002226.02101,"1218,69499-0324-30 ",.01)
 ;;69499-0324-30
 ;;9002226.02101,"1218,69499-0324-30 ",.02)
 ;;69499-0324-30
 ;;9002226.02101,"1218,76299-0420-85 ",.01)
 ;;76299-0420-85
 ;;9002226.02101,"1218,76299-0420-85 ",.02)
 ;;76299-0420-85
 ;;9002226.02101,"1218,76299-0420-88 ",.01)
 ;;76299-0420-88
 ;;9002226.02101,"1218,76299-0420-88 ",.02)
 ;;76299-0420-88
 ;;9002226.02101,"1218,76299-0422-85 ",.01)
 ;;76299-0422-85
 ;;9002226.02101,"1218,76299-0422-85 ",.02)
 ;;76299-0422-85
 ;;9002226.02101,"1218,76299-0422-88 ",.01)
 ;;76299-0422-88
 ;;9002226.02101,"1218,76299-0422-88 ",.02)
 ;;76299-0422-88
 ;;9002226.02101,"1218,76385-0110-01 ",.01)
 ;;76385-0110-01
 ;;9002226.02101,"1218,76385-0110-01 ",.02)
 ;;76385-0110-01
 ;;9002226.02101,"1218,76385-0110-50 ",.01)
 ;;76385-0110-50
 ;;9002226.02101,"1218,76385-0110-50 ",.02)
 ;;76385-0110-50
 ;;9002226.02101,"1218,76385-0111-01 ",.01)
 ;;76385-0111-01
 ;;9002226.02101,"1218,76385-0111-01 ",.02)
 ;;76385-0111-01
 ;;9002226.02101,"1218,76385-0111-50 ",.01)
 ;;76385-0111-50
 ;;9002226.02101,"1218,76385-0111-50 ",.02)
 ;;76385-0111-50
 ;;9002226.02101,"1218,76385-0112-01 ",.01)
 ;;76385-0112-01
 ;;9002226.02101,"1218,76385-0112-01 ",.02)
 ;;76385-0112-01
 ;;9002226.02101,"1218,76385-0112-50 ",.01)
 ;;76385-0112-50
 ;;9002226.02101,"1218,76385-0112-50 ",.02)
 ;;76385-0112-50
 ;;9002226.02101,"1218,76385-0113-01 ",.01)
 ;;76385-0113-01
 ;;9002226.02101,"1218,76385-0113-01 ",.02)
 ;;76385-0113-01
 ;;9002226.02101,"1218,76385-0113-50 ",.01)
 ;;76385-0113-50
 ;;9002226.02101,"1218,76385-0113-50 ",.02)
 ;;76385-0113-50
 ;;9002226.04101,"1218,1",.01)
 ;;BGP