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

BGP53W4.m

Go to the documentation of this file.
  1. BGP53W4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2015;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  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,2345-7 ",.01)
  1. ;;2345-7
  1. ;;9002226.02101,"614,2345-7 ",.02)
  1. ;;2345-7
  1. ;;9002226.02101,"614,25663-6 ",.01)
  1. ;;25663-6
  1. ;;9002226.02101,"614,25663-6 ",.02)
  1. ;;25663-6
  1. ;;9002226.02101,"614,25665-1 ",.01)
  1. ;;25665-1
  1. ;;9002226.02101,"614,25665-1 ",.02)
  1. ;;25665-1
  1. ;;9002226.02101,"614,25666-9 ",.01)
  1. ;;25666-9
  1. ;;9002226.02101,"614,25666-9 ",.02)
  1. ;;25666-9
  1. ;;9002226.02101,"614,25668-5 ",.01)
  1. ;;25668-5
  1. ;;9002226.02101,"614,25668-5 ",.02)
  1. ;;25668-5
  1. ;;9002226.02101,"614,25669-3 ",.01)
  1. ;;25669-3
  1. ;;9002226.02101,"614,25669-3 ",.02)
  1. ;;25669-3
  1. ;;9002226.02101,"614,25671-9 ",.01)
  1. ;;25671-9
  1. ;;9002226.02101,"614,25671-9 ",.02)
  1. ;;25671-9
  1. ;;9002226.02101,"614,25672-7 ",.01)
  1. ;;25672-7
  1. ;;9002226.02101,"614,25672-7 ",.02)
  1. ;;25672-7
  1. ;;9002226.02101,"614,25673-5 ",.01)
  1. ;;25673-5
  1. ;;9002226.02101,"614,25673-5 ",.02)
  1. ;;25673-5
  1. ;;9002226.02101,"614,25674-3 ",.01)
  1. ;;25674-3
  1. ;;9002226.02101,"614,25674-3 ",.02)
  1. ;;25674-3
  1. ;;9002226.02101,"614,25676-8 ",.01)
  1. ;;25676-8
  1. ;;9002226.02101,"614,25676-8 ",.02)
  1. ;;25676-8
  1. ;;9002226.02101,"614,25677-6 ",.01)
  1. ;;25677-6
  1. ;;9002226.02101,"614,25677-6 ",.02)
  1. ;;25677-6
  1. ;;9002226.02101,"614,25679-2 ",.01)
  1. ;;25679-2
  1. ;;9002226.02101,"614,25679-2 ",.02)
  1. ;;25679-2
  1. ;;9002226.02101,"614,25680-0 ",.01)
  1. ;;25680-0
  1. ;;9002226.02101,"614,25680-0 ",.02)
  1. ;;25680-0
  1. ;;9002226.02101,"614,26538-9 ",.01)
  1. ;;26538-9
  1. ;;9002226.02101,"614,26538-9 ",.02)
  1. ;;26538-9
  1. ;;9002226.02101,"614,26539-7 ",.01)
  1. ;;26539-7
  1. ;;9002226.02101,"614,26539-7 ",.02)
  1. ;;26539-7
  1. ;;9002226.02101,"614,26540-5 ",.01)
  1. ;;26540-5
  1. ;;9002226.02101,"614,26540-5 ",.02)
  1. ;;26540-5
  1. ;;9002226.02101,"614,26541-3 ",.01)
  1. ;;26541-3
  1. ;;9002226.02101,"614,26541-3 ",.02)
  1. ;;26541-3
  1. ;;9002226.02101,"614,26543-9 ",.01)
  1. ;;26543-9
  1. ;;9002226.02101,"614,26543-9 ",.02)
  1. ;;26543-9
  1. ;;9002226.02101,"614,26544-7 ",.01)
  1. ;;26544-7
  1. ;;9002226.02101,"614,26544-7 ",.02)
  1. ;;26544-7
  1. ;;9002226.02101,"614,26548-8 ",.01)
  1. ;;26548-8
  1. ;;9002226.02101,"614,26548-8 ",.02)
  1. ;;26548-8
  1. ;;9002226.02101,"614,26549-6 ",.01)
  1. ;;26549-6
  1. ;;9002226.02101,"614,26549-6 ",.02)
  1. ;;26549-6
  1. ;;9002226.02101,"614,26552-0 ",.01)
  1. ;;26552-0
  1. ;;9002226.02101,"614,26552-0 ",.02)
  1. ;;26552-0
  1. ;;9002226.02101,"614,26554-6 ",.01)
  1. ;;26554-6
  1. ;;9002226.02101,"614,26554-6 ",.02)
  1. ;;26554-6
  1. ;;9002226.02101,"614,26555-3 ",.01)
  1. ;;26555-3
  1. ;;9002226.02101,"614,26555-3 ",.02)
  1. ;;26555-3
  1. ;;9002226.02101,"614,26695-7 ",.01)
  1. ;;26695-7
  1. ;;9002226.02101,"614,26695-7 ",.02)
  1. ;;26695-7
  1. ;;9002226.02101,"614,26777-3 ",.01)
  1. ;;26777-3
  1. ;;9002226.02101,"614,26777-3 ",.02)
  1. ;;26777-3
  1. ;;9002226.02101,"614,26778-1 ",.01)
  1. ;;26778-1
  1. ;;9002226.02101,"614,26778-1 ",.02)
  1. ;;26778-1
  1. ;;9002226.02101,"614,26779-9 ",.01)
  1. ;;26779-9
  1. ;;9002226.02101,"614,26779-9 ",.02)
  1. ;;26779-9
  1. ;;9002226.02101,"614,26780-7 ",.01)
  1. ;;26780-7
  1. ;;9002226.02101,"614,26780-7 ",.02)
  1. ;;26780-7
  1. ;;9002226.02101,"614,26781-5 ",.01)
  1. ;;26781-5
  1. ;;9002226.02101,"614,26781-5 ",.02)
  1. ;;26781-5
  1. ;;9002226.02101,"614,26782-3 ",.01)
  1. ;;26782-3
  1. ;;9002226.02101,"614,26782-3 ",.02)
  1. ;;26782-3
  1. ;;9002226.02101,"614,26783-1 ",.01)
  1. ;;26783-1
  1. ;;9002226.02101,"614,26783-1 ",.02)
  1. ;;26783-1
  1. ;;9002226.02101,"614,26817-7 ",.01)
  1. ;;26817-7
  1. ;;9002226.02101,"614,26817-7 ",.02)
  1. ;;26817-7
  1. ;;9002226.02101,"614,26853-2 ",.01)
  1. ;;26853-2
  1. ;;9002226.02101,"614,26853-2 ",.02)
  1. ;;26853-2
  1. ;;9002226.02101,"614,26854-0 ",.01)
  1. ;;26854-0
  1. ;;9002226.02101,"614,26854-0 ",.02)
  1. ;;26854-0
  1. ;;9002226.02101,"614,27353-2 ",.01)
  1. ;;27353-2
  1. ;;9002226.02101,"614,27353-2 ",.02)
  1. ;;27353-2
  1. ;;9002226.02101,"614,27432-4 ",.01)
  1. ;;27432-4
  1. ;;9002226.02101,"614,27432-4 ",.02)
  1. ;;27432-4
  1. ;;9002226.02101,"614,29329-0 ",.01)
  1. ;;29329-0
  1. ;;9002226.02101,"614,29329-0 ",.02)
  1. ;;29329-0
  1. ;;9002226.02101,"614,29330-8 ",.01)
  1. ;;29330-8
  1. ;;9002226.02101,"614,29330-8 ",.02)
  1. ;;29330-8
  1. ;;9002226.02101,"614,29331-6 ",.01)
  1. ;;29331-6
  1. ;;9002226.02101,"614,29331-6 ",.02)
  1. ;;29331-6
  1. ;;9002226.02101,"614,29332-4 ",.01)
  1. ;;29332-4
  1. ;;9002226.02101,"614,29332-4 ",.02)
  1. ;;29332-4
  1. ;;9002226.02101,"614,29412-4 ",.01)
  1. ;;29412-4
  1. ;;9002226.02101,"614,29412-4 ",.02)
  1. ;;29412-4
  1. ;;9002226.02101,"614,30251-3 ",.01)
  1. ;;30251-3
  1. ;;9002226.02101,"614,30251-3 ",.02)
  1. ;;30251-3
  1. ;;9002226.02101,"614,30252-1 ",.01)
  1. ;;30252-1
  1. ;;9002226.02101,"614,30252-1 ",.02)
  1. ;;30252-1
  1. ;;9002226.02101,"614,30253-9 ",.01)
  1. ;;30253-9
  1. ;;9002226.02101,"614,30253-9 ",.02)
  1. ;;30253-9
  1. ;;9002226.02101,"614,30263-8 ",.01)
  1. ;;30263-8
  1. ;;9002226.02101,"614,30263-8 ",.02)
  1. ;;30263-8
  1. ;;9002226.02101,"614,30264-6 ",.01)
  1. ;;30264-6
  1. ;;9002226.02101,"614,30264-6 ",.02)
  1. ;;30264-6
  1. ;;9002226.02101,"614,30265-3 ",.01)
  1. ;;30265-3
  1. ;;9002226.02101,"614,30265-3 ",.02)
  1. ;;30265-3
  1. ;;9002226.02101,"614,30266-1 ",.01)
  1. ;;30266-1
  1. ;;9002226.02101,"614,30266-1 ",.02)
  1. ;;30266-1
  1. ;;9002226.02101,"614,30267-9 ",.01)
  1. ;;30267-9
  1. ;;9002226.02101,"614,30267-9 ",.02)
  1. ;;30267-9
  1. ;;9002226.02101,"614,30344-6 ",.01)
  1. ;;30344-6
  1. ;;9002226.02101,"614,30344-6 ",.02)
  1. ;;30344-6
  1. ;;9002226.02101,"614,30345-3 ",.01)
  1. ;;30345-3
  1. ;;9002226.02101,"614,30345-3 ",.02)
  1. ;;30345-3
  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