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

BGP83A41.m

Go to the documentation of this file.
BGP83A41 ; 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,"1828,67544-0038-45 ",.02)
 ;;67544-0038-45
 ;;9002226.02101,"1828,67544-0038-53 ",.01)
 ;;67544-0038-53
 ;;9002226.02101,"1828,67544-0038-53 ",.02)
 ;;67544-0038-53
 ;;9002226.02101,"1828,67544-0038-60 ",.01)
 ;;67544-0038-60
 ;;9002226.02101,"1828,67544-0038-60 ",.02)
 ;;67544-0038-60
 ;;9002226.02101,"1828,67544-0039-15 ",.01)
 ;;67544-0039-15
 ;;9002226.02101,"1828,67544-0039-15 ",.02)
 ;;67544-0039-15
 ;;9002226.02101,"1828,67544-0039-20 ",.01)
 ;;67544-0039-20
 ;;9002226.02101,"1828,67544-0039-20 ",.02)
 ;;67544-0039-20
 ;;9002226.02101,"1828,67544-0039-30 ",.01)
 ;;67544-0039-30
 ;;9002226.02101,"1828,67544-0039-30 ",.02)
 ;;67544-0039-30
 ;;9002226.02101,"1828,67544-0039-53 ",.01)
 ;;67544-0039-53
 ;;9002226.02101,"1828,67544-0039-53 ",.02)
 ;;67544-0039-53
 ;;9002226.02101,"1828,67544-0039-60 ",.01)
 ;;67544-0039-60
 ;;9002226.02101,"1828,67544-0039-60 ",.02)
 ;;67544-0039-60
 ;;9002226.02101,"1828,67544-0045-30 ",.01)
 ;;67544-0045-30
 ;;9002226.02101,"1828,67544-0045-30 ",.02)
 ;;67544-0045-30
 ;;9002226.02101,"1828,67544-0045-53 ",.01)
 ;;67544-0045-53
 ;;9002226.02101,"1828,67544-0045-53 ",.02)
 ;;67544-0045-53
 ;;9002226.02101,"1828,67544-0045-60 ",.01)
 ;;67544-0045-60
 ;;9002226.02101,"1828,67544-0045-60 ",.02)
 ;;67544-0045-60
 ;;9002226.02101,"1828,67544-0055-30 ",.01)
 ;;67544-0055-30
 ;;9002226.02101,"1828,67544-0055-30 ",.02)
 ;;67544-0055-30
 ;;9002226.02101,"1828,67544-0055-53 ",.01)
 ;;67544-0055-53
 ;;9002226.02101,"1828,67544-0055-53 ",.02)
 ;;67544-0055-53
 ;;9002226.02101,"1828,67544-0055-60 ",.01)
 ;;67544-0055-60
 ;;9002226.02101,"1828,67544-0055-60 ",.02)
 ;;67544-0055-60
 ;;9002226.02101,"1828,67544-0055-70 ",.01)
 ;;67544-0055-70
 ;;9002226.02101,"1828,67544-0055-70 ",.02)
 ;;67544-0055-70
 ;;9002226.02101,"1828,67544-0116-30 ",.01)
 ;;67544-0116-30
 ;;9002226.02101,"1828,67544-0116-30 ",.02)
 ;;67544-0116-30
 ;;9002226.02101,"1828,67544-0116-53 ",.01)
 ;;67544-0116-53
 ;;9002226.02101,"1828,67544-0116-53 ",.02)
 ;;67544-0116-53
 ;;9002226.02101,"1828,67544-0116-60 ",.01)
 ;;67544-0116-60
 ;;9002226.02101,"1828,67544-0116-60 ",.02)
 ;;67544-0116-60
 ;;9002226.02101,"1828,67544-0116-70 ",.01)
 ;;67544-0116-70
 ;;9002226.02101,"1828,67544-0116-70 ",.02)
 ;;67544-0116-70
 ;;9002226.02101,"1828,67544-0117-30 ",.01)
 ;;67544-0117-30
 ;;9002226.02101,"1828,67544-0117-30 ",.02)
 ;;67544-0117-30
 ;;9002226.02101,"1828,67544-0117-53 ",.01)
 ;;67544-0117-53
 ;;9002226.02101,"1828,67544-0117-53 ",.02)
 ;;67544-0117-53
 ;;9002226.02101,"1828,67544-0117-60 ",.01)
 ;;67544-0117-60
 ;;9002226.02101,"1828,67544-0117-60 ",.02)
 ;;67544-0117-60
 ;;9002226.02101,"1828,67544-0117-70 ",.01)
 ;;67544-0117-70
 ;;9002226.02101,"1828,67544-0117-70 ",.02)
 ;;67544-0117-70
 ;;9002226.02101,"1828,67544-0118-30 ",.01)
 ;;67544-0118-30
 ;;9002226.02101,"1828,67544-0118-30 ",.02)
 ;;67544-0118-30
 ;;9002226.02101,"1828,67544-0118-53 ",.01)
 ;;67544-0118-53
 ;;9002226.02101,"1828,67544-0118-53 ",.02)
 ;;67544-0118-53
 ;;9002226.02101,"1828,67544-0118-60 ",.01)
 ;;67544-0118-60
 ;;9002226.02101,"1828,67544-0118-60 ",.02)
 ;;67544-0118-60
 ;;9002226.02101,"1828,67544-0118-70 ",.01)
 ;;67544-0118-70
 ;;9002226.02101,"1828,67544-0118-70 ",.02)
 ;;67544-0118-70
 ;;9002226.02101,"1828,67544-0123-15 ",.01)
 ;;67544-0123-15
 ;;9002226.02101,"1828,67544-0123-15 ",.02)
 ;;67544-0123-15
 ;;9002226.02101,"1828,67544-0123-30 ",.01)
 ;;67544-0123-30
 ;;9002226.02101,"1828,67544-0123-30 ",.02)
 ;;67544-0123-30
 ;;9002226.02101,"1828,67544-0123-45 ",.01)
 ;;67544-0123-45
 ;;9002226.02101,"1828,67544-0123-45 ",.02)
 ;;67544-0123-45
 ;;9002226.02101,"1828,67544-0123-53 ",.01)
 ;;67544-0123-53
 ;;9002226.02101,"1828,67544-0123-53 ",.02)
 ;;67544-0123-53
 ;;9002226.02101,"1828,67544-0123-60 ",.01)
 ;;67544-0123-60
 ;;9002226.02101,"1828,67544-0123-60 ",.02)
 ;;67544-0123-60
 ;;9002226.02101,"1828,67544-0123-70 ",.01)
 ;;67544-0123-70
 ;;9002226.02101,"1828,67544-0123-70 ",.02)
 ;;67544-0123-70
 ;;9002226.02101,"1828,67544-0123-75 ",.01)
 ;;67544-0123-75
 ;;9002226.02101,"1828,67544-0123-75 ",.02)
 ;;67544-0123-75
 ;;9002226.02101,"1828,67544-0123-80 ",.01)
 ;;67544-0123-80
 ;;9002226.02101,"1828,67544-0123-80 ",.02)
 ;;67544-0123-80
 ;;9002226.02101,"1828,67544-0124-15 ",.01)
 ;;67544-0124-15
 ;;9002226.02101,"1828,67544-0124-15 ",.02)
 ;;67544-0124-15
 ;;9002226.02101,"1828,67544-0124-30 ",.01)
 ;;67544-0124-30
 ;;9002226.02101,"1828,67544-0124-30 ",.02)
 ;;67544-0124-30
 ;;9002226.02101,"1828,67544-0124-45 ",.01)
 ;;67544-0124-45
 ;;9002226.02101,"1828,67544-0124-45 ",.02)
 ;;67544-0124-45
 ;;9002226.02101,"1828,67544-0124-53 ",.01)
 ;;67544-0124-53
 ;;9002226.02101,"1828,67544-0124-53 ",.02)
 ;;67544-0124-53
 ;;9002226.02101,"1828,67544-0124-60 ",.01)
 ;;67544-0124-60
 ;;9002226.02101,"1828,67544-0124-60 ",.02)
 ;;67544-0124-60
 ;;9002226.02101,"1828,67544-0124-70 ",.01)
 ;;67544-0124-70
 ;;9002226.02101,"1828,67544-0124-70 ",.02)
 ;;67544-0124-70
 ;;9002226.02101,"1828,67544-0127-15 ",.01)
 ;;67544-0127-15
 ;;9002226.02101,"1828,67544-0127-15 ",.02)
 ;;67544-0127-15
 ;;9002226.02101,"1828,67544-0127-20 ",.01)
 ;;67544-0127-20
 ;;9002226.02101,"1828,67544-0127-20 ",.02)
 ;;67544-0127-20
 ;;9002226.02101,"1828,67544-0127-28 ",.01)
 ;;67544-0127-28
 ;;9002226.02101,"1828,67544-0127-28 ",.02)
 ;;67544-0127-28
 ;;9002226.02101,"1828,67544-0127-30 ",.01)
 ;;67544-0127-30
 ;;9002226.02101,"1828,67544-0127-30 ",.02)
 ;;67544-0127-30
 ;;9002226.02101,"1828,67544-0127-53 ",.01)
 ;;67544-0127-53
 ;;9002226.02101,"1828,67544-0127-53 ",.02)
 ;;67544-0127-53
 ;;9002226.02101,"1828,67544-0127-60 ",.01)
 ;;67544-0127-60
 ;;9002226.02101,"1828,67544-0127-60 ",.02)
 ;;67544-0127-60
 ;;9002226.02101,"1828,67544-0136-10 ",.01)
 ;;67544-0136-10
 ;;9002226.02101,"1828,67544-0136-10 ",.02)
 ;;67544-0136-10
 ;;9002226.02101,"1828,67544-0136-14 ",.01)
 ;;67544-0136-14
 ;;9002226.02101,"1828,67544-0136-14 ",.02)
 ;;67544-0136-14
 ;;9002226.02101,"1828,67544-0136-15 ",.01)
 ;;67544-0136-15
 ;;9002226.02101,"1828,67544-0136-15 ",.02)
 ;;67544-0136-15
 ;;9002226.02101,"1828,67544-0136-20 ",.01)
 ;;67544-0136-20
 ;;9002226.02101,"1828,67544-0136-20 ",.02)
 ;;67544-0136-20
 ;;9002226.02101,"1828,67544-0136-28 ",.01)
 ;;67544-0136-28
 ;;9002226.02101,"1828,67544-0136-28 ",.02)
 ;;67544-0136-28
 ;;9002226.02101,"1828,67544-0136-30 ",.01)
 ;;67544-0136-30
 ;;9002226.02101,"1828,67544-0136-30 ",.02)
 ;;67544-0136-30
 ;;9002226.02101,"1828,67544-0136-45 ",.01)
 ;;67544-0136-45
 ;;9002226.02101,"1828,67544-0136-45 ",.02)
 ;;67544-0136-45
 ;;9002226.02101,"1828,67544-0136-53 ",.01)
 ;;67544-0136-53
 ;;9002226.02101,"1828,67544-0136-53 ",.02)
 ;;67544-0136-53
 ;;9002226.02101,"1828,67544-0136-60 ",.01)
 ;;67544-0136-60
 ;;9002226.02101,"1828,67544-0136-60 ",.02)
 ;;67544-0136-60
 ;;9002226.02101,"1828,67544-0142-15 ",.01)
 ;;67544-0142-15
 ;;9002226.02101,"1828,67544-0142-15 ",.02)
 ;;67544-0142-15
 ;;9002226.02101,"1828,67544-0142-30 ",.01)
 ;;67544-0142-30
 ;;9002226.02101,"1828,67544-0142-30 ",.02)
 ;;67544-0142-30
 ;;9002226.02101,"1828,67544-0142-45 ",.01)
 ;;67544-0142-45
 ;;9002226.02101,"1828,67544-0142-45 ",.02)
 ;;67544-0142-45
 ;;9002226.02101,"1828,67544-0142-53 ",.01)
 ;;67544-0142-53
 ;;9002226.02101,"1828,67544-0142-53 ",.02)
 ;;67544-0142-53
 ;;9002226.02101,"1828,67544-0142-60 ",.01)
 ;;67544-0142-60
 ;;9002226.02101,"1828,67544-0142-60 ",.02)
 ;;67544-0142-60
 ;;9002226.02101,"1828,67544-0142-70 ",.01)
 ;;67544-0142-70
 ;;9002226.02101,"1828,67544-0142-70 ",.02)
 ;;67544-0142-70
 ;;9002226.02101,"1828,67544-0191-15 ",.01)
 ;;67544-0191-15
 ;;9002226.02101,"1828,67544-0191-15 ",.02)
 ;;67544-0191-15
 ;;9002226.02101,"1828,67544-0191-20 ",.01)
 ;;67544-0191-20
 ;;9002226.02101,"1828,67544-0191-20 ",.02)
 ;;67544-0191-20
 ;;9002226.02101,"1828,67544-0191-30 ",.01)
 ;;67544-0191-30
 ;;9002226.02101,"1828,67544-0191-30 ",.02)
 ;;67544-0191-30
 ;;9002226.02101,"1828,67544-0191-45 ",.01)
 ;;67544-0191-45
 ;;9002226.02101,"1828,67544-0191-45 ",.02)
 ;;67544-0191-45
 ;;9002226.02101,"1828,67544-0191-53 ",.01)
 ;;67544-0191-53
 ;;9002226.02101,"1828,67544-0191-53 ",.02)
 ;;67544-0191-53
 ;;9002226.02101,"1828,67544-0191-60 ",.01)
 ;;67544-0191-60
 ;;9002226.02101,"1828,67544-0191-60 ",.02)
 ;;67544-0191-60
 ;;9002226.02101,"1828,67544-0191-70 ",.01)
 ;;67544-0191-70
 ;;9002226.02101,"1828,67544-0191-70 ",.02)
 ;;67544-0191-70
 ;;9002226.02101,"1828,67544-0191-75 ",.01)
 ;;67544-0191-75
 ;;9002226.02101,"1828,67544-0191-75 ",.02)
 ;;67544-0191-75
 ;;9002226.02101,"1828,67544-0191-80 ",.01)
 ;;67544-0191-80
 ;;9002226.02101,"1828,67544-0191-80 ",.02)
 ;;67544-0191-80
 ;;9002226.02101,"1828,67544-0191-90 ",.01)
 ;;67544-0191-90
 ;;9002226.02101,"1828,67544-0191-90 ",.02)
 ;;67544-0191-90
 ;;9002226.02101,"1828,67544-0191-92 ",.01)
 ;;67544-0191-92
 ;;9002226.02101,"1828,67544-0191-92 ",.02)
 ;;67544-0191-92
 ;;9002226.02101,"1828,67544-0217-10 ",.01)
 ;;67544-0217-10
 ;;9002226.02101,"1828,67544-0217-10 ",.02)
 ;;67544-0217-10
 ;;9002226.02101,"1828,67544-0217-14 ",.01)
 ;;67544-0217-14
 ;;9002226.02101,"1828,67544-0217-14 ",.02)
 ;;67544-0217-14
 ;;9002226.02101,"1828,67544-0217-15 ",.01)
 ;;67544-0217-15
 ;;9002226.02101,"1828,67544-0217-15 ",.02)
 ;;67544-0217-15
 ;;9002226.02101,"1828,67544-0217-20 ",.01)
 ;;67544-0217-20
 ;;9002226.02101,"1828,67544-0217-20 ",.02)
 ;;67544-0217-20
 ;;9002226.02101,"1828,67544-0217-28 ",.01)
 ;;67544-0217-28
 ;;9002226.02101,"1828,67544-0217-28 ",.02)
 ;;67544-0217-28
 ;;9002226.02101,"1828,67544-0217-30 ",.01)
 ;;67544-0217-30
 ;;9002226.02101,"1828,67544-0217-30 ",.02)
 ;;67544-0217-30
 ;;9002226.02101,"1828,67544-0217-45 ",.01)
 ;;67544-0217-45
 ;;9002226.02101,"1828,67544-0217-45 ",.02)
 ;;67544-0217-45
 ;;9002226.02101,"1828,67544-0217-53 ",.01)
 ;;67544-0217-53
 ;;9002226.02101,"1828,67544-0217-53 ",.02)
 ;;67544-0217-53
 ;;9002226.02101,"1828,67544-0217-60 ",.01)
 ;;67544-0217-60
 ;;9002226.02101,"1828,67544-0217-60 ",.02)
 ;;67544-0217-60
 ;;9002226.02101,"1828,67544-0256-15 ",.01)
 ;;67544-0256-15
 ;;9002226.02101,"1828,67544-0256-15 ",.02)
 ;;67544-0256-15
 ;;9002226.02101,"1828,67544-0256-30 ",.01)
 ;;67544-0256-30
 ;;9002226.02101,"1828,67544-0256-30 ",.02)
 ;;67544-0256-30
 ;;9002226.02101,"1828,67544-0256-45 ",.01)
 ;;67544-0256-45
 ;;9002226.02101,"1828,67544-0256-45 ",.02)
 ;;67544-0256-45
 ;;9002226.02101,"1828,67544-0256-53 ",.01)
 ;;67544-0256-53
 ;;9002226.02101,"1828,67544-0256-53 ",.02)
 ;;67544-0256-53
 ;;9002226.02101,"1828,67544-0256-55 ",.01)
 ;;67544-0256-55
 ;;9002226.02101,"1828,67544-0256-55 ",.02)
 ;;67544-0256-55
 ;;9002226.02101,"1828,67544-0256-60 ",.01)
 ;;67544-0256-60
 ;;9002226.02101,"1828,67544-0256-60 ",.02)
 ;;67544-0256-60
 ;;9002226.02101,"1828,67544-0256-70 ",.01)
 ;;67544-0256-70
 ;;9002226.02101,"1828,67544-0256-70 ",.02)
 ;;67544-0256-70
 ;;9002226.02101,"1828,67544-0256-75 ",.01)
 ;;67544-0256-75
 ;;9002226.02101,"1828,67544-0256-75 ",.02)
 ;;67544-0256-75
 ;;9002226.02101,"1828,67544-0256-80 ",.01)
 ;;67544-0256-80
 ;;9002226.02101,"1828,67544-0256-80 ",.02)
 ;;67544-0256-80
 ;;9002226.02101,"1828,67544-0256-90 ",.01)
 ;;67544-0256-90
 ;;9002226.02101,"1828,67544-0256-90 ",.02)
 ;;67544-0256-90
 ;;9002226.02101,"1828,67544-0256-92 ",.01)
 ;;67544-0256-92
 ;;9002226.02101,"1828,67544-0256-92 ",.02)
 ;;67544-0256-92
 ;;9002226.02101,"1828,67544-0261-10 ",.01)
 ;;67544-0261-10
 ;;9002226.02101,"1828,67544-0261-10 ",.02)
 ;;67544-0261-10
 ;;9002226.02101,"1828,67544-0261-15 ",.01)
 ;;67544-0261-15
 ;;9002226.02101,"1828,67544-0261-15 ",.02)
 ;;67544-0261-15