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

BGP8ZM3.m

Go to the documentation of this file.
BGP8ZM3 ;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,"544,00052-0274-01 ",.02)
 ;;00052-0274-01
 ;;9002226.02101,"544,00052-0283-06 ",.01)
 ;;00052-0283-06
 ;;9002226.02101,"544,00052-0283-06 ",.02)
 ;;00052-0283-06
 ;;9002226.02101,"544,00052-0283-08 ",.01)
 ;;00052-0283-08
 ;;9002226.02101,"544,00052-0283-08 ",.02)
 ;;00052-0283-08
 ;;9002226.02101,"544,00052-4330-01 ",.01)
 ;;00052-4330-01
 ;;9002226.02101,"544,00052-4330-01 ",.02)
 ;;00052-4330-01
 ;;9002226.02101,"544,00062-1901-20 ",.01)
 ;;00062-1901-20
 ;;9002226.02101,"544,00062-1901-20 ",.02)
 ;;00062-1901-20
 ;;9002226.02101,"544,00062-1903-20 ",.01)
 ;;00062-1903-20
 ;;9002226.02101,"544,00062-1903-20 ",.02)
 ;;00062-1903-20
 ;;9002226.02101,"544,00062-3185-01 ",.01)
 ;;00062-3185-01
 ;;9002226.02101,"544,00062-3185-01 ",.02)
 ;;00062-3185-01
 ;;9002226.02101,"544,00062-3250-01 ",.01)
 ;;00062-3250-01
 ;;9002226.02101,"544,00062-3250-01 ",.02)
 ;;00062-3250-01
 ;;9002226.02101,"544,00062-3301-00 ",.01)
 ;;00062-3301-00
 ;;9002226.02101,"544,00062-3301-00 ",.02)
 ;;00062-3301-00
 ;;9002226.02101,"544,00062-3302-00 ",.01)
 ;;00062-3302-00
 ;;9002226.02101,"544,00062-3302-00 ",.02)
 ;;00062-3302-00
 ;;9002226.02101,"544,00062-3303-00 ",.01)
 ;;00062-3303-00
 ;;9002226.02101,"544,00062-3303-00 ",.02)
 ;;00062-3303-00
 ;;9002226.02101,"544,00062-3304-00 ",.01)
 ;;00062-3304-00
 ;;9002226.02101,"544,00062-3304-00 ",.02)
 ;;00062-3304-00
 ;;9002226.02101,"544,00062-3305-00 ",.01)
 ;;00062-3305-00
 ;;9002226.02101,"544,00062-3305-00 ",.02)
 ;;00062-3305-00
 ;;9002226.02101,"544,00062-3306-00 ",.01)
 ;;00062-3306-00
 ;;9002226.02101,"544,00062-3306-00 ",.02)
 ;;00062-3306-00
 ;;9002226.02101,"544,00062-3307-00 ",.01)
 ;;00062-3307-00
 ;;9002226.02101,"544,00062-3307-00 ",.02)
 ;;00062-3307-00
 ;;9002226.02101,"544,00062-3308-00 ",.01)
 ;;00062-3308-00
 ;;9002226.02101,"544,00062-3308-00 ",.02)
 ;;00062-3308-00
 ;;9002226.02101,"544,00062-3309-00 ",.01)
 ;;00062-3309-00
 ;;9002226.02101,"544,00062-3309-00 ",.02)
 ;;00062-3309-00
 ;;9002226.02101,"544,00062-3310-00 ",.01)
 ;;00062-3310-00
 ;;9002226.02101,"544,00062-3310-00 ",.02)
 ;;00062-3310-00
 ;;9002226.02101,"544,00062-3311-00 ",.01)
 ;;00062-3311-00
 ;;9002226.02101,"544,00062-3311-00 ",.02)
 ;;00062-3311-00
 ;;9002226.02101,"544,00062-3312-00 ",.01)
 ;;00062-3312-00
 ;;9002226.02101,"544,00062-3312-00 ",.02)
 ;;00062-3312-00
 ;;9002226.02101,"544,00062-3313-00 ",.01)
 ;;00062-3313-00
 ;;9002226.02101,"544,00062-3313-00 ",.02)
 ;;00062-3313-00
 ;;9002226.02101,"544,00062-3341-00 ",.01)
 ;;00062-3341-00
 ;;9002226.02101,"544,00062-3341-00 ",.02)
 ;;00062-3341-00
 ;;9002226.02101,"544,00062-3342-00 ",.01)
 ;;00062-3342-00
 ;;9002226.02101,"544,00062-3342-00 ",.02)
 ;;00062-3342-00
 ;;9002226.02101,"544,00062-3343-00 ",.01)
 ;;00062-3343-00
 ;;9002226.02101,"544,00062-3343-00 ",.02)
 ;;00062-3343-00
 ;;9002226.02101,"544,00062-3344-00 ",.01)
 ;;00062-3344-00
 ;;9002226.02101,"544,00062-3344-00 ",.02)
 ;;00062-3344-00
 ;;9002226.02101,"544,00062-3345-00 ",.01)
 ;;00062-3345-00
 ;;9002226.02101,"544,00062-3345-00 ",.02)
 ;;00062-3345-00
 ;;9002226.02101,"544,00062-3346-00 ",.01)
 ;;00062-3346-00
 ;;9002226.02101,"544,00062-3346-00 ",.02)
 ;;00062-3346-00
 ;;9002226.02101,"544,00062-3347-00 ",.01)
 ;;00062-3347-00
 ;;9002226.02101,"544,00062-3347-00 ",.02)
 ;;00062-3347-00
 ;;9002226.02101,"544,00062-3348-00 ",.01)
 ;;00062-3348-00
 ;;9002226.02101,"544,00062-3348-00 ",.02)
 ;;00062-3348-00
 ;;9002226.02101,"544,00062-3349-00 ",.01)
 ;;00062-3349-00
 ;;9002226.02101,"544,00062-3349-00 ",.02)
 ;;00062-3349-00
 ;;9002226.02101,"544,00062-3350-00 ",.01)
 ;;00062-3350-00
 ;;9002226.02101,"544,00062-3350-00 ",.02)
 ;;00062-3350-00
 ;;9002226.02101,"544,00062-3351-00 ",.01)
 ;;00062-3351-00
 ;;9002226.02101,"544,00062-3351-00 ",.02)
 ;;00062-3351-00
 ;;9002226.02101,"544,00062-3352-00 ",.01)
 ;;00062-3352-00
 ;;9002226.02101,"544,00062-3352-00 ",.02)
 ;;00062-3352-00
 ;;9002226.02101,"544,00062-3381-00 ",.01)
 ;;00062-3381-00
 ;;9002226.02101,"544,00062-3381-00 ",.02)
 ;;00062-3381-00
 ;;9002226.02101,"544,00062-3382-00 ",.01)
 ;;00062-3382-00
 ;;9002226.02101,"544,00062-3382-00 ",.02)
 ;;00062-3382-00
 ;;9002226.02101,"544,00062-3383-00 ",.01)
 ;;00062-3383-00
 ;;9002226.02101,"544,00062-3383-00 ",.02)
 ;;00062-3383-00
 ;;9002226.02101,"544,00062-3384-00 ",.01)
 ;;00062-3384-00
 ;;9002226.02101,"544,00062-3384-00 ",.02)
 ;;00062-3384-00
 ;;9002226.02101,"544,00062-3385-00 ",.01)
 ;;00062-3385-00
 ;;9002226.02101,"544,00062-3385-00 ",.02)
 ;;00062-3385-00
 ;;9002226.02101,"544,00062-3386-00 ",.01)
 ;;00062-3386-00
 ;;9002226.02101,"544,00062-3386-00 ",.02)
 ;;00062-3386-00
 ;;9002226.02101,"544,00062-3387-00 ",.01)
 ;;00062-3387-00
 ;;9002226.02101,"544,00062-3387-00 ",.02)
 ;;00062-3387-00
 ;;9002226.02101,"544,00062-3388-00 ",.01)
 ;;00062-3388-00
 ;;9002226.02101,"544,00062-3388-00 ",.02)
 ;;00062-3388-00
 ;;9002226.02101,"544,00062-3389-00 ",.01)
 ;;00062-3389-00
 ;;9002226.02101,"544,00062-3389-00 ",.02)
 ;;00062-3389-00
 ;;9002226.02101,"544,00062-3641-03 ",.01)
 ;;00062-3641-03
 ;;9002226.02101,"544,00062-3641-03 ",.02)
 ;;00062-3641-03
 ;;9002226.02101,"544,00062-3643-00 ",.01)
 ;;00062-3643-00
 ;;9002226.02101,"544,00062-3643-00 ",.02)
 ;;00062-3643-00
 ;;9002226.02101,"544,00093-2090-28 ",.01)
 ;;00093-2090-28
 ;;9002226.02101,"544,00093-2090-28 ",.02)
 ;;00093-2090-28
 ;;9002226.02101,"544,00093-2090-58 ",.01)
 ;;00093-2090-58
 ;;9002226.02101,"544,00093-2090-58 ",.02)
 ;;00093-2090-58
 ;;9002226.02101,"544,00093-2140-62 ",.01)
 ;;00093-2140-62
 ;;9002226.02101,"544,00093-2140-62 ",.02)
 ;;00093-2140-62
 ;;9002226.02101,"544,00093-3134-82 ",.01)
 ;;00093-3134-82
 ;;9002226.02101,"544,00093-3134-82 ",.02)
 ;;00093-3134-82
 ;;9002226.02101,"544,00093-3134-91 ",.01)
 ;;00093-3134-91
 ;;9002226.02101,"544,00093-3134-91 ",.02)
 ;;00093-3134-91
 ;;9002226.02101,"544,00093-3304-16 ",.01)
 ;;00093-3304-16
 ;;9002226.02101,"544,00093-3304-16 ",.02)
 ;;00093-3304-16
 ;;9002226.02101,"544,00093-3304-28 ",.01)
 ;;00093-3304-28
 ;;9002226.02101,"544,00093-3304-28 ",.02)
 ;;00093-3304-28
 ;;9002226.02101,"544,00093-3305-16 ",.01)
 ;;00093-3305-16
 ;;9002226.02101,"544,00093-3305-16 ",.02)
 ;;00093-3305-16
 ;;9002226.02101,"544,00093-3305-28 ",.01)
 ;;00093-3305-28
 ;;9002226.02101,"544,00093-3305-28 ",.02)
 ;;00093-3305-28
 ;;9002226.02101,"544,00093-5328-28 ",.01)
 ;;00093-5328-28
 ;;9002226.02101,"544,00093-5328-28 ",.02)
 ;;00093-5328-28
 ;;9002226.02101,"544,00093-5328-62 ",.01)
 ;;00093-5328-62
 ;;9002226.02101,"544,00093-5328-62 ",.02)
 ;;00093-5328-62
 ;;9002226.02101,"544,00093-5423-28 ",.01)
 ;;00093-5423-28
 ;;9002226.02101,"544,00093-5423-28 ",.02)
 ;;00093-5423-28
 ;;9002226.02101,"544,00093-5423-58 ",.01)
 ;;00093-5423-58
 ;;9002226.02101,"544,00093-5423-58 ",.02)
 ;;00093-5423-58
 ;;9002226.02101,"544,00093-5423-62 ",.01)
 ;;00093-5423-62
 ;;9002226.02101,"544,00093-5423-62 ",.02)
 ;;00093-5423-62
 ;;9002226.02101,"544,00093-6031-82 ",.01)
 ;;00093-6031-82
 ;;9002226.02101,"544,00093-6031-82 ",.02)
 ;;00093-6031-82
 ;;9002226.02101,"544,00093-6031-91 ",.01)
 ;;00093-6031-91
 ;;9002226.02101,"544,00093-6031-91 ",.02)
 ;;00093-6031-91
 ;;9002226.02101,"544,00093-6148-82 ",.01)
 ;;00093-6148-82
 ;;9002226.02101,"544,00093-6148-82 ",.02)
 ;;00093-6148-82
 ;;9002226.02101,"544,00234-0051-00 ",.01)
 ;;00234-0051-00
 ;;9002226.02101,"544,00234-0051-00 ",.02)
 ;;00234-0051-00
 ;;9002226.02101,"544,00234-0131-00 ",.01)
 ;;00234-0131-00
 ;;9002226.02101,"544,00234-0131-00 ",.02)
 ;;00234-0131-00
 ;;9002226.02101,"544,00234-0131-50 ",.01)
 ;;00234-0131-50
 ;;9002226.02101,"544,00234-0131-50 ",.02)
 ;;00234-0131-50
 ;;9002226.02101,"544,00234-0131-55 ",.01)
 ;;00234-0131-55
 ;;9002226.02101,"544,00234-0131-55 ",.02)
 ;;00234-0131-55
 ;;9002226.02101,"544,00234-0131-60 ",.01)
 ;;00234-0131-60
 ;;9002226.02101,"544,00234-0131-60 ",.02)
 ;;00234-0131-60
 ;;9002226.02101,"544,00234-0131-65 ",.01)
 ;;00234-0131-65
 ;;9002226.02101,"544,00234-0131-65 ",.02)
 ;;00234-0131-65
 ;;9002226.02101,"544,00234-0131-70 ",.01)
 ;;00234-0131-70
 ;;9002226.02101,"544,00234-0131-70 ",.02)
 ;;00234-0131-70
 ;;9002226.02101,"544,00234-0131-75 ",.01)
 ;;00234-0131-75
 ;;9002226.02101,"544,00234-0131-75 ",.02)
 ;;00234-0131-75
 ;;9002226.02101,"544,00234-0131-80 ",.01)
 ;;00234-0131-80
 ;;9002226.02101,"544,00234-0131-80 ",.02)
 ;;00234-0131-80
 ;;9002226.02101,"544,00234-0131-85 ",.01)
 ;;00234-0131-85
 ;;9002226.02101,"544,00234-0131-85 ",.02)
 ;;00234-0131-85
 ;;9002226.02101,"544,00234-0131-90 ",.01)
 ;;00234-0131-90
 ;;9002226.02101,"544,00234-0131-90 ",.02)
 ;;00234-0131-90
 ;;9002226.02101,"544,00234-0131-95 ",.01)
 ;;00234-0131-95
 ;;9002226.02101,"544,00234-0131-95 ",.02)
 ;;00234-0131-95
 ;;9002226.02101,"544,00234-0136-00 ",.01)
 ;;00234-0136-00
 ;;9002226.02101,"544,00234-0136-00 ",.02)
 ;;00234-0136-00
 ;;9002226.02101,"544,00234-0136-60 ",.01)
 ;;00234-0136-60
 ;;9002226.02101,"544,00234-0136-60 ",.02)
 ;;00234-0136-60
 ;;9002226.02101,"544,00234-0136-65 ",.01)
 ;;00234-0136-65
 ;;9002226.02101,"544,00234-0136-65 ",.02)
 ;;00234-0136-65
 ;;9002226.02101,"544,00234-0136-70 ",.01)
 ;;00234-0136-70
 ;;9002226.02101,"544,00234-0136-70 ",.02)
 ;;00234-0136-70
 ;;9002226.02101,"544,00234-0136-75 ",.01)
 ;;00234-0136-75
 ;;9002226.02101,"544,00234-0136-75 ",.02)
 ;;00234-0136-75
 ;;9002226.02101,"544,00234-0136-80 ",.01)
 ;;00234-0136-80
 ;;9002226.02101,"544,00234-0136-80 ",.02)
 ;;00234-0136-80
 ;;9002226.02101,"544,00234-0136-85 ",.01)
 ;;00234-0136-85
 ;;9002226.02101,"544,00234-0136-85 ",.02)
 ;;00234-0136-85
 ;;9002226.02101,"544,00234-0136-90 ",.01)
 ;;00234-0136-90
 ;;9002226.02101,"544,00234-0136-90 ",.02)
 ;;00234-0136-90
 ;;9002226.02101,"544,00234-0136-95 ",.01)
 ;;00234-0136-95
 ;;9002226.02101,"544,00234-0136-95 ",.02)
 ;;00234-0136-95
 ;;9002226.02101,"544,00247-0520-28 ",.01)
 ;;00247-0520-28
 ;;9002226.02101,"544,00247-0520-28 ",.02)
 ;;00247-0520-28
 ;;9002226.02101,"544,00247-0690-28 ",.01)
 ;;00247-0690-28
 ;;9002226.02101,"544,00247-0690-28 ",.02)
 ;;00247-0690-28
 ;;9002226.02101,"544,00247-0691-28 ",.01)
 ;;00247-0691-28
 ;;9002226.02101,"544,00247-0691-28 ",.02)
 ;;00247-0691-28
 ;;9002226.02101,"544,00247-0692-28 ",.01)
 ;;00247-0692-28
 ;;9002226.02101,"544,00247-0692-28 ",.02)
 ;;00247-0692-28
 ;;9002226.02101,"544,00247-1513-28 ",.01)
 ;;00247-1513-28
 ;;9002226.02101,"544,00247-1513-28 ",.02)
 ;;00247-1513-28
 ;;9002226.02101,"544,00247-1517-28 ",.01)
 ;;00247-1517-28
 ;;9002226.02101,"544,00247-1517-28 ",.02)
 ;;00247-1517-28
 ;;9002226.02101,"544,00247-1764-04 ",.01)
 ;;00247-1764-04
 ;;9002226.02101,"544,00247-1764-04 ",.02)
 ;;00247-1764-04
 ;;9002226.02101,"544,00247-1764-21 ",.01)
 ;;00247-1764-21
 ;;9002226.02101,"544,00247-1764-21 ",.02)
 ;;00247-1764-21
 ;;9002226.02101,"544,00247-1765-21 ",.01)
 ;;00247-1765-21
 ;;9002226.02101,"544,00247-1765-21 ",.02)
 ;;00247-1765-21
 ;;9002226.02101,"544,00247-1986-21 ",.01)
 ;;00247-1986-21
 ;;9002226.02101,"544,00247-1986-21 ",.02)
 ;;00247-1986-21
 ;;9002226.02101,"544,00247-1986-28 ",.01)
 ;;00247-1986-28
 ;;9002226.02101,"544,00247-1986-28 ",.02)
 ;;00247-1986-28
 ;;9002226.02101,"544,00247-2008-28 ",.01)
 ;;00247-2008-28
 ;;9002226.02101,"544,00247-2008-28 ",.02)
 ;;00247-2008-28
 ;;9002226.02101,"544,00247-2012-28 ",.01)
 ;;00247-2012-28
 ;;9002226.02101,"544,00247-2012-28 ",.02)
 ;;00247-2012-28
 ;;9002226.02101,"544,00247-2013-28 ",.01)
 ;;00247-2013-28
 ;;9002226.02101,"544,00247-2013-28 ",.02)
 ;;00247-2013-28
 ;;9002226.02101,"544,00247-2108-01 ",.01)
 ;;00247-2108-01