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

BGP8ZM4.m

Go to the documentation of this file.
BGP8ZM4 ;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,00247-2108-01 ",.02)
 ;;00247-2108-01
 ;;9002226.02101,"544,00247-2147-28 ",.01)
 ;;00247-2147-28
 ;;9002226.02101,"544,00247-2147-28 ",.02)
 ;;00247-2147-28
 ;;9002226.02101,"544,00247-2169-28 ",.01)
 ;;00247-2169-28
 ;;9002226.02101,"544,00247-2169-28 ",.02)
 ;;00247-2169-28
 ;;9002226.02101,"544,00247-2170-28 ",.01)
 ;;00247-2170-28
 ;;9002226.02101,"544,00247-2170-28 ",.02)
 ;;00247-2170-28
 ;;9002226.02101,"544,00247-2230-28 ",.01)
 ;;00247-2230-28
 ;;9002226.02101,"544,00247-2230-28 ",.02)
 ;;00247-2230-28
 ;;9002226.02101,"544,00247-2235-28 ",.01)
 ;;00247-2235-28
 ;;9002226.02101,"544,00247-2235-28 ",.02)
 ;;00247-2235-28
 ;;9002226.02101,"544,00247-2260-28 ",.01)
 ;;00247-2260-28
 ;;9002226.02101,"544,00247-2260-28 ",.02)
 ;;00247-2260-28
 ;;9002226.02101,"544,00247-2268-28 ",.01)
 ;;00247-2268-28
 ;;9002226.02101,"544,00247-2268-28 ",.02)
 ;;00247-2268-28
 ;;9002226.02101,"544,00378-3340-53 ",.01)
 ;;00378-3340-53
 ;;9002226.02101,"544,00378-3340-53 ",.02)
 ;;00378-3340-53
 ;;9002226.02101,"544,00378-6550-53 ",.01)
 ;;00378-6550-53
 ;;9002226.02101,"544,00378-6550-53 ",.02)
 ;;00378-6550-53
 ;;9002226.02101,"544,00378-7272-53 ",.01)
 ;;00378-7272-53
 ;;9002226.02101,"544,00378-7272-53 ",.02)
 ;;00378-7272-53
 ;;9002226.02101,"544,00378-7277-53 ",.01)
 ;;00378-7277-53
 ;;9002226.02101,"544,00378-7277-53 ",.02)
 ;;00378-7277-53
 ;;9002226.02101,"544,00378-7280-53 ",.01)
 ;;00378-7280-53
 ;;9002226.02101,"544,00378-7280-53 ",.02)
 ;;00378-7280-53
 ;;9002226.02101,"544,00378-7281-53 ",.01)
 ;;00378-7281-53
 ;;9002226.02101,"544,00378-7281-53 ",.02)
 ;;00378-7281-53
 ;;9002226.02101,"544,00378-7282-53 ",.01)
 ;;00378-7282-53
 ;;9002226.02101,"544,00378-7282-53 ",.02)
 ;;00378-7282-53
 ;;9002226.02101,"544,00378-7282-85 ",.01)
 ;;00378-7282-85
 ;;9002226.02101,"544,00378-7282-85 ",.02)
 ;;00378-7282-85
 ;;9002226.02101,"544,00378-7283-53 ",.01)
 ;;00378-7283-53
 ;;9002226.02101,"544,00378-7283-53 ",.02)
 ;;00378-7283-53
 ;;9002226.02101,"544,00378-7284-90 ",.01)
 ;;00378-7284-90
 ;;9002226.02101,"544,00378-7284-90 ",.02)
 ;;00378-7284-90
 ;;9002226.02101,"544,00378-7285-90 ",.01)
 ;;00378-7285-90
 ;;9002226.02101,"544,00378-7285-90 ",.02)
 ;;00378-7285-90
 ;;9002226.02101,"544,00378-7287-53 ",.01)
 ;;00378-7287-53
 ;;9002226.02101,"544,00378-7287-53 ",.02)
 ;;00378-7287-53
 ;;9002226.02101,"544,00378-7292-53 ",.01)
 ;;00378-7292-53
 ;;9002226.02101,"544,00378-7292-53 ",.02)
 ;;00378-7292-53
 ;;9002226.02101,"544,00378-7296-53 ",.01)
 ;;00378-7296-53
 ;;9002226.02101,"544,00378-7296-53 ",.02)
 ;;00378-7296-53
 ;;9002226.02101,"544,00378-7297-53 ",.01)
 ;;00378-7297-53
 ;;9002226.02101,"544,00378-7297-53 ",.02)
 ;;00378-7297-53
 ;;9002226.02101,"544,00378-7298-53 ",.01)
 ;;00378-7298-53
 ;;9002226.02101,"544,00378-7298-53 ",.02)
 ;;00378-7298-53
 ;;9002226.02101,"544,00378-7300-53 ",.01)
 ;;00378-7300-53
 ;;9002226.02101,"544,00378-7300-53 ",.02)
 ;;00378-7300-53
 ;;9002226.02101,"544,00378-7301-53 ",.01)
 ;;00378-7301-53
 ;;9002226.02101,"544,00378-7301-53 ",.02)
 ;;00378-7301-53
 ;;9002226.02101,"544,00378-7306-53 ",.01)
 ;;00378-7306-53
 ;;9002226.02101,"544,00378-7306-53 ",.02)
 ;;00378-7306-53
 ;;9002226.02101,"544,00378-7308-53 ",.01)
 ;;00378-7308-53
 ;;9002226.02101,"544,00378-7308-53 ",.02)
 ;;00378-7308-53
 ;;9002226.02101,"544,00396-4010-65 ",.01)
 ;;00396-4010-65
 ;;9002226.02101,"544,00396-4010-65 ",.02)
 ;;00396-4010-65
 ;;9002226.02101,"544,00396-4010-70 ",.01)
 ;;00396-4010-70
 ;;9002226.02101,"544,00396-4010-70 ",.02)
 ;;00396-4010-70
 ;;9002226.02101,"544,00396-4010-75 ",.01)
 ;;00396-4010-75
 ;;9002226.02101,"544,00396-4010-75 ",.02)
 ;;00396-4010-75
 ;;9002226.02101,"544,00396-4010-80 ",.01)
 ;;00396-4010-80
 ;;9002226.02101,"544,00396-4010-80 ",.02)
 ;;00396-4010-80
 ;;9002226.02101,"544,00430-0005-31 ",.01)
 ;;00430-0005-31
 ;;9002226.02101,"544,00430-0005-31 ",.02)
 ;;00430-0005-31
 ;;9002226.02101,"544,00430-0010-05 ",.01)
 ;;00430-0010-05
 ;;9002226.02101,"544,00430-0010-05 ",.02)
 ;;00430-0010-05
 ;;9002226.02101,"544,00430-0420-14 ",.01)
 ;;00430-0420-14
 ;;9002226.02101,"544,00430-0420-14 ",.02)
 ;;00430-0420-14
 ;;9002226.02101,"544,00430-0482-14 ",.01)
 ;;00430-0482-14
 ;;9002226.02101,"544,00430-0482-14 ",.02)
 ;;00430-0482-14
 ;;9002226.02101,"544,00430-0530-14 ",.01)
 ;;00430-0530-14
 ;;9002226.02101,"544,00430-0530-14 ",.02)
 ;;00430-0530-14
 ;;9002226.02101,"544,00430-0530-60 ",.01)
 ;;00430-0530-60
 ;;9002226.02101,"544,00430-0530-60 ",.02)
 ;;00430-0530-60
 ;;9002226.02101,"544,00430-0535-14 ",.01)
 ;;00430-0535-14
 ;;9002226.02101,"544,00430-0535-14 ",.02)
 ;;00430-0535-14
 ;;9002226.02101,"544,00430-0535-50 ",.01)
 ;;00430-0535-50
 ;;9002226.02101,"544,00430-0535-50 ",.02)
 ;;00430-0535-50
 ;;9002226.02101,"544,00430-0537-50 ",.01)
 ;;00430-0537-50
 ;;9002226.02101,"544,00430-0537-50 ",.02)
 ;;00430-0537-50
 ;;9002226.02101,"544,00430-0540-50 ",.01)
 ;;00430-0540-50
 ;;9002226.02101,"544,00430-0540-50 ",.02)
 ;;00430-0540-50
 ;;9002226.02101,"544,00430-0570-45 ",.01)
 ;;00430-0570-45
 ;;9002226.02101,"544,00430-0570-45 ",.02)
 ;;00430-0570-45
 ;;9002226.02101,"544,00430-0580-14 ",.01)
 ;;00430-0580-14
 ;;9002226.02101,"544,00430-0580-14 ",.02)
 ;;00430-0580-14
 ;;9002226.02101,"544,00430-0580-45 ",.01)
 ;;00430-0580-45
 ;;9002226.02101,"544,00430-0580-45 ",.02)
 ;;00430-0580-45
 ;;9002226.02101,"544,00430-0581-14 ",.01)
 ;;00430-0581-14
 ;;9002226.02101,"544,00430-0581-14 ",.02)
 ;;00430-0581-14
 ;;9002226.02101,"544,00555-0344-58 ",.01)
 ;;00555-0344-58
 ;;9002226.02101,"544,00555-0344-58 ",.02)
 ;;00555-0344-58
 ;;9002226.02101,"544,00555-0715-58 ",.01)
 ;;00555-0715-58
 ;;9002226.02101,"544,00555-0715-58 ",.02)
 ;;00555-0715-58
 ;;9002226.02101,"544,00555-9008-67 ",.01)
 ;;00555-9008-67
 ;;9002226.02101,"544,00555-9008-67 ",.02)
 ;;00555-9008-67
 ;;9002226.02101,"544,00555-9008-79 ",.01)
 ;;00555-9008-79
 ;;9002226.02101,"544,00555-9008-79 ",.02)
 ;;00555-9008-79
 ;;9002226.02101,"544,00555-9009-42 ",.01)
 ;;00555-9009-42
 ;;9002226.02101,"544,00555-9009-42 ",.02)
 ;;00555-9009-42
 ;;9002226.02101,"544,00555-9009-80 ",.01)
 ;;00555-9009-80
 ;;9002226.02101,"544,00555-9009-80 ",.02)
 ;;00555-9009-80
 ;;9002226.02101,"544,00555-9010-58 ",.01)
 ;;00555-9010-58
 ;;9002226.02101,"544,00555-9010-58 ",.02)
 ;;00555-9010-58
 ;;9002226.02101,"544,00555-9010-79 ",.01)
 ;;00555-9010-79
 ;;9002226.02101,"544,00555-9010-79 ",.02)
 ;;00555-9010-79
 ;;9002226.02101,"544,00555-9012-58 ",.01)
 ;;00555-9012-58
 ;;9002226.02101,"544,00555-9012-58 ",.02)
 ;;00555-9012-58
 ;;9002226.02101,"544,00555-9012-79 ",.01)
 ;;00555-9012-79
 ;;9002226.02101,"544,00555-9012-79 ",.02)
 ;;00555-9012-79
 ;;9002226.02101,"544,00555-9014-67 ",.01)
 ;;00555-9014-67
 ;;9002226.02101,"544,00555-9014-67 ",.02)
 ;;00555-9014-67
 ;;9002226.02101,"544,00555-9014-79 ",.01)
 ;;00555-9014-79
 ;;9002226.02101,"544,00555-9014-79 ",.02)
 ;;00555-9014-79
 ;;9002226.02101,"544,00555-9016-58 ",.01)
 ;;00555-9016-58
 ;;9002226.02101,"544,00555-9016-58 ",.02)
 ;;00555-9016-58
 ;;9002226.02101,"544,00555-9018-58 ",.01)
 ;;00555-9018-58
 ;;9002226.02101,"544,00555-9018-58 ",.02)
 ;;00555-9018-58
 ;;9002226.02101,"544,00555-9020-58 ",.01)
 ;;00555-9020-58
 ;;9002226.02101,"544,00555-9020-58 ",.02)
 ;;00555-9020-58
 ;;9002226.02101,"544,00555-9020-79 ",.01)
 ;;00555-9020-79
 ;;9002226.02101,"544,00555-9020-79 ",.02)
 ;;00555-9020-79
 ;;9002226.02101,"544,00555-9025-42 ",.01)
 ;;00555-9025-42
 ;;9002226.02101,"544,00555-9025-42 ",.02)
 ;;00555-9025-42
 ;;9002226.02101,"544,00555-9026-58 ",.01)
 ;;00555-9026-58
 ;;9002226.02101,"544,00555-9026-58 ",.02)
 ;;00555-9026-58
 ;;9002226.02101,"544,00555-9027-42 ",.01)
 ;;00555-9027-42
 ;;9002226.02101,"544,00555-9027-42 ",.02)
 ;;00555-9027-42
 ;;9002226.02101,"544,00555-9028-58 ",.01)
 ;;00555-9028-58
 ;;9002226.02101,"544,00555-9028-58 ",.02)
 ;;00555-9028-58
 ;;9002226.02101,"544,00555-9032-70 ",.01)
 ;;00555-9032-70
 ;;9002226.02101,"544,00555-9032-70 ",.02)
 ;;00555-9032-70
 ;;9002226.02101,"544,00555-9034-00 ",.01)
 ;;00555-9034-00
 ;;9002226.02101,"544,00555-9034-00 ",.02)
 ;;00555-9034-00
 ;;9002226.02101,"544,00555-9034-58 ",.01)
 ;;00555-9034-58
 ;;9002226.02101,"544,00555-9034-58 ",.02)
 ;;00555-9034-58
 ;;9002226.02101,"544,00555-9034-79 ",.01)
 ;;00555-9034-79
 ;;9002226.02101,"544,00555-9034-79 ",.02)
 ;;00555-9034-79
 ;;9002226.02101,"544,00555-9043-58 ",.01)
 ;;00555-9043-58
 ;;9002226.02101,"544,00555-9043-58 ",.02)
 ;;00555-9043-58
 ;;9002226.02101,"544,00555-9043-79 ",.01)
 ;;00555-9043-79
 ;;9002226.02101,"544,00555-9043-79 ",.02)
 ;;00555-9043-79
 ;;9002226.02101,"544,00555-9045-58 ",.01)
 ;;00555-9045-58
 ;;9002226.02101,"544,00555-9045-58 ",.02)
 ;;00555-9045-58
 ;;9002226.02101,"544,00555-9045-79 ",.01)
 ;;00555-9045-79
 ;;9002226.02101,"544,00555-9045-79 ",.02)
 ;;00555-9045-79
 ;;9002226.02101,"544,00555-9047-58 ",.01)
 ;;00555-9047-58
 ;;9002226.02101,"544,00555-9047-58 ",.02)
 ;;00555-9047-58
 ;;9002226.02101,"544,00555-9049-58 ",.01)
 ;;00555-9049-58
 ;;9002226.02101,"544,00555-9049-58 ",.02)
 ;;00555-9049-58
 ;;9002226.02101,"544,00555-9049-79 ",.01)
 ;;00555-9049-79
 ;;9002226.02101,"544,00555-9049-79 ",.02)
 ;;00555-9049-79
 ;;9002226.02101,"544,00555-9050-58 ",.01)
 ;;00555-9050-58
 ;;9002226.02101,"544,00555-9050-58 ",.02)
 ;;00555-9050-58
 ;;9002226.02101,"544,00555-9050-79 ",.01)
 ;;00555-9050-79
 ;;9002226.02101,"544,00555-9050-79 ",.02)
 ;;00555-9050-79
 ;;9002226.02101,"544,00555-9051-67 ",.01)
 ;;00555-9051-67
 ;;9002226.02101,"544,00555-9051-67 ",.02)
 ;;00555-9051-67
 ;;9002226.02101,"544,00555-9051-79 ",.01)
 ;;00555-9051-79
 ;;9002226.02101,"544,00555-9051-79 ",.02)
 ;;00555-9051-79
 ;;9002226.02101,"544,00555-9064-58 ",.01)
 ;;00555-9064-58
 ;;9002226.02101,"544,00555-9064-58 ",.02)
 ;;00555-9064-58
 ;;9002226.02101,"544,00555-9064-79 ",.01)
 ;;00555-9064-79
 ;;9002226.02101,"544,00555-9064-79 ",.02)
 ;;00555-9064-79
 ;;9002226.02101,"544,00555-9066-58 ",.01)
 ;;00555-9066-58
 ;;9002226.02101,"544,00555-9066-58 ",.02)
 ;;00555-9066-58
 ;;9002226.02101,"544,00555-9066-67 ",.01)
 ;;00555-9066-67
 ;;9002226.02101,"544,00555-9066-67 ",.02)
 ;;00555-9066-67
 ;;9002226.02101,"544,00555-9066-79 ",.01)
 ;;00555-9066-79
 ;;9002226.02101,"544,00555-9066-79 ",.02)
 ;;00555-9066-79
 ;;9002226.02101,"544,00555-9123-66 ",.01)
 ;;00555-9123-66
 ;;9002226.02101,"544,00555-9123-66 ",.02)
 ;;00555-9123-66
 ;;9002226.02101,"544,00555-9131-67 ",.01)
 ;;00555-9131-67
 ;;9002226.02101,"544,00555-9131-67 ",.02)
 ;;00555-9131-67
 ;;9002226.02101,"544,00555-9131-79 ",.01)
 ;;00555-9131-79
 ;;9002226.02101,"544,00555-9131-79 ",.02)
 ;;00555-9131-79
 ;;9002226.02101,"544,00603-3590-17 ",.01)
 ;;00603-3590-17
 ;;9002226.02101,"544,00603-3590-17 ",.02)
 ;;00603-3590-17
 ;;9002226.02101,"544,00603-3590-49 ",.01)
 ;;00603-3590-49
 ;;9002226.02101,"544,00603-3590-49 ",.02)
 ;;00603-3590-49
 ;;9002226.02101,"544,00603-7512-17 ",.01)
 ;;00603-7512-17
 ;;9002226.02101,"544,00603-7512-17 ",.02)
 ;;00603-7512-17
 ;;9002226.02101,"544,00603-7512-49 ",.01)
 ;;00603-7512-49
 ;;9002226.02101,"544,00603-7512-49 ",.02)
 ;;00603-7512-49
 ;;9002226.02101,"544,00603-7521-17 ",.01)
 ;;00603-7521-17
 ;;9002226.02101,"544,00603-7521-17 ",.02)
 ;;00603-7521-17
 ;;9002226.02101,"544,00603-7521-49 ",.01)
 ;;00603-7521-49
 ;;9002226.02101,"544,00603-7521-49 ",.02)
 ;;00603-7521-49
 ;;9002226.02101,"544,00603-7525-01 ",.01)
 ;;00603-7525-01
 ;;9002226.02101,"544,00603-7525-01 ",.02)
 ;;00603-7525-01
 ;;9002226.02101,"544,00603-7525-17 ",.01)
 ;;00603-7525-17