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

BGP82Z35.m

Go to the documentation of this file.
  1. BGP82Z35 ; 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,"619,35356-0331-90 ",.02)
  1. ;;35356-0331-90
  1. ;;9002226.02101,"619,35356-0333-30 ",.01)
  1. ;;35356-0333-30
  1. ;;9002226.02101,"619,35356-0333-30 ",.02)
  1. ;;35356-0333-30
  1. ;;9002226.02101,"619,35356-0335-00 ",.01)
  1. ;;35356-0335-00
  1. ;;9002226.02101,"619,35356-0335-00 ",.02)
  1. ;;35356-0335-00
  1. ;;9002226.02101,"619,35356-0335-30 ",.01)
  1. ;;35356-0335-30
  1. ;;9002226.02101,"619,35356-0335-30 ",.02)
  1. ;;35356-0335-30
  1. ;;9002226.02101,"619,35356-0335-60 ",.01)
  1. ;;35356-0335-60
  1. ;;9002226.02101,"619,35356-0335-60 ",.02)
  1. ;;35356-0335-60
  1. ;;9002226.02101,"619,35356-0335-90 ",.01)
  1. ;;35356-0335-90
  1. ;;9002226.02101,"619,35356-0335-90 ",.02)
  1. ;;35356-0335-90
  1. ;;9002226.02101,"619,35356-0339-00 ",.01)
  1. ;;35356-0339-00
  1. ;;9002226.02101,"619,35356-0339-00 ",.02)
  1. ;;35356-0339-00
  1. ;;9002226.02101,"619,35356-0339-30 ",.01)
  1. ;;35356-0339-30
  1. ;;9002226.02101,"619,35356-0339-30 ",.02)
  1. ;;35356-0339-30
  1. ;;9002226.02101,"619,35356-0377-30 ",.01)
  1. ;;35356-0377-30
  1. ;;9002226.02101,"619,35356-0377-30 ",.02)
  1. ;;35356-0377-30
  1. ;;9002226.02101,"619,35356-0378-28 ",.01)
  1. ;;35356-0378-28
  1. ;;9002226.02101,"619,35356-0378-28 ",.02)
  1. ;;35356-0378-28
  1. ;;9002226.02101,"619,35356-0378-60 ",.01)
  1. ;;35356-0378-60
  1. ;;9002226.02101,"619,35356-0378-60 ",.02)
  1. ;;35356-0378-60
  1. ;;9002226.02101,"619,35356-0380-01 ",.01)
  1. ;;35356-0380-01
  1. ;;9002226.02101,"619,35356-0380-01 ",.02)
  1. ;;35356-0380-01
  1. ;;9002226.02101,"619,35356-0380-30 ",.01)
  1. ;;35356-0380-30
  1. ;;9002226.02101,"619,35356-0380-30 ",.02)
  1. ;;35356-0380-30
  1. ;;9002226.02101,"619,35356-0380-60 ",.01)
  1. ;;35356-0380-60
  1. ;;9002226.02101,"619,35356-0380-60 ",.02)
  1. ;;35356-0380-60
  1. ;;9002226.02101,"619,35356-0384-30 ",.01)
  1. ;;35356-0384-30
  1. ;;9002226.02101,"619,35356-0384-30 ",.02)
  1. ;;35356-0384-30
  1. ;;9002226.02101,"619,35356-0391-30 ",.01)
  1. ;;35356-0391-30
  1. ;;9002226.02101,"619,35356-0391-30 ",.02)
  1. ;;35356-0391-30
  1. ;;9002226.02101,"619,35356-0391-90 ",.01)
  1. ;;35356-0391-90
  1. ;;9002226.02101,"619,35356-0391-90 ",.02)
  1. ;;35356-0391-90
  1. ;;9002226.02101,"619,35356-0399-60 ",.01)
  1. ;;35356-0399-60
  1. ;;9002226.02101,"619,35356-0399-60 ",.02)
  1. ;;35356-0399-60
  1. ;;9002226.02101,"619,35356-0436-16 ",.01)
  1. ;;35356-0436-16
  1. ;;9002226.02101,"619,35356-0436-16 ",.02)
  1. ;;35356-0436-16
  1. ;;9002226.02101,"619,35356-0451-30 ",.01)
  1. ;;35356-0451-30
  1. ;;9002226.02101,"619,35356-0451-30 ",.02)
  1. ;;35356-0451-30
  1. ;;9002226.02101,"619,35356-0451-90 ",.01)
  1. ;;35356-0451-90
  1. ;;9002226.02101,"619,35356-0451-90 ",.02)
  1. ;;35356-0451-90
  1. ;;9002226.02101,"619,35356-0453-30 ",.01)
  1. ;;35356-0453-30
  1. ;;9002226.02101,"619,35356-0453-30 ",.02)
  1. ;;35356-0453-30
  1. ;;9002226.02101,"619,35356-0453-90 ",.01)
  1. ;;35356-0453-90
  1. ;;9002226.02101,"619,35356-0453-90 ",.02)
  1. ;;35356-0453-90
  1. ;;9002226.02101,"619,35356-0454-30 ",.01)
  1. ;;35356-0454-30
  1. ;;9002226.02101,"619,35356-0454-30 ",.02)
  1. ;;35356-0454-30
  1. ;;9002226.02101,"619,35356-0454-90 ",.01)
  1. ;;35356-0454-90
  1. ;;9002226.02101,"619,35356-0454-90 ",.02)
  1. ;;35356-0454-90
  1. ;;9002226.02101,"619,35356-0455-30 ",.01)
  1. ;;35356-0455-30
  1. ;;9002226.02101,"619,35356-0455-30 ",.02)
  1. ;;35356-0455-30
  1. ;;9002226.02101,"619,35356-0455-90 ",.01)
  1. ;;35356-0455-90
  1. ;;9002226.02101,"619,35356-0455-90 ",.02)
  1. ;;35356-0455-90
  1. ;;9002226.02101,"619,35356-0457-30 ",.01)
  1. ;;35356-0457-30
  1. ;;9002226.02101,"619,35356-0457-30 ",.02)
  1. ;;35356-0457-30
  1. ;;9002226.02101,"619,35356-0458-30 ",.01)
  1. ;;35356-0458-30
  1. ;;9002226.02101,"619,35356-0458-30 ",.02)
  1. ;;35356-0458-30
  1. ;;9002226.02101,"619,35356-0459-30 ",.01)
  1. ;;35356-0459-30
  1. ;;9002226.02101,"619,35356-0459-30 ",.02)
  1. ;;35356-0459-30
  1. ;;9002226.02101,"619,35356-0460-30 ",.01)
  1. ;;35356-0460-30
  1. ;;9002226.02101,"619,35356-0460-30 ",.02)
  1. ;;35356-0460-30
  1. ;;9002226.02101,"619,35356-0461-30 ",.01)
  1. ;;35356-0461-30
  1. ;;9002226.02101,"619,35356-0461-30 ",.02)
  1. ;;35356-0461-30
  1. ;;9002226.02101,"619,35356-0499-01 ",.01)
  1. ;;35356-0499-01
  1. ;;9002226.02101,"619,35356-0499-01 ",.02)
  1. ;;35356-0499-01
  1. ;;9002226.02101,"619,35356-0499-30 ",.01)
  1. ;;35356-0499-30
  1. ;;9002226.02101,"619,35356-0499-30 ",.02)
  1. ;;35356-0499-30
  1. ;;9002226.02101,"619,35356-0499-60 ",.01)
  1. ;;35356-0499-60
  1. ;;9002226.02101,"619,35356-0499-60 ",.02)
  1. ;;35356-0499-60
  1. ;;9002226.02101,"619,35356-0514-30 ",.01)
  1. ;;35356-0514-30
  1. ;;9002226.02101,"619,35356-0514-30 ",.02)
  1. ;;35356-0514-30
  1. ;;9002226.02101,"619,35356-0521-30 ",.01)
  1. ;;35356-0521-30
  1. ;;9002226.02101,"619,35356-0521-30 ",.02)
  1. ;;35356-0521-30
  1. ;;9002226.02101,"619,35356-0521-60 ",.01)
  1. ;;35356-0521-60
  1. ;;9002226.02101,"619,35356-0521-60 ",.02)
  1. ;;35356-0521-60
  1. ;;9002226.02101,"619,35356-0521-90 ",.01)
  1. ;;35356-0521-90
  1. ;;9002226.02101,"619,35356-0521-90 ",.02)
  1. ;;35356-0521-90
  1. ;;9002226.02101,"619,35356-0525-30 ",.01)
  1. ;;35356-0525-30
  1. ;;9002226.02101,"619,35356-0525-30 ",.02)
  1. ;;35356-0525-30
  1. ;;9002226.02101,"619,35356-0528-30 ",.01)
  1. ;;35356-0528-30
  1. ;;9002226.02101,"619,35356-0528-30 ",.02)
  1. ;;35356-0528-30
  1. ;;9002226.02101,"619,35356-0546-30 ",.01)
  1. ;;35356-0546-30
  1. ;;9002226.02101,"619,35356-0546-30 ",.02)
  1. ;;35356-0546-30
  1. ;;9002226.02101,"619,35356-0547-30 ",.01)
  1. ;;35356-0547-30
  1. ;;9002226.02101,"619,35356-0547-30 ",.02)
  1. ;;35356-0547-30
  1. ;;9002226.02101,"619,35356-0559-30 ",.01)
  1. ;;35356-0559-30
  1. ;;9002226.02101,"619,35356-0559-30 ",.02)
  1. ;;35356-0559-30
  1. ;;9002226.02101,"619,35356-0560-30 ",.01)
  1. ;;35356-0560-30
  1. ;;9002226.02101,"619,35356-0560-30 ",.02)
  1. ;;35356-0560-30
  1. ;;9002226.02101,"619,35356-0561-30 ",.01)
  1. ;;35356-0561-30
  1. ;;9002226.02101,"619,35356-0561-30 ",.02)
  1. ;;35356-0561-30
  1. ;;9002226.02101,"619,35356-0586-30 ",.01)
  1. ;;35356-0586-30
  1. ;;9002226.02101,"619,35356-0586-30 ",.02)
  1. ;;35356-0586-30
  1. ;;9002226.02101,"619,35356-0593-30 ",.01)
  1. ;;35356-0593-30
  1. ;;9002226.02101,"619,35356-0593-30 ",.02)
  1. ;;35356-0593-30
  1. ;;9002226.02101,"619,35356-0593-90 ",.01)
  1. ;;35356-0593-90
  1. ;;9002226.02101,"619,35356-0593-90 ",.02)
  1. ;;35356-0593-90
  1. ;;9002226.02101,"619,35356-0605-04 ",.01)
  1. ;;35356-0605-04
  1. ;;9002226.02101,"619,35356-0605-04 ",.02)
  1. ;;35356-0605-04
  1. ;;9002226.02101,"619,35356-0606-04 ",.01)
  1. ;;35356-0606-04
  1. ;;9002226.02101,"619,35356-0606-04 ",.02)
  1. ;;35356-0606-04
  1. ;;9002226.02101,"619,35356-0607-04 ",.01)
  1. ;;35356-0607-04
  1. ;;9002226.02101,"619,35356-0607-04 ",.02)
  1. ;;35356-0607-04
  1. ;;9002226.02101,"619,35356-0608-30 ",.01)
  1. ;;35356-0608-30
  1. ;;9002226.02101,"619,35356-0608-30 ",.02)
  1. ;;35356-0608-30
  1. ;;9002226.02101,"619,35356-0609-30 ",.01)
  1. ;;35356-0609-30
  1. ;;9002226.02101,"619,35356-0609-30 ",.02)
  1. ;;35356-0609-30
  1. ;;9002226.02101,"619,35356-0609-60 ",.01)
  1. ;;35356-0609-60
  1. ;;9002226.02101,"619,35356-0609-60 ",.02)
  1. ;;35356-0609-60
  1. ;;9002226.02101,"619,35356-0610-30 ",.01)
  1. ;;35356-0610-30
  1. ;;9002226.02101,"619,35356-0610-30 ",.02)
  1. ;;35356-0610-30
  1. ;;9002226.02101,"619,35356-0610-60 ",.01)
  1. ;;35356-0610-60
  1. ;;9002226.02101,"619,35356-0610-60 ",.02)
  1. ;;35356-0610-60
  1. ;;9002226.02101,"619,35356-0611-30 ",.01)
  1. ;;35356-0611-30
  1. ;;9002226.02101,"619,35356-0611-30 ",.02)
  1. ;;35356-0611-30
  1. ;;9002226.02101,"619,35356-0611-60 ",.01)
  1. ;;35356-0611-60
  1. ;;9002226.02101,"619,35356-0611-60 ",.02)
  1. ;;35356-0611-60
  1. ;;9002226.02101,"619,35356-0611-90 ",.01)
  1. ;;35356-0611-90
  1. ;;9002226.02101,"619,35356-0611-90 ",.02)
  1. ;;35356-0611-90
  1. ;;9002226.02101,"619,35356-0626-30 ",.01)
  1. ;;35356-0626-30
  1. ;;9002226.02101,"619,35356-0626-30 ",.02)
  1. ;;35356-0626-30
  1. ;;9002226.02101,"619,35356-0630-30 ",.01)
  1. ;;35356-0630-30
  1. ;;9002226.02101,"619,35356-0630-30 ",.02)
  1. ;;35356-0630-30
  1. ;;9002226.02101,"619,35356-0630-60 ",.01)
  1. ;;35356-0630-60
  1. ;;9002226.02101,"619,35356-0630-60 ",.02)
  1. ;;35356-0630-60
  1. ;;9002226.02101,"619,35356-0632-05 ",.01)
  1. ;;35356-0632-05
  1. ;;9002226.02101,"619,35356-0632-05 ",.02)
  1. ;;35356-0632-05
  1. ;;9002226.02101,"619,35356-0633-05 ",.01)
  1. ;;35356-0633-05
  1. ;;9002226.02101,"619,35356-0633-05 ",.02)
  1. ;;35356-0633-05
  1. ;;9002226.02101,"619,35356-0634-05 ",.01)
  1. ;;35356-0634-05
  1. ;;9002226.02101,"619,35356-0634-05 ",.02)
  1. ;;35356-0634-05
  1. ;;9002226.02101,"619,35356-0635-05 ",.01)
  1. ;;35356-0635-05
  1. ;;9002226.02101,"619,35356-0635-05 ",.02)
  1. ;;35356-0635-05
  1. ;;9002226.02101,"619,35356-0636-05 ",.01)
  1. ;;35356-0636-05
  1. ;;9002226.02101,"619,35356-0636-05 ",.02)
  1. ;;35356-0636-05
  1. ;;9002226.02101,"619,35356-0637-05 ",.01)
  1. ;;35356-0637-05
  1. ;;9002226.02101,"619,35356-0637-05 ",.02)
  1. ;;35356-0637-05
  1. ;;9002226.02101,"619,35356-0638-05 ",.01)
  1. ;;35356-0638-05
  1. ;;9002226.02101,"619,35356-0638-05 ",.02)
  1. ;;35356-0638-05
  1. ;;9002226.02101,"619,35356-0639-05 ",.01)
  1. ;;35356-0639-05
  1. ;;9002226.02101,"619,35356-0639-05 ",.02)
  1. ;;35356-0639-05
  1. ;;9002226.02101,"619,35356-0643-01 ",.01)
  1. ;;35356-0643-01
  1. ;;9002226.02101,"619,35356-0643-01 ",.02)
  1. ;;35356-0643-01
  1. ;;9002226.02101,"619,35356-0643-30 ",.01)
  1. ;;35356-0643-30
  1. ;;9002226.02101,"619,35356-0643-30 ",.02)
  1. ;;35356-0643-30
  1. ;;9002226.02101,"619,35356-0648-40 ",.01)
  1. ;;35356-0648-40
  1. ;;9002226.02101,"619,35356-0648-40 ",.02)
  1. ;;35356-0648-40
  1. ;;9002226.02101,"619,35356-0655-30 ",.01)
  1. ;;35356-0655-30
  1. ;;9002226.02101,"619,35356-0655-30 ",.02)
  1. ;;35356-0655-30
  1. ;;9002226.02101,"619,35356-0655-60 ",.01)
  1. ;;35356-0655-60
  1. ;;9002226.02101,"619,35356-0655-60 ",.02)
  1. ;;35356-0655-60
  1. ;;9002226.02101,"619,35356-0659-01 ",.01)
  1. ;;35356-0659-01
  1. ;;9002226.02101,"619,35356-0659-01 ",.02)
  1. ;;35356-0659-01
  1. ;;9002226.02101,"619,35356-0659-08 ",.01)
  1. ;;35356-0659-08
  1. ;;9002226.02101,"619,35356-0659-08 ",.02)
  1. ;;35356-0659-08
  1. ;;9002226.02101,"619,35356-0659-12 ",.01)
  1. ;;35356-0659-12
  1. ;;9002226.02101,"619,35356-0659-12 ",.02)
  1. ;;35356-0659-12
  1. ;;9002226.02101,"619,35356-0659-15 ",.01)
  1. ;;35356-0659-15
  1. ;;9002226.02101,"619,35356-0659-15 ",.02)
  1. ;;35356-0659-15
  1. ;;9002226.02101,"619,35356-0659-18 ",.01)
  1. ;;35356-0659-18
  1. ;;9002226.02101,"619,35356-0659-18 ",.02)
  1. ;;35356-0659-18
  1. ;;9002226.02101,"619,35356-0659-20 ",.01)
  1. ;;35356-0659-20
  1. ;;9002226.02101,"619,35356-0659-20 ",.02)
  1. ;;35356-0659-20
  1. ;;9002226.02101,"619,35356-0659-24 ",.01)
  1. ;;35356-0659-24
  1. ;;9002226.02101,"619,35356-0659-24 ",.02)
  1. ;;35356-0659-24
  1. ;;9002226.02101,"619,35356-0659-30 ",.01)
  1. ;;35356-0659-30
  1. ;;9002226.02101,"619,35356-0659-30 ",.02)
  1. ;;35356-0659-30
  1. ;;9002226.02101,"619,35356-0659-40 ",.01)
  1. ;;35356-0659-40
  1. ;;9002226.02101,"619,35356-0659-40 ",.02)
  1. ;;35356-0659-40
  1. ;;9002226.02101,"619,35356-0659-60 ",.01)
  1. ;;35356-0659-60
  1. ;;9002226.02101,"619,35356-0659-60 ",.02)
  1. ;;35356-0659-60
  1. ;;9002226.02101,"619,35356-0659-90 ",.01)
  1. ;;35356-0659-90
  1. ;;9002226.02101,"619,35356-0659-90 ",.02)
  1. ;;35356-0659-90
  1. ;;9002226.02101,"619,35356-0660-60 ",.01)
  1. ;;35356-0660-60
  1. ;;9002226.02101,"619,35356-0660-60 ",.02)
  1. ;;35356-0660-60
  1. ;;9002226.02101,"619,35356-0661-30 ",.01)
  1. ;;35356-0661-30
  1. ;;9002226.02101,"619,35356-0661-30 ",.02)
  1. ;;35356-0661-30
  1. ;;9002226.02101,"619,35356-0706-01 ",.01)
  1. ;;35356-0706-01
  1. ;;9002226.02101,"619,35356-0706-01 ",.02)
  1. ;;35356-0706-01
  1. ;;9002226.02101,"619,35356-0706-08 ",.01)
  1. ;;35356-0706-08
  1. ;;9002226.02101,"619,35356-0706-08 ",.02)
  1. ;;35356-0706-08
  1. ;;9002226.02101,"619,35356-0706-30 ",.01)
  1. ;;35356-0706-30
  1. ;;9002226.02101,"619,35356-0706-30 ",.02)
  1. ;;35356-0706-30
  1. ;;9002226.02101,"619,35356-0706-40 ",.01)
  1. ;;35356-0706-40
  1. ;;9002226.02101,"619,35356-0706-40 ",.02)
  1. ;;35356-0706-40
  1. ;;9002226.02101,"619,35356-0706-60 ",.01)
  1. ;;35356-0706-60
  1. ;;9002226.02101,"619,35356-0706-60 ",.02)
  1. ;;35356-0706-60
  1. ;;9002226.02101,"619,35356-0706-90 ",.01)
  1. ;;35356-0706-90
  1. ;;9002226.02101,"619,35356-0706-90 ",.02)
  1. ;;35356-0706-90
  1. ;;9002226.02101,"619,35356-0761-60 ",.01)
  1. ;;35356-0761-60
  1. ;;9002226.02101,"619,35356-0761-60 ",.02)
  1. ;;35356-0761-60
  1. ;;9002226.02101,"619,35356-0762-60 ",.01)
  1. ;;35356-0762-60