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

BGP51W20.m

Go to the documentation of this file.
BGP51W20 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"1774,54569-5619-01 ",.02)
 ;;54569-5619-01
 ;;9002226.02101,"1774,54569-5619-02 ",.01)
 ;;54569-5619-02
 ;;9002226.02101,"1774,54569-5619-02 ",.02)
 ;;54569-5619-02
 ;;9002226.02101,"1774,54569-5619-03 ",.01)
 ;;54569-5619-03
 ;;9002226.02101,"1774,54569-5619-03 ",.02)
 ;;54569-5619-03
 ;;9002226.02101,"1774,54569-5619-04 ",.01)
 ;;54569-5619-04
 ;;9002226.02101,"1774,54569-5619-04 ",.02)
 ;;54569-5619-04
 ;;9002226.02101,"1774,54569-5855-00 ",.01)
 ;;54569-5855-00
 ;;9002226.02101,"1774,54569-5855-00 ",.02)
 ;;54569-5855-00
 ;;9002226.02101,"1774,54569-5855-01 ",.01)
 ;;54569-5855-01
 ;;9002226.02101,"1774,54569-5855-01 ",.02)
 ;;54569-5855-01
 ;;9002226.02101,"1774,54569-5855-02 ",.01)
 ;;54569-5855-02
 ;;9002226.02101,"1774,54569-5855-02 ",.02)
 ;;54569-5855-02
 ;;9002226.02101,"1774,54569-5855-03 ",.01)
 ;;54569-5855-03
 ;;9002226.02101,"1774,54569-5855-03 ",.02)
 ;;54569-5855-03
 ;;9002226.02101,"1774,54569-5925-00 ",.01)
 ;;54569-5925-00
 ;;9002226.02101,"1774,54569-5925-00 ",.02)
 ;;54569-5925-00
 ;;9002226.02101,"1774,54569-5991-00 ",.01)
 ;;54569-5991-00
 ;;9002226.02101,"1774,54569-5991-00 ",.02)
 ;;54569-5991-00
 ;;9002226.02101,"1774,54569-5992-00 ",.01)
 ;;54569-5992-00
 ;;9002226.02101,"1774,54569-5992-00 ",.02)
 ;;54569-5992-00
 ;;9002226.02101,"1774,54569-5992-01 ",.01)
 ;;54569-5992-01
 ;;9002226.02101,"1774,54569-5992-01 ",.02)
 ;;54569-5992-01
 ;;9002226.02101,"1774,54569-5993-00 ",.01)
 ;;54569-5993-00
 ;;9002226.02101,"1774,54569-5993-00 ",.02)
 ;;54569-5993-00
 ;;9002226.02101,"1774,54569-5993-01 ",.01)
 ;;54569-5993-01
 ;;9002226.02101,"1774,54569-5993-01 ",.02)
 ;;54569-5993-01
 ;;9002226.02101,"1774,54569-6072-00 ",.01)
 ;;54569-6072-00
 ;;9002226.02101,"1774,54569-6072-00 ",.02)
 ;;54569-6072-00
 ;;9002226.02101,"1774,54569-6072-01 ",.01)
 ;;54569-6072-01
 ;;9002226.02101,"1774,54569-6072-01 ",.02)
 ;;54569-6072-01
 ;;9002226.02101,"1774,54569-6072-02 ",.01)
 ;;54569-6072-02
 ;;9002226.02101,"1774,54569-6072-02 ",.02)
 ;;54569-6072-02
 ;;9002226.02101,"1774,54569-6072-03 ",.01)
 ;;54569-6072-03
 ;;9002226.02101,"1774,54569-6072-03 ",.02)
 ;;54569-6072-03
 ;;9002226.02101,"1774,54569-6354-00 ",.01)
 ;;54569-6354-00
 ;;9002226.02101,"1774,54569-6354-00 ",.02)
 ;;54569-6354-00
 ;;9002226.02101,"1774,54569-6354-01 ",.01)
 ;;54569-6354-01
 ;;9002226.02101,"1774,54569-6354-01 ",.02)
 ;;54569-6354-01
 ;;9002226.02101,"1774,54569-6355-00 ",.01)
 ;;54569-6355-00
 ;;9002226.02101,"1774,54569-6355-00 ",.02)
 ;;54569-6355-00
 ;;9002226.02101,"1774,54569-6355-01 ",.01)
 ;;54569-6355-01
 ;;9002226.02101,"1774,54569-6355-01 ",.02)
 ;;54569-6355-01
 ;;9002226.02101,"1774,54569-6356-00 ",.01)
 ;;54569-6356-00
 ;;9002226.02101,"1774,54569-6356-00 ",.02)
 ;;54569-6356-00
 ;;9002226.02101,"1774,54569-6356-01 ",.01)
 ;;54569-6356-01
 ;;9002226.02101,"1774,54569-6356-01 ",.02)
 ;;54569-6356-01
 ;;9002226.02101,"1774,54569-6507-00 ",.01)
 ;;54569-6507-00
 ;;9002226.02101,"1774,54569-6507-00 ",.02)
 ;;54569-6507-00
 ;;9002226.02101,"1774,54569-6523-00 ",.01)
 ;;54569-6523-00
 ;;9002226.02101,"1774,54569-6523-00 ",.02)
 ;;54569-6523-00
 ;;9002226.02101,"1774,54738-0925-01 ",.01)
 ;;54738-0925-01
 ;;9002226.02101,"1774,54738-0925-01 ",.02)
 ;;54738-0925-01
 ;;9002226.02101,"1774,54738-0925-02 ",.01)
 ;;54738-0925-02
 ;;9002226.02101,"1774,54738-0925-02 ",.02)
 ;;54738-0925-02
 ;;9002226.02101,"1774,54738-0925-03 ",.01)
 ;;54738-0925-03
 ;;9002226.02101,"1774,54738-0925-03 ",.02)
 ;;54738-0925-03
 ;;9002226.02101,"1774,54738-0926-01 ",.01)
 ;;54738-0926-01
 ;;9002226.02101,"1774,54738-0926-01 ",.02)
 ;;54738-0926-01
 ;;9002226.02101,"1774,54738-0926-02 ",.01)
 ;;54738-0926-02
 ;;9002226.02101,"1774,54738-0926-02 ",.02)
 ;;54738-0926-02
 ;;9002226.02101,"1774,54738-0926-03 ",.01)
 ;;54738-0926-03
 ;;9002226.02101,"1774,54738-0926-03 ",.02)
 ;;54738-0926-03
 ;;9002226.02101,"1774,54738-0927-01 ",.01)
 ;;54738-0927-01
 ;;9002226.02101,"1774,54738-0927-01 ",.02)
 ;;54738-0927-01
 ;;9002226.02101,"1774,54738-0927-02 ",.01)
 ;;54738-0927-02
 ;;9002226.02101,"1774,54738-0927-02 ",.02)
 ;;54738-0927-02
 ;;9002226.02101,"1774,54738-0927-03 ",.01)
 ;;54738-0927-03
 ;;9002226.02101,"1774,54738-0927-03 ",.02)
 ;;54738-0927-03
 ;;9002226.02101,"1774,54868-0036-00 ",.01)
 ;;54868-0036-00
 ;;9002226.02101,"1774,54868-0036-00 ",.02)
 ;;54868-0036-00
 ;;9002226.02101,"1774,54868-0036-02 ",.01)
 ;;54868-0036-02
 ;;9002226.02101,"1774,54868-0036-02 ",.02)
 ;;54868-0036-02
 ;;9002226.02101,"1774,54868-0036-04 ",.01)
 ;;54868-0036-04
 ;;9002226.02101,"1774,54868-0036-04 ",.02)
 ;;54868-0036-04
 ;;9002226.02101,"1774,54868-0795-00 ",.01)
 ;;54868-0795-00
 ;;9002226.02101,"1774,54868-0795-00 ",.02)
 ;;54868-0795-00
 ;;9002226.02101,"1774,54868-0830-00 ",.01)
 ;;54868-0830-00
 ;;9002226.02101,"1774,54868-0830-00 ",.02)
 ;;54868-0830-00
 ;;9002226.02101,"1774,54868-0830-01 ",.01)
 ;;54868-0830-01
 ;;9002226.02101,"1774,54868-0830-01 ",.02)
 ;;54868-0830-01
 ;;9002226.02101,"1774,54868-0877-01 ",.01)
 ;;54868-0877-01
 ;;9002226.02101,"1774,54868-0877-01 ",.02)
 ;;54868-0877-01
 ;;9002226.02101,"1774,54868-1020-00 ",.01)
 ;;54868-1020-00
 ;;9002226.02101,"1774,54868-1020-00 ",.02)
 ;;54868-1020-00
 ;;9002226.02101,"1774,54868-1097-00 ",.01)
 ;;54868-1097-00
 ;;9002226.02101,"1774,54868-1097-00 ",.02)
 ;;54868-1097-00
 ;;9002226.02101,"1774,54868-1097-01 ",.01)
 ;;54868-1097-01
 ;;9002226.02101,"1774,54868-1097-01 ",.02)
 ;;54868-1097-01
 ;;9002226.02101,"1774,54868-1361-01 ",.01)
 ;;54868-1361-01
 ;;9002226.02101,"1774,54868-1361-01 ",.02)
 ;;54868-1361-01
 ;;9002226.02101,"1774,54868-2894-00 ",.01)
 ;;54868-2894-00
 ;;9002226.02101,"1774,54868-2894-00 ",.02)
 ;;54868-2894-00
 ;;9002226.02101,"1774,54868-3017-00 ",.01)
 ;;54868-3017-00
 ;;9002226.02101,"1774,54868-3017-00 ",.02)
 ;;54868-3017-00
 ;;9002226.02101,"1774,54868-3265-00 ",.01)
 ;;54868-3265-00
 ;;9002226.02101,"1774,54868-3265-00 ",.02)
 ;;54868-3265-00
 ;;9002226.02101,"1774,54868-3265-01 ",.01)
 ;;54868-3265-01
 ;;9002226.02101,"1774,54868-3265-01 ",.02)
 ;;54868-3265-01
 ;;9002226.02101,"1774,54868-3265-03 ",.01)
 ;;54868-3265-03
 ;;9002226.02101,"1774,54868-3265-03 ",.02)
 ;;54868-3265-03
 ;;9002226.02101,"1774,54868-3265-04 ",.01)
 ;;54868-3265-04
 ;;9002226.02101,"1774,54868-3265-04 ",.02)
 ;;54868-3265-04
 ;;9002226.02101,"1774,54868-3265-05 ",.01)
 ;;54868-3265-05
 ;;9002226.02101,"1774,54868-3265-05 ",.02)
 ;;54868-3265-05
 ;;9002226.02101,"1774,54868-3265-06 ",.01)
 ;;54868-3265-06
 ;;9002226.02101,"1774,54868-3265-06 ",.02)
 ;;54868-3265-06
 ;;9002226.02101,"1774,54868-3266-01 ",.01)
 ;;54868-3266-01
 ;;9002226.02101,"1774,54868-3266-01 ",.02)
 ;;54868-3266-01
 ;;9002226.02101,"1774,54868-3266-02 ",.01)
 ;;54868-3266-02
 ;;9002226.02101,"1774,54868-3266-02 ",.02)
 ;;54868-3266-02
 ;;9002226.02101,"1774,54868-3266-03 ",.01)
 ;;54868-3266-03
 ;;9002226.02101,"1774,54868-3266-03 ",.02)
 ;;54868-3266-03
 ;;9002226.02101,"1774,54868-3266-04 ",.01)
 ;;54868-3266-04
 ;;9002226.02101,"1774,54868-3266-04 ",.02)
 ;;54868-3266-04
 ;;9002226.02101,"1774,54868-3318-01 ",.01)
 ;;54868-3318-01
 ;;9002226.02101,"1774,54868-3318-01 ",.02)
 ;;54868-3318-01
 ;;9002226.02101,"1774,54868-3318-02 ",.01)
 ;;54868-3318-02
 ;;9002226.02101,"1774,54868-3318-02 ",.02)
 ;;54868-3318-02
 ;;9002226.02101,"1774,54868-3318-03 ",.01)
 ;;54868-3318-03
 ;;9002226.02101,"1774,54868-3318-03 ",.02)
 ;;54868-3318-03
 ;;9002226.02101,"1774,54868-3318-04 ",.01)
 ;;54868-3318-04
 ;;9002226.02101,"1774,54868-3318-04 ",.02)
 ;;54868-3318-04
 ;;9002226.02101,"1774,54868-3318-05 ",.01)
 ;;54868-3318-05
 ;;9002226.02101,"1774,54868-3318-05 ",.02)
 ;;54868-3318-05
 ;;9002226.02101,"1774,54868-3319-01 ",.01)
 ;;54868-3319-01
 ;;9002226.02101,"1774,54868-3319-01 ",.02)
 ;;54868-3319-01
 ;;9002226.02101,"1774,54868-3319-02 ",.01)
 ;;54868-3319-02
 ;;9002226.02101,"1774,54868-3319-02 ",.02)
 ;;54868-3319-02
 ;;9002226.02101,"1774,54868-3319-04 ",.01)
 ;;54868-3319-04
 ;;9002226.02101,"1774,54868-3319-04 ",.02)
 ;;54868-3319-04
 ;;9002226.02101,"1774,54868-3319-05 ",.01)
 ;;54868-3319-05
 ;;9002226.02101,"1774,54868-3319-05 ",.02)
 ;;54868-3319-05
 ;;9002226.02101,"1774,54868-3319-06 ",.01)
 ;;54868-3319-06
 ;;9002226.02101,"1774,54868-3319-06 ",.02)
 ;;54868-3319-06
 ;;9002226.02101,"1774,54868-3319-07 ",.01)
 ;;54868-3319-07
 ;;9002226.02101,"1774,54868-3319-07 ",.02)
 ;;54868-3319-07
 ;;9002226.02101,"1774,54868-3327-00 ",.01)
 ;;54868-3327-00
 ;;9002226.02101,"1774,54868-3327-00 ",.02)
 ;;54868-3327-00
 ;;9002226.02101,"1774,54868-3334-00 ",.01)
 ;;54868-3334-00
 ;;9002226.02101,"1774,54868-3334-00 ",.02)
 ;;54868-3334-00
 ;;9002226.02101,"1774,54868-3334-01 ",.01)
 ;;54868-3334-01
 ;;9002226.02101,"1774,54868-3334-01 ",.02)
 ;;54868-3334-01
 ;;9002226.02101,"1774,54868-3334-02 ",.01)
 ;;54868-3334-02
 ;;9002226.02101,"1774,54868-3334-02 ",.02)
 ;;54868-3334-02
 ;;9002226.02101,"1774,54868-3334-03 ",.01)
 ;;54868-3334-03
 ;;9002226.02101,"1774,54868-3334-03 ",.02)
 ;;54868-3334-03
 ;;9002226.02101,"1774,54868-3334-04 ",.01)
 ;;54868-3334-04
 ;;9002226.02101,"1774,54868-3334-04 ",.02)
 ;;54868-3334-04
 ;;9002226.02101,"1774,54868-3335-00 ",.01)
 ;;54868-3335-00
 ;;9002226.02101,"1774,54868-3335-00 ",.02)
 ;;54868-3335-00
 ;;9002226.02101,"1774,54868-3335-01 ",.01)
 ;;54868-3335-01
 ;;9002226.02101,"1774,54868-3335-01 ",.02)
 ;;54868-3335-01
 ;;9002226.02101,"1774,54868-3335-02 ",.01)
 ;;54868-3335-02
 ;;9002226.02101,"1774,54868-3335-02 ",.02)
 ;;54868-3335-02
 ;;9002226.02101,"1774,54868-3335-03 ",.01)
 ;;54868-3335-03
 ;;9002226.02101,"1774,54868-3335-03 ",.02)
 ;;54868-3335-03
 ;;9002226.02101,"1774,54868-3377-00 ",.01)
 ;;54868-3377-00
 ;;9002226.02101,"1774,54868-3377-00 ",.02)
 ;;54868-3377-00
 ;;9002226.02101,"1774,54868-3377-01 ",.01)
 ;;54868-3377-01
 ;;9002226.02101,"1774,54868-3377-01 ",.02)
 ;;54868-3377-01
 ;;9002226.02101,"1774,54868-3377-02 ",.01)
 ;;54868-3377-02
 ;;9002226.02101,"1774,54868-3377-02 ",.02)
 ;;54868-3377-02
 ;;9002226.02101,"1774,54868-3377-03 ",.01)
 ;;54868-3377-03
 ;;9002226.02101,"1774,54868-3377-03 ",.02)
 ;;54868-3377-03
 ;;9002226.02101,"1774,54868-3426-00 ",.01)
 ;;54868-3426-00
 ;;9002226.02101,"1774,54868-3426-00 ",.02)
 ;;54868-3426-00
 ;;9002226.02101,"1774,54868-3426-01 ",.01)
 ;;54868-3426-01
 ;;9002226.02101,"1774,54868-3426-01 ",.02)
 ;;54868-3426-01
 ;;9002226.02101,"1774,54868-3546-00 ",.01)
 ;;54868-3546-00
 ;;9002226.02101,"1774,54868-3546-00 ",.02)
 ;;54868-3546-00
 ;;9002226.02101,"1774,54868-3546-01 ",.01)
 ;;54868-3546-01
 ;;9002226.02101,"1774,54868-3546-01 ",.02)
 ;;54868-3546-01
 ;;9002226.02101,"1774,54868-3711-00 ",.01)
 ;;54868-3711-00
 ;;9002226.02101,"1774,54868-3711-00 ",.02)
 ;;54868-3711-00
 ;;9002226.02101,"1774,54868-3711-01 ",.01)
 ;;54868-3711-01
 ;;9002226.02101,"1774,54868-3711-01 ",.02)
 ;;54868-3711-01
 ;;9002226.02101,"1774,54868-4091-00 ",.01)
 ;;54868-4091-00
 ;;9002226.02101,"1774,54868-4091-00 ",.02)
 ;;54868-4091-00
 ;;9002226.02101,"1774,54868-4091-01 ",.01)
 ;;54868-4091-01
 ;;9002226.02101,"1774,54868-4091-01 ",.02)
 ;;54868-4091-01
 ;;9002226.02101,"1774,54868-4091-02 ",.01)
 ;;54868-4091-02
 ;;9002226.02101,"1774,54868-4091-02 ",.02)
 ;;54868-4091-02
 ;;9002226.02101,"1774,54868-4091-03 ",.01)
 ;;54868-4091-03
 ;;9002226.02101,"1774,54868-4091-03 ",.02)
 ;;54868-4091-03
 ;;9002226.02101,"1774,54868-4198-00 ",.01)
 ;;54868-4198-00
 ;;9002226.02101,"1774,54868-4198-00 ",.02)
 ;;54868-4198-00
 ;;9002226.02101,"1774,54868-4198-01 ",.01)
 ;;54868-4198-01
 ;;9002226.02101,"1774,54868-4198-01 ",.02)
 ;;54868-4198-01
 ;;9002226.02101,"1774,54868-4221-00 ",.01)
 ;;54868-4221-00
 ;;9002226.02101,"1774,54868-4221-00 ",.02)
 ;;54868-4221-00
 ;;9002226.02101,"1774,54868-4343-00 ",.01)
 ;;54868-4343-00
 ;;9002226.02101,"1774,54868-4343-00 ",.02)
 ;;54868-4343-00
 ;;9002226.02101,"1774,54868-4343-01 ",.01)
 ;;54868-4343-01
 ;;9002226.02101,"1774,54868-4343-01 ",.02)
 ;;54868-4343-01
 ;;9002226.02101,"1774,54868-4354-00 ",.01)
 ;;54868-4354-00
 ;;9002226.02101,"1774,54868-4354-00 ",.02)
 ;;54868-4354-00
 ;;9002226.02101,"1774,54868-4354-01 ",.01)
 ;;54868-4354-01
 ;;9002226.02101,"1774,54868-4354-01 ",.02)
 ;;54868-4354-01
 ;;9002226.02101,"1774,54868-4391-00 ",.01)
 ;;54868-4391-00
 ;;9002226.02101,"1774,54868-4391-00 ",.02)
 ;;54868-4391-00
 ;;9002226.02101,"1774,54868-4391-01 ",.01)
 ;;54868-4391-01
 ;;9002226.02101,"1774,54868-4391-01 ",.02)
 ;;54868-4391-01
 ;;9002226.02101,"1774,54868-4420-00 ",.01)
 ;;54868-4420-00
 ;;9002226.02101,"1774,54868-4420-00 ",.02)
 ;;54868-4420-00
 ;;9002226.02101,"1774,54868-4529-00 ",.01)
 ;;54868-4529-00
 ;;9002226.02101,"1774,54868-4529-00 ",.02)
 ;;54868-4529-00
 ;;9002226.02101,"1774,54868-4529-01 ",.01)
 ;;54868-4529-01
 ;;9002226.02101,"1774,54868-4529-01 ",.02)
 ;;54868-4529-01
 ;;9002226.02101,"1774,54868-4529-02 ",.01)
 ;;54868-4529-02
 ;;9002226.02101,"1774,54868-4529-02 ",.02)
 ;;54868-4529-02
 ;;9002226.02101,"1774,54868-4529-03 ",.01)
 ;;54868-4529-03
 ;;9002226.02101,"1774,54868-4529-03 ",.02)
 ;;54868-4529-03
 ;;9002226.02101,"1774,54868-4561-00 ",.01)
 ;;54868-4561-00
 ;;9002226.02101,"1774,54868-4561-00 ",.02)
 ;;54868-4561-00
 ;;9002226.02101,"1774,54868-4561-01 ",.01)
 ;;54868-4561-01
 ;;9002226.02101,"1774,54868-4561-01 ",.02)
 ;;54868-4561-01
 ;;9002226.02101,"1774,54868-4561-02 ",.01)
 ;;54868-4561-02
 ;;9002226.02101,"1774,54868-4561-02 ",.02)
 ;;54868-4561-02