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

BGP82Z26.m

Go to the documentation of this file.
BGP82Z26 ; 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,10544-0287-30 ",.02)
 ;;10544-0287-30
 ;;9002226.02101,"619,10544-0287-50 ",.01)
 ;;10544-0287-50
 ;;9002226.02101,"619,10544-0287-50 ",.02)
 ;;10544-0287-50
 ;;9002226.02101,"619,10544-0531-20 ",.01)
 ;;10544-0531-20
 ;;9002226.02101,"619,10544-0531-20 ",.02)
 ;;10544-0531-20
 ;;9002226.02101,"619,10544-0531-30 ",.01)
 ;;10544-0531-30
 ;;9002226.02101,"619,10544-0531-30 ",.02)
 ;;10544-0531-30
 ;;9002226.02101,"619,10544-0531-50 ",.01)
 ;;10544-0531-50
 ;;9002226.02101,"619,10544-0531-50 ",.02)
 ;;10544-0531-50
 ;;9002226.02101,"619,10544-0599-02 ",.01)
 ;;10544-0599-02
 ;;9002226.02101,"619,10544-0599-02 ",.02)
 ;;10544-0599-02
 ;;9002226.02101,"619,10544-0599-30 ",.01)
 ;;10544-0599-30
 ;;9002226.02101,"619,10544-0599-30 ",.02)
 ;;10544-0599-30
 ;;9002226.02101,"619,10544-0599-55 ",.01)
 ;;10544-0599-55
 ;;9002226.02101,"619,10544-0599-55 ",.02)
 ;;10544-0599-55
 ;;9002226.02101,"619,10544-0599-60 ",.01)
 ;;10544-0599-60
 ;;9002226.02101,"619,10544-0599-60 ",.02)
 ;;10544-0599-60
 ;;9002226.02101,"619,10544-0599-90 ",.01)
 ;;10544-0599-90
 ;;9002226.02101,"619,10544-0599-90 ",.02)
 ;;10544-0599-90
 ;;9002226.02101,"619,10544-0600-30 ",.01)
 ;;10544-0600-30
 ;;9002226.02101,"619,10544-0600-30 ",.02)
 ;;10544-0600-30
 ;;9002226.02101,"619,10544-0600-55 ",.01)
 ;;10544-0600-55
 ;;9002226.02101,"619,10544-0600-55 ",.02)
 ;;10544-0600-55
 ;;9002226.02101,"619,10544-0600-60 ",.01)
 ;;10544-0600-60
 ;;9002226.02101,"619,10544-0600-60 ",.02)
 ;;10544-0600-60
 ;;9002226.02101,"619,10544-0600-90 ",.01)
 ;;10544-0600-90
 ;;9002226.02101,"619,10544-0600-90 ",.02)
 ;;10544-0600-90
 ;;9002226.02101,"619,10544-0621-10 ",.01)
 ;;10544-0621-10
 ;;9002226.02101,"619,10544-0621-10 ",.02)
 ;;10544-0621-10
 ;;9002226.02101,"619,10544-0621-30 ",.01)
 ;;10544-0621-30
 ;;9002226.02101,"619,10544-0621-30 ",.02)
 ;;10544-0621-30
 ;;9002226.02101,"619,10544-0621-50 ",.01)
 ;;10544-0621-50
 ;;9002226.02101,"619,10544-0621-50 ",.02)
 ;;10544-0621-50
 ;;9002226.02101,"619,10702-0008-01 ",.01)
 ;;10702-0008-01
 ;;9002226.02101,"619,10702-0008-01 ",.02)
 ;;10702-0008-01
 ;;9002226.02101,"619,10702-0008-50 ",.01)
 ;;10702-0008-50
 ;;9002226.02101,"619,10702-0008-50 ",.02)
 ;;10702-0008-50
 ;;9002226.02101,"619,10702-0009-01 ",.01)
 ;;10702-0009-01
 ;;9002226.02101,"619,10702-0009-01 ",.02)
 ;;10702-0009-01
 ;;9002226.02101,"619,10702-0009-50 ",.01)
 ;;10702-0009-50
 ;;9002226.02101,"619,10702-0009-50 ",.02)
 ;;10702-0009-50
 ;;9002226.02101,"619,10702-0018-01 ",.01)
 ;;10702-0018-01
 ;;9002226.02101,"619,10702-0018-01 ",.02)
 ;;10702-0018-01
 ;;9002226.02101,"619,10702-0018-50 ",.01)
 ;;10702-0018-50
 ;;9002226.02101,"619,10702-0018-50 ",.02)
 ;;10702-0018-50
 ;;9002226.02101,"619,10702-0023-01 ",.01)
 ;;10702-0023-01
 ;;9002226.02101,"619,10702-0023-01 ",.02)
 ;;10702-0023-01
 ;;9002226.02101,"619,10702-0023-06 ",.01)
 ;;10702-0023-06
 ;;9002226.02101,"619,10702-0023-06 ",.02)
 ;;10702-0023-06
 ;;9002226.02101,"619,10702-0056-01 ",.01)
 ;;10702-0056-01
 ;;9002226.02101,"619,10702-0056-01 ",.02)
 ;;10702-0056-01
 ;;9002226.02101,"619,10702-0056-50 ",.01)
 ;;10702-0056-50
 ;;9002226.02101,"619,10702-0056-50 ",.02)
 ;;10702-0056-50
 ;;9002226.02101,"619,10702-0057-01 ",.01)
 ;;10702-0057-01
 ;;9002226.02101,"619,10702-0057-01 ",.02)
 ;;10702-0057-01
 ;;9002226.02101,"619,10702-0057-50 ",.01)
 ;;10702-0057-50
 ;;9002226.02101,"619,10702-0057-50 ",.02)
 ;;10702-0057-50
 ;;9002226.02101,"619,10702-0070-01 ",.01)
 ;;10702-0070-01
 ;;9002226.02101,"619,10702-0070-01 ",.02)
 ;;10702-0070-01
 ;;9002226.02101,"619,10702-0071-01 ",.01)
 ;;10702-0071-01
 ;;9002226.02101,"619,10702-0071-01 ",.02)
 ;;10702-0071-01
 ;;9002226.02101,"619,10702-0150-16 ",.01)
 ;;10702-0150-16
 ;;9002226.02101,"619,10702-0150-16 ",.02)
 ;;10702-0150-16
 ;;9002226.02101,"619,12634-0144-71 ",.01)
 ;;12634-0144-71
 ;;9002226.02101,"619,12634-0144-71 ",.02)
 ;;12634-0144-71
 ;;9002226.02101,"619,12634-0526-80 ",.01)
 ;;12634-0526-80
 ;;9002226.02101,"619,12634-0526-80 ",.02)
 ;;12634-0526-80
 ;;9002226.02101,"619,12634-0786-12 ",.01)
 ;;12634-0786-12
 ;;9002226.02101,"619,12634-0786-12 ",.02)
 ;;12634-0786-12
 ;;9002226.02101,"619,12634-0786-24 ",.01)
 ;;12634-0786-24
 ;;9002226.02101,"619,12634-0786-24 ",.02)
 ;;12634-0786-24
 ;;9002226.02101,"619,12634-0786-60 ",.01)
 ;;12634-0786-60
 ;;9002226.02101,"619,12634-0786-60 ",.02)
 ;;12634-0786-60
 ;;9002226.02101,"619,12634-0786-71 ",.01)
 ;;12634-0786-71
 ;;9002226.02101,"619,12634-0786-71 ",.02)
 ;;12634-0786-71
 ;;9002226.02101,"619,12634-0786-80 ",.01)
 ;;12634-0786-80
 ;;9002226.02101,"619,12634-0786-80 ",.02)
 ;;12634-0786-80
 ;;9002226.02101,"619,12634-0940-60 ",.01)
 ;;12634-0940-60
 ;;9002226.02101,"619,12634-0940-60 ",.02)
 ;;12634-0940-60
 ;;9002226.02101,"619,13107-0004-01 ",.01)
 ;;13107-0004-01
 ;;9002226.02101,"619,13107-0004-01 ",.02)
 ;;13107-0004-01
 ;;9002226.02101,"619,13107-0019-01 ",.01)
 ;;13107-0019-01
 ;;9002226.02101,"619,13107-0019-01 ",.02)
 ;;13107-0019-01
 ;;9002226.02101,"619,13107-0019-05 ",.01)
 ;;13107-0019-05
 ;;9002226.02101,"619,13107-0019-05 ",.02)
 ;;13107-0019-05
 ;;9002226.02101,"619,13107-0020-01 ",.01)
 ;;13107-0020-01
 ;;9002226.02101,"619,13107-0020-01 ",.02)
 ;;13107-0020-01
 ;;9002226.02101,"619,13107-0020-05 ",.01)
 ;;13107-0020-05
 ;;9002226.02101,"619,13107-0020-05 ",.02)
 ;;13107-0020-05
 ;;9002226.02101,"619,13107-0021-01 ",.01)
 ;;13107-0021-01
 ;;9002226.02101,"619,13107-0021-01 ",.02)
 ;;13107-0021-01
 ;;9002226.02101,"619,13107-0021-05 ",.01)
 ;;13107-0021-05
 ;;9002226.02101,"619,13107-0021-05 ",.02)
 ;;13107-0021-05
 ;;9002226.02101,"619,13107-0021-99 ",.01)
 ;;13107-0021-99
 ;;9002226.02101,"619,13107-0021-99 ",.02)
 ;;13107-0021-99
 ;;9002226.02101,"619,13107-0044-01 ",.01)
 ;;13107-0044-01
 ;;9002226.02101,"619,13107-0044-01 ",.02)
 ;;13107-0044-01
 ;;9002226.02101,"619,13107-0044-05 ",.01)
 ;;13107-0044-05
 ;;9002226.02101,"619,13107-0044-05 ",.02)
 ;;13107-0044-05
 ;;9002226.02101,"619,13107-0045-01 ",.01)
 ;;13107-0045-01
 ;;9002226.02101,"619,13107-0045-01 ",.02)
 ;;13107-0045-01
 ;;9002226.02101,"619,13107-0045-05 ",.01)
 ;;13107-0045-05
 ;;9002226.02101,"619,13107-0045-05 ",.02)
 ;;13107-0045-05
 ;;9002226.02101,"619,13107-0046-01 ",.01)
 ;;13107-0046-01
 ;;9002226.02101,"619,13107-0046-01 ",.02)
 ;;13107-0046-01
 ;;9002226.02101,"619,13107-0046-05 ",.01)
 ;;13107-0046-05
 ;;9002226.02101,"619,13107-0046-05 ",.02)
 ;;13107-0046-05
 ;;9002226.02101,"619,13107-0055-01 ",.01)
 ;;13107-0055-01
 ;;9002226.02101,"619,13107-0055-01 ",.02)
 ;;13107-0055-01
 ;;9002226.02101,"619,13107-0056-01 ",.01)
 ;;13107-0056-01
 ;;9002226.02101,"619,13107-0056-01 ",.02)
 ;;13107-0056-01
 ;;9002226.02101,"619,13107-0057-01 ",.01)
 ;;13107-0057-01
 ;;9002226.02101,"619,13107-0057-01 ",.02)
 ;;13107-0057-01
 ;;9002226.02101,"619,13107-0058-01 ",.01)
 ;;13107-0058-01
 ;;9002226.02101,"619,13107-0058-01 ",.02)
 ;;13107-0058-01
 ;;9002226.02101,"619,13107-0059-01 ",.01)
 ;;13107-0059-01
 ;;9002226.02101,"619,13107-0059-01 ",.02)
 ;;13107-0059-01
 ;;9002226.02101,"619,13107-0059-99 ",.01)
 ;;13107-0059-99
 ;;9002226.02101,"619,13107-0059-99 ",.02)
 ;;13107-0059-99
 ;;9002226.02101,"619,13107-0060-01 ",.01)
 ;;13107-0060-01
 ;;9002226.02101,"619,13107-0060-01 ",.02)
 ;;13107-0060-01
 ;;9002226.02101,"619,13107-0060-05 ",.01)
 ;;13107-0060-05
 ;;9002226.02101,"619,13107-0060-05 ",.02)
 ;;13107-0060-05
 ;;9002226.02101,"619,13107-0060-99 ",.01)
 ;;13107-0060-99
 ;;9002226.02101,"619,13107-0060-99 ",.02)
 ;;13107-0060-99
 ;;9002226.02101,"619,13107-0088-01 ",.01)
 ;;13107-0088-01
 ;;9002226.02101,"619,13107-0088-01 ",.02)
 ;;13107-0088-01
 ;;9002226.02101,"619,13107-0089-01 ",.01)
 ;;13107-0089-01
 ;;9002226.02101,"619,13107-0089-01 ",.02)
 ;;13107-0089-01
 ;;9002226.02101,"619,13107-0103-01 ",.01)
 ;;13107-0103-01
 ;;9002226.02101,"619,13107-0103-01 ",.02)
 ;;13107-0103-01
 ;;9002226.02101,"619,13107-0104-01 ",.01)
 ;;13107-0104-01
 ;;9002226.02101,"619,13107-0104-01 ",.02)
 ;;13107-0104-01
 ;;9002226.02101,"619,13107-0107-01 ",.01)
 ;;13107-0107-01
 ;;9002226.02101,"619,13107-0107-01 ",.02)
 ;;13107-0107-01
 ;;9002226.02101,"619,13107-0108-01 ",.01)
 ;;13107-0108-01
 ;;9002226.02101,"619,13107-0108-01 ",.02)
 ;;13107-0108-01
 ;;9002226.02101,"619,13107-0109-01 ",.01)
 ;;13107-0109-01
 ;;9002226.02101,"619,13107-0109-01 ",.02)
 ;;13107-0109-01
 ;;9002226.02101,"619,13811-0657-10 ",.01)
 ;;13811-0657-10
 ;;9002226.02101,"619,13811-0657-10 ",.02)
 ;;13811-0657-10
 ;;9002226.02101,"619,13811-0689-30 ",.01)
 ;;13811-0689-30
 ;;9002226.02101,"619,13811-0689-30 ",.02)
 ;;13811-0689-30
 ;;9002226.02101,"619,13811-0690-30 ",.01)
 ;;13811-0690-30
 ;;9002226.02101,"619,13811-0690-30 ",.02)
 ;;13811-0690-30
 ;;9002226.02101,"619,13811-0691-30 ",.01)
 ;;13811-0691-30
 ;;9002226.02101,"619,13811-0691-30 ",.02)
 ;;13811-0691-30
 ;;9002226.02101,"619,13811-0701-10 ",.01)
 ;;13811-0701-10
 ;;9002226.02101,"619,13811-0701-10 ",.02)
 ;;13811-0701-10
 ;;9002226.02101,"619,13811-0702-10 ",.01)
 ;;13811-0702-10
 ;;9002226.02101,"619,13811-0702-10 ",.02)
 ;;13811-0702-10
 ;;9002226.02101,"619,13811-0703-10 ",.01)
 ;;13811-0703-10
 ;;9002226.02101,"619,13811-0703-10 ",.02)
 ;;13811-0703-10
 ;;9002226.02101,"619,13811-0704-10 ",.01)
 ;;13811-0704-10
 ;;9002226.02101,"619,13811-0704-10 ",.02)
 ;;13811-0704-10
 ;;9002226.02101,"619,13913-0009-01 ",.01)
 ;;13913-0009-01
 ;;9002226.02101,"619,13913-0009-01 ",.02)
 ;;13913-0009-01
 ;;9002226.02101,"619,13913-0010-01 ",.01)
 ;;13913-0010-01
 ;;9002226.02101,"619,13913-0010-01 ",.02)
 ;;13913-0010-01
 ;;9002226.02101,"619,13913-0013-01 ",.01)
 ;;13913-0013-01
 ;;9002226.02101,"619,13913-0013-01 ",.02)
 ;;13913-0013-01
 ;;9002226.02101,"619,16590-0023-12 ",.01)
 ;;16590-0023-12
 ;;9002226.02101,"619,16590-0023-12 ",.02)
 ;;16590-0023-12
 ;;9002226.02101,"619,16590-0023-15 ",.01)
 ;;16590-0023-15
 ;;9002226.02101,"619,16590-0023-15 ",.02)
 ;;16590-0023-15
 ;;9002226.02101,"619,16590-0023-20 ",.01)
 ;;16590-0023-20
 ;;9002226.02101,"619,16590-0023-20 ",.02)
 ;;16590-0023-20
 ;;9002226.02101,"619,16590-0023-30 ",.01)
 ;;16590-0023-30
 ;;9002226.02101,"619,16590-0023-30 ",.02)
 ;;16590-0023-30
 ;;9002226.02101,"619,16590-0023-40 ",.01)
 ;;16590-0023-40
 ;;9002226.02101,"619,16590-0023-40 ",.02)
 ;;16590-0023-40
 ;;9002226.02101,"619,16590-0023-60 ",.01)
 ;;16590-0023-60
 ;;9002226.02101,"619,16590-0023-60 ",.02)
 ;;16590-0023-60
 ;;9002226.02101,"619,16590-0023-62 ",.01)
 ;;16590-0023-62
 ;;9002226.02101,"619,16590-0023-62 ",.02)
 ;;16590-0023-62
 ;;9002226.02101,"619,16590-0023-72 ",.01)
 ;;16590-0023-72
 ;;9002226.02101,"619,16590-0023-72 ",.02)
 ;;16590-0023-72
 ;;9002226.02101,"619,16590-0023-75 ",.01)
 ;;16590-0023-75
 ;;9002226.02101,"619,16590-0023-75 ",.02)
 ;;16590-0023-75
 ;;9002226.02101,"619,16590-0023-82 ",.01)
 ;;16590-0023-82
 ;;9002226.02101,"619,16590-0023-82 ",.02)
 ;;16590-0023-82
 ;;9002226.02101,"619,16590-0023-90 ",.01)
 ;;16590-0023-90
 ;;9002226.02101,"619,16590-0023-90 ",.02)
 ;;16590-0023-90
 ;;9002226.02101,"619,16590-0112-30 ",.01)
 ;;16590-0112-30
 ;;9002226.02101,"619,16590-0112-30 ",.02)
 ;;16590-0112-30
 ;;9002226.02101,"619,16590-0112-60 ",.01)
 ;;16590-0112-60
 ;;9002226.02101,"619,16590-0112-60 ",.02)
 ;;16590-0112-60
 ;;9002226.02101,"619,16590-0112-72 ",.01)
 ;;16590-0112-72
 ;;9002226.02101,"619,16590-0112-72 ",.02)
 ;;16590-0112-72
 ;;9002226.02101,"619,16590-0112-90 ",.01)
 ;;16590-0112-90
 ;;9002226.02101,"619,16590-0112-90 ",.02)
 ;;16590-0112-90
 ;;9002226.02101,"619,16590-0113-10 ",.01)
 ;;16590-0113-10