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

BGP62Y26.m

Go to the documentation of this file.
  1. BGP62Y26 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"868,00143-9720-01 ",.02)
  1. ;;00143-9720-01
  1. ;;9002226.02101,"868,00143-9720-24 ",.01)
  1. ;;00143-9720-24
  1. ;;9002226.02101,"868,00143-9720-24 ",.02)
  1. ;;00143-9720-24
  1. ;;9002226.02101,"868,00143-9721-01 ",.01)
  1. ;;00143-9721-01
  1. ;;9002226.02101,"868,00143-9721-01 ",.02)
  1. ;;00143-9721-01
  1. ;;9002226.02101,"868,00143-9721-24 ",.01)
  1. ;;00143-9721-24
  1. ;;9002226.02101,"868,00143-9721-24 ",.02)
  1. ;;00143-9721-24
  1. ;;9002226.02101,"868,00143-9722-01 ",.01)
  1. ;;00143-9722-01
  1. ;;9002226.02101,"868,00143-9722-01 ",.02)
  1. ;;00143-9722-01
  1. ;;9002226.02101,"868,00143-9722-24 ",.01)
  1. ;;00143-9722-24
  1. ;;9002226.02101,"868,00143-9722-24 ",.02)
  1. ;;00143-9722-24
  1. ;;9002226.02101,"868,00143-9803-05 ",.01)
  1. ;;00143-9803-05
  1. ;;9002226.02101,"868,00143-9803-05 ",.02)
  1. ;;00143-9803-05
  1. ;;9002226.02101,"868,00143-9803-50 ",.01)
  1. ;;00143-9803-50
  1. ;;9002226.02101,"868,00143-9803-50 ",.02)
  1. ;;00143-9803-50
  1. ;;9002226.02101,"868,00143-9853-16 ",.01)
  1. ;;00143-9853-16
  1. ;;9002226.02101,"868,00143-9853-16 ",.02)
  1. ;;00143-9853-16
  1. ;;9002226.02101,"868,00143-9853-24 ",.01)
  1. ;;00143-9853-24
  1. ;;9002226.02101,"868,00143-9853-24 ",.02)
  1. ;;00143-9853-24
  1. ;;9002226.02101,"868,00143-9853-75 ",.01)
  1. ;;00143-9853-75
  1. ;;9002226.02101,"868,00143-9853-75 ",.02)
  1. ;;00143-9853-75
  1. ;;9002226.02101,"868,00143-9856-25 ",.01)
  1. ;;00143-9856-25
  1. ;;9002226.02101,"868,00143-9856-25 ",.02)
  1. ;;00143-9856-25
  1. ;;9002226.02101,"868,00143-9857-25 ",.01)
  1. ;;00143-9857-25
  1. ;;9002226.02101,"868,00143-9857-25 ",.02)
  1. ;;00143-9857-25
  1. ;;9002226.02101,"868,00143-9858-25 ",.01)
  1. ;;00143-9858-25
  1. ;;9002226.02101,"868,00143-9858-25 ",.02)
  1. ;;00143-9858-25
  1. ;;9002226.02101,"868,00143-9859-01 ",.01)
  1. ;;00143-9859-01
  1. ;;9002226.02101,"868,00143-9859-01 ",.02)
  1. ;;00143-9859-01
  1. ;;9002226.02101,"868,00143-9859-25 ",.01)
  1. ;;00143-9859-25
  1. ;;9002226.02101,"868,00143-9859-25 ",.02)
  1. ;;00143-9859-25
  1. ;;9002226.02101,"868,00143-9886-01 ",.01)
  1. ;;00143-9886-01
  1. ;;9002226.02101,"868,00143-9886-01 ",.02)
  1. ;;00143-9886-01
  1. ;;9002226.02101,"868,00143-9886-50 ",.01)
  1. ;;00143-9886-50
  1. ;;9002226.02101,"868,00143-9886-50 ",.02)
  1. ;;00143-9886-50
  1. ;;9002226.02101,"868,00143-9886-75 ",.01)
  1. ;;00143-9886-75
  1. ;;9002226.02101,"868,00143-9886-75 ",.02)
  1. ;;00143-9886-75
  1. ;;9002226.02101,"868,00143-9887-01 ",.01)
  1. ;;00143-9887-01
  1. ;;9002226.02101,"868,00143-9887-01 ",.02)
  1. ;;00143-9887-01
  1. ;;9002226.02101,"868,00143-9887-50 ",.01)
  1. ;;00143-9887-50
  1. ;;9002226.02101,"868,00143-9887-50 ",.02)
  1. ;;00143-9887-50
  1. ;;9002226.02101,"868,00143-9887-75 ",.01)
  1. ;;00143-9887-75
  1. ;;9002226.02101,"868,00143-9887-75 ",.02)
  1. ;;00143-9887-75
  1. ;;9002226.02101,"868,00143-9888-01 ",.01)
  1. ;;00143-9888-01
  1. ;;9002226.02101,"868,00143-9888-01 ",.02)
  1. ;;00143-9888-01
  1. ;;9002226.02101,"868,00143-9888-15 ",.01)
  1. ;;00143-9888-15
  1. ;;9002226.02101,"868,00143-9888-15 ",.02)
  1. ;;00143-9888-15
  1. ;;9002226.02101,"868,00143-9888-80 ",.01)
  1. ;;00143-9888-80
  1. ;;9002226.02101,"868,00143-9888-80 ",.02)
  1. ;;00143-9888-80
  1. ;;9002226.02101,"868,00143-9889-01 ",.01)
  1. ;;00143-9889-01
  1. ;;9002226.02101,"868,00143-9889-01 ",.02)
  1. ;;00143-9889-01
  1. ;;9002226.02101,"868,00143-9889-15 ",.01)
  1. ;;00143-9889-15
  1. ;;9002226.02101,"868,00143-9889-15 ",.02)
  1. ;;00143-9889-15
  1. ;;9002226.02101,"868,00143-9889-80 ",.01)
  1. ;;00143-9889-80
  1. ;;9002226.02101,"868,00143-9889-80 ",.02)
  1. ;;00143-9889-80
  1. ;;9002226.02101,"868,00143-9897-01 ",.01)
  1. ;;00143-9897-01
  1. ;;9002226.02101,"868,00143-9897-01 ",.02)
  1. ;;00143-9897-01
  1. ;;9002226.02101,"868,00143-9897-05 ",.01)
  1. ;;00143-9897-05
  1. ;;9002226.02101,"868,00143-9897-05 ",.02)
  1. ;;00143-9897-05
  1. ;;9002226.02101,"868,00143-9898-01 ",.01)
  1. ;;00143-9898-01
  1. ;;9002226.02101,"868,00143-9898-01 ",.02)
  1. ;;00143-9898-01
  1. ;;9002226.02101,"868,00143-9898-05 ",.01)
  1. ;;00143-9898-05
  1. ;;9002226.02101,"868,00143-9898-05 ",.02)
  1. ;;00143-9898-05
  1. ;;9002226.02101,"868,00143-9923-90 ",.01)
  1. ;;00143-9923-90
  1. ;;9002226.02101,"868,00143-9923-90 ",.02)
  1. ;;00143-9923-90
  1. ;;9002226.02101,"868,00143-9924-90 ",.01)
  1. ;;00143-9924-90
  1. ;;9002226.02101,"868,00143-9924-90 ",.02)
  1. ;;00143-9924-90
  1. ;;9002226.02101,"868,00143-9927-01 ",.01)
  1. ;;00143-9927-01
  1. ;;9002226.02101,"868,00143-9927-01 ",.02)
  1. ;;00143-9927-01
  1. ;;9002226.02101,"868,00143-9928-01 ",.01)
  1. ;;00143-9928-01
  1. ;;9002226.02101,"868,00143-9928-01 ",.02)
  1. ;;00143-9928-01
  1. ;;9002226.02101,"868,00143-9929-50 ",.01)
  1. ;;00143-9929-50
  1. ;;9002226.02101,"868,00143-9929-50 ",.02)
  1. ;;00143-9929-50
  1. ;;9002226.02101,"868,00143-9938-01 ",.01)
  1. ;;00143-9938-01
  1. ;;9002226.02101,"868,00143-9938-01 ",.02)
  1. ;;00143-9938-01
  1. ;;9002226.02101,"868,00143-9938-05 ",.01)
  1. ;;00143-9938-05
  1. ;;9002226.02101,"868,00143-9938-05 ",.02)
  1. ;;00143-9938-05
  1. ;;9002226.02101,"868,00143-9939-01 ",.01)
  1. ;;00143-9939-01
  1. ;;9002226.02101,"868,00143-9939-01 ",.02)
  1. ;;00143-9939-01
  1. ;;9002226.02101,"868,00143-9939-05 ",.01)
  1. ;;00143-9939-05
  1. ;;9002226.02101,"868,00143-9939-05 ",.02)
  1. ;;00143-9939-05
  1. ;;9002226.02101,"868,00143-9947-01 ",.01)
  1. ;;00143-9947-01
  1. ;;9002226.02101,"868,00143-9947-01 ",.02)
  1. ;;00143-9947-01
  1. ;;9002226.02101,"868,00143-9947-50 ",.01)
  1. ;;00143-9947-50
  1. ;;9002226.02101,"868,00143-9947-50 ",.02)
  1. ;;00143-9947-50
  1. ;;9002226.02101,"868,00143-9948-50 ",.01)
  1. ;;00143-9948-50
  1. ;;9002226.02101,"868,00143-9948-50 ",.02)
  1. ;;00143-9948-50
  1. ;;9002226.02101,"868,00143-9951-01 ",.01)
  1. ;;00143-9951-01
  1. ;;9002226.02101,"868,00143-9951-01 ",.02)
  1. ;;00143-9951-01
  1. ;;9002226.02101,"868,00143-9951-20 ",.01)
  1. ;;00143-9951-20
  1. ;;9002226.02101,"868,00143-9951-20 ",.02)
  1. ;;00143-9951-20
  1. ;;9002226.02101,"868,00143-9976-03 ",.01)
  1. ;;00143-9976-03
  1. ;;9002226.02101,"868,00143-9976-03 ",.02)
  1. ;;00143-9976-03
  1. ;;9002226.02101,"868,00143-9976-91 ",.01)
  1. ;;00143-9976-91
  1. ;;9002226.02101,"868,00143-9976-91 ",.02)
  1. ;;00143-9976-91
  1. ;;9002226.02101,"868,00143-9977-22 ",.01)
  1. ;;00143-9977-22
  1. ;;9002226.02101,"868,00143-9977-22 ",.02)
  1. ;;00143-9977-22
  1. ;;9002226.02101,"868,00143-9979-22 ",.01)
  1. ;;00143-9979-22
  1. ;;9002226.02101,"868,00143-9979-22 ",.02)
  1. ;;00143-9979-22
  1. ;;9002226.02101,"868,00143-9981-01 ",.01)
  1. ;;00143-9981-01
  1. ;;9002226.02101,"868,00143-9981-01 ",.02)
  1. ;;00143-9981-01
  1. ;;9002226.02101,"868,00143-9981-50 ",.01)
  1. ;;00143-9981-50
  1. ;;9002226.02101,"868,00143-9981-50 ",.02)
  1. ;;00143-9981-50
  1. ;;9002226.02101,"868,00143-9981-75 ",.01)
  1. ;;00143-9981-75
  1. ;;9002226.02101,"868,00143-9981-75 ",.02)
  1. ;;00143-9981-75
  1. ;;9002226.02101,"868,00143-9982-01 ",.01)
  1. ;;00143-9982-01
  1. ;;9002226.02101,"868,00143-9982-01 ",.02)
  1. ;;00143-9982-01
  1. ;;9002226.02101,"868,00143-9982-50 ",.01)
  1. ;;00143-9982-50
  1. ;;9002226.02101,"868,00143-9982-50 ",.02)
  1. ;;00143-9982-50
  1. ;;9002226.02101,"868,00143-9982-75 ",.01)
  1. ;;00143-9982-75
  1. ;;9002226.02101,"868,00143-9982-75 ",.02)
  1. ;;00143-9982-75
  1. ;;9002226.02101,"868,00143-9983-03 ",.01)
  1. ;;00143-9983-03
  1. ;;9002226.02101,"868,00143-9983-03 ",.02)
  1. ;;00143-9983-03
  1. ;;9002226.02101,"868,00143-9983-91 ",.01)
  1. ;;00143-9983-91
  1. ;;9002226.02101,"868,00143-9983-91 ",.02)
  1. ;;00143-9983-91
  1. ;;9002226.02101,"868,00143-9985-01 ",.01)
  1. ;;00143-9985-01
  1. ;;9002226.02101,"868,00143-9985-01 ",.02)
  1. ;;00143-9985-01
  1. ;;9002226.02101,"868,00143-9986-01 ",.01)
  1. ;;00143-9986-01
  1. ;;9002226.02101,"868,00143-9986-01 ",.02)
  1. ;;00143-9986-01
  1. ;;9002226.02101,"868,00172-2407-00 ",.01)
  1. ;;00172-2407-00
  1. ;;9002226.02101,"868,00172-2407-00 ",.02)
  1. ;;00172-2407-00
  1. ;;9002226.02101,"868,00172-2407-10 ",.01)
  1. ;;00172-2407-10
  1. ;;9002226.02101,"868,00172-2407-10 ",.02)
  1. ;;00172-2407-10
  1. ;;9002226.02101,"868,00172-2407-60 ",.01)
  1. ;;00172-2407-60
  1. ;;9002226.02101,"868,00172-2407-60 ",.02)
  1. ;;00172-2407-60
  1. ;;9002226.02101,"868,00172-2407-80 ",.01)
  1. ;;00172-2407-80
  1. ;;9002226.02101,"868,00172-2407-80 ",.02)
  1. ;;00172-2407-80
  1. ;;9002226.02101,"868,00172-2416-00 ",.01)
  1. ;;00172-2416-00
  1. ;;9002226.02101,"868,00172-2416-00 ",.02)
  1. ;;00172-2416-00
  1. ;;9002226.02101,"868,00172-2416-10 ",.01)
  1. ;;00172-2416-10
  1. ;;9002226.02101,"868,00172-2416-10 ",.02)
  1. ;;00172-2416-10
  1. ;;9002226.02101,"868,00172-2416-60 ",.01)
  1. ;;00172-2416-60
  1. ;;9002226.02101,"868,00172-2416-60 ",.02)
  1. ;;00172-2416-60
  1. ;;9002226.02101,"868,00172-2416-80 ",.01)
  1. ;;00172-2416-80
  1. ;;9002226.02101,"868,00172-2416-80 ",.02)
  1. ;;00172-2416-80
  1. ;;9002226.02101,"868,00172-3626-10 ",.01)
  1. ;;00172-3626-10
  1. ;;9002226.02101,"868,00172-3626-10 ",.02)
  1. ;;00172-3626-10
  1. ;;9002226.02101,"868,00172-3626-48 ",.01)
  1. ;;00172-3626-48
  1. ;;9002226.02101,"868,00172-3626-48 ",.02)
  1. ;;00172-3626-48
  1. ;;9002226.02101,"868,00172-3626-70 ",.01)
  1. ;;00172-3626-70
  1. ;;9002226.02101,"868,00172-3626-70 ",.02)
  1. ;;00172-3626-70
  1. ;;9002226.02101,"868,00172-4058-48 ",.01)
  1. ;;00172-4058-48
  1. ;;9002226.02101,"868,00172-4058-48 ",.02)
  1. ;;00172-4058-48
  1. ;;9002226.02101,"868,00172-4058-60 ",.01)
  1. ;;00172-4058-60
  1. ;;9002226.02101,"868,00172-4058-60 ",.02)
  1. ;;00172-4058-60
  1. ;;9002226.02101,"868,00172-4626-60 ",.01)
  1. ;;00172-4626-60
  1. ;;9002226.02101,"868,00172-4626-60 ",.02)
  1. ;;00172-4626-60
  1. ;;9002226.02101,"868,00172-4626-70 ",.01)
  1. ;;00172-4626-70
  1. ;;9002226.02101,"868,00172-4626-70 ",.02)
  1. ;;00172-4626-70
  1. ;;9002226.02101,"868,00172-5311-00 ",.01)
  1. ;;00172-5311-00
  1. ;;9002226.02101,"868,00172-5311-00 ",.02)
  1. ;;00172-5311-00
  1. ;;9002226.02101,"868,00172-5311-10 ",.01)
  1. ;;00172-5311-10
  1. ;;9002226.02101,"868,00172-5311-10 ",.02)
  1. ;;00172-5311-10
  1. ;;9002226.02101,"868,00172-5311-60 ",.01)
  1. ;;00172-5311-60
  1. ;;9002226.02101,"868,00172-5311-60 ",.02)
  1. ;;00172-5311-60
  1. ;;9002226.02101,"868,00172-5312-00 ",.01)
  1. ;;00172-5312-00
  1. ;;9002226.02101,"868,00172-5312-00 ",.02)
  1. ;;00172-5312-00
  1. ;;9002226.02101,"868,00172-5312-10 ",.01)
  1. ;;00172-5312-10
  1. ;;9002226.02101,"868,00172-5312-10 ",.02)
  1. ;;00172-5312-10
  1. ;;9002226.02101,"868,00172-5312-60 ",.01)
  1. ;;00172-5312-60
  1. ;;9002226.02101,"868,00172-5312-60 ",.02)
  1. ;;00172-5312-60
  1. ;;9002226.02101,"868,00172-5312-70 ",.01)
  1. ;;00172-5312-70
  1. ;;9002226.02101,"868,00172-5312-70 ",.02)
  1. ;;00172-5312-70
  1. ;;9002226.02101,"868,00172-5313-00 ",.01)
  1. ;;00172-5313-00
  1. ;;9002226.02101,"868,00172-5313-00 ",.02)
  1. ;;00172-5313-00
  1. ;;9002226.02101,"868,00172-5313-10 ",.01)
  1. ;;00172-5313-10
  1. ;;9002226.02101,"868,00172-5313-10 ",.02)
  1. ;;00172-5313-10
  1. ;;9002226.02101,"868,00172-5313-60 ",.01)
  1. ;;00172-5313-60
  1. ;;9002226.02101,"868,00172-5313-60 ",.02)
  1. ;;00172-5313-60
  1. ;;9002226.02101,"868,00173-0352-10 ",.01)
  1. ;;00173-0352-10
  1. ;;9002226.02101,"868,00173-0352-10 ",.02)
  1. ;;00173-0352-10
  1. ;;9002226.02101,"868,00173-0354-10 ",.01)
  1. ;;00173-0354-10
  1. ;;9002226.02101,"868,00173-0354-10 ",.02)
  1. ;;00173-0354-10
  1. ;;9002226.02101,"868,00173-0387-00 ",.01)
  1. ;;00173-0387-00
  1. ;;9002226.02101,"868,00173-0387-00 ",.02)
  1. ;;00173-0387-00
  1. ;;9002226.02101,"868,00173-0394-00 ",.01)
  1. ;;00173-0394-00
  1. ;;9002226.02101,"868,00173-0394-00 ",.02)
  1. ;;00173-0394-00
  1. ;;9002226.02101,"868,00173-0400-00 ",.01)
  1. ;;00173-0400-00
  1. ;;9002226.02101,"868,00173-0400-00 ",.02)
  1. ;;00173-0400-00
  1. ;;9002226.02101,"868,00173-0424-00 ",.01)
  1. ;;00173-0424-00
  1. ;;9002226.02101,"868,00173-0424-00 ",.02)
  1. ;;00173-0424-00
  1. ;;9002226.02101,"868,00173-0425-00 ",.01)
  1. ;;00173-0425-00
  1. ;;9002226.02101,"868,00173-0425-00 ",.02)
  1. ;;00173-0425-00
  1. ;;9002226.02101,"868,00173-0436-00 ",.01)
  1. ;;00173-0436-00
  1. ;;9002226.02101,"868,00173-0436-00 ",.02)
  1. ;;00173-0436-00
  1. ;;9002226.02101,"868,00173-0437-00 ",.01)
  1. ;;00173-0437-00
  1. ;;9002226.02101,"868,00173-0437-00 ",.02)
  1. ;;00173-0437-00
  1. ;;9002226.02101,"868,00173-0740-00 ",.01)
  1. ;;00173-0740-00
  1. ;;9002226.02101,"868,00173-0740-00 ",.02)
  1. ;;00173-0740-00
  1. ;;9002226.02101,"868,00173-0741-00 ",.01)
  1. ;;00173-0741-00
  1. ;;9002226.02101,"868,00173-0741-00 ",.02)
  1. ;;00173-0741-00
  1. ;;9002226.02101,"868,00173-0741-10 ",.01)
  1. ;;00173-0741-10