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

BGP81W23.m

Go to the documentation of this file.
BGP81W23 ; 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,55700-0202-20 ",.02)
 ;;55700-0202-20
 ;;9002226.02101,"1795,55700-0202-30 ",.01)
 ;;55700-0202-30
 ;;9002226.02101,"1795,55700-0202-30 ",.02)
 ;;55700-0202-30
 ;;9002226.02101,"1795,55700-0221-05 ",.01)
 ;;55700-0221-05
 ;;9002226.02101,"1795,55700-0221-05 ",.02)
 ;;55700-0221-05
 ;;9002226.02101,"1795,55700-0221-10 ",.01)
 ;;55700-0221-10
 ;;9002226.02101,"1795,55700-0221-10 ",.02)
 ;;55700-0221-10
 ;;9002226.02101,"1795,55700-0221-12 ",.01)
 ;;55700-0221-12
 ;;9002226.02101,"1795,55700-0221-12 ",.02)
 ;;55700-0221-12
 ;;9002226.02101,"1795,55700-0221-15 ",.01)
 ;;55700-0221-15
 ;;9002226.02101,"1795,55700-0221-15 ",.02)
 ;;55700-0221-15
 ;;9002226.02101,"1795,55700-0221-16 ",.01)
 ;;55700-0221-16
 ;;9002226.02101,"1795,55700-0221-16 ",.02)
 ;;55700-0221-16
 ;;9002226.02101,"1795,55700-0221-20 ",.01)
 ;;55700-0221-20
 ;;9002226.02101,"1795,55700-0221-20 ",.02)
 ;;55700-0221-20
 ;;9002226.02101,"1795,55700-0221-30 ",.01)
 ;;55700-0221-30
 ;;9002226.02101,"1795,55700-0221-30 ",.02)
 ;;55700-0221-30
 ;;9002226.02101,"1795,55700-0221-60 ",.01)
 ;;55700-0221-60
 ;;9002226.02101,"1795,55700-0221-60 ",.02)
 ;;55700-0221-60
 ;;9002226.02101,"1795,55700-0221-90 ",.01)
 ;;55700-0221-90
 ;;9002226.02101,"1795,55700-0221-90 ",.02)
 ;;55700-0221-90
 ;;9002226.02101,"1795,55700-0237-30 ",.01)
 ;;55700-0237-30
 ;;9002226.02101,"1795,55700-0237-30 ",.02)
 ;;55700-0237-30
 ;;9002226.02101,"1795,55700-0255-20 ",.01)
 ;;55700-0255-20
 ;;9002226.02101,"1795,55700-0255-20 ",.02)
 ;;55700-0255-20
 ;;9002226.02101,"1795,55700-0359-30 ",.01)
 ;;55700-0359-30
 ;;9002226.02101,"1795,55700-0359-30 ",.02)
 ;;55700-0359-30
 ;;9002226.02101,"1795,55700-0359-60 ",.01)
 ;;55700-0359-60
 ;;9002226.02101,"1795,55700-0359-60 ",.02)
 ;;55700-0359-60
 ;;9002226.02101,"1795,55700-0359-90 ",.01)
 ;;55700-0359-90
 ;;9002226.02101,"1795,55700-0359-90 ",.02)
 ;;55700-0359-90
 ;;9002226.02101,"1795,55700-0372-30 ",.01)
 ;;55700-0372-30
 ;;9002226.02101,"1795,55700-0372-30 ",.02)
 ;;55700-0372-30
 ;;9002226.02101,"1795,55700-0372-60 ",.01)
 ;;55700-0372-60
 ;;9002226.02101,"1795,55700-0372-60 ",.02)
 ;;55700-0372-60
 ;;9002226.02101,"1795,55700-0372-90 ",.01)
 ;;55700-0372-90
 ;;9002226.02101,"1795,55700-0372-90 ",.02)
 ;;55700-0372-90
 ;;9002226.02101,"1795,57629-0200-10 ",.01)
 ;;57629-0200-10
 ;;9002226.02101,"1795,57629-0200-10 ",.02)
 ;;57629-0200-10
 ;;9002226.02101,"1795,57629-0201-10 ",.01)
 ;;57629-0201-10
 ;;9002226.02101,"1795,57629-0201-10 ",.02)
 ;;57629-0201-10
 ;;9002226.02101,"1795,57629-0202-10 ",.01)
 ;;57629-0202-10
 ;;9002226.02101,"1795,57629-0202-10 ",.02)
 ;;57629-0202-10
 ;;9002226.02101,"1795,57629-0203-10 ",.01)
 ;;57629-0203-10
 ;;9002226.02101,"1795,57629-0203-10 ",.02)
 ;;57629-0203-10
 ;;9002226.02101,"1795,57664-0107-88 ",.01)
 ;;57664-0107-88
 ;;9002226.02101,"1795,57664-0107-88 ",.02)
 ;;57664-0107-88
 ;;9002226.02101,"1795,57664-0108-18 ",.01)
 ;;57664-0108-18
 ;;9002226.02101,"1795,57664-0108-18 ",.02)
 ;;57664-0108-18
 ;;9002226.02101,"1795,57664-0108-88 ",.01)
 ;;57664-0108-88
 ;;9002226.02101,"1795,57664-0108-88 ",.02)
 ;;57664-0108-88
 ;;9002226.02101,"1795,57664-0109-88 ",.01)
 ;;57664-0109-88
 ;;9002226.02101,"1795,57664-0109-88 ",.02)
 ;;57664-0109-88
 ;;9002226.02101,"1795,57664-0146-31 ",.01)
 ;;57664-0146-31
 ;;9002226.02101,"1795,57664-0146-31 ",.02)
 ;;57664-0146-31
 ;;9002226.02101,"1795,57664-0146-34 ",.01)
 ;;57664-0146-34
 ;;9002226.02101,"1795,57664-0146-34 ",.02)
 ;;57664-0146-34
 ;;9002226.02101,"1795,57664-0185-31 ",.01)
 ;;57664-0185-31
 ;;9002226.02101,"1795,57664-0185-31 ",.02)
 ;;57664-0185-31
 ;;9002226.02101,"1795,57664-0185-34 ",.01)
 ;;57664-0185-34
 ;;9002226.02101,"1795,57664-0185-34 ",.02)
 ;;57664-0185-34
 ;;9002226.02101,"1795,58118-0011-06 ",.01)
 ;;58118-0011-06
 ;;9002226.02101,"1795,58118-0011-06 ",.02)
 ;;58118-0011-06
 ;;9002226.02101,"1795,58118-0011-08 ",.01)
 ;;58118-0011-08
 ;;9002226.02101,"1795,58118-0011-08 ",.02)
 ;;58118-0011-08
 ;;9002226.02101,"1795,58118-0012-06 ",.01)
 ;;58118-0012-06
 ;;9002226.02101,"1795,58118-0012-06 ",.02)
 ;;58118-0012-06
 ;;9002226.02101,"1795,58118-0012-08 ",.01)
 ;;58118-0012-08
 ;;9002226.02101,"1795,58118-0012-08 ",.02)
 ;;58118-0012-08
 ;;9002226.02101,"1795,58118-0013-01 ",.01)
 ;;58118-0013-01
 ;;9002226.02101,"1795,58118-0013-01 ",.02)
 ;;58118-0013-01
 ;;9002226.02101,"1795,58118-0013-03 ",.01)
 ;;58118-0013-03
 ;;9002226.02101,"1795,58118-0013-03 ",.02)
 ;;58118-0013-03
 ;;9002226.02101,"1795,58118-0034-01 ",.01)
 ;;58118-0034-01
 ;;9002226.02101,"1795,58118-0034-01 ",.02)
 ;;58118-0034-01
 ;;9002226.02101,"1795,58118-0121-03 ",.01)
 ;;58118-0121-03
 ;;9002226.02101,"1795,58118-0121-03 ",.02)
 ;;58118-0121-03
 ;;9002226.02101,"1795,58118-0795-03 ",.01)
 ;;58118-0795-03
 ;;9002226.02101,"1795,58118-0795-03 ",.02)
 ;;58118-0795-03
 ;;9002226.02101,"1795,58118-5307-01 ",.01)
 ;;58118-5307-01
 ;;9002226.02101,"1795,58118-5307-01 ",.02)
 ;;58118-5307-01
 ;;9002226.02101,"1795,58118-5307-02 ",.01)
 ;;58118-5307-02
 ;;9002226.02101,"1795,58118-5307-02 ",.02)
 ;;58118-5307-02
 ;;9002226.02101,"1795,58118-5307-03 ",.01)
 ;;58118-5307-03
 ;;9002226.02101,"1795,58118-5307-03 ",.02)
 ;;58118-5307-03
 ;;9002226.02101,"1795,58118-5307-05 ",.01)
 ;;58118-5307-05
 ;;9002226.02101,"1795,58118-5307-05 ",.02)
 ;;58118-5307-05
 ;;9002226.02101,"1795,58118-5307-09 ",.01)
 ;;58118-5307-09
 ;;9002226.02101,"1795,58118-5307-09 ",.02)
 ;;58118-5307-09
 ;;9002226.02101,"1795,58118-9914-01 ",.01)
 ;;58118-9914-01
 ;;9002226.02101,"1795,58118-9914-01 ",.02)
 ;;58118-9914-01
 ;;9002226.02101,"1795,58118-9915-01 ",.01)
 ;;58118-9915-01
 ;;9002226.02101,"1795,58118-9915-01 ",.02)
 ;;58118-9915-01
 ;;9002226.02101,"1795,58118-9958-04 ",.01)
 ;;58118-9958-04
 ;;9002226.02101,"1795,58118-9958-04 ",.02)
 ;;58118-9958-04
 ;;9002226.02101,"1795,58118-9978-01 ",.01)
 ;;58118-9978-01
 ;;9002226.02101,"1795,58118-9978-01 ",.02)
 ;;58118-9978-01
 ;;9002226.02101,"1795,58118-9978-04 ",.01)
 ;;58118-9978-04
 ;;9002226.02101,"1795,58118-9978-04 ",.02)
 ;;58118-9978-04
 ;;9002226.02101,"1795,58298-0314-16 ",.01)
 ;;58298-0314-16
 ;;9002226.02101,"1795,58298-0314-16 ",.02)
 ;;58298-0314-16
 ;;9002226.02101,"1795,58552-0123-16 ",.01)
 ;;58552-0123-16
 ;;9002226.02101,"1795,58552-0123-16 ",.02)
 ;;58552-0123-16
 ;;9002226.02101,"1795,58552-0124-02 ",.01)
 ;;58552-0124-02
 ;;9002226.02101,"1795,58552-0124-02 ",.02)
 ;;58552-0124-02
 ;;9002226.02101,"1795,58657-0420-16 ",.01)
 ;;58657-0420-16
 ;;9002226.02101,"1795,58657-0420-16 ",.02)
 ;;58657-0420-16
 ;;9002226.02101,"1795,58657-0421-01 ",.01)
 ;;58657-0421-01
 ;;9002226.02101,"1795,58657-0421-01 ",.02)
 ;;58657-0421-01
 ;;9002226.02101,"1795,58657-0425-16 ",.01)
 ;;58657-0425-16
 ;;9002226.02101,"1795,58657-0425-16 ",.02)
 ;;58657-0425-16
 ;;9002226.02101,"1795,58657-0426-15 ",.01)
 ;;58657-0426-15
 ;;9002226.02101,"1795,58657-0426-15 ",.02)
 ;;58657-0426-15
 ;;9002226.02101,"1795,58657-0454-01 ",.01)
 ;;58657-0454-01
 ;;9002226.02101,"1795,58657-0454-01 ",.02)
 ;;58657-0454-01
 ;;9002226.02101,"1795,58657-0455-01 ",.01)
 ;;58657-0455-01
 ;;9002226.02101,"1795,58657-0455-01 ",.02)
 ;;58657-0455-01
 ;;9002226.02101,"1795,58864-0045-20 ",.01)
 ;;58864-0045-20
 ;;9002226.02101,"1795,58864-0045-20 ",.02)
 ;;58864-0045-20
 ;;9002226.02101,"1795,58864-0045-30 ",.01)
 ;;58864-0045-30
 ;;9002226.02101,"1795,58864-0045-30 ",.02)
 ;;58864-0045-30
 ;;9002226.02101,"1795,58864-0045-42 ",.01)
 ;;58864-0045-42
 ;;9002226.02101,"1795,58864-0045-42 ",.02)
 ;;58864-0045-42
 ;;9002226.02101,"1795,58864-0045-60 ",.01)
 ;;58864-0045-60
 ;;9002226.02101,"1795,58864-0045-60 ",.02)
 ;;58864-0045-60
 ;;9002226.02101,"1795,58864-0055-06 ",.01)
 ;;58864-0055-06
 ;;9002226.02101,"1795,58864-0055-06 ",.02)
 ;;58864-0055-06
 ;;9002226.02101,"1795,58864-0056-30 ",.01)
 ;;58864-0056-30
 ;;9002226.02101,"1795,58864-0056-30 ",.02)
 ;;58864-0056-30
 ;;9002226.02101,"1795,58864-0153-30 ",.01)
 ;;58864-0153-30
 ;;9002226.02101,"1795,58864-0153-30 ",.02)
 ;;58864-0153-30
 ;;9002226.02101,"1795,58864-0159-08 ",.01)
 ;;58864-0159-08
 ;;9002226.02101,"1795,58864-0159-08 ",.02)
 ;;58864-0159-08
 ;;9002226.02101,"1795,58864-0159-20 ",.01)
 ;;58864-0159-20
 ;;9002226.02101,"1795,58864-0159-20 ",.02)
 ;;58864-0159-20
 ;;9002226.02101,"1795,58864-0159-30 ",.01)
 ;;58864-0159-30
 ;;9002226.02101,"1795,58864-0159-30 ",.02)
 ;;58864-0159-30
 ;;9002226.02101,"1795,58864-0159-56 ",.01)
 ;;58864-0159-56
 ;;9002226.02101,"1795,58864-0159-56 ",.02)
 ;;58864-0159-56
 ;;9002226.02101,"1795,58864-0159-60 ",.01)
 ;;58864-0159-60
 ;;9002226.02101,"1795,58864-0159-60 ",.02)
 ;;58864-0159-60
 ;;9002226.02101,"1795,58864-0166-30 ",.01)
 ;;58864-0166-30
 ;;9002226.02101,"1795,58864-0166-30 ",.02)
 ;;58864-0166-30
 ;;9002226.02101,"1795,58864-0761-10 ",.01)
 ;;58864-0761-10
 ;;9002226.02101,"1795,58864-0761-10 ",.02)
 ;;58864-0761-10
 ;;9002226.02101,"1795,58864-0761-30 ",.01)
 ;;58864-0761-30
 ;;9002226.02101,"1795,58864-0761-30 ",.02)
 ;;58864-0761-30
 ;;9002226.02101,"1795,58864-0761-42 ",.01)
 ;;58864-0761-42
 ;;9002226.02101,"1795,58864-0761-42 ",.02)
 ;;58864-0761-42
 ;;9002226.02101,"1795,58914-0012-10 ",.01)
 ;;58914-0012-10
 ;;9002226.02101,"1795,58914-0012-10 ",.02)
 ;;58914-0012-10
 ;;9002226.02101,"1795,58914-0013-10 ",.01)
 ;;58914-0013-10
 ;;9002226.02101,"1795,58914-0013-10 ",.02)
 ;;58914-0013-10
 ;;9002226.02101,"1795,58914-0080-52 ",.01)
 ;;58914-0080-52
 ;;9002226.02101,"1795,58914-0080-52 ",.02)
 ;;58914-0080-52
 ;;9002226.02101,"1795,59212-0422-04 ",.01)
 ;;59212-0422-04
 ;;9002226.02101,"1795,59212-0422-04 ",.02)
 ;;59212-0422-04
 ;;9002226.02101,"1795,59212-0422-16 ",.01)
 ;;59212-0422-16
 ;;9002226.02101,"1795,59212-0422-16 ",.02)
 ;;59212-0422-16
 ;;9002226.02101,"1795,59212-0423-04 ",.01)
 ;;59212-0423-04
 ;;9002226.02101,"1795,59212-0423-04 ",.02)
 ;;59212-0423-04
 ;;9002226.02101,"1795,59212-0423-16 ",.01)
 ;;59212-0423-16
 ;;9002226.02101,"1795,59212-0423-16 ",.02)
 ;;59212-0423-16
 ;;9002226.02101,"1795,59212-0425-10 ",.01)
 ;;59212-0425-10
 ;;9002226.02101,"1795,59212-0425-10 ",.02)
 ;;59212-0425-10
 ;;9002226.02101,"1795,59212-0425-11 ",.01)
 ;;59212-0425-11
 ;;9002226.02101,"1795,59212-0425-11 ",.02)
 ;;59212-0425-11
 ;;9002226.02101,"1795,59702-0800-16 ",.01)
 ;;59702-0800-16
 ;;9002226.02101,"1795,59702-0800-16 ",.02)
 ;;59702-0800-16
 ;;9002226.02101,"1795,59746-0121-06 ",.01)
 ;;59746-0121-06
 ;;9002226.02101,"1795,59746-0121-06 ",.02)
 ;;59746-0121-06
 ;;9002226.02101,"1795,59746-0121-10 ",.01)
 ;;59746-0121-10
 ;;9002226.02101,"1795,59746-0121-10 ",.02)
 ;;59746-0121-10
 ;;9002226.02101,"1795,59746-0122-06 ",.01)
 ;;59746-0122-06
 ;;9002226.02101,"1795,59746-0122-06 ",.02)
 ;;59746-0122-06
 ;;9002226.02101,"1795,59746-0122-10 ",.01)
 ;;59746-0122-10
 ;;9002226.02101,"1795,59746-0122-10 ",.02)
 ;;59746-0122-10
 ;;9002226.02101,"1795,59762-1061-01 ",.01)
 ;;59762-1061-01
 ;;9002226.02101,"1795,59762-1061-01 ",.02)
 ;;59762-1061-01
 ;;9002226.02101,"1795,59762-1061-02 ",.01)
 ;;59762-1061-02
 ;;9002226.02101,"1795,59762-1061-02 ",.02)
 ;;59762-1061-02
 ;;9002226.02101,"1795,60258-0801-16 ",.01)
 ;;60258-0801-16
 ;;9002226.02101,"1795,60258-0801-16 ",.02)
 ;;60258-0801-16
 ;;9002226.02101,"1795,60258-0802-15 ",.01)
 ;;60258-0802-15
 ;;9002226.02101,"1795,60258-0802-15 ",.02)
 ;;60258-0802-15
 ;;9002226.02101,"1795,60258-0850-01 ",.01)
 ;;60258-0850-01
 ;;9002226.02101,"1795,60258-0850-01 ",.02)
 ;;60258-0850-01
 ;;9002226.02101,"1795,60258-0850-10 ",.01)
 ;;60258-0850-10
 ;;9002226.02101,"1795,60258-0850-10 ",.02)
 ;;60258-0850-10