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

BGP73G46.m

Go to the documentation of this file.
BGP73G46 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"869,55289-0905-30 ",.02)
 ;;55289-0905-30
 ;;9002226.02101,"869,55289-0922-15 ",.01)
 ;;55289-0922-15
 ;;9002226.02101,"869,55289-0922-15 ",.02)
 ;;55289-0922-15
 ;;9002226.02101,"869,55289-0922-30 ",.01)
 ;;55289-0922-30
 ;;9002226.02101,"869,55289-0922-30 ",.02)
 ;;55289-0922-30
 ;;9002226.02101,"869,55289-0972-30 ",.01)
 ;;55289-0972-30
 ;;9002226.02101,"869,55289-0972-30 ",.02)
 ;;55289-0972-30
 ;;9002226.02101,"869,55289-0972-60 ",.01)
 ;;55289-0972-60
 ;;9002226.02101,"869,55289-0972-60 ",.02)
 ;;55289-0972-60
 ;;9002226.02101,"869,55289-0972-90 ",.01)
 ;;55289-0972-90
 ;;9002226.02101,"869,55289-0972-90 ",.02)
 ;;55289-0972-90
 ;;9002226.02101,"869,55864-0708-30 ",.01)
 ;;55864-0708-30
 ;;9002226.02101,"869,55864-0708-30 ",.02)
 ;;55864-0708-30
 ;;9002226.02101,"869,55887-0125-60 ",.01)
 ;;55887-0125-60
 ;;9002226.02101,"869,55887-0125-60 ",.02)
 ;;55887-0125-60
 ;;9002226.02101,"869,55887-0143-30 ",.01)
 ;;55887-0143-30
 ;;9002226.02101,"869,55887-0143-30 ",.02)
 ;;55887-0143-30
 ;;9002226.02101,"869,55887-0143-60 ",.01)
 ;;55887-0143-60
 ;;9002226.02101,"869,55887-0143-60 ",.02)
 ;;55887-0143-60
 ;;9002226.02101,"869,55887-0143-82 ",.01)
 ;;55887-0143-82
 ;;9002226.02101,"869,55887-0143-82 ",.02)
 ;;55887-0143-82
 ;;9002226.02101,"869,55887-0143-90 ",.01)
 ;;55887-0143-90
 ;;9002226.02101,"869,55887-0143-90 ",.02)
 ;;55887-0143-90
 ;;9002226.02101,"869,55887-0143-92 ",.01)
 ;;55887-0143-92
 ;;9002226.02101,"869,55887-0143-92 ",.02)
 ;;55887-0143-92
 ;;9002226.02101,"869,55887-0144-30 ",.01)
 ;;55887-0144-30
 ;;9002226.02101,"869,55887-0144-30 ",.02)
 ;;55887-0144-30
 ;;9002226.02101,"869,55887-0144-60 ",.01)
 ;;55887-0144-60
 ;;9002226.02101,"869,55887-0144-60 ",.02)
 ;;55887-0144-60
 ;;9002226.02101,"869,55887-0144-82 ",.01)
 ;;55887-0144-82
 ;;9002226.02101,"869,55887-0144-82 ",.02)
 ;;55887-0144-82
 ;;9002226.02101,"869,55887-0144-90 ",.01)
 ;;55887-0144-90
 ;;9002226.02101,"869,55887-0144-90 ",.02)
 ;;55887-0144-90
 ;;9002226.02101,"869,55887-0144-92 ",.01)
 ;;55887-0144-92
 ;;9002226.02101,"869,55887-0144-92 ",.02)
 ;;55887-0144-92
 ;;9002226.02101,"869,55887-0151-01 ",.01)
 ;;55887-0151-01
 ;;9002226.02101,"869,55887-0151-01 ",.02)
 ;;55887-0151-01
 ;;9002226.02101,"869,55887-0151-20 ",.01)
 ;;55887-0151-20
 ;;9002226.02101,"869,55887-0151-20 ",.02)
 ;;55887-0151-20
 ;;9002226.02101,"869,55887-0151-30 ",.01)
 ;;55887-0151-30
 ;;9002226.02101,"869,55887-0151-30 ",.02)
 ;;55887-0151-30
 ;;9002226.02101,"869,55887-0151-60 ",.01)
 ;;55887-0151-60
 ;;9002226.02101,"869,55887-0151-60 ",.02)
 ;;55887-0151-60
 ;;9002226.02101,"869,55887-0151-82 ",.01)
 ;;55887-0151-82
 ;;9002226.02101,"869,55887-0151-82 ",.02)
 ;;55887-0151-82
 ;;9002226.02101,"869,55887-0151-90 ",.01)
 ;;55887-0151-90
 ;;9002226.02101,"869,55887-0151-90 ",.02)
 ;;55887-0151-90
 ;;9002226.02101,"869,55887-0160-15 ",.01)
 ;;55887-0160-15
 ;;9002226.02101,"869,55887-0160-15 ",.02)
 ;;55887-0160-15
 ;;9002226.02101,"869,55887-0160-30 ",.01)
 ;;55887-0160-30
 ;;9002226.02101,"869,55887-0160-30 ",.02)
 ;;55887-0160-30
 ;;9002226.02101,"869,55887-0160-60 ",.01)
 ;;55887-0160-60
 ;;9002226.02101,"869,55887-0160-60 ",.02)
 ;;55887-0160-60
 ;;9002226.02101,"869,55887-0160-90 ",.01)
 ;;55887-0160-90
 ;;9002226.02101,"869,55887-0160-90 ",.02)
 ;;55887-0160-90
 ;;9002226.02101,"869,55887-0168-30 ",.01)
 ;;55887-0168-30
 ;;9002226.02101,"869,55887-0168-30 ",.02)
 ;;55887-0168-30
 ;;9002226.02101,"869,55887-0168-60 ",.01)
 ;;55887-0168-60
 ;;9002226.02101,"869,55887-0168-60 ",.02)
 ;;55887-0168-60
 ;;9002226.02101,"869,55887-0168-90 ",.01)
 ;;55887-0168-90
 ;;9002226.02101,"869,55887-0168-90 ",.02)
 ;;55887-0168-90
 ;;9002226.02101,"869,55887-0193-90 ",.01)
 ;;55887-0193-90
 ;;9002226.02101,"869,55887-0193-90 ",.02)
 ;;55887-0193-90
 ;;9002226.02101,"869,55887-0237-30 ",.01)
 ;;55887-0237-30
 ;;9002226.02101,"869,55887-0237-30 ",.02)
 ;;55887-0237-30
 ;;9002226.02101,"869,55887-0237-60 ",.01)
 ;;55887-0237-60
 ;;9002226.02101,"869,55887-0237-60 ",.02)
 ;;55887-0237-60
 ;;9002226.02101,"869,55887-0237-86 ",.01)
 ;;55887-0237-86
 ;;9002226.02101,"869,55887-0237-86 ",.02)
 ;;55887-0237-86
 ;;9002226.02101,"869,55887-0237-90 ",.01)
 ;;55887-0237-90
 ;;9002226.02101,"869,55887-0237-90 ",.02)
 ;;55887-0237-90
 ;;9002226.02101,"869,55887-0256-20 ",.01)
 ;;55887-0256-20
 ;;9002226.02101,"869,55887-0256-20 ",.02)
 ;;55887-0256-20
 ;;9002226.02101,"869,55887-0260-90 ",.01)
 ;;55887-0260-90
 ;;9002226.02101,"869,55887-0260-90 ",.02)
 ;;55887-0260-90
 ;;9002226.02101,"869,55887-0261-01 ",.01)
 ;;55887-0261-01
 ;;9002226.02101,"869,55887-0261-01 ",.02)
 ;;55887-0261-01
 ;;9002226.02101,"869,55887-0261-90 ",.01)
 ;;55887-0261-90
 ;;9002226.02101,"869,55887-0261-90 ",.02)
 ;;55887-0261-90
 ;;9002226.02101,"869,55887-0283-30 ",.01)
 ;;55887-0283-30
 ;;9002226.02101,"869,55887-0283-30 ",.02)
 ;;55887-0283-30
 ;;9002226.02101,"869,55887-0283-60 ",.01)
 ;;55887-0283-60
 ;;9002226.02101,"869,55887-0283-60 ",.02)
 ;;55887-0283-60
 ;;9002226.02101,"869,55887-0283-90 ",.01)
 ;;55887-0283-90
 ;;9002226.02101,"869,55887-0283-90 ",.02)
 ;;55887-0283-90
 ;;9002226.02101,"869,55887-0284-30 ",.01)
 ;;55887-0284-30
 ;;9002226.02101,"869,55887-0284-30 ",.02)
 ;;55887-0284-30
 ;;9002226.02101,"869,55887-0284-60 ",.01)
 ;;55887-0284-60
 ;;9002226.02101,"869,55887-0284-60 ",.02)
 ;;55887-0284-60
 ;;9002226.02101,"869,55887-0284-90 ",.01)
 ;;55887-0284-90
 ;;9002226.02101,"869,55887-0284-90 ",.02)
 ;;55887-0284-90
 ;;9002226.02101,"869,55887-0288-30 ",.01)
 ;;55887-0288-30
 ;;9002226.02101,"869,55887-0288-30 ",.02)
 ;;55887-0288-30
 ;;9002226.02101,"869,55887-0289-30 ",.01)
 ;;55887-0289-30
 ;;9002226.02101,"869,55887-0289-30 ",.02)
 ;;55887-0289-30
 ;;9002226.02101,"869,55887-0289-60 ",.01)
 ;;55887-0289-60
 ;;9002226.02101,"869,55887-0289-60 ",.02)
 ;;55887-0289-60
 ;;9002226.02101,"869,55887-0356-30 ",.01)
 ;;55887-0356-30
 ;;9002226.02101,"869,55887-0356-30 ",.02)
 ;;55887-0356-30
 ;;9002226.02101,"869,55887-0356-60 ",.01)
 ;;55887-0356-60
 ;;9002226.02101,"869,55887-0356-60 ",.02)
 ;;55887-0356-60
 ;;9002226.02101,"869,55887-0394-90 ",.01)
 ;;55887-0394-90
 ;;9002226.02101,"869,55887-0394-90 ",.02)
 ;;55887-0394-90
 ;;9002226.02101,"869,55887-0398-60 ",.01)
 ;;55887-0398-60
 ;;9002226.02101,"869,55887-0398-60 ",.02)
 ;;55887-0398-60
 ;;9002226.02101,"869,55887-0433-30 ",.01)
 ;;55887-0433-30
 ;;9002226.02101,"869,55887-0433-30 ",.02)
 ;;55887-0433-30
 ;;9002226.02101,"869,55887-0439-30 ",.01)
 ;;55887-0439-30
 ;;9002226.02101,"869,55887-0439-30 ",.02)
 ;;55887-0439-30
 ;;9002226.02101,"869,55887-0439-60 ",.01)
 ;;55887-0439-60
 ;;9002226.02101,"869,55887-0439-60 ",.02)
 ;;55887-0439-60
 ;;9002226.02101,"869,55887-0439-92 ",.01)
 ;;55887-0439-92
 ;;9002226.02101,"869,55887-0439-92 ",.02)
 ;;55887-0439-92
 ;;9002226.02101,"869,55887-0458-60 ",.01)
 ;;55887-0458-60
 ;;9002226.02101,"869,55887-0458-60 ",.02)
 ;;55887-0458-60
 ;;9002226.02101,"869,55887-0458-90 ",.01)
 ;;55887-0458-90
 ;;9002226.02101,"869,55887-0458-90 ",.02)
 ;;55887-0458-90
 ;;9002226.02101,"869,55887-0490-30 ",.01)
 ;;55887-0490-30
 ;;9002226.02101,"869,55887-0490-30 ",.02)
 ;;55887-0490-30
 ;;9002226.02101,"869,55887-0490-60 ",.01)
 ;;55887-0490-60
 ;;9002226.02101,"869,55887-0490-60 ",.02)
 ;;55887-0490-60
 ;;9002226.02101,"869,55887-0490-82 ",.01)
 ;;55887-0490-82
 ;;9002226.02101,"869,55887-0490-82 ",.02)
 ;;55887-0490-82
 ;;9002226.02101,"869,55887-0490-90 ",.01)
 ;;55887-0490-90
 ;;9002226.02101,"869,55887-0490-90 ",.02)
 ;;55887-0490-90
 ;;9002226.02101,"869,55887-0496-30 ",.01)
 ;;55887-0496-30
 ;;9002226.02101,"869,55887-0496-30 ",.02)
 ;;55887-0496-30
 ;;9002226.02101,"869,55887-0496-90 ",.01)
 ;;55887-0496-90
 ;;9002226.02101,"869,55887-0496-90 ",.02)
 ;;55887-0496-90
 ;;9002226.02101,"869,55887-0498-30 ",.01)
 ;;55887-0498-30
 ;;9002226.02101,"869,55887-0498-30 ",.02)
 ;;55887-0498-30
 ;;9002226.02101,"869,55887-0498-60 ",.01)
 ;;55887-0498-60
 ;;9002226.02101,"869,55887-0498-60 ",.02)
 ;;55887-0498-60
 ;;9002226.02101,"869,55887-0502-60 ",.01)
 ;;55887-0502-60
 ;;9002226.02101,"869,55887-0502-60 ",.02)
 ;;55887-0502-60
 ;;9002226.02101,"869,55887-0511-20 ",.01)
 ;;55887-0511-20
 ;;9002226.02101,"869,55887-0511-20 ",.02)
 ;;55887-0511-20
 ;;9002226.02101,"869,55887-0511-30 ",.01)
 ;;55887-0511-30
 ;;9002226.02101,"869,55887-0511-30 ",.02)
 ;;55887-0511-30
 ;;9002226.02101,"869,55887-0511-60 ",.01)
 ;;55887-0511-60
 ;;9002226.02101,"869,55887-0511-60 ",.02)
 ;;55887-0511-60
 ;;9002226.02101,"869,55887-0511-82 ",.01)
 ;;55887-0511-82
 ;;9002226.02101,"869,55887-0511-82 ",.02)
 ;;55887-0511-82
 ;;9002226.02101,"869,55887-0511-90 ",.01)
 ;;55887-0511-90
 ;;9002226.02101,"869,55887-0511-90 ",.02)
 ;;55887-0511-90
 ;;9002226.02101,"869,55887-0518-15 ",.01)
 ;;55887-0518-15
 ;;9002226.02101,"869,55887-0518-15 ",.02)
 ;;55887-0518-15
 ;;9002226.02101,"869,55887-0518-30 ",.01)
 ;;55887-0518-30
 ;;9002226.02101,"869,55887-0518-30 ",.02)
 ;;55887-0518-30
 ;;9002226.02101,"869,55887-0518-90 ",.01)
 ;;55887-0518-90
 ;;9002226.02101,"869,55887-0518-90 ",.02)
 ;;55887-0518-90
 ;;9002226.02101,"869,55887-0549-90 ",.01)
 ;;55887-0549-90
 ;;9002226.02101,"869,55887-0549-90 ",.02)
 ;;55887-0549-90
 ;;9002226.02101,"869,55887-0570-40 ",.01)
 ;;55887-0570-40
 ;;9002226.02101,"869,55887-0570-40 ",.02)
 ;;55887-0570-40
 ;;9002226.02101,"869,55887-0570-92 ",.01)
 ;;55887-0570-92
 ;;9002226.02101,"869,55887-0570-92 ",.02)
 ;;55887-0570-92
 ;;9002226.02101,"869,55887-0572-14 ",.01)
 ;;55887-0572-14
 ;;9002226.02101,"869,55887-0572-14 ",.02)
 ;;55887-0572-14
 ;;9002226.02101,"869,55887-0572-90 ",.01)
 ;;55887-0572-90
 ;;9002226.02101,"869,55887-0572-90 ",.02)
 ;;55887-0572-90
 ;;9002226.02101,"869,55887-0650-90 ",.01)
 ;;55887-0650-90
 ;;9002226.02101,"869,55887-0650-90 ",.02)
 ;;55887-0650-90
 ;;9002226.02101,"869,55887-0650-92 ",.01)
 ;;55887-0650-92
 ;;9002226.02101,"869,55887-0650-92 ",.02)
 ;;55887-0650-92
 ;;9002226.02101,"869,55887-0661-60 ",.01)
 ;;55887-0661-60
 ;;9002226.02101,"869,55887-0661-60 ",.02)
 ;;55887-0661-60
 ;;9002226.02101,"869,55887-0661-90 ",.01)
 ;;55887-0661-90
 ;;9002226.02101,"869,55887-0661-90 ",.02)
 ;;55887-0661-90
 ;;9002226.02101,"869,55887-0662-30 ",.01)
 ;;55887-0662-30
 ;;9002226.02101,"869,55887-0662-30 ",.02)
 ;;55887-0662-30
 ;;9002226.02101,"869,55887-0662-60 ",.01)
 ;;55887-0662-60
 ;;9002226.02101,"869,55887-0662-60 ",.02)
 ;;55887-0662-60
 ;;9002226.02101,"869,55887-0663-30 ",.01)
 ;;55887-0663-30
 ;;9002226.02101,"869,55887-0663-30 ",.02)
 ;;55887-0663-30
 ;;9002226.02101,"869,55887-0663-60 ",.01)
 ;;55887-0663-60
 ;;9002226.02101,"869,55887-0663-60 ",.02)
 ;;55887-0663-60
 ;;9002226.02101,"869,55887-0663-90 ",.01)
 ;;55887-0663-90
 ;;9002226.02101,"869,55887-0663-90 ",.02)
 ;;55887-0663-90
 ;;9002226.02101,"869,55887-0745-50 ",.01)
 ;;55887-0745-50
 ;;9002226.02101,"869,55887-0745-50 ",.02)
 ;;55887-0745-50
 ;;9002226.02101,"869,55887-0871-30 ",.01)
 ;;55887-0871-30
 ;;9002226.02101,"869,55887-0871-30 ",.02)
 ;;55887-0871-30
 ;;9002226.02101,"869,55887-0925-30 ",.01)
 ;;55887-0925-30
 ;;9002226.02101,"869,55887-0925-30 ",.02)
 ;;55887-0925-30
 ;;9002226.02101,"869,57237-0007-05 ",.01)
 ;;57237-0007-05
 ;;9002226.02101,"869,57237-0007-05 ",.02)
 ;;57237-0007-05
 ;;9002226.02101,"869,57237-0007-30 ",.01)
 ;;57237-0007-30
 ;;9002226.02101,"869,57237-0007-30 ",.02)
 ;;57237-0007-30
 ;;9002226.02101,"869,57237-0008-05 ",.01)
 ;;57237-0008-05
 ;;9002226.02101,"869,57237-0008-05 ",.02)
 ;;57237-0008-05
 ;;9002226.02101,"869,57237-0008-30 ",.01)
 ;;57237-0008-30