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

BGP47J35.m

Go to the documentation of this file.
BGP47J35 ;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,"618,66813-0272-04 ",.02)
 ;;66813-0272-04
 ;;9002226.02101,"618,66813-0273-60 ",.01)
 ;;66813-0273-60
 ;;9002226.02101,"618,66813-0273-60 ",.02)
 ;;66813-0273-60
 ;;9002226.02101,"618,66813-0274-16 ",.01)
 ;;66813-0274-16
 ;;9002226.02101,"618,66813-0274-16 ",.02)
 ;;66813-0274-16
 ;;9002226.02101,"618,66860-0098-03 ",.01)
 ;;66860-0098-03
 ;;9002226.02101,"618,66860-0098-03 ",.02)
 ;;66860-0098-03
 ;;9002226.02101,"618,66860-0099-03 ",.01)
 ;;66860-0099-03
 ;;9002226.02101,"618,66860-0099-03 ",.02)
 ;;66860-0099-03
 ;;9002226.02101,"618,66869-0116-10 ",.01)
 ;;66869-0116-10
 ;;9002226.02101,"618,66869-0116-10 ",.02)
 ;;66869-0116-10
 ;;9002226.02101,"618,66869-0201-10 ",.01)
 ;;66869-0201-10
 ;;9002226.02101,"618,66869-0201-10 ",.02)
 ;;66869-0201-10
 ;;9002226.02101,"618,66869-0307-10 ",.01)
 ;;66869-0307-10
 ;;9002226.02101,"618,66869-0307-10 ",.02)
 ;;66869-0307-10
 ;;9002226.02101,"618,66869-0721-10 ",.01)
 ;;66869-0721-10
 ;;9002226.02101,"618,66869-0721-10 ",.02)
 ;;66869-0721-10
 ;;9002226.02101,"618,66870-0032-01 ",.01)
 ;;66870-0032-01
 ;;9002226.02101,"618,66870-0032-01 ",.02)
 ;;66870-0032-01
 ;;9002226.02101,"618,66992-0130-16 ",.01)
 ;;66992-0130-16
 ;;9002226.02101,"618,66992-0130-16 ",.02)
 ;;66992-0130-16
 ;;9002226.02101,"618,66992-0135-16 ",.01)
 ;;66992-0135-16
 ;;9002226.02101,"618,66992-0135-16 ",.02)
 ;;66992-0135-16
 ;;9002226.02101,"618,66992-0136-16 ",.01)
 ;;66992-0136-16
 ;;9002226.02101,"618,66992-0136-16 ",.02)
 ;;66992-0136-16
 ;;9002226.02101,"618,66992-0230-04 ",.01)
 ;;66992-0230-04
 ;;9002226.02101,"618,66992-0230-04 ",.02)
 ;;66992-0230-04
 ;;9002226.02101,"618,66992-0235-60 ",.01)
 ;;66992-0235-60
 ;;9002226.02101,"618,66992-0235-60 ",.02)
 ;;66992-0235-60
 ;;9002226.02101,"618,66993-0502-55 ",.01)
 ;;66993-0502-55
 ;;9002226.02101,"618,66993-0502-55 ",.02)
 ;;66993-0502-55
 ;;9002226.02101,"618,66993-0531-55 ",.01)
 ;;66993-0531-55
 ;;9002226.02101,"618,66993-0531-55 ",.02)
 ;;66993-0531-55
 ;;9002226.02101,"618,66993-0537-57 ",.01)
 ;;66993-0537-57
 ;;9002226.02101,"618,66993-0537-57 ",.02)
 ;;66993-0537-57
 ;;9002226.02101,"618,67000-0200-10 ",.01)
 ;;67000-0200-10
 ;;9002226.02101,"618,67000-0200-10 ",.02)
 ;;67000-0200-10
 ;;9002226.02101,"618,67000-0201-10 ",.01)
 ;;67000-0201-10
 ;;9002226.02101,"618,67000-0201-10 ",.02)
 ;;67000-0201-10
 ;;9002226.02101,"618,67204-0245-16 ",.01)
 ;;67204-0245-16
 ;;9002226.02101,"618,67204-0245-16 ",.02)
 ;;67204-0245-16
 ;;9002226.02101,"618,67204-0320-16 ",.01)
 ;;67204-0320-16
 ;;9002226.02101,"618,67204-0320-16 ",.02)
 ;;67204-0320-16
 ;;9002226.02101,"618,67204-0325-16 ",.01)
 ;;67204-0325-16
 ;;9002226.02101,"618,67204-0325-16 ",.02)
 ;;67204-0325-16
 ;;9002226.02101,"618,67204-0340-16 ",.01)
 ;;67204-0340-16
 ;;9002226.02101,"618,67204-0340-16 ",.02)
 ;;67204-0340-16
 ;;9002226.02101,"618,67204-0390-16 ",.01)
 ;;67204-0390-16
 ;;9002226.02101,"618,67204-0390-16 ",.02)
 ;;67204-0390-16
 ;;9002226.02101,"618,67336-0050-60 ",.01)
 ;;67336-0050-60
 ;;9002226.02101,"618,67336-0050-60 ",.02)
 ;;67336-0050-60
 ;;9002226.02101,"618,67336-0089-01 ",.01)
 ;;67336-0089-01
 ;;9002226.02101,"618,67336-0089-01 ",.02)
 ;;67336-0089-01
 ;;9002226.02101,"618,67336-0254-16 ",.01)
 ;;67336-0254-16
 ;;9002226.02101,"618,67336-0254-16 ",.02)
 ;;67336-0254-16
 ;;9002226.02101,"618,67336-0258-01 ",.01)
 ;;67336-0258-01
 ;;9002226.02101,"618,67336-0258-01 ",.02)
 ;;67336-0258-01
 ;;9002226.02101,"618,67336-0275-16 ",.01)
 ;;67336-0275-16
 ;;9002226.02101,"618,67336-0275-16 ",.02)
 ;;67336-0275-16
 ;;9002226.02101,"618,67336-0532-04 ",.01)
 ;;67336-0532-04
 ;;9002226.02101,"618,67336-0532-04 ",.02)
 ;;67336-0532-04
 ;;9002226.02101,"618,67336-0532-16 ",.01)
 ;;67336-0532-16
 ;;9002226.02101,"618,67336-0532-16 ",.02)
 ;;67336-0532-16
 ;;9002226.02101,"618,67336-0910-16 ",.01)
 ;;67336-0910-16
 ;;9002226.02101,"618,67336-0910-16 ",.02)
 ;;67336-0910-16
 ;;9002226.02101,"618,67386-0611-52 ",.01)
 ;;67386-0611-52
 ;;9002226.02101,"618,67386-0611-52 ",.02)
 ;;67386-0611-52
 ;;9002226.02101,"618,67405-0575-10 ",.01)
 ;;67405-0575-10
 ;;9002226.02101,"618,67405-0575-10 ",.02)
 ;;67405-0575-10
 ;;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,68016-0022-99 ",.01)
 ;;68016-0022-99
 ;;9002226.02101,"618,68016-0022-99 ",.02)
 ;;68016-0022-99
 ;;9002226.02101,"618,68016-0277-06 ",.01)
 ;;68016-0277-06
 ;;9002226.02101,"618,68016-0277-06 ",.02)
 ;;68016-0277-06
 ;;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-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-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