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

BGP50Y6.m

Go to the documentation of this file.
  1. BGP50Y6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
  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,"710,54270-4 ",.01)
  1. ;;54270-4
  1. ;;9002226.02101,"710,54270-4 ",.02)
  1. ;;54270-4
  1. ;;9002226.02101,"710,54271-2 ",.01)
  1. ;;54271-2
  1. ;;9002226.02101,"710,54271-2 ",.02)
  1. ;;54271-2
  1. ;;9002226.02101,"710,54272-0 ",.01)
  1. ;;54272-0
  1. ;;9002226.02101,"710,54272-0 ",.02)
  1. ;;54272-0
  1. ;;9002226.02101,"710,54273-8 ",.01)
  1. ;;54273-8
  1. ;;9002226.02101,"710,54273-8 ",.02)
  1. ;;54273-8
  1. ;;9002226.02101,"710,54274-6 ",.01)
  1. ;;54274-6
  1. ;;9002226.02101,"710,54274-6 ",.02)
  1. ;;54274-6
  1. ;;9002226.02101,"710,54275-3 ",.01)
  1. ;;54275-3
  1. ;;9002226.02101,"710,54275-3 ",.02)
  1. ;;54275-3
  1. ;;9002226.02101,"710,54276-1 ",.01)
  1. ;;54276-1
  1. ;;9002226.02101,"710,54276-1 ",.02)
  1. ;;54276-1
  1. ;;9002226.02101,"710,54277-9 ",.01)
  1. ;;54277-9
  1. ;;9002226.02101,"710,54277-9 ",.02)
  1. ;;54277-9
  1. ;;9002226.02101,"710,54392-6 ",.01)
  1. ;;54392-6
  1. ;;9002226.02101,"710,54392-6 ",.02)
  1. ;;54392-6
  1. ;;9002226.02101,"710,54393-4 ",.01)
  1. ;;54393-4
  1. ;;9002226.02101,"710,54393-4 ",.02)
  1. ;;54393-4
  1. ;;9002226.02101,"710,54394-2 ",.01)
  1. ;;54394-2
  1. ;;9002226.02101,"710,54394-2 ",.02)
  1. ;;54394-2
  1. ;;9002226.02101,"710,54395-9 ",.01)
  1. ;;54395-9
  1. ;;9002226.02101,"710,54395-9 ",.02)
  1. ;;54395-9
  1. ;;9002226.02101,"710,54396-7 ",.01)
  1. ;;54396-7
  1. ;;9002226.02101,"710,54396-7 ",.02)
  1. ;;54396-7
  1. ;;9002226.02101,"710,54397-5 ",.01)
  1. ;;54397-5
  1. ;;9002226.02101,"710,54397-5 ",.02)
  1. ;;54397-5
  1. ;;9002226.02101,"710,54398-3 ",.01)
  1. ;;54398-3
  1. ;;9002226.02101,"710,54398-3 ",.02)
  1. ;;54398-3
  1. ;;9002226.02101,"710,54399-1 ",.01)
  1. ;;54399-1
  1. ;;9002226.02101,"710,54399-1 ",.02)
  1. ;;54399-1
  1. ;;9002226.02101,"710,54400-7 ",.01)
  1. ;;54400-7
  1. ;;9002226.02101,"710,54400-7 ",.02)
  1. ;;54400-7
  1. ;;9002226.02101,"710,54401-5 ",.01)
  1. ;;54401-5
  1. ;;9002226.02101,"710,54401-5 ",.02)
  1. ;;54401-5
  1. ;;9002226.02101,"710,54495-7 ",.01)
  1. ;;54495-7
  1. ;;9002226.02101,"710,54495-7 ",.02)
  1. ;;54495-7
  1. ;;9002226.02101,"710,54496-5 ",.01)
  1. ;;54496-5
  1. ;;9002226.02101,"710,54496-5 ",.02)
  1. ;;54496-5
  1. ;;9002226.02101,"710,54497-3 ",.01)
  1. ;;54497-3
  1. ;;9002226.02101,"710,54497-3 ",.02)
  1. ;;54497-3
  1. ;;9002226.02101,"710,54498-1 ",.01)
  1. ;;54498-1
  1. ;;9002226.02101,"710,54498-1 ",.02)
  1. ;;54498-1
  1. ;;9002226.02101,"710,54499-9 ",.01)
  1. ;;54499-9
  1. ;;9002226.02101,"710,54499-9 ",.02)
  1. ;;54499-9
  1. ;;9002226.02101,"710,55351-1 ",.01)
  1. ;;55351-1
  1. ;;9002226.02101,"710,55351-1 ",.02)
  1. ;;55351-1
  1. ;;9002226.02101,"710,55352-9 ",.01)
  1. ;;55352-9
  1. ;;9002226.02101,"710,55352-9 ",.02)
  1. ;;55352-9
  1. ;;9002226.02101,"710,55381-8 ",.01)
  1. ;;55381-8
  1. ;;9002226.02101,"710,55381-8 ",.02)
  1. ;;55381-8
  1. ;;9002226.02101,"710,56751-1 ",.01)
  1. ;;56751-1
  1. ;;9002226.02101,"710,56751-1 ",.02)
  1. ;;56751-1
  1. ;;9002226.02101,"710,57350-1 ",.01)
  1. ;;57350-1
  1. ;;9002226.02101,"710,57350-1 ",.02)
  1. ;;57350-1
  1. ;;9002226.02101,"710,57971-4 ",.01)
  1. ;;57971-4
  1. ;;9002226.02101,"710,57971-4 ",.02)
  1. ;;57971-4
  1. ;;9002226.02101,"710,57972-2 ",.01)
  1. ;;57972-2
  1. ;;9002226.02101,"710,57972-2 ",.02)
  1. ;;57972-2
  1. ;;9002226.02101,"710,5914-7 ",.01)
  1. ;;5914-7
  1. ;;9002226.02101,"710,5914-7 ",.02)
  1. ;;5914-7
  1. ;;9002226.02101,"710,59157-8 ",.01)
  1. ;;59157-8
  1. ;;9002226.02101,"710,59157-8 ",.02)
  1. ;;59157-8
  1. ;;9002226.02101,"710,59791-4 ",.01)
  1. ;;59791-4
  1. ;;9002226.02101,"710,59791-4 ",.02)
  1. ;;59791-4
  1. ;;9002226.02101,"710,59792-2 ",.01)
  1. ;;59792-2
  1. ;;9002226.02101,"710,59792-2 ",.02)
  1. ;;59792-2
  1. ;;9002226.02101,"710,59793-0 ",.01)
  1. ;;59793-0
  1. ;;9002226.02101,"710,59793-0 ",.02)
  1. ;;59793-0
  1. ;;9002226.02101,"710,59794-8 ",.01)
  1. ;;59794-8
  1. ;;9002226.02101,"710,59794-8 ",.02)
  1. ;;59794-8
  1. ;;9002226.02101,"710,59795-5 ",.01)
  1. ;;59795-5
  1. ;;9002226.02101,"710,59795-5 ",.02)
  1. ;;59795-5
  1. ;;9002226.02101,"710,59796-3 ",.01)
  1. ;;59796-3
  1. ;;9002226.02101,"710,59796-3 ",.02)
  1. ;;59796-3
  1. ;;9002226.02101,"710,59797-1 ",.01)
  1. ;;59797-1
  1. ;;9002226.02101,"710,59797-1 ",.02)
  1. ;;59797-1
  1. ;;9002226.02101,"710,59812-8 ",.01)
  1. ;;59812-8
  1. ;;9002226.02101,"710,59812-8 ",.02)
  1. ;;59812-8
  1. ;;9002226.02101,"710,59813-6 ",.01)
  1. ;;59813-6
  1. ;;9002226.02101,"710,59813-6 ",.02)
  1. ;;59813-6
  1. ;;9002226.02101,"710,59814-4 ",.01)
  1. ;;59814-4
  1. ;;9002226.02101,"710,59814-4 ",.02)
  1. ;;59814-4
  1. ;;9002226.02101,"710,59815-1 ",.01)
  1. ;;59815-1
  1. ;;9002226.02101,"710,59815-1 ",.02)
  1. ;;59815-1
  1. ;;9002226.02101,"710,6689-4 ",.01)
  1. ;;6689-4
  1. ;;9002226.02101,"710,6689-4 ",.02)
  1. ;;6689-4
  1. ;;9002226.02101,"710,6749-6 ",.01)
  1. ;;6749-6
  1. ;;9002226.02101,"710,6749-6 ",.02)
  1. ;;6749-6
  1. ;;9002226.02101,"710,6752-0 ",.01)
  1. ;;6752-0
  1. ;;9002226.02101,"710,6752-0 ",.02)
  1. ;;6752-0
  1. ;;9002226.02101,"710,6753-8 ",.01)
  1. ;;6753-8
  1. ;;9002226.02101,"710,6753-8 ",.02)
  1. ;;6753-8
  1. ;;9002226.02101,"710,6754-6 ",.01)
  1. ;;6754-6
  1. ;;9002226.02101,"710,6754-6 ",.02)
  1. ;;6754-6
  1. ;;9002226.02101,"710,6755-3 ",.01)
  1. ;;6755-3
  1. ;;9002226.02101,"710,6755-3 ",.02)
  1. ;;6755-3
  1. ;;9002226.02101,"710,6756-1 ",.01)
  1. ;;6756-1
  1. ;;9002226.02101,"710,6756-1 ",.02)
  1. ;;6756-1
  1. ;;9002226.02101,"710,6759-5 ",.01)
  1. ;;6759-5
  1. ;;9002226.02101,"710,6759-5 ",.02)
  1. ;;6759-5
  1. ;;9002226.02101,"710,6760-3 ",.01)
  1. ;;6760-3
  1. ;;9002226.02101,"710,6760-3 ",.02)
  1. ;;6760-3
  1. ;;9002226.02101,"710,6762-9 ",.01)
  1. ;;6762-9
  1. ;;9002226.02101,"710,6762-9 ",.02)
  1. ;;6762-9
  1. ;;9002226.02101,"710,6764-5 ",.01)
  1. ;;6764-5
  1. ;;9002226.02101,"710,6764-5 ",.02)
  1. ;;6764-5
  1. ;;9002226.02101,"710,6777-7 ",.01)
  1. ;;6777-7
  1. ;;9002226.02101,"710,6777-7 ",.02)
  1. ;;6777-7
  1. ;;9002226.02101,"710,69941-3 ",.01)
  1. ;;69941-3
  1. ;;9002226.02101,"710,69941-3 ",.02)
  1. ;;69941-3
  1. ;;9002226.02101,"710,69942-1 ",.01)
  1. ;;69942-1
  1. ;;9002226.02101,"710,69942-1 ",.02)
  1. ;;69942-1
  1. ;;9002226.02101,"710,69943-9 ",.01)
  1. ;;69943-9
  1. ;;9002226.02101,"710,69943-9 ",.02)
  1. ;;69943-9
  1. ;;9002226.02101,"710,69944-7 ",.01)
  1. ;;69944-7
  1. ;;9002226.02101,"710,69944-7 ",.02)
  1. ;;69944-7
  1. ;;9002226.02101,"710,70208-4 ",.01)
  1. ;;70208-4
  1. ;;9002226.02101,"710,70208-4 ",.02)
  1. ;;70208-4
  1. ;;9002226.02101,"710,72171-2 ",.01)
  1. ;;72171-2
  1. ;;9002226.02101,"710,72171-2 ",.02)
  1. ;;72171-2
  1. ;;9002226.02101,"710,72516-8 ",.01)
  1. ;;72516-8
  1. ;;9002226.02101,"710,72516-8 ",.02)
  1. ;;72516-8
  1. ;;9002226.02101,"710,72895-6 ",.01)
  1. ;;72895-6
  1. ;;9002226.02101,"710,72895-6 ",.02)
  1. ;;72895-6
  1. ;;9002226.02101,"710,72896-4 ",.01)
  1. ;;72896-4
  1. ;;9002226.02101,"710,72896-4 ",.02)
  1. ;;72896-4
  1. ;;9002226.02101,"710,74084-5 ",.01)
  1. ;;74084-5
  1. ;;9002226.02101,"710,74084-5 ",.02)
  1. ;;74084-5
  1. ;;9002226.02101,"710,9375-7 ",.01)
  1. ;;9375-7
  1. ;;9002226.02101,"710,9375-7 ",.02)
  1. ;;9375-7
  1. ;;9002226.02101,"710,9376-5 ",.01)
  1. ;;9376-5
  1. ;;9002226.02101,"710,9376-5 ",.02)
  1. ;;9376-5
  1. ;;9002226.02101,"710,9377-3 ",.01)
  1. ;;9377-3
  1. ;;9002226.02101,"710,9377-3 ",.02)
  1. ;;9377-3
  1. ;;9002226.02101,"710,9378-1 ",.01)
  1. ;;9378-1
  1. ;;9002226.02101,"710,9378-1 ",.02)
  1. ;;9378-1