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

BGP8ZS21.m

Go to the documentation of this file.
  1. BGP8ZS21 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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,"1799,55289-0016-60 ",.01)
  1. ;;55289-0016-60
  1. ;;9002226.02101,"1799,55289-0016-60 ",.02)
  1. ;;55289-0016-60
  1. ;;9002226.02101,"1799,55289-0018-01 ",.01)
  1. ;;55289-0018-01
  1. ;;9002226.02101,"1799,55289-0018-01 ",.02)
  1. ;;55289-0018-01
  1. ;;9002226.02101,"1799,55289-0018-30 ",.01)
  1. ;;55289-0018-30
  1. ;;9002226.02101,"1799,55289-0018-30 ",.02)
  1. ;;55289-0018-30
  1. ;;9002226.02101,"1799,55289-0026-20 ",.01)
  1. ;;55289-0026-20
  1. ;;9002226.02101,"1799,55289-0026-20 ",.02)
  1. ;;55289-0026-20
  1. ;;9002226.02101,"1799,55289-0035-01 ",.01)
  1. ;;55289-0035-01
  1. ;;9002226.02101,"1799,55289-0035-01 ",.02)
  1. ;;55289-0035-01
  1. ;;9002226.02101,"1799,55289-0035-14 ",.01)
  1. ;;55289-0035-14
  1. ;;9002226.02101,"1799,55289-0035-14 ",.02)
  1. ;;55289-0035-14
  1. ;;9002226.02101,"1799,55289-0035-20 ",.01)
  1. ;;55289-0035-20
  1. ;;9002226.02101,"1799,55289-0035-20 ",.02)
  1. ;;55289-0035-20
  1. ;;9002226.02101,"1799,55289-0035-28 ",.01)
  1. ;;55289-0035-28
  1. ;;9002226.02101,"1799,55289-0035-28 ",.02)
  1. ;;55289-0035-28
  1. ;;9002226.02101,"1799,55289-0035-30 ",.01)
  1. ;;55289-0035-30
  1. ;;9002226.02101,"1799,55289-0035-30 ",.02)
  1. ;;55289-0035-30
  1. ;;9002226.02101,"1799,55289-0035-60 ",.01)
  1. ;;55289-0035-60
  1. ;;9002226.02101,"1799,55289-0035-60 ",.02)
  1. ;;55289-0035-60
  1. ;;9002226.02101,"1799,55289-0037-45 ",.01)
  1. ;;55289-0037-45
  1. ;;9002226.02101,"1799,55289-0037-45 ",.02)
  1. ;;55289-0037-45
  1. ;;9002226.02101,"1799,55289-0037-90 ",.01)
  1. ;;55289-0037-90
  1. ;;9002226.02101,"1799,55289-0037-90 ",.02)
  1. ;;55289-0037-90
  1. ;;9002226.02101,"1799,55289-0040-15 ",.01)
  1. ;;55289-0040-15
  1. ;;9002226.02101,"1799,55289-0040-15 ",.02)
  1. ;;55289-0040-15
  1. ;;9002226.02101,"1799,55289-0040-20 ",.01)
  1. ;;55289-0040-20
  1. ;;9002226.02101,"1799,55289-0040-20 ",.02)
  1. ;;55289-0040-20
  1. ;;9002226.02101,"1799,55289-0040-30 ",.01)
  1. ;;55289-0040-30
  1. ;;9002226.02101,"1799,55289-0040-30 ",.02)
  1. ;;55289-0040-30
  1. ;;9002226.02101,"1799,55289-0053-45 ",.01)
  1. ;;55289-0053-45
  1. ;;9002226.02101,"1799,55289-0053-45 ",.02)
  1. ;;55289-0053-45
  1. ;;9002226.02101,"1799,55289-0053-90 ",.01)
  1. ;;55289-0053-90
  1. ;;9002226.02101,"1799,55289-0053-90 ",.02)
  1. ;;55289-0053-90
  1. ;;9002226.02101,"1799,55289-0099-30 ",.01)
  1. ;;55289-0099-30
  1. ;;9002226.02101,"1799,55289-0099-30 ",.02)
  1. ;;55289-0099-30
  1. ;;9002226.02101,"1799,55289-0099-50 ",.01)
  1. ;;55289-0099-50
  1. ;;9002226.02101,"1799,55289-0099-50 ",.02)
  1. ;;55289-0099-50
  1. ;;9002226.02101,"1799,55289-0124-12 ",.01)
  1. ;;55289-0124-12
  1. ;;9002226.02101,"1799,55289-0124-12 ",.02)
  1. ;;55289-0124-12
  1. ;;9002226.02101,"1799,55289-0124-30 ",.01)
  1. ;;55289-0124-30
  1. ;;9002226.02101,"1799,55289-0124-30 ",.02)
  1. ;;55289-0124-30
  1. ;;9002226.02101,"1799,55289-0144-14 ",.01)
  1. ;;55289-0144-14
  1. ;;9002226.02101,"1799,55289-0144-14 ",.02)
  1. ;;55289-0144-14
  1. ;;9002226.02101,"1799,55289-0144-30 ",.01)
  1. ;;55289-0144-30
  1. ;;9002226.02101,"1799,55289-0144-30 ",.02)
  1. ;;55289-0144-30
  1. ;;9002226.02101,"1799,55289-0144-90 ",.01)
  1. ;;55289-0144-90
  1. ;;9002226.02101,"1799,55289-0144-90 ",.02)
  1. ;;55289-0144-90
  1. ;;9002226.02101,"1799,55289-0149-30 ",.01)
  1. ;;55289-0149-30
  1. ;;9002226.02101,"1799,55289-0149-30 ",.02)
  1. ;;55289-0149-30
  1. ;;9002226.02101,"1799,55289-0149-60 ",.01)
  1. ;;55289-0149-60
  1. ;;9002226.02101,"1799,55289-0149-60 ",.02)
  1. ;;55289-0149-60
  1. ;;9002226.02101,"1799,55289-0216-30 ",.01)
  1. ;;55289-0216-30
  1. ;;9002226.02101,"1799,55289-0216-30 ",.02)
  1. ;;55289-0216-30
  1. ;;9002226.02101,"1799,55289-0258-30 ",.01)
  1. ;;55289-0258-30
  1. ;;9002226.02101,"1799,55289-0258-30 ",.02)
  1. ;;55289-0258-30
  1. ;;9002226.02101,"1799,55289-0337-01 ",.01)
  1. ;;55289-0337-01
  1. ;;9002226.02101,"1799,55289-0337-01 ",.02)
  1. ;;55289-0337-01
  1. ;;9002226.02101,"1799,55289-0370-30 ",.01)
  1. ;;55289-0370-30
  1. ;;9002226.02101,"1799,55289-0370-30 ",.02)
  1. ;;55289-0370-30
  1. ;;9002226.02101,"1799,55289-0535-01 ",.01)
  1. ;;55289-0535-01
  1. ;;9002226.02101,"1799,55289-0535-01 ",.02)
  1. ;;55289-0535-01
  1. ;;9002226.02101,"1799,55289-0535-30 ",.01)
  1. ;;55289-0535-30
  1. ;;9002226.02101,"1799,55289-0535-30 ",.02)
  1. ;;55289-0535-30
  1. ;;9002226.02101,"1799,55289-0586-30 ",.01)
  1. ;;55289-0586-30
  1. ;;9002226.02101,"1799,55289-0586-30 ",.02)
  1. ;;55289-0586-30
  1. ;;9002226.02101,"1799,55289-0730-01 ",.01)
  1. ;;55289-0730-01
  1. ;;9002226.02101,"1799,55289-0730-01 ",.02)
  1. ;;55289-0730-01
  1. ;;9002226.02101,"1799,55289-0730-12 ",.01)
  1. ;;55289-0730-12
  1. ;;9002226.02101,"1799,55289-0730-12 ",.02)
  1. ;;55289-0730-12
  1. ;;9002226.02101,"1799,55289-0730-25 ",.01)
  1. ;;55289-0730-25
  1. ;;9002226.02101,"1799,55289-0730-25 ",.02)
  1. ;;55289-0730-25
  1. ;;9002226.02101,"1799,55289-0730-30 ",.01)
  1. ;;55289-0730-30
  1. ;;9002226.02101,"1799,55289-0730-30 ",.02)
  1. ;;55289-0730-30
  1. ;;9002226.02101,"1799,55289-0730-60 ",.01)
  1. ;;55289-0730-60
  1. ;;9002226.02101,"1799,55289-0730-60 ",.02)
  1. ;;55289-0730-60
  1. ;;9002226.02101,"1799,55289-0730-90 ",.01)
  1. ;;55289-0730-90
  1. ;;9002226.02101,"1799,55289-0730-90 ",.02)
  1. ;;55289-0730-90
  1. ;;9002226.02101,"1799,55289-0839-30 ",.01)
  1. ;;55289-0839-30
  1. ;;9002226.02101,"1799,55289-0839-30 ",.02)
  1. ;;55289-0839-30
  1. ;;9002226.02101,"1799,55289-0879-10 ",.01)
  1. ;;55289-0879-10
  1. ;;9002226.02101,"1799,55289-0879-10 ",.02)
  1. ;;55289-0879-10
  1. ;;9002226.02101,"1799,55289-0879-15 ",.01)
  1. ;;55289-0879-15
  1. ;;9002226.02101,"1799,55289-0879-15 ",.02)
  1. ;;55289-0879-15
  1. ;;9002226.02101,"1799,55289-0879-20 ",.01)
  1. ;;55289-0879-20
  1. ;;9002226.02101,"1799,55289-0879-20 ",.02)
  1. ;;55289-0879-20
  1. ;;9002226.02101,"1799,55289-0879-30 ",.01)
  1. ;;55289-0879-30
  1. ;;9002226.02101,"1799,55289-0879-30 ",.02)
  1. ;;55289-0879-30
  1. ;;9002226.02101,"1799,55289-0879-60 ",.01)
  1. ;;55289-0879-60
  1. ;;9002226.02101,"1799,55289-0879-60 ",.02)
  1. ;;55289-0879-60
  1. ;;9002226.02101,"1799,55289-0972-30 ",.01)
  1. ;;55289-0972-30
  1. ;;9002226.02101,"1799,55289-0972-30 ",.02)
  1. ;;55289-0972-30
  1. ;;9002226.02101,"1799,55289-0972-60 ",.01)
  1. ;;55289-0972-60
  1. ;;9002226.02101,"1799,55289-0972-60 ",.02)
  1. ;;55289-0972-60
  1. ;;9002226.02101,"1799,55289-0972-90 ",.01)
  1. ;;55289-0972-90
  1. ;;9002226.02101,"1799,55289-0972-90 ",.02)
  1. ;;55289-0972-90
  1. ;;9002226.02101,"1799,55289-0983-30 ",.01)
  1. ;;55289-0983-30
  1. ;;9002226.02101,"1799,55289-0983-30 ",.02)
  1. ;;55289-0983-30
  1. ;;9002226.02101,"1799,55700-0040-60 ",.01)
  1. ;;55700-0040-60
  1. ;;9002226.02101,"1799,55700-0040-60 ",.02)
  1. ;;55700-0040-60
  1. ;;9002226.02101,"1799,55700-0047-08 ",.01)
  1. ;;55700-0047-08
  1. ;;9002226.02101,"1799,55700-0047-08 ",.02)
  1. ;;55700-0047-08
  1. ;;9002226.02101,"1799,55700-0129-60 ",.01)
  1. ;;55700-0129-60
  1. ;;9002226.02101,"1799,55700-0129-60 ",.02)
  1. ;;55700-0129-60
  1. ;;9002226.02101,"1799,55700-0241-00 ",.01)
  1. ;;55700-0241-00
  1. ;;9002226.02101,"1799,55700-0241-00 ",.02)
  1. ;;55700-0241-00
  1. ;;9002226.02101,"1799,55700-0241-30 ",.01)
  1. ;;55700-0241-30
  1. ;;9002226.02101,"1799,55700-0241-30 ",.02)
  1. ;;55700-0241-30
  1. ;;9002226.02101,"1799,55700-0379-30 ",.01)
  1. ;;55700-0379-30
  1. ;;9002226.02101,"1799,55700-0379-30 ",.02)
  1. ;;55700-0379-30
  1. ;;9002226.02101,"1799,55700-0379-60 ",.01)
  1. ;;55700-0379-60
  1. ;;9002226.02101,"1799,55700-0379-60 ",.02)
  1. ;;55700-0379-60
  1. ;;9002226.02101,"1799,55700-0379-90 ",.01)
  1. ;;55700-0379-90
  1. ;;9002226.02101,"1799,55700-0379-90 ",.02)
  1. ;;55700-0379-90
  1. ;;9002226.02101,"1799,55700-0391-30 ",.01)
  1. ;;55700-0391-30
  1. ;;9002226.02101,"1799,55700-0391-30 ",.02)
  1. ;;55700-0391-30
  1. ;;9002226.02101,"1799,55700-0485-30 ",.01)
  1. ;;55700-0485-30
  1. ;;9002226.02101,"1799,55700-0485-30 ",.02)
  1. ;;55700-0485-30
  1. ;;9002226.02101,"1799,55700-0485-60 ",.01)
  1. ;;55700-0485-60
  1. ;;9002226.02101,"1799,55700-0485-60 ",.02)
  1. ;;55700-0485-60
  1. ;;9002226.02101,"1799,55700-0486-30 ",.01)
  1. ;;55700-0486-30
  1. ;;9002226.02101,"1799,55700-0486-30 ",.02)
  1. ;;55700-0486-30
  1. ;;9002226.02101,"1799,55700-0486-60 ",.01)
  1. ;;55700-0486-60
  1. ;;9002226.02101,"1799,55700-0486-60 ",.02)
  1. ;;55700-0486-60
  1. ;;9002226.02101,"1799,55700-0486-90 ",.01)
  1. ;;55700-0486-90
  1. ;;9002226.02101,"1799,55700-0486-90 ",.02)
  1. ;;55700-0486-90
  1. ;;9002226.02101,"1799,55700-0501-30 ",.01)
  1. ;;55700-0501-30
  1. ;;9002226.02101,"1799,55700-0501-30 ",.02)
  1. ;;55700-0501-30
  1. ;;9002226.02101,"1799,55700-0501-60 ",.01)
  1. ;;55700-0501-60
  1. ;;9002226.02101,"1799,55700-0501-60 ",.02)
  1. ;;55700-0501-60
  1. ;;9002226.02101,"1799,55700-0503-30 ",.01)
  1. ;;55700-0503-30
  1. ;;9002226.02101,"1799,55700-0503-30 ",.02)
  1. ;;55700-0503-30
  1. ;;9002226.02101,"1799,57664-0421-13 ",.01)
  1. ;;57664-0421-13
  1. ;;9002226.02101,"1799,57664-0421-13 ",.02)
  1. ;;57664-0421-13
  1. ;;9002226.02101,"1799,57664-0421-83 ",.01)
  1. ;;57664-0421-83
  1. ;;9002226.02101,"1799,57664-0421-83 ",.02)
  1. ;;57664-0421-83
  1. ;;9002226.02101,"1799,57664-0421-99 ",.01)
  1. ;;57664-0421-99
  1. ;;9002226.02101,"1799,57664-0421-99 ",.02)
  1. ;;57664-0421-99
  1. ;;9002226.02101,"1799,57664-0422-13 ",.01)
  1. ;;57664-0422-13
  1. ;;9002226.02101,"1799,57664-0422-13 ",.02)
  1. ;;57664-0422-13
  1. ;;9002226.02101,"1799,57664-0422-18 ",.01)
  1. ;;57664-0422-18
  1. ;;9002226.02101,"1799,57664-0422-18 ",.02)
  1. ;;57664-0422-18
  1. ;;9002226.02101,"1799,57664-0422-83 ",.01)
  1. ;;57664-0422-83
  1. ;;9002226.02101,"1799,57664-0422-83 ",.02)
  1. ;;57664-0422-83
  1. ;;9002226.02101,"1799,57664-0422-99 ",.01)
  1. ;;57664-0422-99
  1. ;;9002226.02101,"1799,57664-0422-99 ",.02)
  1. ;;57664-0422-99
  1. ;;9002226.02101,"1799,57664-0424-13 ",.01)
  1. ;;57664-0424-13
  1. ;;9002226.02101,"1799,57664-0424-13 ",.02)
  1. ;;57664-0424-13
  1. ;;9002226.02101,"1799,57664-0424-83 ",.01)
  1. ;;57664-0424-83
  1. ;;9002226.02101,"1799,57664-0424-83 ",.02)
  1. ;;57664-0424-83
  1. ;;9002226.02101,"1799,57664-0424-99 ",.01)
  1. ;;57664-0424-99
  1. ;;9002226.02101,"1799,57664-0424-99 ",.02)
  1. ;;57664-0424-99
  1. ;;9002226.02101,"1799,57664-0425-13 ",.01)
  1. ;;57664-0425-13
  1. ;;9002226.02101,"1799,57664-0425-13 ",.02)
  1. ;;57664-0425-13
  1. ;;9002226.02101,"1799,57664-0425-83 ",.01)
  1. ;;57664-0425-83
  1. ;;9002226.02101,"1799,57664-0425-83 ",.02)
  1. ;;57664-0425-83
  1. ;;9002226.02101,"1799,57664-0425-99 ",.01)
  1. ;;57664-0425-99
  1. ;;9002226.02101,"1799,57664-0425-99 ",.02)
  1. ;;57664-0425-99
  1. ;;9002226.02101,"1799,58118-0097-03 ",.01)
  1. ;;58118-0097-03
  1. ;;9002226.02101,"1799,58118-0097-03 ",.02)
  1. ;;58118-0097-03
  1. ;;9002226.02101,"1799,58118-0097-09 ",.01)
  1. ;;58118-0097-09
  1. ;;9002226.02101,"1799,58118-0097-09 ",.02)
  1. ;;58118-0097-09
  1. ;;9002226.02101,"1799,58118-0155-03 ",.01)
  1. ;;58118-0155-03
  1. ;;9002226.02101,"1799,58118-0155-03 ",.02)
  1. ;;58118-0155-03
  1. ;;9002226.02101,"1799,58118-0155-09 ",.01)
  1. ;;58118-0155-09
  1. ;;9002226.02101,"1799,58118-0155-09 ",.02)
  1. ;;58118-0155-09
  1. ;;9002226.02101,"1799,58118-0157-03 ",.01)
  1. ;;58118-0157-03
  1. ;;9002226.02101,"1799,58118-0157-03 ",.02)
  1. ;;58118-0157-03
  1. ;;9002226.02101,"1799,58118-0157-09 ",.01)
  1. ;;58118-0157-09
  1. ;;9002226.02101,"1799,58118-0157-09 ",.02)
  1. ;;58118-0157-09
  1. ;;9002226.02101,"1799,58118-0810-03 ",.01)
  1. ;;58118-0810-03
  1. ;;9002226.02101,"1799,58118-0810-03 ",.02)
  1. ;;58118-0810-03
  1. ;;9002226.02101,"1799,58118-0810-09 ",.01)
  1. ;;58118-0810-09
  1. ;;9002226.02101,"1799,58118-0810-09 ",.02)
  1. ;;58118-0810-09
  1. ;;9002226.02101,"1799,58118-0811-03 ",.01)
  1. ;;58118-0811-03
  1. ;;9002226.02101,"1799,58118-0811-03 ",.02)
  1. ;;58118-0811-03
  1. ;;9002226.02101,"1799,58118-0811-09 ",.01)
  1. ;;58118-0811-09
  1. ;;9002226.02101,"1799,58118-0811-09 ",.02)
  1. ;;58118-0811-09
  1. ;;9002226.02101,"1799,58118-2113-06 ",.01)
  1. ;;58118-2113-06
  1. ;;9002226.02101,"1799,58118-2113-06 ",.02)
  1. ;;58118-2113-06
  1. ;;9002226.02101,"1799,58118-2114-03 ",.01)
  1. ;;58118-2114-03
  1. ;;9002226.02101,"1799,58118-2114-03 ",.02)
  1. ;;58118-2114-03
  1. ;;9002226.02101,"1799,58118-2114-06 ",.01)
  1. ;;58118-2114-06
  1. ;;9002226.02101,"1799,58118-2114-06 ",.02)
  1. ;;58118-2114-06
  1. ;;9002226.02101,"1799,58118-2212-03 ",.01)
  1. ;;58118-2212-03
  1. ;;9002226.02101,"1799,58118-2212-03 ",.02)
  1. ;;58118-2212-03
  1. ;;9002226.02101,"1799,58118-2212-09 ",.01)
  1. ;;58118-2212-09
  1. ;;9002226.02101,"1799,58118-2212-09 ",.02)
  1. ;;58118-2212-09
  1. ;;9002226.02101,"1799,58118-2213-03 ",.01)
  1. ;;58118-2213-03