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

BGP21M10.m

Go to the documentation of this file.
  1. BGP21M10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  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,"1202,52959-0546-02 ",.02)
  1. ;;52959-0546-02
  1. ;;9002226.02101,"1202,52959-0546-03 ",.01)
  1. ;;52959-0546-03
  1. ;;9002226.02101,"1202,52959-0546-03 ",.02)
  1. ;;52959-0546-03
  1. ;;9002226.02101,"1202,52959-0546-04 ",.01)
  1. ;;52959-0546-04
  1. ;;9002226.02101,"1202,52959-0546-04 ",.02)
  1. ;;52959-0546-04
  1. ;;9002226.02101,"1202,52959-0546-06 ",.01)
  1. ;;52959-0546-06
  1. ;;9002226.02101,"1202,52959-0546-06 ",.02)
  1. ;;52959-0546-06
  1. ;;9002226.02101,"1202,52959-0546-08 ",.01)
  1. ;;52959-0546-08
  1. ;;9002226.02101,"1202,52959-0546-08 ",.02)
  1. ;;52959-0546-08
  1. ;;9002226.02101,"1202,52959-0546-10 ",.01)
  1. ;;52959-0546-10
  1. ;;9002226.02101,"1202,52959-0546-10 ",.02)
  1. ;;52959-0546-10
  1. ;;9002226.02101,"1202,52959-0546-14 ",.01)
  1. ;;52959-0546-14
  1. ;;9002226.02101,"1202,52959-0546-14 ",.02)
  1. ;;52959-0546-14
  1. ;;9002226.02101,"1202,52959-0546-15 ",.01)
  1. ;;52959-0546-15
  1. ;;9002226.02101,"1202,52959-0546-15 ",.02)
  1. ;;52959-0546-15
  1. ;;9002226.02101,"1202,52959-0546-20 ",.01)
  1. ;;52959-0546-20
  1. ;;9002226.02101,"1202,52959-0546-20 ",.02)
  1. ;;52959-0546-20
  1. ;;9002226.02101,"1202,52959-0546-28 ",.01)
  1. ;;52959-0546-28
  1. ;;9002226.02101,"1202,52959-0546-28 ",.02)
  1. ;;52959-0546-28
  1. ;;9002226.02101,"1202,52959-0968-12 ",.01)
  1. ;;52959-0968-12
  1. ;;9002226.02101,"1202,52959-0968-12 ",.02)
  1. ;;52959-0968-12
  1. ;;9002226.02101,"1202,52959-0969-03 ",.01)
  1. ;;52959-0969-03
  1. ;;9002226.02101,"1202,52959-0969-03 ",.02)
  1. ;;52959-0969-03
  1. ;;9002226.02101,"1202,54348-0618-09 ",.01)
  1. ;;54348-0618-09
  1. ;;9002226.02101,"1202,54348-0618-09 ",.02)
  1. ;;54348-0618-09
  1. ;;9002226.02101,"1202,54348-0619-02 ",.01)
  1. ;;54348-0619-02
  1. ;;9002226.02101,"1202,54348-0619-02 ",.02)
  1. ;;54348-0619-02
  1. ;;9002226.02101,"1202,54569-1772-00 ",.01)
  1. ;;54569-1772-00
  1. ;;9002226.02101,"1202,54569-1772-00 ",.02)
  1. ;;54569-1772-00
  1. ;;9002226.02101,"1202,54569-1772-03 ",.01)
  1. ;;54569-1772-03
  1. ;;9002226.02101,"1202,54569-1772-03 ",.02)
  1. ;;54569-1772-03
  1. ;;9002226.02101,"1202,54569-1772-04 ",.01)
  1. ;;54569-1772-04
  1. ;;9002226.02101,"1202,54569-1772-04 ",.02)
  1. ;;54569-1772-04
  1. ;;9002226.02101,"1202,54569-1772-05 ",.01)
  1. ;;54569-1772-05
  1. ;;9002226.02101,"1202,54569-1772-05 ",.02)
  1. ;;54569-1772-05
  1. ;;9002226.02101,"1202,54569-3877-00 ",.01)
  1. ;;54569-3877-00
  1. ;;9002226.02101,"1202,54569-3877-00 ",.02)
  1. ;;54569-3877-00
  1. ;;9002226.02101,"1202,54569-3877-01 ",.01)
  1. ;;54569-3877-01
  1. ;;9002226.02101,"1202,54569-3877-01 ",.02)
  1. ;;54569-3877-01
  1. ;;9002226.02101,"1202,54569-4053-00 ",.01)
  1. ;;54569-4053-00
  1. ;;9002226.02101,"1202,54569-4053-00 ",.02)
  1. ;;54569-4053-00
  1. ;;9002226.02101,"1202,54569-4054-00 ",.01)
  1. ;;54569-4054-00
  1. ;;9002226.02101,"1202,54569-4054-00 ",.02)
  1. ;;54569-4054-00
  1. ;;9002226.02101,"1202,54569-4054-01 ",.01)
  1. ;;54569-4054-01
  1. ;;9002226.02101,"1202,54569-4054-01 ",.02)
  1. ;;54569-4054-01
  1. ;;9002226.02101,"1202,54569-4221-00 ",.01)
  1. ;;54569-4221-00
  1. ;;9002226.02101,"1202,54569-4221-00 ",.02)
  1. ;;54569-4221-00
  1. ;;9002226.02101,"1202,54569-4221-01 ",.01)
  1. ;;54569-4221-01
  1. ;;9002226.02101,"1202,54569-4221-01 ",.02)
  1. ;;54569-4221-01
  1. ;;9002226.02101,"1202,54569-4221-02 ",.01)
  1. ;;54569-4221-02
  1. ;;9002226.02101,"1202,54569-4221-02 ",.02)
  1. ;;54569-4221-02
  1. ;;9002226.02101,"1202,54569-4242-01 ",.01)
  1. ;;54569-4242-01
  1. ;;9002226.02101,"1202,54569-4242-01 ",.02)
  1. ;;54569-4242-01
  1. ;;9002226.02101,"1202,54569-4242-02 ",.01)
  1. ;;54569-4242-02
  1. ;;9002226.02101,"1202,54569-4242-02 ",.02)
  1. ;;54569-4242-02
  1. ;;9002226.02101,"1202,54569-4242-03 ",.01)
  1. ;;54569-4242-03
  1. ;;9002226.02101,"1202,54569-4242-03 ",.02)
  1. ;;54569-4242-03
  1. ;;9002226.02101,"1202,54569-4313-00 ",.01)
  1. ;;54569-4313-00
  1. ;;9002226.02101,"1202,54569-4313-00 ",.02)
  1. ;;54569-4313-00
  1. ;;9002226.02101,"1202,54569-4313-01 ",.01)
  1. ;;54569-4313-01
  1. ;;9002226.02101,"1202,54569-4313-01 ",.02)
  1. ;;54569-4313-01
  1. ;;9002226.02101,"1202,54569-4333-00 ",.01)
  1. ;;54569-4333-00
  1. ;;9002226.02101,"1202,54569-4333-00 ",.02)
  1. ;;54569-4333-00
  1. ;;9002226.02101,"1202,54569-4334-00 ",.01)
  1. ;;54569-4334-00
  1. ;;9002226.02101,"1202,54569-4334-00 ",.02)
  1. ;;54569-4334-00
  1. ;;9002226.02101,"1202,54569-4335-01 ",.01)
  1. ;;54569-4335-01
  1. ;;9002226.02101,"1202,54569-4335-01 ",.02)
  1. ;;54569-4335-01
  1. ;;9002226.02101,"1202,54569-4514-00 ",.01)
  1. ;;54569-4514-00
  1. ;;9002226.02101,"1202,54569-4514-00 ",.02)
  1. ;;54569-4514-00
  1. ;;9002226.02101,"1202,54569-4524-00 ",.01)
  1. ;;54569-4524-00
  1. ;;9002226.02101,"1202,54569-4524-00 ",.02)
  1. ;;54569-4524-00
  1. ;;9002226.02101,"1202,54569-4524-01 ",.01)
  1. ;;54569-4524-01
  1. ;;9002226.02101,"1202,54569-4524-01 ",.02)
  1. ;;54569-4524-01
  1. ;;9002226.02101,"1202,54569-4524-02 ",.01)
  1. ;;54569-4524-02
  1. ;;9002226.02101,"1202,54569-4524-02 ",.02)
  1. ;;54569-4524-02
  1. ;;9002226.02101,"1202,54569-4524-03 ",.01)
  1. ;;54569-4524-03
  1. ;;9002226.02101,"1202,54569-4524-03 ",.02)
  1. ;;54569-4524-03
  1. ;;9002226.02101,"1202,54569-4538-00 ",.01)
  1. ;;54569-4538-00
  1. ;;9002226.02101,"1202,54569-4538-00 ",.02)
  1. ;;54569-4538-00
  1. ;;9002226.02101,"1202,54569-4543-00 ",.01)
  1. ;;54569-4543-00
  1. ;;9002226.02101,"1202,54569-4543-00 ",.02)
  1. ;;54569-4543-00
  1. ;;9002226.02101,"1202,54569-4543-01 ",.01)
  1. ;;54569-4543-01
  1. ;;9002226.02101,"1202,54569-4543-01 ",.02)
  1. ;;54569-4543-01
  1. ;;9002226.02101,"1202,54569-4543-02 ",.01)
  1. ;;54569-4543-02
  1. ;;9002226.02101,"1202,54569-4543-02 ",.02)
  1. ;;54569-4543-02