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

BGP82Z73.m

Go to the documentation of this file.
  1. BGP82Z73 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"619,66336-0106-94 ",.02)
  1. ;;66336-0106-94
  1. ;;9002226.02101,"619,66336-0115-14 ",.01)
  1. ;;66336-0115-14
  1. ;;9002226.02101,"619,66336-0115-14 ",.02)
  1. ;;66336-0115-14
  1. ;;9002226.02101,"619,66336-0115-15 ",.01)
  1. ;;66336-0115-15
  1. ;;9002226.02101,"619,66336-0115-15 ",.02)
  1. ;;66336-0115-15
  1. ;;9002226.02101,"619,66336-0115-30 ",.01)
  1. ;;66336-0115-30
  1. ;;9002226.02101,"619,66336-0115-30 ",.02)
  1. ;;66336-0115-30
  1. ;;9002226.02101,"619,66336-0115-60 ",.01)
  1. ;;66336-0115-60
  1. ;;9002226.02101,"619,66336-0115-60 ",.02)
  1. ;;66336-0115-60
  1. ;;9002226.02101,"619,66336-0115-90 ",.01)
  1. ;;66336-0115-90
  1. ;;9002226.02101,"619,66336-0115-90 ",.02)
  1. ;;66336-0115-90
  1. ;;9002226.02101,"619,66336-0115-94 ",.01)
  1. ;;66336-0115-94
  1. ;;9002226.02101,"619,66336-0115-94 ",.02)
  1. ;;66336-0115-94
  1. ;;9002226.02101,"619,66336-0135-94 ",.01)
  1. ;;66336-0135-94
  1. ;;9002226.02101,"619,66336-0135-94 ",.02)
  1. ;;66336-0135-94
  1. ;;9002226.02101,"619,66336-0147-24 ",.01)
  1. ;;66336-0147-24
  1. ;;9002226.02101,"619,66336-0147-24 ",.02)
  1. ;;66336-0147-24
  1. ;;9002226.02101,"619,66336-0147-30 ",.01)
  1. ;;66336-0147-30
  1. ;;9002226.02101,"619,66336-0147-30 ",.02)
  1. ;;66336-0147-30
  1. ;;9002226.02101,"619,66336-0147-55 ",.01)
  1. ;;66336-0147-55
  1. ;;9002226.02101,"619,66336-0147-55 ",.02)
  1. ;;66336-0147-55
  1. ;;9002226.02101,"619,66336-0147-60 ",.01)
  1. ;;66336-0147-60
  1. ;;9002226.02101,"619,66336-0147-60 ",.02)
  1. ;;66336-0147-60
  1. ;;9002226.02101,"619,66336-0147-90 ",.01)
  1. ;;66336-0147-90
  1. ;;9002226.02101,"619,66336-0147-90 ",.02)
  1. ;;66336-0147-90
  1. ;;9002226.02101,"619,66336-0147-94 ",.01)
  1. ;;66336-0147-94
  1. ;;9002226.02101,"619,66336-0147-94 ",.02)
  1. ;;66336-0147-94
  1. ;;9002226.02101,"619,66336-0406-15 ",.01)
  1. ;;66336-0406-15
  1. ;;9002226.02101,"619,66336-0406-15 ",.02)
  1. ;;66336-0406-15
  1. ;;9002226.02101,"619,66336-0406-20 ",.01)
  1. ;;66336-0406-20
  1. ;;9002226.02101,"619,66336-0406-20 ",.02)
  1. ;;66336-0406-20
  1. ;;9002226.02101,"619,66336-0406-21 ",.01)
  1. ;;66336-0406-21
  1. ;;9002226.02101,"619,66336-0406-21 ",.02)
  1. ;;66336-0406-21
  1. ;;9002226.02101,"619,66336-0406-30 ",.01)
  1. ;;66336-0406-30
  1. ;;9002226.02101,"619,66336-0406-30 ",.02)
  1. ;;66336-0406-30
  1. ;;9002226.02101,"619,66336-0406-48 ",.01)
  1. ;;66336-0406-48
  1. ;;9002226.02101,"619,66336-0406-48 ",.02)
  1. ;;66336-0406-48
  1. ;;9002226.02101,"619,66336-0406-60 ",.01)
  1. ;;66336-0406-60
  1. ;;9002226.02101,"619,66336-0406-60 ",.02)
  1. ;;66336-0406-60
  1. ;;9002226.02101,"619,66336-0406-90 ",.01)
  1. ;;66336-0406-90
  1. ;;9002226.02101,"619,66336-0406-90 ",.02)
  1. ;;66336-0406-90
  1. ;;9002226.02101,"619,66336-0406-94 ",.01)
  1. ;;66336-0406-94
  1. ;;9002226.02101,"619,66336-0406-94 ",.02)
  1. ;;66336-0406-94
  1. ;;9002226.02101,"619,66336-0408-15 ",.01)
  1. ;;66336-0408-15
  1. ;;9002226.02101,"619,66336-0408-15 ",.02)
  1. ;;66336-0408-15
  1. ;;9002226.02101,"619,66336-0408-20 ",.01)
  1. ;;66336-0408-20
  1. ;;9002226.02101,"619,66336-0408-20 ",.02)
  1. ;;66336-0408-20
  1. ;;9002226.02101,"619,66336-0408-28 ",.01)
  1. ;;66336-0408-28
  1. ;;9002226.02101,"619,66336-0408-28 ",.02)
  1. ;;66336-0408-28
  1. ;;9002226.02101,"619,66336-0408-30 ",.01)
  1. ;;66336-0408-30
  1. ;;9002226.02101,"619,66336-0408-30 ",.02)
  1. ;;66336-0408-30
  1. ;;9002226.02101,"619,66336-0408-32 ",.01)
  1. ;;66336-0408-32
  1. ;;9002226.02101,"619,66336-0408-32 ",.02)
  1. ;;66336-0408-32
  1. ;;9002226.02101,"619,66336-0408-40 ",.01)
  1. ;;66336-0408-40
  1. ;;9002226.02101,"619,66336-0408-40 ",.02)
  1. ;;66336-0408-40
  1. ;;9002226.02101,"619,66336-0408-55 ",.01)
  1. ;;66336-0408-55
  1. ;;9002226.02101,"619,66336-0408-55 ",.02)
  1. ;;66336-0408-55
  1. ;;9002226.02101,"619,66336-0408-60 ",.01)
  1. ;;66336-0408-60
  1. ;;9002226.02101,"619,66336-0408-60 ",.02)
  1. ;;66336-0408-60
  1. ;;9002226.02101,"619,66336-0408-62 ",.01)
  1. ;;66336-0408-62
  1. ;;9002226.02101,"619,66336-0408-62 ",.02)
  1. ;;66336-0408-62
  1. ;;9002226.02101,"619,66336-0408-90 ",.01)
  1. ;;66336-0408-90
  1. ;;9002226.02101,"619,66336-0408-90 ",.02)
  1. ;;66336-0408-90
  1. ;;9002226.02101,"619,66336-0408-94 ",.01)
  1. ;;66336-0408-94
  1. ;;9002226.02101,"619,66336-0408-94 ",.02)
  1. ;;66336-0408-94
  1. ;;9002226.02101,"619,66336-0408-97 ",.01)
  1. ;;66336-0408-97
  1. ;;9002226.02101,"619,66336-0408-97 ",.02)
  1. ;;66336-0408-97
  1. ;;9002226.02101,"619,66336-0442-06 ",.01)
  1. ;;66336-0442-06
  1. ;;9002226.02101,"619,66336-0442-06 ",.02)
  1. ;;66336-0442-06
  1. ;;9002226.02101,"619,66336-0442-10 ",.01)
  1. ;;66336-0442-10
  1. ;;9002226.02101,"619,66336-0442-10 ",.02)
  1. ;;66336-0442-10
  1. ;;9002226.02101,"619,66336-0442-12 ",.01)
  1. ;;66336-0442-12
  1. ;;9002226.02101,"619,66336-0442-12 ",.02)
  1. ;;66336-0442-12
  1. ;;9002226.02101,"619,66336-0442-15 ",.01)
  1. ;;66336-0442-15
  1. ;;9002226.02101,"619,66336-0442-15 ",.02)
  1. ;;66336-0442-15
  1. ;;9002226.02101,"619,66336-0442-16 ",.01)
  1. ;;66336-0442-16
  1. ;;9002226.02101,"619,66336-0442-16 ",.02)
  1. ;;66336-0442-16
  1. ;;9002226.02101,"619,66336-0442-20 ",.01)
  1. ;;66336-0442-20
  1. ;;9002226.02101,"619,66336-0442-20 ",.02)
  1. ;;66336-0442-20
  1. ;;9002226.02101,"619,66336-0442-24 ",.01)
  1. ;;66336-0442-24
  1. ;;9002226.02101,"619,66336-0442-24 ",.02)
  1. ;;66336-0442-24
  1. ;;9002226.02101,"619,66336-0442-30 ",.01)
  1. ;;66336-0442-30
  1. ;;9002226.02101,"619,66336-0442-30 ",.02)
  1. ;;66336-0442-30
  1. ;;9002226.02101,"619,66336-0442-40 ",.01)
  1. ;;66336-0442-40
  1. ;;9002226.02101,"619,66336-0442-40 ",.02)
  1. ;;66336-0442-40
  1. ;;9002226.02101,"619,66336-0442-45 ",.01)
  1. ;;66336-0442-45
  1. ;;9002226.02101,"619,66336-0442-45 ",.02)
  1. ;;66336-0442-45
  1. ;;9002226.02101,"619,66336-0442-60 ",.01)
  1. ;;66336-0442-60
  1. ;;9002226.02101,"619,66336-0442-60 ",.02)
  1. ;;66336-0442-60
  1. ;;9002226.02101,"619,66336-0442-90 ",.01)
  1. ;;66336-0442-90
  1. ;;9002226.02101,"619,66336-0442-90 ",.02)
  1. ;;66336-0442-90
  1. ;;9002226.02101,"619,66336-0442-94 ",.01)
  1. ;;66336-0442-94
  1. ;;9002226.02101,"619,66336-0442-94 ",.02)
  1. ;;66336-0442-94
  1. ;;9002226.02101,"619,66336-0444-12 ",.01)
  1. ;;66336-0444-12
  1. ;;9002226.02101,"619,66336-0444-12 ",.02)
  1. ;;66336-0444-12
  1. ;;9002226.02101,"619,66336-0444-20 ",.01)
  1. ;;66336-0444-20
  1. ;;9002226.02101,"619,66336-0444-20 ",.02)
  1. ;;66336-0444-20
  1. ;;9002226.02101,"619,66336-0444-21 ",.01)
  1. ;;66336-0444-21
  1. ;;9002226.02101,"619,66336-0444-21 ",.02)
  1. ;;66336-0444-21
  1. ;;9002226.02101,"619,66336-0444-30 ",.01)
  1. ;;66336-0444-30
  1. ;;9002226.02101,"619,66336-0444-30 ",.02)
  1. ;;66336-0444-30
  1. ;;9002226.02101,"619,66336-0444-55 ",.01)
  1. ;;66336-0444-55
  1. ;;9002226.02101,"619,66336-0444-55 ",.02)
  1. ;;66336-0444-55
  1. ;;9002226.02101,"619,66336-0444-58 ",.01)
  1. ;;66336-0444-58
  1. ;;9002226.02101,"619,66336-0444-58 ",.02)
  1. ;;66336-0444-58
  1. ;;9002226.02101,"619,66336-0444-60 ",.01)
  1. ;;66336-0444-60
  1. ;;9002226.02101,"619,66336-0444-60 ",.02)
  1. ;;66336-0444-60
  1. ;;9002226.02101,"619,66336-0444-62 ",.01)
  1. ;;66336-0444-62
  1. ;;9002226.02101,"619,66336-0444-62 ",.02)
  1. ;;66336-0444-62
  1. ;;9002226.02101,"619,66336-0444-90 ",.01)
  1. ;;66336-0444-90
  1. ;;9002226.02101,"619,66336-0444-90 ",.02)
  1. ;;66336-0444-90
  1. ;;9002226.02101,"619,66336-0444-94 ",.01)
  1. ;;66336-0444-94
  1. ;;9002226.02101,"619,66336-0444-94 ",.02)
  1. ;;66336-0444-94
  1. ;;9002226.02101,"619,66336-0470-62 ",.01)
  1. ;;66336-0470-62
  1. ;;9002226.02101,"619,66336-0470-62 ",.02)
  1. ;;66336-0470-62
  1. ;;9002226.02101,"619,66336-0470-94 ",.01)
  1. ;;66336-0470-94
  1. ;;9002226.02101,"619,66336-0470-94 ",.02)
  1. ;;66336-0470-94
  1. ;;9002226.02101,"619,66336-0502-30 ",.01)
  1. ;;66336-0502-30
  1. ;;9002226.02101,"619,66336-0502-30 ",.02)
  1. ;;66336-0502-30
  1. ;;9002226.02101,"619,66336-0502-60 ",.01)
  1. ;;66336-0502-60
  1. ;;9002226.02101,"619,66336-0502-60 ",.02)
  1. ;;66336-0502-60
  1. ;;9002226.02101,"619,66336-0502-90 ",.01)
  1. ;;66336-0502-90
  1. ;;9002226.02101,"619,66336-0502-90 ",.02)
  1. ;;66336-0502-90
  1. ;;9002226.02101,"619,66336-0670-06 ",.01)
  1. ;;66336-0670-06
  1. ;;9002226.02101,"619,66336-0670-06 ",.02)
  1. ;;66336-0670-06
  1. ;;9002226.02101,"619,66336-0670-10 ",.01)
  1. ;;66336-0670-10
  1. ;;9002226.02101,"619,66336-0670-10 ",.02)
  1. ;;66336-0670-10
  1. ;;9002226.02101,"619,66336-0670-12 ",.01)
  1. ;;66336-0670-12
  1. ;;9002226.02101,"619,66336-0670-12 ",.02)
  1. ;;66336-0670-12
  1. ;;9002226.02101,"619,66336-0670-20 ",.01)
  1. ;;66336-0670-20
  1. ;;9002226.02101,"619,66336-0670-20 ",.02)
  1. ;;66336-0670-20
  1. ;;9002226.02101,"619,66336-0670-24 ",.01)
  1. ;;66336-0670-24
  1. ;;9002226.02101,"619,66336-0670-24 ",.02)
  1. ;;66336-0670-24
  1. ;;9002226.02101,"619,66336-0670-30 ",.01)
  1. ;;66336-0670-30
  1. ;;9002226.02101,"619,66336-0670-30 ",.02)
  1. ;;66336-0670-30
  1. ;;9002226.02101,"619,66336-0670-40 ",.01)
  1. ;;66336-0670-40
  1. ;;9002226.02101,"619,66336-0670-40 ",.02)
  1. ;;66336-0670-40
  1. ;;9002226.02101,"619,66336-0670-60 ",.01)
  1. ;;66336-0670-60
  1. ;;9002226.02101,"619,66336-0670-60 ",.02)
  1. ;;66336-0670-60
  1. ;;9002226.02101,"619,66336-0670-90 ",.01)
  1. ;;66336-0670-90
  1. ;;9002226.02101,"619,66336-0670-90 ",.02)
  1. ;;66336-0670-90
  1. ;;9002226.02101,"619,66336-0670-94 ",.01)
  1. ;;66336-0670-94
  1. ;;9002226.02101,"619,66336-0670-94 ",.02)
  1. ;;66336-0670-94
  1. ;;9002226.02101,"619,66336-0748-20 ",.01)
  1. ;;66336-0748-20
  1. ;;9002226.02101,"619,66336-0748-20 ",.02)
  1. ;;66336-0748-20
  1. ;;9002226.02101,"619,66336-0748-30 ",.01)
  1. ;;66336-0748-30
  1. ;;9002226.02101,"619,66336-0748-30 ",.02)
  1. ;;66336-0748-30
  1. ;;9002226.02101,"619,66336-0748-90 ",.01)
  1. ;;66336-0748-90
  1. ;;9002226.02101,"619,66336-0748-90 ",.02)
  1. ;;66336-0748-90
  1. ;;9002226.02101,"619,66336-0748-94 ",.01)
  1. ;;66336-0748-94
  1. ;;9002226.02101,"619,66336-0748-94 ",.02)
  1. ;;66336-0748-94
  1. ;;9002226.02101,"619,66336-0871-15 ",.01)
  1. ;;66336-0871-15
  1. ;;9002226.02101,"619,66336-0871-15 ",.02)
  1. ;;66336-0871-15
  1. ;;9002226.02101,"619,66336-0915-60 ",.01)
  1. ;;66336-0915-60
  1. ;;9002226.02101,"619,66336-0915-60 ",.02)
  1. ;;66336-0915-60
  1. ;;9002226.02101,"619,66336-0915-62 ",.01)
  1. ;;66336-0915-62
  1. ;;9002226.02101,"619,66336-0915-62 ",.02)
  1. ;;66336-0915-62
  1. ;;9002226.02101,"619,66479-0582-10 ",.01)
  1. ;;66479-0582-10
  1. ;;9002226.02101,"619,66479-0582-10 ",.02)
  1. ;;66479-0582-10
  1. ;;9002226.02101,"619,66594-0122-01 ",.01)
  1. ;;66594-0122-01
  1. ;;9002226.02101,"619,66594-0122-01 ",.02)
  1. ;;66594-0122-01
  1. ;;9002226.02101,"619,66689-0023-01 ",.01)
  1. ;;66689-0023-01
  1. ;;9002226.02101,"619,66689-0023-01 ",.02)
  1. ;;66689-0023-01
  1. ;;9002226.02101,"619,66689-0023-04 ",.01)
  1. ;;66689-0023-04
  1. ;;9002226.02101,"619,66689-0023-04 ",.02)
  1. ;;66689-0023-04
  1. ;;9002226.02101,"619,66689-0023-16 ",.01)
  1. ;;66689-0023-16
  1. ;;9002226.02101,"619,66689-0023-16 ",.02)
  1. ;;66689-0023-16
  1. ;;9002226.02101,"619,66689-0023-50 ",.01)
  1. ;;66689-0023-50
  1. ;;9002226.02101,"619,66689-0023-50 ",.02)
  1. ;;66689-0023-50
  1. ;;9002226.02101,"619,66689-0025-30 ",.01)
  1. ;;66689-0025-30
  1. ;;9002226.02101,"619,66689-0025-30 ",.02)
  1. ;;66689-0025-30
  1. ;;9002226.02101,"619,66689-0032-01 ",.01)
  1. ;;66689-0032-01
  1. ;;9002226.02101,"619,66689-0032-01 ",.02)
  1. ;;66689-0032-01
  1. ;;9002226.02101,"619,66689-0032-04 ",.01)
  1. ;;66689-0032-04
  1. ;;9002226.02101,"619,66689-0032-04 ",.02)
  1. ;;66689-0032-04
  1. ;;9002226.02101,"619,66689-0032-16 ",.01)
  1. ;;66689-0032-16
  1. ;;9002226.02101,"619,66689-0032-16 ",.02)
  1. ;;66689-0032-16
  1. ;;9002226.02101,"619,66689-0032-50 ",.01)
  1. ;;66689-0032-50
  1. ;;9002226.02101,"619,66689-0032-50 ",.02)
  1. ;;66689-0032-50
  1. ;;9002226.02101,"619,66689-0033-01 ",.01)
  1. ;;66689-0033-01
  1. ;;9002226.02101,"619,66689-0033-01 ",.02)
  1. ;;66689-0033-01
  1. ;;9002226.02101,"619,66689-0033-04 ",.01)
  1. ;;66689-0033-04
  1. ;;9002226.02101,"619,66689-0033-04 ",.02)
  1. ;;66689-0033-04
  1. ;;9002226.02101,"619,66689-0033-16 ",.01)
  1. ;;66689-0033-16
  1. ;;9002226.02101,"619,66689-0033-16 ",.02)
  1. ;;66689-0033-16
  1. ;;9002226.02101,"619,66689-0033-50 ",.01)
  1. ;;66689-0033-50
  1. ;;9002226.02101,"619,66689-0033-50 ",.02)
  1. ;;66689-0033-50
  1. ;;9002226.02101,"619,66689-0401-01 ",.01)
  1. ;;66689-0401-01
  1. ;;9002226.02101,"619,66689-0401-01 ",.02)
  1. ;;66689-0401-01
  1. ;;9002226.02101,"619,66689-0401-50 ",.01)
  1. ;;66689-0401-50
  1. ;;9002226.02101,"619,66689-0401-50 ",.02)
  1. ;;66689-0401-50
  1. ;;9002226.02101,"619,66689-0403-16 ",.01)
  1. ;;66689-0403-16