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

BGP50Y5.m

Go to the documentation of this file.
BGP50Y5 ;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,40217-2 ",.01)
 ;;40217-2
 ;;9002226.02101,"710,40217-2 ",.02)
 ;;40217-2
 ;;9002226.02101,"710,40218-0 ",.01)
 ;;40218-0
 ;;9002226.02101,"710,40218-0 ",.02)
 ;;40218-0
 ;;9002226.02101,"710,40219-8 ",.01)
 ;;40219-8
 ;;9002226.02101,"710,40219-8 ",.02)
 ;;40219-8
 ;;9002226.02101,"710,40220-6 ",.01)
 ;;40220-6
 ;;9002226.02101,"710,40220-6 ",.02)
 ;;40220-6
 ;;9002226.02101,"710,40221-4 ",.01)
 ;;40221-4
 ;;9002226.02101,"710,40221-4 ",.02)
 ;;40221-4
 ;;9002226.02101,"710,40222-2 ",.01)
 ;;40222-2
 ;;9002226.02101,"710,40222-2 ",.02)
 ;;40222-2
 ;;9002226.02101,"710,40259-4 ",.01)
 ;;40259-4
 ;;9002226.02101,"710,40259-4 ",.02)
 ;;40259-4
 ;;9002226.02101,"710,40260-2 ",.01)
 ;;40260-2
 ;;9002226.02101,"710,40260-2 ",.02)
 ;;40260-2
 ;;9002226.02101,"710,40261-0 ",.01)
 ;;40261-0
 ;;9002226.02101,"710,40261-0 ",.02)
 ;;40261-0
 ;;9002226.02101,"710,40262-8 ",.01)
 ;;40262-8
 ;;9002226.02101,"710,40262-8 ",.02)
 ;;40262-8
 ;;9002226.02101,"710,40263-6 ",.01)
 ;;40263-6
 ;;9002226.02101,"710,40263-6 ",.02)
 ;;40263-6
 ;;9002226.02101,"710,40276-8 ",.01)
 ;;40276-8
 ;;9002226.02101,"710,40276-8 ",.02)
 ;;40276-8
 ;;9002226.02101,"710,40277-6 ",.01)
 ;;40277-6
 ;;9002226.02101,"710,40277-6 ",.02)
 ;;40277-6
 ;;9002226.02101,"710,40278-4 ",.01)
 ;;40278-4
 ;;9002226.02101,"710,40278-4 ",.02)
 ;;40278-4
 ;;9002226.02101,"710,40279-2 ",.01)
 ;;40279-2
 ;;9002226.02101,"710,40279-2 ",.02)
 ;;40279-2
 ;;9002226.02101,"710,40280-0 ",.01)
 ;;40280-0
 ;;9002226.02101,"710,40280-0 ",.02)
 ;;40280-0
 ;;9002226.02101,"710,40285-9 ",.01)
 ;;40285-9
 ;;9002226.02101,"710,40285-9 ",.02)
 ;;40285-9
 ;;9002226.02101,"710,40286-7 ",.01)
 ;;40286-7
 ;;9002226.02101,"710,40286-7 ",.02)
 ;;40286-7
 ;;9002226.02101,"710,40287-5 ",.01)
 ;;40287-5
 ;;9002226.02101,"710,40287-5 ",.02)
 ;;40287-5
 ;;9002226.02101,"710,40318-8 ",.01)
 ;;40318-8
 ;;9002226.02101,"710,40318-8 ",.02)
 ;;40318-8
 ;;9002226.02101,"710,40319-6 ",.01)
 ;;40319-6
 ;;9002226.02101,"710,40319-6 ",.02)
 ;;40319-6
 ;;9002226.02101,"710,40320-4 ",.01)
 ;;40320-4
 ;;9002226.02101,"710,40320-4 ",.02)
 ;;40320-4
 ;;9002226.02101,"710,40321-2 ",.01)
 ;;40321-2
 ;;9002226.02101,"710,40321-2 ",.02)
 ;;40321-2
 ;;9002226.02101,"710,40322-0 ",.01)
 ;;40322-0
 ;;9002226.02101,"710,40322-0 ",.02)
 ;;40322-0
 ;;9002226.02101,"710,40323-8 ",.01)
 ;;40323-8
 ;;9002226.02101,"710,40323-8 ",.02)
 ;;40323-8
 ;;9002226.02101,"710,40324-6 ",.01)
 ;;40324-6
 ;;9002226.02101,"710,40324-6 ",.02)
 ;;40324-6
 ;;9002226.02101,"710,40858-3 ",.01)
 ;;40858-3
 ;;9002226.02101,"710,40858-3 ",.02)
 ;;40858-3
 ;;9002226.02101,"710,40875-7 ",.01)
 ;;40875-7
 ;;9002226.02101,"710,40875-7 ",.02)
 ;;40875-7
 ;;9002226.02101,"710,41024-1 ",.01)
 ;;41024-1
 ;;9002226.02101,"710,41024-1 ",.02)
 ;;41024-1
 ;;9002226.02101,"710,41604-0 ",.01)
 ;;41604-0
 ;;9002226.02101,"710,41604-0 ",.02)
 ;;41604-0
 ;;9002226.02101,"710,41651-1 ",.01)
 ;;41651-1
 ;;9002226.02101,"710,41651-1 ",.02)
 ;;41651-1
 ;;9002226.02101,"710,41652-9 ",.01)
 ;;41652-9
 ;;9002226.02101,"710,41652-9 ",.02)
 ;;41652-9
 ;;9002226.02101,"710,41653-7 ",.01)
 ;;41653-7
 ;;9002226.02101,"710,41653-7 ",.02)
 ;;41653-7
 ;;9002226.02101,"710,42604-9 ",.01)
 ;;42604-9
 ;;9002226.02101,"710,42604-9 ",.02)
 ;;42604-9
 ;;9002226.02101,"710,42609-8 ",.01)
 ;;42609-8
 ;;9002226.02101,"710,42609-8 ",.02)
 ;;42609-8
 ;;9002226.02101,"710,42615-5 ",.01)
 ;;42615-5
 ;;9002226.02101,"710,42615-5 ",.02)
 ;;42615-5
 ;;9002226.02101,"710,42629-6 ",.01)
 ;;42629-6
 ;;9002226.02101,"710,42629-6 ",.02)
 ;;42629-6
 ;;9002226.02101,"710,42631-2 ",.01)
 ;;42631-2
 ;;9002226.02101,"710,42631-2 ",.02)
 ;;42631-2
 ;;9002226.02101,"710,43740-0 ",.01)
 ;;43740-0
 ;;9002226.02101,"710,43740-0 ",.02)
 ;;43740-0
 ;;9002226.02101,"710,44919-9 ",.01)
 ;;44919-9
 ;;9002226.02101,"710,44919-9 ",.02)
 ;;44919-9
 ;;9002226.02101,"710,45052-8 ",.01)
 ;;45052-8
 ;;9002226.02101,"710,45052-8 ",.02)
 ;;45052-8
 ;;9002226.02101,"710,45053-6 ",.01)
 ;;45053-6
 ;;9002226.02101,"710,45053-6 ",.02)
 ;;45053-6
 ;;9002226.02101,"710,45054-4 ",.01)
 ;;45054-4
 ;;9002226.02101,"710,45054-4 ",.02)
 ;;45054-4
 ;;9002226.02101,"710,45055-1 ",.01)
 ;;45055-1
 ;;9002226.02101,"710,45055-1 ",.02)
 ;;45055-1
 ;;9002226.02101,"710,45056-9 ",.01)
 ;;45056-9
 ;;9002226.02101,"710,45056-9 ",.02)
 ;;45056-9
 ;;9002226.02101,"710,45204-5 ",.01)
 ;;45204-5
 ;;9002226.02101,"710,45204-5 ",.02)
 ;;45204-5
 ;;9002226.02101,"710,45205-2 ",.01)
 ;;45205-2
 ;;9002226.02101,"710,45205-2 ",.02)
 ;;45205-2
 ;;9002226.02101,"710,45206-0 ",.01)
 ;;45206-0
 ;;9002226.02101,"710,45206-0 ",.02)
 ;;45206-0
 ;;9002226.02101,"710,45298-7 ",.01)
 ;;45298-7
 ;;9002226.02101,"710,45298-7 ",.02)
 ;;45298-7
 ;;9002226.02101,"710,45299-5 ",.01)
 ;;45299-5
 ;;9002226.02101,"710,45299-5 ",.02)
 ;;45299-5
 ;;9002226.02101,"710,46222-6 ",.01)
 ;;46222-6
 ;;9002226.02101,"710,46222-6 ",.02)
 ;;46222-6
 ;;9002226.02101,"710,46223-4 ",.01)
 ;;46223-4
 ;;9002226.02101,"710,46223-4 ",.02)
 ;;46223-4
 ;;9002226.02101,"710,47622-6 ",.01)
 ;;47622-6
 ;;9002226.02101,"710,47622-6 ",.02)
 ;;47622-6
 ;;9002226.02101,"710,47859-4 ",.01)
 ;;47859-4
 ;;9002226.02101,"710,47859-4 ",.02)
 ;;47859-4
 ;;9002226.02101,"710,47995-6 ",.01)
 ;;47995-6
 ;;9002226.02101,"710,47995-6 ",.02)
 ;;47995-6
 ;;9002226.02101,"710,48109-3 ",.01)
 ;;48109-3
 ;;9002226.02101,"710,48109-3 ",.02)
 ;;48109-3
 ;;9002226.02101,"710,48605-0 ",.01)
 ;;48605-0
 ;;9002226.02101,"710,48605-0 ",.02)
 ;;48605-0
 ;;9002226.02101,"710,48606-8 ",.01)
 ;;48606-8
 ;;9002226.02101,"710,48606-8 ",.02)
 ;;48606-8
 ;;9002226.02101,"710,48607-6 ",.01)
 ;;48607-6
 ;;9002226.02101,"710,48607-6 ",.02)
 ;;48607-6
 ;;9002226.02101,"710,48810-6 ",.01)
 ;;48810-6
 ;;9002226.02101,"710,48810-6 ",.02)
 ;;48810-6
 ;;9002226.02101,"710,48983-1 ",.01)
 ;;48983-1
 ;;9002226.02101,"710,48983-1 ",.02)
 ;;48983-1
 ;;9002226.02101,"710,48984-9 ",.01)
 ;;48984-9
 ;;9002226.02101,"710,48984-9 ",.02)
 ;;48984-9
 ;;9002226.02101,"710,48985-6 ",.01)
 ;;48985-6
 ;;9002226.02101,"710,48985-6 ",.02)
 ;;48985-6
 ;;9002226.02101,"710,48986-4 ",.01)
 ;;48986-4
 ;;9002226.02101,"710,48986-4 ",.02)
 ;;48986-4
 ;;9002226.02101,"710,48988-0 ",.01)
 ;;48988-0
 ;;9002226.02101,"710,48988-0 ",.02)
 ;;48988-0
 ;;9002226.02101,"710,48989-8 ",.01)
 ;;48989-8
 ;;9002226.02101,"710,48989-8 ",.02)
 ;;48989-8
 ;;9002226.02101,"710,48990-6 ",.01)
 ;;48990-6
 ;;9002226.02101,"710,48990-6 ",.02)
 ;;48990-6
 ;;9002226.02101,"710,48991-4 ",.01)
 ;;48991-4
 ;;9002226.02101,"710,48991-4 ",.02)
 ;;48991-4
 ;;9002226.02101,"710,48992-2 ",.01)
 ;;48992-2
 ;;9002226.02101,"710,48992-2 ",.02)
 ;;48992-2
 ;;9002226.02101,"710,48993-0 ",.01)
 ;;48993-0
 ;;9002226.02101,"710,48993-0 ",.02)
 ;;48993-0
 ;;9002226.02101,"710,48994-8 ",.01)
 ;;48994-8
 ;;9002226.02101,"710,48994-8 ",.02)
 ;;48994-8
 ;;9002226.02101,"710,49134-0 ",.01)
 ;;49134-0
 ;;9002226.02101,"710,49134-0 ",.02)
 ;;49134-0
 ;;9002226.02101,"710,49688-5 ",.01)
 ;;49688-5
 ;;9002226.02101,"710,49688-5 ",.02)
 ;;49688-5
 ;;9002226.02101,"710,49689-3 ",.01)
 ;;49689-3
 ;;9002226.02101,"710,49689-3 ",.02)
 ;;49689-3
 ;;9002226.02101,"710,50206-2 ",.01)
 ;;50206-2
 ;;9002226.02101,"710,50206-2 ",.02)
 ;;50206-2
 ;;9002226.02101,"710,50207-0 ",.01)
 ;;50207-0
 ;;9002226.02101,"710,50207-0 ",.02)
 ;;50207-0
 ;;9002226.02101,"710,50208-8 ",.01)
 ;;50208-8
 ;;9002226.02101,"710,50208-8 ",.02)
 ;;50208-8
 ;;9002226.02101,"710,50212-0 ",.01)
 ;;50212-0
 ;;9002226.02101,"710,50212-0 ",.02)
 ;;50212-0
 ;;9002226.02101,"710,50213-8 ",.01)
 ;;50213-8
 ;;9002226.02101,"710,50213-8 ",.02)
 ;;50213-8
 ;;9002226.02101,"710,50214-6 ",.01)
 ;;50214-6
 ;;9002226.02101,"710,50214-6 ",.02)
 ;;50214-6
 ;;9002226.02101,"710,50215-3 ",.01)
 ;;50215-3
 ;;9002226.02101,"710,50215-3 ",.02)
 ;;50215-3
 ;;9002226.02101,"710,50216-1 ",.01)
 ;;50216-1
 ;;9002226.02101,"710,50216-1 ",.02)
 ;;50216-1
 ;;9002226.02101,"710,50217-9 ",.01)
 ;;50217-9
 ;;9002226.02101,"710,50217-9 ",.02)
 ;;50217-9
 ;;9002226.02101,"710,50218-7 ",.01)
 ;;50218-7
 ;;9002226.02101,"710,50218-7 ",.02)
 ;;50218-7
 ;;9002226.02101,"710,50586-7 ",.01)
 ;;50586-7
 ;;9002226.02101,"710,50586-7 ",.02)
 ;;50586-7
 ;;9002226.02101,"710,50587-5 ",.01)
 ;;50587-5
 ;;9002226.02101,"710,50587-5 ",.02)
 ;;50587-5
 ;;9002226.02101,"710,50588-3 ",.01)
 ;;50588-3
 ;;9002226.02101,"710,50588-3 ",.02)
 ;;50588-3
 ;;9002226.02101,"710,50589-1 ",.01)
 ;;50589-1
 ;;9002226.02101,"710,50589-1 ",.02)
 ;;50589-1
 ;;9002226.02101,"710,50608-9 ",.01)
 ;;50608-9
 ;;9002226.02101,"710,50608-9 ",.02)
 ;;50608-9
 ;;9002226.02101,"710,50667-5 ",.01)
 ;;50667-5
 ;;9002226.02101,"710,50667-5 ",.02)
 ;;50667-5
 ;;9002226.02101,"710,50751-7 ",.01)
 ;;50751-7
 ;;9002226.02101,"710,50751-7 ",.02)
 ;;50751-7
 ;;9002226.02101,"710,51426-5 ",.01)
 ;;51426-5
 ;;9002226.02101,"710,51426-5 ",.02)
 ;;51426-5
 ;;9002226.02101,"710,51596-5 ",.01)
 ;;51596-5
 ;;9002226.02101,"710,51596-5 ",.02)
 ;;51596-5
 ;;9002226.02101,"710,51597-3 ",.01)
 ;;51597-3
 ;;9002226.02101,"710,51597-3 ",.02)
 ;;51597-3
 ;;9002226.02101,"710,51766-4 ",.01)
 ;;51766-4
 ;;9002226.02101,"710,51766-4 ",.02)
 ;;51766-4
 ;;9002226.02101,"710,51767-2 ",.01)
 ;;51767-2
 ;;9002226.02101,"710,51767-2 ",.02)
 ;;51767-2
 ;;9002226.02101,"710,51768-0 ",.01)
 ;;51768-0
 ;;9002226.02101,"710,51768-0 ",.02)
 ;;51768-0
 ;;9002226.02101,"710,51769-8 ",.01)
 ;;51769-8
 ;;9002226.02101,"710,51769-8 ",.02)
 ;;51769-8
 ;;9002226.02101,"710,53049-3 ",.01)
 ;;53049-3
 ;;9002226.02101,"710,53049-3 ",.02)
 ;;53049-3
 ;;9002226.02101,"710,53093-1 ",.01)
 ;;53093-1
 ;;9002226.02101,"710,53093-1 ",.02)
 ;;53093-1
 ;;9002226.02101,"710,53094-9 ",.01)
 ;;53094-9
 ;;9002226.02101,"710,53094-9 ",.02)
 ;;53094-9
 ;;9002226.02101,"710,53474-3 ",.01)
 ;;53474-3
 ;;9002226.02101,"710,53474-3 ",.02)
 ;;53474-3
 ;;9002226.02101,"710,53475-0 ",.01)
 ;;53475-0
 ;;9002226.02101,"710,53475-0 ",.02)
 ;;53475-0
 ;;9002226.02101,"710,53476-8 ",.01)
 ;;53476-8
 ;;9002226.02101,"710,53476-8 ",.02)
 ;;53476-8
 ;;9002226.02101,"710,53480-0 ",.01)
 ;;53480-0
 ;;9002226.02101,"710,53480-0 ",.02)
 ;;53480-0
 ;;9002226.02101,"710,53481-8 ",.01)
 ;;53481-8
 ;;9002226.02101,"710,53481-8 ",.02)
 ;;53481-8
 ;;9002226.02101,"710,53482-6 ",.01)
 ;;53482-6
 ;;9002226.02101,"710,53482-6 ",.02)
 ;;53482-6
 ;;9002226.02101,"710,53483-4 ",.01)
 ;;53483-4
 ;;9002226.02101,"710,53483-4 ",.02)
 ;;53483-4
 ;;9002226.02101,"710,53484-2 ",.01)
 ;;53484-2
 ;;9002226.02101,"710,53484-2 ",.02)
 ;;53484-2
 ;;9002226.02101,"710,53485-9 ",.01)
 ;;53485-9
 ;;9002226.02101,"710,53485-9 ",.02)
 ;;53485-9
 ;;9002226.02101,"710,53486-7 ",.01)
 ;;53486-7
 ;;9002226.02101,"710,53486-7 ",.02)
 ;;53486-7
 ;;9002226.02101,"710,53487-5 ",.01)
 ;;53487-5
 ;;9002226.02101,"710,53487-5 ",.02)
 ;;53487-5
 ;;9002226.02101,"710,53928-8 ",.01)
 ;;53928-8
 ;;9002226.02101,"710,53928-8 ",.02)
 ;;53928-8
 ;;9002226.02101,"710,53929-6 ",.01)
 ;;53929-6
 ;;9002226.02101,"710,53929-6 ",.02)
 ;;53929-6
 ;;9002226.02101,"710,54248-0 ",.01)
 ;;54248-0
 ;;9002226.02101,"710,54248-0 ",.02)
 ;;54248-0
 ;;9002226.02101,"710,54249-8 ",.01)
 ;;54249-8
 ;;9002226.02101,"710,54249-8 ",.02)
 ;;54249-8
 ;;9002226.02101,"710,54250-6 ",.01)
 ;;54250-6
 ;;9002226.02101,"710,54250-6 ",.02)
 ;;54250-6
 ;;9002226.02101,"710,54251-4 ",.01)
 ;;54251-4
 ;;9002226.02101,"710,54251-4 ",.02)
 ;;54251-4
 ;;9002226.02101,"710,54252-2 ",.01)
 ;;54252-2
 ;;9002226.02101,"710,54252-2 ",.02)
 ;;54252-2
 ;;9002226.02101,"710,54253-0 ",.01)
 ;;54253-0
 ;;9002226.02101,"710,54253-0 ",.02)
 ;;54253-0
 ;;9002226.02101,"710,54254-8 ",.01)
 ;;54254-8
 ;;9002226.02101,"710,54254-8 ",.02)
 ;;54254-8
 ;;9002226.02101,"710,54255-5 ",.01)
 ;;54255-5
 ;;9002226.02101,"710,54255-5 ",.02)
 ;;54255-5
 ;;9002226.02101,"710,54256-3 ",.01)
 ;;54256-3
 ;;9002226.02101,"710,54256-3 ",.02)
 ;;54256-3
 ;;9002226.02101,"710,54257-1 ",.01)
 ;;54257-1
 ;;9002226.02101,"710,54257-1 ",.02)
 ;;54257-1
 ;;9002226.02101,"710,54258-9 ",.01)
 ;;54258-9
 ;;9002226.02101,"710,54258-9 ",.02)
 ;;54258-9
 ;;9002226.02101,"710,54259-7 ",.01)
 ;;54259-7
 ;;9002226.02101,"710,54259-7 ",.02)
 ;;54259-7
 ;;9002226.02101,"710,54260-5 ",.01)
 ;;54260-5
 ;;9002226.02101,"710,54260-5 ",.02)
 ;;54260-5
 ;;9002226.02101,"710,54261-3 ",.01)
 ;;54261-3
 ;;9002226.02101,"710,54261-3 ",.02)
 ;;54261-3
 ;;9002226.02101,"710,54262-1 ",.01)
 ;;54262-1
 ;;9002226.02101,"710,54262-1 ",.02)
 ;;54262-1
 ;;9002226.02101,"710,54263-9 ",.01)
 ;;54263-9
 ;;9002226.02101,"710,54263-9 ",.02)
 ;;54263-9
 ;;9002226.02101,"710,54264-7 ",.01)
 ;;54264-7
 ;;9002226.02101,"710,54264-7 ",.02)
 ;;54264-7
 ;;9002226.02101,"710,54265-4 ",.01)
 ;;54265-4
 ;;9002226.02101,"710,54265-4 ",.02)
 ;;54265-4
 ;;9002226.02101,"710,54266-2 ",.01)
 ;;54266-2
 ;;9002226.02101,"710,54266-2 ",.02)
 ;;54266-2
 ;;9002226.02101,"710,54267-0 ",.01)
 ;;54267-0
 ;;9002226.02101,"710,54267-0 ",.02)
 ;;54267-0
 ;;9002226.02101,"710,54268-8 ",.01)
 ;;54268-8
 ;;9002226.02101,"710,54268-8 ",.02)
 ;;54268-8
 ;;9002226.02101,"710,54269-6 ",.01)
 ;;54269-6
 ;;9002226.02101,"710,54269-6 ",.02)
 ;;54269-6