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

BGP82I47.m

Go to the documentation of this file.
  1. BGP82I47 ; 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,"1733,58118-4745-03 ",.01)
  1. ;;58118-4745-03
  1. ;;9002226.02101,"1733,58118-4745-03 ",.02)
  1. ;;58118-4745-03
  1. ;;9002226.02101,"1733,58118-4745-09 ",.01)
  1. ;;58118-4745-09
  1. ;;9002226.02101,"1733,58118-4745-09 ",.02)
  1. ;;58118-4745-09
  1. ;;9002226.02101,"1733,58118-4775-03 ",.01)
  1. ;;58118-4775-03
  1. ;;9002226.02101,"1733,58118-4775-03 ",.02)
  1. ;;58118-4775-03
  1. ;;9002226.02101,"1733,58118-4775-09 ",.01)
  1. ;;58118-4775-09
  1. ;;9002226.02101,"1733,58118-4775-09 ",.02)
  1. ;;58118-4775-09
  1. ;;9002226.02101,"1733,58517-0240-30 ",.01)
  1. ;;58517-0240-30
  1. ;;9002226.02101,"1733,58517-0240-30 ",.02)
  1. ;;58517-0240-30
  1. ;;9002226.02101,"1733,58657-0610-10 ",.01)
  1. ;;58657-0610-10
  1. ;;9002226.02101,"1733,58657-0610-10 ",.02)
  1. ;;58657-0610-10
  1. ;;9002226.02101,"1733,58657-0610-50 ",.01)
  1. ;;58657-0610-50
  1. ;;9002226.02101,"1733,58657-0610-50 ",.02)
  1. ;;58657-0610-50
  1. ;;9002226.02101,"1733,58657-0610-90 ",.01)
  1. ;;58657-0610-90
  1. ;;9002226.02101,"1733,58657-0610-90 ",.02)
  1. ;;58657-0610-90
  1. ;;9002226.02101,"1733,58657-0611-10 ",.01)
  1. ;;58657-0611-10
  1. ;;9002226.02101,"1733,58657-0611-10 ",.02)
  1. ;;58657-0611-10
  1. ;;9002226.02101,"1733,58657-0611-30 ",.01)
  1. ;;58657-0611-30
  1. ;;9002226.02101,"1733,58657-0611-30 ",.02)
  1. ;;58657-0611-30
  1. ;;9002226.02101,"1733,58657-0611-90 ",.01)
  1. ;;58657-0611-90
  1. ;;9002226.02101,"1733,58657-0611-90 ",.02)
  1. ;;58657-0611-90
  1. ;;9002226.02101,"1733,58657-0612-10 ",.01)
  1. ;;58657-0612-10
  1. ;;9002226.02101,"1733,58657-0612-10 ",.02)
  1. ;;58657-0612-10
  1. ;;9002226.02101,"1733,58657-0612-30 ",.01)
  1. ;;58657-0612-30
  1. ;;9002226.02101,"1733,58657-0612-30 ",.02)
  1. ;;58657-0612-30
  1. ;;9002226.02101,"1733,58657-0612-90 ",.01)
  1. ;;58657-0612-90
  1. ;;9002226.02101,"1733,58657-0612-90 ",.02)
  1. ;;58657-0612-90
  1. ;;9002226.02101,"1733,58864-0000-63 ",.01)
  1. ;;58864-0000-63
  1. ;;9002226.02101,"1733,58864-0000-63 ",.02)
  1. ;;58864-0000-63
  1. ;;9002226.02101,"1733,58864-0006-30 ",.01)
  1. ;;58864-0006-30
  1. ;;9002226.02101,"1733,58864-0006-30 ",.02)
  1. ;;58864-0006-30
  1. ;;9002226.02101,"1733,58864-0066-28 ",.01)
  1. ;;58864-0066-28
  1. ;;9002226.02101,"1733,58864-0066-28 ",.02)
  1. ;;58864-0066-28
  1. ;;9002226.02101,"1733,58864-0603-15 ",.01)
  1. ;;58864-0603-15
  1. ;;9002226.02101,"1733,58864-0603-15 ",.02)
  1. ;;58864-0603-15
  1. ;;9002226.02101,"1733,58864-0603-30 ",.01)
  1. ;;58864-0603-30
  1. ;;9002226.02101,"1733,58864-0603-30 ",.02)
  1. ;;58864-0603-30
  1. ;;9002226.02101,"1733,58864-0603-90 ",.01)
  1. ;;58864-0603-90
  1. ;;9002226.02101,"1733,58864-0603-90 ",.02)
  1. ;;58864-0603-90
  1. ;;9002226.02101,"1733,58864-0605-30 ",.01)
  1. ;;58864-0605-30
  1. ;;9002226.02101,"1733,58864-0605-30 ",.02)
  1. ;;58864-0605-30
  1. ;;9002226.02101,"1733,58864-0618-15 ",.01)
  1. ;;58864-0618-15
  1. ;;9002226.02101,"1733,58864-0618-15 ",.02)
  1. ;;58864-0618-15
  1. ;;9002226.02101,"1733,58864-0618-30 ",.01)
  1. ;;58864-0618-30
  1. ;;9002226.02101,"1733,58864-0618-30 ",.02)
  1. ;;58864-0618-30
  1. ;;9002226.02101,"1733,58864-0654-30 ",.01)
  1. ;;58864-0654-30
  1. ;;9002226.02101,"1733,58864-0654-30 ",.02)
  1. ;;58864-0654-30
  1. ;;9002226.02101,"1733,58864-0659-30 ",.01)
  1. ;;58864-0659-30
  1. ;;9002226.02101,"1733,58864-0659-30 ",.02)
  1. ;;58864-0659-30
  1. ;;9002226.02101,"1733,58864-0662-30 ",.01)
  1. ;;58864-0662-30
  1. ;;9002226.02101,"1733,58864-0662-30 ",.02)
  1. ;;58864-0662-30
  1. ;;9002226.02101,"1733,58864-0674-30 ",.01)
  1. ;;58864-0674-30
  1. ;;9002226.02101,"1733,58864-0674-30 ",.02)
  1. ;;58864-0674-30
  1. ;;9002226.02101,"1733,58864-0681-30 ",.01)
  1. ;;58864-0681-30
  1. ;;9002226.02101,"1733,58864-0681-30 ",.02)
  1. ;;58864-0681-30
  1. ;;9002226.02101,"1733,58864-0726-15 ",.01)
  1. ;;58864-0726-15
  1. ;;9002226.02101,"1733,58864-0726-15 ",.02)
  1. ;;58864-0726-15
  1. ;;9002226.02101,"1733,58864-0726-30 ",.01)
  1. ;;58864-0726-30
  1. ;;9002226.02101,"1733,58864-0726-30 ",.02)
  1. ;;58864-0726-30
  1. ;;9002226.02101,"1733,58864-0750-30 ",.01)
  1. ;;58864-0750-30
  1. ;;9002226.02101,"1733,58864-0750-30 ",.02)
  1. ;;58864-0750-30
  1. ;;9002226.02101,"1733,58864-0753-30 ",.01)
  1. ;;58864-0753-30
  1. ;;9002226.02101,"1733,58864-0753-30 ",.02)
  1. ;;58864-0753-30
  1. ;;9002226.02101,"1733,58864-0753-90 ",.01)
  1. ;;58864-0753-90
  1. ;;9002226.02101,"1733,58864-0753-90 ",.02)
  1. ;;58864-0753-90
  1. ;;9002226.02101,"1733,58864-0754-30 ",.01)
  1. ;;58864-0754-30
  1. ;;9002226.02101,"1733,58864-0754-30 ",.02)
  1. ;;58864-0754-30
  1. ;;9002226.02101,"1733,58864-0755-30 ",.01)
  1. ;;58864-0755-30
  1. ;;9002226.02101,"1733,58864-0755-30 ",.02)
  1. ;;58864-0755-30
  1. ;;9002226.02101,"1733,58864-0762-30 ",.01)
  1. ;;58864-0762-30
  1. ;;9002226.02101,"1733,58864-0762-30 ",.02)
  1. ;;58864-0762-30
  1. ;;9002226.02101,"1733,58864-0771-15 ",.01)
  1. ;;58864-0771-15
  1. ;;9002226.02101,"1733,58864-0771-15 ",.02)
  1. ;;58864-0771-15
  1. ;;9002226.02101,"1733,58864-0774-90 ",.01)
  1. ;;58864-0774-90
  1. ;;9002226.02101,"1733,58864-0774-90 ",.02)
  1. ;;58864-0774-90
  1. ;;9002226.02101,"1733,58864-0787-30 ",.01)
  1. ;;58864-0787-30
  1. ;;9002226.02101,"1733,58864-0787-30 ",.02)
  1. ;;58864-0787-30
  1. ;;9002226.02101,"1733,58864-0807-30 ",.01)
  1. ;;58864-0807-30
  1. ;;9002226.02101,"1733,58864-0807-30 ",.02)
  1. ;;58864-0807-30
  1. ;;9002226.02101,"1733,58864-0847-30 ",.01)
  1. ;;58864-0847-30
  1. ;;9002226.02101,"1733,58864-0847-30 ",.02)
  1. ;;58864-0847-30
  1. ;;9002226.02101,"1733,58864-0859-30 ",.01)
  1. ;;58864-0859-30
  1. ;;9002226.02101,"1733,58864-0859-30 ",.02)
  1. ;;58864-0859-30
  1. ;;9002226.02101,"1733,58864-0863-30 ",.01)
  1. ;;58864-0863-30
  1. ;;9002226.02101,"1733,58864-0863-30 ",.02)
  1. ;;58864-0863-30
  1. ;;9002226.02101,"1733,58864-0869-30 ",.01)
  1. ;;58864-0869-30
  1. ;;9002226.02101,"1733,58864-0869-30 ",.02)
  1. ;;58864-0869-30
  1. ;;9002226.02101,"1733,59746-0333-10 ",.01)
  1. ;;59746-0333-10
  1. ;;9002226.02101,"1733,59746-0333-10 ",.02)
  1. ;;59746-0333-10
  1. ;;9002226.02101,"1733,59746-0333-90 ",.01)
  1. ;;59746-0333-90
  1. ;;9002226.02101,"1733,59746-0333-90 ",.02)
  1. ;;59746-0333-90
  1. ;;9002226.02101,"1733,59746-0334-10 ",.01)
  1. ;;59746-0334-10
  1. ;;9002226.02101,"1733,59746-0334-10 ",.02)
  1. ;;59746-0334-10
  1. ;;9002226.02101,"1733,59746-0334-30 ",.01)
  1. ;;59746-0334-30
  1. ;;9002226.02101,"1733,59746-0334-30 ",.02)
  1. ;;59746-0334-30
  1. ;;9002226.02101,"1733,59746-0334-90 ",.01)
  1. ;;59746-0334-90
  1. ;;9002226.02101,"1733,59746-0334-90 ",.02)
  1. ;;59746-0334-90
  1. ;;9002226.02101,"1733,59746-0335-10 ",.01)
  1. ;;59746-0335-10
  1. ;;9002226.02101,"1733,59746-0335-10 ",.02)
  1. ;;59746-0335-10
  1. ;;9002226.02101,"1733,59746-0335-30 ",.01)
  1. ;;59746-0335-30
  1. ;;9002226.02101,"1733,59746-0335-30 ",.02)
  1. ;;59746-0335-30
  1. ;;9002226.02101,"1733,59746-0335-90 ",.01)
  1. ;;59746-0335-90
  1. ;;9002226.02101,"1733,59746-0335-90 ",.02)
  1. ;;59746-0335-90
  1. ;;9002226.02101,"1733,59746-0337-30 ",.01)
  1. ;;59746-0337-30
  1. ;;9002226.02101,"1733,59746-0337-30 ",.02)
  1. ;;59746-0337-30
  1. ;;9002226.02101,"1733,59746-0337-90 ",.01)
  1. ;;59746-0337-90
  1. ;;9002226.02101,"1733,59746-0337-90 ",.02)
  1. ;;59746-0337-90
  1. ;;9002226.02101,"1733,59746-0338-30 ",.01)
  1. ;;59746-0338-30
  1. ;;9002226.02101,"1733,59746-0338-30 ",.02)
  1. ;;59746-0338-30
  1. ;;9002226.02101,"1733,59746-0338-90 ",.01)
  1. ;;59746-0338-90
  1. ;;9002226.02101,"1733,59746-0338-90 ",.02)
  1. ;;59746-0338-90
  1. ;;9002226.02101,"1733,59746-0339-30 ",.01)
  1. ;;59746-0339-30
  1. ;;9002226.02101,"1733,59746-0339-30 ",.02)
  1. ;;59746-0339-30
  1. ;;9002226.02101,"1733,59746-0339-90 ",.01)
  1. ;;59746-0339-90
  1. ;;9002226.02101,"1733,59746-0339-90 ",.02)
  1. ;;59746-0339-90
  1. ;;9002226.02101,"1733,59746-0360-30 ",.01)
  1. ;;59746-0360-30
  1. ;;9002226.02101,"1733,59746-0360-30 ",.02)
  1. ;;59746-0360-30
  1. ;;9002226.02101,"1733,59746-0361-90 ",.01)
  1. ;;59746-0361-90
  1. ;;9002226.02101,"1733,59746-0361-90 ",.02)
  1. ;;59746-0361-90
  1. ;;9002226.02101,"1733,59746-0362-90 ",.01)
  1. ;;59746-0362-90
  1. ;;9002226.02101,"1733,59746-0362-90 ",.02)
  1. ;;59746-0362-90
  1. ;;9002226.02101,"1733,59746-0363-90 ",.01)
  1. ;;59746-0363-90
  1. ;;9002226.02101,"1733,59746-0363-90 ",.02)
  1. ;;59746-0363-90
  1. ;;9002226.02101,"1733,59746-0447-30 ",.01)
  1. ;;59746-0447-30
  1. ;;9002226.02101,"1733,59746-0447-30 ",.02)
  1. ;;59746-0447-30
  1. ;;9002226.02101,"1733,59746-0447-90 ",.01)
  1. ;;59746-0447-90
  1. ;;9002226.02101,"1733,59746-0447-90 ",.02)
  1. ;;59746-0447-90
  1. ;;9002226.02101,"1733,59746-0448-30 ",.01)
  1. ;;59746-0448-30
  1. ;;9002226.02101,"1733,59746-0448-30 ",.02)
  1. ;;59746-0448-30
  1. ;;9002226.02101,"1733,59746-0448-90 ",.01)
  1. ;;59746-0448-90
  1. ;;9002226.02101,"1733,59746-0448-90 ",.02)
  1. ;;59746-0448-90
  1. ;;9002226.02101,"1733,59746-0449-30 ",.01)
  1. ;;59746-0449-30
  1. ;;9002226.02101,"1733,59746-0449-30 ",.02)
  1. ;;59746-0449-30
  1. ;;9002226.02101,"1733,59746-0449-90 ",.01)
  1. ;;59746-0449-90
  1. ;;9002226.02101,"1733,59746-0449-90 ",.02)
  1. ;;59746-0449-90
  1. ;;9002226.02101,"1733,59746-0463-30 ",.01)
  1. ;;59746-0463-30
  1. ;;9002226.02101,"1733,59746-0463-30 ",.02)
  1. ;;59746-0463-30
  1. ;;9002226.02101,"1733,59746-0465-30 ",.01)
  1. ;;59746-0465-30
  1. ;;9002226.02101,"1733,59746-0465-30 ",.02)
  1. ;;59746-0465-30
  1. ;;9002226.02101,"1733,59746-0465-90 ",.01)
  1. ;;59746-0465-90
  1. ;;9002226.02101,"1733,59746-0465-90 ",.02)
  1. ;;59746-0465-90
  1. ;;9002226.02101,"1733,59746-0466-30 ",.01)
  1. ;;59746-0466-30
  1. ;;9002226.02101,"1733,59746-0466-30 ",.02)
  1. ;;59746-0466-30
  1. ;;9002226.02101,"1733,59746-0466-90 ",.01)
  1. ;;59746-0466-90
  1. ;;9002226.02101,"1733,59746-0466-90 ",.02)
  1. ;;59746-0466-90
  1. ;;9002226.02101,"1733,59762-0122-01 ",.01)
  1. ;;59762-0122-01
  1. ;;9002226.02101,"1733,59762-0122-01 ",.02)
  1. ;;59762-0122-01
  1. ;;9002226.02101,"1733,59762-0132-01 ",.01)
  1. ;;59762-0132-01
  1. ;;9002226.02101,"1733,59762-0132-01 ",.02)
  1. ;;59762-0132-01
  1. ;;9002226.02101,"1733,59762-0142-01 ",.01)
  1. ;;59762-0142-01
  1. ;;9002226.02101,"1733,59762-0142-01 ",.02)
  1. ;;59762-0142-01
  1. ;;9002226.02101,"1733,59762-0152-01 ",.01)
  1. ;;59762-0152-01
  1. ;;9002226.02101,"1733,59762-0152-01 ",.02)
  1. ;;59762-0152-01
  1. ;;9002226.02101,"1733,59762-0220-01 ",.01)
  1. ;;59762-0220-01
  1. ;;9002226.02101,"1733,59762-0220-01 ",.02)
  1. ;;59762-0220-01
  1. ;;9002226.02101,"1733,59762-0222-01 ",.01)
  1. ;;59762-0222-01
  1. ;;9002226.02101,"1733,59762-0222-01 ",.02)
  1. ;;59762-0222-01
  1. ;;9002226.02101,"1733,59762-0223-01 ",.01)
  1. ;;59762-0223-01
  1. ;;9002226.02101,"1733,59762-0223-01 ",.02)
  1. ;;59762-0223-01
  1. ;;9002226.02101,"1733,59762-5019-01 ",.01)
  1. ;;59762-5019-01
  1. ;;9002226.02101,"1733,59762-5019-01 ",.02)
  1. ;;59762-5019-01
  1. ;;9002226.02101,"1733,59762-5020-01 ",.01)
  1. ;;59762-5020-01
  1. ;;9002226.02101,"1733,59762-5020-01 ",.02)
  1. ;;59762-5020-01
  1. ;;9002226.02101,"1733,59762-5021-01 ",.01)
  1. ;;59762-5021-01
  1. ;;9002226.02101,"1733,59762-5021-01 ",.02)
  1. ;;59762-5021-01
  1. ;;9002226.02101,"1733,59762-5022-01 ",.01)
  1. ;;59762-5022-01
  1. ;;9002226.02101,"1733,59762-5022-01 ",.02)
  1. ;;59762-5022-01
  1. ;;9002226.02101,"1733,60429-0029-01 ",.01)
  1. ;;60429-0029-01
  1. ;;9002226.02101,"1733,60429-0029-01 ",.02)
  1. ;;60429-0029-01
  1. ;;9002226.02101,"1733,60429-0029-10 ",.01)
  1. ;;60429-0029-10
  1. ;;9002226.02101,"1733,60429-0029-10 ",.02)
  1. ;;60429-0029-10
  1. ;;9002226.02101,"1733,60429-0029-90 ",.01)
  1. ;;60429-0029-90
  1. ;;9002226.02101,"1733,60429-0029-90 ",.02)
  1. ;;60429-0029-90
  1. ;;9002226.02101,"1733,60429-0030-01 ",.01)
  1. ;;60429-0030-01
  1. ;;9002226.02101,"1733,60429-0030-01 ",.02)
  1. ;;60429-0030-01
  1. ;;9002226.02101,"1733,60429-0030-10 ",.01)
  1. ;;60429-0030-10
  1. ;;9002226.02101,"1733,60429-0030-10 ",.02)
  1. ;;60429-0030-10
  1. ;;9002226.02101,"1733,60429-0030-12 ",.01)
  1. ;;60429-0030-12
  1. ;;9002226.02101,"1733,60429-0030-12 ",.02)
  1. ;;60429-0030-12
  1. ;;9002226.02101,"1733,60429-0030-27 ",.01)
  1. ;;60429-0030-27
  1. ;;9002226.02101,"1733,60429-0030-27 ",.02)
  1. ;;60429-0030-27
  1. ;;9002226.02101,"1733,60429-0030-60 ",.01)
  1. ;;60429-0030-60
  1. ;;9002226.02101,"1733,60429-0030-60 ",.02)
  1. ;;60429-0030-60
  1. ;;9002226.02101,"1733,60429-0030-90 ",.01)
  1. ;;60429-0030-90
  1. ;;9002226.02101,"1733,60429-0030-90 ",.02)
  1. ;;60429-0030-90
  1. ;;9002226.02101,"1733,60429-0031-01 ",.01)
  1. ;;60429-0031-01
  1. ;;9002226.02101,"1733,60429-0031-01 ",.02)
  1. ;;60429-0031-01
  1. ;;9002226.02101,"1733,60429-0031-10 ",.01)
  1. ;;60429-0031-10