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

BGP82Z60.m

Go to the documentation of this file.
BGP82Z60 ; 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,57664-0377-13 ",.02)
 ;;57664-0377-13
 ;;9002226.02101,"619,57664-0377-18 ",.01)
 ;;57664-0377-18
 ;;9002226.02101,"619,57664-0377-18 ",.02)
 ;;57664-0377-18
 ;;9002226.02101,"619,57664-0419-88 ",.01)
 ;;57664-0419-88
 ;;9002226.02101,"619,57664-0419-88 ",.02)
 ;;57664-0419-88
 ;;9002226.02101,"619,57664-0467-08 ",.01)
 ;;57664-0467-08
 ;;9002226.02101,"619,57664-0467-08 ",.02)
 ;;57664-0467-08
 ;;9002226.02101,"619,57664-0471-08 ",.01)
 ;;57664-0471-08
 ;;9002226.02101,"619,57664-0471-08 ",.02)
 ;;57664-0471-08
 ;;9002226.02101,"619,57664-0537-13 ",.01)
 ;;57664-0537-13
 ;;9002226.02101,"619,57664-0537-13 ",.02)
 ;;57664-0537-13
 ;;9002226.02101,"619,57664-0537-18 ",.01)
 ;;57664-0537-18
 ;;9002226.02101,"619,57664-0537-18 ",.02)
 ;;57664-0537-18
 ;;9002226.02101,"619,57664-0537-88 ",.01)
 ;;57664-0537-88
 ;;9002226.02101,"619,57664-0537-88 ",.02)
 ;;57664-0537-88
 ;;9002226.02101,"619,57881-0331-04 ",.01)
 ;;57881-0331-04
 ;;9002226.02101,"619,57881-0331-04 ",.02)
 ;;57881-0331-04
 ;;9002226.02101,"619,57881-0331-32 ",.01)
 ;;57881-0331-32
 ;;9002226.02101,"619,57881-0331-32 ",.02)
 ;;57881-0331-32
 ;;9002226.02101,"619,57881-0332-04 ",.01)
 ;;57881-0332-04
 ;;9002226.02101,"619,57881-0332-04 ",.02)
 ;;57881-0332-04
 ;;9002226.02101,"619,57881-0332-32 ",.01)
 ;;57881-0332-32
 ;;9002226.02101,"619,57881-0332-32 ",.02)
 ;;57881-0332-32
 ;;9002226.02101,"619,57881-0333-04 ",.01)
 ;;57881-0333-04
 ;;9002226.02101,"619,57881-0333-04 ",.02)
 ;;57881-0333-04
 ;;9002226.02101,"619,57881-0333-32 ",.01)
 ;;57881-0333-32
 ;;9002226.02101,"619,57881-0333-32 ",.02)
 ;;57881-0333-32
 ;;9002226.02101,"619,57881-0334-04 ",.01)
 ;;57881-0334-04
 ;;9002226.02101,"619,57881-0334-04 ",.02)
 ;;57881-0334-04
 ;;9002226.02101,"619,57881-0334-32 ",.01)
 ;;57881-0334-32
 ;;9002226.02101,"619,57881-0334-32 ",.02)
 ;;57881-0334-32
 ;;9002226.02101,"619,57881-0336-04 ",.01)
 ;;57881-0336-04
 ;;9002226.02101,"619,57881-0336-04 ",.02)
 ;;57881-0336-04
 ;;9002226.02101,"619,57881-0336-32 ",.01)
 ;;57881-0336-32
 ;;9002226.02101,"619,57881-0336-32 ",.02)
 ;;57881-0336-32
 ;;9002226.02101,"619,57881-0338-04 ",.01)
 ;;57881-0338-04
 ;;9002226.02101,"619,57881-0338-04 ",.02)
 ;;57881-0338-04
 ;;9002226.02101,"619,57881-0338-32 ",.01)
 ;;57881-0338-32
 ;;9002226.02101,"619,57881-0338-32 ",.02)
 ;;57881-0338-32
 ;;9002226.02101,"619,58118-0176-01 ",.01)
 ;;58118-0176-01
 ;;9002226.02101,"619,58118-0176-01 ",.02)
 ;;58118-0176-01
 ;;9002226.02101,"619,58118-0176-03 ",.01)
 ;;58118-0176-03
 ;;9002226.02101,"619,58118-0176-03 ",.02)
 ;;58118-0176-03
 ;;9002226.02101,"619,58118-0176-06 ",.01)
 ;;58118-0176-06
 ;;9002226.02101,"619,58118-0176-06 ",.02)
 ;;58118-0176-06
 ;;9002226.02101,"619,58118-0176-07 ",.01)
 ;;58118-0176-07
 ;;9002226.02101,"619,58118-0176-07 ",.02)
 ;;58118-0176-07
 ;;9002226.02101,"619,58118-0176-09 ",.01)
 ;;58118-0176-09
 ;;9002226.02101,"619,58118-0176-09 ",.02)
 ;;58118-0176-09
 ;;9002226.02101,"619,58118-0562-03 ",.01)
 ;;58118-0562-03
 ;;9002226.02101,"619,58118-0562-03 ",.02)
 ;;58118-0562-03
 ;;9002226.02101,"619,58118-0562-06 ",.01)
 ;;58118-0562-06
 ;;9002226.02101,"619,58118-0562-06 ",.02)
 ;;58118-0562-06
 ;;9002226.02101,"619,58118-0627-01 ",.01)
 ;;58118-0627-01
 ;;9002226.02101,"619,58118-0627-01 ",.02)
 ;;58118-0627-01
 ;;9002226.02101,"619,58118-0627-02 ",.01)
 ;;58118-0627-02
 ;;9002226.02101,"619,58118-0627-02 ",.02)
 ;;58118-0627-02
 ;;9002226.02101,"619,58118-0627-03 ",.01)
 ;;58118-0627-03
 ;;9002226.02101,"619,58118-0627-03 ",.02)
 ;;58118-0627-03
 ;;9002226.02101,"619,58118-0627-05 ",.01)
 ;;58118-0627-05
 ;;9002226.02101,"619,58118-0627-05 ",.02)
 ;;58118-0627-05
 ;;9002226.02101,"619,58118-0627-06 ",.01)
 ;;58118-0627-06
 ;;9002226.02101,"619,58118-0627-06 ",.02)
 ;;58118-0627-06
 ;;9002226.02101,"619,58118-0627-07 ",.01)
 ;;58118-0627-07
 ;;9002226.02101,"619,58118-0627-07 ",.02)
 ;;58118-0627-07
 ;;9002226.02101,"619,58118-0627-09 ",.01)
 ;;58118-0627-09
 ;;9002226.02101,"619,58118-0627-09 ",.02)
 ;;58118-0627-09
 ;;9002226.02101,"619,58118-3891-03 ",.01)
 ;;58118-3891-03
 ;;9002226.02101,"619,58118-3891-03 ",.02)
 ;;58118-3891-03
 ;;9002226.02101,"619,58118-3891-06 ",.01)
 ;;58118-3891-06
 ;;9002226.02101,"619,58118-3891-06 ",.02)
 ;;58118-3891-06
 ;;9002226.02101,"619,58118-3891-09 ",.01)
 ;;58118-3891-09
 ;;9002226.02101,"619,58118-3891-09 ",.02)
 ;;58118-3891-09
 ;;9002226.02101,"619,58118-9898-04 ",.01)
 ;;58118-9898-04
 ;;9002226.02101,"619,58118-9898-04 ",.02)
 ;;58118-9898-04
 ;;9002226.02101,"619,58298-0314-16 ",.01)
 ;;58298-0314-16
 ;;9002226.02101,"619,58298-0314-16 ",.02)
 ;;58298-0314-16
 ;;9002226.02101,"619,58864-0004-15 ",.01)
 ;;58864-0004-15
 ;;9002226.02101,"619,58864-0004-15 ",.02)
 ;;58864-0004-15
 ;;9002226.02101,"619,58864-0004-20 ",.01)
 ;;58864-0004-20
 ;;9002226.02101,"619,58864-0004-20 ",.02)
 ;;58864-0004-20
 ;;9002226.02101,"619,58864-0004-30 ",.01)
 ;;58864-0004-30
 ;;9002226.02101,"619,58864-0004-30 ",.02)
 ;;58864-0004-30
 ;;9002226.02101,"619,58864-0678-20 ",.01)
 ;;58864-0678-20
 ;;9002226.02101,"619,58864-0678-20 ",.02)
 ;;58864-0678-20
 ;;9002226.02101,"619,58864-0678-30 ",.01)
 ;;58864-0678-30
 ;;9002226.02101,"619,58864-0678-30 ",.02)
 ;;58864-0678-30
 ;;9002226.02101,"619,59011-0260-10 ",.01)
 ;;59011-0260-10
 ;;9002226.02101,"619,59011-0260-10 ",.02)
 ;;59011-0260-10
 ;;9002226.02101,"619,59011-0261-25 ",.01)
 ;;59011-0261-25
 ;;9002226.02101,"619,59011-0261-25 ",.02)
 ;;59011-0261-25
 ;;9002226.02101,"619,59011-0262-10 ",.01)
 ;;59011-0262-10
 ;;9002226.02101,"619,59011-0262-10 ",.02)
 ;;59011-0262-10
 ;;9002226.02101,"619,59011-0263-10 ",.01)
 ;;59011-0263-10
 ;;9002226.02101,"619,59011-0263-10 ",.02)
 ;;59011-0263-10
 ;;9002226.02101,"619,59011-0264-10 ",.01)
 ;;59011-0264-10
 ;;9002226.02101,"619,59011-0264-10 ",.02)
 ;;59011-0264-10
 ;;9002226.02101,"619,59011-0271-60 ",.01)
 ;;59011-0271-60
 ;;9002226.02101,"619,59011-0271-60 ",.02)
 ;;59011-0271-60
 ;;9002226.02101,"619,59011-0272-60 ",.01)
 ;;59011-0272-60
 ;;9002226.02101,"619,59011-0272-60 ",.02)
 ;;59011-0272-60
 ;;9002226.02101,"619,59011-0273-60 ",.01)
 ;;59011-0273-60
 ;;9002226.02101,"619,59011-0273-60 ",.02)
 ;;59011-0273-60
 ;;9002226.02101,"619,59011-0274-60 ",.01)
 ;;59011-0274-60
 ;;9002226.02101,"619,59011-0274-60 ",.02)
 ;;59011-0274-60
 ;;9002226.02101,"619,59011-0275-60 ",.01)
 ;;59011-0275-60
 ;;9002226.02101,"619,59011-0275-60 ",.02)
 ;;59011-0275-60
 ;;9002226.02101,"619,59011-0276-60 ",.01)
 ;;59011-0276-60
 ;;9002226.02101,"619,59011-0276-60 ",.02)
 ;;59011-0276-60
 ;;9002226.02101,"619,59011-0277-60 ",.01)
 ;;59011-0277-60
 ;;9002226.02101,"619,59011-0277-60 ",.02)
 ;;59011-0277-60
 ;;9002226.02101,"619,59011-0410-10 ",.01)
 ;;59011-0410-10
 ;;9002226.02101,"619,59011-0410-10 ",.02)
 ;;59011-0410-10
 ;;9002226.02101,"619,59011-0410-20 ",.01)
 ;;59011-0410-20
 ;;9002226.02101,"619,59011-0410-20 ",.02)
 ;;59011-0410-20
 ;;9002226.02101,"619,59011-0415-10 ",.01)
 ;;59011-0415-10
 ;;9002226.02101,"619,59011-0415-10 ",.02)
 ;;59011-0415-10
 ;;9002226.02101,"619,59011-0415-20 ",.01)
 ;;59011-0415-20
 ;;9002226.02101,"619,59011-0415-20 ",.02)
 ;;59011-0415-20
 ;;9002226.02101,"619,59011-0420-10 ",.01)
 ;;59011-0420-10
 ;;9002226.02101,"619,59011-0420-10 ",.02)
 ;;59011-0420-10
 ;;9002226.02101,"619,59011-0420-20 ",.01)
 ;;59011-0420-20
 ;;9002226.02101,"619,59011-0420-20 ",.02)
 ;;59011-0420-20
 ;;9002226.02101,"619,59011-0430-10 ",.01)
 ;;59011-0430-10
 ;;9002226.02101,"619,59011-0430-10 ",.02)
 ;;59011-0430-10
 ;;9002226.02101,"619,59011-0430-20 ",.01)
 ;;59011-0430-20
 ;;9002226.02101,"619,59011-0430-20 ",.02)
 ;;59011-0430-20
 ;;9002226.02101,"619,59011-0440-10 ",.01)
 ;;59011-0440-10
 ;;9002226.02101,"619,59011-0440-10 ",.02)
 ;;59011-0440-10
 ;;9002226.02101,"619,59011-0440-20 ",.01)
 ;;59011-0440-20
 ;;9002226.02101,"619,59011-0440-20 ",.02)
 ;;59011-0440-20
 ;;9002226.02101,"619,59011-0451-01 ",.01)
 ;;59011-0451-01
 ;;9002226.02101,"619,59011-0451-01 ",.02)
 ;;59011-0451-01
 ;;9002226.02101,"619,59011-0452-01 ",.01)
 ;;59011-0452-01
 ;;9002226.02101,"619,59011-0452-01 ",.02)
 ;;59011-0452-01
 ;;9002226.02101,"619,59011-0452-10 ",.01)
 ;;59011-0452-10
 ;;9002226.02101,"619,59011-0452-10 ",.02)
 ;;59011-0452-10
 ;;9002226.02101,"619,59011-0454-01 ",.01)
 ;;59011-0454-01
 ;;9002226.02101,"619,59011-0454-01 ",.02)
 ;;59011-0454-01
 ;;9002226.02101,"619,59011-0454-05 ",.01)
 ;;59011-0454-05
 ;;9002226.02101,"619,59011-0454-05 ",.02)
 ;;59011-0454-05
 ;;9002226.02101,"619,59011-0454-10 ",.01)
 ;;59011-0454-10
 ;;9002226.02101,"619,59011-0454-10 ",.02)
 ;;59011-0454-10
 ;;9002226.02101,"619,59011-0458-10 ",.01)
 ;;59011-0458-10
 ;;9002226.02101,"619,59011-0458-10 ",.02)
 ;;59011-0458-10
 ;;9002226.02101,"619,59011-0460-10 ",.01)
 ;;59011-0460-10
 ;;9002226.02101,"619,59011-0460-10 ",.02)
 ;;59011-0460-10
 ;;9002226.02101,"619,59011-0460-20 ",.01)
 ;;59011-0460-20
 ;;9002226.02101,"619,59011-0460-20 ",.02)
 ;;59011-0460-20
 ;;9002226.02101,"619,59011-0480-10 ",.01)
 ;;59011-0480-10
 ;;9002226.02101,"619,59011-0480-10 ",.02)
 ;;59011-0480-10
 ;;9002226.02101,"619,59011-0480-20 ",.01)
 ;;59011-0480-20
 ;;9002226.02101,"619,59011-0480-20 ",.02)
 ;;59011-0480-20
 ;;9002226.02101,"619,59011-0750-04 ",.01)
 ;;59011-0750-04
 ;;9002226.02101,"619,59011-0750-04 ",.02)
 ;;59011-0750-04
 ;;9002226.02101,"619,59011-0751-04 ",.01)
 ;;59011-0751-04
 ;;9002226.02101,"619,59011-0751-04 ",.02)
 ;;59011-0751-04
 ;;9002226.02101,"619,59011-0752-04 ",.01)
 ;;59011-0752-04
 ;;9002226.02101,"619,59011-0752-04 ",.02)
 ;;59011-0752-04
 ;;9002226.02101,"619,59011-0757-04 ",.01)
 ;;59011-0757-04
 ;;9002226.02101,"619,59011-0757-04 ",.02)
 ;;59011-0757-04
 ;;9002226.02101,"619,59011-0758-04 ",.01)
 ;;59011-0758-04
 ;;9002226.02101,"619,59011-0758-04 ",.02)
 ;;59011-0758-04
 ;;9002226.02101,"619,59630-0911-10 ",.01)
 ;;59630-0911-10
 ;;9002226.02101,"619,59630-0911-10 ",.02)
 ;;59630-0911-10
 ;;9002226.02101,"619,59630-0912-10 ",.01)
 ;;59630-0912-10
 ;;9002226.02101,"619,59630-0912-10 ",.02)
 ;;59630-0912-10
 ;;9002226.02101,"619,59630-0913-10 ",.01)
 ;;59630-0913-10
 ;;9002226.02101,"619,59630-0913-10 ",.02)
 ;;59630-0913-10
 ;;9002226.02101,"619,60258-0876-16 ",.01)
 ;;60258-0876-16
 ;;9002226.02101,"619,60258-0876-16 ",.02)
 ;;60258-0876-16
 ;;9002226.02101,"619,60429-0500-01 ",.01)
 ;;60429-0500-01
 ;;9002226.02101,"619,60429-0500-01 ",.02)
 ;;60429-0500-01
 ;;9002226.02101,"619,60429-0500-05 ",.01)
 ;;60429-0500-05
 ;;9002226.02101,"619,60429-0500-05 ",.02)
 ;;60429-0500-05
 ;;9002226.02101,"619,60429-0509-01 ",.01)
 ;;60429-0509-01
 ;;9002226.02101,"619,60429-0509-01 ",.02)
 ;;60429-0509-01
 ;;9002226.02101,"619,60429-0509-02 ",.01)
 ;;60429-0509-02
 ;;9002226.02101,"619,60429-0509-02 ",.02)
 ;;60429-0509-02
 ;;9002226.02101,"619,60429-0509-10 ",.01)
 ;;60429-0509-10
 ;;9002226.02101,"619,60429-0509-10 ",.02)
 ;;60429-0509-10
 ;;9002226.02101,"619,60429-0509-12 ",.01)
 ;;60429-0509-12
 ;;9002226.02101,"619,60429-0509-12 ",.02)
 ;;60429-0509-12
 ;;9002226.02101,"619,60429-0509-18 ",.01)
 ;;60429-0509-18
 ;;9002226.02101,"619,60429-0509-18 ",.02)
 ;;60429-0509-18
 ;;9002226.02101,"619,60429-0509-24 ",.01)
 ;;60429-0509-24
 ;;9002226.02101,"619,60429-0509-24 ",.02)
 ;;60429-0509-24
 ;;9002226.02101,"619,60429-0509-25 ",.01)
 ;;60429-0509-25
 ;;9002226.02101,"619,60429-0509-25 ",.02)
 ;;60429-0509-25
 ;;9002226.02101,"619,60429-0509-30 ",.01)
 ;;60429-0509-30
 ;;9002226.02101,"619,60429-0509-30 ",.02)
 ;;60429-0509-30
 ;;9002226.02101,"619,60429-0509-60 ",.01)
 ;;60429-0509-60