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

BGP61M16.m

Go to the documentation of this file.
BGP61M16 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"1224,53217-0113-90 ",.02)
 ;;53217-0113-90
 ;;9002226.02101,"1224,53489-0607-01 ",.01)
 ;;53489-0607-01
 ;;9002226.02101,"1224,53489-0607-01 ",.02)
 ;;53489-0607-01
 ;;9002226.02101,"1224,53489-0607-06 ",.01)
 ;;53489-0607-06
 ;;9002226.02101,"1224,53489-0607-06 ",.02)
 ;;53489-0607-06
 ;;9002226.02101,"1224,53489-0608-01 ",.01)
 ;;53489-0608-01
 ;;9002226.02101,"1224,53489-0608-01 ",.02)
 ;;53489-0608-01
 ;;9002226.02101,"1224,53489-0608-06 ",.01)
 ;;53489-0608-06
 ;;9002226.02101,"1224,53489-0608-06 ",.02)
 ;;53489-0608-06
 ;;9002226.02101,"1224,53489-0608-10 ",.01)
 ;;53489-0608-10
 ;;9002226.02101,"1224,53489-0608-10 ",.02)
 ;;53489-0608-10
 ;;9002226.02101,"1224,53489-0609-01 ",.01)
 ;;53489-0609-01
 ;;9002226.02101,"1224,53489-0609-01 ",.02)
 ;;53489-0609-01
 ;;9002226.02101,"1224,53489-0609-06 ",.01)
 ;;53489-0609-06
 ;;9002226.02101,"1224,53489-0609-06 ",.02)
 ;;53489-0609-06
 ;;9002226.02101,"1224,53489-0609-10 ",.01)
 ;;53489-0609-10
 ;;9002226.02101,"1224,53489-0609-10 ",.02)
 ;;53489-0609-10
 ;;9002226.02101,"1224,54458-0881-10 ",.01)
 ;;54458-0881-10
 ;;9002226.02101,"1224,54458-0881-10 ",.02)
 ;;54458-0881-10
 ;;9002226.02101,"1224,54458-0894-10 ",.01)
 ;;54458-0894-10
 ;;9002226.02101,"1224,54458-0894-10 ",.02)
 ;;54458-0894-10
 ;;9002226.02101,"1224,54458-0899-10 ",.01)
 ;;54458-0899-10
 ;;9002226.02101,"1224,54458-0899-10 ",.02)
 ;;54458-0899-10
 ;;9002226.02101,"1224,54458-0900-10 ",.01)
 ;;54458-0900-10
 ;;9002226.02101,"1224,54458-0900-10 ",.02)
 ;;54458-0900-10
 ;;9002226.02101,"1224,54458-0908-02 ",.01)
 ;;54458-0908-02
 ;;9002226.02101,"1224,54458-0908-02 ",.02)
 ;;54458-0908-02
 ;;9002226.02101,"1224,54458-0914-10 ",.01)
 ;;54458-0914-10
 ;;9002226.02101,"1224,54458-0914-10 ",.02)
 ;;54458-0914-10
 ;;9002226.02101,"1224,54458-0915-10 ",.01)
 ;;54458-0915-10
 ;;9002226.02101,"1224,54458-0915-10 ",.02)
 ;;54458-0915-10
 ;;9002226.02101,"1224,54458-0916-10 ",.01)
 ;;54458-0916-10
 ;;9002226.02101,"1224,54458-0916-10 ",.02)
 ;;54458-0916-10
 ;;9002226.02101,"1224,54458-0925-10 ",.01)
 ;;54458-0925-10
 ;;9002226.02101,"1224,54458-0925-10 ",.02)
 ;;54458-0925-10
 ;;9002226.02101,"1224,54458-0926-10 ",.01)
 ;;54458-0926-10
 ;;9002226.02101,"1224,54458-0926-10 ",.02)
 ;;54458-0926-10
 ;;9002226.02101,"1224,54458-0927-10 ",.01)
 ;;54458-0927-10
 ;;9002226.02101,"1224,54458-0927-10 ",.02)
 ;;54458-0927-10
 ;;9002226.02101,"1224,54458-0932-10 ",.01)
 ;;54458-0932-10
 ;;9002226.02101,"1224,54458-0932-10 ",.02)
 ;;54458-0932-10
 ;;9002226.02101,"1224,54458-0933-10 ",.01)
 ;;54458-0933-10
 ;;9002226.02101,"1224,54458-0933-10 ",.02)
 ;;54458-0933-10
 ;;9002226.02101,"1224,54458-0934-10 ",.01)
 ;;54458-0934-10
 ;;9002226.02101,"1224,54458-0934-10 ",.02)
 ;;54458-0934-10
 ;;9002226.02101,"1224,54458-0936-10 ",.01)
 ;;54458-0936-10
 ;;9002226.02101,"1224,54458-0936-10 ",.02)
 ;;54458-0936-10
 ;;9002226.02101,"1224,54458-0937-10 ",.01)
 ;;54458-0937-10
 ;;9002226.02101,"1224,54458-0937-10 ",.02)
 ;;54458-0937-10
 ;;9002226.02101,"1224,54458-0938-10 ",.01)
 ;;54458-0938-10
 ;;9002226.02101,"1224,54458-0938-10 ",.02)
 ;;54458-0938-10
 ;;9002226.02101,"1224,54569-3821-00 ",.01)
 ;;54569-3821-00
 ;;9002226.02101,"1224,54569-3821-00 ",.02)
 ;;54569-3821-00
 ;;9002226.02101,"1224,54569-4466-00 ",.01)
 ;;54569-4466-00
 ;;9002226.02101,"1224,54569-4466-00 ",.02)
 ;;54569-4466-00
 ;;9002226.02101,"1224,54569-4466-01 ",.01)
 ;;54569-4466-01
 ;;9002226.02101,"1224,54569-4466-01 ",.02)
 ;;54569-4466-01
 ;;9002226.02101,"1224,54569-4466-02 ",.01)
 ;;54569-4466-02
 ;;9002226.02101,"1224,54569-4466-02 ",.02)
 ;;54569-4466-02
 ;;9002226.02101,"1224,54569-4467-00 ",.01)
 ;;54569-4467-00
 ;;9002226.02101,"1224,54569-4467-00 ",.02)
 ;;54569-4467-00
 ;;9002226.02101,"1224,54569-4467-01 ",.01)
 ;;54569-4467-01
 ;;9002226.02101,"1224,54569-4467-01 ",.02)
 ;;54569-4467-01
 ;;9002226.02101,"1224,54569-4587-00 ",.01)
 ;;54569-4587-00
 ;;9002226.02101,"1224,54569-4587-00 ",.02)
 ;;54569-4587-00
 ;;9002226.02101,"1224,54569-4587-01 ",.01)
 ;;54569-4587-01
 ;;9002226.02101,"1224,54569-4587-01 ",.02)
 ;;54569-4587-01
 ;;9002226.02101,"1224,54569-5345-00 ",.01)
 ;;54569-5345-00
 ;;9002226.02101,"1224,54569-5345-00 ",.02)
 ;;54569-5345-00
 ;;9002226.02101,"1224,54569-5345-01 ",.01)
 ;;54569-5345-01
 ;;9002226.02101,"1224,54569-5345-01 ",.02)
 ;;54569-5345-01
 ;;9002226.02101,"1224,54569-5346-00 ",.01)
 ;;54569-5346-00
 ;;9002226.02101,"1224,54569-5346-00 ",.02)
 ;;54569-5346-00
 ;;9002226.02101,"1224,54569-5346-02 ",.01)
 ;;54569-5346-02
 ;;9002226.02101,"1224,54569-5346-02 ",.02)
 ;;54569-5346-02
 ;;9002226.02101,"1224,54569-5347-00 ",.01)
 ;;54569-5347-00
 ;;9002226.02101,"1224,54569-5347-00 ",.02)
 ;;54569-5347-00
 ;;9002226.02101,"1224,54569-5347-02 ",.01)
 ;;54569-5347-02
 ;;9002226.02101,"1224,54569-5347-02 ",.02)
 ;;54569-5347-02
 ;;9002226.02101,"1224,54569-5382-00 ",.01)
 ;;54569-5382-00
 ;;9002226.02101,"1224,54569-5382-00 ",.02)
 ;;54569-5382-00
 ;;9002226.02101,"1224,54569-5600-00 ",.01)
 ;;54569-5600-00
 ;;9002226.02101,"1224,54569-5600-00 ",.02)
 ;;54569-5600-00
 ;;9002226.02101,"1224,54569-5600-01 ",.01)
 ;;54569-5600-01
 ;;9002226.02101,"1224,54569-5600-01 ",.02)
 ;;54569-5600-01
 ;;9002226.02101,"1224,54569-5648-00 ",.01)
 ;;54569-5648-00
 ;;9002226.02101,"1224,54569-5648-00 ",.02)
 ;;54569-5648-00
 ;;9002226.02101,"1224,54569-5672-00 ",.01)
 ;;54569-5672-00
 ;;9002226.02101,"1224,54569-5672-00 ",.02)
 ;;54569-5672-00
 ;;9002226.02101,"1224,54569-5672-02 ",.01)
 ;;54569-5672-02
 ;;9002226.02101,"1224,54569-5672-02 ",.02)
 ;;54569-5672-02
 ;;9002226.02101,"1224,54569-5704-00 ",.01)
 ;;54569-5704-00
 ;;9002226.02101,"1224,54569-5704-00 ",.02)
 ;;54569-5704-00
 ;;9002226.02101,"1224,54569-5746-00 ",.01)
 ;;54569-5746-00
 ;;9002226.02101,"1224,54569-5746-00 ",.02)
 ;;54569-5746-00
 ;;9002226.02101,"1224,54569-5766-00 ",.01)
 ;;54569-5766-00
 ;;9002226.02101,"1224,54569-5766-00 ",.02)
 ;;54569-5766-00
 ;;9002226.02101,"1224,54569-5793-00 ",.01)
 ;;54569-5793-00
 ;;9002226.02101,"1224,54569-5793-00 ",.02)
 ;;54569-5793-00
 ;;9002226.02101,"1224,54569-5793-01 ",.01)
 ;;54569-5793-01
 ;;9002226.02101,"1224,54569-5793-01 ",.02)
 ;;54569-5793-01
 ;;9002226.02101,"1224,54569-5794-00 ",.01)
 ;;54569-5794-00
 ;;9002226.02101,"1224,54569-5794-00 ",.02)
 ;;54569-5794-00
 ;;9002226.02101,"1224,54569-5794-01 ",.01)
 ;;54569-5794-01
 ;;9002226.02101,"1224,54569-5794-01 ",.02)
 ;;54569-5794-01
 ;;9002226.02101,"1224,54569-5833-01 ",.01)
 ;;54569-5833-01
 ;;9002226.02101,"1224,54569-5833-01 ",.02)
 ;;54569-5833-01
 ;;9002226.02101,"1224,54569-5833-02 ",.01)
 ;;54569-5833-02
 ;;9002226.02101,"1224,54569-5833-02 ",.02)
 ;;54569-5833-02
 ;;9002226.02101,"1224,54569-5833-03 ",.01)
 ;;54569-5833-03
 ;;9002226.02101,"1224,54569-5833-03 ",.02)
 ;;54569-5833-03
 ;;9002226.02101,"1224,54569-5834-01 ",.01)
 ;;54569-5834-01
 ;;9002226.02101,"1224,54569-5834-01 ",.02)
 ;;54569-5834-01
 ;;9002226.02101,"1224,54569-5834-02 ",.01)
 ;;54569-5834-02
 ;;9002226.02101,"1224,54569-5834-02 ",.02)
 ;;54569-5834-02
 ;;9002226.02101,"1224,54569-5834-03 ",.01)
 ;;54569-5834-03
 ;;9002226.02101,"1224,54569-5834-03 ",.02)
 ;;54569-5834-03
 ;;9002226.02101,"1224,54569-5834-04 ",.01)
 ;;54569-5834-04
 ;;9002226.02101,"1224,54569-5834-04 ",.02)
 ;;54569-5834-04
 ;;9002226.02101,"1224,54569-5881-00 ",.01)
 ;;54569-5881-00
 ;;9002226.02101,"1224,54569-5881-00 ",.02)
 ;;54569-5881-00
 ;;9002226.02101,"1224,54569-5951-00 ",.01)
 ;;54569-5951-00
 ;;9002226.02101,"1224,54569-5951-00 ",.02)
 ;;54569-5951-00
 ;;9002226.02101,"1224,54569-6054-01 ",.01)
 ;;54569-6054-01
 ;;9002226.02101,"1224,54569-6054-01 ",.02)
 ;;54569-6054-01
 ;;9002226.02101,"1224,54569-6099-00 ",.01)
 ;;54569-6099-00
 ;;9002226.02101,"1224,54569-6099-00 ",.02)
 ;;54569-6099-00
 ;;9002226.02101,"1224,54569-6113-00 ",.01)
 ;;54569-6113-00
 ;;9002226.02101,"1224,54569-6113-00 ",.02)
 ;;54569-6113-00
 ;;9002226.02101,"1224,54569-6113-01 ",.01)
 ;;54569-6113-01
 ;;9002226.02101,"1224,54569-6113-01 ",.02)
 ;;54569-6113-01
 ;;9002226.02101,"1224,54569-6282-00 ",.01)
 ;;54569-6282-00
 ;;9002226.02101,"1224,54569-6282-00 ",.02)
 ;;54569-6282-00
 ;;9002226.02101,"1224,54569-6282-01 ",.01)
 ;;54569-6282-01
 ;;9002226.02101,"1224,54569-6282-01 ",.02)
 ;;54569-6282-01
 ;;9002226.02101,"1224,54569-6283-00 ",.01)
 ;;54569-6283-00
 ;;9002226.02101,"1224,54569-6283-00 ",.02)
 ;;54569-6283-00
 ;;9002226.02101,"1224,54569-6283-01 ",.01)
 ;;54569-6283-01
 ;;9002226.02101,"1224,54569-6283-01 ",.02)
 ;;54569-6283-01
 ;;9002226.02101,"1224,54569-6284-00 ",.01)
 ;;54569-6284-00
 ;;9002226.02101,"1224,54569-6284-00 ",.02)
 ;;54569-6284-00
 ;;9002226.02101,"1224,54569-6284-01 ",.01)
 ;;54569-6284-01
 ;;9002226.02101,"1224,54569-6284-01 ",.02)
 ;;54569-6284-01
 ;;9002226.02101,"1224,54569-6285-00 ",.01)
 ;;54569-6285-00
 ;;9002226.02101,"1224,54569-6285-00 ",.02)
 ;;54569-6285-00
 ;;9002226.02101,"1224,54569-6285-01 ",.01)
 ;;54569-6285-01
 ;;9002226.02101,"1224,54569-6285-01 ",.02)
 ;;54569-6285-01
 ;;9002226.02101,"1224,54569-6302-00 ",.01)
 ;;54569-6302-00
 ;;9002226.02101,"1224,54569-6302-00 ",.02)
 ;;54569-6302-00
 ;;9002226.02101,"1224,54569-6302-01 ",.01)
 ;;54569-6302-01
 ;;9002226.02101,"1224,54569-6302-01 ",.02)
 ;;54569-6302-01
 ;;9002226.02101,"1224,54569-6428-00 ",.01)
 ;;54569-6428-00
 ;;9002226.02101,"1224,54569-6428-00 ",.02)
 ;;54569-6428-00
 ;;9002226.02101,"1224,54569-6428-01 ",.01)
 ;;54569-6428-01
 ;;9002226.02101,"1224,54569-6428-01 ",.02)
 ;;54569-6428-01
 ;;9002226.02101,"1224,54569-6450-00 ",.01)
 ;;54569-6450-00
 ;;9002226.02101,"1224,54569-6450-00 ",.02)
 ;;54569-6450-00
 ;;9002226.02101,"1224,54569-6510-00 ",.01)
 ;;54569-6510-00
 ;;9002226.02101,"1224,54569-6510-00 ",.02)
 ;;54569-6510-00
 ;;9002226.02101,"1224,54868-0686-01 ",.01)
 ;;54868-0686-01
 ;;9002226.02101,"1224,54868-0686-01 ",.02)
 ;;54868-0686-01
 ;;9002226.02101,"1224,54868-0686-02 ",.01)
 ;;54868-0686-02
 ;;9002226.02101,"1224,54868-0686-02 ",.02)
 ;;54868-0686-02
 ;;9002226.02101,"1224,54868-0686-03 ",.01)
 ;;54868-0686-03
 ;;9002226.02101,"1224,54868-0686-03 ",.02)
 ;;54868-0686-03
 ;;9002226.02101,"1224,54868-0686-04 ",.01)
 ;;54868-0686-04
 ;;9002226.02101,"1224,54868-0686-04 ",.02)
 ;;54868-0686-04
 ;;9002226.02101,"1224,54868-1087-00 ",.01)
 ;;54868-1087-00
 ;;9002226.02101,"1224,54868-1087-00 ",.02)
 ;;54868-1087-00
 ;;9002226.02101,"1224,54868-1087-01 ",.01)
 ;;54868-1087-01
 ;;9002226.02101,"1224,54868-1087-01 ",.02)
 ;;54868-1087-01
 ;;9002226.02101,"1224,54868-1207-00 ",.01)
 ;;54868-1207-00
 ;;9002226.02101,"1224,54868-1207-00 ",.02)
 ;;54868-1207-00
 ;;9002226.02101,"1224,54868-1207-01 ",.01)
 ;;54868-1207-01
 ;;9002226.02101,"1224,54868-1207-01 ",.02)
 ;;54868-1207-01
 ;;9002226.02101,"1224,54868-1890-00 ",.01)
 ;;54868-1890-00
 ;;9002226.02101,"1224,54868-1890-00 ",.02)
 ;;54868-1890-00
 ;;9002226.02101,"1224,54868-1890-01 ",.01)
 ;;54868-1890-01
 ;;9002226.02101,"1224,54868-1890-01 ",.02)
 ;;54868-1890-01
 ;;9002226.02101,"1224,54868-2288-00 ",.01)
 ;;54868-2288-00
 ;;9002226.02101,"1224,54868-2288-00 ",.02)
 ;;54868-2288-00
 ;;9002226.02101,"1224,54868-2288-01 ",.01)
 ;;54868-2288-01
 ;;9002226.02101,"1224,54868-2288-01 ",.02)
 ;;54868-2288-01
 ;;9002226.02101,"1224,54868-2288-02 ",.01)
 ;;54868-2288-02
 ;;9002226.02101,"1224,54868-2288-02 ",.02)
 ;;54868-2288-02
 ;;9002226.02101,"1224,54868-2639-00 ",.01)
 ;;54868-2639-00
 ;;9002226.02101,"1224,54868-2639-00 ",.02)
 ;;54868-2639-00
 ;;9002226.02101,"1224,54868-2639-01 ",.01)
 ;;54868-2639-01
 ;;9002226.02101,"1224,54868-2639-01 ",.02)
 ;;54868-2639-01
 ;;9002226.02101,"1224,54868-3104-00 ",.01)
 ;;54868-3104-00
 ;;9002226.02101,"1224,54868-3104-00 ",.02)
 ;;54868-3104-00
 ;;9002226.02101,"1224,54868-3104-01 ",.01)
 ;;54868-3104-01
 ;;9002226.02101,"1224,54868-3104-01 ",.02)
 ;;54868-3104-01
 ;;9002226.02101,"1224,54868-3270-00 ",.01)
 ;;54868-3270-00
 ;;9002226.02101,"1224,54868-3270-00 ",.02)
 ;;54868-3270-00
 ;;9002226.02101,"1224,54868-3270-01 ",.01)
 ;;54868-3270-01
 ;;9002226.02101,"1224,54868-3270-01 ",.02)
 ;;54868-3270-01
 ;;9002226.02101,"1224,54868-3270-02 ",.01)
 ;;54868-3270-02
 ;;9002226.02101,"1224,54868-3270-02 ",.02)
 ;;54868-3270-02
 ;;9002226.02101,"1224,54868-3287-00 ",.01)
 ;;54868-3287-00
 ;;9002226.02101,"1224,54868-3287-00 ",.02)
 ;;54868-3287-00
 ;;9002226.02101,"1224,54868-3287-01 ",.01)
 ;;54868-3287-01
 ;;9002226.02101,"1224,54868-3287-01 ",.02)
 ;;54868-3287-01
 ;;9002226.02101,"1224,54868-3329-00 ",.01)
 ;;54868-3329-00