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

BGP47N12.m

Go to the documentation of this file.
BGP47N12 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"730,00182-2693-01 ",.02)
 ;;00182-2693-01
 ;;9002226.02101,"730,00182-2694-01 ",.01)
 ;;00182-2694-01
 ;;9002226.02101,"730,00182-2694-01 ",.02)
 ;;00182-2694-01
 ;;9002226.02101,"730,00185-0716-10 ",.01)
 ;;00185-0716-10
 ;;9002226.02101,"730,00185-0716-10 ",.02)
 ;;00185-0716-10
 ;;9002226.02101,"730,00185-0717-01 ",.01)
 ;;00185-0717-01
 ;;9002226.02101,"730,00185-0717-01 ",.02)
 ;;00185-0717-01
 ;;9002226.02101,"730,00185-0717-10 ",.01)
 ;;00185-0717-10
 ;;9002226.02101,"730,00185-0717-10 ",.02)
 ;;00185-0717-10
 ;;9002226.02101,"730,00187-0842-01 ",.01)
 ;;00187-0842-01
 ;;9002226.02101,"730,00187-0842-01 ",.02)
 ;;00187-0842-01
 ;;9002226.02101,"730,00187-0843-01 ",.01)
 ;;00187-0843-01
 ;;9002226.02101,"730,00187-0843-01 ",.02)
 ;;00187-0843-01
 ;;9002226.02101,"730,00187-0844-01 ",.01)
 ;;00187-0844-01
 ;;9002226.02101,"730,00187-0844-01 ",.02)
 ;;00187-0844-01
 ;;9002226.02101,"730,00187-0844-02 ",.01)
 ;;00187-0844-02
 ;;9002226.02101,"730,00187-0844-02 ",.02)
 ;;00187-0844-02
 ;;9002226.02101,"730,00187-3805-10 ",.01)
 ;;00187-3805-10
 ;;9002226.02101,"730,00187-3805-10 ",.02)
 ;;00187-3805-10
 ;;9002226.02101,"730,00187-3806-10 ",.01)
 ;;00187-3806-10
 ;;9002226.02101,"730,00187-3806-10 ",.02)
 ;;00187-3806-10
 ;;9002226.02101,"730,00228-2023-10 ",.01)
 ;;00228-2023-10
 ;;9002226.02101,"730,00228-2023-10 ",.02)
 ;;00228-2023-10
 ;;9002226.02101,"730,00228-2023-96 ",.01)
 ;;00228-2023-96
 ;;9002226.02101,"730,00228-2023-96 ",.02)
 ;;00228-2023-96
 ;;9002226.02101,"730,00228-2026-96 ",.01)
 ;;00228-2026-96
 ;;9002226.02101,"730,00228-2026-96 ",.02)
 ;;00228-2026-96
 ;;9002226.02101,"730,00228-2028-96 ",.01)
 ;;00228-2028-96
 ;;9002226.02101,"730,00228-2028-96 ",.02)
 ;;00228-2028-96
 ;;9002226.02101,"730,00228-2888-10 ",.01)
 ;;00228-2888-10
 ;;9002226.02101,"730,00228-2888-10 ",.02)
 ;;00228-2888-10
 ;;9002226.02101,"730,00228-2888-50 ",.01)
 ;;00228-2888-50
 ;;9002226.02101,"730,00228-2888-50 ",.02)
 ;;00228-2888-50
 ;;9002226.02101,"730,00228-2889-10 ",.01)
 ;;00228-2889-10
 ;;9002226.02101,"730,00228-2889-10 ",.02)
 ;;00228-2889-10
 ;;9002226.02101,"730,00228-2889-50 ",.01)
 ;;00228-2889-50
 ;;9002226.02101,"730,00228-2889-50 ",.02)
 ;;00228-2889-50
 ;;9002226.02101,"730,00228-3481-11 ",.01)
 ;;00228-3481-11
 ;;9002226.02101,"730,00228-3481-11 ",.02)
 ;;00228-3481-11
 ;;9002226.02101,"730,00228-3481-50 ",.01)
 ;;00228-3481-50
 ;;9002226.02101,"730,00228-3481-50 ",.02)
 ;;00228-3481-50
 ;;9002226.02101,"730,00228-3482-11 ",.01)
 ;;00228-3482-11
 ;;9002226.02101,"730,00228-3482-11 ",.02)
 ;;00228-3482-11
 ;;9002226.02101,"730,00228-3482-50 ",.01)
 ;;00228-3482-50
 ;;9002226.02101,"730,00228-3482-50 ",.02)
 ;;00228-3482-50
 ;;9002226.02101,"730,00247-0138-04 ",.01)
 ;;00247-0138-04
 ;;9002226.02101,"730,00247-0138-04 ",.02)
 ;;00247-0138-04
 ;;9002226.02101,"730,00247-0138-08 ",.01)
 ;;00247-0138-08
 ;;9002226.02101,"730,00247-0138-08 ",.02)
 ;;00247-0138-08
 ;;9002226.02101,"730,00247-0138-10 ",.01)
 ;;00247-0138-10
 ;;9002226.02101,"730,00247-0138-10 ",.02)
 ;;00247-0138-10
 ;;9002226.02101,"730,00247-0138-12 ",.01)
 ;;00247-0138-12
 ;;9002226.02101,"730,00247-0138-12 ",.02)
 ;;00247-0138-12
 ;;9002226.02101,"730,00247-0138-15 ",.01)
 ;;00247-0138-15
 ;;9002226.02101,"730,00247-0138-15 ",.02)
 ;;00247-0138-15
 ;;9002226.02101,"730,00247-0138-16 ",.01)
 ;;00247-0138-16
 ;;9002226.02101,"730,00247-0138-16 ",.02)
 ;;00247-0138-16
 ;;9002226.02101,"730,00247-0138-20 ",.01)
 ;;00247-0138-20
 ;;9002226.02101,"730,00247-0138-20 ",.02)
 ;;00247-0138-20
 ;;9002226.02101,"730,00247-0138-24 ",.01)
 ;;00247-0138-24
 ;;9002226.02101,"730,00247-0138-24 ",.02)
 ;;00247-0138-24
 ;;9002226.02101,"730,00247-0138-28 ",.01)
 ;;00247-0138-28
 ;;9002226.02101,"730,00247-0138-28 ",.02)
 ;;00247-0138-28
 ;;9002226.02101,"730,00247-0138-30 ",.01)
 ;;00247-0138-30
 ;;9002226.02101,"730,00247-0138-30 ",.02)
 ;;00247-0138-30
 ;;9002226.02101,"730,00247-0138-40 ",.01)
 ;;00247-0138-40
 ;;9002226.02101,"730,00247-0138-40 ",.02)
 ;;00247-0138-40
 ;;9002226.02101,"730,00247-0185-05 ",.01)
 ;;00247-0185-05
 ;;9002226.02101,"730,00247-0185-05 ",.02)
 ;;00247-0185-05
 ;;9002226.02101,"730,00247-0185-10 ",.01)
 ;;00247-0185-10
 ;;9002226.02101,"730,00247-0185-10 ",.02)
 ;;00247-0185-10
 ;;9002226.02101,"730,00247-0185-12 ",.01)
 ;;00247-0185-12
 ;;9002226.02101,"730,00247-0185-12 ",.02)
 ;;00247-0185-12
 ;;9002226.02101,"730,00247-0185-20 ",.01)
 ;;00247-0185-20
 ;;9002226.02101,"730,00247-0185-20 ",.02)
 ;;00247-0185-20
 ;;9002226.02101,"730,00247-0185-24 ",.01)
 ;;00247-0185-24
 ;;9002226.02101,"730,00247-0185-24 ",.02)
 ;;00247-0185-24
 ;;9002226.02101,"730,00247-0185-25 ",.01)
 ;;00247-0185-25
 ;;9002226.02101,"730,00247-0185-25 ",.02)
 ;;00247-0185-25
 ;;9002226.02101,"730,00247-0185-30 ",.01)
 ;;00247-0185-30
 ;;9002226.02101,"730,00247-0185-30 ",.02)
 ;;00247-0185-30
 ;;9002226.02101,"730,00247-0214-06 ",.01)
 ;;00247-0214-06
 ;;9002226.02101,"730,00247-0214-06 ",.02)
 ;;00247-0214-06
 ;;9002226.02101,"730,00247-0214-12 ",.01)
 ;;00247-0214-12
 ;;9002226.02101,"730,00247-0214-12 ",.02)
 ;;00247-0214-12
 ;;9002226.02101,"730,00247-0214-15 ",.01)
 ;;00247-0214-15
 ;;9002226.02101,"730,00247-0214-15 ",.02)
 ;;00247-0214-15
 ;;9002226.02101,"730,00247-0214-20 ",.01)
 ;;00247-0214-20
 ;;9002226.02101,"730,00247-0214-20 ",.02)
 ;;00247-0214-20
 ;;9002226.02101,"730,00247-0214-25 ",.01)
 ;;00247-0214-25
 ;;9002226.02101,"730,00247-0214-25 ",.02)
 ;;00247-0214-25
 ;;9002226.02101,"730,00247-0214-30 ",.01)
 ;;00247-0214-30
 ;;9002226.02101,"730,00247-0214-30 ",.02)
 ;;00247-0214-30
 ;;9002226.02101,"730,00247-0337-00 ",.01)
 ;;00247-0337-00
 ;;9002226.02101,"730,00247-0337-00 ",.02)
 ;;00247-0337-00
 ;;9002226.02101,"730,00247-0337-06 ",.01)
 ;;00247-0337-06
 ;;9002226.02101,"730,00247-0337-06 ",.02)
 ;;00247-0337-06
 ;;9002226.02101,"730,00247-0337-10 ",.01)
 ;;00247-0337-10
 ;;9002226.02101,"730,00247-0337-10 ",.02)
 ;;00247-0337-10
 ;;9002226.02101,"730,00247-0337-12 ",.01)
 ;;00247-0337-12
 ;;9002226.02101,"730,00247-0337-12 ",.02)
 ;;00247-0337-12
 ;;9002226.02101,"730,00247-0337-15 ",.01)
 ;;00247-0337-15
 ;;9002226.02101,"730,00247-0337-15 ",.02)
 ;;00247-0337-15
 ;;9002226.02101,"730,00247-0337-16 ",.01)
 ;;00247-0337-16
 ;;9002226.02101,"730,00247-0337-16 ",.02)
 ;;00247-0337-16
 ;;9002226.02101,"730,00247-0337-20 ",.01)
 ;;00247-0337-20
 ;;9002226.02101,"730,00247-0337-20 ",.02)
 ;;00247-0337-20
 ;;9002226.02101,"730,00247-0337-24 ",.01)
 ;;00247-0337-24
 ;;9002226.02101,"730,00247-0337-24 ",.02)
 ;;00247-0337-24
 ;;9002226.02101,"730,00247-0337-25 ",.01)
 ;;00247-0337-25
 ;;9002226.02101,"730,00247-0337-25 ",.02)
 ;;00247-0337-25
 ;;9002226.02101,"730,00247-0337-30 ",.01)
 ;;00247-0337-30
 ;;9002226.02101,"730,00247-0337-30 ",.02)
 ;;00247-0337-30
 ;;9002226.02101,"730,00247-0337-50 ",.01)
 ;;00247-0337-50
 ;;9002226.02101,"730,00247-0337-50 ",.02)
 ;;00247-0337-50
 ;;9002226.02101,"730,00247-0509-03 ",.01)
 ;;00247-0509-03
 ;;9002226.02101,"730,00247-0509-03 ",.02)
 ;;00247-0509-03
 ;;9002226.02101,"730,00247-0509-04 ",.01)
 ;;00247-0509-04
 ;;9002226.02101,"730,00247-0509-04 ",.02)
 ;;00247-0509-04
 ;;9002226.02101,"730,00247-0509-08 ",.01)
 ;;00247-0509-08
 ;;9002226.02101,"730,00247-0509-08 ",.02)
 ;;00247-0509-08
 ;;9002226.02101,"730,00247-0509-10 ",.01)
 ;;00247-0509-10
 ;;9002226.02101,"730,00247-0509-10 ",.02)
 ;;00247-0509-10
 ;;9002226.02101,"730,00247-0509-20 ",.01)
 ;;00247-0509-20
 ;;9002226.02101,"730,00247-0509-20 ",.02)
 ;;00247-0509-20
 ;;9002226.02101,"730,00247-0509-30 ",.01)
 ;;00247-0509-30
 ;;9002226.02101,"730,00247-0509-30 ",.02)
 ;;00247-0509-30
 ;;9002226.02101,"730,00247-0614-20 ",.01)
 ;;00247-0614-20
 ;;9002226.02101,"730,00247-0614-20 ",.02)
 ;;00247-0614-20
 ;;9002226.02101,"730,00247-0614-30 ",.01)
 ;;00247-0614-30
 ;;9002226.02101,"730,00247-0614-30 ",.02)
 ;;00247-0614-30
 ;;9002226.02101,"730,00247-0614-50 ",.01)
 ;;00247-0614-50
 ;;9002226.02101,"730,00247-0614-50 ",.02)
 ;;00247-0614-50
 ;;9002226.02101,"730,00247-0614-60 ",.01)
 ;;00247-0614-60
 ;;9002226.02101,"730,00247-0614-60 ",.02)
 ;;00247-0614-60
 ;;9002226.02101,"730,00247-0614-90 ",.01)
 ;;00247-0614-90
 ;;9002226.02101,"730,00247-0614-90 ",.02)
 ;;00247-0614-90
 ;;9002226.02101,"730,00247-0615-00 ",.01)
 ;;00247-0615-00
 ;;9002226.02101,"730,00247-0615-00 ",.02)
 ;;00247-0615-00
 ;;9002226.02101,"730,00247-0615-04 ",.01)
 ;;00247-0615-04
 ;;9002226.02101,"730,00247-0615-04 ",.02)
 ;;00247-0615-04
 ;;9002226.02101,"730,00247-0615-07 ",.01)
 ;;00247-0615-07
 ;;9002226.02101,"730,00247-0615-07 ",.02)
 ;;00247-0615-07
 ;;9002226.02101,"730,00247-0615-12 ",.01)
 ;;00247-0615-12
 ;;9002226.02101,"730,00247-0615-12 ",.02)
 ;;00247-0615-12
 ;;9002226.02101,"730,00247-0615-15 ",.01)
 ;;00247-0615-15
 ;;9002226.02101,"730,00247-0615-15 ",.02)
 ;;00247-0615-15
 ;;9002226.02101,"730,00247-0615-30 ",.01)
 ;;00247-0615-30
 ;;9002226.02101,"730,00247-0615-30 ",.02)
 ;;00247-0615-30
 ;;9002226.02101,"730,00247-0615-60 ",.01)
 ;;00247-0615-60
 ;;9002226.02101,"730,00247-0615-60 ",.02)
 ;;00247-0615-60
 ;;9002226.02101,"730,00247-0615-90 ",.01)
 ;;00247-0615-90
 ;;9002226.02101,"730,00247-0615-90 ",.02)
 ;;00247-0615-90
 ;;9002226.02101,"730,00247-0773-00 ",.01)
 ;;00247-0773-00
 ;;9002226.02101,"730,00247-0773-00 ",.02)
 ;;00247-0773-00
 ;;9002226.02101,"730,00247-0773-30 ",.01)
 ;;00247-0773-30
 ;;9002226.02101,"730,00247-0773-30 ",.02)
 ;;00247-0773-30
 ;;9002226.02101,"730,00247-0773-90 ",.01)
 ;;00247-0773-90
 ;;9002226.02101,"730,00247-0773-90 ",.02)
 ;;00247-0773-90
 ;;9002226.02101,"730,00247-0822-00 ",.01)
 ;;00247-0822-00
 ;;9002226.02101,"730,00247-0822-00 ",.02)
 ;;00247-0822-00
 ;;9002226.02101,"730,00247-0822-04 ",.01)
 ;;00247-0822-04
 ;;9002226.02101,"730,00247-0822-04 ",.02)
 ;;00247-0822-04
 ;;9002226.02101,"730,00247-0845-20 ",.01)
 ;;00247-0845-20
 ;;9002226.02101,"730,00247-0845-20 ",.02)
 ;;00247-0845-20
 ;;9002226.02101,"730,00247-0845-25 ",.01)
 ;;00247-0845-25
 ;;9002226.02101,"730,00247-0845-25 ",.02)
 ;;00247-0845-25
 ;;9002226.02101,"730,00247-1031-28 ",.01)
 ;;00247-1031-28
 ;;9002226.02101,"730,00247-1031-28 ",.02)
 ;;00247-1031-28
 ;;9002226.02101,"730,00247-1053-20 ",.01)
 ;;00247-1053-20
 ;;9002226.02101,"730,00247-1053-20 ",.02)
 ;;00247-1053-20
 ;;9002226.02101,"730,00247-1053-24 ",.01)
 ;;00247-1053-24
 ;;9002226.02101,"730,00247-1053-24 ",.02)
 ;;00247-1053-24
 ;;9002226.02101,"730,00247-1053-30 ",.01)
 ;;00247-1053-30
 ;;9002226.02101,"730,00247-1053-30 ",.02)
 ;;00247-1053-30
 ;;9002226.02101,"730,00247-1059-50 ",.01)
 ;;00247-1059-50
 ;;9002226.02101,"730,00247-1059-50 ",.02)
 ;;00247-1059-50
 ;;9002226.02101,"730,00247-1059-60 ",.01)
 ;;00247-1059-60
 ;;9002226.02101,"730,00247-1059-60 ",.02)
 ;;00247-1059-60
 ;;9002226.02101,"730,00247-1060-50 ",.01)
 ;;00247-1060-50
 ;;9002226.02101,"730,00247-1060-50 ",.02)
 ;;00247-1060-50
 ;;9002226.02101,"730,00247-1060-60 ",.01)
 ;;00247-1060-60
 ;;9002226.02101,"730,00247-1060-60 ",.02)
 ;;00247-1060-60
 ;;9002226.02101,"730,00247-1177-07 ",.01)
 ;;00247-1177-07
 ;;9002226.02101,"730,00247-1177-07 ",.02)
 ;;00247-1177-07
 ;;9002226.02101,"730,00247-1177-30 ",.01)
 ;;00247-1177-30
 ;;9002226.02101,"730,00247-1177-30 ",.02)
 ;;00247-1177-30
 ;;9002226.02101,"730,00247-1201-00 ",.01)
 ;;00247-1201-00
 ;;9002226.02101,"730,00247-1201-00 ",.02)
 ;;00247-1201-00
 ;;9002226.02101,"730,00247-1201-30 ",.01)
 ;;00247-1201-30
 ;;9002226.02101,"730,00247-1201-30 ",.02)
 ;;00247-1201-30
 ;;9002226.02101,"730,00247-1232-30 ",.01)
 ;;00247-1232-30
 ;;9002226.02101,"730,00247-1232-30 ",.02)
 ;;00247-1232-30
 ;;9002226.02101,"730,00247-1233-30 ",.01)
 ;;00247-1233-30
 ;;9002226.02101,"730,00247-1233-30 ",.02)
 ;;00247-1233-30
 ;;9002226.02101,"730,00247-1242-30 ",.01)
 ;;00247-1242-30
 ;;9002226.02101,"730,00247-1242-30 ",.02)
 ;;00247-1242-30
 ;;9002226.02101,"730,00247-1243-30 ",.01)
 ;;00247-1243-30
 ;;9002226.02101,"730,00247-1243-30 ",.02)
 ;;00247-1243-30
 ;;9002226.02101,"730,00247-1312-10 ",.01)
 ;;00247-1312-10
 ;;9002226.02101,"730,00247-1312-10 ",.02)
 ;;00247-1312-10
 ;;9002226.02101,"730,00247-1370-09 ",.01)
 ;;00247-1370-09
 ;;9002226.02101,"730,00247-1370-09 ",.02)
 ;;00247-1370-09
 ;;9002226.02101,"730,00247-1370-30 ",.01)
 ;;00247-1370-30
 ;;9002226.02101,"730,00247-1370-30 ",.02)
 ;;00247-1370-30
 ;;9002226.02101,"730,00247-1370-90 ",.01)
 ;;00247-1370-90
 ;;9002226.02101,"730,00247-1370-90 ",.02)
 ;;00247-1370-90
 ;;9002226.02101,"730,00247-1469-03 ",.01)
 ;;00247-1469-03
 ;;9002226.02101,"730,00247-1469-03 ",.02)
 ;;00247-1469-03
 ;;9002226.02101,"730,00247-1484-04 ",.01)
 ;;00247-1484-04
 ;;9002226.02101,"730,00247-1484-04 ",.02)
 ;;00247-1484-04
 ;;9002226.02101,"730,00254-2320-28 ",.01)
 ;;00254-2320-28
 ;;9002226.02101,"730,00254-2320-28 ",.02)
 ;;00254-2320-28
 ;;9002226.02101,"730,00254-2320-38 ",.01)
 ;;00254-2320-38
 ;;9002226.02101,"730,00254-2320-38 ",.02)
 ;;00254-2320-38
 ;;9002226.02101,"730,00254-5011-28 ",.01)
 ;;00254-5011-28
 ;;9002226.02101,"730,00254-5011-28 ",.02)
 ;;00254-5011-28
 ;;9002226.02101,"730,00254-5011-38 ",.01)
 ;;00254-5011-38
 ;;9002226.02101,"730,00254-5011-38 ",.02)
 ;;00254-5011-38
 ;;9002226.02101,"730,00254-5012-28 ",.01)
 ;;00254-5012-28
 ;;9002226.02101,"730,00254-5012-28 ",.02)
 ;;00254-5012-28
 ;;9002226.02101,"730,00254-5012-38 ",.01)
 ;;00254-5012-38