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

BGP82P18.m

Go to the documentation of this file.
BGP82P18 ; 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,"1224,53002-1569-03 ",.01)
 ;;53002-1569-03
 ;;9002226.02101,"1224,53002-1569-03 ",.02)
 ;;53002-1569-03
 ;;9002226.02101,"1224,53217-0113-30 ",.01)
 ;;53217-0113-30
 ;;9002226.02101,"1224,53217-0113-30 ",.02)
 ;;53217-0113-30
 ;;9002226.02101,"1224,53217-0113-90 ",.01)
 ;;53217-0113-90
 ;;9002226.02101,"1224,53217-0113-90 ",.02)
 ;;53217-0113-90
 ;;9002226.02101,"1224,53217-0203-30 ",.01)
 ;;53217-0203-30
 ;;9002226.02101,"1224,53217-0203-30 ",.02)
 ;;53217-0203-30
 ;;9002226.02101,"1224,53217-0203-90 ",.01)
 ;;53217-0203-90
 ;;9002226.02101,"1224,53217-0203-90 ",.02)
 ;;53217-0203-90
 ;;9002226.02101,"1224,53217-0209-30 ",.01)
 ;;53217-0209-30
 ;;9002226.02101,"1224,53217-0209-30 ",.02)
 ;;53217-0209-30
 ;;9002226.02101,"1224,53217-0209-60 ",.01)
 ;;53217-0209-60
 ;;9002226.02101,"1224,53217-0209-60 ",.02)
 ;;53217-0209-60
 ;;9002226.02101,"1224,53217-0209-90 ",.01)
 ;;53217-0209-90
 ;;9002226.02101,"1224,53217-0209-90 ",.02)
 ;;53217-0209-90
 ;;9002226.02101,"1224,53217-0209-99 ",.01)
 ;;53217-0209-99
 ;;9002226.02101,"1224,53217-0209-99 ",.02)
 ;;53217-0209-99
 ;;9002226.02101,"1224,53217-0295-30 ",.01)
 ;;53217-0295-30
 ;;9002226.02101,"1224,53217-0295-30 ",.02)
 ;;53217-0295-30
 ;;9002226.02101,"1224,53217-0295-90 ",.01)
 ;;53217-0295-90
 ;;9002226.02101,"1224,53217-0295-90 ",.02)
 ;;53217-0295-90
 ;;9002226.02101,"1224,53217-0296-30 ",.01)
 ;;53217-0296-30
 ;;9002226.02101,"1224,53217-0296-30 ",.02)
 ;;53217-0296-30
 ;;9002226.02101,"1224,53217-0296-90 ",.01)
 ;;53217-0296-90
 ;;9002226.02101,"1224,53217-0296-90 ",.02)
 ;;53217-0296-90
 ;;9002226.02101,"1224,53217-0297-30 ",.01)
 ;;53217-0297-30
 ;;9002226.02101,"1224,53217-0297-30 ",.02)
 ;;53217-0297-30
 ;;9002226.02101,"1224,53217-0297-90 ",.01)
 ;;53217-0297-90
 ;;9002226.02101,"1224,53217-0297-90 ",.02)
 ;;53217-0297-90
 ;;9002226.02101,"1224,53217-0304-02 ",.01)
 ;;53217-0304-02
 ;;9002226.02101,"1224,53217-0304-02 ",.02)
 ;;53217-0304-02
 ;;9002226.02101,"1224,53217-0304-30 ",.01)
 ;;53217-0304-30
 ;;9002226.02101,"1224,53217-0304-30 ",.02)
 ;;53217-0304-30
 ;;9002226.02101,"1224,53217-0304-90 ",.01)
 ;;53217-0304-90
 ;;9002226.02101,"1224,53217-0304-90 ",.02)
 ;;53217-0304-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-0845-16 ",.01)
 ;;54458-0845-16
 ;;9002226.02101,"1224,54458-0845-16 ",.02)
 ;;54458-0845-16
 ;;9002226.02101,"1224,54458-0867-10 ",.01)
 ;;54458-0867-10
 ;;9002226.02101,"1224,54458-0867-10 ",.02)
 ;;54458-0867-10
 ;;9002226.02101,"1224,54458-0869-10 ",.01)
 ;;54458-0869-10
 ;;9002226.02101,"1224,54458-0869-10 ",.02)
 ;;54458-0869-10
 ;;9002226.02101,"1224,54458-0870-10 ",.01)
 ;;54458-0870-10
 ;;9002226.02101,"1224,54458-0870-10 ",.02)
 ;;54458-0870-10
 ;;9002226.02101,"1224,54458-0871-10 ",.01)
 ;;54458-0871-10
 ;;9002226.02101,"1224,54458-0871-10 ",.02)
 ;;54458-0871-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-0881-16 ",.01)
 ;;54458-0881-16
 ;;9002226.02101,"1224,54458-0881-16 ",.02)
 ;;54458-0881-16
 ;;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-0925-16 ",.01)
 ;;54458-0925-16
 ;;9002226.02101,"1224,54458-0925-16 ",.02)
 ;;54458-0925-16
 ;;9002226.02101,"1224,54458-0926-10 ",.01)
 ;;54458-0926-10
 ;;9002226.02101,"1224,54458-0926-10 ",.02)
 ;;54458-0926-10
 ;;9002226.02101,"1224,54458-0926-16 ",.01)
 ;;54458-0926-16
 ;;9002226.02101,"1224,54458-0926-16 ",.02)
 ;;54458-0926-16
 ;;9002226.02101,"1224,54458-0927-10 ",.01)
 ;;54458-0927-10
 ;;9002226.02101,"1224,54458-0927-10 ",.02)
 ;;54458-0927-10
 ;;9002226.02101,"1224,54458-0927-12 ",.01)
 ;;54458-0927-12
 ;;9002226.02101,"1224,54458-0927-12 ",.02)
 ;;54458-0927-12
 ;;9002226.02101,"1224,54458-0927-16 ",.01)
 ;;54458-0927-16
 ;;9002226.02101,"1224,54458-0927-16 ",.02)
 ;;54458-0927-16
 ;;9002226.02101,"1224,54458-0932-10 ",.01)
 ;;54458-0932-10
 ;;9002226.02101,"1224,54458-0932-10 ",.02)
 ;;54458-0932-10
 ;;9002226.02101,"1224,54458-0932-16 ",.01)
 ;;54458-0932-16
 ;;9002226.02101,"1224,54458-0932-16 ",.02)
 ;;54458-0932-16
 ;;9002226.02101,"1224,54458-0933-10 ",.01)
 ;;54458-0933-10
 ;;9002226.02101,"1224,54458-0933-10 ",.02)
 ;;54458-0933-10
 ;;9002226.02101,"1224,54458-0933-16 ",.01)
 ;;54458-0933-16
 ;;9002226.02101,"1224,54458-0933-16 ",.02)
 ;;54458-0933-16
 ;;9002226.02101,"1224,54458-0934-10 ",.01)
 ;;54458-0934-10
 ;;9002226.02101,"1224,54458-0934-10 ",.02)
 ;;54458-0934-10
 ;;9002226.02101,"1224,54458-0934-16 ",.01)
 ;;54458-0934-16
 ;;9002226.02101,"1224,54458-0934-16 ",.02)
 ;;54458-0934-16
 ;;9002226.02101,"1224,54458-0936-10 ",.01)
 ;;54458-0936-10
 ;;9002226.02101,"1224,54458-0936-10 ",.02)
 ;;54458-0936-10
 ;;9002226.02101,"1224,54458-0936-16 ",.01)
 ;;54458-0936-16
 ;;9002226.02101,"1224,54458-0936-16 ",.02)
 ;;54458-0936-16
 ;;9002226.02101,"1224,54458-0937-10 ",.01)
 ;;54458-0937-10
 ;;9002226.02101,"1224,54458-0937-10 ",.02)
 ;;54458-0937-10
 ;;9002226.02101,"1224,54458-0937-16 ",.01)
 ;;54458-0937-16
 ;;9002226.02101,"1224,54458-0937-16 ",.02)
 ;;54458-0937-16
 ;;9002226.02101,"1224,54458-0938-10 ",.01)
 ;;54458-0938-10
 ;;9002226.02101,"1224,54458-0938-10 ",.02)
 ;;54458-0938-10
 ;;9002226.02101,"1224,54458-0938-16 ",.01)
 ;;54458-0938-16
 ;;9002226.02101,"1224,54458-0938-16 ",.02)
 ;;54458-0938-16
 ;;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