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

BGP8ZM6.m

Go to the documentation of this file.
BGP8ZM6 ;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,50419-0402-03 ",.02)
 ;;50419-0402-03
 ;;9002226.02101,"544,50419-0403-03 ",.01)
 ;;50419-0403-03
 ;;9002226.02101,"544,50419-0403-03 ",.02)
 ;;50419-0403-03
 ;;9002226.02101,"544,50419-0405-01 ",.01)
 ;;50419-0405-01
 ;;9002226.02101,"544,50419-0405-01 ",.02)
 ;;50419-0405-01
 ;;9002226.02101,"544,50419-0405-03 ",.01)
 ;;50419-0405-03
 ;;9002226.02101,"544,50419-0405-03 ",.02)
 ;;50419-0405-03
 ;;9002226.02101,"544,50419-0407-01 ",.01)
 ;;50419-0407-01
 ;;9002226.02101,"544,50419-0407-01 ",.02)
 ;;50419-0407-01
 ;;9002226.02101,"544,50419-0407-03 ",.01)
 ;;50419-0407-03
 ;;9002226.02101,"544,50419-0407-03 ",.02)
 ;;50419-0407-03
 ;;9002226.02101,"544,50419-0409-01 ",.01)
 ;;50419-0409-01
 ;;9002226.02101,"544,50419-0409-01 ",.02)
 ;;50419-0409-01
 ;;9002226.02101,"544,50419-0409-03 ",.01)
 ;;50419-0409-03
 ;;9002226.02101,"544,50419-0409-03 ",.02)
 ;;50419-0409-03
 ;;9002226.02101,"544,50419-0411-12 ",.01)
 ;;50419-0411-12
 ;;9002226.02101,"544,50419-0411-12 ",.02)
 ;;50419-0411-12
 ;;9002226.02101,"544,50419-0421-01 ",.01)
 ;;50419-0421-01
 ;;9002226.02101,"544,50419-0421-01 ",.02)
 ;;50419-0421-01
 ;;9002226.02101,"544,50419-0422-01 ",.01)
 ;;50419-0422-01
 ;;9002226.02101,"544,50419-0422-01 ",.02)
 ;;50419-0422-01
 ;;9002226.02101,"544,50419-0423-01 ",.01)
 ;;50419-0423-01
 ;;9002226.02101,"544,50419-0423-01 ",.02)
 ;;50419-0423-01
 ;;9002226.02101,"544,50419-0424-01 ",.01)
 ;;50419-0424-01
 ;;9002226.02101,"544,50419-0424-01 ",.02)
 ;;50419-0424-01
 ;;9002226.02101,"544,50458-0171-15 ",.01)
 ;;50458-0171-15
 ;;9002226.02101,"544,50458-0171-15 ",.02)
 ;;50458-0171-15
 ;;9002226.02101,"544,50458-0176-15 ",.01)
 ;;50458-0176-15
 ;;9002226.02101,"544,50458-0176-15 ",.02)
 ;;50458-0176-15
 ;;9002226.02101,"544,50458-0178-15 ",.01)
 ;;50458-0178-15
 ;;9002226.02101,"544,50458-0178-15 ",.02)
 ;;50458-0178-15
 ;;9002226.02101,"544,50458-0191-15 ",.01)
 ;;50458-0191-15
 ;;9002226.02101,"544,50458-0191-15 ",.02)
 ;;50458-0191-15
 ;;9002226.02101,"544,50458-0192-01 ",.01)
 ;;50458-0192-01
 ;;9002226.02101,"544,50458-0192-01 ",.02)
 ;;50458-0192-01
 ;;9002226.02101,"544,50458-0192-15 ",.01)
 ;;50458-0192-15
 ;;9002226.02101,"544,50458-0192-15 ",.02)
 ;;50458-0192-15
 ;;9002226.02101,"544,50458-0194-11 ",.01)
 ;;50458-0194-11
 ;;9002226.02101,"544,50458-0194-11 ",.02)
 ;;50458-0194-11
 ;;9002226.02101,"544,50458-0194-16 ",.01)
 ;;50458-0194-16
 ;;9002226.02101,"544,50458-0194-16 ",.02)
 ;;50458-0194-16
 ;;9002226.02101,"544,50458-0196-15 ",.01)
 ;;50458-0196-15
 ;;9002226.02101,"544,50458-0196-15 ",.02)
 ;;50458-0196-15
 ;;9002226.02101,"544,50458-0197-15 ",.01)
 ;;50458-0197-15
 ;;9002226.02101,"544,50458-0197-15 ",.02)
 ;;50458-0197-15
 ;;9002226.02101,"544,50458-0251-00 ",.01)
 ;;50458-0251-00
 ;;9002226.02101,"544,50458-0251-00 ",.02)
 ;;50458-0251-00
 ;;9002226.02101,"544,50458-0251-15 ",.01)
 ;;50458-0251-15
 ;;9002226.02101,"544,50458-0251-15 ",.02)
 ;;50458-0251-15
 ;;9002226.02101,"544,50486-0221-12 ",.01)
 ;;50486-0221-12
 ;;9002226.02101,"544,50486-0221-12 ",.02)
 ;;50486-0221-12
 ;;9002226.02101,"544,51285-0058-66 ",.01)
 ;;51285-0058-66
 ;;9002226.02101,"544,51285-0058-66 ",.02)
 ;;51285-0058-66
 ;;9002226.02101,"544,51285-0079-97 ",.01)
 ;;51285-0079-97
 ;;9002226.02101,"544,51285-0079-97 ",.02)
 ;;51285-0079-97
 ;;9002226.02101,"544,51285-0080-70 ",.01)
 ;;51285-0080-70
 ;;9002226.02101,"544,51285-0080-70 ",.02)
 ;;51285-0080-70
 ;;9002226.02101,"544,51285-0081-98 ",.01)
 ;;51285-0081-98
 ;;9002226.02101,"544,51285-0081-98 ",.02)
 ;;51285-0081-98
 ;;9002226.02101,"544,51285-0082-97 ",.01)
 ;;51285-0082-97
 ;;9002226.02101,"544,51285-0082-97 ",.02)
 ;;51285-0082-97
 ;;9002226.02101,"544,51285-0083-70 ",.01)
 ;;51285-0083-70
 ;;9002226.02101,"544,51285-0083-70 ",.02)
 ;;51285-0083-70
 ;;9002226.02101,"544,51285-0084-98 ",.01)
 ;;51285-0084-98
 ;;9002226.02101,"544,51285-0084-98 ",.02)
 ;;51285-0084-98
 ;;9002226.02101,"544,51285-0087-87 ",.01)
 ;;51285-0087-87
 ;;9002226.02101,"544,51285-0087-87 ",.02)
 ;;51285-0087-87
 ;;9002226.02101,"544,51285-0091-58 ",.01)
 ;;51285-0091-58
 ;;9002226.02101,"544,51285-0091-58 ",.02)
 ;;51285-0091-58
 ;;9002226.02101,"544,51285-0092-87 ",.01)
 ;;51285-0092-87
 ;;9002226.02101,"544,51285-0092-87 ",.02)
 ;;51285-0092-87
 ;;9002226.02101,"544,51285-0114-58 ",.01)
 ;;51285-0114-58
 ;;9002226.02101,"544,51285-0114-58 ",.02)
 ;;51285-0114-58
 ;;9002226.02101,"544,51285-0120-58 ",.01)
 ;;51285-0120-58
 ;;9002226.02101,"544,51285-0120-58 ",.02)
 ;;51285-0120-58
 ;;9002226.02101,"544,51285-0125-70 ",.01)
 ;;51285-0125-70
 ;;9002226.02101,"544,51285-0125-70 ",.02)
 ;;51285-0125-70
 ;;9002226.02101,"544,51285-0126-98 ",.01)
 ;;51285-0126-98
 ;;9002226.02101,"544,51285-0126-98 ",.02)
 ;;51285-0126-98
 ;;9002226.02101,"544,51285-0127-97 ",.01)
 ;;51285-0127-97
 ;;9002226.02101,"544,51285-0127-97 ",.02)
 ;;51285-0127-97
 ;;9002226.02101,"544,51285-0128-70 ",.01)
 ;;51285-0128-70
 ;;9002226.02101,"544,51285-0128-70 ",.02)
 ;;51285-0128-70
 ;;9002226.02101,"544,51285-0129-98 ",.01)
 ;;51285-0129-98
 ;;9002226.02101,"544,51285-0129-98 ",.02)
 ;;51285-0129-98
 ;;9002226.02101,"544,51285-0131-97 ",.01)
 ;;51285-0131-97
 ;;9002226.02101,"544,51285-0131-97 ",.02)
 ;;51285-0131-97
 ;;9002226.02101,"544,51285-0146-19 ",.01)
 ;;51285-0146-19
 ;;9002226.02101,"544,51285-0146-19 ",.02)
 ;;51285-0146-19
 ;;9002226.02101,"544,51285-0162-88 ",.01)
 ;;51285-0162-88
 ;;9002226.02101,"544,51285-0162-88 ",.02)
 ;;51285-0162-88
 ;;9002226.02101,"544,51285-0431-65 ",.01)
 ;;51285-0431-65
 ;;9002226.02101,"544,51285-0431-65 ",.02)
 ;;51285-0431-65
 ;;9002226.02101,"544,51285-0431-87 ",.01)
 ;;51285-0431-87
 ;;9002226.02101,"544,51285-0431-87 ",.02)
 ;;51285-0431-87
 ;;9002226.02101,"544,51285-0546-28 ",.01)
 ;;51285-0546-28
 ;;9002226.02101,"544,51285-0546-28 ",.02)
 ;;51285-0546-28
 ;;9002226.02101,"544,51285-0942-88 ",.01)
 ;;51285-0942-88
 ;;9002226.02101,"544,51285-0942-88 ",.02)
 ;;51285-0942-88
 ;;9002226.02101,"544,51285-0943-88 ",.01)
 ;;51285-0943-88
 ;;9002226.02101,"544,51285-0943-88 ",.02)
 ;;51285-0943-88
 ;;9002226.02101,"544,51285-0963-19 ",.01)
 ;;51285-0963-19
 ;;9002226.02101,"544,51285-0963-19 ",.02)
 ;;51285-0963-19
 ;;9002226.02101,"544,51660-0127-86 ",.01)
 ;;51660-0127-86
 ;;9002226.02101,"544,51660-0127-86 ",.02)
 ;;51660-0127-86
 ;;9002226.02101,"544,51660-0572-86 ",.01)
 ;;51660-0572-86
 ;;9002226.02101,"544,51660-0572-86 ",.02)
 ;;51660-0572-86
 ;;9002226.02101,"544,51862-0007-06 ",.01)
 ;;51862-0007-06
 ;;9002226.02101,"544,51862-0007-06 ",.02)
 ;;51862-0007-06
 ;;9002226.02101,"544,51862-0012-06 ",.01)
 ;;51862-0012-06
 ;;9002226.02101,"544,51862-0012-06 ",.02)
 ;;51862-0012-06
 ;;9002226.02101,"544,51862-0028-06 ",.01)
 ;;51862-0028-06
 ;;9002226.02101,"544,51862-0028-06 ",.02)
 ;;51862-0028-06
 ;;9002226.02101,"544,51862-0036-03 ",.01)
 ;;51862-0036-03
 ;;9002226.02101,"544,51862-0036-03 ",.02)
 ;;51862-0036-03
 ;;9002226.02101,"544,51862-0045-91 ",.01)
 ;;51862-0045-91
 ;;9002226.02101,"544,51862-0045-91 ",.02)
 ;;51862-0045-91
 ;;9002226.02101,"544,51862-0047-91 ",.01)
 ;;51862-0047-91
 ;;9002226.02101,"544,51862-0047-91 ",.02)
 ;;51862-0047-91
 ;;9002226.02101,"544,51862-0072-01 ",.01)
 ;;51862-0072-01
 ;;9002226.02101,"544,51862-0072-01 ",.02)
 ;;51862-0072-01
 ;;9002226.02101,"544,51862-0072-06 ",.01)
 ;;51862-0072-06
 ;;9002226.02101,"544,51862-0072-06 ",.02)
 ;;51862-0072-06
 ;;9002226.02101,"544,51862-0097-06 ",.01)
 ;;51862-0097-06
 ;;9002226.02101,"544,51862-0097-06 ",.02)
 ;;51862-0097-06
 ;;9002226.02101,"544,51862-0100-01 ",.01)
 ;;51862-0100-01
 ;;9002226.02101,"544,51862-0100-01 ",.02)
 ;;51862-0100-01
 ;;9002226.02101,"544,51862-0100-06 ",.01)
 ;;51862-0100-06
 ;;9002226.02101,"544,51862-0100-06 ",.02)
 ;;51862-0100-06
 ;;9002226.02101,"544,51862-0102-06 ",.01)
 ;;51862-0102-06
 ;;9002226.02101,"544,51862-0102-06 ",.02)
 ;;51862-0102-06
 ;;9002226.02101,"544,51862-0238-03 ",.01)
 ;;51862-0238-03
 ;;9002226.02101,"544,51862-0238-03 ",.02)
 ;;51862-0238-03
 ;;9002226.02101,"544,51862-0260-06 ",.01)
 ;;51862-0260-06
 ;;9002226.02101,"544,51862-0260-06 ",.02)
 ;;51862-0260-06
 ;;9002226.02101,"544,51862-0279-06 ",.01)
 ;;51862-0279-06
 ;;9002226.02101,"544,51862-0279-06 ",.02)
 ;;51862-0279-06
 ;;9002226.02101,"544,51862-0284-03 ",.01)
 ;;51862-0284-03
 ;;9002226.02101,"544,51862-0284-03 ",.02)
 ;;51862-0284-03
 ;;9002226.02101,"544,51862-0292-06 ",.01)
 ;;51862-0292-06
 ;;9002226.02101,"544,51862-0292-06 ",.02)
 ;;51862-0292-06
 ;;9002226.02101,"544,51862-0318-03 ",.01)
 ;;51862-0318-03
 ;;9002226.02101,"544,51862-0318-03 ",.02)
 ;;51862-0318-03
 ;;9002226.02101,"544,51862-0470-06 ",.01)
 ;;51862-0470-06
 ;;9002226.02101,"544,51862-0470-06 ",.02)
 ;;51862-0470-06
 ;;9002226.02101,"544,51862-0471-01 ",.01)
 ;;51862-0471-01
 ;;9002226.02101,"544,51862-0471-01 ",.02)
 ;;51862-0471-01
 ;;9002226.02101,"544,51862-0471-06 ",.01)
 ;;51862-0471-06
 ;;9002226.02101,"544,51862-0471-06 ",.02)
 ;;51862-0471-06
 ;;9002226.02101,"544,51862-0510-06 ",.01)
 ;;51862-0510-06
 ;;9002226.02101,"544,51862-0510-06 ",.02)
 ;;51862-0510-06
 ;;9002226.02101,"544,51862-0545-06 ",.01)
 ;;51862-0545-06
 ;;9002226.02101,"544,51862-0545-06 ",.02)
 ;;51862-0545-06
 ;;9002226.02101,"544,51862-0564-06 ",.01)
 ;;51862-0564-06
 ;;9002226.02101,"544,51862-0564-06 ",.02)
 ;;51862-0564-06
 ;;9002226.02101,"544,52544-0035-54 ",.01)
 ;;52544-0035-54
 ;;9002226.02101,"544,52544-0035-54 ",.02)
 ;;52544-0035-54
 ;;9002226.02101,"544,52544-0054-31 ",.01)
 ;;52544-0054-31
 ;;9002226.02101,"544,52544-0054-31 ",.02)
 ;;52544-0054-31
 ;;9002226.02101,"544,52544-0058-41 ",.01)
 ;;52544-0058-41
 ;;9002226.02101,"544,52544-0058-41 ",.02)
 ;;52544-0058-41
 ;;9002226.02101,"544,52544-0058-72 ",.01)
 ;;52544-0058-72
 ;;9002226.02101,"544,52544-0058-72 ",.02)
 ;;52544-0058-72
 ;;9002226.02101,"544,52544-0064-31 ",.01)
 ;;52544-0064-31
 ;;9002226.02101,"544,52544-0064-31 ",.02)
 ;;52544-0064-31
 ;;9002226.02101,"544,52544-0065-54 ",.01)
 ;;52544-0065-54
 ;;9002226.02101,"544,52544-0065-54 ",.02)
 ;;52544-0065-54
 ;;9002226.02101,"544,52544-0087-28 ",.01)
 ;;52544-0087-28
 ;;9002226.02101,"544,52544-0087-28 ",.02)
 ;;52544-0087-28
 ;;9002226.02101,"544,52544-0087-41 ",.01)
 ;;52544-0087-41
 ;;9002226.02101,"544,52544-0087-41 ",.02)
 ;;52544-0087-41
 ;;9002226.02101,"544,52544-0143-31 ",.01)
 ;;52544-0143-31
 ;;9002226.02101,"544,52544-0143-31 ",.02)
 ;;52544-0143-31
 ;;9002226.02101,"544,52544-0165-28 ",.01)
 ;;52544-0165-28
 ;;9002226.02101,"544,52544-0165-28 ",.02)
 ;;52544-0165-28
 ;;9002226.02101,"544,52544-0167-31 ",.01)
 ;;52544-0167-31
 ;;9002226.02101,"544,52544-0167-31 ",.02)
 ;;52544-0167-31
 ;;9002226.02101,"544,52544-0204-31 ",.01)
 ;;52544-0204-31
 ;;9002226.02101,"544,52544-0204-31 ",.02)
 ;;52544-0204-31
 ;;9002226.02101,"544,52544-0219-28 ",.01)
 ;;52544-0219-28
 ;;9002226.02101,"544,52544-0219-28 ",.02)
 ;;52544-0219-28
 ;;9002226.02101,"544,52544-0228-29 ",.01)
 ;;52544-0228-29
 ;;9002226.02101,"544,52544-0228-29 ",.02)
 ;;52544-0228-29
 ;;9002226.02101,"544,52544-0233-28 ",.01)
 ;;52544-0233-28
 ;;9002226.02101,"544,52544-0233-28 ",.02)
 ;;52544-0233-28
 ;;9002226.02101,"544,52544-0235-28 ",.01)
 ;;52544-0235-28
 ;;9002226.02101,"544,52544-0235-28 ",.02)
 ;;52544-0235-28
 ;;9002226.02101,"544,52544-0245-31 ",.01)
 ;;52544-0245-31
 ;;9002226.02101,"544,52544-0245-31 ",.02)
 ;;52544-0245-31
 ;;9002226.02101,"544,52544-0247-28 ",.01)
 ;;52544-0247-28
 ;;9002226.02101,"544,52544-0247-28 ",.02)
 ;;52544-0247-28
 ;;9002226.02101,"544,52544-0248-28 ",.01)
 ;;52544-0248-28