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

BGP31L23.m

Go to the documentation of this file.
BGP31L23 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"618,54868-6011-00 ",.01)
 ;;54868-6011-00
 ;;9002226.02101,"618,54868-6011-00 ",.02)
 ;;54868-6011-00
 ;;9002226.02101,"618,54868-6196-00 ",.01)
 ;;54868-6196-00
 ;;9002226.02101,"618,54868-6196-00 ",.02)
 ;;54868-6196-00
 ;;9002226.02101,"618,55045-1124-00 ",.01)
 ;;55045-1124-00
 ;;9002226.02101,"618,55045-1124-00 ",.02)
 ;;55045-1124-00
 ;;9002226.02101,"618,55045-1124-01 ",.01)
 ;;55045-1124-01
 ;;9002226.02101,"618,55045-1124-01 ",.02)
 ;;55045-1124-01
 ;;9002226.02101,"618,55045-1124-05 ",.01)
 ;;55045-1124-05
 ;;9002226.02101,"618,55045-1124-05 ",.02)
 ;;55045-1124-05
 ;;9002226.02101,"618,55045-1124-08 ",.01)
 ;;55045-1124-08
 ;;9002226.02101,"618,55045-1124-08 ",.02)
 ;;55045-1124-08
 ;;9002226.02101,"618,55045-1248-02 ",.01)
 ;;55045-1248-02
 ;;9002226.02101,"618,55045-1248-02 ",.02)
 ;;55045-1248-02
 ;;9002226.02101,"618,55045-1248-08 ",.01)
 ;;55045-1248-08
 ;;9002226.02101,"618,55045-1248-08 ",.02)
 ;;55045-1248-08
 ;;9002226.02101,"618,55045-1250-02 ",.01)
 ;;55045-1250-02
 ;;9002226.02101,"618,55045-1250-02 ",.02)
 ;;55045-1250-02
 ;;9002226.02101,"618,55045-1250-04 ",.01)
 ;;55045-1250-04
 ;;9002226.02101,"618,55045-1250-04 ",.02)
 ;;55045-1250-04
 ;;9002226.02101,"618,55045-1252-02 ",.01)
 ;;55045-1252-02
 ;;9002226.02101,"618,55045-1252-02 ",.02)
 ;;55045-1252-02
 ;;9002226.02101,"618,55045-1266-08 ",.01)
 ;;55045-1266-08
 ;;9002226.02101,"618,55045-1266-08 ",.02)
 ;;55045-1266-08
 ;;9002226.02101,"618,55045-1266-09 ",.01)
 ;;55045-1266-09
 ;;9002226.02101,"618,55045-1266-09 ",.02)
 ;;55045-1266-09
 ;;9002226.02101,"618,55045-1279-08 ",.01)
 ;;55045-1279-08
 ;;9002226.02101,"618,55045-1279-08 ",.02)
 ;;55045-1279-08
 ;;9002226.02101,"618,55045-1288-07 ",.01)
 ;;55045-1288-07
 ;;9002226.02101,"618,55045-1288-07 ",.02)
 ;;55045-1288-07
 ;;9002226.02101,"618,55045-1295-03 ",.01)
 ;;55045-1295-03
 ;;9002226.02101,"618,55045-1295-03 ",.02)
 ;;55045-1295-03
 ;;9002226.02101,"618,55045-1295-07 ",.01)
 ;;55045-1295-07
 ;;9002226.02101,"618,55045-1295-07 ",.02)
 ;;55045-1295-07
 ;;9002226.02101,"618,55045-1417-02 ",.01)
 ;;55045-1417-02
 ;;9002226.02101,"618,55045-1417-02 ",.02)
 ;;55045-1417-02
 ;;9002226.02101,"618,55045-1446-05 ",.01)
 ;;55045-1446-05
 ;;9002226.02101,"618,55045-1446-05 ",.02)
 ;;55045-1446-05
 ;;9002226.02101,"618,55045-1446-07 ",.01)
 ;;55045-1446-07
 ;;9002226.02101,"618,55045-1446-07 ",.02)
 ;;55045-1446-07
 ;;9002226.02101,"618,55045-1446-08 ",.01)
 ;;55045-1446-08
 ;;9002226.02101,"618,55045-1446-08 ",.02)
 ;;55045-1446-08
 ;;9002226.02101,"618,55045-1446-09 ",.01)
 ;;55045-1446-09
 ;;9002226.02101,"618,55045-1446-09 ",.02)
 ;;55045-1446-09
 ;;9002226.02101,"618,55045-1496-09 ",.01)
 ;;55045-1496-09
 ;;9002226.02101,"618,55045-1496-09 ",.02)
 ;;55045-1496-09
 ;;9002226.02101,"618,55045-1554-08 ",.01)
 ;;55045-1554-08
 ;;9002226.02101,"618,55045-1554-08 ",.02)
 ;;55045-1554-08
 ;;9002226.02101,"618,55045-1575-07 ",.01)
 ;;55045-1575-07
 ;;9002226.02101,"618,55045-1575-07 ",.02)
 ;;55045-1575-07
 ;;9002226.02101,"618,55045-1596-00 ",.01)
 ;;55045-1596-00
 ;;9002226.02101,"618,55045-1596-00 ",.02)
 ;;55045-1596-00
 ;;9002226.02101,"618,55045-1596-01 ",.01)
 ;;55045-1596-01
 ;;9002226.02101,"618,55045-1596-01 ",.02)
 ;;55045-1596-01
 ;;9002226.02101,"618,55045-1596-02 ",.01)
 ;;55045-1596-02
 ;;9002226.02101,"618,55045-1596-02 ",.02)
 ;;55045-1596-02
 ;;9002226.02101,"618,55045-1596-03 ",.01)
 ;;55045-1596-03
 ;;9002226.02101,"618,55045-1596-03 ",.02)
 ;;55045-1596-03
 ;;9002226.02101,"618,55045-1596-05 ",.01)
 ;;55045-1596-05
 ;;9002226.02101,"618,55045-1596-05 ",.02)
 ;;55045-1596-05
 ;;9002226.02101,"618,55045-1596-06 ",.01)
 ;;55045-1596-06
 ;;9002226.02101,"618,55045-1596-06 ",.02)
 ;;55045-1596-06
 ;;9002226.02101,"618,55045-1596-08 ",.01)
 ;;55045-1596-08
 ;;9002226.02101,"618,55045-1596-08 ",.02)
 ;;55045-1596-08
 ;;9002226.02101,"618,55045-1596-09 ",.01)
 ;;55045-1596-09
 ;;9002226.02101,"618,55045-1596-09 ",.02)
 ;;55045-1596-09
 ;;9002226.02101,"618,55045-1643-09 ",.01)
 ;;55045-1643-09
 ;;9002226.02101,"618,55045-1643-09 ",.02)
 ;;55045-1643-09
 ;;9002226.02101,"618,55045-1661-08 ",.01)
 ;;55045-1661-08
 ;;9002226.02101,"618,55045-1661-08 ",.02)
 ;;55045-1661-08
 ;;9002226.02101,"618,55045-1687-02 ",.01)
 ;;55045-1687-02
 ;;9002226.02101,"618,55045-1687-02 ",.02)
 ;;55045-1687-02
 ;;9002226.02101,"618,55045-1687-08 ",.01)
 ;;55045-1687-08
 ;;9002226.02101,"618,55045-1687-08 ",.02)
 ;;55045-1687-08
 ;;9002226.02101,"618,55045-1699-02 ",.01)
 ;;55045-1699-02
 ;;9002226.02101,"618,55045-1699-02 ",.02)
 ;;55045-1699-02
 ;;9002226.02101,"618,55045-1749-02 ",.01)
 ;;55045-1749-02
 ;;9002226.02101,"618,55045-1749-02 ",.02)
 ;;55045-1749-02
 ;;9002226.02101,"618,55045-1749-04 ",.01)
 ;;55045-1749-04
 ;;9002226.02101,"618,55045-1749-04 ",.02)
 ;;55045-1749-04
 ;;9002226.02101,"618,55045-1750-02 ",.01)
 ;;55045-1750-02
 ;;9002226.02101,"618,55045-1750-02 ",.02)
 ;;55045-1750-02
 ;;9002226.02101,"618,55045-1750-04 ",.01)
 ;;55045-1750-04
 ;;9002226.02101,"618,55045-1750-04 ",.02)
 ;;55045-1750-04
 ;;9002226.02101,"618,55045-1805-07 ",.01)
 ;;55045-1805-07
 ;;9002226.02101,"618,55045-1805-07 ",.02)
 ;;55045-1805-07
 ;;9002226.02101,"618,55045-1805-08 ",.01)
 ;;55045-1805-08
 ;;9002226.02101,"618,55045-1805-08 ",.02)
 ;;55045-1805-08
 ;;9002226.02101,"618,55045-1906-08 ",.01)
 ;;55045-1906-08
 ;;9002226.02101,"618,55045-1906-08 ",.02)
 ;;55045-1906-08
 ;;9002226.02101,"618,55045-1958-08 ",.01)
 ;;55045-1958-08
 ;;9002226.02101,"618,55045-1958-08 ",.02)
 ;;55045-1958-08
 ;;9002226.02101,"618,55045-1993-08 ",.01)
 ;;55045-1993-08
 ;;9002226.02101,"618,55045-1993-08 ",.02)
 ;;55045-1993-08
 ;;9002226.02101,"618,55045-2148-04 ",.01)
 ;;55045-2148-04
 ;;9002226.02101,"618,55045-2148-04 ",.02)
 ;;55045-2148-04
 ;;9002226.02101,"618,55045-2195-04 ",.01)
 ;;55045-2195-04
 ;;9002226.02101,"618,55045-2195-04 ",.02)
 ;;55045-2195-04
 ;;9002226.02101,"618,55045-2195-05 ",.01)
 ;;55045-2195-05
 ;;9002226.02101,"618,55045-2195-05 ",.02)
 ;;55045-2195-05
 ;;9002226.02101,"618,55045-2195-07 ",.01)
 ;;55045-2195-07
 ;;9002226.02101,"618,55045-2195-07 ",.02)
 ;;55045-2195-07
 ;;9002226.02101,"618,55045-2195-08 ",.01)
 ;;55045-2195-08
 ;;9002226.02101,"618,55045-2195-08 ",.02)
 ;;55045-2195-08
 ;;9002226.02101,"618,55045-3011-02 ",.01)
 ;;55045-3011-02
 ;;9002226.02101,"618,55045-3011-02 ",.02)
 ;;55045-3011-02
 ;;9002226.02101,"618,55045-3011-03 ",.01)
 ;;55045-3011-03
 ;;9002226.02101,"618,55045-3011-03 ",.02)
 ;;55045-3011-03
 ;;9002226.02101,"618,55045-3514-01 ",.01)
 ;;55045-3514-01
 ;;9002226.02101,"618,55045-3514-01 ",.02)
 ;;55045-3514-01
 ;;9002226.02101,"618,55045-3514-02 ",.01)
 ;;55045-3514-02
 ;;9002226.02101,"618,55045-3514-02 ",.02)
 ;;55045-3514-02
 ;;9002226.02101,"618,55048-0045-60 ",.01)
 ;;55048-0045-60
 ;;9002226.02101,"618,55048-0045-60 ",.02)
 ;;55048-0045-60
 ;;9002226.02101,"618,55048-0355-90 ",.01)
 ;;55048-0355-90
 ;;9002226.02101,"618,55048-0355-90 ",.02)
 ;;55048-0355-90
 ;;9002226.02101,"618,55048-0367-15 ",.01)
 ;;55048-0367-15
 ;;9002226.02101,"618,55048-0367-15 ",.02)
 ;;55048-0367-15
 ;;9002226.02101,"618,55048-0367-20 ",.01)
 ;;55048-0367-20
 ;;9002226.02101,"618,55048-0367-20 ",.02)
 ;;55048-0367-20
 ;;9002226.02101,"618,55048-0367-30 ",.01)
 ;;55048-0367-30
 ;;9002226.02101,"618,55048-0367-30 ",.02)
 ;;55048-0367-30
 ;;9002226.02101,"618,55048-0367-60 ",.01)
 ;;55048-0367-60
 ;;9002226.02101,"618,55048-0367-60 ",.02)
 ;;55048-0367-60
 ;;9002226.02101,"618,55048-0436-20 ",.01)
 ;;55048-0436-20
 ;;9002226.02101,"618,55048-0436-20 ",.02)
 ;;55048-0436-20
 ;;9002226.02101,"618,55048-0603-00 ",.01)
 ;;55048-0603-00
 ;;9002226.02101,"618,55048-0603-00 ",.02)
 ;;55048-0603-00
 ;;9002226.02101,"618,55048-0603-02 ",.01)
 ;;55048-0603-02
 ;;9002226.02101,"618,55048-0603-02 ",.02)
 ;;55048-0603-02
 ;;9002226.02101,"618,55048-0603-06 ",.01)
 ;;55048-0603-06
 ;;9002226.02101,"618,55048-0603-06 ",.02)
 ;;55048-0603-06
 ;;9002226.02101,"618,55048-0603-12 ",.01)
 ;;55048-0603-12
 ;;9002226.02101,"618,55048-0603-12 ",.02)
 ;;55048-0603-12
 ;;9002226.02101,"618,55048-0603-15 ",.01)
 ;;55048-0603-15
 ;;9002226.02101,"618,55048-0603-15 ",.02)
 ;;55048-0603-15
 ;;9002226.02101,"618,55048-0603-20 ",.01)
 ;;55048-0603-20
 ;;9002226.02101,"618,55048-0603-20 ",.02)
 ;;55048-0603-20
 ;;9002226.02101,"618,55048-0603-30 ",.01)
 ;;55048-0603-30
 ;;9002226.02101,"618,55048-0603-30 ",.02)
 ;;55048-0603-30
 ;;9002226.02101,"618,55048-0603-40 ",.01)
 ;;55048-0603-40
 ;;9002226.02101,"618,55048-0603-40 ",.02)
 ;;55048-0603-40
 ;;9002226.02101,"618,55048-0603-60 ",.01)
 ;;55048-0603-60
 ;;9002226.02101,"618,55048-0603-60 ",.02)
 ;;55048-0603-60
 ;;9002226.02101,"618,55048-0603-71 ",.01)
 ;;55048-0603-71
 ;;9002226.02101,"618,55048-0603-71 ",.02)
 ;;55048-0603-71
 ;;9002226.02101,"618,55048-0603-90 ",.01)
 ;;55048-0603-90
 ;;9002226.02101,"618,55048-0603-90 ",.02)
 ;;55048-0603-90
 ;;9002226.02101,"618,55048-0604-02 ",.01)
 ;;55048-0604-02
 ;;9002226.02101,"618,55048-0604-02 ",.02)
 ;;55048-0604-02
 ;;9002226.02101,"618,55048-0604-30 ",.01)
 ;;55048-0604-30
 ;;9002226.02101,"618,55048-0604-30 ",.02)
 ;;55048-0604-30
 ;;9002226.02101,"618,55048-0609-30 ",.01)
 ;;55048-0609-30
 ;;9002226.02101,"618,55048-0609-30 ",.02)
 ;;55048-0609-30
 ;;9002226.02101,"618,55048-0609-60 ",.01)
 ;;55048-0609-60
 ;;9002226.02101,"618,55048-0609-60 ",.02)
 ;;55048-0609-60
 ;;9002226.02101,"618,55053-0740-01 ",.01)
 ;;55053-0740-01
 ;;9002226.02101,"618,55053-0740-01 ",.02)
 ;;55053-0740-01
 ;;9002226.02101,"618,55053-0740-05 ",.01)
 ;;55053-0740-05
 ;;9002226.02101,"618,55053-0740-05 ",.02)
 ;;55053-0740-05
 ;;9002226.02101,"618,55053-0800-01 ",.01)
 ;;55053-0800-01
 ;;9002226.02101,"618,55053-0800-01 ",.02)
 ;;55053-0800-01
 ;;9002226.02101,"618,55289-0028-08 ",.01)
 ;;55289-0028-08
 ;;9002226.02101,"618,55289-0028-08 ",.02)
 ;;55289-0028-08
 ;;9002226.02101,"618,55289-0088-25 ",.01)
 ;;55289-0088-25
 ;;9002226.02101,"618,55289-0088-25 ",.02)
 ;;55289-0088-25
 ;;9002226.02101,"618,55289-0088-79 ",.01)
 ;;55289-0088-79
 ;;9002226.02101,"618,55289-0088-79 ",.02)
 ;;55289-0088-79
 ;;9002226.02101,"618,55289-0089-20 ",.01)
 ;;55289-0089-20
 ;;9002226.02101,"618,55289-0089-20 ",.02)
 ;;55289-0089-20
 ;;9002226.02101,"618,55289-0089-30 ",.01)
 ;;55289-0089-30
 ;;9002226.02101,"618,55289-0089-30 ",.02)
 ;;55289-0089-30
 ;;9002226.02101,"618,55289-0100-01 ",.01)
 ;;55289-0100-01
 ;;9002226.02101,"618,55289-0100-01 ",.02)
 ;;55289-0100-01
 ;;9002226.02101,"618,55289-0100-10 ",.01)
 ;;55289-0100-10
 ;;9002226.02101,"618,55289-0100-10 ",.02)
 ;;55289-0100-10
 ;;9002226.02101,"618,55289-0100-15 ",.01)
 ;;55289-0100-15
 ;;9002226.02101,"618,55289-0100-15 ",.02)
 ;;55289-0100-15
 ;;9002226.02101,"618,55289-0100-20 ",.01)
 ;;55289-0100-20
 ;;9002226.02101,"618,55289-0100-20 ",.02)
 ;;55289-0100-20
 ;;9002226.02101,"618,55289-0100-30 ",.01)
 ;;55289-0100-30
 ;;9002226.02101,"618,55289-0100-30 ",.02)
 ;;55289-0100-30
 ;;9002226.02101,"618,55289-0100-40 ",.01)
 ;;55289-0100-40
 ;;9002226.02101,"618,55289-0100-40 ",.02)
 ;;55289-0100-40
 ;;9002226.02101,"618,55289-0138-12 ",.01)
 ;;55289-0138-12
 ;;9002226.02101,"618,55289-0138-12 ",.02)
 ;;55289-0138-12
 ;;9002226.02101,"618,55289-0138-17 ",.01)
 ;;55289-0138-17
 ;;9002226.02101,"618,55289-0138-17 ",.02)
 ;;55289-0138-17
 ;;9002226.02101,"618,55289-0138-20 ",.01)
 ;;55289-0138-20
 ;;9002226.02101,"618,55289-0138-20 ",.02)
 ;;55289-0138-20
 ;;9002226.02101,"618,55289-0138-25 ",.01)
 ;;55289-0138-25
 ;;9002226.02101,"618,55289-0138-25 ",.02)
 ;;55289-0138-25
 ;;9002226.02101,"618,55289-0138-30 ",.01)
 ;;55289-0138-30
 ;;9002226.02101,"618,55289-0138-30 ",.02)
 ;;55289-0138-30
 ;;9002226.02101,"618,55289-0139-01 ",.01)
 ;;55289-0139-01
 ;;9002226.02101,"618,55289-0139-01 ",.02)
 ;;55289-0139-01
 ;;9002226.02101,"618,55289-0139-06 ",.01)
 ;;55289-0139-06
 ;;9002226.02101,"618,55289-0139-06 ",.02)
 ;;55289-0139-06
 ;;9002226.02101,"618,55289-0139-10 ",.01)
 ;;55289-0139-10
 ;;9002226.02101,"618,55289-0139-10 ",.02)
 ;;55289-0139-10
 ;;9002226.02101,"618,55289-0139-12 ",.01)
 ;;55289-0139-12
 ;;9002226.02101,"618,55289-0139-12 ",.02)
 ;;55289-0139-12
 ;;9002226.02101,"618,55289-0139-20 ",.01)
 ;;55289-0139-20
 ;;9002226.02101,"618,55289-0139-20 ",.02)
 ;;55289-0139-20
 ;;9002226.02101,"618,55289-0139-30 ",.01)
 ;;55289-0139-30
 ;;9002226.02101,"618,55289-0139-30 ",.02)
 ;;55289-0139-30
 ;;9002226.02101,"618,55289-0139-40 ",.01)
 ;;55289-0139-40
 ;;9002226.02101,"618,55289-0139-40 ",.02)
 ;;55289-0139-40
 ;;9002226.02101,"618,55289-0139-60 ",.01)
 ;;55289-0139-60
 ;;9002226.02101,"618,55289-0139-60 ",.02)
 ;;55289-0139-60
 ;;9002226.02101,"618,55289-0139-97 ",.01)
 ;;55289-0139-97
 ;;9002226.02101,"618,55289-0139-97 ",.02)
 ;;55289-0139-97
 ;;9002226.02101,"618,55289-0151-04 ",.01)
 ;;55289-0151-04
 ;;9002226.02101,"618,55289-0151-04 ",.02)
 ;;55289-0151-04
 ;;9002226.02101,"618,55289-0195-10 ",.01)
 ;;55289-0195-10
 ;;9002226.02101,"618,55289-0195-10 ",.02)
 ;;55289-0195-10
 ;;9002226.02101,"618,55289-0226-10 ",.01)
 ;;55289-0226-10
 ;;9002226.02101,"618,55289-0226-10 ",.02)
 ;;55289-0226-10
 ;;9002226.02101,"618,55289-0226-15 ",.01)
 ;;55289-0226-15
 ;;9002226.02101,"618,55289-0226-15 ",.02)
 ;;55289-0226-15
 ;;9002226.02101,"618,55289-0226-30 ",.01)
 ;;55289-0226-30
 ;;9002226.02101,"618,55289-0226-30 ",.02)
 ;;55289-0226-30