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

BGP82Z21.m

Go to the documentation of this file.
BGP82Z21 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"619,00228-4323-11 ",.02)
 ;;00228-4323-11
 ;;9002226.02101,"619,00228-4347-11 ",.01)
 ;;00228-4347-11
 ;;9002226.02101,"619,00228-4347-11 ",.02)
 ;;00228-4347-11
 ;;9002226.02101,"619,00245-0420-05 ",.01)
 ;;00245-0420-05
 ;;9002226.02101,"619,00245-0420-05 ",.02)
 ;;00245-0420-05
 ;;9002226.02101,"619,00245-0420-89 ",.01)
 ;;00245-0420-89
 ;;9002226.02101,"619,00245-0420-89 ",.02)
 ;;00245-0420-89
 ;;9002226.02101,"619,00245-0421-05 ",.01)
 ;;00245-0421-05
 ;;9002226.02101,"619,00245-0421-05 ",.02)
 ;;00245-0421-05
 ;;9002226.02101,"619,00245-0421-89 ",.01)
 ;;00245-0421-89
 ;;9002226.02101,"619,00245-0421-89 ",.02)
 ;;00245-0421-89
 ;;9002226.02101,"619,00245-0422-05 ",.01)
 ;;00245-0422-05
 ;;9002226.02101,"619,00245-0422-05 ",.02)
 ;;00245-0422-05
 ;;9002226.02101,"619,00245-0422-89 ",.01)
 ;;00245-0422-89
 ;;9002226.02101,"619,00245-0422-89 ",.02)
 ;;00245-0422-89
 ;;9002226.02101,"619,00245-0423-05 ",.01)
 ;;00245-0423-05
 ;;9002226.02101,"619,00245-0423-05 ",.02)
 ;;00245-0423-05
 ;;9002226.02101,"619,00245-0423-89 ",.01)
 ;;00245-0423-89
 ;;9002226.02101,"619,00245-0423-89 ",.02)
 ;;00245-0423-89
 ;;9002226.02101,"619,00378-2658-01 ",.01)
 ;;00378-2658-01
 ;;9002226.02101,"619,00378-2658-01 ",.02)
 ;;00378-2658-01
 ;;9002226.02101,"619,00378-2659-01 ",.01)
 ;;00378-2659-01
 ;;9002226.02101,"619,00378-2659-01 ",.02)
 ;;00378-2659-01
 ;;9002226.02101,"619,00378-2660-01 ",.01)
 ;;00378-2660-01
 ;;9002226.02101,"619,00378-2660-01 ",.02)
 ;;00378-2660-01
 ;;9002226.02101,"619,00378-2661-01 ",.01)
 ;;00378-2661-01
 ;;9002226.02101,"619,00378-2661-01 ",.02)
 ;;00378-2661-01
 ;;9002226.02101,"619,00378-2662-01 ",.01)
 ;;00378-2662-01
 ;;9002226.02101,"619,00378-2662-01 ",.02)
 ;;00378-2662-01
 ;;9002226.02101,"619,00378-4151-01 ",.01)
 ;;00378-4151-01
 ;;9002226.02101,"619,00378-4151-01 ",.02)
 ;;00378-4151-01
 ;;9002226.02101,"619,00378-4151-05 ",.01)
 ;;00378-4151-05
 ;;9002226.02101,"619,00378-4151-05 ",.02)
 ;;00378-4151-05
 ;;9002226.02101,"619,00378-4152-93 ",.01)
 ;;00378-4152-93
 ;;9002226.02101,"619,00378-4152-93 ",.02)
 ;;00378-4152-93
 ;;9002226.02101,"619,00378-4153-93 ",.01)
 ;;00378-4153-93
 ;;9002226.02101,"619,00378-4153-93 ",.02)
 ;;00378-4153-93
 ;;9002226.02101,"619,00378-4154-93 ",.01)
 ;;00378-4154-93
 ;;9002226.02101,"619,00378-4154-93 ",.02)
 ;;00378-4154-93
 ;;9002226.02101,"619,00378-6112-01 ",.01)
 ;;00378-6112-01
 ;;9002226.02101,"619,00378-6112-01 ",.02)
 ;;00378-6112-01
 ;;9002226.02101,"619,00378-6113-01 ",.01)
 ;;00378-6113-01
 ;;9002226.02101,"619,00378-6113-01 ",.02)
 ;;00378-6113-01
 ;;9002226.02101,"619,00378-6114-01 ",.01)
 ;;00378-6114-01
 ;;9002226.02101,"619,00378-6114-01 ",.02)
 ;;00378-6114-01
 ;;9002226.02101,"619,00378-6117-01 ",.01)
 ;;00378-6117-01
 ;;9002226.02101,"619,00378-6117-01 ",.02)
 ;;00378-6117-01
 ;;9002226.02101,"619,00378-7103-01 ",.01)
 ;;00378-7103-01
 ;;9002226.02101,"619,00378-7103-01 ",.02)
 ;;00378-7103-01
 ;;9002226.02101,"619,00378-7104-01 ",.01)
 ;;00378-7104-01
 ;;9002226.02101,"619,00378-7104-01 ",.02)
 ;;00378-7104-01
 ;;9002226.02101,"619,00378-7105-01 ",.01)
 ;;00378-7105-01
 ;;9002226.02101,"619,00378-7105-01 ",.02)
 ;;00378-7105-01
 ;;9002226.02101,"619,00378-7106-01 ",.01)
 ;;00378-7106-01
 ;;9002226.02101,"619,00378-7106-01 ",.02)
 ;;00378-7106-01
 ;;9002226.02101,"619,00378-8088-01 ",.01)
 ;;00378-8088-01
 ;;9002226.02101,"619,00378-8088-01 ",.02)
 ;;00378-8088-01
 ;;9002226.02101,"619,00378-8088-05 ",.01)
 ;;00378-8088-05
 ;;9002226.02101,"619,00378-8088-05 ",.02)
 ;;00378-8088-05
 ;;9002226.02101,"619,00378-9119-16 ",.01)
 ;;00378-9119-16
 ;;9002226.02101,"619,00378-9119-16 ",.02)
 ;;00378-9119-16
 ;;9002226.02101,"619,00378-9119-98 ",.01)
 ;;00378-9119-98
 ;;9002226.02101,"619,00378-9119-98 ",.02)
 ;;00378-9119-98
 ;;9002226.02101,"619,00378-9121-16 ",.01)
 ;;00378-9121-16
 ;;9002226.02101,"619,00378-9121-16 ",.02)
 ;;00378-9121-16
 ;;9002226.02101,"619,00378-9121-98 ",.01)
 ;;00378-9121-98
 ;;9002226.02101,"619,00378-9121-98 ",.02)
 ;;00378-9121-98
 ;;9002226.02101,"619,00378-9122-16 ",.01)
 ;;00378-9122-16
 ;;9002226.02101,"619,00378-9122-16 ",.02)
 ;;00378-9122-16
 ;;9002226.02101,"619,00378-9122-98 ",.01)
 ;;00378-9122-98
 ;;9002226.02101,"619,00378-9122-98 ",.02)
 ;;00378-9122-98
 ;;9002226.02101,"619,00378-9123-16 ",.01)
 ;;00378-9123-16
 ;;9002226.02101,"619,00378-9123-16 ",.02)
 ;;00378-9123-16
 ;;9002226.02101,"619,00378-9123-98 ",.01)
 ;;00378-9123-98
 ;;9002226.02101,"619,00378-9123-98 ",.02)
 ;;00378-9123-98
 ;;9002226.02101,"619,00378-9124-16 ",.01)
 ;;00378-9124-16
 ;;9002226.02101,"619,00378-9124-16 ",.02)
 ;;00378-9124-16
 ;;9002226.02101,"619,00378-9124-98 ",.01)
 ;;00378-9124-98
 ;;9002226.02101,"619,00378-9124-98 ",.02)
 ;;00378-9124-98
 ;;9002226.02101,"619,00378-9125-16 ",.01)
 ;;00378-9125-16
 ;;9002226.02101,"619,00378-9125-16 ",.02)
 ;;00378-9125-16
 ;;9002226.02101,"619,00378-9125-98 ",.01)
 ;;00378-9125-98
 ;;9002226.02101,"619,00378-9125-98 ",.02)
 ;;00378-9125-98
 ;;9002226.02101,"619,00378-9126-16 ",.01)
 ;;00378-9126-16
 ;;9002226.02101,"619,00378-9126-16 ",.02)
 ;;00378-9126-16
 ;;9002226.02101,"619,00378-9126-98 ",.01)
 ;;00378-9126-98
 ;;9002226.02101,"619,00378-9126-98 ",.02)
 ;;00378-9126-98
 ;;9002226.02101,"619,00378-9127-16 ",.01)
 ;;00378-9127-16
 ;;9002226.02101,"619,00378-9127-16 ",.02)
 ;;00378-9127-16
 ;;9002226.02101,"619,00378-9127-98 ",.01)
 ;;00378-9127-98
 ;;9002226.02101,"619,00378-9127-98 ",.02)
 ;;00378-9127-98
 ;;9002226.02101,"619,00378-9639-43 ",.01)
 ;;00378-9639-43
 ;;9002226.02101,"619,00378-9639-43 ",.02)
 ;;00378-9639-43
 ;;9002226.02101,"619,00406-0123-01 ",.01)
 ;;00406-0123-01
 ;;9002226.02101,"619,00406-0123-01 ",.02)
 ;;00406-0123-01
 ;;9002226.02101,"619,00406-0123-05 ",.01)
 ;;00406-0123-05
 ;;9002226.02101,"619,00406-0123-05 ",.02)
 ;;00406-0123-05
 ;;9002226.02101,"619,00406-0123-10 ",.01)
 ;;00406-0123-10
 ;;9002226.02101,"619,00406-0123-10 ",.02)
 ;;00406-0123-10
 ;;9002226.02101,"619,00406-0123-23 ",.01)
 ;;00406-0123-23
 ;;9002226.02101,"619,00406-0123-23 ",.02)
 ;;00406-0123-23
 ;;9002226.02101,"619,00406-0123-62 ",.01)
 ;;00406-0123-62
 ;;9002226.02101,"619,00406-0123-62 ",.02)
 ;;00406-0123-62
 ;;9002226.02101,"619,00406-0124-01 ",.01)
 ;;00406-0124-01
 ;;9002226.02101,"619,00406-0124-01 ",.02)
 ;;00406-0124-01
 ;;9002226.02101,"619,00406-0124-05 ",.01)
 ;;00406-0124-05
 ;;9002226.02101,"619,00406-0124-05 ",.02)
 ;;00406-0124-05
 ;;9002226.02101,"619,00406-0124-10 ",.01)
 ;;00406-0124-10
 ;;9002226.02101,"619,00406-0124-10 ",.02)
 ;;00406-0124-10
 ;;9002226.02101,"619,00406-0124-23 ",.01)
 ;;00406-0124-23
 ;;9002226.02101,"619,00406-0124-23 ",.02)
 ;;00406-0124-23
 ;;9002226.02101,"619,00406-0124-62 ",.01)
 ;;00406-0124-62
 ;;9002226.02101,"619,00406-0124-62 ",.02)
 ;;00406-0124-62
 ;;9002226.02101,"619,00406-0125-01 ",.01)
 ;;00406-0125-01
 ;;9002226.02101,"619,00406-0125-01 ",.02)
 ;;00406-0125-01
 ;;9002226.02101,"619,00406-0125-05 ",.01)
 ;;00406-0125-05
 ;;9002226.02101,"619,00406-0125-05 ",.02)
 ;;00406-0125-05
 ;;9002226.02101,"619,00406-0125-10 ",.01)
 ;;00406-0125-10
 ;;9002226.02101,"619,00406-0125-10 ",.02)
 ;;00406-0125-10
 ;;9002226.02101,"619,00406-0125-23 ",.01)
 ;;00406-0125-23
 ;;9002226.02101,"619,00406-0125-23 ",.02)
 ;;00406-0125-23
 ;;9002226.02101,"619,00406-0125-62 ",.01)
 ;;00406-0125-62
 ;;9002226.02101,"619,00406-0125-62 ",.02)
 ;;00406-0125-62
 ;;9002226.02101,"619,00406-0357-01 ",.01)
 ;;00406-0357-01
 ;;9002226.02101,"619,00406-0357-01 ",.02)
 ;;00406-0357-01
 ;;9002226.02101,"619,00406-0357-05 ",.01)
 ;;00406-0357-05
 ;;9002226.02101,"619,00406-0357-05 ",.02)
 ;;00406-0357-05
 ;;9002226.02101,"619,00406-0357-09 ",.01)
 ;;00406-0357-09
 ;;9002226.02101,"619,00406-0357-09 ",.02)
 ;;00406-0357-09
 ;;9002226.02101,"619,00406-0357-23 ",.01)
 ;;00406-0357-23
 ;;9002226.02101,"619,00406-0357-23 ",.02)
 ;;00406-0357-23
 ;;9002226.02101,"619,00406-0357-62 ",.01)
 ;;00406-0357-62
 ;;9002226.02101,"619,00406-0357-62 ",.02)
 ;;00406-0357-62
 ;;9002226.02101,"619,00406-0358-01 ",.01)
 ;;00406-0358-01
 ;;9002226.02101,"619,00406-0358-01 ",.02)
 ;;00406-0358-01
 ;;9002226.02101,"619,00406-0358-05 ",.01)
 ;;00406-0358-05
 ;;9002226.02101,"619,00406-0358-05 ",.02)
 ;;00406-0358-05
 ;;9002226.02101,"619,00406-0358-23 ",.01)
 ;;00406-0358-23
 ;;9002226.02101,"619,00406-0358-23 ",.02)
 ;;00406-0358-23
 ;;9002226.02101,"619,00406-0358-62 ",.01)
 ;;00406-0358-62
 ;;9002226.02101,"619,00406-0358-62 ",.02)
 ;;00406-0358-62
 ;;9002226.02101,"619,00406-0359-01 ",.01)
 ;;00406-0359-01
 ;;9002226.02101,"619,00406-0359-01 ",.02)
 ;;00406-0359-01
 ;;9002226.02101,"619,00406-0359-05 ",.01)
 ;;00406-0359-05
 ;;9002226.02101,"619,00406-0359-05 ",.02)
 ;;00406-0359-05
 ;;9002226.02101,"619,00406-0360-01 ",.01)
 ;;00406-0360-01
 ;;9002226.02101,"619,00406-0360-01 ",.02)
 ;;00406-0360-01
 ;;9002226.02101,"619,00406-0360-05 ",.01)
 ;;00406-0360-05
 ;;9002226.02101,"619,00406-0360-05 ",.02)
 ;;00406-0360-05
 ;;9002226.02101,"619,00406-0360-09 ",.01)
 ;;00406-0360-09
 ;;9002226.02101,"619,00406-0360-09 ",.02)
 ;;00406-0360-09
 ;;9002226.02101,"619,00406-0361-01 ",.01)
 ;;00406-0361-01
 ;;9002226.02101,"619,00406-0361-01 ",.02)
 ;;00406-0361-01
 ;;9002226.02101,"619,00406-0361-05 ",.01)
 ;;00406-0361-05
 ;;9002226.02101,"619,00406-0361-05 ",.02)
 ;;00406-0361-05
 ;;9002226.02101,"619,00406-0362-01 ",.01)
 ;;00406-0362-01
 ;;9002226.02101,"619,00406-0362-01 ",.02)
 ;;00406-0362-01
 ;;9002226.02101,"619,00406-0363-01 ",.01)
 ;;00406-0363-01
 ;;9002226.02101,"619,00406-0363-01 ",.02)
 ;;00406-0363-01
 ;;9002226.02101,"619,00406-0363-05 ",.01)
 ;;00406-0363-05
 ;;9002226.02101,"619,00406-0363-05 ",.02)
 ;;00406-0363-05
 ;;9002226.02101,"619,00406-0363-23 ",.01)
 ;;00406-0363-23
 ;;9002226.02101,"619,00406-0363-23 ",.02)
 ;;00406-0363-23
 ;;9002226.02101,"619,00406-0363-62 ",.01)
 ;;00406-0363-62
 ;;9002226.02101,"619,00406-0363-62 ",.02)
 ;;00406-0363-62
 ;;9002226.02101,"619,00406-0365-01 ",.01)
 ;;00406-0365-01
 ;;9002226.02101,"619,00406-0365-01 ",.02)
 ;;00406-0365-01
 ;;9002226.02101,"619,00406-0365-05 ",.01)
 ;;00406-0365-05
 ;;9002226.02101,"619,00406-0365-05 ",.02)
 ;;00406-0365-05
 ;;9002226.02101,"619,00406-0365-23 ",.01)
 ;;00406-0365-23
 ;;9002226.02101,"619,00406-0365-23 ",.02)
 ;;00406-0365-23
 ;;9002226.02101,"619,00406-0365-62 ",.01)
 ;;00406-0365-62
 ;;9002226.02101,"619,00406-0365-62 ",.02)
 ;;00406-0365-62
 ;;9002226.02101,"619,00406-0366-01 ",.01)
 ;;00406-0366-01
 ;;9002226.02101,"619,00406-0366-01 ",.02)
 ;;00406-0366-01
 ;;9002226.02101,"619,00406-0366-05 ",.01)
 ;;00406-0366-05
 ;;9002226.02101,"619,00406-0366-05 ",.02)
 ;;00406-0366-05
 ;;9002226.02101,"619,00406-0366-23 ",.01)
 ;;00406-0366-23
 ;;9002226.02101,"619,00406-0366-23 ",.02)
 ;;00406-0366-23
 ;;9002226.02101,"619,00406-0366-62 ",.01)
 ;;00406-0366-62
 ;;9002226.02101,"619,00406-0366-62 ",.02)
 ;;00406-0366-62
 ;;9002226.02101,"619,00406-0367-01 ",.01)
 ;;00406-0367-01
 ;;9002226.02101,"619,00406-0367-01 ",.02)
 ;;00406-0367-01
 ;;9002226.02101,"619,00406-0367-05 ",.01)
 ;;00406-0367-05
 ;;9002226.02101,"619,00406-0367-05 ",.02)
 ;;00406-0367-05
 ;;9002226.02101,"619,00406-0367-23 ",.01)
 ;;00406-0367-23
 ;;9002226.02101,"619,00406-0367-23 ",.02)
 ;;00406-0367-23
 ;;9002226.02101,"619,00406-0367-62 ",.01)
 ;;00406-0367-62
 ;;9002226.02101,"619,00406-0367-62 ",.02)
 ;;00406-0367-62
 ;;9002226.02101,"619,00406-0367-91 ",.01)
 ;;00406-0367-91
 ;;9002226.02101,"619,00406-0367-91 ",.02)
 ;;00406-0367-91
 ;;9002226.02101,"619,00406-0376-01 ",.01)
 ;;00406-0376-01