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

BGP82Z46.m

Go to the documentation of this file.
BGP82Z46 ; 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,"619,49999-0858-90 ",.02)
 ;;49999-0858-90
 ;;9002226.02101,"619,49999-0859-30 ",.01)
 ;;49999-0859-30
 ;;9002226.02101,"619,49999-0859-30 ",.02)
 ;;49999-0859-30
 ;;9002226.02101,"619,49999-0859-60 ",.01)
 ;;49999-0859-60
 ;;9002226.02101,"619,49999-0859-60 ",.02)
 ;;49999-0859-60
 ;;9002226.02101,"619,49999-0859-90 ",.01)
 ;;49999-0859-90
 ;;9002226.02101,"619,49999-0859-90 ",.02)
 ;;49999-0859-90
 ;;9002226.02101,"619,49999-0896-10 ",.01)
 ;;49999-0896-10
 ;;9002226.02101,"619,49999-0896-10 ",.02)
 ;;49999-0896-10
 ;;9002226.02101,"619,49999-0896-30 ",.01)
 ;;49999-0896-30
 ;;9002226.02101,"619,49999-0896-30 ",.02)
 ;;49999-0896-30
 ;;9002226.02101,"619,49999-0899-01 ",.01)
 ;;49999-0899-01
 ;;9002226.02101,"619,49999-0899-01 ",.02)
 ;;49999-0899-01
 ;;9002226.02101,"619,49999-0899-30 ",.01)
 ;;49999-0899-30
 ;;9002226.02101,"619,49999-0899-30 ",.02)
 ;;49999-0899-30
 ;;9002226.02101,"619,49999-0899-40 ",.01)
 ;;49999-0899-40
 ;;9002226.02101,"619,49999-0899-40 ",.02)
 ;;49999-0899-40
 ;;9002226.02101,"619,49999-0899-60 ",.01)
 ;;49999-0899-60
 ;;9002226.02101,"619,49999-0899-60 ",.02)
 ;;49999-0899-60
 ;;9002226.02101,"619,49999-0899-90 ",.01)
 ;;49999-0899-90
 ;;9002226.02101,"619,49999-0899-90 ",.02)
 ;;49999-0899-90
 ;;9002226.02101,"619,49999-0963-30 ",.01)
 ;;49999-0963-30
 ;;9002226.02101,"619,49999-0963-30 ",.02)
 ;;49999-0963-30
 ;;9002226.02101,"619,49999-0963-60 ",.01)
 ;;49999-0963-60
 ;;9002226.02101,"619,49999-0963-60 ",.02)
 ;;49999-0963-60
 ;;9002226.02101,"619,49999-0963-90 ",.01)
 ;;49999-0963-90
 ;;9002226.02101,"619,49999-0963-90 ",.02)
 ;;49999-0963-90
 ;;9002226.02101,"619,50268-0400-11 ",.01)
 ;;50268-0400-11
 ;;9002226.02101,"619,50268-0400-11 ",.02)
 ;;50268-0400-11
 ;;9002226.02101,"619,50268-0400-15 ",.01)
 ;;50268-0400-15
 ;;9002226.02101,"619,50268-0400-15 ",.02)
 ;;50268-0400-15
 ;;9002226.02101,"619,50268-0401-11 ",.01)
 ;;50268-0401-11
 ;;9002226.02101,"619,50268-0401-11 ",.02)
 ;;50268-0401-11
 ;;9002226.02101,"619,50268-0401-15 ",.01)
 ;;50268-0401-15
 ;;9002226.02101,"619,50268-0401-15 ",.02)
 ;;50268-0401-15
 ;;9002226.02101,"619,50268-0402-11 ",.01)
 ;;50268-0402-11
 ;;9002226.02101,"619,50268-0402-11 ",.02)
 ;;50268-0402-11
 ;;9002226.02101,"619,50268-0402-15 ",.01)
 ;;50268-0402-15
 ;;9002226.02101,"619,50268-0402-15 ",.02)
 ;;50268-0402-15
 ;;9002226.02101,"619,50268-0403-11 ",.01)
 ;;50268-0403-11
 ;;9002226.02101,"619,50268-0403-11 ",.02)
 ;;50268-0403-11
 ;;9002226.02101,"619,50268-0403-15 ",.01)
 ;;50268-0403-15
 ;;9002226.02101,"619,50268-0403-15 ",.02)
 ;;50268-0403-15
 ;;9002226.02101,"619,50268-0408-11 ",.01)
 ;;50268-0408-11
 ;;9002226.02101,"619,50268-0408-11 ",.02)
 ;;50268-0408-11
 ;;9002226.02101,"619,50268-0408-15 ",.01)
 ;;50268-0408-15
 ;;9002226.02101,"619,50268-0408-15 ",.02)
 ;;50268-0408-15
 ;;9002226.02101,"619,50268-0774-11 ",.01)
 ;;50268-0774-11
 ;;9002226.02101,"619,50268-0774-11 ",.02)
 ;;50268-0774-11
 ;;9002226.02101,"619,50268-0774-15 ",.01)
 ;;50268-0774-15
 ;;9002226.02101,"619,50268-0774-15 ",.02)
 ;;50268-0774-15
 ;;9002226.02101,"619,50383-0043-16 ",.01)
 ;;50383-0043-16
 ;;9002226.02101,"619,50383-0043-16 ",.02)
 ;;50383-0043-16
 ;;9002226.02101,"619,50383-0079-05 ",.01)
 ;;50383-0079-05
 ;;9002226.02101,"619,50383-0079-05 ",.02)
 ;;50383-0079-05
 ;;9002226.02101,"619,50383-0079-06 ",.01)
 ;;50383-0079-06
 ;;9002226.02101,"619,50383-0079-06 ",.02)
 ;;50383-0079-06
 ;;9002226.02101,"619,50383-0079-12 ",.01)
 ;;50383-0079-12
 ;;9002226.02101,"619,50383-0079-12 ",.02)
 ;;50383-0079-12
 ;;9002226.02101,"619,50383-0079-13 ",.01)
 ;;50383-0079-13
 ;;9002226.02101,"619,50383-0079-13 ",.02)
 ;;50383-0079-13
 ;;9002226.02101,"619,50383-0079-16 ",.01)
 ;;50383-0079-16
 ;;9002226.02101,"619,50383-0079-16 ",.02)
 ;;50383-0079-16
 ;;9002226.02101,"619,50383-0804-16 ",.01)
 ;;50383-0804-16
 ;;9002226.02101,"619,50383-0804-16 ",.02)
 ;;50383-0804-16
 ;;9002226.02101,"619,50383-0805-04 ",.01)
 ;;50383-0805-04
 ;;9002226.02101,"619,50383-0805-04 ",.02)
 ;;50383-0805-04
 ;;9002226.02101,"619,50383-0805-16 ",.01)
 ;;50383-0805-16
 ;;9002226.02101,"619,50383-0805-16 ",.02)
 ;;50383-0805-16
 ;;9002226.02101,"619,50436-0109-01 ",.01)
 ;;50436-0109-01
 ;;9002226.02101,"619,50436-0109-01 ",.02)
 ;;50436-0109-01
 ;;9002226.02101,"619,50436-0109-02 ",.01)
 ;;50436-0109-02
 ;;9002226.02101,"619,50436-0109-02 ",.02)
 ;;50436-0109-02
 ;;9002226.02101,"619,50436-0109-04 ",.01)
 ;;50436-0109-04
 ;;9002226.02101,"619,50436-0109-04 ",.02)
 ;;50436-0109-04
 ;;9002226.02101,"619,50436-0156-01 ",.01)
 ;;50436-0156-01
 ;;9002226.02101,"619,50436-0156-01 ",.02)
 ;;50436-0156-01
 ;;9002226.02101,"619,50436-0156-02 ",.01)
 ;;50436-0156-02
 ;;9002226.02101,"619,50436-0156-02 ",.02)
 ;;50436-0156-02
 ;;9002226.02101,"619,50436-0158-01 ",.01)
 ;;50436-0158-01
 ;;9002226.02101,"619,50436-0158-01 ",.02)
 ;;50436-0158-01
 ;;9002226.02101,"619,50436-0160-01 ",.01)
 ;;50436-0160-01
 ;;9002226.02101,"619,50436-0160-01 ",.02)
 ;;50436-0160-01
 ;;9002226.02101,"619,50436-0160-02 ",.01)
 ;;50436-0160-02
 ;;9002226.02101,"619,50436-0160-02 ",.02)
 ;;50436-0160-02
 ;;9002226.02101,"619,50436-0160-04 ",.01)
 ;;50436-0160-04
 ;;9002226.02101,"619,50436-0160-04 ",.02)
 ;;50436-0160-04
 ;;9002226.02101,"619,50436-0377-01 ",.01)
 ;;50436-0377-01
 ;;9002226.02101,"619,50436-0377-01 ",.02)
 ;;50436-0377-01
 ;;9002226.02101,"619,50436-0377-02 ",.01)
 ;;50436-0377-02
 ;;9002226.02101,"619,50436-0377-02 ",.02)
 ;;50436-0377-02
 ;;9002226.02101,"619,50436-0377-03 ",.01)
 ;;50436-0377-03
 ;;9002226.02101,"619,50436-0377-03 ",.02)
 ;;50436-0377-03
 ;;9002226.02101,"619,50436-0377-04 ",.01)
 ;;50436-0377-04
 ;;9002226.02101,"619,50436-0377-04 ",.02)
 ;;50436-0377-04
 ;;9002226.02101,"619,50436-0377-05 ",.01)
 ;;50436-0377-05
 ;;9002226.02101,"619,50436-0377-05 ",.02)
 ;;50436-0377-05
 ;;9002226.02101,"619,50436-0377-06 ",.01)
 ;;50436-0377-06
 ;;9002226.02101,"619,50436-0377-06 ",.02)
 ;;50436-0377-06
 ;;9002226.02101,"619,50436-0377-07 ",.01)
 ;;50436-0377-07
 ;;9002226.02101,"619,50436-0377-07 ",.02)
 ;;50436-0377-07
 ;;9002226.02101,"619,50436-0821-01 ",.01)
 ;;50436-0821-01
 ;;9002226.02101,"619,50436-0821-01 ",.02)
 ;;50436-0821-01
 ;;9002226.02101,"619,50436-0821-02 ",.01)
 ;;50436-0821-02
 ;;9002226.02101,"619,50436-0821-02 ",.02)
 ;;50436-0821-02
 ;;9002226.02101,"619,50436-0821-03 ",.01)
 ;;50436-0821-03
 ;;9002226.02101,"619,50436-0821-03 ",.02)
 ;;50436-0821-03
 ;;9002226.02101,"619,50436-0822-01 ",.01)
 ;;50436-0822-01
 ;;9002226.02101,"619,50436-0822-01 ",.02)
 ;;50436-0822-01
 ;;9002226.02101,"619,50436-0822-02 ",.01)
 ;;50436-0822-02
 ;;9002226.02101,"619,50436-0822-02 ",.02)
 ;;50436-0822-02
 ;;9002226.02101,"619,50436-0822-03 ",.01)
 ;;50436-0822-03
 ;;9002226.02101,"619,50436-0822-03 ",.02)
 ;;50436-0822-03
 ;;9002226.02101,"619,50436-0823-01 ",.01)
 ;;50436-0823-01
 ;;9002226.02101,"619,50436-0823-01 ",.02)
 ;;50436-0823-01
 ;;9002226.02101,"619,50436-0824-01 ",.01)
 ;;50436-0824-01
 ;;9002226.02101,"619,50436-0824-01 ",.02)
 ;;50436-0824-01
 ;;9002226.02101,"619,50436-2605-01 ",.01)
 ;;50436-2605-01
 ;;9002226.02101,"619,50436-2605-01 ",.02)
 ;;50436-2605-01
 ;;9002226.02101,"619,50436-2605-02 ",.01)
 ;;50436-2605-02
 ;;9002226.02101,"619,50436-2605-02 ",.02)
 ;;50436-2605-02
 ;;9002226.02101,"619,50436-2605-04 ",.01)
 ;;50436-2605-04
 ;;9002226.02101,"619,50436-2605-04 ",.02)
 ;;50436-2605-04
 ;;9002226.02101,"619,50436-2612-01 ",.01)
 ;;50436-2612-01
 ;;9002226.02101,"619,50436-2612-01 ",.02)
 ;;50436-2612-01
 ;;9002226.02101,"619,50436-2612-02 ",.01)
 ;;50436-2612-02
 ;;9002226.02101,"619,50436-2612-02 ",.02)
 ;;50436-2612-02
 ;;9002226.02101,"619,50436-2612-04 ",.01)
 ;;50436-2612-04
 ;;9002226.02101,"619,50436-2612-04 ",.02)
 ;;50436-2612-04
 ;;9002226.02101,"619,50436-2982-01 ",.01)
 ;;50436-2982-01
 ;;9002226.02101,"619,50436-2982-01 ",.02)
 ;;50436-2982-01
 ;;9002226.02101,"619,50436-2982-02 ",.01)
 ;;50436-2982-02
 ;;9002226.02101,"619,50436-2982-02 ",.02)
 ;;50436-2982-02
 ;;9002226.02101,"619,50436-2983-01 ",.01)
 ;;50436-2983-01
 ;;9002226.02101,"619,50436-2983-01 ",.02)
 ;;50436-2983-01
 ;;9002226.02101,"619,50436-2983-02 ",.01)
 ;;50436-2983-02
 ;;9002226.02101,"619,50436-2983-02 ",.02)
 ;;50436-2983-02
 ;;9002226.02101,"619,50436-3171-01 ",.01)
 ;;50436-3171-01
 ;;9002226.02101,"619,50436-3171-01 ",.02)
 ;;50436-3171-01
 ;;9002226.02101,"619,50436-3171-02 ",.01)
 ;;50436-3171-02
 ;;9002226.02101,"619,50436-3171-02 ",.02)
 ;;50436-3171-02
 ;;9002226.02101,"619,50436-3171-04 ",.01)
 ;;50436-3171-04
 ;;9002226.02101,"619,50436-3171-04 ",.02)
 ;;50436-3171-04
 ;;9002226.02101,"619,50436-3171-05 ",.01)
 ;;50436-3171-05
 ;;9002226.02101,"619,50436-3171-05 ",.02)
 ;;50436-3171-05
 ;;9002226.02101,"619,50436-3182-01 ",.01)
 ;;50436-3182-01
 ;;9002226.02101,"619,50436-3182-01 ",.02)
 ;;50436-3182-01
 ;;9002226.02101,"619,50436-3227-07 ",.01)
 ;;50436-3227-07
 ;;9002226.02101,"619,50436-3227-07 ",.02)
 ;;50436-3227-07
 ;;9002226.02101,"619,50436-3912-01 ",.01)
 ;;50436-3912-01
 ;;9002226.02101,"619,50436-3912-01 ",.02)
 ;;50436-3912-01
 ;;9002226.02101,"619,50436-3912-02 ",.01)
 ;;50436-3912-02
 ;;9002226.02101,"619,50436-3912-02 ",.02)
 ;;50436-3912-02
 ;;9002226.02101,"619,50436-3912-03 ",.01)
 ;;50436-3912-03
 ;;9002226.02101,"619,50436-3912-03 ",.02)
 ;;50436-3912-03
 ;;9002226.02101,"619,50436-3912-04 ",.01)
 ;;50436-3912-04
 ;;9002226.02101,"619,50436-3912-04 ",.02)
 ;;50436-3912-04
 ;;9002226.02101,"619,50436-3913-01 ",.01)
 ;;50436-3913-01
 ;;9002226.02101,"619,50436-3913-01 ",.02)
 ;;50436-3913-01
 ;;9002226.02101,"619,50436-3913-02 ",.01)
 ;;50436-3913-02
 ;;9002226.02101,"619,50436-3913-02 ",.02)
 ;;50436-3913-02
 ;;9002226.02101,"619,50436-3913-03 ",.01)
 ;;50436-3913-03
 ;;9002226.02101,"619,50436-3913-03 ",.02)
 ;;50436-3913-03
 ;;9002226.02101,"619,50436-3914-01 ",.01)
 ;;50436-3914-01
 ;;9002226.02101,"619,50436-3914-01 ",.02)
 ;;50436-3914-01
 ;;9002226.02101,"619,50436-3915-01 ",.01)
 ;;50436-3915-01
 ;;9002226.02101,"619,50436-3915-01 ",.02)
 ;;50436-3915-01
 ;;9002226.02101,"619,50436-3918-01 ",.01)
 ;;50436-3918-01
 ;;9002226.02101,"619,50436-3918-01 ",.02)
 ;;50436-3918-01
 ;;9002226.02101,"619,50436-3918-02 ",.01)
 ;;50436-3918-02
 ;;9002226.02101,"619,50436-3918-02 ",.02)
 ;;50436-3918-02
 ;;9002226.02101,"619,50436-3918-05 ",.01)
 ;;50436-3918-05
 ;;9002226.02101,"619,50436-3918-05 ",.02)
 ;;50436-3918-05
 ;;9002226.02101,"619,50436-4165-01 ",.01)
 ;;50436-4165-01
 ;;9002226.02101,"619,50436-4165-01 ",.02)
 ;;50436-4165-01
 ;;9002226.02101,"619,50436-4165-02 ",.01)
 ;;50436-4165-02
 ;;9002226.02101,"619,50436-4165-02 ",.02)
 ;;50436-4165-02
 ;;9002226.02101,"619,50436-4165-03 ",.01)
 ;;50436-4165-03
 ;;9002226.02101,"619,50436-4165-03 ",.02)
 ;;50436-4165-03
 ;;9002226.02101,"619,50436-4166-01 ",.01)
 ;;50436-4166-01
 ;;9002226.02101,"619,50436-4166-01 ",.02)
 ;;50436-4166-01
 ;;9002226.02101,"619,50436-4166-02 ",.01)
 ;;50436-4166-02
 ;;9002226.02101,"619,50436-4166-02 ",.02)
 ;;50436-4166-02
 ;;9002226.02101,"619,50436-4166-03 ",.01)
 ;;50436-4166-03
 ;;9002226.02101,"619,50436-4166-03 ",.02)
 ;;50436-4166-03
 ;;9002226.02101,"619,50436-6291-01 ",.01)
 ;;50436-6291-01
 ;;9002226.02101,"619,50436-6291-01 ",.02)
 ;;50436-6291-01
 ;;9002226.02101,"619,50436-8787-00 ",.01)
 ;;50436-8787-00
 ;;9002226.02101,"619,50436-8787-00 ",.02)
 ;;50436-8787-00
 ;;9002226.02101,"619,50436-8787-01 ",.01)
 ;;50436-8787-01
 ;;9002226.02101,"619,50436-8787-01 ",.02)
 ;;50436-8787-01
 ;;9002226.02101,"619,50436-8787-02 ",.01)
 ;;50436-8787-02