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

BGP53W5.m

Go to the documentation of this file.
  1. BGP53W5 ;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,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
  1. ;;9002226.02101,"614,40204-0 ",.02)
  1. ;;40204-0
  1. ;;9002226.02101,"614,40205-7 ",.01)
  1. ;;40205-7
  1. ;;9002226.02101,"614,40205-7 ",.02)
  1. ;;40205-7
  1. ;;9002226.02101,"614,40206-5 ",.01)
  1. ;;40206-5
  1. ;;9002226.02101,"614,40206-5 ",.02)
  1. ;;40206-5
  1. ;;9002226.02101,"614,40207-3 ",.01)
  1. ;;40207-3
  1. ;;9002226.02101,"614,40207-3 ",.02)
  1. ;;40207-3
  1. ;;9002226.02101,"614,40208-1 ",.01)
  1. ;;40208-1
  1. ;;9002226.02101,"614,40208-1 ",.02)
  1. ;;40208-1
  1. ;;9002226.02101,"614,40209-9 ",.01)
  1. ;;40209-9
  1. ;;9002226.02101,"614,40209-9 ",.02)
  1. ;;40209-9
  1. ;;9002226.02101,"614,40210-7 ",.01)
  1. ;;40210-7
  1. ;;9002226.02101,"614,40210-7 ",.02)
  1. ;;40210-7
  1. ;;9002226.02101,"614,40211-5 ",.01)
  1. ;;40211-5
  1. ;;9002226.02101,"614,40211-5 ",.02)
  1. ;;40211-5
  1. ;;9002226.02101,"614,40212-3 ",.01)
  1. ;;40212-3
  1. ;;9002226.02101,"614,40212-3 ",.02)
  1. ;;40212-3
  1. ;;9002226.02101,"614,40213-1 ",.01)
  1. ;;40213-1
  1. ;;9002226.02101,"614,40213-1 ",.02)
  1. ;;40213-1
  1. ;;9002226.02101,"614,40214-9 ",.01)
  1. ;;40214-9
  1. ;;9002226.02101,"614,40214-9 ",.02)
  1. ;;40214-9
  1. ;;9002226.02101,"614,40215-6 ",.01)
  1. ;;40215-6
  1. ;;9002226.02101,"614,40215-6 ",.02)
  1. ;;40215-6
  1. ;;9002226.02101,"614,40216-4 ",.01)
  1. ;;40216-4
  1. ;;9002226.02101,"614,40216-4 ",.02)
  1. ;;40216-4
  1. ;;9002226.02101,"614,40217-2 ",.01)
  1. ;;40217-2
  1. ;;9002226.02101,"614,40217-2 ",.02)
  1. ;;40217-2
  1. ;;9002226.02101,"614,40218-0 ",.01)
  1. ;;40218-0
  1. ;;9002226.02101,"614,40218-0 ",.02)
  1. ;;40218-0
  1. ;;9002226.02101,"614,40219-8 ",.01)
  1. ;;40219-8
  1. ;;9002226.02101,"614,40219-8 ",.02)
  1. ;;40219-8
  1. ;;9002226.02101,"614,40220-6 ",.01)
  1. ;;40220-6
  1. ;;9002226.02101,"614,40220-6 ",.02)
  1. ;;40220-6
  1. ;;9002226.02101,"614,40221-4 ",.01)
  1. ;;40221-4
  1. ;;9002226.02101,"614,40221-4 ",.02)
  1. ;;40221-4
  1. ;;9002226.02101,"614,40222-2 ",.01)
  1. ;;40222-2
  1. ;;9002226.02101,"614,40222-2 ",.02)
  1. ;;40222-2
  1. ;;9002226.02101,"614,40259-4 ",.01)
  1. ;;40259-4
  1. ;;9002226.02101,"614,40259-4 ",.02)
  1. ;;40259-4
  1. ;;9002226.02101,"614,40260-2 ",.01)
  1. ;;40260-2
  1. ;;9002226.02101,"614,40260-2 ",.02)
  1. ;;40260-2
  1. ;;9002226.02101,"614,40261-0 ",.01)
  1. ;;40261-0
  1. ;;9002226.02101,"614,40261-0 ",.02)
  1. ;;40261-0
  1. ;;9002226.02101,"614,40262-8 ",.01)
  1. ;;40262-8
  1. ;;9002226.02101,"614,40262-8 ",.02)
  1. ;;40262-8
  1. ;;9002226.02101,"614,40263-6 ",.01)
  1. ;;40263-6
  1. ;;9002226.02101,"614,40263-6 ",.02)
  1. ;;40263-6
  1. ;;9002226.02101,"614,40276-8 ",.01)
  1. ;;40276-8
  1. ;;9002226.02101,"614,40276-8 ",.02)
  1. ;;40276-8
  1. ;;9002226.02101,"614,40277-6 ",.01)
  1. ;;40277-6
  1. ;;9002226.02101,"614,40277-6 ",.02)
  1. ;;40277-6
  1. ;;9002226.02101,"614,40278-4 ",.01)
  1. ;;40278-4
  1. ;;9002226.02101,"614,40278-4 ",.02)
  1. ;;40278-4
  1. ;;9002226.02101,"614,40279-2 ",.01)
  1. ;;40279-2
  1. ;;9002226.02101,"614,40279-2 ",.02)
  1. ;;40279-2
  1. ;;9002226.02101,"614,40280-0 ",.01)
  1. ;;40280-0
  1. ;;9002226.02101,"614,40280-0 ",.02)
  1. ;;40280-0
  1. ;;9002226.02101,"614,40285-9 ",.01)
  1. ;;40285-9
  1. ;;9002226.02101,"614,40285-9 ",.02)
  1. ;;40285-9
  1. ;;9002226.02101,"614,40286-7 ",.01)
  1. ;;40286-7
  1. ;;9002226.02101,"614,40286-7 ",.02)
  1. ;;40286-7
  1. ;;9002226.02101,"614,40287-5 ",.01)
  1. ;;40287-5
  1. ;;9002226.02101,"614,40287-5 ",.02)
  1. ;;40287-5
  1. ;;9002226.02101,"614,40318-8 ",.01)
  1. ;;40318-8
  1. ;;9002226.02101,"614,40318-8 ",.02)
  1. ;;40318-8
  1. ;;9002226.02101,"614,40319-6 ",.01)
  1. ;;40319-6
  1. ;;9002226.02101,"614,40319-6 ",.02)
  1. ;;40319-6
  1. ;;9002226.02101,"614,40320-4 ",.01)
  1. ;;40320-4
  1. ;;9002226.02101,"614,40320-4 ",.02)
  1. ;;40320-4
  1. ;;9002226.02101,"614,40321-2 ",.01)
  1. ;;40321-2
  1. ;;9002226.02101,"614,40321-2 ",.02)
  1. ;;40321-2
  1. ;;9002226.02101,"614,40322-0 ",.01)
  1. ;;40322-0
  1. ;;9002226.02101,"614,40322-0 ",.02)
  1. ;;40322-0
  1. ;;9002226.02101,"614,40323-8 ",.01)
  1. ;;40323-8
  1. ;;9002226.02101,"614,40323-8 ",.02)
  1. ;;40323-8
  1. ;;9002226.02101,"614,40324-6 ",.01)
  1. ;;40324-6
  1. ;;9002226.02101,"614,40324-6 ",.02)
  1. ;;40324-6
  1. ;;9002226.02101,"614,40858-3 ",.01)
  1. ;;40858-3
  1. ;;9002226.02101,"614,40858-3 ",.02)
  1. ;;40858-3
  1. ;;9002226.02101,"614,40875-7 ",.01)
  1. ;;40875-7
  1. ;;9002226.02101,"614,40875-7 ",.02)
  1. ;;40875-7
  1. ;;9002226.02101,"614,41024-1 ",.01)
  1. ;;41024-1
  1. ;;9002226.02101,"614,41024-1 ",.02)
  1. ;;41024-1
  1. ;;9002226.02101,"614,41604-0 ",.01)
  1. ;;41604-0
  1. ;;9002226.02101,"614,41604-0 ",.02)
  1. ;;41604-0
  1. ;;9002226.02101,"614,41651-1 ",.01)
  1. ;;41651-1
  1. ;;9002226.02101,"614,41651-1 ",.02)
  1. ;;41651-1
  1. ;;9002226.02101,"614,41652-9 ",.01)
  1. ;;41652-9
  1. ;;9002226.02101,"614,41652-9 ",.02)
  1. ;;41652-9
  1. ;;9002226.02101,"614,41653-7 ",.01)
  1. ;;41653-7
  1. ;;9002226.02101,"614,41653-7 ",.02)
  1. ;;41653-7
  1. ;;9002226.02101,"614,42604-9 ",.01)
  1. ;;42604-9
  1. ;;9002226.02101,"614,42604-9 ",.02)
  1. ;;42604-9
  1. ;;9002226.02101,"614,42609-8 ",.01)
  1. ;;42609-8
  1. ;;9002226.02101,"614,42609-8 ",.02)
  1. ;;42609-8
  1. ;;9002226.02101,"614,42615-5 ",.01)
  1. ;;42615-5
  1. ;;9002226.02101,"614,42615-5 ",.02)
  1. ;;42615-5
  1. ;;9002226.02101,"614,42629-6 ",.01)
  1. ;;42629-6
  1. ;;9002226.02101,"614,42629-6 ",.02)
  1. ;;42629-6
  1. ;;9002226.02101,"614,42631-2 ",.01)
  1. ;;42631-2
  1. ;;9002226.02101,"614,42631-2 ",.02)
  1. ;;42631-2
  1. ;;9002226.02101,"614,43740-0 ",.01)
  1. ;;43740-0
  1. ;;9002226.02101,"614,43740-0 ",.02)
  1. ;;43740-0
  1. ;;9002226.02101,"614,44919-9 ",.01)
  1. ;;44919-9
  1. ;;9002226.02101,"614,44919-9 ",.02)
  1. ;;44919-9
  1. ;;9002226.02101,"614,45052-8 ",.01)
  1. ;;45052-8
  1. ;;9002226.02101,"614,45052-8 ",.02)
  1. ;;45052-8
  1. ;;9002226.02101,"614,45053-6 ",.01)
  1. ;;45053-6
  1. ;;9002226.02101,"614,45053-6 ",.02)
  1. ;;45053-6
  1. ;;9002226.02101,"614,45054-4 ",.01)
  1. ;;45054-4
  1. ;;9002226.02101,"614,45054-4 ",.02)
  1. ;;45054-4