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