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

BGP50Y4.m

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