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

BGP2TG10.m

Go to the documentation of this file.
BGP2TG10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1199,54868-0036-02 ",.01)
 ;;54868-0036-02
 ;;9002226.02101,"1199,54868-0036-02 ",.02)
 ;;54868-0036-02
 ;;9002226.02101,"1199,54868-0036-04 ",.01)
 ;;54868-0036-04
 ;;9002226.02101,"1199,54868-0036-04 ",.02)
 ;;54868-0036-04
 ;;9002226.02101,"1199,54868-0373-01 ",.01)
 ;;54868-0373-01
 ;;9002226.02101,"1199,54868-0373-01 ",.02)
 ;;54868-0373-01
 ;;9002226.02101,"1199,54868-0373-02 ",.01)
 ;;54868-0373-02
 ;;9002226.02101,"1199,54868-0373-02 ",.02)
 ;;54868-0373-02
 ;;9002226.02101,"1199,54868-0795-00 ",.01)
 ;;54868-0795-00
 ;;9002226.02101,"1199,54868-0795-00 ",.02)
 ;;54868-0795-00
 ;;9002226.02101,"1199,54868-0877-01 ",.01)
 ;;54868-0877-01
 ;;9002226.02101,"1199,54868-0877-01 ",.02)
 ;;54868-0877-01
 ;;9002226.02101,"1199,54868-0996-01 ",.01)
 ;;54868-0996-01
 ;;9002226.02101,"1199,54868-0996-01 ",.02)
 ;;54868-0996-01
 ;;9002226.02101,"1199,54868-0996-02 ",.01)
 ;;54868-0996-02
 ;;9002226.02101,"1199,54868-0996-02 ",.02)
 ;;54868-0996-02
 ;;9002226.02101,"1199,54868-0997-01 ",.01)
 ;;54868-0997-01
 ;;9002226.02101,"1199,54868-0997-01 ",.02)
 ;;54868-0997-01
 ;;9002226.02101,"1199,54868-0997-02 ",.01)
 ;;54868-0997-02
 ;;9002226.02101,"1199,54868-0997-02 ",.02)
 ;;54868-0997-02
 ;;9002226.02101,"1199,54868-0997-04 ",.01)
 ;;54868-0997-04
 ;;9002226.02101,"1199,54868-0997-04 ",.02)
 ;;54868-0997-04
 ;;9002226.02101,"1199,54868-1020-00 ",.01)
 ;;54868-1020-00
 ;;9002226.02101,"1199,54868-1020-00 ",.02)
 ;;54868-1020-00
 ;;9002226.02101,"1199,54868-1089-01 ",.01)
 ;;54868-1089-01
 ;;9002226.02101,"1199,54868-1089-01 ",.02)
 ;;54868-1089-01
 ;;9002226.02101,"1199,54868-1089-02 ",.01)
 ;;54868-1089-02
 ;;9002226.02101,"1199,54868-1089-02 ",.02)
 ;;54868-1089-02
 ;;9002226.02101,"1199,54868-1089-03 ",.01)
 ;;54868-1089-03
 ;;9002226.02101,"1199,54868-1089-03 ",.02)
 ;;54868-1089-03
 ;;9002226.02101,"1199,54868-1244-01 ",.01)
 ;;54868-1244-01
 ;;9002226.02101,"1199,54868-1244-01 ",.02)
 ;;54868-1244-01
 ;;9002226.02101,"1199,54868-1244-02 ",.01)
 ;;54868-1244-02
 ;;9002226.02101,"1199,54868-1244-02 ",.02)
 ;;54868-1244-02
 ;;9002226.02101,"1199,54868-1244-03 ",.01)
 ;;54868-1244-03
 ;;9002226.02101,"1199,54868-1244-03 ",.02)
 ;;54868-1244-03
 ;;9002226.02101,"1199,54868-1244-04 ",.01)
 ;;54868-1244-04
 ;;9002226.02101,"1199,54868-1244-04 ",.02)
 ;;54868-1244-04
 ;;9002226.02101,"1199,54868-1245-01 ",.01)
 ;;54868-1245-01
 ;;9002226.02101,"1199,54868-1245-01 ",.02)
 ;;54868-1245-01
 ;;9002226.02101,"1199,54868-1245-02 ",.01)
 ;;54868-1245-02
 ;;9002226.02101,"1199,54868-1245-02 ",.02)
 ;;54868-1245-02
 ;;9002226.02101,"1199,54868-1245-05 ",.01)
 ;;54868-1245-05
 ;;9002226.02101,"1199,54868-1245-05 ",.02)
 ;;54868-1245-05
 ;;9002226.02101,"1199,54868-1361-01 ",.01)
 ;;54868-1361-01
 ;;9002226.02101,"1199,54868-1361-01 ",.02)
 ;;54868-1361-01
 ;;9002226.02101,"1199,54868-1688-01 ",.01)
 ;;54868-1688-01
 ;;9002226.02101,"1199,54868-1688-01 ",.02)
 ;;54868-1688-01
 ;;9002226.02101,"1199,54868-3017-00 ",.01)
 ;;54868-3017-00
 ;;9002226.02101,"1199,54868-3017-00 ",.02)
 ;;54868-3017-00
 ;;9002226.02101,"1199,54868-3265-00 ",.01)
 ;;54868-3265-00
 ;;9002226.02101,"1199,54868-3265-00 ",.02)
 ;;54868-3265-00
 ;;9002226.02101,"1199,54868-3265-01 ",.01)
 ;;54868-3265-01
 ;;9002226.02101,"1199,54868-3265-01 ",.02)
 ;;54868-3265-01
 ;;9002226.02101,"1199,54868-3265-02 ",.01)
 ;;54868-3265-02
 ;;9002226.02101,"1199,54868-3265-02 ",.02)
 ;;54868-3265-02
 ;;9002226.02101,"1199,54868-3265-03 ",.01)
 ;;54868-3265-03
 ;;9002226.02101,"1199,54868-3265-03 ",.02)
 ;;54868-3265-03
 ;;9002226.02101,"1199,54868-3265-04 ",.01)
 ;;54868-3265-04
 ;;9002226.02101,"1199,54868-3265-04 ",.02)
 ;;54868-3265-04
 ;;9002226.02101,"1199,54868-3265-05 ",.01)
 ;;54868-3265-05
 ;;9002226.02101,"1199,54868-3265-05 ",.02)
 ;;54868-3265-05
 ;;9002226.02101,"1199,54868-3266-00 ",.01)
 ;;54868-3266-00
 ;;9002226.02101,"1199,54868-3266-00 ",.02)
 ;;54868-3266-00
 ;;9002226.02101,"1199,54868-3266-01 ",.01)
 ;;54868-3266-01
 ;;9002226.02101,"1199,54868-3266-01 ",.02)
 ;;54868-3266-01
 ;;9002226.02101,"1199,54868-3266-02 ",.01)
 ;;54868-3266-02
 ;;9002226.02101,"1199,54868-3266-02 ",.02)
 ;;54868-3266-02
 ;;9002226.02101,"1199,54868-3266-03 ",.01)
 ;;54868-3266-03
 ;;9002226.02101,"1199,54868-3266-03 ",.02)
 ;;54868-3266-03
 ;;9002226.02101,"1199,54868-3266-04 ",.01)
 ;;54868-3266-04
 ;;9002226.02101,"1199,54868-3266-04 ",.02)
 ;;54868-3266-04
 ;;9002226.02101,"1199,54868-3318-01 ",.01)
 ;;54868-3318-01
 ;;9002226.02101,"1199,54868-3318-01 ",.02)
 ;;54868-3318-01
 ;;9002226.02101,"1199,54868-3318-02 ",.01)
 ;;54868-3318-02
 ;;9002226.02101,"1199,54868-3318-02 ",.02)
 ;;54868-3318-02
 ;;9002226.02101,"1199,54868-3318-03 ",.01)
 ;;54868-3318-03
 ;;9002226.02101,"1199,54868-3318-03 ",.02)
 ;;54868-3318-03
 ;;9002226.02101,"1199,54868-3318-04 ",.01)
 ;;54868-3318-04
 ;;9002226.02101,"1199,54868-3318-04 ",.02)
 ;;54868-3318-04
 ;;9002226.02101,"1199,54868-3318-05 ",.01)
 ;;54868-3318-05
 ;;9002226.02101,"1199,54868-3318-05 ",.02)
 ;;54868-3318-05
 ;;9002226.02101,"1199,54868-3319-01 ",.01)
 ;;54868-3319-01
 ;;9002226.02101,"1199,54868-3319-01 ",.02)
 ;;54868-3319-01
 ;;9002226.02101,"1199,54868-3319-02 ",.01)
 ;;54868-3319-02
 ;;9002226.02101,"1199,54868-3319-02 ",.02)
 ;;54868-3319-02
 ;;9002226.02101,"1199,54868-3319-03 ",.01)
 ;;54868-3319-03
 ;;9002226.02101,"1199,54868-3319-03 ",.02)
 ;;54868-3319-03
 ;;9002226.02101,"1199,54868-3319-04 ",.01)
 ;;54868-3319-04
 ;;9002226.02101,"1199,54868-3319-04 ",.02)
 ;;54868-3319-04
 ;;9002226.02101,"1199,54868-3319-05 ",.01)
 ;;54868-3319-05
 ;;9002226.02101,"1199,54868-3319-05 ",.02)
 ;;54868-3319-05
 ;;9002226.02101,"1199,54868-3319-06 ",.01)
 ;;54868-3319-06
 ;;9002226.02101,"1199,54868-3319-06 ",.02)
 ;;54868-3319-06
 ;;9002226.02101,"1199,54868-3319-07 ",.01)
 ;;54868-3319-07
 ;;9002226.02101,"1199,54868-3319-07 ",.02)
 ;;54868-3319-07
 ;;9002226.02101,"1199,54868-3327-00 ",.01)
 ;;54868-3327-00
 ;;9002226.02101,"1199,54868-3327-00 ",.02)
 ;;54868-3327-00
 ;;9002226.02101,"1199,54868-3334-00 ",.01)
 ;;54868-3334-00
 ;;9002226.02101,"1199,54868-3334-00 ",.02)
 ;;54868-3334-00
 ;;9002226.02101,"1199,54868-3334-01 ",.01)
 ;;54868-3334-01
 ;;9002226.02101,"1199,54868-3334-01 ",.02)
 ;;54868-3334-01
 ;;9002226.02101,"1199,54868-3334-02 ",.01)
 ;;54868-3334-02
 ;;9002226.02101,"1199,54868-3334-02 ",.02)
 ;;54868-3334-02
 ;;9002226.02101,"1199,54868-3334-03 ",.01)
 ;;54868-3334-03
 ;;9002226.02101,"1199,54868-3334-03 ",.02)
 ;;54868-3334-03
 ;;9002226.02101,"1199,54868-3334-04 ",.01)
 ;;54868-3334-04
 ;;9002226.02101,"1199,54868-3334-04 ",.02)
 ;;54868-3334-04
 ;;9002226.02101,"1199,54868-3335-00 ",.01)
 ;;54868-3335-00
 ;;9002226.02101,"1199,54868-3335-00 ",.02)
 ;;54868-3335-00
 ;;9002226.02101,"1199,54868-3335-01 ",.01)
 ;;54868-3335-01
 ;;9002226.02101,"1199,54868-3335-01 ",.02)
 ;;54868-3335-01
 ;;9002226.02101,"1199,54868-3335-02 ",.01)
 ;;54868-3335-02
 ;;9002226.02101,"1199,54868-3335-02 ",.02)
 ;;54868-3335-02
 ;;9002226.02101,"1199,54868-3335-03 ",.01)
 ;;54868-3335-03
 ;;9002226.02101,"1199,54868-3335-03 ",.02)
 ;;54868-3335-03
 ;;9002226.02101,"1199,54868-3377-00 ",.01)
 ;;54868-3377-00
 ;;9002226.02101,"1199,54868-3377-00 ",.02)
 ;;54868-3377-00
 ;;9002226.02101,"1199,54868-3377-01 ",.01)
 ;;54868-3377-01
 ;;9002226.02101,"1199,54868-3377-01 ",.02)
 ;;54868-3377-01
 ;;9002226.02101,"1199,54868-3377-02 ",.01)
 ;;54868-3377-02
 ;;9002226.02101,"1199,54868-3377-02 ",.02)
 ;;54868-3377-02
 ;;9002226.02101,"1199,54868-3426-00 ",.01)
 ;;54868-3426-00
 ;;9002226.02101,"1199,54868-3426-00 ",.02)
 ;;54868-3426-00
 ;;9002226.02101,"1199,54868-3426-01 ",.01)
 ;;54868-3426-01
 ;;9002226.02101,"1199,54868-3426-01 ",.02)
 ;;54868-3426-01
 ;;9002226.02101,"1199,54868-3711-00 ",.01)
 ;;54868-3711-00
 ;;9002226.02101,"1199,54868-3711-00 ",.02)
 ;;54868-3711-00
 ;;9002226.02101,"1199,54868-3711-01 ",.01)
 ;;54868-3711-01
 ;;9002226.02101,"1199,54868-3711-01 ",.02)
 ;;54868-3711-01
 ;;9002226.02101,"1199,54868-4091-00 ",.01)
 ;;54868-4091-00
 ;;9002226.02101,"1199,54868-4091-00 ",.02)
 ;;54868-4091-00
 ;;9002226.02101,"1199,54868-4091-01 ",.01)
 ;;54868-4091-01
 ;;9002226.02101,"1199,54868-4091-01 ",.02)
 ;;54868-4091-01
 ;;9002226.02101,"1199,54868-4091-02 ",.01)
 ;;54868-4091-02
 ;;9002226.02101,"1199,54868-4091-02 ",.02)
 ;;54868-4091-02
 ;;9002226.02101,"1199,54868-4091-03 ",.01)
 ;;54868-4091-03
 ;;9002226.02101,"1199,54868-4091-03 ",.02)
 ;;54868-4091-03
 ;;9002226.02101,"1199,54868-4205-00 ",.01)
 ;;54868-4205-00
 ;;9002226.02101,"1199,54868-4205-00 ",.02)
 ;;54868-4205-00
 ;;9002226.02101,"1199,54868-4205-01 ",.01)
 ;;54868-4205-01
 ;;9002226.02101,"1199,54868-4205-01 ",.02)
 ;;54868-4205-01
 ;;9002226.02101,"1199,54868-4205-02 ",.01)
 ;;54868-4205-02
 ;;9002226.02101,"1199,54868-4205-02 ",.02)
 ;;54868-4205-02
 ;;9002226.02101,"1199,54868-4206-00 ",.01)
 ;;54868-4206-00
 ;;9002226.02101,"1199,54868-4206-00 ",.02)
 ;;54868-4206-00
 ;;9002226.02101,"1199,54868-4206-01 ",.01)
 ;;54868-4206-01
 ;;9002226.02101,"1199,54868-4206-01 ",.02)
 ;;54868-4206-01
 ;;9002226.02101,"1199,54868-4206-03 ",.01)
 ;;54868-4206-03
 ;;9002226.02101,"1199,54868-4206-03 ",.02)
 ;;54868-4206-03
 ;;9002226.02101,"1199,54868-4206-04 ",.01)
 ;;54868-4206-04
 ;;9002226.02101,"1199,54868-4206-04 ",.02)
 ;;54868-4206-04
 ;;9002226.02101,"1199,54868-4412-00 ",.01)
 ;;54868-4412-00
 ;;9002226.02101,"1199,54868-4412-00 ",.02)
 ;;54868-4412-00
 ;;9002226.02101,"1199,54868-4412-01 ",.01)
 ;;54868-4412-01
 ;;9002226.02101,"1199,54868-4412-01 ",.02)
 ;;54868-4412-01
 ;;9002226.02101,"1199,54868-4412-02 ",.01)
 ;;54868-4412-02
 ;;9002226.02101,"1199,54868-4412-02 ",.02)
 ;;54868-4412-02
 ;;9002226.02101,"1199,54868-4420-00 ",.01)
 ;;54868-4420-00
 ;;9002226.02101,"1199,54868-4420-00 ",.02)
 ;;54868-4420-00
 ;;9002226.02101,"1199,54868-4529-00 ",.01)
 ;;54868-4529-00
 ;;9002226.02101,"1199,54868-4529-00 ",.02)
 ;;54868-4529-00
 ;;9002226.02101,"1199,54868-4529-01 ",.01)
 ;;54868-4529-01
 ;;9002226.02101,"1199,54868-4529-01 ",.02)
 ;;54868-4529-01
 ;;9002226.02101,"1199,54868-4529-02 ",.01)
 ;;54868-4529-02
 ;;9002226.02101,"1199,54868-4529-02 ",.02)
 ;;54868-4529-02
 ;;9002226.02101,"1199,54868-4529-03 ",.01)
 ;;54868-4529-03
 ;;9002226.02101,"1199,54868-4529-03 ",.02)
 ;;54868-4529-03
 ;;9002226.02101,"1199,54868-4609-00 ",.01)
 ;;54868-4609-00
 ;;9002226.02101,"1199,54868-4609-00 ",.02)
 ;;54868-4609-00
 ;;9002226.02101,"1199,54868-4609-01 ",.01)
 ;;54868-4609-01
 ;;9002226.02101,"1199,54868-4609-01 ",.02)
 ;;54868-4609-01
 ;;9002226.02101,"1199,54868-4842-00 ",.01)
 ;;54868-4842-00
 ;;9002226.02101,"1199,54868-4842-00 ",.02)
 ;;54868-4842-00
 ;;9002226.02101,"1199,54868-4842-01 ",.01)
 ;;54868-4842-01
 ;;9002226.02101,"1199,54868-4842-01 ",.02)
 ;;54868-4842-01
 ;;9002226.02101,"1199,54868-4842-02 ",.01)
 ;;54868-4842-02
 ;;9002226.02101,"1199,54868-4842-02 ",.02)
 ;;54868-4842-02
 ;;9002226.02101,"1199,54868-4906-00 ",.01)
 ;;54868-4906-00
 ;;9002226.02101,"1199,54868-4906-00 ",.02)
 ;;54868-4906-00
 ;;9002226.02101,"1199,54868-4988-00 ",.01)
 ;;54868-4988-00
 ;;9002226.02101,"1199,54868-4988-00 ",.02)
 ;;54868-4988-00
 ;;9002226.02101,"1199,54868-4988-01 ",.01)
 ;;54868-4988-01
 ;;9002226.02101,"1199,54868-4988-01 ",.02)
 ;;54868-4988-01
 ;;9002226.02101,"1199,54868-4988-02 ",.01)
 ;;54868-4988-02
 ;;9002226.02101,"1199,54868-4988-02 ",.02)
 ;;54868-4988-02
 ;;9002226.02101,"1199,54868-4988-03 ",.01)
 ;;54868-4988-03
 ;;9002226.02101,"1199,54868-4988-03 ",.02)
 ;;54868-4988-03
 ;;9002226.02101,"1199,54868-4988-04 ",.01)
 ;;54868-4988-04
 ;;9002226.02101,"1199,54868-4988-04 ",.02)
 ;;54868-4988-04
 ;;9002226.02101,"1199,54868-5148-00 ",.01)
 ;;54868-5148-00
 ;;9002226.02101,"1199,54868-5148-00 ",.02)
 ;;54868-5148-00
 ;;9002226.02101,"1199,54868-5148-01 ",.01)
 ;;54868-5148-01
 ;;9002226.02101,"1199,54868-5148-01 ",.02)
 ;;54868-5148-01
 ;;9002226.02101,"1199,54868-5148-02 ",.01)
 ;;54868-5148-02
 ;;9002226.02101,"1199,54868-5148-02 ",.02)
 ;;54868-5148-02
 ;;9002226.02101,"1199,54868-5148-03 ",.01)
 ;;54868-5148-03
 ;;9002226.02101,"1199,54868-5148-03 ",.02)
 ;;54868-5148-03
 ;;9002226.02101,"1199,54868-5148-04 ",.01)
 ;;54868-5148-04
 ;;9002226.02101,"1199,54868-5148-04 ",.02)
 ;;54868-5148-04
 ;;9002226.02101,"1199,54868-5185-00 ",.01)
 ;;54868-5185-00
 ;;9002226.02101,"1199,54868-5185-00 ",.02)
 ;;54868-5185-00
 ;;9002226.02101,"1199,54868-5185-01 ",.01)
 ;;54868-5185-01
 ;;9002226.02101,"1199,54868-5185-01 ",.02)
 ;;54868-5185-01
 ;;9002226.02101,"1199,54868-5185-02 ",.01)
 ;;54868-5185-02
 ;;9002226.02101,"1199,54868-5185-02 ",.02)
 ;;54868-5185-02
 ;;9002226.02101,"1199,54868-5185-03 ",.01)
 ;;54868-5185-03
 ;;9002226.02101,"1199,54868-5185-03 ",.02)
 ;;54868-5185-03
 ;;9002226.02101,"1199,54868-5188-00 ",.01)
 ;;54868-5188-00
 ;;9002226.02101,"1199,54868-5188-00 ",.02)
 ;;54868-5188-00
 ;;9002226.02101,"1199,54868-5188-01 ",.01)
 ;;54868-5188-01
 ;;9002226.02101,"1199,54868-5188-01 ",.02)
 ;;54868-5188-01
 ;;9002226.02101,"1199,54868-5188-02 ",.01)
 ;;54868-5188-02
 ;;9002226.02101,"1199,54868-5188-02 ",.02)
 ;;54868-5188-02
 ;;9002226.02101,"1199,54868-5210-00 ",.01)
 ;;54868-5210-00
 ;;9002226.02101,"1199,54868-5210-00 ",.02)
 ;;54868-5210-00
 ;;9002226.02101,"1199,54868-5210-01 ",.01)
 ;;54868-5210-01
 ;;9002226.02101,"1199,54868-5210-01 ",.02)
 ;;54868-5210-01
 ;;9002226.02101,"1199,54868-5210-02 ",.01)
 ;;54868-5210-02