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

BGP61V5.m

Go to the documentation of this file.
  1. BGP61V5 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  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,"614,40204-0 ",.02)
  1. ;;40204-0
  1. ;;9002226.02101,"614,40205-7 ",.01)
  1. ;;40205-7
  1. ;;9002226.02101,"614,40205-7 ",.02)
  1. ;;40205-7
  1. ;;9002226.02101,"614,40206-5 ",.01)
  1. ;;40206-5
  1. ;;9002226.02101,"614,40206-5 ",.02)
  1. ;;40206-5
  1. ;;9002226.02101,"614,40207-3 ",.01)
  1. ;;40207-3
  1. ;;9002226.02101,"614,40207-3 ",.02)
  1. ;;40207-3
  1. ;;9002226.02101,"614,40208-1 ",.01)
  1. ;;40208-1
  1. ;;9002226.02101,"614,40208-1 ",.02)
  1. ;;40208-1
  1. ;;9002226.02101,"614,40209-9 ",.01)
  1. ;;40209-9
  1. ;;9002226.02101,"614,40209-9 ",.02)
  1. ;;40209-9
  1. ;;9002226.02101,"614,40210-7 ",.01)
  1. ;;40210-7
  1. ;;9002226.02101,"614,40210-7 ",.02)
  1. ;;40210-7
  1. ;;9002226.02101,"614,40211-5 ",.01)
  1. ;;40211-5
  1. ;;9002226.02101,"614,40211-5 ",.02)
  1. ;;40211-5
  1. ;;9002226.02101,"614,40212-3 ",.01)
  1. ;;40212-3
  1. ;;9002226.02101,"614,40212-3 ",.02)
  1. ;;40212-3
  1. ;;9002226.02101,"614,40213-1 ",.01)
  1. ;;40213-1
  1. ;;9002226.02101,"614,40213-1 ",.02)
  1. ;;40213-1
  1. ;;9002226.02101,"614,40214-9 ",.01)
  1. ;;40214-9
  1. ;;9002226.02101,"614,40214-9 ",.02)
  1. ;;40214-9
  1. ;;9002226.02101,"614,40215-6 ",.01)
  1. ;;40215-6
  1. ;;9002226.02101,"614,40215-6 ",.02)
  1. ;;40215-6
  1. ;;9002226.02101,"614,40216-4 ",.01)
  1. ;;40216-4
  1. ;;9002226.02101,"614,40216-4 ",.02)
  1. ;;40216-4
  1. ;;9002226.02101,"614,40217-2 ",.01)
  1. ;;40217-2
  1. ;;9002226.02101,"614,40217-2 ",.02)
  1. ;;40217-2
  1. ;;9002226.02101,"614,40218-0 ",.01)
  1. ;;40218-0
  1. ;;9002226.02101,"614,40218-0 ",.02)
  1. ;;40218-0
  1. ;;9002226.02101,"614,40219-8 ",.01)
  1. ;;40219-8
  1. ;;9002226.02101,"614,40219-8 ",.02)
  1. ;;40219-8
  1. ;;9002226.02101,"614,40220-6 ",.01)
  1. ;;40220-6
  1. ;;9002226.02101,"614,40220-6 ",.02)
  1. ;;40220-6
  1. ;;9002226.02101,"614,40221-4 ",.01)
  1. ;;40221-4
  1. ;;9002226.02101,"614,40221-4 ",.02)
  1. ;;40221-4
  1. ;;9002226.02101,"614,40222-2 ",.01)
  1. ;;40222-2
  1. ;;9002226.02101,"614,40222-2 ",.02)
  1. ;;40222-2
  1. ;;9002226.02101,"614,40259-4 ",.01)
  1. ;;40259-4
  1. ;;9002226.02101,"614,40259-4 ",.02)
  1. ;;40259-4
  1. ;;9002226.02101,"614,40260-2 ",.01)
  1. ;;40260-2
  1. ;;9002226.02101,"614,40260-2 ",.02)
  1. ;;40260-2
  1. ;;9002226.02101,"614,40261-0 ",.01)
  1. ;;40261-0
  1. ;;9002226.02101,"614,40261-0 ",.02)
  1. ;;40261-0
  1. ;;9002226.02101,"614,40262-8 ",.01)
  1. ;;40262-8
  1. ;;9002226.02101,"614,40262-8 ",.02)
  1. ;;40262-8
  1. ;;9002226.02101,"614,40263-6 ",.01)
  1. ;;40263-6
  1. ;;9002226.02101,"614,40263-6 ",.02)
  1. ;;40263-6
  1. ;;9002226.02101,"614,40276-8 ",.01)
  1. ;;40276-8
  1. ;;9002226.02101,"614,40276-8 ",.02)
  1. ;;40276-8
  1. ;;9002226.02101,"614,40277-6 ",.01)
  1. ;;40277-6
  1. ;;9002226.02101,"614,40277-6 ",.02)
  1. ;;40277-6
  1. ;;9002226.02101,"614,40278-4 ",.01)
  1. ;;40278-4
  1. ;;9002226.02101,"614,40278-4 ",.02)
  1. ;;40278-4
  1. ;;9002226.02101,"614,40279-2 ",.01)
  1. ;;40279-2
  1. ;;9002226.02101,"614,40279-2 ",.02)
  1. ;;40279-2
  1. ;;9002226.02101,"614,40280-0 ",.01)
  1. ;;40280-0
  1. ;;9002226.02101,"614,40280-0 ",.02)
  1. ;;40280-0
  1. ;;9002226.02101,"614,40285-9 ",.01)
  1. ;;40285-9
  1. ;;9002226.02101,"614,40285-9 ",.02)
  1. ;;40285-9
  1. ;;9002226.02101,"614,40286-7 ",.01)
  1. ;;40286-7
  1. ;;9002226.02101,"614,40286-7 ",.02)
  1. ;;40286-7
  1. ;;9002226.02101,"614,40287-5 ",.01)
  1. ;;40287-5
  1. ;;9002226.02101,"614,40287-5 ",.02)
  1. ;;40287-5
  1. ;;9002226.02101,"614,40318-8 ",.01)
  1. ;;40318-8
  1. ;;9002226.02101,"614,40318-8 ",.02)
  1. ;;40318-8
  1. ;;9002226.02101,"614,40319-6 ",.01)
  1. ;;40319-6
  1. ;;9002226.02101,"614,40319-6 ",.02)
  1. ;;40319-6
  1. ;;9002226.02101,"614,40320-4 ",.01)
  1. ;;40320-4
  1. ;;9002226.02101,"614,40320-4 ",.02)
  1. ;;40320-4
  1. ;;9002226.02101,"614,40321-2 ",.01)
  1. ;;40321-2
  1. ;;9002226.02101,"614,40321-2 ",.02)
  1. ;;40321-2
  1. ;;9002226.02101,"614,40322-0 ",.01)
  1. ;;40322-0
  1. ;;9002226.02101,"614,40322-0 ",.02)
  1. ;;40322-0
  1. ;;9002226.02101,"614,40323-8 ",.01)
  1. ;;40323-8
  1. ;;9002226.02101,"614,40323-8 ",.02)
  1. ;;40323-8
  1. ;;9002226.02101,"614,40324-6 ",.01)
  1. ;;40324-6
  1. ;;9002226.02101,"614,40324-6 ",.02)
  1. ;;40324-6
  1. ;;9002226.02101,"614,40858-3 ",.01)
  1. ;;40858-3
  1. ;;9002226.02101,"614,40858-3 ",.02)
  1. ;;40858-3
  1. ;;9002226.02101,"614,40875-7 ",.01)
  1. ;;40875-7
  1. ;;9002226.02101,"614,40875-7 ",.02)
  1. ;;40875-7
  1. ;;9002226.02101,"614,41024-1 ",.01)
  1. ;;41024-1
  1. ;;9002226.02101,"614,41024-1 ",.02)
  1. ;;41024-1
  1. ;;9002226.02101,"614,41604-0 ",.01)
  1. ;;41604-0
  1. ;;9002226.02101,"614,41604-0 ",.02)
  1. ;;41604-0
  1. ;;9002226.02101,"614,41651-1 ",.01)
  1. ;;41651-1
  1. ;;9002226.02101,"614,41651-1 ",.02)
  1. ;;41651-1
  1. ;;9002226.02101,"614,41652-9 ",.01)
  1. ;;41652-9
  1. ;;9002226.02101,"614,41652-9 ",.02)
  1. ;;41652-9
  1. ;;9002226.02101,"614,41653-7 ",.01)
  1. ;;41653-7
  1. ;;9002226.02101,"614,41653-7 ",.02)
  1. ;;41653-7
  1. ;;9002226.02101,"614,43740-0 ",.01)
  1. ;;43740-0
  1. ;;9002226.02101,"614,43740-0 ",.02)
  1. ;;43740-0
  1. ;;9002226.02101,"614,44919-9 ",.01)
  1. ;;44919-9
  1. ;;9002226.02101,"614,44919-9 ",.02)
  1. ;;44919-9
  1. ;;9002226.02101,"614,45052-8 ",.01)
  1. ;;45052-8
  1. ;;9002226.02101,"614,45052-8 ",.02)
  1. ;;45052-8
  1. ;;9002226.02101,"614,45053-6 ",.01)
  1. ;;45053-6
  1. ;;9002226.02101,"614,45053-6 ",.02)
  1. ;;45053-6
  1. ;;9002226.02101,"614,45054-4 ",.01)
  1. ;;45054-4
  1. ;;9002226.02101,"614,45054-4 ",.02)
  1. ;;45054-4
  1. ;;9002226.02101,"614,45055-1 ",.01)
  1. ;;45055-1
  1. ;;9002226.02101,"614,45055-1 ",.02)
  1. ;;45055-1
  1. ;;9002226.02101,"614,45056-9 ",.01)
  1. ;;45056-9
  1. ;;9002226.02101,"614,45056-9 ",.02)
  1. ;;45056-9
  1. ;;9002226.02101,"614,45298-7 ",.01)
  1. ;;45298-7
  1. ;;9002226.02101,"614,45298-7 ",.02)
  1. ;;45298-7
  1. ;;9002226.02101,"614,45299-5 ",.01)
  1. ;;45299-5
  1. ;;9002226.02101,"614,45299-5 ",.02)
  1. ;;45299-5
  1. ;;9002226.02101,"614,47622-6 ",.01)
  1. ;;47622-6
  1. ;;9002226.02101,"614,47622-6 ",.02)
  1. ;;47622-6
  1. ;;9002226.02101,"614,47859-4 ",.01)
  1. ;;47859-4
  1. ;;9002226.02101,"614,47859-4 ",.02)
  1. ;;47859-4
  1. ;;9002226.02101,"614,47995-6 ",.01)
  1. ;;47995-6
  1. ;;9002226.02101,"614,47995-6 ",.02)
  1. ;;47995-6
  1. ;;9002226.02101,"614,48109-3 ",.01)
  1. ;;48109-3
  1. ;;9002226.02101,"614,48109-3 ",.02)
  1. ;;48109-3
  1. ;;9002226.02101,"614,48605-0 ",.01)
  1. ;;48605-0
  1. ;;9002226.02101,"614,48605-0 ",.02)
  1. ;;48605-0
  1. ;;9002226.02101,"614,48606-8 ",.01)
  1. ;;48606-8
  1. ;;9002226.02101,"614,48606-8 ",.02)
  1. ;;48606-8
  1. ;;9002226.02101,"614,48607-6 ",.01)
  1. ;;48607-6
  1. ;;9002226.02101,"614,48607-6 ",.02)
  1. ;;48607-6
  1. ;;9002226.02101,"614,48810-6 ",.01)
  1. ;;48810-6
  1. ;;9002226.02101,"614,48810-6 ",.02)
  1. ;;48810-6
  1. ;;9002226.02101,"614,48983-1 ",.01)
  1. ;;48983-1
  1. ;;9002226.02101,"614,48983-1 ",.02)
  1. ;;48983-1
  1. ;;9002226.02101,"614,48984-9 ",.01)
  1. ;;48984-9
  1. ;;9002226.02101,"614,48984-9 ",.02)
  1. ;;48984-9
  1. ;;9002226.02101,"614,48985-6 ",.01)
  1. ;;48985-6
  1. ;;9002226.02101,"614,48985-6 ",.02)
  1. ;;48985-6
  1. ;;9002226.02101,"614,48986-4 ",.01)
  1. ;;48986-4
  1. ;;9002226.02101,"614,48986-4 ",.02)
  1. ;;48986-4
  1. ;;9002226.02101,"614,48988-0 ",.01)
  1. ;;48988-0
  1. ;;9002226.02101,"614,48988-0 ",.02)
  1. ;;48988-0
  1. ;;9002226.02101,"614,48989-8 ",.01)
  1. ;;48989-8
  1. ;;9002226.02101,"614,48989-8 ",.02)
  1. ;;48989-8
  1. ;;9002226.02101,"614,48990-6 ",.01)
  1. ;;48990-6
  1. ;;9002226.02101,"614,48990-6 ",.02)
  1. ;;48990-6
  1. ;;9002226.02101,"614,48991-4 ",.01)
  1. ;;48991-4
  1. ;;9002226.02101,"614,48991-4 ",.02)
  1. ;;48991-4
  1. ;;9002226.02101,"614,48992-2 ",.01)
  1. ;;48992-2
  1. ;;9002226.02101,"614,48992-2 ",.02)
  1. ;;48992-2
  1. ;;9002226.02101,"614,48993-0 ",.01)
  1. ;;48993-0
  1. ;;9002226.02101,"614,48993-0 ",.02)
  1. ;;48993-0
  1. ;;9002226.02101,"614,48994-8 ",.01)
  1. ;;48994-8
  1. ;;9002226.02101,"614,48994-8 ",.02)
  1. ;;48994-8
  1. ;;9002226.02101,"614,49134-0 ",.01)
  1. ;;49134-0
  1. ;;9002226.02101,"614,49134-0 ",.02)
  1. ;;49134-0
  1. ;;9002226.02101,"614,49688-5 ",.01)
  1. ;;49688-5
  1. ;;9002226.02101,"614,49688-5 ",.02)
  1. ;;49688-5
  1. ;;9002226.02101,"614,49689-3 ",.01)
  1. ;;49689-3
  1. ;;9002226.02101,"614,49689-3 ",.02)
  1. ;;49689-3
  1. ;;9002226.02101,"614,50206-2 ",.01)
  1. ;;50206-2
  1. ;;9002226.02101,"614,50206-2 ",.02)
  1. ;;50206-2
  1. ;;9002226.02101,"614,50207-0 ",.01)
  1. ;;50207-0
  1. ;;9002226.02101,"614,50207-0 ",.02)
  1. ;;50207-0
  1. ;;9002226.02101,"614,50208-8 ",.01)
  1. ;;50208-8
  1. ;;9002226.02101,"614,50208-8 ",.02)
  1. ;;50208-8
  1. ;;9002226.02101,"614,50212-0 ",.01)
  1. ;;50212-0
  1. ;;9002226.02101,"614,50212-0 ",.02)
  1. ;;50212-0
  1. ;;9002226.02101,"614,50213-8 ",.01)
  1. ;;50213-8
  1. ;;9002226.02101,"614,50213-8 ",.02)
  1. ;;50213-8
  1. ;;9002226.02101,"614,50214-6 ",.01)
  1. ;;50214-6
  1. ;;9002226.02101,"614,50214-6 ",.02)
  1. ;;50214-6
  1. ;;9002226.02101,"614,50215-3 ",.01)
  1. ;;50215-3
  1. ;;9002226.02101,"614,50215-3 ",.02)
  1. ;;50215-3
  1. ;;9002226.02101,"614,50216-1 ",.01)
  1. ;;50216-1
  1. ;;9002226.02101,"614,50216-1 ",.02)
  1. ;;50216-1
  1. ;;9002226.02101,"614,50217-9 ",.01)
  1. ;;50217-9
  1. ;;9002226.02101,"614,50217-9 ",.02)
  1. ;;50217-9
  1. ;;9002226.02101,"614,50218-7 ",.01)
  1. ;;50218-7
  1. ;;9002226.02101,"614,50218-7 ",.02)
  1. ;;50218-7
  1. ;;9002226.02101,"614,50586-7 ",.01)
  1. ;;50586-7
  1. ;;9002226.02101,"614,50586-7 ",.02)
  1. ;;50586-7
  1. ;;9002226.02101,"614,50587-5 ",.01)
  1. ;;50587-5
  1. ;;9002226.02101,"614,50587-5 ",.02)
  1. ;;50587-5
  1. ;;9002226.02101,"614,50588-3 ",.01)
  1. ;;50588-3
  1. ;;9002226.02101,"614,50588-3 ",.02)
  1. ;;50588-3
  1. ;;9002226.02101,"614,50589-1 ",.01)
  1. ;;50589-1
  1. ;;9002226.02101,"614,50589-1 ",.02)
  1. ;;50589-1
  1. ;;9002226.02101,"614,50608-9 ",.01)
  1. ;;50608-9
  1. ;;9002226.02101,"614,50608-9 ",.02)
  1. ;;50608-9
  1. ;;9002226.02101,"614,50667-5 ",.01)
  1. ;;50667-5
  1. ;;9002226.02101,"614,50667-5 ",.02)
  1. ;;50667-5
  1. ;;9002226.02101,"614,50751-7 ",.01)
  1. ;;50751-7
  1. ;;9002226.02101,"614,50751-7 ",.02)
  1. ;;50751-7
  1. ;;9002226.02101,"614,51426-5 ",.01)
  1. ;;51426-5
  1. ;;9002226.02101,"614,51426-5 ",.02)
  1. ;;51426-5
  1. ;;9002226.02101,"614,51596-5 ",.01)
  1. ;;51596-5
  1. ;;9002226.02101,"614,51596-5 ",.02)
  1. ;;51596-5
  1. ;;9002226.02101,"614,51597-3 ",.01)
  1. ;;51597-3
  1. ;;9002226.02101,"614,51597-3 ",.02)
  1. ;;51597-3
  1. ;;9002226.02101,"614,51766-4 ",.01)
  1. ;;51766-4
  1. ;;9002226.02101,"614,51766-4 ",.02)
  1. ;;51766-4
  1. ;;9002226.02101,"614,51767-2 ",.01)
  1. ;;51767-2
  1. ;;9002226.02101,"614,51767-2 ",.02)
  1. ;;51767-2
  1. ;;9002226.02101,"614,51768-0 ",.01)
  1. ;;51768-0
  1. ;;9002226.02101,"614,51768-0 ",.02)
  1. ;;51768-0
  1. ;;9002226.02101,"614,51769-8 ",.01)
  1. ;;51769-8
  1. ;;9002226.02101,"614,51769-8 ",.02)
  1. ;;51769-8
  1. ;;9002226.02101,"614,53049-3 ",.01)
  1. ;;53049-3
  1. ;;9002226.02101,"614,53049-3 ",.02)
  1. ;;53049-3
  1. ;;9002226.02101,"614,53093-1 ",.01)
  1. ;;53093-1
  1. ;;9002226.02101,"614,53093-1 ",.02)
  1. ;;53093-1
  1. ;;9002226.02101,"614,53094-9 ",.01)
  1. ;;53094-9
  1. ;;9002226.02101,"614,53094-9 ",.02)
  1. ;;53094-9
  1. ;;9002226.02101,"614,53474-3 ",.01)
  1. ;;53474-3
  1. ;;9002226.02101,"614,53474-3 ",.02)
  1. ;;53474-3
  1. ;;9002226.02101,"614,53475-0 ",.01)
  1. ;;53475-0
  1. ;;9002226.02101,"614,53475-0 ",.02)
  1. ;;53475-0
  1. ;;9002226.02101,"614,53476-8 ",.01)
  1. ;;53476-8
  1. ;;9002226.02101,"614,53476-8 ",.02)
  1. ;;53476-8
  1. ;;9002226.02101,"614,53480-0 ",.01)
  1. ;;53480-0
  1. ;;9002226.02101,"614,53480-0 ",.02)
  1. ;;53480-0
  1. ;;9002226.02101,"614,53481-8 ",.01)
  1. ;;53481-8
  1. ;;9002226.02101,"614,53481-8 ",.02)
  1. ;;53481-8
  1. ;;9002226.02101,"614,53482-6 ",.01)
  1. ;;53482-6
  1. ;;9002226.02101,"614,53482-6 ",.02)
  1. ;;53482-6
  1. ;;9002226.02101,"614,53483-4 ",.01)
  1. ;;53483-4
  1. ;;9002226.02101,"614,53483-4 ",.02)
  1. ;;53483-4
  1. ;;9002226.02101,"614,53484-2 ",.01)
  1. ;;53484-2
  1. ;;9002226.02101,"614,53484-2 ",.02)
  1. ;;53484-2
  1. ;;9002226.02101,"614,53485-9 ",.01)
  1. ;;53485-9
  1. ;;9002226.02101,"614,53485-9 ",.02)
  1. ;;53485-9
  1. ;;9002226.02101,"614,53486-7 ",.01)
  1. ;;53486-7
  1. ;;9002226.02101,"614,53486-7 ",.02)
  1. ;;53486-7
  1. ;;9002226.02101,"614,53487-5 ",.01)
  1. ;;53487-5
  1. ;;9002226.02101,"614,53487-5 ",.02)
  1. ;;53487-5
  1. ;;9002226.02101,"614,53553-4 ",.01)
  1. ;;53553-4
  1. ;;9002226.02101,"614,53553-4 ",.02)
  1. ;;53553-4
  1. ;;9002226.02101,"614,53928-8 ",.01)
  1. ;;53928-8
  1. ;;9002226.02101,"614,53928-8 ",.02)
  1. ;;53928-8
  1. ;;9002226.02101,"614,53929-6 ",.01)
  1. ;;53929-6
  1. ;;9002226.02101,"614,53929-6 ",.02)
  1. ;;53929-6
  1. ;;9002226.02101,"614,54248-0 ",.01)
  1. ;;54248-0
  1. ;;9002226.02101,"614,54248-0 ",.02)
  1. ;;54248-0
  1. ;;9002226.02101,"614,54249-8 ",.01)
  1. ;;54249-8
  1. ;;9002226.02101,"614,54249-8 ",.02)
  1. ;;54249-8
  1. ;;9002226.02101,"614,54250-6 ",.01)
  1. ;;54250-6
  1. ;;9002226.02101,"614,54250-6 ",.02)
  1. ;;54250-6
  1. ;;9002226.02101,"614,54251-4 ",.01)
  1. ;;54251-4
  1. ;;9002226.02101,"614,54251-4 ",.02)
  1. ;;54251-4
  1. ;;9002226.02101,"614,54252-2 ",.01)
  1. ;;54252-2
  1. ;;9002226.02101,"614,54252-2 ",.02)
  1. ;;54252-2
  1. ;;9002226.02101,"614,54253-0 ",.01)
  1. ;;54253-0
  1. ;;9002226.02101,"614,54253-0 ",.02)
  1. ;;54253-0
  1. ;;9002226.02101,"614,54254-8 ",.01)
  1. ;;54254-8
  1. ;;9002226.02101,"614,54254-8 ",.02)
  1. ;;54254-8
  1. ;;9002226.02101,"614,54255-5 ",.01)
  1. ;;54255-5
  1. ;;9002226.02101,"614,54255-5 ",.02)
  1. ;;54255-5
  1. ;;9002226.02101,"614,54256-3 ",.01)
  1. ;;54256-3
  1. ;;9002226.02101,"614,54256-3 ",.02)
  1. ;;54256-3