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

BGP05O4.m

Go to the documentation of this file.
BGP05O4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"708,32820-3 ",.02)
 ;;32820-3
 ;;9002226.02101,"708,33024-1 ",.01)
 ;;33024-1
 ;;9002226.02101,"708,33024-1 ",.02)
 ;;33024-1
 ;;9002226.02101,"708,34056-2 ",.01)
 ;;34056-2
 ;;9002226.02101,"708,34056-2 ",.02)
 ;;34056-2
 ;;9002226.02101,"708,34057-0 ",.01)
 ;;34057-0
 ;;9002226.02101,"708,34057-0 ",.02)
 ;;34057-0
 ;;9002226.02101,"708,34058-8 ",.01)
 ;;34058-8
 ;;9002226.02101,"708,34058-8 ",.02)
 ;;34058-8
 ;;9002226.02101,"708,34059-6 ",.01)
 ;;34059-6
 ;;9002226.02101,"708,34059-6 ",.02)
 ;;34059-6
 ;;9002226.02101,"708,34060-4 ",.01)
 ;;34060-4
 ;;9002226.02101,"708,34060-4 ",.02)
 ;;34060-4
 ;;9002226.02101,"708,35184-1 ",.01)
 ;;35184-1
 ;;9002226.02101,"708,35184-1 ",.02)
 ;;35184-1
 ;;9002226.02101,"708,35211-2 ",.01)
 ;;35211-2
 ;;9002226.02101,"708,35211-2 ",.02)
 ;;35211-2
 ;;9002226.02101,"708,39480-9 ",.01)
 ;;39480-9
 ;;9002226.02101,"708,39480-9 ",.02)
 ;;39480-9
 ;;9002226.02101,"708,39481-7 ",.01)
 ;;39481-7
 ;;9002226.02101,"708,39481-7 ",.02)
 ;;39481-7
 ;;9002226.02101,"708,39561-6 ",.01)
 ;;39561-6
 ;;9002226.02101,"708,39561-6 ",.02)
 ;;39561-6
 ;;9002226.02101,"708,39562-4 ",.01)
 ;;39562-4
 ;;9002226.02101,"708,39562-4 ",.02)
 ;;39562-4
 ;;9002226.02101,"708,39563-2 ",.01)
 ;;39563-2
 ;;9002226.02101,"708,39563-2 ",.02)
 ;;39563-2
 ;;9002226.02101,"708,39997-2 ",.01)
 ;;39997-2
 ;;9002226.02101,"708,39997-2 ",.02)
 ;;39997-2
 ;;9002226.02101,"708,39998-0 ",.01)
 ;;39998-0
 ;;9002226.02101,"708,39998-0 ",.02)
 ;;39998-0
 ;;9002226.02101,"708,39999-8 ",.01)
 ;;39999-8
 ;;9002226.02101,"708,39999-8 ",.02)
 ;;39999-8
 ;;9002226.02101,"708,40000-2 ",.01)
 ;;40000-2
 ;;9002226.02101,"708,40000-2 ",.02)
 ;;40000-2
 ;;9002226.02101,"708,40001-0 ",.01)
 ;;40001-0
 ;;9002226.02101,"708,40001-0 ",.02)
 ;;40001-0
 ;;9002226.02101,"708,40002-8 ",.01)
 ;;40002-8
 ;;9002226.02101,"708,40002-8 ",.02)
 ;;40002-8
 ;;9002226.02101,"708,40003-6 ",.01)
 ;;40003-6
 ;;9002226.02101,"708,40003-6 ",.02)
 ;;40003-6
 ;;9002226.02101,"708,40004-4 ",.01)
 ;;40004-4
 ;;9002226.02101,"708,40004-4 ",.02)
 ;;40004-4
 ;;9002226.02101,"708,40005-1 ",.01)
 ;;40005-1
 ;;9002226.02101,"708,40005-1 ",.02)
 ;;40005-1
 ;;9002226.02101,"708,40006-9 ",.01)
 ;;40006-9
 ;;9002226.02101,"708,40006-9 ",.02)
 ;;40006-9
 ;;9002226.02101,"708,40007-7 ",.01)
 ;;40007-7
 ;;9002226.02101,"708,40007-7 ",.02)
 ;;40007-7
 ;;9002226.02101,"708,40008-5 ",.01)
 ;;40008-5
 ;;9002226.02101,"708,40008-5 ",.02)
 ;;40008-5
 ;;9002226.02101,"708,40009-3 ",.01)
 ;;40009-3
 ;;9002226.02101,"708,40009-3 ",.02)
 ;;40009-3
 ;;9002226.02101,"708,40010-1 ",.01)
 ;;40010-1
 ;;9002226.02101,"708,40010-1 ",.02)
 ;;40010-1
 ;;9002226.02101,"708,40011-9 ",.01)
 ;;40011-9
 ;;9002226.02101,"708,40011-9 ",.02)
 ;;40011-9
 ;;9002226.02101,"708,40012-7 ",.01)
 ;;40012-7
 ;;9002226.02101,"708,40012-7 ",.02)
 ;;40012-7
 ;;9002226.02101,"708,40013-5 ",.01)
 ;;40013-5
 ;;9002226.02101,"708,40013-5 ",.02)
 ;;40013-5
 ;;9002226.02101,"708,40014-3 ",.01)
 ;;40014-3
 ;;9002226.02101,"708,40014-3 ",.02)
 ;;40014-3
 ;;9002226.02101,"708,40015-0 ",.01)
 ;;40015-0
 ;;9002226.02101,"708,40015-0 ",.02)
 ;;40015-0
 ;;9002226.02101,"708,40016-8 ",.01)
 ;;40016-8
 ;;9002226.02101,"708,40016-8 ",.02)
 ;;40016-8
 ;;9002226.02101,"708,40017-6 ",.01)
 ;;40017-6
 ;;9002226.02101,"708,40017-6 ",.02)
 ;;40017-6
 ;;9002226.02101,"708,40018-4 ",.01)
 ;;40018-4
 ;;9002226.02101,"708,40018-4 ",.02)
 ;;40018-4
 ;;9002226.02101,"708,40019-2 ",.01)
 ;;40019-2
 ;;9002226.02101,"708,40019-2 ",.02)
 ;;40019-2
 ;;9002226.02101,"708,40020-0 ",.01)
 ;;40020-0
 ;;9002226.02101,"708,40020-0 ",.02)
 ;;40020-0
 ;;9002226.02101,"708,40021-8 ",.01)
 ;;40021-8
 ;;9002226.02101,"708,40021-8 ",.02)
 ;;40021-8
 ;;9002226.02101,"708,40022-6 ",.01)
 ;;40022-6
 ;;9002226.02101,"708,40022-6 ",.02)
 ;;40022-6
 ;;9002226.02101,"708,40023-4 ",.01)
 ;;40023-4
 ;;9002226.02101,"708,40023-4 ",.02)
 ;;40023-4
 ;;9002226.02101,"708,40024-2 ",.01)
 ;;40024-2
 ;;9002226.02101,"708,40024-2 ",.02)
 ;;40024-2
 ;;9002226.02101,"708,40025-9 ",.01)
 ;;40025-9
 ;;9002226.02101,"708,40025-9 ",.02)
 ;;40025-9
 ;;9002226.02101,"708,40026-7 ",.01)
 ;;40026-7
 ;;9002226.02101,"708,40026-7 ",.02)
 ;;40026-7
 ;;9002226.02101,"708,40027-5 ",.01)
 ;;40027-5
 ;;9002226.02101,"708,40027-5 ",.02)
 ;;40027-5
 ;;9002226.02101,"708,40028-3 ",.01)
 ;;40028-3
 ;;9002226.02101,"708,40028-3 ",.02)
 ;;40028-3
 ;;9002226.02101,"708,40029-1 ",.01)
 ;;40029-1
 ;;9002226.02101,"708,40029-1 ",.02)
 ;;40029-1
 ;;9002226.02101,"708,40030-9 ",.01)
 ;;40030-9
 ;;9002226.02101,"708,40030-9 ",.02)
 ;;40030-9
 ;;9002226.02101,"708,40031-7 ",.01)
 ;;40031-7
 ;;9002226.02101,"708,40031-7 ",.02)
 ;;40031-7
 ;;9002226.02101,"708,40032-5 ",.01)
 ;;40032-5
 ;;9002226.02101,"708,40032-5 ",.02)
 ;;40032-5
 ;;9002226.02101,"708,40033-3 ",.01)
 ;;40033-3
 ;;9002226.02101,"708,40033-3 ",.02)
 ;;40033-3
 ;;9002226.02101,"708,40034-1 ",.01)
 ;;40034-1
 ;;9002226.02101,"708,40034-1 ",.02)
 ;;40034-1
 ;;9002226.02101,"708,40035-8 ",.01)
 ;;40035-8
 ;;9002226.02101,"708,40035-8 ",.02)
 ;;40035-8
 ;;9002226.02101,"708,40036-6 ",.01)
 ;;40036-6
 ;;9002226.02101,"708,40036-6 ",.02)
 ;;40036-6
 ;;9002226.02101,"708,40037-4 ",.01)
 ;;40037-4
 ;;9002226.02101,"708,40037-4 ",.02)
 ;;40037-4
 ;;9002226.02101,"708,40038-2 ",.01)
 ;;40038-2
 ;;9002226.02101,"708,40038-2 ",.02)
 ;;40038-2
 ;;9002226.02101,"708,40039-0 ",.01)
 ;;40039-0
 ;;9002226.02101,"708,40039-0 ",.02)
 ;;40039-0
 ;;9002226.02101,"708,40040-8 ",.01)
 ;;40040-8
 ;;9002226.02101,"708,40040-8 ",.02)
 ;;40040-8
 ;;9002226.02101,"708,40041-6 ",.01)
 ;;40041-6
 ;;9002226.02101,"708,40041-6 ",.02)
 ;;40041-6
 ;;9002226.02101,"708,40042-4 ",.01)
 ;;40042-4
 ;;9002226.02101,"708,40042-4 ",.02)
 ;;40042-4
 ;;9002226.02101,"708,40043-2 ",.01)
 ;;40043-2
 ;;9002226.02101,"708,40043-2 ",.02)
 ;;40043-2
 ;;9002226.02101,"708,40044-0 ",.01)
 ;;40044-0
 ;;9002226.02101,"708,40044-0 ",.02)
 ;;40044-0
 ;;9002226.02101,"708,40045-7 ",.01)
 ;;40045-7
 ;;9002226.02101,"708,40045-7 ",.02)
 ;;40045-7
 ;;9002226.02101,"708,40148-9 ",.01)
 ;;40148-9
 ;;9002226.02101,"708,40148-9 ",.02)
 ;;40148-9
 ;;9002226.02101,"708,40149-7 ",.01)
 ;;40149-7
 ;;9002226.02101,"708,40149-7 ",.02)
 ;;40149-7
 ;;9002226.02101,"708,40150-5 ",.01)
 ;;40150-5
 ;;9002226.02101,"708,40150-5 ",.02)
 ;;40150-5
 ;;9002226.02101,"708,40151-3 ",.01)
 ;;40151-3
 ;;9002226.02101,"708,40151-3 ",.02)
 ;;40151-3
 ;;9002226.02101,"708,40152-1 ",.01)
 ;;40152-1
 ;;9002226.02101,"708,40152-1 ",.02)
 ;;40152-1
 ;;9002226.02101,"708,40153-9 ",.01)
 ;;40153-9
 ;;9002226.02101,"708,40153-9 ",.02)
 ;;40153-9
 ;;9002226.02101,"708,40154-7 ",.01)
 ;;40154-7
 ;;9002226.02101,"708,40154-7 ",.02)
 ;;40154-7
 ;;9002226.02101,"708,40155-4 ",.01)
 ;;40155-4
 ;;9002226.02101,"708,40155-4 ",.02)
 ;;40155-4
 ;;9002226.02101,"708,40156-2 ",.01)
 ;;40156-2
 ;;9002226.02101,"708,40156-2 ",.02)
 ;;40156-2
 ;;9002226.02101,"708,40157-0 ",.01)
 ;;40157-0
 ;;9002226.02101,"708,40157-0 ",.02)
 ;;40157-0
 ;;9002226.02101,"708,40158-8 ",.01)
 ;;40158-8
 ;;9002226.02101,"708,40158-8 ",.02)
 ;;40158-8
 ;;9002226.02101,"708,40159-6 ",.01)
 ;;40159-6
 ;;9002226.02101,"708,40159-6 ",.02)
 ;;40159-6
 ;;9002226.02101,"708,40160-4 ",.01)
 ;;40160-4
 ;;9002226.02101,"708,40160-4 ",.02)
 ;;40160-4
 ;;9002226.02101,"708,40161-2 ",.01)
 ;;40161-2
 ;;9002226.02101,"708,40161-2 ",.02)
 ;;40161-2
 ;;9002226.02101,"708,40162-0 ",.01)
 ;;40162-0
 ;;9002226.02101,"708,40162-0 ",.02)
 ;;40162-0
 ;;9002226.02101,"708,40163-8 ",.01)
 ;;40163-8
 ;;9002226.02101,"708,40163-8 ",.02)
 ;;40163-8
 ;;9002226.02101,"708,40164-6 ",.01)
 ;;40164-6
 ;;9002226.02101,"708,40164-6 ",.02)
 ;;40164-6
 ;;9002226.02101,"708,40165-3 ",.01)
 ;;40165-3
 ;;9002226.02101,"708,40165-3 ",.02)
 ;;40165-3
 ;;9002226.02101,"708,40166-1 ",.01)
 ;;40166-1
 ;;9002226.02101,"708,40166-1 ",.02)
 ;;40166-1
 ;;9002226.02101,"708,40167-9 ",.01)
 ;;40167-9
 ;;9002226.02101,"708,40167-9 ",.02)
 ;;40167-9
 ;;9002226.02101,"708,40168-7 ",.01)
 ;;40168-7
 ;;9002226.02101,"708,40168-7 ",.02)
 ;;40168-7
 ;;9002226.02101,"708,40169-5 ",.01)
 ;;40169-5
 ;;9002226.02101,"708,40169-5 ",.02)
 ;;40169-5
 ;;9002226.02101,"708,40170-3 ",.01)
 ;;40170-3
 ;;9002226.02101,"708,40170-3 ",.02)
 ;;40170-3
 ;;9002226.02101,"708,40171-1 ",.01)
 ;;40171-1
 ;;9002226.02101,"708,40171-1 ",.02)
 ;;40171-1
 ;;9002226.02101,"708,40172-9 ",.01)
 ;;40172-9
 ;;9002226.02101,"708,40172-9 ",.02)
 ;;40172-9
 ;;9002226.02101,"708,40173-7 ",.01)
 ;;40173-7
 ;;9002226.02101,"708,40173-7 ",.02)
 ;;40173-7
 ;;9002226.02101,"708,40174-5 ",.01)
 ;;40174-5
 ;;9002226.02101,"708,40174-5 ",.02)
 ;;40174-5
 ;;9002226.02101,"708,40175-2 ",.01)
 ;;40175-2
 ;;9002226.02101,"708,40175-2 ",.02)
 ;;40175-2
 ;;9002226.02101,"708,40176-0 ",.01)
 ;;40176-0
 ;;9002226.02101,"708,40176-0 ",.02)
 ;;40176-0
 ;;9002226.02101,"708,40177-8 ",.01)
 ;;40177-8
 ;;9002226.02101,"708,40177-8 ",.02)
 ;;40177-8
 ;;9002226.02101,"708,40178-6 ",.01)
 ;;40178-6
 ;;9002226.02101,"708,40178-6 ",.02)
 ;;40178-6
 ;;9002226.02101,"708,40179-4 ",.01)
 ;;40179-4
 ;;9002226.02101,"708,40179-4 ",.02)
 ;;40179-4
 ;;9002226.02101,"708,40180-2 ",.01)
 ;;40180-2
 ;;9002226.02101,"708,40180-2 ",.02)
 ;;40180-2
 ;;9002226.02101,"708,40181-0 ",.01)
 ;;40181-0
 ;;9002226.02101,"708,40181-0 ",.02)
 ;;40181-0
 ;;9002226.02101,"708,40182-8 ",.01)
 ;;40182-8
 ;;9002226.02101,"708,40182-8 ",.02)
 ;;40182-8
 ;;9002226.02101,"708,40183-6 ",.01)
 ;;40183-6
 ;;9002226.02101,"708,40183-6 ",.02)
 ;;40183-6
 ;;9002226.02101,"708,40184-4 ",.01)
 ;;40184-4
 ;;9002226.02101,"708,40184-4 ",.02)
 ;;40184-4
 ;;9002226.02101,"708,40185-1 ",.01)
 ;;40185-1
 ;;9002226.02101,"708,40185-1 ",.02)
 ;;40185-1
 ;;9002226.02101,"708,40186-9 ",.01)
 ;;40186-9
 ;;9002226.02101,"708,40186-9 ",.02)
 ;;40186-9
 ;;9002226.02101,"708,40187-7 ",.01)
 ;;40187-7
 ;;9002226.02101,"708,40187-7 ",.02)
 ;;40187-7
 ;;9002226.02101,"708,40188-5 ",.01)
 ;;40188-5
 ;;9002226.02101,"708,40188-5 ",.02)
 ;;40188-5
 ;;9002226.02101,"708,40189-3 ",.01)
 ;;40189-3
 ;;9002226.02101,"708,40189-3 ",.02)
 ;;40189-3
 ;;9002226.02101,"708,40190-1 ",.01)
 ;;40190-1
 ;;9002226.02101,"708,40190-1 ",.02)
 ;;40190-1
 ;;9002226.02101,"708,40191-9 ",.01)
 ;;40191-9
 ;;9002226.02101,"708,40191-9 ",.02)
 ;;40191-9
 ;;9002226.02101,"708,40192-7 ",.01)
 ;;40192-7
 ;;9002226.02101,"708,40192-7 ",.02)
 ;;40192-7
 ;;9002226.02101,"708,40193-5 ",.01)
 ;;40193-5
 ;;9002226.02101,"708,40193-5 ",.02)
 ;;40193-5
 ;;9002226.02101,"708,40194-3 ",.01)
 ;;40194-3
 ;;9002226.02101,"708,40194-3 ",.02)
 ;;40194-3
 ;;9002226.02101,"708,40195-0 ",.01)
 ;;40195-0
 ;;9002226.02101,"708,40195-0 ",.02)
 ;;40195-0
 ;;9002226.02101,"708,40196-8 ",.01)
 ;;40196-8
 ;;9002226.02101,"708,40196-8 ",.02)
 ;;40196-8
 ;;9002226.02101,"708,40197-6 ",.01)
 ;;40197-6
 ;;9002226.02101,"708,40197-6 ",.02)
 ;;40197-6
 ;;9002226.02101,"708,40198-4 ",.01)
 ;;40198-4
 ;;9002226.02101,"708,40198-4 ",.02)
 ;;40198-4
 ;;9002226.02101,"708,40199-2 ",.01)
 ;;40199-2
 ;;9002226.02101,"708,40199-2 ",.02)
 ;;40199-2
 ;;9002226.02101,"708,40200-8 ",.01)
 ;;40200-8
 ;;9002226.02101,"708,40200-8 ",.02)
 ;;40200-8
 ;;9002226.02101,"708,40201-6 ",.01)
 ;;40201-6
 ;;9002226.02101,"708,40201-6 ",.02)
 ;;40201-6
 ;;9002226.02101,"708,40202-4 ",.01)
 ;;40202-4
 ;;9002226.02101,"708,40202-4 ",.02)
 ;;40202-4
 ;;9002226.02101,"708,40203-2 ",.01)
 ;;40203-2
 ;;9002226.02101,"708,40203-2 ",.02)
 ;;40203-2
 ;;9002226.02101,"708,40204-0 ",.01)
 ;;40204-0
 ;;9002226.02101,"708,40204-0 ",.02)
 ;;40204-0
 ;;9002226.02101,"708,40205-7 ",.01)
 ;;40205-7
 ;;9002226.02101,"708,40205-7 ",.02)
 ;;40205-7
 ;;9002226.02101,"708,40206-5 ",.01)
 ;;40206-5
 ;;9002226.02101,"708,40206-5 ",.02)
 ;;40206-5
 ;;9002226.02101,"708,40207-3 ",.01)
 ;;40207-3
 ;;9002226.02101,"708,40207-3 ",.02)
 ;;40207-3
 ;;9002226.02101,"708,40208-1 ",.01)
 ;;40208-1
 ;;9002226.02101,"708,40208-1 ",.02)
 ;;40208-1
 ;;9002226.02101,"708,40209-9 ",.01)
 ;;40209-9
 ;;9002226.02101,"708,40209-9 ",.02)
 ;;40209-9
 ;;9002226.02101,"708,40210-7 ",.01)
 ;;40210-7
 ;;9002226.02101,"708,40210-7 ",.02)
 ;;40210-7
 ;;9002226.02101,"708,40211-5 ",.01)
 ;;40211-5
 ;;9002226.02101,"708,40211-5 ",.02)
 ;;40211-5
 ;;9002226.02101,"708,40212-3 ",.01)
 ;;40212-3
 ;;9002226.02101,"708,40212-3 ",.02)
 ;;40212-3
 ;;9002226.02101,"708,40213-1 ",.01)
 ;;40213-1
 ;;9002226.02101,"708,40213-1 ",.02)
 ;;40213-1
 ;;9002226.02101,"708,40214-9 ",.01)
 ;;40214-9
 ;;9002226.02101,"708,40214-9 ",.02)
 ;;40214-9
 ;;9002226.02101,"708,40215-6 ",.01)
 ;;40215-6
 ;;9002226.02101,"708,40215-6 ",.02)
 ;;40215-6
 ;;9002226.02101,"708,40216-4 ",.01)
 ;;40216-4
 ;;9002226.02101,"708,40216-4 ",.02)
 ;;40216-4
 ;;9002226.02101,"708,40217-2 ",.01)
 ;;40217-2
 ;;9002226.02101,"708,40217-2 ",.02)
 ;;40217-2
 ;;9002226.02101,"708,40218-0 ",.01)
 ;;40218-0
 ;;9002226.02101,"708,40218-0 ",.02)
 ;;40218-0
 ;;9002226.02101,"708,40219-8 ",.01)
 ;;40219-8
 ;;9002226.02101,"708,40219-8 ",.02)
 ;;40219-8
 ;;9002226.02101,"708,40220-6 ",.01)
 ;;40220-6
 ;;9002226.02101,"708,40220-6 ",.02)
 ;;40220-6
 ;;9002226.02101,"708,40221-4 ",.01)
 ;;40221-4