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

BGP8ZI65.m

Go to the documentation of this file.
BGP8ZI65 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,65862-0407-01 ",.01)
 ;;65862-0407-01
 ;;9002226.02101,"869,65862-0407-01 ",.02)
 ;;65862-0407-01
 ;;9002226.02101,"869,65862-0407-30 ",.01)
 ;;65862-0407-30
 ;;9002226.02101,"869,65862-0407-30 ",.02)
 ;;65862-0407-30
 ;;9002226.02101,"869,65862-0408-01 ",.01)
 ;;65862-0408-01
 ;;9002226.02101,"869,65862-0408-01 ",.02)
 ;;65862-0408-01
 ;;9002226.02101,"869,65862-0408-20 ",.01)
 ;;65862-0408-20
 ;;9002226.02101,"869,65862-0408-20 ",.02)
 ;;65862-0408-20
 ;;9002226.02101,"869,65862-0527-01 ",.01)
 ;;65862-0527-01
 ;;9002226.02101,"869,65862-0527-01 ",.02)
 ;;65862-0527-01
 ;;9002226.02101,"869,65862-0527-30 ",.01)
 ;;65862-0527-30
 ;;9002226.02101,"869,65862-0527-30 ",.02)
 ;;65862-0527-30
 ;;9002226.02101,"869,65862-0527-90 ",.01)
 ;;65862-0527-90
 ;;9002226.02101,"869,65862-0527-90 ",.02)
 ;;65862-0527-90
 ;;9002226.02101,"869,65862-0527-99 ",.01)
 ;;65862-0527-99
 ;;9002226.02101,"869,65862-0527-99 ",.02)
 ;;65862-0527-99
 ;;9002226.02101,"869,65862-0528-01 ",.01)
 ;;65862-0528-01
 ;;9002226.02101,"869,65862-0528-01 ",.02)
 ;;65862-0528-01
 ;;9002226.02101,"869,65862-0528-30 ",.01)
 ;;65862-0528-30
 ;;9002226.02101,"869,65862-0528-30 ",.02)
 ;;65862-0528-30
 ;;9002226.02101,"869,65862-0528-90 ",.01)
 ;;65862-0528-90
 ;;9002226.02101,"869,65862-0528-90 ",.02)
 ;;65862-0528-90
 ;;9002226.02101,"869,65862-0528-99 ",.01)
 ;;65862-0528-99
 ;;9002226.02101,"869,65862-0528-99 ",.02)
 ;;65862-0528-99
 ;;9002226.02101,"869,65862-0529-30 ",.01)
 ;;65862-0529-30
 ;;9002226.02101,"869,65862-0529-30 ",.02)
 ;;65862-0529-30
 ;;9002226.02101,"869,65862-0529-90 ",.01)
 ;;65862-0529-90
 ;;9002226.02101,"869,65862-0529-90 ",.02)
 ;;65862-0529-90
 ;;9002226.02101,"869,65862-0697-01 ",.01)
 ;;65862-0697-01
 ;;9002226.02101,"869,65862-0697-01 ",.02)
 ;;65862-0697-01
 ;;9002226.02101,"869,65862-0697-05 ",.01)
 ;;65862-0697-05
 ;;9002226.02101,"869,65862-0697-05 ",.02)
 ;;65862-0697-05
 ;;9002226.02101,"869,65862-0697-30 ",.01)
 ;;65862-0697-30
 ;;9002226.02101,"869,65862-0697-30 ",.02)
 ;;65862-0697-30
 ;;9002226.02101,"869,65862-0697-90 ",.01)
 ;;65862-0697-90
 ;;9002226.02101,"869,65862-0697-90 ",.02)
 ;;65862-0697-90
 ;;9002226.02101,"869,66105-0111-10 ",.01)
 ;;66105-0111-10
 ;;9002226.02101,"869,66105-0111-10 ",.02)
 ;;66105-0111-10
 ;;9002226.02101,"869,66105-0112-01 ",.01)
 ;;66105-0112-01
 ;;9002226.02101,"869,66105-0112-01 ",.02)
 ;;66105-0112-01
 ;;9002226.02101,"869,66105-0112-03 ",.01)
 ;;66105-0112-03
 ;;9002226.02101,"869,66105-0112-03 ",.02)
 ;;66105-0112-03
 ;;9002226.02101,"869,66105-0112-06 ",.01)
 ;;66105-0112-06
 ;;9002226.02101,"869,66105-0112-06 ",.02)
 ;;66105-0112-06
 ;;9002226.02101,"869,66105-0112-10 ",.01)
 ;;66105-0112-10
 ;;9002226.02101,"869,66105-0112-10 ",.02)
 ;;66105-0112-10
 ;;9002226.02101,"869,66105-0112-15 ",.01)
 ;;66105-0112-15
 ;;9002226.02101,"869,66105-0112-15 ",.02)
 ;;66105-0112-15
 ;;9002226.02101,"869,66105-0116-03 ",.01)
 ;;66105-0116-03
 ;;9002226.02101,"869,66105-0116-03 ",.02)
 ;;66105-0116-03
 ;;9002226.02101,"869,66105-0117-03 ",.01)
 ;;66105-0117-03
 ;;9002226.02101,"869,66105-0117-03 ",.02)
 ;;66105-0117-03
 ;;9002226.02101,"869,66105-0118-10 ",.01)
 ;;66105-0118-10
 ;;9002226.02101,"869,66105-0118-10 ",.02)
 ;;66105-0118-10
 ;;9002226.02101,"869,66105-0480-01 ",.01)
 ;;66105-0480-01
 ;;9002226.02101,"869,66105-0480-01 ",.02)
 ;;66105-0480-01
 ;;9002226.02101,"869,66105-0480-02 ",.01)
 ;;66105-0480-02
 ;;9002226.02101,"869,66105-0480-02 ",.02)
 ;;66105-0480-02
 ;;9002226.02101,"869,66105-0480-03 ",.01)
 ;;66105-0480-03
 ;;9002226.02101,"869,66105-0480-03 ",.02)
 ;;66105-0480-03
 ;;9002226.02101,"869,66105-0480-06 ",.01)
 ;;66105-0480-06
 ;;9002226.02101,"869,66105-0480-06 ",.02)
 ;;66105-0480-06
 ;;9002226.02101,"869,66105-0480-15 ",.01)
 ;;66105-0480-15
 ;;9002226.02101,"869,66105-0480-15 ",.02)
 ;;66105-0480-15
 ;;9002226.02101,"869,66105-0481-01 ",.01)
 ;;66105-0481-01
 ;;9002226.02101,"869,66105-0481-01 ",.02)
 ;;66105-0481-01
 ;;9002226.02101,"869,66105-0481-02 ",.01)
 ;;66105-0481-02
 ;;9002226.02101,"869,66105-0481-02 ",.02)
 ;;66105-0481-02
 ;;9002226.02101,"869,66105-0481-03 ",.01)
 ;;66105-0481-03
 ;;9002226.02101,"869,66105-0481-03 ",.02)
 ;;66105-0481-03
 ;;9002226.02101,"869,66105-0481-06 ",.01)
 ;;66105-0481-06
 ;;9002226.02101,"869,66105-0481-06 ",.02)
 ;;66105-0481-06
 ;;9002226.02101,"869,66105-0481-15 ",.01)
 ;;66105-0481-15
 ;;9002226.02101,"869,66105-0481-15 ",.02)
 ;;66105-0481-15
 ;;9002226.02101,"869,66105-0550-03 ",.01)
 ;;66105-0550-03
 ;;9002226.02101,"869,66105-0550-03 ",.02)
 ;;66105-0550-03
 ;;9002226.02101,"869,66105-0564-03 ",.01)
 ;;66105-0564-03
 ;;9002226.02101,"869,66105-0564-03 ",.02)
 ;;66105-0564-03
 ;;9002226.02101,"869,66105-0969-03 ",.01)
 ;;66105-0969-03
 ;;9002226.02101,"869,66105-0969-03 ",.02)
 ;;66105-0969-03
 ;;9002226.02101,"869,66105-0977-03 ",.01)
 ;;66105-0977-03
 ;;9002226.02101,"869,66105-0977-03 ",.02)
 ;;66105-0977-03
 ;;9002226.02101,"869,66267-0018-60 ",.01)
 ;;66267-0018-60
 ;;9002226.02101,"869,66267-0018-60 ",.02)
 ;;66267-0018-60
 ;;9002226.02101,"869,66267-0018-90 ",.01)
 ;;66267-0018-90
 ;;9002226.02101,"869,66267-0018-90 ",.02)
 ;;66267-0018-90
 ;;9002226.02101,"869,66267-0019-90 ",.01)
 ;;66267-0019-90
 ;;9002226.02101,"869,66267-0019-90 ",.02)
 ;;66267-0019-90
 ;;9002226.02101,"869,66267-0488-60 ",.01)
 ;;66267-0488-60
 ;;9002226.02101,"869,66267-0488-60 ",.02)
 ;;66267-0488-60
 ;;9002226.02101,"869,66267-0488-90 ",.01)
 ;;66267-0488-90
 ;;9002226.02101,"869,66267-0488-90 ",.02)
 ;;66267-0488-90
 ;;9002226.02101,"869,66267-0560-90 ",.01)
 ;;66267-0560-90
 ;;9002226.02101,"869,66267-0560-90 ",.02)
 ;;66267-0560-90
 ;;9002226.02101,"869,66267-0576-30 ",.01)
 ;;66267-0576-30
 ;;9002226.02101,"869,66267-0576-30 ",.02)
 ;;66267-0576-30
 ;;9002226.02101,"869,66267-0587-30 ",.01)
 ;;66267-0587-30
 ;;9002226.02101,"869,66267-0587-30 ",.02)
 ;;66267-0587-30
 ;;9002226.02101,"869,66267-0680-30 ",.01)
 ;;66267-0680-30
 ;;9002226.02101,"869,66267-0680-30 ",.02)
 ;;66267-0680-30
 ;;9002226.02101,"869,66336-0004-30 ",.01)
 ;;66336-0004-30
 ;;9002226.02101,"869,66336-0004-30 ",.02)
 ;;66336-0004-30
 ;;9002226.02101,"869,66336-0004-60 ",.01)
 ;;66336-0004-60
 ;;9002226.02101,"869,66336-0004-60 ",.02)
 ;;66336-0004-60
 ;;9002226.02101,"869,66336-0014-30 ",.01)
 ;;66336-0014-30
 ;;9002226.02101,"869,66336-0014-30 ",.02)
 ;;66336-0014-30
 ;;9002226.02101,"869,66336-0014-60 ",.01)
 ;;66336-0014-60
 ;;9002226.02101,"869,66336-0014-60 ",.02)
 ;;66336-0014-60
 ;;9002226.02101,"869,66336-0027-30 ",.01)
 ;;66336-0027-30
 ;;9002226.02101,"869,66336-0027-30 ",.02)
 ;;66336-0027-30
 ;;9002226.02101,"869,66336-0027-60 ",.01)
 ;;66336-0027-60
 ;;9002226.02101,"869,66336-0027-60 ",.02)
 ;;66336-0027-60
 ;;9002226.02101,"869,66336-0224-30 ",.01)
 ;;66336-0224-30
 ;;9002226.02101,"869,66336-0224-30 ",.02)
 ;;66336-0224-30
 ;;9002226.02101,"869,66336-0271-30 ",.01)
 ;;66336-0271-30
 ;;9002226.02101,"869,66336-0271-30 ",.02)
 ;;66336-0271-30
 ;;9002226.02101,"869,66336-0354-30 ",.01)
 ;;66336-0354-30
 ;;9002226.02101,"869,66336-0354-30 ",.02)
 ;;66336-0354-30
 ;;9002226.02101,"869,66336-0354-60 ",.01)
 ;;66336-0354-60
 ;;9002226.02101,"869,66336-0354-60 ",.02)
 ;;66336-0354-60
 ;;9002226.02101,"869,66336-0354-90 ",.01)
 ;;66336-0354-90
 ;;9002226.02101,"869,66336-0354-90 ",.02)
 ;;66336-0354-90
 ;;9002226.02101,"869,66336-0553-30 ",.01)
 ;;66336-0553-30
 ;;9002226.02101,"869,66336-0553-30 ",.02)
 ;;66336-0553-30
 ;;9002226.02101,"869,66336-0620-28 ",.01)
 ;;66336-0620-28
 ;;9002226.02101,"869,66336-0620-28 ",.02)
 ;;66336-0620-28
 ;;9002226.02101,"869,66336-0620-30 ",.01)
 ;;66336-0620-30
 ;;9002226.02101,"869,66336-0620-30 ",.02)
 ;;66336-0620-30
 ;;9002226.02101,"869,66336-0620-60 ",.01)
 ;;66336-0620-60
 ;;9002226.02101,"869,66336-0620-60 ",.02)
 ;;66336-0620-60
 ;;9002226.02101,"869,66336-0621-60 ",.01)
 ;;66336-0621-60
 ;;9002226.02101,"869,66336-0621-60 ",.02)
 ;;66336-0621-60
 ;;9002226.02101,"869,66336-0673-30 ",.01)
 ;;66336-0673-30
 ;;9002226.02101,"869,66336-0673-30 ",.02)
 ;;66336-0673-30
 ;;9002226.02101,"869,66336-0673-50 ",.01)
 ;;66336-0673-50
 ;;9002226.02101,"869,66336-0673-50 ",.02)
 ;;66336-0673-50
 ;;9002226.02101,"869,66336-0673-60 ",.01)
 ;;66336-0673-60
 ;;9002226.02101,"869,66336-0673-60 ",.02)
 ;;66336-0673-60
 ;;9002226.02101,"869,66336-0757-60 ",.01)
 ;;66336-0757-60
 ;;9002226.02101,"869,66336-0757-60 ",.02)
 ;;66336-0757-60
 ;;9002226.02101,"869,66336-0799-30 ",.01)
 ;;66336-0799-30
 ;;9002226.02101,"869,66336-0799-30 ",.02)
 ;;66336-0799-30
 ;;9002226.02101,"869,66336-0838-14 ",.01)
 ;;66336-0838-14
 ;;9002226.02101,"869,66336-0838-14 ",.02)
 ;;66336-0838-14
 ;;9002226.02101,"869,66336-0844-30 ",.01)
 ;;66336-0844-30
 ;;9002226.02101,"869,66336-0844-30 ",.02)
 ;;66336-0844-30
 ;;9002226.02101,"869,66336-0897-30 ",.01)
 ;;66336-0897-30
 ;;9002226.02101,"869,66336-0897-30 ",.02)
 ;;66336-0897-30
 ;;9002226.02101,"869,66336-0897-60 ",.01)
 ;;66336-0897-60
 ;;9002226.02101,"869,66336-0897-60 ",.02)
 ;;66336-0897-60
 ;;9002226.02101,"869,66336-0973-60 ",.01)
 ;;66336-0973-60
 ;;9002226.02101,"869,66336-0973-60 ",.02)
 ;;66336-0973-60
 ;;9002226.02101,"869,66336-0993-30 ",.01)
 ;;66336-0993-30
 ;;9002226.02101,"869,66336-0993-30 ",.02)
 ;;66336-0993-30
 ;;9002226.02101,"869,66993-0075-60 ",.01)
 ;;66993-0075-60
 ;;9002226.02101,"869,66993-0075-60 ",.02)
 ;;66993-0075-60
 ;;9002226.02101,"869,66993-0076-30 ",.01)
 ;;66993-0076-30
 ;;9002226.02101,"869,66993-0076-30 ",.02)
 ;;66993-0076-30
 ;;9002226.02101,"869,66993-0077-30 ",.01)
 ;;66993-0077-30
 ;;9002226.02101,"869,66993-0077-30 ",.02)
 ;;66993-0077-30
 ;;9002226.02101,"869,66993-0662-60 ",.01)
 ;;66993-0662-60
 ;;9002226.02101,"869,66993-0662-60 ",.02)
 ;;66993-0662-60
 ;;9002226.02101,"869,66993-0663-05 ",.01)
 ;;66993-0663-05
 ;;9002226.02101,"869,66993-0663-05 ",.02)
 ;;66993-0663-05
 ;;9002226.02101,"869,66993-0663-30 ",.01)
 ;;66993-0663-30
 ;;9002226.02101,"869,66993-0663-30 ",.02)
 ;;66993-0663-30
 ;;9002226.02101,"869,66993-0664-05 ",.01)
 ;;66993-0664-05
 ;;9002226.02101,"869,66993-0664-05 ",.02)
 ;;66993-0664-05
 ;;9002226.02101,"869,66993-0664-30 ",.01)
 ;;66993-0664-30
 ;;9002226.02101,"869,66993-0664-30 ",.02)
 ;;66993-0664-30
 ;;9002226.02101,"869,66993-0709-30 ",.01)
 ;;66993-0709-30
 ;;9002226.02101,"869,66993-0709-30 ",.02)
 ;;66993-0709-30
 ;;9002226.02101,"869,66993-0711-30 ",.01)
 ;;66993-0711-30
 ;;9002226.02101,"869,66993-0711-30 ",.02)
 ;;66993-0711-30
 ;;9002226.02101,"869,66993-0712-30 ",.01)
 ;;66993-0712-30
 ;;9002226.02101,"869,66993-0712-30 ",.02)
 ;;66993-0712-30
 ;;9002226.02101,"869,67046-0015-30 ",.01)
 ;;67046-0015-30
 ;;9002226.02101,"869,67046-0015-30 ",.02)
 ;;67046-0015-30
 ;;9002226.02101,"869,67253-0700-06 ",.01)
 ;;67253-0700-06
 ;;9002226.02101,"869,67253-0700-06 ",.02)
 ;;67253-0700-06
 ;;9002226.02101,"869,67544-0078-30 ",.01)
 ;;67544-0078-30
 ;;9002226.02101,"869,67544-0078-30 ",.02)
 ;;67544-0078-30
 ;;9002226.02101,"869,67544-0080-15 ",.01)
 ;;67544-0080-15
 ;;9002226.02101,"869,67544-0080-15 ",.02)
 ;;67544-0080-15
 ;;9002226.02101,"869,67544-0080-71 ",.01)
 ;;67544-0080-71
 ;;9002226.02101,"869,67544-0080-71 ",.02)
 ;;67544-0080-71
 ;;9002226.02101,"869,67544-0085-30 ",.01)
 ;;67544-0085-30
 ;;9002226.02101,"869,67544-0085-30 ",.02)
 ;;67544-0085-30
 ;;9002226.02101,"869,67544-0085-60 ",.01)
 ;;67544-0085-60
 ;;9002226.02101,"869,67544-0085-60 ",.02)
 ;;67544-0085-60
 ;;9002226.02101,"869,67544-0162-30 ",.01)
 ;;67544-0162-30
 ;;9002226.02101,"869,67544-0162-30 ",.02)
 ;;67544-0162-30