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

BGP61V4.m

Go to the documentation of this file.
  1. BGP61V4 ; 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,30346-1 ",.01)
  1. ;;30346-1
  1. ;;9002226.02101,"614,30346-1 ",.02)
  1. ;;30346-1
  1. ;;9002226.02101,"614,32016-8 ",.01)
  1. ;;32016-8
  1. ;;9002226.02101,"614,32016-8 ",.02)
  1. ;;32016-8
  1. ;;9002226.02101,"614,32319-6 ",.01)
  1. ;;32319-6
  1. ;;9002226.02101,"614,32319-6 ",.02)
  1. ;;32319-6
  1. ;;9002226.02101,"614,32320-4 ",.01)
  1. ;;32320-4
  1. ;;9002226.02101,"614,32320-4 ",.02)
  1. ;;32320-4
  1. ;;9002226.02101,"614,32321-2 ",.01)
  1. ;;32321-2
  1. ;;9002226.02101,"614,32321-2 ",.02)
  1. ;;32321-2
  1. ;;9002226.02101,"614,32322-0 ",.01)
  1. ;;32322-0
  1. ;;9002226.02101,"614,32322-0 ",.02)
  1. ;;32322-0
  1. ;;9002226.02101,"614,32359-2 ",.01)
  1. ;;32359-2
  1. ;;9002226.02101,"614,32359-2 ",.02)
  1. ;;32359-2
  1. ;;9002226.02101,"614,32820-3 ",.01)
  1. ;;32820-3
  1. ;;9002226.02101,"614,32820-3 ",.02)
  1. ;;32820-3
  1. ;;9002226.02101,"614,33024-1 ",.01)
  1. ;;33024-1
  1. ;;9002226.02101,"614,33024-1 ",.02)
  1. ;;33024-1
  1. ;;9002226.02101,"614,34056-2 ",.01)
  1. ;;34056-2
  1. ;;9002226.02101,"614,34056-2 ",.02)
  1. ;;34056-2
  1. ;;9002226.02101,"614,34057-0 ",.01)
  1. ;;34057-0
  1. ;;9002226.02101,"614,34057-0 ",.02)
  1. ;;34057-0
  1. ;;9002226.02101,"614,34058-8 ",.01)
  1. ;;34058-8
  1. ;;9002226.02101,"614,34058-8 ",.02)
  1. ;;34058-8
  1. ;;9002226.02101,"614,34059-6 ",.01)
  1. ;;34059-6
  1. ;;9002226.02101,"614,34059-6 ",.02)
  1. ;;34059-6
  1. ;;9002226.02101,"614,34060-4 ",.01)
  1. ;;34060-4
  1. ;;9002226.02101,"614,34060-4 ",.02)
  1. ;;34060-4
  1. ;;9002226.02101,"614,35184-1 ",.01)
  1. ;;35184-1
  1. ;;9002226.02101,"614,35184-1 ",.02)
  1. ;;35184-1
  1. ;;9002226.02101,"614,35211-2 ",.01)
  1. ;;35211-2
  1. ;;9002226.02101,"614,35211-2 ",.02)
  1. ;;35211-2
  1. ;;9002226.02101,"614,39480-9 ",.01)
  1. ;;39480-9
  1. ;;9002226.02101,"614,39480-9 ",.02)
  1. ;;39480-9
  1. ;;9002226.02101,"614,39481-7 ",.01)
  1. ;;39481-7
  1. ;;9002226.02101,"614,39481-7 ",.02)
  1. ;;39481-7
  1. ;;9002226.02101,"614,39561-6 ",.01)
  1. ;;39561-6
  1. ;;9002226.02101,"614,39561-6 ",.02)
  1. ;;39561-6
  1. ;;9002226.02101,"614,39562-4 ",.01)
  1. ;;39562-4
  1. ;;9002226.02101,"614,39562-4 ",.02)
  1. ;;39562-4
  1. ;;9002226.02101,"614,39563-2 ",.01)
  1. ;;39563-2
  1. ;;9002226.02101,"614,39563-2 ",.02)
  1. ;;39563-2
  1. ;;9002226.02101,"614,39997-2 ",.01)
  1. ;;39997-2
  1. ;;9002226.02101,"614,39997-2 ",.02)
  1. ;;39997-2
  1. ;;9002226.02101,"614,39998-0 ",.01)
  1. ;;39998-0
  1. ;;9002226.02101,"614,39998-0 ",.02)
  1. ;;39998-0
  1. ;;9002226.02101,"614,39999-8 ",.01)
  1. ;;39999-8
  1. ;;9002226.02101,"614,39999-8 ",.02)
  1. ;;39999-8
  1. ;;9002226.02101,"614,40000-2 ",.01)
  1. ;;40000-2
  1. ;;9002226.02101,"614,40000-2 ",.02)
  1. ;;40000-2
  1. ;;9002226.02101,"614,40001-0 ",.01)
  1. ;;40001-0
  1. ;;9002226.02101,"614,40001-0 ",.02)
  1. ;;40001-0
  1. ;;9002226.02101,"614,40002-8 ",.01)
  1. ;;40002-8
  1. ;;9002226.02101,"614,40002-8 ",.02)
  1. ;;40002-8
  1. ;;9002226.02101,"614,40003-6 ",.01)
  1. ;;40003-6
  1. ;;9002226.02101,"614,40003-6 ",.02)
  1. ;;40003-6
  1. ;;9002226.02101,"614,40004-4 ",.01)
  1. ;;40004-4
  1. ;;9002226.02101,"614,40004-4 ",.02)
  1. ;;40004-4
  1. ;;9002226.02101,"614,40005-1 ",.01)
  1. ;;40005-1
  1. ;;9002226.02101,"614,40005-1 ",.02)
  1. ;;40005-1
  1. ;;9002226.02101,"614,40006-9 ",.01)
  1. ;;40006-9
  1. ;;9002226.02101,"614,40006-9 ",.02)
  1. ;;40006-9
  1. ;;9002226.02101,"614,40007-7 ",.01)
  1. ;;40007-7
  1. ;;9002226.02101,"614,40007-7 ",.02)
  1. ;;40007-7
  1. ;;9002226.02101,"614,40008-5 ",.01)
  1. ;;40008-5
  1. ;;9002226.02101,"614,40008-5 ",.02)
  1. ;;40008-5
  1. ;;9002226.02101,"614,40009-3 ",.01)
  1. ;;40009-3
  1. ;;9002226.02101,"614,40009-3 ",.02)
  1. ;;40009-3
  1. ;;9002226.02101,"614,40010-1 ",.01)
  1. ;;40010-1
  1. ;;9002226.02101,"614,40010-1 ",.02)
  1. ;;40010-1
  1. ;;9002226.02101,"614,40011-9 ",.01)
  1. ;;40011-9
  1. ;;9002226.02101,"614,40011-9 ",.02)
  1. ;;40011-9
  1. ;;9002226.02101,"614,40012-7 ",.01)
  1. ;;40012-7
  1. ;;9002226.02101,"614,40012-7 ",.02)
  1. ;;40012-7
  1. ;;9002226.02101,"614,40013-5 ",.01)
  1. ;;40013-5
  1. ;;9002226.02101,"614,40013-5 ",.02)
  1. ;;40013-5
  1. ;;9002226.02101,"614,40014-3 ",.01)
  1. ;;40014-3
  1. ;;9002226.02101,"614,40014-3 ",.02)
  1. ;;40014-3
  1. ;;9002226.02101,"614,40015-0 ",.01)
  1. ;;40015-0
  1. ;;9002226.02101,"614,40015-0 ",.02)
  1. ;;40015-0
  1. ;;9002226.02101,"614,40016-8 ",.01)
  1. ;;40016-8
  1. ;;9002226.02101,"614,40016-8 ",.02)
  1. ;;40016-8
  1. ;;9002226.02101,"614,40017-6 ",.01)
  1. ;;40017-6
  1. ;;9002226.02101,"614,40017-6 ",.02)
  1. ;;40017-6
  1. ;;9002226.02101,"614,40018-4 ",.01)
  1. ;;40018-4
  1. ;;9002226.02101,"614,40018-4 ",.02)
  1. ;;40018-4
  1. ;;9002226.02101,"614,40019-2 ",.01)
  1. ;;40019-2
  1. ;;9002226.02101,"614,40019-2 ",.02)
  1. ;;40019-2
  1. ;;9002226.02101,"614,40020-0 ",.01)
  1. ;;40020-0
  1. ;;9002226.02101,"614,40020-0 ",.02)
  1. ;;40020-0
  1. ;;9002226.02101,"614,40021-8 ",.01)
  1. ;;40021-8
  1. ;;9002226.02101,"614,40021-8 ",.02)
  1. ;;40021-8
  1. ;;9002226.02101,"614,40022-6 ",.01)
  1. ;;40022-6
  1. ;;9002226.02101,"614,40022-6 ",.02)
  1. ;;40022-6
  1. ;;9002226.02101,"614,40023-4 ",.01)
  1. ;;40023-4
  1. ;;9002226.02101,"614,40023-4 ",.02)
  1. ;;40023-4
  1. ;;9002226.02101,"614,40024-2 ",.01)
  1. ;;40024-2
  1. ;;9002226.02101,"614,40024-2 ",.02)
  1. ;;40024-2
  1. ;;9002226.02101,"614,40025-9 ",.01)
  1. ;;40025-9
  1. ;;9002226.02101,"614,40025-9 ",.02)
  1. ;;40025-9
  1. ;;9002226.02101,"614,40026-7 ",.01)
  1. ;;40026-7
  1. ;;9002226.02101,"614,40026-7 ",.02)
  1. ;;40026-7
  1. ;;9002226.02101,"614,40027-5 ",.01)
  1. ;;40027-5
  1. ;;9002226.02101,"614,40027-5 ",.02)
  1. ;;40027-5
  1. ;;9002226.02101,"614,40028-3 ",.01)
  1. ;;40028-3
  1. ;;9002226.02101,"614,40028-3 ",.02)
  1. ;;40028-3
  1. ;;9002226.02101,"614,40029-1 ",.01)
  1. ;;40029-1
  1. ;;9002226.02101,"614,40029-1 ",.02)
  1. ;;40029-1
  1. ;;9002226.02101,"614,40030-9 ",.01)
  1. ;;40030-9
  1. ;;9002226.02101,"614,40030-9 ",.02)
  1. ;;40030-9
  1. ;;9002226.02101,"614,40031-7 ",.01)
  1. ;;40031-7
  1. ;;9002226.02101,"614,40031-7 ",.02)
  1. ;;40031-7
  1. ;;9002226.02101,"614,40032-5 ",.01)
  1. ;;40032-5
  1. ;;9002226.02101,"614,40032-5 ",.02)
  1. ;;40032-5
  1. ;;9002226.02101,"614,40033-3 ",.01)
  1. ;;40033-3
  1. ;;9002226.02101,"614,40033-3 ",.02)
  1. ;;40033-3
  1. ;;9002226.02101,"614,40034-1 ",.01)
  1. ;;40034-1
  1. ;;9002226.02101,"614,40034-1 ",.02)
  1. ;;40034-1
  1. ;;9002226.02101,"614,40035-8 ",.01)
  1. ;;40035-8
  1. ;;9002226.02101,"614,40035-8 ",.02)
  1. ;;40035-8
  1. ;;9002226.02101,"614,40036-6 ",.01)
  1. ;;40036-6
  1. ;;9002226.02101,"614,40036-6 ",.02)
  1. ;;40036-6
  1. ;;9002226.02101,"614,40037-4 ",.01)
  1. ;;40037-4
  1. ;;9002226.02101,"614,40037-4 ",.02)
  1. ;;40037-4
  1. ;;9002226.02101,"614,40038-2 ",.01)
  1. ;;40038-2
  1. ;;9002226.02101,"614,40038-2 ",.02)
  1. ;;40038-2
  1. ;;9002226.02101,"614,40039-0 ",.01)
  1. ;;40039-0
  1. ;;9002226.02101,"614,40039-0 ",.02)
  1. ;;40039-0
  1. ;;9002226.02101,"614,40040-8 ",.01)
  1. ;;40040-8
  1. ;;9002226.02101,"614,40040-8 ",.02)
  1. ;;40040-8
  1. ;;9002226.02101,"614,40041-6 ",.01)
  1. ;;40041-6
  1. ;;9002226.02101,"614,40041-6 ",.02)
  1. ;;40041-6
  1. ;;9002226.02101,"614,40042-4 ",.01)
  1. ;;40042-4
  1. ;;9002226.02101,"614,40042-4 ",.02)
  1. ;;40042-4
  1. ;;9002226.02101,"614,40043-2 ",.01)
  1. ;;40043-2
  1. ;;9002226.02101,"614,40043-2 ",.02)
  1. ;;40043-2
  1. ;;9002226.02101,"614,40044-0 ",.01)
  1. ;;40044-0
  1. ;;9002226.02101,"614,40044-0 ",.02)
  1. ;;40044-0
  1. ;;9002226.02101,"614,40045-7 ",.01)
  1. ;;40045-7
  1. ;;9002226.02101,"614,40045-7 ",.02)
  1. ;;40045-7
  1. ;;9002226.02101,"614,40148-9 ",.01)
  1. ;;40148-9
  1. ;;9002226.02101,"614,40148-9 ",.02)
  1. ;;40148-9
  1. ;;9002226.02101,"614,40149-7 ",.01)
  1. ;;40149-7
  1. ;;9002226.02101,"614,40149-7 ",.02)
  1. ;;40149-7
  1. ;;9002226.02101,"614,40150-5 ",.01)
  1. ;;40150-5
  1. ;;9002226.02101,"614,40150-5 ",.02)
  1. ;;40150-5
  1. ;;9002226.02101,"614,40151-3 ",.01)
  1. ;;40151-3
  1. ;;9002226.02101,"614,40151-3 ",.02)
  1. ;;40151-3
  1. ;;9002226.02101,"614,40152-1 ",.01)
  1. ;;40152-1
  1. ;;9002226.02101,"614,40152-1 ",.02)
  1. ;;40152-1
  1. ;;9002226.02101,"614,40153-9 ",.01)
  1. ;;40153-9
  1. ;;9002226.02101,"614,40153-9 ",.02)
  1. ;;40153-9
  1. ;;9002226.02101,"614,40154-7 ",.01)
  1. ;;40154-7
  1. ;;9002226.02101,"614,40154-7 ",.02)
  1. ;;40154-7
  1. ;;9002226.02101,"614,40155-4 ",.01)
  1. ;;40155-4
  1. ;;9002226.02101,"614,40155-4 ",.02)
  1. ;;40155-4
  1. ;;9002226.02101,"614,40156-2 ",.01)
  1. ;;40156-2
  1. ;;9002226.02101,"614,40156-2 ",.02)
  1. ;;40156-2
  1. ;;9002226.02101,"614,40157-0 ",.01)
  1. ;;40157-0
  1. ;;9002226.02101,"614,40157-0 ",.02)
  1. ;;40157-0
  1. ;;9002226.02101,"614,40158-8 ",.01)
  1. ;;40158-8
  1. ;;9002226.02101,"614,40158-8 ",.02)
  1. ;;40158-8
  1. ;;9002226.02101,"614,40159-6 ",.01)
  1. ;;40159-6
  1. ;;9002226.02101,"614,40159-6 ",.02)
  1. ;;40159-6
  1. ;;9002226.02101,"614,40160-4 ",.01)
  1. ;;40160-4
  1. ;;9002226.02101,"614,40160-4 ",.02)
  1. ;;40160-4
  1. ;;9002226.02101,"614,40161-2 ",.01)
  1. ;;40161-2
  1. ;;9002226.02101,"614,40161-2 ",.02)
  1. ;;40161-2
  1. ;;9002226.02101,"614,40162-0 ",.01)
  1. ;;40162-0
  1. ;;9002226.02101,"614,40162-0 ",.02)
  1. ;;40162-0
  1. ;;9002226.02101,"614,40163-8 ",.01)
  1. ;;40163-8
  1. ;;9002226.02101,"614,40163-8 ",.02)
  1. ;;40163-8
  1. ;;9002226.02101,"614,40164-6 ",.01)
  1. ;;40164-6
  1. ;;9002226.02101,"614,40164-6 ",.02)
  1. ;;40164-6
  1. ;;9002226.02101,"614,40165-3 ",.01)
  1. ;;40165-3
  1. ;;9002226.02101,"614,40165-3 ",.02)
  1. ;;40165-3
  1. ;;9002226.02101,"614,40166-1 ",.01)
  1. ;;40166-1
  1. ;;9002226.02101,"614,40166-1 ",.02)
  1. ;;40166-1
  1. ;;9002226.02101,"614,40167-9 ",.01)
  1. ;;40167-9
  1. ;;9002226.02101,"614,40167-9 ",.02)
  1. ;;40167-9
  1. ;;9002226.02101,"614,40168-7 ",.01)
  1. ;;40168-7
  1. ;;9002226.02101,"614,40168-7 ",.02)
  1. ;;40168-7
  1. ;;9002226.02101,"614,40169-5 ",.01)
  1. ;;40169-5
  1. ;;9002226.02101,"614,40169-5 ",.02)
  1. ;;40169-5
  1. ;;9002226.02101,"614,40170-3 ",.01)
  1. ;;40170-3
  1. ;;9002226.02101,"614,40170-3 ",.02)
  1. ;;40170-3
  1. ;;9002226.02101,"614,40171-1 ",.01)
  1. ;;40171-1
  1. ;;9002226.02101,"614,40171-1 ",.02)
  1. ;;40171-1
  1. ;;9002226.02101,"614,40172-9 ",.01)
  1. ;;40172-9
  1. ;;9002226.02101,"614,40172-9 ",.02)
  1. ;;40172-9
  1. ;;9002226.02101,"614,40173-7 ",.01)
  1. ;;40173-7
  1. ;;9002226.02101,"614,40173-7 ",.02)
  1. ;;40173-7
  1. ;;9002226.02101,"614,40174-5 ",.01)
  1. ;;40174-5
  1. ;;9002226.02101,"614,40174-5 ",.02)
  1. ;;40174-5
  1. ;;9002226.02101,"614,40175-2 ",.01)
  1. ;;40175-2
  1. ;;9002226.02101,"614,40175-2 ",.02)
  1. ;;40175-2
  1. ;;9002226.02101,"614,40176-0 ",.01)
  1. ;;40176-0
  1. ;;9002226.02101,"614,40176-0 ",.02)
  1. ;;40176-0
  1. ;;9002226.02101,"614,40177-8 ",.01)
  1. ;;40177-8
  1. ;;9002226.02101,"614,40177-8 ",.02)
  1. ;;40177-8
  1. ;;9002226.02101,"614,40178-6 ",.01)
  1. ;;40178-6
  1. ;;9002226.02101,"614,40178-6 ",.02)
  1. ;;40178-6
  1. ;;9002226.02101,"614,40179-4 ",.01)
  1. ;;40179-4
  1. ;;9002226.02101,"614,40179-4 ",.02)
  1. ;;40179-4
  1. ;;9002226.02101,"614,40180-2 ",.01)
  1. ;;40180-2
  1. ;;9002226.02101,"614,40180-2 ",.02)
  1. ;;40180-2
  1. ;;9002226.02101,"614,40181-0 ",.01)
  1. ;;40181-0
  1. ;;9002226.02101,"614,40181-0 ",.02)
  1. ;;40181-0
  1. ;;9002226.02101,"614,40182-8 ",.01)
  1. ;;40182-8
  1. ;;9002226.02101,"614,40182-8 ",.02)
  1. ;;40182-8
  1. ;;9002226.02101,"614,40183-6 ",.01)
  1. ;;40183-6
  1. ;;9002226.02101,"614,40183-6 ",.02)
  1. ;;40183-6
  1. ;;9002226.02101,"614,40184-4 ",.01)
  1. ;;40184-4
  1. ;;9002226.02101,"614,40184-4 ",.02)
  1. ;;40184-4
  1. ;;9002226.02101,"614,40185-1 ",.01)
  1. ;;40185-1
  1. ;;9002226.02101,"614,40185-1 ",.02)
  1. ;;40185-1
  1. ;;9002226.02101,"614,40186-9 ",.01)
  1. ;;40186-9
  1. ;;9002226.02101,"614,40186-9 ",.02)
  1. ;;40186-9
  1. ;;9002226.02101,"614,40187-7 ",.01)
  1. ;;40187-7
  1. ;;9002226.02101,"614,40187-7 ",.02)
  1. ;;40187-7
  1. ;;9002226.02101,"614,40188-5 ",.01)
  1. ;;40188-5
  1. ;;9002226.02101,"614,40188-5 ",.02)
  1. ;;40188-5
  1. ;;9002226.02101,"614,40189-3 ",.01)
  1. ;;40189-3
  1. ;;9002226.02101,"614,40189-3 ",.02)
  1. ;;40189-3
  1. ;;9002226.02101,"614,40190-1 ",.01)
  1. ;;40190-1
  1. ;;9002226.02101,"614,40190-1 ",.02)
  1. ;;40190-1
  1. ;;9002226.02101,"614,40191-9 ",.01)
  1. ;;40191-9
  1. ;;9002226.02101,"614,40191-9 ",.02)
  1. ;;40191-9
  1. ;;9002226.02101,"614,40192-7 ",.01)
  1. ;;40192-7
  1. ;;9002226.02101,"614,40192-7 ",.02)
  1. ;;40192-7
  1. ;;9002226.02101,"614,40193-5 ",.01)
  1. ;;40193-5
  1. ;;9002226.02101,"614,40193-5 ",.02)
  1. ;;40193-5
  1. ;;9002226.02101,"614,40194-3 ",.01)
  1. ;;40194-3
  1. ;;9002226.02101,"614,40194-3 ",.02)
  1. ;;40194-3
  1. ;;9002226.02101,"614,40195-0 ",.01)
  1. ;;40195-0
  1. ;;9002226.02101,"614,40195-0 ",.02)
  1. ;;40195-0
  1. ;;9002226.02101,"614,40196-8 ",.01)
  1. ;;40196-8
  1. ;;9002226.02101,"614,40196-8 ",.02)
  1. ;;40196-8
  1. ;;9002226.02101,"614,40197-6 ",.01)
  1. ;;40197-6
  1. ;;9002226.02101,"614,40197-6 ",.02)
  1. ;;40197-6
  1. ;;9002226.02101,"614,40198-4 ",.01)
  1. ;;40198-4
  1. ;;9002226.02101,"614,40198-4 ",.02)
  1. ;;40198-4
  1. ;;9002226.02101,"614,40199-2 ",.01)
  1. ;;40199-2
  1. ;;9002226.02101,"614,40199-2 ",.02)
  1. ;;40199-2
  1. ;;9002226.02101,"614,40200-8 ",.01)
  1. ;;40200-8
  1. ;;9002226.02101,"614,40200-8 ",.02)
  1. ;;40200-8
  1. ;;9002226.02101,"614,40201-6 ",.01)
  1. ;;40201-6
  1. ;;9002226.02101,"614,40201-6 ",.02)
  1. ;;40201-6
  1. ;;9002226.02101,"614,40202-4 ",.01)
  1. ;;40202-4
  1. ;;9002226.02101,"614,40202-4 ",.02)
  1. ;;40202-4
  1. ;;9002226.02101,"614,40203-2 ",.01)
  1. ;;40203-2
  1. ;;9002226.02101,"614,40203-2 ",.02)
  1. ;;40203-2
  1. ;;9002226.02101,"614,40204-0 ",.01)
  1. ;;40204-0