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

BGP31L32.m

Go to the documentation of this file.
BGP31L32 ;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,67405-0575-50 ",.01)
 ;;67405-0575-50
 ;;9002226.02101,"618,67405-0575-50 ",.02)
 ;;67405-0575-50
 ;;9002226.02101,"618,67405-0575-96 ",.01)
 ;;67405-0575-96
 ;;9002226.02101,"618,67405-0575-96 ",.02)
 ;;67405-0575-96
 ;;9002226.02101,"618,67405-0577-10 ",.01)
 ;;67405-0577-10
 ;;9002226.02101,"618,67405-0577-10 ",.02)
 ;;67405-0577-10
 ;;9002226.02101,"618,67405-0577-50 ",.01)
 ;;67405-0577-50
 ;;9002226.02101,"618,67405-0577-50 ",.02)
 ;;67405-0577-50
 ;;9002226.02101,"618,67405-0671-10 ",.01)
 ;;67405-0671-10
 ;;9002226.02101,"618,67405-0671-10 ",.02)
 ;;67405-0671-10
 ;;9002226.02101,"618,67405-0671-50 ",.01)
 ;;67405-0671-50
 ;;9002226.02101,"618,67405-0671-50 ",.02)
 ;;67405-0671-50
 ;;9002226.02101,"618,67405-0671-96 ",.01)
 ;;67405-0671-96
 ;;9002226.02101,"618,67405-0671-96 ",.02)
 ;;67405-0671-96
 ;;9002226.02101,"618,67457-0152-10 ",.01)
 ;;67457-0152-10
 ;;9002226.02101,"618,67457-0152-10 ",.02)
 ;;67457-0152-10
 ;;9002226.02101,"618,67457-0154-10 ",.01)
 ;;67457-0154-10
 ;;9002226.02101,"618,67457-0154-10 ",.02)
 ;;67457-0154-10
 ;;9002226.02101,"618,67537-0271-01 ",.01)
 ;;67537-0271-01
 ;;9002226.02101,"618,67537-0271-01 ",.02)
 ;;67537-0271-01
 ;;9002226.02101,"618,67537-0273-60 ",.01)
 ;;67537-0273-60
 ;;9002226.02101,"618,67537-0273-60 ",.02)
 ;;67537-0273-60
 ;;9002226.02101,"618,67537-0274-16 ",.01)
 ;;67537-0274-16
 ;;9002226.02101,"618,67537-0274-16 ",.02)
 ;;67537-0274-16
 ;;9002226.02101,"618,67544-0246-30 ",.01)
 ;;67544-0246-30
 ;;9002226.02101,"618,67544-0246-30 ",.02)
 ;;67544-0246-30
 ;;9002226.02101,"618,67544-0246-53 ",.01)
 ;;67544-0246-53
 ;;9002226.02101,"618,67544-0246-53 ",.02)
 ;;67544-0246-53
 ;;9002226.02101,"618,67544-0304-30 ",.01)
 ;;67544-0304-30
 ;;9002226.02101,"618,67544-0304-30 ",.02)
 ;;67544-0304-30
 ;;9002226.02101,"618,67544-0677-30 ",.01)
 ;;67544-0677-30
 ;;9002226.02101,"618,67544-0677-30 ",.02)
 ;;67544-0677-30
 ;;9002226.02101,"618,67544-0677-53 ",.01)
 ;;67544-0677-53
 ;;9002226.02101,"618,67544-0677-53 ",.02)
 ;;67544-0677-53
 ;;9002226.02101,"618,67544-0677-60 ",.01)
 ;;67544-0677-60
 ;;9002226.02101,"618,67544-0677-60 ",.02)
 ;;67544-0677-60
 ;;9002226.02101,"618,67544-0791-30 ",.01)
 ;;67544-0791-30
 ;;9002226.02101,"618,67544-0791-30 ",.02)
 ;;67544-0791-30
 ;;9002226.02101,"618,67544-0791-53 ",.01)
 ;;67544-0791-53
 ;;9002226.02101,"618,67544-0791-53 ",.02)
 ;;67544-0791-53
 ;;9002226.02101,"618,67544-0791-60 ",.01)
 ;;67544-0791-60
 ;;9002226.02101,"618,67544-0791-60 ",.02)
 ;;67544-0791-60
 ;;9002226.02101,"618,67544-1053-20 ",.01)
 ;;67544-1053-20
 ;;9002226.02101,"618,67544-1053-20 ",.02)
 ;;67544-1053-20
 ;;9002226.02101,"618,68013-0007-01 ",.01)
 ;;68013-0007-01
 ;;9002226.02101,"618,68013-0007-01 ",.02)
 ;;68013-0007-01
 ;;9002226.02101,"618,68013-0007-60 ",.01)
 ;;68013-0007-60
 ;;9002226.02101,"618,68013-0007-60 ",.02)
 ;;68013-0007-60
 ;;9002226.02101,"618,68025-0032-16 ",.01)
 ;;68025-0032-16
 ;;9002226.02101,"618,68025-0032-16 ",.02)
 ;;68025-0032-16
 ;;9002226.02101,"618,68025-0034-10 ",.01)
 ;;68025-0034-10
 ;;9002226.02101,"618,68025-0034-10 ",.02)
 ;;68025-0034-10
 ;;9002226.02101,"618,68025-0051-10 ",.01)
 ;;68025-0051-10
 ;;9002226.02101,"618,68025-0051-10 ",.02)
 ;;68025-0051-10
 ;;9002226.02101,"618,68030-4379-02 ",.01)
 ;;68030-4379-02
 ;;9002226.02101,"618,68030-4379-02 ",.02)
 ;;68030-4379-02
 ;;9002226.02101,"618,68032-0107-04 ",.01)
 ;;68032-0107-04
 ;;9002226.02101,"618,68032-0107-04 ",.02)
 ;;68032-0107-04
 ;;9002226.02101,"618,68032-0157-16 ",.01)
 ;;68032-0157-16
 ;;9002226.02101,"618,68032-0157-16 ",.02)
 ;;68032-0157-16
 ;;9002226.02101,"618,68032-0178-60 ",.01)
 ;;68032-0178-60
 ;;9002226.02101,"618,68032-0178-60 ",.02)
 ;;68032-0178-60
 ;;9002226.02101,"618,68032-0181-04 ",.01)
 ;;68032-0181-04
 ;;9002226.02101,"618,68032-0181-04 ",.02)
 ;;68032-0181-04
 ;;9002226.02101,"618,68032-0182-10 ",.01)
 ;;68032-0182-10
 ;;9002226.02101,"618,68032-0182-10 ",.02)
 ;;68032-0182-10
 ;;9002226.02101,"618,68032-0189-60 ",.01)
 ;;68032-0189-60
 ;;9002226.02101,"618,68032-0189-60 ",.02)
 ;;68032-0189-60
 ;;9002226.02101,"618,68032-0203-16 ",.01)
 ;;68032-0203-16
 ;;9002226.02101,"618,68032-0203-16 ",.02)
 ;;68032-0203-16
 ;;9002226.02101,"618,68032-0204-16 ",.01)
 ;;68032-0204-16
 ;;9002226.02101,"618,68032-0204-16 ",.02)
 ;;68032-0204-16
 ;;9002226.02101,"618,68032-0205-60 ",.01)
 ;;68032-0205-60
 ;;9002226.02101,"618,68032-0205-60 ",.02)
 ;;68032-0205-60
 ;;9002226.02101,"618,68032-0229-10 ",.01)
 ;;68032-0229-10
 ;;9002226.02101,"618,68032-0229-10 ",.02)
 ;;68032-0229-10
 ;;9002226.02101,"618,68032-0307-16 ",.01)
 ;;68032-0307-16
 ;;9002226.02101,"618,68032-0307-16 ",.02)
 ;;68032-0307-16
 ;;9002226.02101,"618,68032-0324-21 ",.01)
 ;;68032-0324-21
 ;;9002226.02101,"618,68032-0324-21 ",.02)
 ;;68032-0324-21
 ;;9002226.02101,"618,68032-0325-21 ",.01)
 ;;68032-0325-21
 ;;9002226.02101,"618,68032-0325-21 ",.02)
 ;;68032-0325-21
 ;;9002226.02101,"618,68032-0326-21 ",.01)
 ;;68032-0326-21
 ;;9002226.02101,"618,68032-0326-21 ",.02)
 ;;68032-0326-21
 ;;9002226.02101,"618,68032-0330-10 ",.01)
 ;;68032-0330-10
 ;;9002226.02101,"618,68032-0330-10 ",.02)
 ;;68032-0330-10
 ;;9002226.02101,"618,68032-0456-16 ",.01)
 ;;68032-0456-16
 ;;9002226.02101,"618,68032-0456-16 ",.02)
 ;;68032-0456-16
 ;;9002226.02101,"618,68032-0457-01 ",.01)
 ;;68032-0457-01
 ;;9002226.02101,"618,68032-0457-01 ",.02)
 ;;68032-0457-01
 ;;9002226.02101,"618,68032-0459-16 ",.01)
 ;;68032-0459-16
 ;;9002226.02101,"618,68032-0459-16 ",.02)
 ;;68032-0459-16
 ;;9002226.02101,"618,68047-0011-30 ",.01)
 ;;68047-0011-30
 ;;9002226.02101,"618,68047-0011-30 ",.02)
 ;;68047-0011-30
 ;;9002226.02101,"618,68047-0030-02 ",.01)
 ;;68047-0030-02
 ;;9002226.02101,"618,68047-0030-02 ",.02)
 ;;68047-0030-02
 ;;9002226.02101,"618,68047-0031-02 ",.01)
 ;;68047-0031-02
 ;;9002226.02101,"618,68047-0031-02 ",.02)
 ;;68047-0031-02
 ;;9002226.02101,"618,68047-0120-16 ",.01)
 ;;68047-0120-16
 ;;9002226.02101,"618,68047-0120-16 ",.02)
 ;;68047-0120-16
 ;;9002226.02101,"618,68047-0121-01 ",.01)
 ;;68047-0121-01
 ;;9002226.02101,"618,68047-0121-01 ",.02)
 ;;68047-0121-01
 ;;9002226.02101,"618,68047-0122-01 ",.01)
 ;;68047-0122-01
 ;;9002226.02101,"618,68047-0122-01 ",.02)
 ;;68047-0122-01
 ;;9002226.02101,"618,68047-0126-16 ",.01)
 ;;68047-0126-16
 ;;9002226.02101,"618,68047-0126-16 ",.02)
 ;;68047-0126-16
 ;;9002226.02101,"618,68047-0129-16 ",.01)
 ;;68047-0129-16
 ;;9002226.02101,"618,68047-0129-16 ",.02)
 ;;68047-0129-16
 ;;9002226.02101,"618,68047-0133-16 ",.01)
 ;;68047-0133-16
 ;;9002226.02101,"618,68047-0133-16 ",.02)
 ;;68047-0133-16
 ;;9002226.02101,"618,68047-0136-16 ",.01)
 ;;68047-0136-16
 ;;9002226.02101,"618,68047-0136-16 ",.02)
 ;;68047-0136-16
 ;;9002226.02101,"618,68047-0138-04 ",.01)
 ;;68047-0138-04
 ;;9002226.02101,"618,68047-0138-04 ",.02)
 ;;68047-0138-04
 ;;9002226.02101,"618,68047-0142-16 ",.01)
 ;;68047-0142-16
 ;;9002226.02101,"618,68047-0142-16 ",.02)
 ;;68047-0142-16
 ;;9002226.02101,"618,68047-0145-16 ",.01)
 ;;68047-0145-16
 ;;9002226.02101,"618,68047-0145-16 ",.02)
 ;;68047-0145-16
 ;;9002226.02101,"618,68047-0160-01 ",.01)
 ;;68047-0160-01
 ;;9002226.02101,"618,68047-0160-01 ",.02)
 ;;68047-0160-01
 ;;9002226.02101,"618,68047-0161-01 ",.01)
 ;;68047-0161-01
 ;;9002226.02101,"618,68047-0161-01 ",.02)
 ;;68047-0161-01
 ;;9002226.02101,"618,68047-0166-01 ",.01)
 ;;68047-0166-01
 ;;9002226.02101,"618,68047-0166-01 ",.02)
 ;;68047-0166-01
 ;;9002226.02101,"618,68047-0169-16 ",.01)
 ;;68047-0169-16
 ;;9002226.02101,"618,68047-0169-16 ",.02)
 ;;68047-0169-16
 ;;9002226.02101,"618,68047-0210-01 ",.01)
 ;;68047-0210-01
 ;;9002226.02101,"618,68047-0210-01 ",.02)
 ;;68047-0210-01
 ;;9002226.02101,"618,68047-0292-16 ",.01)
 ;;68047-0292-16
 ;;9002226.02101,"618,68047-0292-16 ",.02)
 ;;68047-0292-16
 ;;9002226.02101,"618,68047-0310-16 ",.01)
 ;;68047-0310-16
 ;;9002226.02101,"618,68047-0310-16 ",.02)
 ;;68047-0310-16
 ;;9002226.02101,"618,68047-0310-30 ",.01)
 ;;68047-0310-30
 ;;9002226.02101,"618,68047-0310-30 ",.02)
 ;;68047-0310-30
 ;;9002226.02101,"618,68047-0330-01 ",.01)
 ;;68047-0330-01
 ;;9002226.02101,"618,68047-0330-01 ",.02)
 ;;68047-0330-01
 ;;9002226.02101,"618,68071-0448-60 ",.01)
 ;;68071-0448-60
 ;;9002226.02101,"618,68071-0448-60 ",.02)
 ;;68071-0448-60
 ;;9002226.02101,"618,68084-0154-01 ",.01)
 ;;68084-0154-01
 ;;9002226.02101,"618,68084-0154-01 ",.02)
 ;;68084-0154-01
 ;;9002226.02101,"618,68084-0154-11 ",.01)
 ;;68084-0154-11
 ;;9002226.02101,"618,68084-0154-11 ",.02)
 ;;68084-0154-11
 ;;9002226.02101,"618,68084-0155-01 ",.01)
 ;;68084-0155-01
 ;;9002226.02101,"618,68084-0155-01 ",.02)
 ;;68084-0155-01
 ;;9002226.02101,"618,68084-0155-11 ",.01)
 ;;68084-0155-11
 ;;9002226.02101,"618,68084-0155-11 ",.02)
 ;;68084-0155-11
 ;;9002226.02101,"618,68084-0156-01 ",.01)
 ;;68084-0156-01
 ;;9002226.02101,"618,68084-0156-01 ",.02)
 ;;68084-0156-01
 ;;9002226.02101,"618,68084-0156-11 ",.01)
 ;;68084-0156-11
 ;;9002226.02101,"618,68084-0156-11 ",.02)
 ;;68084-0156-11
 ;;9002226.02101,"618,68084-0253-01 ",.01)
 ;;68084-0253-01
 ;;9002226.02101,"618,68084-0253-01 ",.02)
 ;;68084-0253-01
 ;;9002226.02101,"618,68084-0253-11 ",.01)
 ;;68084-0253-11
 ;;9002226.02101,"618,68084-0253-11 ",.02)
 ;;68084-0253-11
 ;;9002226.02101,"618,68084-0254-01 ",.01)
 ;;68084-0254-01
 ;;9002226.02101,"618,68084-0254-01 ",.02)
 ;;68084-0254-01
 ;;9002226.02101,"618,68084-0254-11 ",.01)
 ;;68084-0254-11
 ;;9002226.02101,"618,68084-0254-11 ",.02)
 ;;68084-0254-11
 ;;9002226.02101,"618,68084-0255-01 ",.01)
 ;;68084-0255-01
 ;;9002226.02101,"618,68084-0255-01 ",.02)
 ;;68084-0255-01
 ;;9002226.02101,"618,68084-0255-11 ",.01)
 ;;68084-0255-11
 ;;9002226.02101,"618,68084-0255-11 ",.02)
 ;;68084-0255-11
 ;;9002226.02101,"618,68084-0381-01 ",.01)
 ;;68084-0381-01
 ;;9002226.02101,"618,68084-0381-01 ",.02)
 ;;68084-0381-01
 ;;9002226.02101,"618,68084-0381-11 ",.01)
 ;;68084-0381-11
 ;;9002226.02101,"618,68084-0381-11 ",.02)
 ;;68084-0381-11
 ;;9002226.02101,"618,68084-0388-01 ",.01)
 ;;68084-0388-01
 ;;9002226.02101,"618,68084-0388-01 ",.02)
 ;;68084-0388-01
 ;;9002226.02101,"618,68084-0388-11 ",.01)
 ;;68084-0388-11
 ;;9002226.02101,"618,68084-0388-11 ",.02)
 ;;68084-0388-11
 ;;9002226.02101,"618,68084-0389-01 ",.01)
 ;;68084-0389-01
 ;;9002226.02101,"618,68084-0389-01 ",.02)
 ;;68084-0389-01
 ;;9002226.02101,"618,68084-0389-11 ",.01)
 ;;68084-0389-11
 ;;9002226.02101,"618,68084-0389-11 ",.02)
 ;;68084-0389-11
 ;;9002226.02101,"618,68115-0043-30 ",.01)
 ;;68115-0043-30
 ;;9002226.02101,"618,68115-0043-30 ",.02)
 ;;68115-0043-30
 ;;9002226.02101,"618,68115-0044-30 ",.01)
 ;;68115-0044-30
 ;;9002226.02101,"618,68115-0044-30 ",.02)
 ;;68115-0044-30
 ;;9002226.02101,"618,68115-0044-60 ",.01)
 ;;68115-0044-60
 ;;9002226.02101,"618,68115-0044-60 ",.02)
 ;;68115-0044-60
 ;;9002226.02101,"618,68115-0117-06 ",.01)
 ;;68115-0117-06
 ;;9002226.02101,"618,68115-0117-06 ",.02)
 ;;68115-0117-06
 ;;9002226.02101,"618,68115-0117-15 ",.01)
 ;;68115-0117-15
 ;;9002226.02101,"618,68115-0117-15 ",.02)
 ;;68115-0117-15
 ;;9002226.02101,"618,68115-0117-20 ",.01)
 ;;68115-0117-20
 ;;9002226.02101,"618,68115-0117-20 ",.02)
 ;;68115-0117-20
 ;;9002226.02101,"618,68115-0117-30 ",.01)
 ;;68115-0117-30
 ;;9002226.02101,"618,68115-0117-30 ",.02)
 ;;68115-0117-30
 ;;9002226.02101,"618,68115-0174-00 ",.01)
 ;;68115-0174-00
 ;;9002226.02101,"618,68115-0174-00 ",.02)
 ;;68115-0174-00
 ;;9002226.02101,"618,68115-0174-15 ",.01)
 ;;68115-0174-15
 ;;9002226.02101,"618,68115-0174-15 ",.02)
 ;;68115-0174-15
 ;;9002226.02101,"618,68115-0174-30 ",.01)
 ;;68115-0174-30
 ;;9002226.02101,"618,68115-0174-30 ",.02)
 ;;68115-0174-30
 ;;9002226.02101,"618,68115-0174-60 ",.01)
 ;;68115-0174-60
 ;;9002226.02101,"618,68115-0174-60 ",.02)
 ;;68115-0174-60
 ;;9002226.02101,"618,68115-0175-12 ",.01)
 ;;68115-0175-12
 ;;9002226.02101,"618,68115-0175-12 ",.02)
 ;;68115-0175-12
 ;;9002226.02101,"618,68115-0175-15 ",.01)
 ;;68115-0175-15
 ;;9002226.02101,"618,68115-0175-15 ",.02)
 ;;68115-0175-15
 ;;9002226.02101,"618,68115-0175-20 ",.01)
 ;;68115-0175-20
 ;;9002226.02101,"618,68115-0175-20 ",.02)
 ;;68115-0175-20
 ;;9002226.02101,"618,68115-0175-30 ",.01)
 ;;68115-0175-30
 ;;9002226.02101,"618,68115-0175-30 ",.02)
 ;;68115-0175-30
 ;;9002226.02101,"618,68115-0175-48 ",.01)
 ;;68115-0175-48
 ;;9002226.02101,"618,68115-0175-48 ",.02)
 ;;68115-0175-48
 ;;9002226.02101,"618,68115-0175-60 ",.01)
 ;;68115-0175-60
 ;;9002226.02101,"618,68115-0175-60 ",.02)
 ;;68115-0175-60
 ;;9002226.02101,"618,68115-0175-90 ",.01)
 ;;68115-0175-90
 ;;9002226.02101,"618,68115-0175-90 ",.02)
 ;;68115-0175-90
 ;;9002226.02101,"618,68115-0176-00 ",.01)
 ;;68115-0176-00
 ;;9002226.02101,"618,68115-0176-00 ",.02)
 ;;68115-0176-00
 ;;9002226.02101,"618,68115-0176-30 ",.01)
 ;;68115-0176-30
 ;;9002226.02101,"618,68115-0176-30 ",.02)
 ;;68115-0176-30
 ;;9002226.02101,"618,68115-0176-60 ",.01)
 ;;68115-0176-60
 ;;9002226.02101,"618,68115-0176-60 ",.02)
 ;;68115-0176-60
 ;;9002226.02101,"618,68115-0177-00 ",.01)
 ;;68115-0177-00
 ;;9002226.02101,"618,68115-0177-00 ",.02)
 ;;68115-0177-00
 ;;9002226.02101,"618,68115-0177-30 ",.01)
 ;;68115-0177-30
 ;;9002226.02101,"618,68115-0177-30 ",.02)
 ;;68115-0177-30
 ;;9002226.02101,"618,68115-0177-60 ",.01)
 ;;68115-0177-60
 ;;9002226.02101,"618,68115-0177-60 ",.02)
 ;;68115-0177-60