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

BGP53J55.m

Go to the documentation of this file.
BGP53J55 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"798,67544-0547-30 ",.01)
 ;;67544-0547-30
 ;;9002226.02101,"798,67544-0547-30 ",.02)
 ;;67544-0547-30
 ;;9002226.02101,"798,67544-0588-15 ",.01)
 ;;67544-0588-15
 ;;9002226.02101,"798,67544-0588-15 ",.02)
 ;;67544-0588-15
 ;;9002226.02101,"798,67544-0848-30 ",.01)
 ;;67544-0848-30
 ;;9002226.02101,"798,67544-0848-30 ",.02)
 ;;67544-0848-30
 ;;9002226.02101,"798,67544-0906-15 ",.01)
 ;;67544-0906-15
 ;;9002226.02101,"798,67544-0906-15 ",.02)
 ;;67544-0906-15
 ;;9002226.02101,"798,67544-0906-73 ",.01)
 ;;67544-0906-73
 ;;9002226.02101,"798,67544-0906-73 ",.02)
 ;;67544-0906-73
 ;;9002226.02101,"798,67544-0908-15 ",.01)
 ;;67544-0908-15
 ;;9002226.02101,"798,67544-0908-15 ",.02)
 ;;67544-0908-15
 ;;9002226.02101,"798,67544-0959-15 ",.01)
 ;;67544-0959-15
 ;;9002226.02101,"798,67544-0959-15 ",.02)
 ;;67544-0959-15
 ;;9002226.02101,"798,67767-0117-60 ",.01)
 ;;67767-0117-60
 ;;9002226.02101,"798,67767-0117-60 ",.02)
 ;;67767-0117-60
 ;;9002226.02101,"798,67767-0133-05 ",.01)
 ;;67767-0133-05
 ;;9002226.02101,"798,67767-0133-05 ",.02)
 ;;67767-0133-05
 ;;9002226.02101,"798,67767-0133-25 ",.01)
 ;;67767-0133-25
 ;;9002226.02101,"798,67767-0133-25 ",.02)
 ;;67767-0133-25
 ;;9002226.02101,"798,67767-0133-60 ",.01)
 ;;67767-0133-60
 ;;9002226.02101,"798,67767-0133-60 ",.02)
 ;;67767-0133-60
 ;;9002226.02101,"798,67767-0135-60 ",.01)
 ;;67767-0135-60
 ;;9002226.02101,"798,67767-0135-60 ",.02)
 ;;67767-0135-60
 ;;9002226.02101,"798,67767-0141-30 ",.01)
 ;;67767-0141-30
 ;;9002226.02101,"798,67767-0141-30 ",.02)
 ;;67767-0141-30
 ;;9002226.02101,"798,67767-0141-90 ",.01)
 ;;67767-0141-90
 ;;9002226.02101,"798,67767-0141-90 ",.02)
 ;;67767-0141-90
 ;;9002226.02101,"798,67767-0142-05 ",.01)
 ;;67767-0142-05
 ;;9002226.02101,"798,67767-0142-05 ",.02)
 ;;67767-0142-05
 ;;9002226.02101,"798,67767-0142-30 ",.01)
 ;;67767-0142-30
 ;;9002226.02101,"798,67767-0142-30 ",.02)
 ;;67767-0142-30
 ;;9002226.02101,"798,67767-0142-90 ",.01)
 ;;67767-0142-90
 ;;9002226.02101,"798,67767-0142-90 ",.02)
 ;;67767-0142-90
 ;;9002226.02101,"798,67767-0171-60 ",.01)
 ;;67767-0171-60
 ;;9002226.02101,"798,67767-0171-60 ",.02)
 ;;67767-0171-60
 ;;9002226.02101,"798,67801-0204-10 ",.01)
 ;;67801-0204-10
 ;;9002226.02101,"798,67801-0204-10 ",.02)
 ;;67801-0204-10
 ;;9002226.02101,"798,67801-0205-10 ",.01)
 ;;67801-0205-10
 ;;9002226.02101,"798,67801-0205-10 ",.02)
 ;;67801-0205-10
 ;;9002226.02101,"798,67801-0310-30 ",.01)
 ;;67801-0310-30
 ;;9002226.02101,"798,67801-0310-30 ",.02)
 ;;67801-0310-30
 ;;9002226.02101,"798,67801-0312-03 ",.01)
 ;;67801-0312-03
 ;;9002226.02101,"798,67801-0312-03 ",.02)
 ;;67801-0312-03
 ;;9002226.02101,"798,67801-0321-03 ",.01)
 ;;67801-0321-03
 ;;9002226.02101,"798,67801-0321-03 ",.02)
 ;;67801-0321-03
 ;;9002226.02101,"798,67801-0409-30 ",.01)
 ;;67801-0409-30
 ;;9002226.02101,"798,67801-0409-30 ",.02)
 ;;67801-0409-30
 ;;9002226.02101,"798,67801-0411-03 ",.01)
 ;;67801-0411-03
 ;;9002226.02101,"798,67801-0411-03 ",.02)
 ;;67801-0411-03
 ;;9002226.02101,"798,67801-0433-30 ",.01)
 ;;67801-0433-30
 ;;9002226.02101,"798,67801-0433-30 ",.02)
 ;;67801-0433-30
 ;;9002226.02101,"798,68001-0129-00 ",.01)
 ;;68001-0129-00
 ;;9002226.02101,"798,68001-0129-00 ",.02)
 ;;68001-0129-00
 ;;9002226.02101,"798,68001-0129-03 ",.01)
 ;;68001-0129-03
 ;;9002226.02101,"798,68001-0129-03 ",.02)
 ;;68001-0129-03
 ;;9002226.02101,"798,68001-0129-04 ",.01)
 ;;68001-0129-04
 ;;9002226.02101,"798,68001-0129-04 ",.02)
 ;;68001-0129-04
 ;;9002226.02101,"798,68001-0156-00 ",.01)
 ;;68001-0156-00
 ;;9002226.02101,"798,68001-0156-00 ",.02)
 ;;68001-0156-00
 ;;9002226.02101,"798,68001-0157-00 ",.01)
 ;;68001-0157-00
 ;;9002226.02101,"798,68001-0157-00 ",.02)
 ;;68001-0157-00
 ;;9002226.02101,"798,68001-0158-00 ",.01)
 ;;68001-0158-00
 ;;9002226.02101,"798,68001-0158-00 ",.02)
 ;;68001-0158-00
 ;;9002226.02101,"798,68001-0159-00 ",.01)
 ;;68001-0159-00
 ;;9002226.02101,"798,68001-0159-00 ",.02)
 ;;68001-0159-00
 ;;9002226.02101,"798,68001-0160-00 ",.01)
 ;;68001-0160-00
 ;;9002226.02101,"798,68001-0160-00 ",.02)
 ;;68001-0160-00
 ;;9002226.02101,"798,68001-0195-00 ",.01)
 ;;68001-0195-00
 ;;9002226.02101,"798,68001-0195-00 ",.02)
 ;;68001-0195-00
 ;;9002226.02101,"798,68001-0196-00 ",.01)
 ;;68001-0196-00
 ;;9002226.02101,"798,68001-0196-00 ",.02)
 ;;68001-0196-00
 ;;9002226.02101,"798,68001-0196-03 ",.01)
 ;;68001-0196-03
 ;;9002226.02101,"798,68001-0196-03 ",.02)
 ;;68001-0196-03
 ;;9002226.02101,"798,68001-0197-00 ",.01)
 ;;68001-0197-00
 ;;9002226.02101,"798,68001-0197-00 ",.02)
 ;;68001-0197-00
 ;;9002226.02101,"798,68001-0197-03 ",.01)
 ;;68001-0197-03
 ;;9002226.02101,"798,68001-0197-03 ",.02)
 ;;68001-0197-03
 ;;9002226.02101,"798,68001-0198-00 ",.01)
 ;;68001-0198-00
 ;;9002226.02101,"798,68001-0198-00 ",.02)
 ;;68001-0198-00
 ;;9002226.02101,"798,68001-0199-00 ",.01)
 ;;68001-0199-00
 ;;9002226.02101,"798,68001-0199-00 ",.02)
 ;;68001-0199-00
 ;;9002226.02101,"798,68001-0255-06 ",.01)
 ;;68001-0255-06
 ;;9002226.02101,"798,68001-0255-06 ",.02)
 ;;68001-0255-06
 ;;9002226.02101,"798,68001-0256-04 ",.01)
 ;;68001-0256-04
 ;;9002226.02101,"798,68001-0256-04 ",.02)
 ;;68001-0256-04
 ;;9002226.02101,"798,68001-0256-05 ",.01)
 ;;68001-0256-05
 ;;9002226.02101,"798,68001-0256-05 ",.02)
 ;;68001-0256-05
 ;;9002226.02101,"798,68001-0257-04 ",.01)
 ;;68001-0257-04
 ;;9002226.02101,"798,68001-0257-04 ",.02)
 ;;68001-0257-04
 ;;9002226.02101,"798,68071-0222-30 ",.01)
 ;;68071-0222-30
 ;;9002226.02101,"798,68071-0222-30 ",.02)
 ;;68071-0222-30
 ;;9002226.02101,"798,68071-0231-90 ",.01)
 ;;68071-0231-90
 ;;9002226.02101,"798,68071-0231-90 ",.02)
 ;;68071-0231-90
 ;;9002226.02101,"798,68071-0322-30 ",.01)
 ;;68071-0322-30
 ;;9002226.02101,"798,68071-0322-30 ",.02)
 ;;68071-0322-30
 ;;9002226.02101,"798,68071-0322-40 ",.01)
 ;;68071-0322-40
 ;;9002226.02101,"798,68071-0322-40 ",.02)
 ;;68071-0322-40
 ;;9002226.02101,"798,68071-0322-90 ",.01)
 ;;68071-0322-90
 ;;9002226.02101,"798,68071-0322-90 ",.02)
 ;;68071-0322-90
 ;;9002226.02101,"798,68071-0333-30 ",.01)
 ;;68071-0333-30
 ;;9002226.02101,"798,68071-0333-30 ",.02)
 ;;68071-0333-30
 ;;9002226.02101,"798,68071-0412-15 ",.01)
 ;;68071-0412-15
 ;;9002226.02101,"798,68071-0412-15 ",.02)
 ;;68071-0412-15
 ;;9002226.02101,"798,68071-0412-30 ",.01)
 ;;68071-0412-30
 ;;9002226.02101,"798,68071-0412-30 ",.02)
 ;;68071-0412-30
 ;;9002226.02101,"798,68071-0412-60 ",.01)
 ;;68071-0412-60
 ;;9002226.02101,"798,68071-0412-60 ",.02)
 ;;68071-0412-60
 ;;9002226.02101,"798,68071-0444-15 ",.01)
 ;;68071-0444-15
 ;;9002226.02101,"798,68071-0444-15 ",.02)
 ;;68071-0444-15
 ;;9002226.02101,"798,68071-0444-60 ",.01)
 ;;68071-0444-60
 ;;9002226.02101,"798,68071-0444-60 ",.02)
 ;;68071-0444-60
 ;;9002226.02101,"798,68071-0445-15 ",.01)
 ;;68071-0445-15
 ;;9002226.02101,"798,68071-0445-15 ",.02)
 ;;68071-0445-15
 ;;9002226.02101,"798,68071-0445-60 ",.01)
 ;;68071-0445-60
 ;;9002226.02101,"798,68071-0445-60 ",.02)
 ;;68071-0445-60
 ;;9002226.02101,"798,68071-1312-00 ",.01)
 ;;68071-1312-00
 ;;9002226.02101,"798,68071-1312-00 ",.02)
 ;;68071-1312-00
 ;;9002226.02101,"798,68071-1313-00 ",.01)
 ;;68071-1313-00
 ;;9002226.02101,"798,68071-1313-00 ",.02)
 ;;68071-1313-00
 ;;9002226.02101,"798,68084-0031-01 ",.01)
 ;;68084-0031-01
 ;;9002226.02101,"798,68084-0031-01 ",.02)
 ;;68084-0031-01
 ;;9002226.02101,"798,68084-0031-11 ",.01)
 ;;68084-0031-11
 ;;9002226.02101,"798,68084-0031-11 ",.02)
 ;;68084-0031-11
 ;;9002226.02101,"798,68084-0032-01 ",.01)
 ;;68084-0032-01
 ;;9002226.02101,"798,68084-0032-01 ",.02)
 ;;68084-0032-01
 ;;9002226.02101,"798,68084-0032-11 ",.01)
 ;;68084-0032-11
 ;;9002226.02101,"798,68084-0032-11 ",.02)
 ;;68084-0032-11
 ;;9002226.02101,"798,68084-0044-01 ",.01)
 ;;68084-0044-01
 ;;9002226.02101,"798,68084-0044-01 ",.02)
 ;;68084-0044-01
 ;;9002226.02101,"798,68084-0044-11 ",.01)
 ;;68084-0044-11
 ;;9002226.02101,"798,68084-0044-11 ",.02)
 ;;68084-0044-11
 ;;9002226.02101,"798,68084-0044-85 ",.01)
 ;;68084-0044-85
 ;;9002226.02101,"798,68084-0044-85 ",.02)
 ;;68084-0044-85
 ;;9002226.02101,"798,68084-0045-01 ",.01)
 ;;68084-0045-01
 ;;9002226.02101,"798,68084-0045-01 ",.02)
 ;;68084-0045-01
 ;;9002226.02101,"798,68084-0045-11 ",.01)
 ;;68084-0045-11
 ;;9002226.02101,"798,68084-0045-11 ",.02)
 ;;68084-0045-11
 ;;9002226.02101,"798,68084-0045-85 ",.01)
 ;;68084-0045-85
 ;;9002226.02101,"798,68084-0045-85 ",.02)
 ;;68084-0045-85
 ;;9002226.02101,"798,68084-0046-01 ",.01)
 ;;68084-0046-01
 ;;9002226.02101,"798,68084-0046-01 ",.02)
 ;;68084-0046-01
 ;;9002226.02101,"798,68084-0046-11 ",.01)
 ;;68084-0046-11
 ;;9002226.02101,"798,68084-0046-11 ",.02)
 ;;68084-0046-11
 ;;9002226.02101,"798,68084-0046-85 ",.01)
 ;;68084-0046-85
 ;;9002226.02101,"798,68084-0046-85 ",.02)
 ;;68084-0046-85
 ;;9002226.02101,"798,68084-0047-01 ",.01)
 ;;68084-0047-01
 ;;9002226.02101,"798,68084-0047-01 ",.02)
 ;;68084-0047-01
 ;;9002226.02101,"798,68084-0047-11 ",.01)
 ;;68084-0047-11
 ;;9002226.02101,"798,68084-0047-11 ",.02)
 ;;68084-0047-11
 ;;9002226.02101,"798,68084-0047-85 ",.01)
 ;;68084-0047-85
 ;;9002226.02101,"798,68084-0047-85 ",.02)
 ;;68084-0047-85
 ;;9002226.02101,"798,68084-0066-01 ",.01)
 ;;68084-0066-01
 ;;9002226.02101,"798,68084-0066-01 ",.02)
 ;;68084-0066-01
 ;;9002226.02101,"798,68084-0101-01 ",.01)
 ;;68084-0101-01
 ;;9002226.02101,"798,68084-0101-01 ",.02)
 ;;68084-0101-01
 ;;9002226.02101,"798,68084-0119-01 ",.01)
 ;;68084-0119-01
 ;;9002226.02101,"798,68084-0119-01 ",.02)
 ;;68084-0119-01
 ;;9002226.02101,"798,68084-0119-11 ",.01)
 ;;68084-0119-11
 ;;9002226.02101,"798,68084-0119-11 ",.02)
 ;;68084-0119-11
 ;;9002226.02101,"798,68084-0120-01 ",.01)
 ;;68084-0120-01
 ;;9002226.02101,"798,68084-0120-01 ",.02)
 ;;68084-0120-01
 ;;9002226.02101,"798,68084-0120-11 ",.01)
 ;;68084-0120-11
 ;;9002226.02101,"798,68084-0120-11 ",.02)
 ;;68084-0120-11
 ;;9002226.02101,"798,68084-0121-01 ",.01)
 ;;68084-0121-01
 ;;9002226.02101,"798,68084-0121-01 ",.02)
 ;;68084-0121-01
 ;;9002226.02101,"798,68084-0121-11 ",.01)
 ;;68084-0121-11
 ;;9002226.02101,"798,68084-0121-11 ",.02)
 ;;68084-0121-11
 ;;9002226.02101,"798,68084-0124-01 ",.01)
 ;;68084-0124-01
 ;;9002226.02101,"798,68084-0124-01 ",.02)
 ;;68084-0124-01
 ;;9002226.02101,"798,68084-0125-01 ",.01)
 ;;68084-0125-01
 ;;9002226.02101,"798,68084-0125-01 ",.02)
 ;;68084-0125-01
 ;;9002226.02101,"798,68084-0180-01 ",.01)
 ;;68084-0180-01
 ;;9002226.02101,"798,68084-0180-01 ",.02)
 ;;68084-0180-01
 ;;9002226.02101,"798,68084-0180-11 ",.01)
 ;;68084-0180-11
 ;;9002226.02101,"798,68084-0180-11 ",.02)
 ;;68084-0180-11
 ;;9002226.02101,"798,68084-0181-01 ",.01)
 ;;68084-0181-01
 ;;9002226.02101,"798,68084-0181-01 ",.02)
 ;;68084-0181-01
 ;;9002226.02101,"798,68084-0181-11 ",.01)
 ;;68084-0181-11
 ;;9002226.02101,"798,68084-0181-11 ",.02)
 ;;68084-0181-11
 ;;9002226.02101,"798,68084-0182-01 ",.01)
 ;;68084-0182-01
 ;;9002226.02101,"798,68084-0182-01 ",.02)
 ;;68084-0182-01
 ;;9002226.02101,"798,68084-0182-11 ",.01)
 ;;68084-0182-11
 ;;9002226.02101,"798,68084-0182-11 ",.02)
 ;;68084-0182-11
 ;;9002226.02101,"798,68084-0251-01 ",.01)
 ;;68084-0251-01
 ;;9002226.02101,"798,68084-0251-01 ",.02)
 ;;68084-0251-01
 ;;9002226.02101,"798,68084-0251-11 ",.01)
 ;;68084-0251-11
 ;;9002226.02101,"798,68084-0251-11 ",.02)
 ;;68084-0251-11
 ;;9002226.02101,"798,68084-0252-11 ",.01)
 ;;68084-0252-11
 ;;9002226.02101,"798,68084-0252-11 ",.02)
 ;;68084-0252-11
 ;;9002226.02101,"798,68084-0252-21 ",.01)
 ;;68084-0252-21
 ;;9002226.02101,"798,68084-0252-21 ",.02)
 ;;68084-0252-21
 ;;9002226.02101,"798,68084-0330-01 ",.01)
 ;;68084-0330-01
 ;;9002226.02101,"798,68084-0330-01 ",.02)
 ;;68084-0330-01
 ;;9002226.02101,"798,68084-0330-11 ",.01)
 ;;68084-0330-11
 ;;9002226.02101,"798,68084-0330-11 ",.02)
 ;;68084-0330-11
 ;;9002226.02101,"798,68084-0331-01 ",.01)
 ;;68084-0331-01
 ;;9002226.02101,"798,68084-0331-01 ",.02)
 ;;68084-0331-01
 ;;9002226.02101,"798,68084-0331-11 ",.01)
 ;;68084-0331-11
 ;;9002226.02101,"798,68084-0331-11 ",.02)
 ;;68084-0331-11
 ;;9002226.02101,"798,68084-0470-01 ",.01)
 ;;68084-0470-01
 ;;9002226.02101,"798,68084-0470-01 ",.02)
 ;;68084-0470-01
 ;;9002226.02101,"798,68084-0470-11 ",.01)
 ;;68084-0470-11
 ;;9002226.02101,"798,68084-0470-11 ",.02)
 ;;68084-0470-11
 ;;9002226.02101,"798,68084-0471-01 ",.01)
 ;;68084-0471-01
 ;;9002226.02101,"798,68084-0471-01 ",.02)
 ;;68084-0471-01
 ;;9002226.02101,"798,68084-0471-11 ",.01)
 ;;68084-0471-11
 ;;9002226.02101,"798,68084-0471-11 ",.02)
 ;;68084-0471-11
 ;;9002226.02101,"798,68084-0484-01 ",.01)
 ;;68084-0484-01
 ;;9002226.02101,"798,68084-0484-01 ",.02)
 ;;68084-0484-01
 ;;9002226.02101,"798,68084-0484-11 ",.01)
 ;;68084-0484-11
 ;;9002226.02101,"798,68084-0484-11 ",.02)
 ;;68084-0484-11
 ;;9002226.02101,"798,68084-0485-01 ",.01)
 ;;68084-0485-01
 ;;9002226.02101,"798,68084-0485-01 ",.02)
 ;;68084-0485-01
 ;;9002226.02101,"798,68084-0485-11 ",.01)
 ;;68084-0485-11
 ;;9002226.02101,"798,68084-0485-11 ",.02)
 ;;68084-0485-11
 ;;9002226.02101,"798,68084-0486-01 ",.01)
 ;;68084-0486-01
 ;;9002226.02101,"798,68084-0486-01 ",.02)
 ;;68084-0486-01
 ;;9002226.02101,"798,68084-0486-11 ",.01)
 ;;68084-0486-11
 ;;9002226.02101,"798,68084-0486-11 ",.02)
 ;;68084-0486-11
 ;;9002226.02101,"798,68084-0580-01 ",.01)
 ;;68084-0580-01
 ;;9002226.02101,"798,68084-0580-01 ",.02)
 ;;68084-0580-01