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

BGP47M5.m

Go to the documentation of this file.
  1. BGP47M5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
  1. ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"726,51079-0945-20 ",.02)
  1. ;;51079-0945-20
  1. ;;9002226.02101,"726,51079-0945-23 ",.01)
  1. ;;51079-0945-23
  1. ;;9002226.02101,"726,51079-0945-23 ",.02)
  1. ;;51079-0945-23
  1. ;;9002226.02101,"726,51079-0945-24 ",.01)
  1. ;;51079-0945-24
  1. ;;9002226.02101,"726,51079-0945-24 ",.02)
  1. ;;51079-0945-24
  1. ;;9002226.02101,"726,51079-0945-30 ",.01)
  1. ;;51079-0945-30
  1. ;;9002226.02101,"726,51079-0945-30 ",.02)
  1. ;;51079-0945-30
  1. ;;9002226.02101,"726,51079-0945-56 ",.01)
  1. ;;51079-0945-56
  1. ;;9002226.02101,"726,51079-0945-56 ",.02)
  1. ;;51079-0945-56
  1. ;;9002226.02101,"726,51079-0945-57 ",.01)
  1. ;;51079-0945-57
  1. ;;9002226.02101,"726,51079-0945-57 ",.02)
  1. ;;51079-0945-57
  1. ;;9002226.02101,"726,51079-0945-63 ",.01)
  1. ;;51079-0945-63
  1. ;;9002226.02101,"726,51079-0945-63 ",.02)
  1. ;;51079-0945-63
  1. ;;9002226.02101,"726,51079-0945-66 ",.01)
  1. ;;51079-0945-66
  1. ;;9002226.02101,"726,51079-0945-66 ",.02)
  1. ;;51079-0945-66
  1. ;;9002226.02101,"726,51079-0946-01 ",.01)
  1. ;;51079-0946-01
  1. ;;9002226.02101,"726,51079-0946-01 ",.02)
  1. ;;51079-0946-01
  1. ;;9002226.02101,"726,51079-0946-20 ",.01)
  1. ;;51079-0946-20
  1. ;;9002226.02101,"726,51079-0946-20 ",.02)
  1. ;;51079-0946-20
  1. ;;9002226.02101,"726,51079-0946-23 ",.01)
  1. ;;51079-0946-23
  1. ;;9002226.02101,"726,51079-0946-23 ",.02)
  1. ;;51079-0946-23
  1. ;;9002226.02101,"726,51079-0946-24 ",.01)
  1. ;;51079-0946-24
  1. ;;9002226.02101,"726,51079-0946-24 ",.02)
  1. ;;51079-0946-24
  1. ;;9002226.02101,"726,51079-0946-63 ",.01)
  1. ;;51079-0946-63
  1. ;;9002226.02101,"726,51079-0946-63 ",.02)
  1. ;;51079-0946-63
  1. ;;9002226.02101,"726,51079-0946-66 ",.01)
  1. ;;51079-0946-66
  1. ;;9002226.02101,"726,51079-0946-66 ",.02)
  1. ;;51079-0946-66
  1. ;;9002226.02101,"726,51138-0400-30 ",.01)
  1. ;;51138-0400-30
  1. ;;9002226.02101,"726,51138-0400-30 ",.02)
  1. ;;51138-0400-30
  1. ;;9002226.02101,"726,51138-0401-30 ",.01)
  1. ;;51138-0401-30
  1. ;;9002226.02101,"726,51138-0401-30 ",.02)
  1. ;;51138-0401-30
  1. ;;9002226.02101,"726,51138-0402-30 ",.01)
  1. ;;51138-0402-30
  1. ;;9002226.02101,"726,51138-0402-30 ",.02)
  1. ;;51138-0402-30
  1. ;;9002226.02101,"726,51138-0403-30 ",.01)
  1. ;;51138-0403-30
  1. ;;9002226.02101,"726,51138-0403-30 ",.02)
  1. ;;51138-0403-30
  1. ;;9002226.02101,"726,51138-0407-30 ",.01)
  1. ;;51138-0407-30
  1. ;;9002226.02101,"726,51138-0407-30 ",.02)
  1. ;;51138-0407-30
  1. ;;9002226.02101,"726,51138-0408-30 ",.01)
  1. ;;51138-0408-30
  1. ;;9002226.02101,"726,51138-0408-30 ",.02)
  1. ;;51138-0408-30
  1. ;;9002226.02101,"726,51138-0549-30 ",.01)
  1. ;;51138-0549-30
  1. ;;9002226.02101,"726,51138-0549-30 ",.02)
  1. ;;51138-0549-30
  1. ;;9002226.02101,"726,51138-0550-30 ",.01)
  1. ;;51138-0550-30
  1. ;;9002226.02101,"726,51138-0550-30 ",.02)
  1. ;;51138-0550-30
  1. ;;9002226.02101,"726,51285-0915-02 ",.01)
  1. ;;51285-0915-02
  1. ;;9002226.02101,"726,51285-0915-02 ",.02)
  1. ;;51285-0915-02
  1. ;;9002226.02101,"726,51285-0915-05 ",.01)
  1. ;;51285-0915-05
  1. ;;9002226.02101,"726,51285-0915-05 ",.02)
  1. ;;51285-0915-05
  1. ;;9002226.02101,"726,51285-0916-02 ",.01)
  1. ;;51285-0916-02
  1. ;;9002226.02101,"726,51285-0916-02 ",.02)
  1. ;;51285-0916-02
  1. ;;9002226.02101,"726,51285-0916-05 ",.01)
  1. ;;51285-0916-05
  1. ;;9002226.02101,"726,51285-0916-05 ",.02)
  1. ;;51285-0916-05
  1. ;;9002226.02101,"726,51655-0080-21 ",.01)
  1. ;;51655-0080-21
  1. ;;9002226.02101,"726,51655-0080-21 ",.02)
  1. ;;51655-0080-21
  1. ;;9002226.02101,"726,51655-0276-24 ",.01)
  1. ;;51655-0276-24
  1. ;;9002226.02101,"726,51655-0276-24 ",.02)
  1. ;;51655-0276-24
  1. ;;9002226.02101,"726,52152-0118-02 ",.01)
  1. ;;52152-0118-02
  1. ;;9002226.02101,"726,52152-0118-02 ",.02)
  1. ;;52152-0118-02
  1. ;;9002226.02101,"726,52152-0118-04 ",.01)
  1. ;;52152-0118-04
  1. ;;9002226.02101,"726,52152-0118-04 ",.02)
  1. ;;52152-0118-04
  1. ;;9002226.02101,"726,52152-0119-02 ",.01)
  1. ;;52152-0119-02
  1. ;;9002226.02101,"726,52152-0119-02 ",.02)
  1. ;;52152-0119-02
  1. ;;9002226.02101,"726,52152-0119-04 ",.01)
  1. ;;52152-0119-04
  1. ;;9002226.02101,"726,52152-0119-04 ",.02)
  1. ;;52152-0119-04
  1. ;;9002226.02101,"726,52152-0145-11 ",.01)
  1. ;;52152-0145-11
  1. ;;9002226.02101,"726,52152-0145-11 ",.02)
  1. ;;52152-0145-11
  1. ;;9002226.02101,"726,52152-0146-11 ",.01)
  1. ;;52152-0146-11
  1. ;;9002226.02101,"726,52152-0146-11 ",.02)
  1. ;;52152-0146-11
  1. ;;9002226.02101,"726,52152-0147-02 ",.01)
  1. ;;52152-0147-02
  1. ;;9002226.02101,"726,52152-0147-02 ",.02)
  1. ;;52152-0147-02
  1. ;;9002226.02101,"726,52544-0451-01 ",.01)
  1. ;;52544-0451-01
  1. ;;9002226.02101,"726,52544-0451-01 ",.02)
  1. ;;52544-0451-01
  1. ;;9002226.02101,"726,52544-0452-01 ",.01)
  1. ;;52544-0452-01
  1. ;;9002226.02101,"726,52544-0452-01 ",.02)
  1. ;;52544-0452-01
  1. ;;9002226.02101,"726,52959-0152-30 ",.01)
  1. ;;52959-0152-30
  1. ;;9002226.02101,"726,52959-0152-30 ",.02)
  1. ;;52959-0152-30
  1. ;;9002226.02101,"726,52959-0273-00 ",.01)
  1. ;;52959-0273-00
  1. ;;9002226.02101,"726,52959-0273-00 ",.02)
  1. ;;52959-0273-00
  1. ;;9002226.02101,"726,52959-0273-01 ",.01)
  1. ;;52959-0273-01
  1. ;;9002226.02101,"726,52959-0273-01 ",.02)
  1. ;;52959-0273-01
  1. ;;9002226.02101,"726,52959-0273-08 ",.01)
  1. ;;52959-0273-08
  1. ;;9002226.02101,"726,52959-0273-08 ",.02)
  1. ;;52959-0273-08
  1. ;;9002226.02101,"726,52959-0273-10 ",.01)
  1. ;;52959-0273-10
  1. ;;9002226.02101,"726,52959-0273-10 ",.02)
  1. ;;52959-0273-10
  1. ;;9002226.02101,"726,52959-0273-20 ",.01)
  1. ;;52959-0273-20
  1. ;;9002226.02101,"726,52959-0273-20 ",.02)
  1. ;;52959-0273-20
  1. ;;9002226.02101,"726,52959-0273-30 ",.01)
  1. ;;52959-0273-30
  1. ;;9002226.02101,"726,52959-0273-30 ",.02)
  1. ;;52959-0273-30
  1. ;;9002226.02101,"726,52959-0273-40 ",.01)
  1. ;;52959-0273-40
  1. ;;9002226.02101,"726,52959-0273-40 ",.02)
  1. ;;52959-0273-40
  1. ;;9002226.02101,"726,52959-0273-50 ",.01)
  1. ;;52959-0273-50
  1. ;;9002226.02101,"726,52959-0273-50 ",.02)
  1. ;;52959-0273-50
  1. ;;9002226.02101,"726,52959-0273-60 ",.01)
  1. ;;52959-0273-60
  1. ;;9002226.02101,"726,52959-0273-60 ",.02)
  1. ;;52959-0273-60
  1. ;;9002226.02101,"726,52959-0273-80 ",.01)
  1. ;;52959-0273-80
  1. ;;9002226.02101,"726,52959-0273-80 ",.02)
  1. ;;52959-0273-80
  1. ;;9002226.02101,"726,52959-0488-30 ",.01)
  1. ;;52959-0488-30
  1. ;;9002226.02101,"726,52959-0488-30 ",.02)
  1. ;;52959-0488-30
  1. ;;9002226.02101,"726,52959-0945-00 ",.01)
  1. ;;52959-0945-00
  1. ;;9002226.02101,"726,52959-0945-00 ",.02)
  1. ;;52959-0945-00
  1. ;;9002226.02101,"726,54092-0513-02 ",.01)
  1. ;;54092-0513-02
  1. ;;9002226.02101,"726,54092-0513-02 ",.02)
  1. ;;54092-0513-02
  1. ;;9002226.02101,"726,54092-0515-02 ",.01)
  1. ;;54092-0515-02
  1. ;;9002226.02101,"726,54092-0515-02 ",.02)
  1. ;;54092-0515-02
  1. ;;9002226.02101,"726,54092-0517-02 ",.01)
  1. ;;54092-0517-02
  1. ;;9002226.02101,"726,54092-0517-02 ",.02)
  1. ;;54092-0517-02
  1. ;;9002226.02101,"726,54092-0519-02 ",.01)
  1. ;;54092-0519-02
  1. ;;9002226.02101,"726,54092-0519-02 ",.02)
  1. ;;54092-0519-02
  1. ;;9002226.02101,"726,54348-0101-30 ",.01)
  1. ;;54348-0101-30
  1. ;;9002226.02101,"726,54348-0101-30 ",.02)
  1. ;;54348-0101-30
  1. ;;9002226.02101,"726,54348-0102-30 ",.01)
  1. ;;54348-0102-30
  1. ;;9002226.02101,"726,54348-0102-30 ",.02)
  1. ;;54348-0102-30
  1. ;;9002226.02101,"726,54348-0107-12 ",.01)
  1. ;;54348-0107-12
  1. ;;9002226.02101,"726,54348-0107-12 ",.02)
  1. ;;54348-0107-12
  1. ;;9002226.02101,"726,54569-0483-00 ",.01)
  1. ;;54569-0483-00
  1. ;;9002226.02101,"726,54569-0483-00 ",.02)
  1. ;;54569-0483-00
  1. ;;9002226.02101,"726,54569-0483-01 ",.01)
  1. ;;54569-0483-01
  1. ;;9002226.02101,"726,54569-0483-01 ",.02)
  1. ;;54569-0483-01
  1. ;;9002226.02101,"726,54569-0483-03 ",.01)
  1. ;;54569-0483-03
  1. ;;9002226.02101,"726,54569-0483-03 ",.02)
  1. ;;54569-0483-03
  1. ;;9002226.02101,"726,54569-0483-04 ",.01)
  1. ;;54569-0483-04
  1. ;;9002226.02101,"726,54569-0483-04 ",.02)
  1. ;;54569-0483-04
  1. ;;9002226.02101,"726,54569-0483-05 ",.01)
  1. ;;54569-0483-05
  1. ;;9002226.02101,"726,54569-0483-05 ",.02)
  1. ;;54569-0483-05
  1. ;;9002226.02101,"726,54569-0484-00 ",.01)
  1. ;;54569-0484-00
  1. ;;9002226.02101,"726,54569-0484-00 ",.02)
  1. ;;54569-0484-00
  1. ;;9002226.02101,"726,54569-0484-01 ",.01)
  1. ;;54569-0484-01
  1. ;;9002226.02101,"726,54569-0484-01 ",.02)
  1. ;;54569-0484-01
  1. ;;9002226.02101,"726,54569-0484-03 ",.01)
  1. ;;54569-0484-03
  1. ;;9002226.02101,"726,54569-0484-03 ",.02)
  1. ;;54569-0484-03
  1. ;;9002226.02101,"726,54569-0508-00 ",.01)
  1. ;;54569-0508-00
  1. ;;9002226.02101,"726,54569-0508-00 ",.02)
  1. ;;54569-0508-00
  1. ;;9002226.02101,"726,54569-0508-01 ",.01)
  1. ;;54569-0508-01
  1. ;;9002226.02101,"726,54569-0508-01 ",.02)
  1. ;;54569-0508-01
  1. ;;9002226.02101,"726,54569-0510-00 ",.01)
  1. ;;54569-0510-00
  1. ;;9002226.02101,"726,54569-0510-00 ",.02)
  1. ;;54569-0510-00
  1. ;;9002226.02101,"726,54569-0513-01 ",.01)
  1. ;;54569-0513-01
  1. ;;9002226.02101,"726,54569-0513-01 ",.02)
  1. ;;54569-0513-01
  1. ;;9002226.02101,"726,54569-0597-00 ",.01)
  1. ;;54569-0597-00
  1. ;;9002226.02101,"726,54569-0597-00 ",.02)
  1. ;;54569-0597-00
  1. ;;9002226.02101,"726,54569-0643-04 ",.01)
  1. ;;54569-0643-04
  1. ;;9002226.02101,"726,54569-0643-04 ",.02)
  1. ;;54569-0643-04
  1. ;;9002226.02101,"726,54569-0643-06 ",.01)
  1. ;;54569-0643-06
  1. ;;9002226.02101,"726,54569-0643-06 ",.02)
  1. ;;54569-0643-06
  1. ;;9002226.02101,"726,54569-1523-00 ",.01)
  1. ;;54569-1523-00
  1. ;;9002226.02101,"726,54569-1523-00 ",.02)
  1. ;;54569-1523-00
  1. ;;9002226.02101,"726,54569-1523-01 ",.01)
  1. ;;54569-1523-01
  1. ;;9002226.02101,"726,54569-1523-01 ",.02)
  1. ;;54569-1523-01
  1. ;;9002226.02101,"726,54569-3121-00 ",.01)
  1. ;;54569-3121-00
  1. ;;9002226.02101,"726,54569-3121-00 ",.02)
  1. ;;54569-3121-00
  1. ;;9002226.02101,"726,54569-3121-01 ",.01)
  1. ;;54569-3121-01
  1. ;;9002226.02101,"726,54569-3121-01 ",.02)
  1. ;;54569-3121-01
  1. ;;9002226.02101,"726,54569-3121-02 ",.01)
  1. ;;54569-3121-02
  1. ;;9002226.02101,"726,54569-3121-02 ",.02)
  1. ;;54569-3121-02
  1. ;;9002226.02101,"726,54569-3121-03 ",.01)
  1. ;;54569-3121-03
  1. ;;9002226.02101,"726,54569-3121-03 ",.02)
  1. ;;54569-3121-03
  1. ;;9002226.02101,"726,54569-3121-04 ",.01)
  1. ;;54569-3121-04
  1. ;;9002226.02101,"726,54569-3121-04 ",.02)
  1. ;;54569-3121-04
  1. ;;9002226.02101,"726,54569-3121-05 ",.01)
  1. ;;54569-3121-05
  1. ;;9002226.02101,"726,54569-3121-05 ",.02)
  1. ;;54569-3121-05
  1. ;;9002226.02101,"726,54569-3122-02 ",.01)
  1. ;;54569-3122-02
  1. ;;9002226.02101,"726,54569-3122-02 ",.02)
  1. ;;54569-3122-02
  1. ;;9002226.02101,"726,54569-3265-01 ",.01)
  1. ;;54569-3265-01
  1. ;;9002226.02101,"726,54569-3265-01 ",.02)
  1. ;;54569-3265-01
  1. ;;9002226.02101,"726,54569-5758-00 ",.01)
  1. ;;54569-5758-00
  1. ;;9002226.02101,"726,54569-5758-00 ",.02)
  1. ;;54569-5758-00
  1. ;;9002226.02101,"726,54569-5758-01 ",.01)
  1. ;;54569-5758-01
  1. ;;9002226.02101,"726,54569-5758-01 ",.02)
  1. ;;54569-5758-01
  1. ;;9002226.02101,"726,54868-0050-01 ",.01)
  1. ;;54868-0050-01
  1. ;;9002226.02101,"726,54868-0050-01 ",.02)
  1. ;;54868-0050-01
  1. ;;9002226.02101,"726,54868-0050-02 ",.01)
  1. ;;54868-0050-02
  1. ;;9002226.02101,"726,54868-0050-02 ",.02)
  1. ;;54868-0050-02
  1. ;;9002226.02101,"726,54868-0050-03 ",.01)
  1. ;;54868-0050-03
  1. ;;9002226.02101,"726,54868-0050-03 ",.02)
  1. ;;54868-0050-03
  1. ;;9002226.02101,"726,54868-0050-04 ",.01)
  1. ;;54868-0050-04
  1. ;;9002226.02101,"726,54868-0050-04 ",.02)
  1. ;;54868-0050-04
  1. ;;9002226.02101,"726,54868-0055-00 ",.01)
  1. ;;54868-0055-00
  1. ;;9002226.02101,"726,54868-0055-00 ",.02)
  1. ;;54868-0055-00
  1. ;;9002226.02101,"726,54868-0055-02 ",.01)
  1. ;;54868-0055-02
  1. ;;9002226.02101,"726,54868-0055-02 ",.02)
  1. ;;54868-0055-02
  1. ;;9002226.02101,"726,54868-0683-01 ",.01)
  1. ;;54868-0683-01
  1. ;;9002226.02101,"726,54868-0683-01 ",.02)
  1. ;;54868-0683-01
  1. ;;9002226.02101,"726,54868-0683-02 ",.01)
  1. ;;54868-0683-02
  1. ;;9002226.02101,"726,54868-0683-02 ",.02)
  1. ;;54868-0683-02
  1. ;;9002226.02101,"726,54868-0683-04 ",.01)
  1. ;;54868-0683-04
  1. ;;9002226.02101,"726,54868-0683-04 ",.02)
  1. ;;54868-0683-04
  1. ;;9002226.02101,"726,54868-0692-00 ",.01)
  1. ;;54868-0692-00
  1. ;;9002226.02101,"726,54868-0692-00 ",.02)
  1. ;;54868-0692-00
  1. ;;9002226.02101,"726,54868-0790-02 ",.01)
  1. ;;54868-0790-02
  1. ;;9002226.02101,"726,54868-0790-02 ",.02)
  1. ;;54868-0790-02
  1. ;;9002226.02101,"726,54868-0790-03 ",.01)
  1. ;;54868-0790-03
  1. ;;9002226.02101,"726,54868-0790-03 ",.02)
  1. ;;54868-0790-03
  1. ;;9002226.02101,"726,54868-0790-05 ",.01)
  1. ;;54868-0790-05
  1. ;;9002226.02101,"726,54868-0790-05 ",.02)
  1. ;;54868-0790-05
  1. ;;9002226.02101,"726,54868-0930-01 ",.01)
  1. ;;54868-0930-01
  1. ;;9002226.02101,"726,54868-0930-01 ",.02)
  1. ;;54868-0930-01
  1. ;;9002226.02101,"726,54868-1310-01 ",.01)
  1. ;;54868-1310-01
  1. ;;9002226.02101,"726,54868-1310-01 ",.02)
  1. ;;54868-1310-01
  1. ;;9002226.02101,"726,54868-1326-00 ",.01)
  1. ;;54868-1326-00
  1. ;;9002226.02101,"726,54868-1326-00 ",.02)
  1. ;;54868-1326-00
  1. ;;9002226.02101,"726,54868-1326-02 ",.01)
  1. ;;54868-1326-02
  1. ;;9002226.02101,"726,54868-1326-02 ",.02)
  1. ;;54868-1326-02
  1. ;;9002226.02101,"726,54868-1326-03 ",.01)
  1. ;;54868-1326-03
  1. ;;9002226.02101,"726,54868-1326-03 ",.02)
  1. ;;54868-1326-03
  1. ;;9002226.02101,"726,54868-1326-04 ",.01)
  1. ;;54868-1326-04
  1. ;;9002226.02101,"726,54868-1326-04 ",.02)
  1. ;;54868-1326-04
  1. ;;9002226.02101,"726,54868-1326-05 ",.01)
  1. ;;54868-1326-05
  1. ;;9002226.02101,"726,54868-1326-05 ",.02)
  1. ;;54868-1326-05
  1. ;;9002226.02101,"726,54868-1326-06 ",.01)
  1. ;;54868-1326-06
  1. ;;9002226.02101,"726,54868-1326-06 ",.02)
  1. ;;54868-1326-06
  1. ;;9002226.02101,"726,54868-1326-07 ",.01)
  1. ;;54868-1326-07
  1. ;;9002226.02101,"726,54868-1326-07 ",.02)
  1. ;;54868-1326-07
  1. ;;9002226.02101,"726,54868-1328-00 ",.01)
  1. ;;54868-1328-00
  1. ;;9002226.02101,"726,54868-1328-00 ",.02)
  1. ;;54868-1328-00
  1. ;;9002226.02101,"726,54868-1328-01 ",.01)
  1. ;;54868-1328-01
  1. ;;9002226.02101,"726,54868-1328-01 ",.02)
  1. ;;54868-1328-01
  1. ;;9002226.02101,"726,54868-1328-02 ",.01)
  1. ;;54868-1328-02
  1. ;;9002226.02101,"726,54868-1328-02 ",.02)
  1. ;;54868-1328-02
  1. ;;9002226.02101,"726,54868-1328-03 ",.01)
  1. ;;54868-1328-03
  1. ;;9002226.02101,"726,54868-1328-03 ",.02)
  1. ;;54868-1328-03
  1. ;;9002226.02101,"726,54868-1521-00 ",.01)
  1. ;;54868-1521-00
  1. ;;9002226.02101,"726,54868-1521-00 ",.02)
  1. ;;54868-1521-00
  1. ;;9002226.02101,"726,54868-1521-02 ",.01)
  1. ;;54868-1521-02