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

BGP31Q10.m

Go to the documentation of this file.
  1. BGP31Q10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
  1. ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
  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,"762,55289-0399-90 ",.01)
  1. ;;55289-0399-90
  1. ;;9002226.02101,"762,55289-0399-90 ",.02)
  1. ;;55289-0399-90
  1. ;;9002226.02101,"762,55289-0419-01 ",.01)
  1. ;;55289-0419-01
  1. ;;9002226.02101,"762,55289-0419-01 ",.02)
  1. ;;55289-0419-01
  1. ;;9002226.02101,"762,55289-0419-06 ",.01)
  1. ;;55289-0419-06
  1. ;;9002226.02101,"762,55289-0419-06 ",.02)
  1. ;;55289-0419-06
  1. ;;9002226.02101,"762,55289-0419-10 ",.01)
  1. ;;55289-0419-10
  1. ;;9002226.02101,"762,55289-0419-10 ",.02)
  1. ;;55289-0419-10
  1. ;;9002226.02101,"762,55289-0419-14 ",.01)
  1. ;;55289-0419-14
  1. ;;9002226.02101,"762,55289-0419-14 ",.02)
  1. ;;55289-0419-14
  1. ;;9002226.02101,"762,55289-0419-15 ",.01)
  1. ;;55289-0419-15
  1. ;;9002226.02101,"762,55289-0419-15 ",.02)
  1. ;;55289-0419-15
  1. ;;9002226.02101,"762,55289-0419-21 ",.01)
  1. ;;55289-0419-21
  1. ;;9002226.02101,"762,55289-0419-21 ",.02)
  1. ;;55289-0419-21
  1. ;;9002226.02101,"762,55289-0419-30 ",.01)
  1. ;;55289-0419-30
  1. ;;9002226.02101,"762,55289-0419-30 ",.02)
  1. ;;55289-0419-30
  1. ;;9002226.02101,"762,55289-0419-60 ",.01)
  1. ;;55289-0419-60
  1. ;;9002226.02101,"762,55289-0419-60 ",.02)
  1. ;;55289-0419-60
  1. ;;9002226.02101,"762,55289-0572-30 ",.01)
  1. ;;55289-0572-30
  1. ;;9002226.02101,"762,55289-0572-30 ",.02)
  1. ;;55289-0572-30
  1. ;;9002226.02101,"762,55289-0729-06 ",.01)
  1. ;;55289-0729-06
  1. ;;9002226.02101,"762,55289-0729-06 ",.02)
  1. ;;55289-0729-06
  1. ;;9002226.02101,"762,55289-0729-12 ",.01)
  1. ;;55289-0729-12
  1. ;;9002226.02101,"762,55289-0729-12 ",.02)
  1. ;;55289-0729-12
  1. ;;9002226.02101,"762,55289-0729-30 ",.01)
  1. ;;55289-0729-30
  1. ;;9002226.02101,"762,55289-0729-30 ",.02)
  1. ;;55289-0729-30
  1. ;;9002226.02101,"762,55289-0792-06 ",.01)
  1. ;;55289-0792-06
  1. ;;9002226.02101,"762,55289-0792-06 ",.02)
  1. ;;55289-0792-06
  1. ;;9002226.02101,"762,55289-0792-10 ",.01)
  1. ;;55289-0792-10
  1. ;;9002226.02101,"762,55289-0792-10 ",.02)
  1. ;;55289-0792-10
  1. ;;9002226.02101,"762,55289-0792-12 ",.01)
  1. ;;55289-0792-12
  1. ;;9002226.02101,"762,55289-0792-12 ",.02)
  1. ;;55289-0792-12
  1. ;;9002226.02101,"762,55289-0792-20 ",.01)
  1. ;;55289-0792-20
  1. ;;9002226.02101,"762,55289-0792-20 ",.02)
  1. ;;55289-0792-20
  1. ;;9002226.02101,"762,55289-0792-30 ",.01)
  1. ;;55289-0792-30
  1. ;;9002226.02101,"762,55289-0792-30 ",.02)
  1. ;;55289-0792-30
  1. ;;9002226.02101,"762,55887-0123-05 ",.01)
  1. ;;55887-0123-05
  1. ;;9002226.02101,"762,55887-0123-05 ",.02)
  1. ;;55887-0123-05
  1. ;;9002226.02101,"762,55887-0123-07 ",.01)
  1. ;;55887-0123-07
  1. ;;9002226.02101,"762,55887-0123-07 ",.02)
  1. ;;55887-0123-07
  1. ;;9002226.02101,"762,55887-0123-10 ",.01)
  1. ;;55887-0123-10
  1. ;;9002226.02101,"762,55887-0123-10 ",.02)
  1. ;;55887-0123-10
  1. ;;9002226.02101,"762,55887-0123-15 ",.01)
  1. ;;55887-0123-15
  1. ;;9002226.02101,"762,55887-0123-15 ",.02)
  1. ;;55887-0123-15
  1. ;;9002226.02101,"762,55887-0123-30 ",.01)
  1. ;;55887-0123-30
  1. ;;9002226.02101,"762,55887-0123-30 ",.02)
  1. ;;55887-0123-30
  1. ;;9002226.02101,"762,55887-0123-60 ",.01)
  1. ;;55887-0123-60
  1. ;;9002226.02101,"762,55887-0123-60 ",.02)
  1. ;;55887-0123-60
  1. ;;9002226.02101,"762,55887-0123-90 ",.01)
  1. ;;55887-0123-90
  1. ;;9002226.02101,"762,55887-0123-90 ",.02)
  1. ;;55887-0123-90
  1. ;;9002226.02101,"762,55887-0124-05 ",.01)
  1. ;;55887-0124-05
  1. ;;9002226.02101,"762,55887-0124-05 ",.02)
  1. ;;55887-0124-05
  1. ;;9002226.02101,"762,55887-0124-30 ",.01)
  1. ;;55887-0124-30
  1. ;;9002226.02101,"762,55887-0124-30 ",.02)
  1. ;;55887-0124-30
  1. ;;9002226.02101,"762,55887-0124-60 ",.01)
  1. ;;55887-0124-60
  1. ;;9002226.02101,"762,55887-0124-60 ",.02)
  1. ;;55887-0124-60
  1. ;;9002226.02101,"762,55887-0514-20 ",.01)
  1. ;;55887-0514-20
  1. ;;9002226.02101,"762,55887-0514-20 ",.02)
  1. ;;55887-0514-20
  1. ;;9002226.02101,"762,55887-0514-30 ",.01)
  1. ;;55887-0514-30
  1. ;;9002226.02101,"762,55887-0514-30 ",.02)
  1. ;;55887-0514-30
  1. ;;9002226.02101,"762,55887-0514-60 ",.01)
  1. ;;55887-0514-60
  1. ;;9002226.02101,"762,55887-0514-60 ",.02)
  1. ;;55887-0514-60
  1. ;;9002226.02101,"762,55887-0514-90 ",.01)
  1. ;;55887-0514-90
  1. ;;9002226.02101,"762,55887-0514-90 ",.02)
  1. ;;55887-0514-90
  1. ;;9002226.02101,"762,55887-0806-10 ",.01)
  1. ;;55887-0806-10
  1. ;;9002226.02101,"762,55887-0806-10 ",.02)
  1. ;;55887-0806-10
  1. ;;9002226.02101,"762,55887-0806-20 ",.01)
  1. ;;55887-0806-20
  1. ;;9002226.02101,"762,55887-0806-20 ",.02)
  1. ;;55887-0806-20
  1. ;;9002226.02101,"762,55887-0806-30 ",.01)
  1. ;;55887-0806-30
  1. ;;9002226.02101,"762,55887-0806-30 ",.02)
  1. ;;55887-0806-30
  1. ;;9002226.02101,"762,55887-0806-60 ",.01)
  1. ;;55887-0806-60
  1. ;;9002226.02101,"762,55887-0806-60 ",.02)
  1. ;;55887-0806-60
  1. ;;9002226.02101,"762,55887-0806-82 ",.01)
  1. ;;55887-0806-82
  1. ;;9002226.02101,"762,55887-0806-82 ",.02)
  1. ;;55887-0806-82
  1. ;;9002226.02101,"762,55887-0806-90 ",.01)
  1. ;;55887-0806-90
  1. ;;9002226.02101,"762,55887-0806-90 ",.02)
  1. ;;55887-0806-90
  1. ;;9002226.02101,"762,57664-0515-13 ",.01)
  1. ;;57664-0515-13
  1. ;;9002226.02101,"762,57664-0515-13 ",.02)
  1. ;;57664-0515-13
  1. ;;9002226.02101,"762,57664-0515-18 ",.01)
  1. ;;57664-0515-18
  1. ;;9002226.02101,"762,57664-0515-18 ",.02)
  1. ;;57664-0515-18
  1. ;;9002226.02101,"762,57664-0515-88 ",.01)
  1. ;;57664-0515-88
  1. ;;9002226.02101,"762,57664-0515-88 ",.02)
  1. ;;57664-0515-88
  1. ;;9002226.02101,"762,57664-0516-13 ",.01)
  1. ;;57664-0516-13
  1. ;;9002226.02101,"762,57664-0516-13 ",.02)
  1. ;;57664-0516-13
  1. ;;9002226.02101,"762,57664-0516-18 ",.01)
  1. ;;57664-0516-18
  1. ;;9002226.02101,"762,57664-0516-18 ",.02)
  1. ;;57664-0516-18
  1. ;;9002226.02101,"762,57664-0516-88 ",.01)
  1. ;;57664-0516-88
  1. ;;9002226.02101,"762,57664-0516-88 ",.02)
  1. ;;57664-0516-88
  1. ;;9002226.02101,"762,57866-3026-01 ",.01)
  1. ;;57866-3026-01
  1. ;;9002226.02101,"762,57866-3026-01 ",.02)
  1. ;;57866-3026-01
  1. ;;9002226.02101,"762,57866-3051-01 ",.01)
  1. ;;57866-3051-01
  1. ;;9002226.02101,"762,57866-3051-01 ",.02)
  1. ;;57866-3051-01
  1. ;;9002226.02101,"762,57866-3052-01 ",.01)
  1. ;;57866-3052-01
  1. ;;9002226.02101,"762,57866-3052-01 ",.02)
  1. ;;57866-3052-01
  1. ;;9002226.02101,"762,57866-3155-01 ",.01)
  1. ;;57866-3155-01
  1. ;;9002226.02101,"762,57866-3155-01 ",.02)
  1. ;;57866-3155-01
  1. ;;9002226.02101,"762,57866-3402-01 ",.01)
  1. ;;57866-3402-01
  1. ;;9002226.02101,"762,57866-3402-01 ",.02)
  1. ;;57866-3402-01
  1. ;;9002226.02101,"762,57866-3402-02 ",.01)
  1. ;;57866-3402-02
  1. ;;9002226.02101,"762,57866-3402-02 ",.02)
  1. ;;57866-3402-02
  1. ;;9002226.02101,"762,57866-3403-01 ",.01)
  1. ;;57866-3403-01
  1. ;;9002226.02101,"762,57866-3403-01 ",.02)
  1. ;;57866-3403-01
  1. ;;9002226.02101,"762,57866-3403-03 ",.01)
  1. ;;57866-3403-03
  1. ;;9002226.02101,"762,57866-3403-03 ",.02)
  1. ;;57866-3403-03
  1. ;;9002226.02101,"762,57866-4355-01 ",.01)
  1. ;;57866-4355-01
  1. ;;9002226.02101,"762,57866-4355-01 ",.02)
  1. ;;57866-4355-01
  1. ;;9002226.02101,"762,58016-0040-00 ",.01)
  1. ;;58016-0040-00
  1. ;;9002226.02101,"762,58016-0040-00 ",.02)
  1. ;;58016-0040-00
  1. ;;9002226.02101,"762,58016-0040-30 ",.01)
  1. ;;58016-0040-30
  1. ;;9002226.02101,"762,58016-0040-30 ",.02)
  1. ;;58016-0040-30
  1. ;;9002226.02101,"762,58016-0040-60 ",.01)
  1. ;;58016-0040-60
  1. ;;9002226.02101,"762,58016-0040-60 ",.02)
  1. ;;58016-0040-60
  1. ;;9002226.02101,"762,58016-0040-90 ",.01)
  1. ;;58016-0040-90
  1. ;;9002226.02101,"762,58016-0040-90 ",.02)
  1. ;;58016-0040-90
  1. ;;9002226.02101,"762,58016-0292-00 ",.01)
  1. ;;58016-0292-00
  1. ;;9002226.02101,"762,58016-0292-00 ",.02)
  1. ;;58016-0292-00
  1. ;;9002226.02101,"762,58016-0292-30 ",.01)
  1. ;;58016-0292-30
  1. ;;9002226.02101,"762,58016-0292-30 ",.02)
  1. ;;58016-0292-30
  1. ;;9002226.02101,"762,58016-0292-60 ",.01)
  1. ;;58016-0292-60
  1. ;;9002226.02101,"762,58016-0292-60 ",.02)
  1. ;;58016-0292-60
  1. ;;9002226.02101,"762,58016-0292-90 ",.01)
  1. ;;58016-0292-90
  1. ;;9002226.02101,"762,58016-0292-90 ",.02)
  1. ;;58016-0292-90
  1. ;;9002226.02101,"762,58016-0341-00 ",.01)
  1. ;;58016-0341-00
  1. ;;9002226.02101,"762,58016-0341-00 ",.02)
  1. ;;58016-0341-00
  1. ;;9002226.02101,"762,58016-0341-10 ",.01)
  1. ;;58016-0341-10
  1. ;;9002226.02101,"762,58016-0341-10 ",.02)
  1. ;;58016-0341-10
  1. ;;9002226.02101,"762,58016-0341-20 ",.01)
  1. ;;58016-0341-20
  1. ;;9002226.02101,"762,58016-0341-20 ",.02)
  1. ;;58016-0341-20
  1. ;;9002226.02101,"762,58016-0341-30 ",.01)
  1. ;;58016-0341-30
  1. ;;9002226.02101,"762,58016-0341-30 ",.02)
  1. ;;58016-0341-30
  1. ;;9002226.02101,"762,58016-0341-40 ",.01)
  1. ;;58016-0341-40
  1. ;;9002226.02101,"762,58016-0341-40 ",.02)
  1. ;;58016-0341-40
  1. ;;9002226.02101,"762,58016-0341-60 ",.01)
  1. ;;58016-0341-60
  1. ;;9002226.02101,"762,58016-0341-60 ",.02)
  1. ;;58016-0341-60
  1. ;;9002226.02101,"762,58016-0341-90 ",.01)
  1. ;;58016-0341-90
  1. ;;9002226.02101,"762,58016-0341-90 ",.02)
  1. ;;58016-0341-90
  1. ;;9002226.02101,"762,58016-0342-00 ",.01)
  1. ;;58016-0342-00
  1. ;;9002226.02101,"762,58016-0342-00 ",.02)
  1. ;;58016-0342-00
  1. ;;9002226.02101,"762,58016-0342-10 ",.01)
  1. ;;58016-0342-10
  1. ;;9002226.02101,"762,58016-0342-10 ",.02)
  1. ;;58016-0342-10
  1. ;;9002226.02101,"762,58016-0342-20 ",.01)
  1. ;;58016-0342-20
  1. ;;9002226.02101,"762,58016-0342-20 ",.02)
  1. ;;58016-0342-20
  1. ;;9002226.02101,"762,58016-0342-30 ",.01)
  1. ;;58016-0342-30
  1. ;;9002226.02101,"762,58016-0342-30 ",.02)
  1. ;;58016-0342-30
  1. ;;9002226.02101,"762,58016-0342-40 ",.01)
  1. ;;58016-0342-40
  1. ;;9002226.02101,"762,58016-0342-40 ",.02)
  1. ;;58016-0342-40
  1. ;;9002226.02101,"762,58016-0342-60 ",.01)
  1. ;;58016-0342-60
  1. ;;9002226.02101,"762,58016-0342-60 ",.02)
  1. ;;58016-0342-60
  1. ;;9002226.02101,"762,58016-0342-90 ",.01)
  1. ;;58016-0342-90
  1. ;;9002226.02101,"762,58016-0342-90 ",.02)
  1. ;;58016-0342-90
  1. ;;9002226.02101,"762,58016-0596-00 ",.01)
  1. ;;58016-0596-00
  1. ;;9002226.02101,"762,58016-0596-00 ",.02)
  1. ;;58016-0596-00
  1. ;;9002226.02101,"762,58016-0596-30 ",.01)
  1. ;;58016-0596-30
  1. ;;9002226.02101,"762,58016-0596-30 ",.02)
  1. ;;58016-0596-30
  1. ;;9002226.02101,"762,58016-0596-60 ",.01)
  1. ;;58016-0596-60
  1. ;;9002226.02101,"762,58016-0596-60 ",.02)
  1. ;;58016-0596-60
  1. ;;9002226.02101,"762,58016-0596-90 ",.01)
  1. ;;58016-0596-90
  1. ;;9002226.02101,"762,58016-0596-90 ",.02)
  1. ;;58016-0596-90
  1. ;;9002226.02101,"762,58016-0863-00 ",.01)
  1. ;;58016-0863-00
  1. ;;9002226.02101,"762,58016-0863-00 ",.02)
  1. ;;58016-0863-00
  1. ;;9002226.02101,"762,58016-0863-30 ",.01)
  1. ;;58016-0863-30
  1. ;;9002226.02101,"762,58016-0863-30 ",.02)
  1. ;;58016-0863-30
  1. ;;9002226.02101,"762,58016-0863-60 ",.01)
  1. ;;58016-0863-60
  1. ;;9002226.02101,"762,58016-0863-60 ",.02)
  1. ;;58016-0863-60
  1. ;;9002226.02101,"762,58016-0863-90 ",.01)
  1. ;;58016-0863-90
  1. ;;9002226.02101,"762,58016-0863-90 ",.02)
  1. ;;58016-0863-90
  1. ;;9002226.02101,"762,58864-0700-15 ",.01)
  1. ;;58864-0700-15
  1. ;;9002226.02101,"762,58864-0700-15 ",.02)
  1. ;;58864-0700-15
  1. ;;9002226.02101,"762,58864-0891-06 ",.01)
  1. ;;58864-0891-06
  1. ;;9002226.02101,"762,58864-0891-06 ",.02)
  1. ;;58864-0891-06
  1. ;;9002226.02101,"762,59011-0255-30 ",.01)
  1. ;;59011-0255-30
  1. ;;9002226.02101,"762,59011-0255-30 ",.02)
  1. ;;59011-0255-30
  1. ;;9002226.02101,"762,59011-0256-30 ",.01)
  1. ;;59011-0256-30
  1. ;;9002226.02101,"762,59011-0256-30 ",.02)
  1. ;;59011-0256-30
  1. ;;9002226.02101,"762,59762-2630-01 ",.01)
  1. ;;59762-2630-01
  1. ;;9002226.02101,"762,59762-2630-01 ",.02)
  1. ;;59762-2630-01
  1. ;;9002226.02101,"762,59762-2630-04 ",.01)
  1. ;;59762-2630-04
  1. ;;9002226.02101,"762,59762-2630-04 ",.02)
  1. ;;59762-2630-04
  1. ;;9002226.02101,"762,59762-2631-01 ",.01)
  1. ;;59762-2631-01
  1. ;;9002226.02101,"762,59762-2631-01 ",.02)
  1. ;;59762-2631-01
  1. ;;9002226.02101,"762,59762-2631-04 ",.01)
  1. ;;59762-2631-04
  1. ;;9002226.02101,"762,59762-2631-04 ",.02)
  1. ;;59762-2631-04
  1. ;;9002226.02101,"762,60346-0867-30 ",.01)
  1. ;;60346-0867-30
  1. ;;9002226.02101,"762,60346-0867-30 ",.02)
  1. ;;60346-0867-30
  1. ;;9002226.02101,"762,60346-0949-06 ",.01)
  1. ;;60346-0949-06
  1. ;;9002226.02101,"762,60346-0949-06 ",.02)
  1. ;;60346-0949-06
  1. ;;9002226.02101,"762,60346-0949-30 ",.01)
  1. ;;60346-0949-30
  1. ;;9002226.02101,"762,60346-0949-30 ",.02)
  1. ;;60346-0949-30
  1. ;;9002226.02101,"762,60429-0530-01 ",.01)
  1. ;;60429-0530-01
  1. ;;9002226.02101,"762,60429-0530-01 ",.02)
  1. ;;60429-0530-01
  1. ;;9002226.02101,"762,60429-0530-05 ",.01)
  1. ;;60429-0530-05
  1. ;;9002226.02101,"762,60429-0530-05 ",.02)
  1. ;;60429-0530-05
  1. ;;9002226.02101,"762,60429-0530-20 ",.01)
  1. ;;60429-0530-20
  1. ;;9002226.02101,"762,60429-0530-20 ",.02)
  1. ;;60429-0530-20
  1. ;;9002226.02101,"762,60429-0530-30 ",.01)
  1. ;;60429-0530-30
  1. ;;9002226.02101,"762,60429-0530-30 ",.02)
  1. ;;60429-0530-30
  1. ;;9002226.02101,"762,60429-0531-01 ",.01)
  1. ;;60429-0531-01
  1. ;;9002226.02101,"762,60429-0531-01 ",.02)
  1. ;;60429-0531-01
  1. ;;9002226.02101,"762,60429-0531-05 ",.01)
  1. ;;60429-0531-05
  1. ;;9002226.02101,"762,60429-0531-05 ",.02)
  1. ;;60429-0531-05
  1. ;;9002226.02101,"762,60429-0531-15 ",.01)
  1. ;;60429-0531-15
  1. ;;9002226.02101,"762,60429-0531-15 ",.02)
  1. ;;60429-0531-15
  1. ;;9002226.02101,"762,60429-0531-20 ",.01)
  1. ;;60429-0531-20
  1. ;;9002226.02101,"762,60429-0531-20 ",.02)
  1. ;;60429-0531-20
  1. ;;9002226.02101,"762,60429-0531-30 ",.01)
  1. ;;60429-0531-30
  1. ;;9002226.02101,"762,60429-0531-30 ",.02)
  1. ;;60429-0531-30
  1. ;;9002226.02101,"762,60429-0531-60 ",.01)
  1. ;;60429-0531-60
  1. ;;9002226.02101,"762,60429-0531-60 ",.02)
  1. ;;60429-0531-60
  1. ;;9002226.02101,"762,60429-0531-90 ",.01)
  1. ;;60429-0531-90
  1. ;;9002226.02101,"762,60429-0531-90 ",.02)
  1. ;;60429-0531-90
  1. ;;9002226.02101,"762,60505-2604-00 ",.01)
  1. ;;60505-2604-00
  1. ;;9002226.02101,"762,60505-2604-00 ",.02)
  1. ;;60505-2604-00
  1. ;;9002226.02101,"762,60505-2604-01 ",.01)
  1. ;;60505-2604-01
  1. ;;9002226.02101,"762,60505-2604-01 ",.02)
  1. ;;60505-2604-01
  1. ;;9002226.02101,"762,60505-2604-08 ",.01)
  1. ;;60505-2604-08
  1. ;;9002226.02101,"762,60505-2604-08 ",.02)
  1. ;;60505-2604-08
  1. ;;9002226.02101,"762,60505-2605-00 ",.01)
  1. ;;60505-2605-00
  1. ;;9002226.02101,"762,60505-2605-00 ",.02)
  1. ;;60505-2605-00
  1. ;;9002226.02101,"762,60505-2605-01 ",.01)
  1. ;;60505-2605-01
  1. ;;9002226.02101,"762,60505-2605-01 ",.02)
  1. ;;60505-2605-01
  1. ;;9002226.02101,"762,60505-2605-08 ",.01)
  1. ;;60505-2605-08
  1. ;;9002226.02101,"762,60505-2605-08 ",.02)
  1. ;;60505-2605-08