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

BGP7JXFC.m

Go to the documentation of this file.
BGP7JXFC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"549,21310-8 ",.01)
 ;;21310-8
 ;;9002226.02101,"549,21310-8 ",.02)
 ;;21310-8
 ;;9002226.02101,"549,2339-0 ",.01)
 ;;2339-0
 ;;9002226.02101,"549,2339-0 ",.02)
 ;;2339-0
 ;;9002226.02101,"549,2340-8 ",.01)
 ;;2340-8
 ;;9002226.02101,"549,2340-8 ",.02)
 ;;2340-8
 ;;9002226.02101,"549,2341-6 ",.01)
 ;;2341-6
 ;;9002226.02101,"549,2341-6 ",.02)
 ;;2341-6
 ;;9002226.02101,"549,2345-7 ",.01)
 ;;2345-7
 ;;9002226.02101,"549,2345-7 ",.02)
 ;;2345-7
 ;;9002226.02101,"549,25663-6 ",.01)
 ;;25663-6
 ;;9002226.02101,"549,25663-6 ",.02)
 ;;25663-6
 ;;9002226.02101,"549,25665-1 ",.01)
 ;;25665-1
 ;;9002226.02101,"549,25665-1 ",.02)
 ;;25665-1
 ;;9002226.02101,"549,25666-9 ",.01)
 ;;25666-9
 ;;9002226.02101,"549,25666-9 ",.02)
 ;;25666-9
 ;;9002226.02101,"549,25668-5 ",.01)
 ;;25668-5
 ;;9002226.02101,"549,25668-5 ",.02)
 ;;25668-5
 ;;9002226.02101,"549,25669-3 ",.01)
 ;;25669-3
 ;;9002226.02101,"549,25669-3 ",.02)
 ;;25669-3
 ;;9002226.02101,"549,25671-9 ",.01)
 ;;25671-9
 ;;9002226.02101,"549,25671-9 ",.02)
 ;;25671-9
 ;;9002226.02101,"549,25672-7 ",.01)
 ;;25672-7
 ;;9002226.02101,"549,25672-7 ",.02)
 ;;25672-7
 ;;9002226.02101,"549,25673-5 ",.01)
 ;;25673-5
 ;;9002226.02101,"549,25673-5 ",.02)
 ;;25673-5
 ;;9002226.02101,"549,25674-3 ",.01)
 ;;25674-3
 ;;9002226.02101,"549,25674-3 ",.02)
 ;;25674-3
 ;;9002226.02101,"549,25676-8 ",.01)
 ;;25676-8
 ;;9002226.02101,"549,25676-8 ",.02)
 ;;25676-8
 ;;9002226.02101,"549,25677-6 ",.01)
 ;;25677-6
 ;;9002226.02101,"549,25677-6 ",.02)
 ;;25677-6
 ;;9002226.02101,"549,25679-2 ",.01)
 ;;25679-2
 ;;9002226.02101,"549,25679-2 ",.02)
 ;;25679-2
 ;;9002226.02101,"549,25680-0 ",.01)
 ;;25680-0
 ;;9002226.02101,"549,25680-0 ",.02)
 ;;25680-0
 ;;9002226.02101,"549,26539-7 ",.01)
 ;;26539-7
 ;;9002226.02101,"549,26539-7 ",.02)
 ;;26539-7
 ;;9002226.02101,"549,26541-3 ",.01)
 ;;26541-3
 ;;9002226.02101,"549,26541-3 ",.02)
 ;;26541-3
 ;;9002226.02101,"549,26543-9 ",.01)
 ;;26543-9
 ;;9002226.02101,"549,26543-9 ",.02)
 ;;26543-9
 ;;9002226.02101,"549,26544-7 ",.01)
 ;;26544-7
 ;;9002226.02101,"549,26544-7 ",.02)
 ;;26544-7
 ;;9002226.02101,"549,26554-6 ",.01)
 ;;26554-6
 ;;9002226.02101,"549,26554-6 ",.02)
 ;;26554-6
 ;;9002226.02101,"549,26555-3 ",.01)
 ;;26555-3
 ;;9002226.02101,"549,26555-3 ",.02)
 ;;26555-3
 ;;9002226.02101,"549,26695-7 ",.01)
 ;;26695-7
 ;;9002226.02101,"549,26695-7 ",.02)
 ;;26695-7
 ;;9002226.02101,"549,26777-3 ",.01)
 ;;26777-3
 ;;9002226.02101,"549,26777-3 ",.02)
 ;;26777-3
 ;;9002226.02101,"549,26778-1 ",.01)
 ;;26778-1
 ;;9002226.02101,"549,26778-1 ",.02)
 ;;26778-1
 ;;9002226.02101,"549,26779-9 ",.01)
 ;;26779-9
 ;;9002226.02101,"549,26779-9 ",.02)
 ;;26779-9
 ;;9002226.02101,"549,26780-7 ",.01)
 ;;26780-7
 ;;9002226.02101,"549,26780-7 ",.02)
 ;;26780-7
 ;;9002226.02101,"549,26781-5 ",.01)
 ;;26781-5
 ;;9002226.02101,"549,26781-5 ",.02)
 ;;26781-5
 ;;9002226.02101,"549,26782-3 ",.01)
 ;;26782-3
 ;;9002226.02101,"549,26782-3 ",.02)
 ;;26782-3
 ;;9002226.02101,"549,26783-1 ",.01)
 ;;26783-1
 ;;9002226.02101,"549,26783-1 ",.02)
 ;;26783-1
 ;;9002226.02101,"549,26817-7 ",.01)
 ;;26817-7
 ;;9002226.02101,"549,26817-7 ",.02)
 ;;26817-7
 ;;9002226.02101,"549,26853-2 ",.01)
 ;;26853-2
 ;;9002226.02101,"549,26853-2 ",.02)
 ;;26853-2
 ;;9002226.02101,"549,26854-0 ",.01)
 ;;26854-0
 ;;9002226.02101,"549,26854-0 ",.02)
 ;;26854-0
 ;;9002226.02101,"549,27353-2 ",.01)
 ;;27353-2
 ;;9002226.02101,"549,27353-2 ",.02)
 ;;27353-2
 ;;9002226.02101,"549,27432-4 ",.01)
 ;;27432-4
 ;;9002226.02101,"549,27432-4 ",.02)
 ;;27432-4
 ;;9002226.02101,"549,29329-0 ",.01)
 ;;29329-0
 ;;9002226.02101,"549,29329-0 ",.02)
 ;;29329-0
 ;;9002226.02101,"549,29330-8 ",.01)
 ;;29330-8
 ;;9002226.02101,"549,29330-8 ",.02)
 ;;29330-8
 ;;9002226.02101,"549,29331-6 ",.01)
 ;;29331-6
 ;;9002226.02101,"549,29331-6 ",.02)
 ;;29331-6
 ;;9002226.02101,"549,29332-4 ",.01)
 ;;29332-4
 ;;9002226.02101,"549,29332-4 ",.02)
 ;;29332-4
 ;;9002226.02101,"549,29412-4 ",.01)
 ;;29412-4
 ;;9002226.02101,"549,29412-4 ",.02)
 ;;29412-4
 ;;9002226.02101,"549,30251-3 ",.01)
 ;;30251-3
 ;;9002226.02101,"549,30251-3 ",.02)
 ;;30251-3
 ;;9002226.02101,"549,30252-1 ",.01)
 ;;30252-1
 ;;9002226.02101,"549,30252-1 ",.02)
 ;;30252-1
 ;;9002226.02101,"549,30253-9 ",.01)
 ;;30253-9
 ;;9002226.02101,"549,30253-9 ",.02)
 ;;30253-9
 ;;9002226.02101,"549,30263-8 ",.01)
 ;;30263-8
 ;;9002226.02101,"549,30263-8 ",.02)
 ;;30263-8
 ;;9002226.02101,"549,30264-6 ",.01)
 ;;30264-6
 ;;9002226.02101,"549,30264-6 ",.02)
 ;;30264-6
 ;;9002226.02101,"549,30265-3 ",.01)
 ;;30265-3
 ;;9002226.02101,"549,30265-3 ",.02)
 ;;30265-3
 ;;9002226.02101,"549,30266-1 ",.01)
 ;;30266-1
 ;;9002226.02101,"549,30266-1 ",.02)
 ;;30266-1
 ;;9002226.02101,"549,30267-9 ",.01)
 ;;30267-9
 ;;9002226.02101,"549,30267-9 ",.02)
 ;;30267-9
 ;;9002226.02101,"549,30344-6 ",.01)
 ;;30344-6
 ;;9002226.02101,"549,30344-6 ",.02)
 ;;30344-6
 ;;9002226.02101,"549,30345-3 ",.01)
 ;;30345-3
 ;;9002226.02101,"549,30345-3 ",.02)
 ;;30345-3
 ;;9002226.02101,"549,30346-1 ",.01)
 ;;30346-1
 ;;9002226.02101,"549,30346-1 ",.02)
 ;;30346-1
 ;;9002226.02101,"549,32016-8 ",.01)
 ;;32016-8
 ;;9002226.02101,"549,32016-8 ",.02)
 ;;32016-8
 ;;9002226.02101,"549,32319-6 ",.01)
 ;;32319-6
 ;;9002226.02101,"549,32319-6 ",.02)
 ;;32319-6
 ;;9002226.02101,"549,32320-4 ",.01)
 ;;32320-4
 ;;9002226.02101,"549,32320-4 ",.02)
 ;;32320-4
 ;;9002226.02101,"549,32321-2 ",.01)
 ;;32321-2
 ;;9002226.02101,"549,32321-2 ",.02)
 ;;32321-2
 ;;9002226.02101,"549,32322-0 ",.01)
 ;;32322-0
 ;;9002226.02101,"549,32322-0 ",.02)
 ;;32322-0
 ;;9002226.02101,"549,32359-2 ",.01)
 ;;32359-2
 ;;9002226.02101,"549,32359-2 ",.02)
 ;;32359-2
 ;;9002226.02101,"549,32820-3 ",.01)
 ;;32820-3
 ;;9002226.02101,"549,32820-3 ",.02)
 ;;32820-3
 ;;9002226.02101,"549,33024-1 ",.01)
 ;;33024-1
 ;;9002226.02101,"549,33024-1 ",.02)
 ;;33024-1
 ;;9002226.02101,"549,34056-2 ",.01)
 ;;34056-2
 ;;9002226.02101,"549,34056-2 ",.02)
 ;;34056-2
 ;;9002226.02101,"549,34057-0 ",.01)
 ;;34057-0
 ;;9002226.02101,"549,34057-0 ",.02)
 ;;34057-0
 ;;9002226.02101,"549,34058-8 ",.01)
 ;;34058-8
 ;;9002226.02101,"549,34058-8 ",.02)
 ;;34058-8
 ;;9002226.02101,"549,34059-6 ",.01)
 ;;34059-6
 ;;9002226.02101,"549,34059-6 ",.02)
 ;;34059-6
 ;;9002226.02101,"549,34060-4 ",.01)
 ;;34060-4
 ;;9002226.02101,"549,34060-4 ",.02)
 ;;34060-4
 ;;9002226.02101,"549,35184-1 ",.01)
 ;;35184-1
 ;;9002226.02101,"549,35184-1 ",.02)
 ;;35184-1
 ;;9002226.02101,"549,35211-2 ",.01)
 ;;35211-2
 ;;9002226.02101,"549,35211-2 ",.02)
 ;;35211-2
 ;;9002226.02101,"549,39480-9 ",.01)
 ;;39480-9
 ;;9002226.02101,"549,39480-9 ",.02)
 ;;39480-9
 ;;9002226.02101,"549,39481-7 ",.01)
 ;;39481-7
 ;;9002226.02101,"549,39481-7 ",.02)
 ;;39481-7
 ;;9002226.02101,"549,39561-6 ",.01)
 ;;39561-6
 ;;9002226.02101,"549,39561-6 ",.02)
 ;;39561-6
 ;;9002226.02101,"549,39562-4 ",.01)
 ;;39562-4
 ;;9002226.02101,"549,39562-4 ",.02)
 ;;39562-4
 ;;9002226.02101,"549,39563-2 ",.01)
 ;;39563-2
 ;;9002226.02101,"549,39563-2 ",.02)
 ;;39563-2
 ;;9002226.02101,"549,39997-2 ",.01)
 ;;39997-2
 ;;9002226.02101,"549,39997-2 ",.02)
 ;;39997-2
 ;;9002226.02101,"549,39998-0 ",.01)
 ;;39998-0
 ;;9002226.02101,"549,39998-0 ",.02)
 ;;39998-0
 ;;9002226.02101,"549,39999-8 ",.01)
 ;;39999-8
 ;;9002226.02101,"549,39999-8 ",.02)
 ;;39999-8
 ;;9002226.02101,"549,40000-2 ",.01)
 ;;40000-2
 ;;9002226.02101,"549,40000-2 ",.02)
 ;;40000-2
 ;;9002226.02101,"549,40001-0 ",.01)
 ;;40001-0
 ;;9002226.02101,"549,40001-0 ",.02)
 ;;40001-0
 ;;9002226.02101,"549,40002-8 ",.01)
 ;;40002-8
 ;;9002226.02101,"549,40002-8 ",.02)
 ;;40002-8
 ;;9002226.02101,"549,40003-6 ",.01)
 ;;40003-6
 ;;9002226.02101,"549,40003-6 ",.02)
 ;;40003-6
 ;;9002226.02101,"549,40004-4 ",.01)
 ;;40004-4
 ;;9002226.02101,"549,40004-4 ",.02)
 ;;40004-4
 ;;9002226.02101,"549,40005-1 ",.01)
 ;;40005-1
 ;;9002226.02101,"549,40005-1 ",.02)
 ;;40005-1
 ;;9002226.02101,"549,40006-9 ",.01)
 ;;40006-9
 ;;9002226.02101,"549,40006-9 ",.02)
 ;;40006-9
 ;;9002226.02101,"549,40007-7 ",.01)
 ;;40007-7
 ;;9002226.02101,"549,40007-7 ",.02)
 ;;40007-7
 ;;9002226.02101,"549,40008-5 ",.01)
 ;;40008-5
 ;;9002226.02101,"549,40008-5 ",.02)
 ;;40008-5
 ;;9002226.02101,"549,40009-3 ",.01)
 ;;40009-3
 ;;9002226.02101,"549,40009-3 ",.02)
 ;;40009-3
 ;;9002226.02101,"549,40010-1 ",.01)
 ;;40010-1
 ;;9002226.02101,"549,40010-1 ",.02)
 ;;40010-1
 ;;9002226.02101,"549,40011-9 ",.01)
 ;;40011-9
 ;;9002226.02101,"549,40011-9 ",.02)
 ;;40011-9
 ;;9002226.02101,"549,40012-7 ",.01)
 ;;40012-7
 ;;9002226.02101,"549,40012-7 ",.02)
 ;;40012-7
 ;;9002226.02101,"549,40013-5 ",.01)
 ;;40013-5
 ;;9002226.02101,"549,40013-5 ",.02)
 ;;40013-5
 ;;9002226.02101,"549,40014-3 ",.01)
 ;;40014-3
 ;;9002226.02101,"549,40014-3 ",.02)
 ;;40014-3
 ;;9002226.02101,"549,40015-0 ",.01)
 ;;40015-0
 ;;9002226.02101,"549,40015-0 ",.02)
 ;;40015-0
 ;;9002226.02101,"549,40016-8 ",.01)
 ;;40016-8
 ;;9002226.02101,"549,40016-8 ",.02)
 ;;40016-8
 ;;9002226.02101,"549,40017-6 ",.01)
 ;;40017-6
 ;;9002226.02101,"549,40017-6 ",.02)
 ;;40017-6
 ;;9002226.02101,"549,40018-4 ",.01)
 ;;40018-4
 ;;9002226.02101,"549,40018-4 ",.02)
 ;;40018-4
 ;;9002226.02101,"549,40019-2 ",.01)
 ;;40019-2
 ;;9002226.02101,"549,40019-2 ",.02)
 ;;40019-2
 ;;9002226.02101,"549,40020-0 ",.01)
 ;;40020-0
 ;;9002226.02101,"549,40020-0 ",.02)
 ;;40020-0
 ;;9002226.02101,"549,40021-8 ",.01)
 ;;40021-8
 ;;9002226.02101,"549,40021-8 ",.02)
 ;;40021-8
 ;;9002226.02101,"549,40022-6 ",.01)
 ;;40022-6
 ;;9002226.02101,"549,40022-6 ",.02)
 ;;40022-6
 ;;9002226.02101,"549,40023-4 ",.01)
 ;;40023-4
 ;;9002226.02101,"549,40023-4 ",.02)
 ;;40023-4
 ;;9002226.02101,"549,40024-2 ",.01)
 ;;40024-2
 ;;9002226.02101,"549,40024-2 ",.02)
 ;;40024-2
 ;;9002226.02101,"549,40025-9 ",.01)
 ;;40025-9
 ;;9002226.02101,"549,40025-9 ",.02)
 ;;40025-9
 ;;9002226.02101,"549,40026-7 ",.01)
 ;;40026-7
 ;;9002226.02101,"549,40026-7 ",.02)
 ;;40026-7
 ;;9002226.02101,"549,40027-5 ",.01)
 ;;40027-5
 ;;9002226.02101,"549,40027-5 ",.02)
 ;;40027-5
 ;;9002226.02101,"549,40028-3 ",.01)
 ;;40028-3
 ;;9002226.02101,"549,40028-3 ",.02)
 ;;40028-3
 ;;9002226.02101,"549,40029-1 ",.01)
 ;;40029-1
 ;;9002226.02101,"549,40029-1 ",.02)
 ;;40029-1
 ;;9002226.02101,"549,40030-9 ",.01)
 ;;40030-9
 ;;9002226.02101,"549,40030-9 ",.02)
 ;;40030-9
 ;;9002226.02101,"549,40031-7 ",.01)
 ;;40031-7
 ;;9002226.02101,"549,40031-7 ",.02)
 ;;40031-7
 ;;9002226.02101,"549,40032-5 ",.01)
 ;;40032-5
 ;;9002226.02101,"549,40032-5 ",.02)
 ;;40032-5
 ;;9002226.02101,"549,40033-3 ",.01)
 ;;40033-3
 ;;9002226.02101,"549,40033-3 ",.02)
 ;;40033-3
 ;;9002226.02101,"549,40034-1 ",.01)
 ;;40034-1
 ;;9002226.02101,"549,40034-1 ",.02)
 ;;40034-1
 ;;9002226.02101,"549,40035-8 ",.01)
 ;;40035-8
 ;;9002226.02101,"549,40035-8 ",.02)
 ;;40035-8
 ;;9002226.02101,"549,40036-6 ",.01)
 ;;40036-6
 ;;9002226.02101,"549,40036-6 ",.02)
 ;;40036-6
 ;;9002226.02101,"549,40037-4 ",.01)
 ;;40037-4
 ;;9002226.02101,"549,40037-4 ",.02)
 ;;40037-4
 ;;9002226.02101,"549,40038-2 ",.01)
 ;;40038-2
 ;;9002226.02101,"549,40038-2 ",.02)
 ;;40038-2
 ;;9002226.02101,"549,40039-0 ",.01)
 ;;40039-0
 ;;9002226.02101,"549,40039-0 ",.02)
 ;;40039-0
 ;;9002226.02101,"549,40040-8 ",.01)
 ;;40040-8
 ;;9002226.02101,"549,40040-8 ",.02)
 ;;40040-8
 ;;9002226.02101,"549,40041-6 ",.01)
 ;;40041-6
 ;;9002226.02101,"549,40041-6 ",.02)
 ;;40041-6
 ;;9002226.02101,"549,40042-4 ",.01)
 ;;40042-4
 ;;9002226.02101,"549,40042-4 ",.02)
 ;;40042-4
 ;;9002226.02101,"549,40043-2 ",.01)
 ;;40043-2
 ;;9002226.02101,"549,40043-2 ",.02)
 ;;40043-2
 ;;9002226.02101,"549,40044-0 ",.01)
 ;;40044-0
 ;;9002226.02101,"549,40044-0 ",.02)
 ;;40044-0
 ;;9002226.02101,"549,40045-7 ",.01)
 ;;40045-7
 ;;9002226.02101,"549,40045-7 ",.02)
 ;;40045-7
 ;;9002226.02101,"549,40148-9 ",.01)
 ;;40148-9
 ;;9002226.02101,"549,40148-9 ",.02)
 ;;40148-9
 ;;9002226.02101,"549,40149-7 ",.01)
 ;;40149-7
 ;;9002226.02101,"549,40149-7 ",.02)
 ;;40149-7
 ;;9002226.02101,"549,40150-5 ",.01)
 ;;40150-5
 ;;9002226.02101,"549,40150-5 ",.02)
 ;;40150-5
 ;;9002226.02101,"549,40151-3 ",.01)
 ;;40151-3
 ;;9002226.02101,"549,40151-3 ",.02)
 ;;40151-3
 ;;9002226.02101,"549,40152-1 ",.01)
 ;;40152-1
 ;;9002226.02101,"549,40152-1 ",.02)
 ;;40152-1
 ;;9002226.02101,"549,40153-9 ",.01)
 ;;40153-9
 ;;9002226.02101,"549,40153-9 ",.02)
 ;;40153-9
 ;;9002226.02101,"549,40154-7 ",.01)
 ;;40154-7
 ;;9002226.02101,"549,40154-7 ",.02)
 ;;40154-7
 ;;9002226.02101,"549,40155-4 ",.01)
 ;;40155-4
 ;;9002226.02101,"549,40155-4 ",.02)
 ;;40155-4
 ;;9002226.02101,"549,40156-2 ",.01)
 ;;40156-2
 ;;9002226.02101,"549,40156-2 ",.02)
 ;;40156-2
 ;;9002226.02101,"549,40157-0 ",.01)
 ;;40157-0
 ;;9002226.02101,"549,40157-0 ",.02)
 ;;40157-0
 ;;9002226.02101,"549,40158-8 ",.01)
 ;;40158-8
 ;;9002226.02101,"549,40158-8 ",.02)
 ;;40158-8
 ;;9002226.02101,"549,40159-6 ",.01)
 ;;40159-6
 ;;9002226.02101,"549,40159-6 ",.02)
 ;;40159-6
 ;;9002226.02101,"549,40160-4 ",.01)
 ;;40160-4
 ;;9002226.02101,"549,40160-4 ",.02)
 ;;40160-4
 ;;9002226.02101,"549,40161-2 ",.01)
 ;;40161-2
 ;;9002226.02101,"549,40161-2 ",.02)
 ;;40161-2