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

BGP48F20.m

Go to the documentation of this file.
BGP48F20 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1201,58016-0006-60 ",.02)
 ;;58016-0006-60
 ;;9002226.02101,"1201,58016-0006-90 ",.01)
 ;;58016-0006-90
 ;;9002226.02101,"1201,58016-0006-90 ",.02)
 ;;58016-0006-90
 ;;9002226.02101,"1201,58016-0007-00 ",.01)
 ;;58016-0007-00
 ;;9002226.02101,"1201,58016-0007-00 ",.02)
 ;;58016-0007-00
 ;;9002226.02101,"1201,58016-0007-30 ",.01)
 ;;58016-0007-30
 ;;9002226.02101,"1201,58016-0007-30 ",.02)
 ;;58016-0007-30
 ;;9002226.02101,"1201,58016-0007-60 ",.01)
 ;;58016-0007-60
 ;;9002226.02101,"1201,58016-0007-60 ",.02)
 ;;58016-0007-60
 ;;9002226.02101,"1201,58016-0007-90 ",.01)
 ;;58016-0007-90
 ;;9002226.02101,"1201,58016-0007-90 ",.02)
 ;;58016-0007-90
 ;;9002226.02101,"1201,58016-0008-00 ",.01)
 ;;58016-0008-00
 ;;9002226.02101,"1201,58016-0008-00 ",.02)
 ;;58016-0008-00
 ;;9002226.02101,"1201,58016-0008-30 ",.01)
 ;;58016-0008-30
 ;;9002226.02101,"1201,58016-0008-30 ",.02)
 ;;58016-0008-30
 ;;9002226.02101,"1201,58016-0008-60 ",.01)
 ;;58016-0008-60
 ;;9002226.02101,"1201,58016-0008-60 ",.02)
 ;;58016-0008-60
 ;;9002226.02101,"1201,58016-0008-90 ",.01)
 ;;58016-0008-90
 ;;9002226.02101,"1201,58016-0008-90 ",.02)
 ;;58016-0008-90
 ;;9002226.02101,"1201,58016-0012-00 ",.01)
 ;;58016-0012-00
 ;;9002226.02101,"1201,58016-0012-00 ",.02)
 ;;58016-0012-00
 ;;9002226.02101,"1201,58016-0012-30 ",.01)
 ;;58016-0012-30
 ;;9002226.02101,"1201,58016-0012-30 ",.02)
 ;;58016-0012-30
 ;;9002226.02101,"1201,58016-0012-60 ",.01)
 ;;58016-0012-60
 ;;9002226.02101,"1201,58016-0012-60 ",.02)
 ;;58016-0012-60
 ;;9002226.02101,"1201,58016-0012-90 ",.01)
 ;;58016-0012-90
 ;;9002226.02101,"1201,58016-0012-90 ",.02)
 ;;58016-0012-90
 ;;9002226.02101,"1201,58016-0013-00 ",.01)
 ;;58016-0013-00
 ;;9002226.02101,"1201,58016-0013-00 ",.02)
 ;;58016-0013-00
 ;;9002226.02101,"1201,58016-0013-30 ",.01)
 ;;58016-0013-30
 ;;9002226.02101,"1201,58016-0013-30 ",.02)
 ;;58016-0013-30
 ;;9002226.02101,"1201,58016-0013-60 ",.01)
 ;;58016-0013-60
 ;;9002226.02101,"1201,58016-0013-60 ",.02)
 ;;58016-0013-60
 ;;9002226.02101,"1201,58016-0013-90 ",.01)
 ;;58016-0013-90
 ;;9002226.02101,"1201,58016-0013-90 ",.02)
 ;;58016-0013-90
 ;;9002226.02101,"1201,58016-0037-00 ",.01)
 ;;58016-0037-00
 ;;9002226.02101,"1201,58016-0037-00 ",.02)
 ;;58016-0037-00
 ;;9002226.02101,"1201,58016-0037-30 ",.01)
 ;;58016-0037-30
 ;;9002226.02101,"1201,58016-0037-30 ",.02)
 ;;58016-0037-30
 ;;9002226.02101,"1201,58016-0037-60 ",.01)
 ;;58016-0037-60
 ;;9002226.02101,"1201,58016-0037-60 ",.02)
 ;;58016-0037-60
 ;;9002226.02101,"1201,58016-0037-90 ",.01)
 ;;58016-0037-90
 ;;9002226.02101,"1201,58016-0037-90 ",.02)
 ;;58016-0037-90
 ;;9002226.02101,"1201,58016-0051-00 ",.01)
 ;;58016-0051-00
 ;;9002226.02101,"1201,58016-0051-00 ",.02)
 ;;58016-0051-00
 ;;9002226.02101,"1201,58016-0051-30 ",.01)
 ;;58016-0051-30
 ;;9002226.02101,"1201,58016-0051-30 ",.02)
 ;;58016-0051-30
 ;;9002226.02101,"1201,58016-0051-60 ",.01)
 ;;58016-0051-60
 ;;9002226.02101,"1201,58016-0051-60 ",.02)
 ;;58016-0051-60
 ;;9002226.02101,"1201,58016-0051-90 ",.01)
 ;;58016-0051-90
 ;;9002226.02101,"1201,58016-0051-90 ",.02)
 ;;58016-0051-90
 ;;9002226.02101,"1201,58016-0052-00 ",.01)
 ;;58016-0052-00
 ;;9002226.02101,"1201,58016-0052-00 ",.02)
 ;;58016-0052-00
 ;;9002226.02101,"1201,58016-0052-30 ",.01)
 ;;58016-0052-30
 ;;9002226.02101,"1201,58016-0052-30 ",.02)
 ;;58016-0052-30
 ;;9002226.02101,"1201,58016-0052-60 ",.01)
 ;;58016-0052-60
 ;;9002226.02101,"1201,58016-0052-60 ",.02)
 ;;58016-0052-60
 ;;9002226.02101,"1201,58016-0052-90 ",.01)
 ;;58016-0052-90
 ;;9002226.02101,"1201,58016-0052-90 ",.02)
 ;;58016-0052-90
 ;;9002226.02101,"1201,58016-0071-00 ",.01)
 ;;58016-0071-00
 ;;9002226.02101,"1201,58016-0071-00 ",.02)
 ;;58016-0071-00
 ;;9002226.02101,"1201,58016-0071-30 ",.01)
 ;;58016-0071-30
 ;;9002226.02101,"1201,58016-0071-30 ",.02)
 ;;58016-0071-30
 ;;9002226.02101,"1201,58016-0071-60 ",.01)
 ;;58016-0071-60
 ;;9002226.02101,"1201,58016-0071-60 ",.02)
 ;;58016-0071-60
 ;;9002226.02101,"1201,58016-0071-90 ",.01)
 ;;58016-0071-90
 ;;9002226.02101,"1201,58016-0071-90 ",.02)
 ;;58016-0071-90
 ;;9002226.02101,"1201,58016-0364-00 ",.01)
 ;;58016-0364-00
 ;;9002226.02101,"1201,58016-0364-00 ",.02)
 ;;58016-0364-00
 ;;9002226.02101,"1201,58016-0364-30 ",.01)
 ;;58016-0364-30
 ;;9002226.02101,"1201,58016-0364-30 ",.02)
 ;;58016-0364-30
 ;;9002226.02101,"1201,58016-0364-60 ",.01)
 ;;58016-0364-60
 ;;9002226.02101,"1201,58016-0364-60 ",.02)
 ;;58016-0364-60
 ;;9002226.02101,"1201,58016-0364-90 ",.01)
 ;;58016-0364-90
 ;;9002226.02101,"1201,58016-0364-90 ",.02)
 ;;58016-0364-90
 ;;9002226.02101,"1201,58016-0365-00 ",.01)
 ;;58016-0365-00
 ;;9002226.02101,"1201,58016-0365-00 ",.02)
 ;;58016-0365-00
 ;;9002226.02101,"1201,58016-0365-30 ",.01)
 ;;58016-0365-30
 ;;9002226.02101,"1201,58016-0365-30 ",.02)
 ;;58016-0365-30
 ;;9002226.02101,"1201,58016-0365-60 ",.01)
 ;;58016-0365-60
 ;;9002226.02101,"1201,58016-0365-60 ",.02)
 ;;58016-0365-60
 ;;9002226.02101,"1201,58016-0365-90 ",.01)
 ;;58016-0365-90
 ;;9002226.02101,"1201,58016-0365-90 ",.02)
 ;;58016-0365-90
 ;;9002226.02101,"1201,58016-0385-00 ",.01)
 ;;58016-0385-00
 ;;9002226.02101,"1201,58016-0385-00 ",.02)
 ;;58016-0385-00
 ;;9002226.02101,"1201,58016-0385-30 ",.01)
 ;;58016-0385-30
 ;;9002226.02101,"1201,58016-0385-30 ",.02)
 ;;58016-0385-30
 ;;9002226.02101,"1201,58016-0385-60 ",.01)
 ;;58016-0385-60
 ;;9002226.02101,"1201,58016-0385-60 ",.02)
 ;;58016-0385-60
 ;;9002226.02101,"1201,58016-0385-90 ",.01)
 ;;58016-0385-90
 ;;9002226.02101,"1201,58016-0385-90 ",.02)
 ;;58016-0385-90
 ;;9002226.02101,"1201,58016-0425-00 ",.01)
 ;;58016-0425-00
 ;;9002226.02101,"1201,58016-0425-00 ",.02)
 ;;58016-0425-00
 ;;9002226.02101,"1201,58016-0425-30 ",.01)
 ;;58016-0425-30
 ;;9002226.02101,"1201,58016-0425-30 ",.02)
 ;;58016-0425-30
 ;;9002226.02101,"1201,58016-0425-60 ",.01)
 ;;58016-0425-60
 ;;9002226.02101,"1201,58016-0425-60 ",.02)
 ;;58016-0425-60
 ;;9002226.02101,"1201,58016-0425-90 ",.01)
 ;;58016-0425-90
 ;;9002226.02101,"1201,58016-0425-90 ",.02)
 ;;58016-0425-90
 ;;9002226.02101,"1201,58016-0900-00 ",.01)
 ;;58016-0900-00
 ;;9002226.02101,"1201,58016-0900-00 ",.02)
 ;;58016-0900-00
 ;;9002226.02101,"1201,58016-0900-02 ",.01)
 ;;58016-0900-02
 ;;9002226.02101,"1201,58016-0900-02 ",.02)
 ;;58016-0900-02
 ;;9002226.02101,"1201,58016-0900-30 ",.01)
 ;;58016-0900-30
 ;;9002226.02101,"1201,58016-0900-30 ",.02)
 ;;58016-0900-30
 ;;9002226.02101,"1201,58016-0900-60 ",.01)
 ;;58016-0900-60
 ;;9002226.02101,"1201,58016-0900-60 ",.02)
 ;;58016-0900-60
 ;;9002226.02101,"1201,58016-0900-90 ",.01)
 ;;58016-0900-90
 ;;9002226.02101,"1201,58016-0900-90 ",.02)
 ;;58016-0900-90
 ;;9002226.02101,"1201,58016-0922-00 ",.01)
 ;;58016-0922-00
 ;;9002226.02101,"1201,58016-0922-00 ",.02)
 ;;58016-0922-00
 ;;9002226.02101,"1201,58016-0922-02 ",.01)
 ;;58016-0922-02
 ;;9002226.02101,"1201,58016-0922-02 ",.02)
 ;;58016-0922-02
 ;;9002226.02101,"1201,58016-0922-30 ",.01)
 ;;58016-0922-30
 ;;9002226.02101,"1201,58016-0922-30 ",.02)
 ;;58016-0922-30
 ;;9002226.02101,"1201,58016-0922-60 ",.01)
 ;;58016-0922-60
 ;;9002226.02101,"1201,58016-0922-60 ",.02)
 ;;58016-0922-60
 ;;9002226.02101,"1201,58016-0922-90 ",.01)
 ;;58016-0922-90
 ;;9002226.02101,"1201,58016-0922-90 ",.02)
 ;;58016-0922-90
 ;;9002226.02101,"1201,58016-0979-00 ",.01)
 ;;58016-0979-00
 ;;9002226.02101,"1201,58016-0979-00 ",.02)
 ;;58016-0979-00
 ;;9002226.02101,"1201,58016-0979-02 ",.01)
 ;;58016-0979-02
 ;;9002226.02101,"1201,58016-0979-02 ",.02)
 ;;58016-0979-02
 ;;9002226.02101,"1201,58016-0979-20 ",.01)
 ;;58016-0979-20
 ;;9002226.02101,"1201,58016-0979-20 ",.02)
 ;;58016-0979-20
 ;;9002226.02101,"1201,58016-0979-30 ",.01)
 ;;58016-0979-30
 ;;9002226.02101,"1201,58016-0979-30 ",.02)
 ;;58016-0979-30
 ;;9002226.02101,"1201,58016-0979-60 ",.01)
 ;;58016-0979-60
 ;;9002226.02101,"1201,58016-0979-60 ",.02)
 ;;58016-0979-60
 ;;9002226.02101,"1201,58016-0979-90 ",.01)
 ;;58016-0979-90
 ;;9002226.02101,"1201,58016-0979-90 ",.02)
 ;;58016-0979-90
 ;;9002226.02101,"1201,58118-0005-03 ",.01)
 ;;58118-0005-03
 ;;9002226.02101,"1201,58118-0005-03 ",.02)
 ;;58118-0005-03
 ;;9002226.02101,"1201,58118-0005-09 ",.01)
 ;;58118-0005-09
 ;;9002226.02101,"1201,58118-0005-09 ",.02)
 ;;58118-0005-09
 ;;9002226.02101,"1201,58118-0007-08 ",.01)
 ;;58118-0007-08
 ;;9002226.02101,"1201,58118-0007-08 ",.02)
 ;;58118-0007-08
 ;;9002226.02101,"1201,58118-0007-09 ",.01)
 ;;58118-0007-09
 ;;9002226.02101,"1201,58118-0007-09 ",.02)
 ;;58118-0007-09
 ;;9002226.02101,"1201,58118-0168-03 ",.01)
 ;;58118-0168-03
 ;;9002226.02101,"1201,58118-0168-03 ",.02)
 ;;58118-0168-03
 ;;9002226.02101,"1201,58118-0168-06 ",.01)
 ;;58118-0168-06
 ;;9002226.02101,"1201,58118-0168-06 ",.02)
 ;;58118-0168-06
 ;;9002226.02101,"1201,58118-0169-03 ",.01)
 ;;58118-0169-03
 ;;9002226.02101,"1201,58118-0169-03 ",.02)
 ;;58118-0169-03
 ;;9002226.02101,"1201,58118-0469-03 ",.01)
 ;;58118-0469-03
 ;;9002226.02101,"1201,58118-0469-03 ",.02)
 ;;58118-0469-03
 ;;9002226.02101,"1201,58118-0478-03 ",.01)
 ;;58118-0478-03
 ;;9002226.02101,"1201,58118-0478-03 ",.02)
 ;;58118-0478-03
 ;;9002226.02101,"1201,58118-1170-03 ",.01)
 ;;58118-1170-03
 ;;9002226.02101,"1201,58118-1170-03 ",.02)
 ;;58118-1170-03
 ;;9002226.02101,"1201,58118-1170-09 ",.01)
 ;;58118-1170-09
 ;;9002226.02101,"1201,58118-1170-09 ",.02)
 ;;58118-1170-09
 ;;9002226.02101,"1201,58118-1323-03 ",.01)
 ;;58118-1323-03
 ;;9002226.02101,"1201,58118-1323-03 ",.02)
 ;;58118-1323-03
 ;;9002226.02101,"1201,58118-1323-09 ",.01)
 ;;58118-1323-09
 ;;9002226.02101,"1201,58118-1323-09 ",.02)
 ;;58118-1323-09
 ;;9002226.02101,"1201,58517-0001-30 ",.01)
 ;;58517-0001-30
 ;;9002226.02101,"1201,58517-0001-30 ",.02)
 ;;58517-0001-30
 ;;9002226.02101,"1201,58864-0608-30 ",.01)
 ;;58864-0608-30
 ;;9002226.02101,"1201,58864-0608-30 ",.02)
 ;;58864-0608-30
 ;;9002226.02101,"1201,58864-0623-15 ",.01)
 ;;58864-0623-15
 ;;9002226.02101,"1201,58864-0623-15 ",.02)
 ;;58864-0623-15
 ;;9002226.02101,"1201,58864-0623-30 ",.01)
 ;;58864-0623-30
 ;;9002226.02101,"1201,58864-0623-30 ",.02)
 ;;58864-0623-30
 ;;9002226.02101,"1201,58864-0653-30 ",.01)
 ;;58864-0653-30
 ;;9002226.02101,"1201,58864-0653-30 ",.02)
 ;;58864-0653-30
 ;;9002226.02101,"1201,58864-0682-30 ",.01)
 ;;58864-0682-30
 ;;9002226.02101,"1201,58864-0682-30 ",.02)
 ;;58864-0682-30
 ;;9002226.02101,"1201,58864-0685-30 ",.01)
 ;;58864-0685-30
 ;;9002226.02101,"1201,58864-0685-30 ",.02)
 ;;58864-0685-30
 ;;9002226.02101,"1201,58864-0739-30 ",.01)
 ;;58864-0739-30
 ;;9002226.02101,"1201,58864-0739-30 ",.02)
 ;;58864-0739-30
 ;;9002226.02101,"1201,58864-0743-15 ",.01)
 ;;58864-0743-15
 ;;9002226.02101,"1201,58864-0743-15 ",.02)
 ;;58864-0743-15
 ;;9002226.02101,"1201,58864-0743-30 ",.01)
 ;;58864-0743-30
 ;;9002226.02101,"1201,58864-0743-30 ",.02)
 ;;58864-0743-30
 ;;9002226.02101,"1201,58864-0760-30 ",.01)
 ;;58864-0760-30
 ;;9002226.02101,"1201,58864-0760-30 ",.02)
 ;;58864-0760-30
 ;;9002226.02101,"1201,58864-0780-30 ",.01)
 ;;58864-0780-30
 ;;9002226.02101,"1201,58864-0780-30 ",.02)
 ;;58864-0780-30
 ;;9002226.02101,"1201,58864-0780-60 ",.01)
 ;;58864-0780-60
 ;;9002226.02101,"1201,58864-0780-60 ",.02)
 ;;58864-0780-60
 ;;9002226.02101,"1201,58864-0781-30 ",.01)
 ;;58864-0781-30
 ;;9002226.02101,"1201,58864-0781-30 ",.02)
 ;;58864-0781-30
 ;;9002226.02101,"1201,58864-0834-30 ",.01)
 ;;58864-0834-30
 ;;9002226.02101,"1201,58864-0834-30 ",.02)
 ;;58864-0834-30
 ;;9002226.02101,"1201,59630-0628-30 ",.01)
 ;;59630-0628-30
 ;;9002226.02101,"1201,59630-0628-30 ",.02)
 ;;59630-0628-30
 ;;9002226.02101,"1201,59630-0629-30 ",.01)
 ;;59630-0629-30
 ;;9002226.02101,"1201,59630-0629-30 ",.02)
 ;;59630-0629-30
 ;;9002226.02101,"1201,59630-0630-30 ",.01)
 ;;59630-0630-30
 ;;9002226.02101,"1201,59630-0630-30 ",.02)
 ;;59630-0630-30
 ;;9002226.02101,"1201,59762-0155-01 ",.01)
 ;;59762-0155-01
 ;;9002226.02101,"1201,59762-0155-01 ",.02)
 ;;59762-0155-01
 ;;9002226.02101,"1201,59762-0155-02 ",.01)
 ;;59762-0155-02
 ;;9002226.02101,"1201,59762-0155-02 ",.02)
 ;;59762-0155-02
 ;;9002226.02101,"1201,59762-0156-01 ",.01)
 ;;59762-0156-01
 ;;9002226.02101,"1201,59762-0156-01 ",.02)
 ;;59762-0156-01
 ;;9002226.02101,"1201,59762-0156-02 ",.01)
 ;;59762-0156-02
 ;;9002226.02101,"1201,59762-0156-02 ",.02)
 ;;59762-0156-02
 ;;9002226.02101,"1201,59762-0157-01 ",.01)
 ;;59762-0157-01
 ;;9002226.02101,"1201,59762-0157-01 ",.02)
 ;;59762-0157-01
 ;;9002226.02101,"1201,59762-0157-02 ",.01)
 ;;59762-0157-02
 ;;9002226.02101,"1201,59762-0157-02 ",.02)
 ;;59762-0157-02
 ;;9002226.02101,"1201,59762-0158-01 ",.01)
 ;;59762-0158-01
 ;;9002226.02101,"1201,59762-0158-01 ",.02)
 ;;59762-0158-01
 ;;9002226.02101,"1201,59762-0158-02 ",.01)
 ;;59762-0158-02
 ;;9002226.02101,"1201,59762-0158-02 ",.02)
 ;;59762-0158-02
 ;;9002226.02101,"1201,60429-0248-10 ",.01)
 ;;60429-0248-10
 ;;9002226.02101,"1201,60429-0248-10 ",.02)
 ;;60429-0248-10
 ;;9002226.02101,"1201,60429-0248-60 ",.01)
 ;;60429-0248-60
 ;;9002226.02101,"1201,60429-0248-60 ",.02)
 ;;60429-0248-60
 ;;9002226.02101,"1201,60429-0249-10 ",.01)
 ;;60429-0249-10
 ;;9002226.02101,"1201,60429-0249-10 ",.02)
 ;;60429-0249-10
 ;;9002226.02101,"1201,60429-0249-60 ",.01)
 ;;60429-0249-60
 ;;9002226.02101,"1201,60429-0249-60 ",.02)
 ;;60429-0249-60
 ;;9002226.02101,"1201,60429-0250-10 ",.01)
 ;;60429-0250-10
 ;;9002226.02101,"1201,60429-0250-10 ",.02)
 ;;60429-0250-10