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

BGP33I40.m

Go to the documentation of this file.
BGP33I40 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"798,55887-0144-60 ",.02)
 ;;55887-0144-60
 ;;9002226.02101,"798,55887-0144-82 ",.01)
 ;;55887-0144-82
 ;;9002226.02101,"798,55887-0144-82 ",.02)
 ;;55887-0144-82
 ;;9002226.02101,"798,55887-0144-90 ",.01)
 ;;55887-0144-90
 ;;9002226.02101,"798,55887-0144-90 ",.02)
 ;;55887-0144-90
 ;;9002226.02101,"798,55887-0144-92 ",.01)
 ;;55887-0144-92
 ;;9002226.02101,"798,55887-0144-92 ",.02)
 ;;55887-0144-92
 ;;9002226.02101,"798,55887-0151-01 ",.01)
 ;;55887-0151-01
 ;;9002226.02101,"798,55887-0151-01 ",.02)
 ;;55887-0151-01
 ;;9002226.02101,"798,55887-0151-20 ",.01)
 ;;55887-0151-20
 ;;9002226.02101,"798,55887-0151-20 ",.02)
 ;;55887-0151-20
 ;;9002226.02101,"798,55887-0151-30 ",.01)
 ;;55887-0151-30
 ;;9002226.02101,"798,55887-0151-30 ",.02)
 ;;55887-0151-30
 ;;9002226.02101,"798,55887-0151-60 ",.01)
 ;;55887-0151-60
 ;;9002226.02101,"798,55887-0151-60 ",.02)
 ;;55887-0151-60
 ;;9002226.02101,"798,55887-0151-82 ",.01)
 ;;55887-0151-82
 ;;9002226.02101,"798,55887-0151-82 ",.02)
 ;;55887-0151-82
 ;;9002226.02101,"798,55887-0151-90 ",.01)
 ;;55887-0151-90
 ;;9002226.02101,"798,55887-0151-90 ",.02)
 ;;55887-0151-90
 ;;9002226.02101,"798,55887-0160-15 ",.01)
 ;;55887-0160-15
 ;;9002226.02101,"798,55887-0160-15 ",.02)
 ;;55887-0160-15
 ;;9002226.02101,"798,55887-0160-30 ",.01)
 ;;55887-0160-30
 ;;9002226.02101,"798,55887-0160-30 ",.02)
 ;;55887-0160-30
 ;;9002226.02101,"798,55887-0160-60 ",.01)
 ;;55887-0160-60
 ;;9002226.02101,"798,55887-0160-60 ",.02)
 ;;55887-0160-60
 ;;9002226.02101,"798,55887-0160-90 ",.01)
 ;;55887-0160-90
 ;;9002226.02101,"798,55887-0160-90 ",.02)
 ;;55887-0160-90
 ;;9002226.02101,"798,55887-0168-30 ",.01)
 ;;55887-0168-30
 ;;9002226.02101,"798,55887-0168-30 ",.02)
 ;;55887-0168-30
 ;;9002226.02101,"798,55887-0168-60 ",.01)
 ;;55887-0168-60
 ;;9002226.02101,"798,55887-0168-60 ",.02)
 ;;55887-0168-60
 ;;9002226.02101,"798,55887-0168-90 ",.01)
 ;;55887-0168-90
 ;;9002226.02101,"798,55887-0168-90 ",.02)
 ;;55887-0168-90
 ;;9002226.02101,"798,55887-0193-30 ",.01)
 ;;55887-0193-30
 ;;9002226.02101,"798,55887-0193-30 ",.02)
 ;;55887-0193-30
 ;;9002226.02101,"798,55887-0193-90 ",.01)
 ;;55887-0193-90
 ;;9002226.02101,"798,55887-0193-90 ",.02)
 ;;55887-0193-90
 ;;9002226.02101,"798,55887-0213-30 ",.01)
 ;;55887-0213-30
 ;;9002226.02101,"798,55887-0213-30 ",.02)
 ;;55887-0213-30
 ;;9002226.02101,"798,55887-0214-30 ",.01)
 ;;55887-0214-30
 ;;9002226.02101,"798,55887-0214-30 ",.02)
 ;;55887-0214-30
 ;;9002226.02101,"798,55887-0237-30 ",.01)
 ;;55887-0237-30
 ;;9002226.02101,"798,55887-0237-30 ",.02)
 ;;55887-0237-30
 ;;9002226.02101,"798,55887-0237-60 ",.01)
 ;;55887-0237-60
 ;;9002226.02101,"798,55887-0237-60 ",.02)
 ;;55887-0237-60
 ;;9002226.02101,"798,55887-0237-86 ",.01)
 ;;55887-0237-86
 ;;9002226.02101,"798,55887-0237-86 ",.02)
 ;;55887-0237-86
 ;;9002226.02101,"798,55887-0237-90 ",.01)
 ;;55887-0237-90
 ;;9002226.02101,"798,55887-0237-90 ",.02)
 ;;55887-0237-90
 ;;9002226.02101,"798,55887-0256-20 ",.01)
 ;;55887-0256-20
 ;;9002226.02101,"798,55887-0256-20 ",.02)
 ;;55887-0256-20
 ;;9002226.02101,"798,55887-0256-30 ",.01)
 ;;55887-0256-30
 ;;9002226.02101,"798,55887-0256-30 ",.02)
 ;;55887-0256-30
 ;;9002226.02101,"798,55887-0256-60 ",.01)
 ;;55887-0256-60
 ;;9002226.02101,"798,55887-0256-60 ",.02)
 ;;55887-0256-60
 ;;9002226.02101,"798,55887-0256-90 ",.01)
 ;;55887-0256-90
 ;;9002226.02101,"798,55887-0256-90 ",.02)
 ;;55887-0256-90
 ;;9002226.02101,"798,55887-0260-30 ",.01)
 ;;55887-0260-30
 ;;9002226.02101,"798,55887-0260-30 ",.02)
 ;;55887-0260-30
 ;;9002226.02101,"798,55887-0260-90 ",.01)
 ;;55887-0260-90
 ;;9002226.02101,"798,55887-0260-90 ",.02)
 ;;55887-0260-90
 ;;9002226.02101,"798,55887-0261-01 ",.01)
 ;;55887-0261-01
 ;;9002226.02101,"798,55887-0261-01 ",.02)
 ;;55887-0261-01
 ;;9002226.02101,"798,55887-0261-07 ",.01)
 ;;55887-0261-07
 ;;9002226.02101,"798,55887-0261-07 ",.02)
 ;;55887-0261-07
 ;;9002226.02101,"798,55887-0261-30 ",.01)
 ;;55887-0261-30
 ;;9002226.02101,"798,55887-0261-30 ",.02)
 ;;55887-0261-30
 ;;9002226.02101,"798,55887-0261-90 ",.01)
 ;;55887-0261-90
 ;;9002226.02101,"798,55887-0261-90 ",.02)
 ;;55887-0261-90
 ;;9002226.02101,"798,55887-0283-30 ",.01)
 ;;55887-0283-30
 ;;9002226.02101,"798,55887-0283-30 ",.02)
 ;;55887-0283-30
 ;;9002226.02101,"798,55887-0283-60 ",.01)
 ;;55887-0283-60
 ;;9002226.02101,"798,55887-0283-60 ",.02)
 ;;55887-0283-60
 ;;9002226.02101,"798,55887-0283-90 ",.01)
 ;;55887-0283-90
 ;;9002226.02101,"798,55887-0283-90 ",.02)
 ;;55887-0283-90
 ;;9002226.02101,"798,55887-0284-30 ",.01)
 ;;55887-0284-30
 ;;9002226.02101,"798,55887-0284-30 ",.02)
 ;;55887-0284-30
 ;;9002226.02101,"798,55887-0284-60 ",.01)
 ;;55887-0284-60
 ;;9002226.02101,"798,55887-0284-60 ",.02)
 ;;55887-0284-60
 ;;9002226.02101,"798,55887-0284-90 ",.01)
 ;;55887-0284-90
 ;;9002226.02101,"798,55887-0284-90 ",.02)
 ;;55887-0284-90
 ;;9002226.02101,"798,55887-0288-30 ",.01)
 ;;55887-0288-30
 ;;9002226.02101,"798,55887-0288-30 ",.02)
 ;;55887-0288-30
 ;;9002226.02101,"798,55887-0289-30 ",.01)
 ;;55887-0289-30
 ;;9002226.02101,"798,55887-0289-30 ",.02)
 ;;55887-0289-30
 ;;9002226.02101,"798,55887-0289-60 ",.01)
 ;;55887-0289-60
 ;;9002226.02101,"798,55887-0289-60 ",.02)
 ;;55887-0289-60
 ;;9002226.02101,"798,55887-0346-30 ",.01)
 ;;55887-0346-30
 ;;9002226.02101,"798,55887-0346-30 ",.02)
 ;;55887-0346-30
 ;;9002226.02101,"798,55887-0356-30 ",.01)
 ;;55887-0356-30
 ;;9002226.02101,"798,55887-0356-30 ",.02)
 ;;55887-0356-30
 ;;9002226.02101,"798,55887-0356-60 ",.01)
 ;;55887-0356-60
 ;;9002226.02101,"798,55887-0356-60 ",.02)
 ;;55887-0356-60
 ;;9002226.02101,"798,55887-0394-30 ",.01)
 ;;55887-0394-30
 ;;9002226.02101,"798,55887-0394-30 ",.02)
 ;;55887-0394-30
 ;;9002226.02101,"798,55887-0394-60 ",.01)
 ;;55887-0394-60
 ;;9002226.02101,"798,55887-0394-60 ",.02)
 ;;55887-0394-60
 ;;9002226.02101,"798,55887-0394-90 ",.01)
 ;;55887-0394-90
 ;;9002226.02101,"798,55887-0394-90 ",.02)
 ;;55887-0394-90
 ;;9002226.02101,"798,55887-0398-60 ",.01)
 ;;55887-0398-60
 ;;9002226.02101,"798,55887-0398-60 ",.02)
 ;;55887-0398-60
 ;;9002226.02101,"798,55887-0433-30 ",.01)
 ;;55887-0433-30
 ;;9002226.02101,"798,55887-0433-30 ",.02)
 ;;55887-0433-30
 ;;9002226.02101,"798,55887-0439-30 ",.01)
 ;;55887-0439-30
 ;;9002226.02101,"798,55887-0439-30 ",.02)
 ;;55887-0439-30
 ;;9002226.02101,"798,55887-0439-60 ",.01)
 ;;55887-0439-60
 ;;9002226.02101,"798,55887-0439-60 ",.02)
 ;;55887-0439-60
 ;;9002226.02101,"798,55887-0439-92 ",.01)
 ;;55887-0439-92
 ;;9002226.02101,"798,55887-0439-92 ",.02)
 ;;55887-0439-92
 ;;9002226.02101,"798,55887-0458-30 ",.01)
 ;;55887-0458-30
 ;;9002226.02101,"798,55887-0458-30 ",.02)
 ;;55887-0458-30
 ;;9002226.02101,"798,55887-0458-40 ",.01)
 ;;55887-0458-40
 ;;9002226.02101,"798,55887-0458-40 ",.02)
 ;;55887-0458-40
 ;;9002226.02101,"798,55887-0458-60 ",.01)
 ;;55887-0458-60
 ;;9002226.02101,"798,55887-0458-60 ",.02)
 ;;55887-0458-60
 ;;9002226.02101,"798,55887-0458-90 ",.01)
 ;;55887-0458-90
 ;;9002226.02101,"798,55887-0458-90 ",.02)
 ;;55887-0458-90
 ;;9002226.02101,"798,55887-0490-30 ",.01)
 ;;55887-0490-30
 ;;9002226.02101,"798,55887-0490-30 ",.02)
 ;;55887-0490-30
 ;;9002226.02101,"798,55887-0490-60 ",.01)
 ;;55887-0490-60
 ;;9002226.02101,"798,55887-0490-60 ",.02)
 ;;55887-0490-60
 ;;9002226.02101,"798,55887-0490-82 ",.01)
 ;;55887-0490-82
 ;;9002226.02101,"798,55887-0490-82 ",.02)
 ;;55887-0490-82
 ;;9002226.02101,"798,55887-0490-90 ",.01)
 ;;55887-0490-90
 ;;9002226.02101,"798,55887-0490-90 ",.02)
 ;;55887-0490-90
 ;;9002226.02101,"798,55887-0496-30 ",.01)
 ;;55887-0496-30
 ;;9002226.02101,"798,55887-0496-30 ",.02)
 ;;55887-0496-30
 ;;9002226.02101,"798,55887-0496-60 ",.01)
 ;;55887-0496-60
 ;;9002226.02101,"798,55887-0496-60 ",.02)
 ;;55887-0496-60
 ;;9002226.02101,"798,55887-0496-90 ",.01)
 ;;55887-0496-90
 ;;9002226.02101,"798,55887-0496-90 ",.02)
 ;;55887-0496-90
 ;;9002226.02101,"798,55887-0498-30 ",.01)
 ;;55887-0498-30
 ;;9002226.02101,"798,55887-0498-30 ",.02)
 ;;55887-0498-30
 ;;9002226.02101,"798,55887-0498-60 ",.01)
 ;;55887-0498-60
 ;;9002226.02101,"798,55887-0498-60 ",.02)
 ;;55887-0498-60
 ;;9002226.02101,"798,55887-0502-60 ",.01)
 ;;55887-0502-60
 ;;9002226.02101,"798,55887-0502-60 ",.02)
 ;;55887-0502-60
 ;;9002226.02101,"798,55887-0511-20 ",.01)
 ;;55887-0511-20
 ;;9002226.02101,"798,55887-0511-20 ",.02)
 ;;55887-0511-20
 ;;9002226.02101,"798,55887-0511-30 ",.01)
 ;;55887-0511-30
 ;;9002226.02101,"798,55887-0511-30 ",.02)
 ;;55887-0511-30
 ;;9002226.02101,"798,55887-0511-60 ",.01)
 ;;55887-0511-60
 ;;9002226.02101,"798,55887-0511-60 ",.02)
 ;;55887-0511-60
 ;;9002226.02101,"798,55887-0511-82 ",.01)
 ;;55887-0511-82
 ;;9002226.02101,"798,55887-0511-82 ",.02)
 ;;55887-0511-82
 ;;9002226.02101,"798,55887-0511-90 ",.01)
 ;;55887-0511-90
 ;;9002226.02101,"798,55887-0511-90 ",.02)
 ;;55887-0511-90
 ;;9002226.02101,"798,55887-0518-15 ",.01)
 ;;55887-0518-15
 ;;9002226.02101,"798,55887-0518-15 ",.02)
 ;;55887-0518-15
 ;;9002226.02101,"798,55887-0518-30 ",.01)
 ;;55887-0518-30
 ;;9002226.02101,"798,55887-0518-30 ",.02)
 ;;55887-0518-30
 ;;9002226.02101,"798,55887-0518-90 ",.01)
 ;;55887-0518-90
 ;;9002226.02101,"798,55887-0518-90 ",.02)
 ;;55887-0518-90
 ;;9002226.02101,"798,55887-0519-60 ",.01)
 ;;55887-0519-60
 ;;9002226.02101,"798,55887-0519-60 ",.02)
 ;;55887-0519-60
 ;;9002226.02101,"798,55887-0524-30 ",.01)
 ;;55887-0524-30
 ;;9002226.02101,"798,55887-0524-30 ",.02)
 ;;55887-0524-30
 ;;9002226.02101,"798,55887-0524-60 ",.01)
 ;;55887-0524-60
 ;;9002226.02101,"798,55887-0524-60 ",.02)
 ;;55887-0524-60
 ;;9002226.02101,"798,55887-0541-30 ",.01)
 ;;55887-0541-30
 ;;9002226.02101,"798,55887-0541-30 ",.02)
 ;;55887-0541-30
 ;;9002226.02101,"798,55887-0548-30 ",.01)
 ;;55887-0548-30
 ;;9002226.02101,"798,55887-0548-30 ",.02)
 ;;55887-0548-30
 ;;9002226.02101,"798,55887-0549-90 ",.01)
 ;;55887-0549-90
 ;;9002226.02101,"798,55887-0549-90 ",.02)
 ;;55887-0549-90
 ;;9002226.02101,"798,55887-0550-30 ",.01)
 ;;55887-0550-30
 ;;9002226.02101,"798,55887-0550-30 ",.02)
 ;;55887-0550-30
 ;;9002226.02101,"798,55887-0552-30 ",.01)
 ;;55887-0552-30
 ;;9002226.02101,"798,55887-0552-30 ",.02)
 ;;55887-0552-30
 ;;9002226.02101,"798,55887-0552-60 ",.01)
 ;;55887-0552-60
 ;;9002226.02101,"798,55887-0552-60 ",.02)
 ;;55887-0552-60
 ;;9002226.02101,"798,55887-0552-90 ",.01)
 ;;55887-0552-90
 ;;9002226.02101,"798,55887-0552-90 ",.02)
 ;;55887-0552-90
 ;;9002226.02101,"798,55887-0570-20 ",.01)
 ;;55887-0570-20
 ;;9002226.02101,"798,55887-0570-20 ",.02)
 ;;55887-0570-20
 ;;9002226.02101,"798,55887-0570-30 ",.01)
 ;;55887-0570-30
 ;;9002226.02101,"798,55887-0570-30 ",.02)
 ;;55887-0570-30
 ;;9002226.02101,"798,55887-0570-40 ",.01)
 ;;55887-0570-40
 ;;9002226.02101,"798,55887-0570-40 ",.02)
 ;;55887-0570-40
 ;;9002226.02101,"798,55887-0570-60 ",.01)
 ;;55887-0570-60
 ;;9002226.02101,"798,55887-0570-60 ",.02)
 ;;55887-0570-60
 ;;9002226.02101,"798,55887-0570-90 ",.01)
 ;;55887-0570-90
 ;;9002226.02101,"798,55887-0570-90 ",.02)
 ;;55887-0570-90
 ;;9002226.02101,"798,55887-0570-92 ",.01)
 ;;55887-0570-92
 ;;9002226.02101,"798,55887-0570-92 ",.02)
 ;;55887-0570-92
 ;;9002226.02101,"798,55887-0572-14 ",.01)
 ;;55887-0572-14
 ;;9002226.02101,"798,55887-0572-14 ",.02)
 ;;55887-0572-14
 ;;9002226.02101,"798,55887-0572-30 ",.01)
 ;;55887-0572-30
 ;;9002226.02101,"798,55887-0572-30 ",.02)
 ;;55887-0572-30
 ;;9002226.02101,"798,55887-0572-50 ",.01)
 ;;55887-0572-50
 ;;9002226.02101,"798,55887-0572-50 ",.02)
 ;;55887-0572-50
 ;;9002226.02101,"798,55887-0572-60 ",.01)
 ;;55887-0572-60
 ;;9002226.02101,"798,55887-0572-60 ",.02)
 ;;55887-0572-60
 ;;9002226.02101,"798,55887-0572-90 ",.01)
 ;;55887-0572-90
 ;;9002226.02101,"798,55887-0572-90 ",.02)
 ;;55887-0572-90
 ;;9002226.02101,"798,55887-0650-30 ",.01)
 ;;55887-0650-30
 ;;9002226.02101,"798,55887-0650-30 ",.02)
 ;;55887-0650-30
 ;;9002226.02101,"798,55887-0650-60 ",.01)
 ;;55887-0650-60
 ;;9002226.02101,"798,55887-0650-60 ",.02)
 ;;55887-0650-60
 ;;9002226.02101,"798,55887-0650-90 ",.01)
 ;;55887-0650-90
 ;;9002226.02101,"798,55887-0650-90 ",.02)
 ;;55887-0650-90
 ;;9002226.02101,"798,55887-0650-92 ",.01)
 ;;55887-0650-92
 ;;9002226.02101,"798,55887-0650-92 ",.02)
 ;;55887-0650-92
 ;;9002226.02101,"798,55887-0660-30 ",.01)
 ;;55887-0660-30
 ;;9002226.02101,"798,55887-0660-30 ",.02)
 ;;55887-0660-30
 ;;9002226.02101,"798,55887-0661-01 ",.01)
 ;;55887-0661-01
 ;;9002226.02101,"798,55887-0661-01 ",.02)
 ;;55887-0661-01
 ;;9002226.02101,"798,55887-0661-30 ",.01)
 ;;55887-0661-30
 ;;9002226.02101,"798,55887-0661-30 ",.02)
 ;;55887-0661-30
 ;;9002226.02101,"798,55887-0661-60 ",.01)
 ;;55887-0661-60
 ;;9002226.02101,"798,55887-0661-60 ",.02)
 ;;55887-0661-60
 ;;9002226.02101,"798,55887-0661-90 ",.01)
 ;;55887-0661-90
 ;;9002226.02101,"798,55887-0661-90 ",.02)
 ;;55887-0661-90
 ;;9002226.02101,"798,55887-0662-30 ",.01)
 ;;55887-0662-30
 ;;9002226.02101,"798,55887-0662-30 ",.02)
 ;;55887-0662-30
 ;;9002226.02101,"798,55887-0662-60 ",.01)
 ;;55887-0662-60
 ;;9002226.02101,"798,55887-0662-60 ",.02)
 ;;55887-0662-60
 ;;9002226.02101,"798,55887-0663-30 ",.01)
 ;;55887-0663-30
 ;;9002226.02101,"798,55887-0663-30 ",.02)
 ;;55887-0663-30
 ;;9002226.02101,"798,55887-0663-60 ",.01)
 ;;55887-0663-60
 ;;9002226.02101,"798,55887-0663-60 ",.02)
 ;;55887-0663-60
 ;;9002226.02101,"798,55887-0663-90 ",.01)
 ;;55887-0663-90