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

BGP82Z55.m

Go to the documentation of this file.
  1. BGP82Z55 ; 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,54868-4973-05 ",.02)
  1. ;;54868-4973-05
  1. ;;9002226.02101,"619,54868-4974-00 ",.01)
  1. ;;54868-4974-00
  1. ;;9002226.02101,"619,54868-4974-00 ",.02)
  1. ;;54868-4974-00
  1. ;;9002226.02101,"619,54868-4974-01 ",.01)
  1. ;;54868-4974-01
  1. ;;9002226.02101,"619,54868-4974-01 ",.02)
  1. ;;54868-4974-01
  1. ;;9002226.02101,"619,54868-4974-02 ",.01)
  1. ;;54868-4974-02
  1. ;;9002226.02101,"619,54868-4974-02 ",.02)
  1. ;;54868-4974-02
  1. ;;9002226.02101,"619,54868-4974-03 ",.01)
  1. ;;54868-4974-03
  1. ;;9002226.02101,"619,54868-4974-03 ",.02)
  1. ;;54868-4974-03
  1. ;;9002226.02101,"619,54868-4974-04 ",.01)
  1. ;;54868-4974-04
  1. ;;9002226.02101,"619,54868-4974-04 ",.02)
  1. ;;54868-4974-04
  1. ;;9002226.02101,"619,54868-4974-05 ",.01)
  1. ;;54868-4974-05
  1. ;;9002226.02101,"619,54868-4974-05 ",.02)
  1. ;;54868-4974-05
  1. ;;9002226.02101,"619,54868-4974-06 ",.01)
  1. ;;54868-4974-06
  1. ;;9002226.02101,"619,54868-4974-06 ",.02)
  1. ;;54868-4974-06
  1. ;;9002226.02101,"619,54868-4974-07 ",.01)
  1. ;;54868-4974-07
  1. ;;9002226.02101,"619,54868-4974-07 ",.02)
  1. ;;54868-4974-07
  1. ;;9002226.02101,"619,54868-4974-08 ",.01)
  1. ;;54868-4974-08
  1. ;;9002226.02101,"619,54868-4974-08 ",.02)
  1. ;;54868-4974-08
  1. ;;9002226.02101,"619,54868-4974-09 ",.01)
  1. ;;54868-4974-09
  1. ;;9002226.02101,"619,54868-4974-09 ",.02)
  1. ;;54868-4974-09
  1. ;;9002226.02101,"619,54868-4976-00 ",.01)
  1. ;;54868-4976-00
  1. ;;9002226.02101,"619,54868-4976-00 ",.02)
  1. ;;54868-4976-00
  1. ;;9002226.02101,"619,54868-4976-01 ",.01)
  1. ;;54868-4976-01
  1. ;;9002226.02101,"619,54868-4976-01 ",.02)
  1. ;;54868-4976-01
  1. ;;9002226.02101,"619,54868-4976-02 ",.01)
  1. ;;54868-4976-02
  1. ;;9002226.02101,"619,54868-4976-02 ",.02)
  1. ;;54868-4976-02
  1. ;;9002226.02101,"619,54868-4976-03 ",.01)
  1. ;;54868-4976-03
  1. ;;9002226.02101,"619,54868-4976-03 ",.02)
  1. ;;54868-4976-03
  1. ;;9002226.02101,"619,54868-4976-04 ",.01)
  1. ;;54868-4976-04
  1. ;;9002226.02101,"619,54868-4976-04 ",.02)
  1. ;;54868-4976-04
  1. ;;9002226.02101,"619,54868-4976-05 ",.01)
  1. ;;54868-4976-05
  1. ;;9002226.02101,"619,54868-4976-05 ",.02)
  1. ;;54868-4976-05
  1. ;;9002226.02101,"619,54868-4976-06 ",.01)
  1. ;;54868-4976-06
  1. ;;9002226.02101,"619,54868-4976-06 ",.02)
  1. ;;54868-4976-06
  1. ;;9002226.02101,"619,54868-4976-07 ",.01)
  1. ;;54868-4976-07
  1. ;;9002226.02101,"619,54868-4976-07 ",.02)
  1. ;;54868-4976-07
  1. ;;9002226.02101,"619,54868-4980-00 ",.01)
  1. ;;54868-4980-00
  1. ;;9002226.02101,"619,54868-4980-00 ",.02)
  1. ;;54868-4980-00
  1. ;;9002226.02101,"619,54868-4980-01 ",.01)
  1. ;;54868-4980-01
  1. ;;9002226.02101,"619,54868-4980-01 ",.02)
  1. ;;54868-4980-01
  1. ;;9002226.02101,"619,54868-4980-02 ",.01)
  1. ;;54868-4980-02
  1. ;;9002226.02101,"619,54868-4980-02 ",.02)
  1. ;;54868-4980-02
  1. ;;9002226.02101,"619,54868-4980-03 ",.01)
  1. ;;54868-4980-03
  1. ;;9002226.02101,"619,54868-4980-03 ",.02)
  1. ;;54868-4980-03
  1. ;;9002226.02101,"619,54868-4980-04 ",.01)
  1. ;;54868-4980-04
  1. ;;9002226.02101,"619,54868-4980-04 ",.02)
  1. ;;54868-4980-04
  1. ;;9002226.02101,"619,54868-4980-05 ",.01)
  1. ;;54868-4980-05
  1. ;;9002226.02101,"619,54868-4980-05 ",.02)
  1. ;;54868-4980-05
  1. ;;9002226.02101,"619,54868-4980-06 ",.01)
  1. ;;54868-4980-06
  1. ;;9002226.02101,"619,54868-4980-06 ",.02)
  1. ;;54868-4980-06
  1. ;;9002226.02101,"619,54868-4981-00 ",.01)
  1. ;;54868-4981-00
  1. ;;9002226.02101,"619,54868-4981-00 ",.02)
  1. ;;54868-4981-00
  1. ;;9002226.02101,"619,54868-4981-01 ",.01)
  1. ;;54868-4981-01
  1. ;;9002226.02101,"619,54868-4981-01 ",.02)
  1. ;;54868-4981-01
  1. ;;9002226.02101,"619,54868-4981-02 ",.01)
  1. ;;54868-4981-02
  1. ;;9002226.02101,"619,54868-4981-02 ",.02)
  1. ;;54868-4981-02
  1. ;;9002226.02101,"619,54868-4983-00 ",.01)
  1. ;;54868-4983-00
  1. ;;9002226.02101,"619,54868-4983-00 ",.02)
  1. ;;54868-4983-00
  1. ;;9002226.02101,"619,54868-4983-01 ",.01)
  1. ;;54868-4983-01
  1. ;;9002226.02101,"619,54868-4983-01 ",.02)
  1. ;;54868-4983-01
  1. ;;9002226.02101,"619,54868-4983-02 ",.01)
  1. ;;54868-4983-02
  1. ;;9002226.02101,"619,54868-4983-02 ",.02)
  1. ;;54868-4983-02
  1. ;;9002226.02101,"619,54868-4983-03 ",.01)
  1. ;;54868-4983-03
  1. ;;9002226.02101,"619,54868-4983-03 ",.02)
  1. ;;54868-4983-03
  1. ;;9002226.02101,"619,54868-4983-04 ",.01)
  1. ;;54868-4983-04
  1. ;;9002226.02101,"619,54868-4983-04 ",.02)
  1. ;;54868-4983-04
  1. ;;9002226.02101,"619,54868-4983-05 ",.01)
  1. ;;54868-4983-05
  1. ;;9002226.02101,"619,54868-4983-05 ",.02)
  1. ;;54868-4983-05
  1. ;;9002226.02101,"619,54868-4983-08 ",.01)
  1. ;;54868-4983-08
  1. ;;9002226.02101,"619,54868-4983-08 ",.02)
  1. ;;54868-4983-08
  1. ;;9002226.02101,"619,54868-4983-09 ",.01)
  1. ;;54868-4983-09
  1. ;;9002226.02101,"619,54868-4983-09 ",.02)
  1. ;;54868-4983-09
  1. ;;9002226.02101,"619,54868-5024-00 ",.01)
  1. ;;54868-5024-00
  1. ;;9002226.02101,"619,54868-5024-00 ",.02)
  1. ;;54868-5024-00
  1. ;;9002226.02101,"619,54868-5024-01 ",.01)
  1. ;;54868-5024-01
  1. ;;9002226.02101,"619,54868-5024-01 ",.02)
  1. ;;54868-5024-01
  1. ;;9002226.02101,"619,54868-5024-03 ",.01)
  1. ;;54868-5024-03
  1. ;;9002226.02101,"619,54868-5024-03 ",.02)
  1. ;;54868-5024-03
  1. ;;9002226.02101,"619,54868-5024-04 ",.01)
  1. ;;54868-5024-04
  1. ;;9002226.02101,"619,54868-5024-04 ",.02)
  1. ;;54868-5024-04
  1. ;;9002226.02101,"619,54868-5024-05 ",.01)
  1. ;;54868-5024-05
  1. ;;9002226.02101,"619,54868-5024-05 ",.02)
  1. ;;54868-5024-05
  1. ;;9002226.02101,"619,54868-5024-06 ",.01)
  1. ;;54868-5024-06
  1. ;;9002226.02101,"619,54868-5024-06 ",.02)
  1. ;;54868-5024-06
  1. ;;9002226.02101,"619,54868-5024-07 ",.01)
  1. ;;54868-5024-07
  1. ;;9002226.02101,"619,54868-5024-07 ",.02)
  1. ;;54868-5024-07
  1. ;;9002226.02101,"619,54868-5024-08 ",.01)
  1. ;;54868-5024-08
  1. ;;9002226.02101,"619,54868-5024-08 ",.02)
  1. ;;54868-5024-08
  1. ;;9002226.02101,"619,54868-5024-09 ",.01)
  1. ;;54868-5024-09
  1. ;;9002226.02101,"619,54868-5024-09 ",.02)
  1. ;;54868-5024-09
  1. ;;9002226.02101,"619,54868-5054-00 ",.01)
  1. ;;54868-5054-00
  1. ;;9002226.02101,"619,54868-5054-00 ",.02)
  1. ;;54868-5054-00
  1. ;;9002226.02101,"619,54868-5054-01 ",.01)
  1. ;;54868-5054-01
  1. ;;9002226.02101,"619,54868-5054-01 ",.02)
  1. ;;54868-5054-01
  1. ;;9002226.02101,"619,54868-5054-02 ",.01)
  1. ;;54868-5054-02
  1. ;;9002226.02101,"619,54868-5054-02 ",.02)
  1. ;;54868-5054-02
  1. ;;9002226.02101,"619,54868-5054-03 ",.01)
  1. ;;54868-5054-03
  1. ;;9002226.02101,"619,54868-5054-03 ",.02)
  1. ;;54868-5054-03
  1. ;;9002226.02101,"619,54868-5054-04 ",.01)
  1. ;;54868-5054-04
  1. ;;9002226.02101,"619,54868-5054-04 ",.02)
  1. ;;54868-5054-04
  1. ;;9002226.02101,"619,54868-5132-00 ",.01)
  1. ;;54868-5132-00
  1. ;;9002226.02101,"619,54868-5132-00 ",.02)
  1. ;;54868-5132-00
  1. ;;9002226.02101,"619,54868-5132-01 ",.01)
  1. ;;54868-5132-01
  1. ;;9002226.02101,"619,54868-5132-01 ",.02)
  1. ;;54868-5132-01
  1. ;;9002226.02101,"619,54868-5132-02 ",.01)
  1. ;;54868-5132-02
  1. ;;9002226.02101,"619,54868-5132-02 ",.02)
  1. ;;54868-5132-02
  1. ;;9002226.02101,"619,54868-5132-03 ",.01)
  1. ;;54868-5132-03
  1. ;;9002226.02101,"619,54868-5132-03 ",.02)
  1. ;;54868-5132-03
  1. ;;9002226.02101,"619,54868-5132-04 ",.01)
  1. ;;54868-5132-04
  1. ;;9002226.02101,"619,54868-5132-04 ",.02)
  1. ;;54868-5132-04
  1. ;;9002226.02101,"619,54868-5146-00 ",.01)
  1. ;;54868-5146-00
  1. ;;9002226.02101,"619,54868-5146-00 ",.02)
  1. ;;54868-5146-00
  1. ;;9002226.02101,"619,54868-5146-01 ",.01)
  1. ;;54868-5146-01
  1. ;;9002226.02101,"619,54868-5146-01 ",.02)
  1. ;;54868-5146-01
  1. ;;9002226.02101,"619,54868-5146-02 ",.01)
  1. ;;54868-5146-02
  1. ;;9002226.02101,"619,54868-5146-02 ",.02)
  1. ;;54868-5146-02
  1. ;;9002226.02101,"619,54868-5146-03 ",.01)
  1. ;;54868-5146-03
  1. ;;9002226.02101,"619,54868-5146-03 ",.02)
  1. ;;54868-5146-03
  1. ;;9002226.02101,"619,54868-5146-04 ",.01)
  1. ;;54868-5146-04
  1. ;;9002226.02101,"619,54868-5146-04 ",.02)
  1. ;;54868-5146-04
  1. ;;9002226.02101,"619,54868-5146-05 ",.01)
  1. ;;54868-5146-05
  1. ;;9002226.02101,"619,54868-5146-05 ",.02)
  1. ;;54868-5146-05
  1. ;;9002226.02101,"619,54868-5146-06 ",.01)
  1. ;;54868-5146-06
  1. ;;9002226.02101,"619,54868-5146-06 ",.02)
  1. ;;54868-5146-06
  1. ;;9002226.02101,"619,54868-5162-00 ",.01)
  1. ;;54868-5162-00
  1. ;;9002226.02101,"619,54868-5162-00 ",.02)
  1. ;;54868-5162-00
  1. ;;9002226.02101,"619,54868-5162-01 ",.01)
  1. ;;54868-5162-01
  1. ;;9002226.02101,"619,54868-5162-01 ",.02)
  1. ;;54868-5162-01
  1. ;;9002226.02101,"619,54868-5162-02 ",.01)
  1. ;;54868-5162-02
  1. ;;9002226.02101,"619,54868-5162-02 ",.02)
  1. ;;54868-5162-02
  1. ;;9002226.02101,"619,54868-5162-03 ",.01)
  1. ;;54868-5162-03
  1. ;;9002226.02101,"619,54868-5162-03 ",.02)
  1. ;;54868-5162-03
  1. ;;9002226.02101,"619,54868-5167-00 ",.01)
  1. ;;54868-5167-00
  1. ;;9002226.02101,"619,54868-5167-00 ",.02)
  1. ;;54868-5167-00
  1. ;;9002226.02101,"619,54868-5167-01 ",.01)
  1. ;;54868-5167-01
  1. ;;9002226.02101,"619,54868-5167-01 ",.02)
  1. ;;54868-5167-01
  1. ;;9002226.02101,"619,54868-5167-02 ",.01)
  1. ;;54868-5167-02
  1. ;;9002226.02101,"619,54868-5167-02 ",.02)
  1. ;;54868-5167-02
  1. ;;9002226.02101,"619,54868-5167-03 ",.01)
  1. ;;54868-5167-03
  1. ;;9002226.02101,"619,54868-5167-03 ",.02)
  1. ;;54868-5167-03
  1. ;;9002226.02101,"619,54868-5167-04 ",.01)
  1. ;;54868-5167-04
  1. ;;9002226.02101,"619,54868-5167-04 ",.02)
  1. ;;54868-5167-04
  1. ;;9002226.02101,"619,54868-5167-05 ",.01)
  1. ;;54868-5167-05
  1. ;;9002226.02101,"619,54868-5167-05 ",.02)
  1. ;;54868-5167-05
  1. ;;9002226.02101,"619,54868-5167-06 ",.01)
  1. ;;54868-5167-06
  1. ;;9002226.02101,"619,54868-5167-06 ",.02)
  1. ;;54868-5167-06
  1. ;;9002226.02101,"619,54868-5167-07 ",.01)
  1. ;;54868-5167-07
  1. ;;9002226.02101,"619,54868-5167-07 ",.02)
  1. ;;54868-5167-07
  1. ;;9002226.02101,"619,54868-5167-08 ",.01)
  1. ;;54868-5167-08
  1. ;;9002226.02101,"619,54868-5167-08 ",.02)
  1. ;;54868-5167-08
  1. ;;9002226.02101,"619,54868-5168-00 ",.01)
  1. ;;54868-5168-00
  1. ;;9002226.02101,"619,54868-5168-00 ",.02)
  1. ;;54868-5168-00
  1. ;;9002226.02101,"619,54868-5291-00 ",.01)
  1. ;;54868-5291-00
  1. ;;9002226.02101,"619,54868-5291-00 ",.02)
  1. ;;54868-5291-00
  1. ;;9002226.02101,"619,54868-5291-01 ",.01)
  1. ;;54868-5291-01
  1. ;;9002226.02101,"619,54868-5291-01 ",.02)
  1. ;;54868-5291-01
  1. ;;9002226.02101,"619,54868-5291-02 ",.01)
  1. ;;54868-5291-02
  1. ;;9002226.02101,"619,54868-5291-02 ",.02)
  1. ;;54868-5291-02
  1. ;;9002226.02101,"619,54868-5291-03 ",.01)
  1. ;;54868-5291-03
  1. ;;9002226.02101,"619,54868-5291-03 ",.02)
  1. ;;54868-5291-03
  1. ;;9002226.02101,"619,54868-5291-04 ",.01)
  1. ;;54868-5291-04
  1. ;;9002226.02101,"619,54868-5291-04 ",.02)
  1. ;;54868-5291-04
  1. ;;9002226.02101,"619,54868-5291-05 ",.01)
  1. ;;54868-5291-05
  1. ;;9002226.02101,"619,54868-5291-05 ",.02)
  1. ;;54868-5291-05
  1. ;;9002226.02101,"619,54868-5291-06 ",.01)
  1. ;;54868-5291-06
  1. ;;9002226.02101,"619,54868-5291-06 ",.02)
  1. ;;54868-5291-06
  1. ;;9002226.02101,"619,54868-5338-00 ",.01)
  1. ;;54868-5338-00
  1. ;;9002226.02101,"619,54868-5338-00 ",.02)
  1. ;;54868-5338-00
  1. ;;9002226.02101,"619,54868-5338-01 ",.01)
  1. ;;54868-5338-01
  1. ;;9002226.02101,"619,54868-5338-01 ",.02)
  1. ;;54868-5338-01
  1. ;;9002226.02101,"619,54868-5338-02 ",.01)
  1. ;;54868-5338-02
  1. ;;9002226.02101,"619,54868-5338-02 ",.02)
  1. ;;54868-5338-02
  1. ;;9002226.02101,"619,54868-5338-03 ",.01)
  1. ;;54868-5338-03
  1. ;;9002226.02101,"619,54868-5338-03 ",.02)
  1. ;;54868-5338-03
  1. ;;9002226.02101,"619,54868-5338-04 ",.01)
  1. ;;54868-5338-04
  1. ;;9002226.02101,"619,54868-5338-04 ",.02)
  1. ;;54868-5338-04
  1. ;;9002226.02101,"619,54868-5338-05 ",.01)
  1. ;;54868-5338-05
  1. ;;9002226.02101,"619,54868-5338-05 ",.02)
  1. ;;54868-5338-05
  1. ;;9002226.02101,"619,54868-5338-06 ",.01)
  1. ;;54868-5338-06
  1. ;;9002226.02101,"619,54868-5338-06 ",.02)
  1. ;;54868-5338-06
  1. ;;9002226.02101,"619,54868-5338-07 ",.01)
  1. ;;54868-5338-07
  1. ;;9002226.02101,"619,54868-5338-07 ",.02)
  1. ;;54868-5338-07
  1. ;;9002226.02101,"619,54868-5338-08 ",.01)
  1. ;;54868-5338-08
  1. ;;9002226.02101,"619,54868-5338-08 ",.02)
  1. ;;54868-5338-08
  1. ;;9002226.02101,"619,54868-5390-00 ",.01)
  1. ;;54868-5390-00
  1. ;;9002226.02101,"619,54868-5390-00 ",.02)
  1. ;;54868-5390-00
  1. ;;9002226.02101,"619,54868-5390-01 ",.01)
  1. ;;54868-5390-01
  1. ;;9002226.02101,"619,54868-5390-01 ",.02)
  1. ;;54868-5390-01
  1. ;;9002226.02101,"619,54868-5390-02 ",.01)
  1. ;;54868-5390-02
  1. ;;9002226.02101,"619,54868-5390-02 ",.02)
  1. ;;54868-5390-02
  1. ;;9002226.02101,"619,54868-5390-03 ",.01)
  1. ;;54868-5390-03