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

BGP53J39.m

Go to the documentation of this file.
BGP53J39 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;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,"798,55289-0733-30 ",.01)
 ;;55289-0733-30
 ;;9002226.02101,"798,55289-0733-30 ",.02)
 ;;55289-0733-30
 ;;9002226.02101,"798,55289-0733-60 ",.01)
 ;;55289-0733-60
 ;;9002226.02101,"798,55289-0733-60 ",.02)
 ;;55289-0733-60
 ;;9002226.02101,"798,55289-0768-30 ",.01)
 ;;55289-0768-30
 ;;9002226.02101,"798,55289-0768-30 ",.02)
 ;;55289-0768-30
 ;;9002226.02101,"798,55289-0827-30 ",.01)
 ;;55289-0827-30
 ;;9002226.02101,"798,55289-0827-30 ",.02)
 ;;55289-0827-30
 ;;9002226.02101,"798,55289-0828-30 ",.01)
 ;;55289-0828-30
 ;;9002226.02101,"798,55289-0828-30 ",.02)
 ;;55289-0828-30
 ;;9002226.02101,"798,55289-0830-30 ",.01)
 ;;55289-0830-30
 ;;9002226.02101,"798,55289-0830-30 ",.02)
 ;;55289-0830-30
 ;;9002226.02101,"798,55289-0869-30 ",.01)
 ;;55289-0869-30
 ;;9002226.02101,"798,55289-0869-30 ",.02)
 ;;55289-0869-30
 ;;9002226.02101,"798,55289-0883-14 ",.01)
 ;;55289-0883-14
 ;;9002226.02101,"798,55289-0883-14 ",.02)
 ;;55289-0883-14
 ;;9002226.02101,"798,55289-0883-30 ",.01)
 ;;55289-0883-30
 ;;9002226.02101,"798,55289-0883-30 ",.02)
 ;;55289-0883-30
 ;;9002226.02101,"798,55289-0883-90 ",.01)
 ;;55289-0883-90
 ;;9002226.02101,"798,55289-0883-90 ",.02)
 ;;55289-0883-90
 ;;9002226.02101,"798,55289-0897-30 ",.01)
 ;;55289-0897-30
 ;;9002226.02101,"798,55289-0897-30 ",.02)
 ;;55289-0897-30
 ;;9002226.02101,"798,55289-0900-15 ",.01)
 ;;55289-0900-15
 ;;9002226.02101,"798,55289-0900-15 ",.02)
 ;;55289-0900-15
 ;;9002226.02101,"798,55289-0900-30 ",.01)
 ;;55289-0900-30
 ;;9002226.02101,"798,55289-0900-30 ",.02)
 ;;55289-0900-30
 ;;9002226.02101,"798,55289-0905-30 ",.01)
 ;;55289-0905-30
 ;;9002226.02101,"798,55289-0905-30 ",.02)
 ;;55289-0905-30
 ;;9002226.02101,"798,55289-0922-15 ",.01)
 ;;55289-0922-15
 ;;9002226.02101,"798,55289-0922-15 ",.02)
 ;;55289-0922-15
 ;;9002226.02101,"798,55289-0922-30 ",.01)
 ;;55289-0922-30
 ;;9002226.02101,"798,55289-0922-30 ",.02)
 ;;55289-0922-30
 ;;9002226.02101,"798,55289-0972-30 ",.01)
 ;;55289-0972-30
 ;;9002226.02101,"798,55289-0972-30 ",.02)
 ;;55289-0972-30
 ;;9002226.02101,"798,55289-0972-60 ",.01)
 ;;55289-0972-60
 ;;9002226.02101,"798,55289-0972-60 ",.02)
 ;;55289-0972-60
 ;;9002226.02101,"798,55289-0972-90 ",.01)
 ;;55289-0972-90
 ;;9002226.02101,"798,55289-0972-90 ",.02)
 ;;55289-0972-90
 ;;9002226.02101,"798,55587-0283-30 ",.01)
 ;;55587-0283-30
 ;;9002226.02101,"798,55587-0283-30 ",.02)
 ;;55587-0283-30
 ;;9002226.02101,"798,55587-0283-60 ",.01)
 ;;55587-0283-60
 ;;9002226.02101,"798,55587-0283-60 ",.02)
 ;;55587-0283-60
 ;;9002226.02101,"798,55587-0283-90 ",.01)
 ;;55587-0283-90
 ;;9002226.02101,"798,55587-0283-90 ",.02)
 ;;55587-0283-90
 ;;9002226.02101,"798,55587-0284-30 ",.01)
 ;;55587-0284-30
 ;;9002226.02101,"798,55587-0284-30 ",.02)
 ;;55587-0284-30
 ;;9002226.02101,"798,55587-0284-60 ",.01)
 ;;55587-0284-60
 ;;9002226.02101,"798,55587-0284-60 ",.02)
 ;;55587-0284-60
 ;;9002226.02101,"798,55587-0284-90 ",.01)
 ;;55587-0284-90
 ;;9002226.02101,"798,55587-0284-90 ",.02)
 ;;55587-0284-90
 ;;9002226.02101,"798,55864-0708-30 ",.01)
 ;;55864-0708-30
 ;;9002226.02101,"798,55864-0708-30 ",.02)
 ;;55864-0708-30
 ;;9002226.02101,"798,55887-0125-60 ",.01)
 ;;55887-0125-60
 ;;9002226.02101,"798,55887-0125-60 ",.02)
 ;;55887-0125-60
 ;;9002226.02101,"798,55887-0143-30 ",.01)
 ;;55887-0143-30
 ;;9002226.02101,"798,55887-0143-30 ",.02)
 ;;55887-0143-30
 ;;9002226.02101,"798,55887-0143-60 ",.01)
 ;;55887-0143-60
 ;;9002226.02101,"798,55887-0143-60 ",.02)
 ;;55887-0143-60
 ;;9002226.02101,"798,55887-0143-82 ",.01)
 ;;55887-0143-82
 ;;9002226.02101,"798,55887-0143-82 ",.02)
 ;;55887-0143-82
 ;;9002226.02101,"798,55887-0143-90 ",.01)
 ;;55887-0143-90
 ;;9002226.02101,"798,55887-0143-90 ",.02)
 ;;55887-0143-90
 ;;9002226.02101,"798,55887-0143-92 ",.01)
 ;;55887-0143-92
 ;;9002226.02101,"798,55887-0143-92 ",.02)
 ;;55887-0143-92
 ;;9002226.02101,"798,55887-0144-30 ",.01)
 ;;55887-0144-30
 ;;9002226.02101,"798,55887-0144-30 ",.02)
 ;;55887-0144-30
 ;;9002226.02101,"798,55887-0144-60 ",.01)
 ;;55887-0144-60
 ;;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-90 ",.01)
 ;;55887-0193-90
 ;;9002226.02101,"798,55887-0193-90 ",.02)
 ;;55887-0193-90
 ;;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-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-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-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-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-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-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-0549-90 ",.01)
 ;;55887-0549-90
 ;;9002226.02101,"798,55887-0549-90 ",.02)
 ;;55887-0549-90
 ;;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-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-90 ",.01)
 ;;55887-0572-90
 ;;9002226.02101,"798,55887-0572-90 ",.02)
 ;;55887-0572-90
 ;;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-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
 ;;9002226.02101,"798,55887-0663-90 ",.02)
 ;;55887-0663-90
 ;;9002226.02101,"798,55887-0745-50 ",.01)
 ;;55887-0745-50
 ;;9002226.02101,"798,55887-0745-50 ",.02)
 ;;55887-0745-50
 ;;9002226.02101,"798,55887-0871-30 ",.01)
 ;;55887-0871-30
 ;;9002226.02101,"798,55887-0871-30 ",.02)
 ;;55887-0871-30