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

BGP13U5.m

Go to the documentation of this file.
  1. BGP13U5 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  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,"997,62022-0770-30 ",.02)
  1. ;;62022-0770-30
  1. ;;9002226.02101,"997,62022-0780-30 ",.01)
  1. ;;62022-0780-30
  1. ;;9002226.02101,"997,62022-0780-30 ",.02)
  1. ;;62022-0780-30
  1. ;;9002226.02101,"997,62022-0781-30 ",.01)
  1. ;;62022-0781-30
  1. ;;9002226.02101,"997,62022-0781-30 ",.02)
  1. ;;62022-0781-30
  1. ;;9002226.02101,"997,63739-0280-15 ",.01)
  1. ;;63739-0280-15
  1. ;;9002226.02101,"997,63739-0280-15 ",.02)
  1. ;;63739-0280-15
  1. ;;9002226.02101,"997,63739-0281-15 ",.01)
  1. ;;63739-0281-15
  1. ;;9002226.02101,"997,63739-0281-15 ",.02)
  1. ;;63739-0281-15
  1. ;;9002226.02101,"997,66116-0238-30 ",.01)
  1. ;;66116-0238-30
  1. ;;9002226.02101,"997,66116-0238-30 ",.02)
  1. ;;66116-0238-30
  1. ;;9002226.02101,"997,66116-0276-30 ",.01)
  1. ;;66116-0276-30
  1. ;;9002226.02101,"997,66116-0276-30 ",.02)
  1. ;;66116-0276-30
  1. ;;9002226.02101,"997,66116-0277-30 ",.01)
  1. ;;66116-0277-30
  1. ;;9002226.02101,"997,66116-0277-30 ",.02)
  1. ;;66116-0277-30
  1. ;;9002226.02101,"997,66116-0451-30 ",.01)
  1. ;;66116-0451-30
  1. ;;9002226.02101,"997,66116-0451-30 ",.02)
  1. ;;66116-0451-30
  1. ;;9002226.02101,"997,66582-0311-31 ",.01)
  1. ;;66582-0311-31
  1. ;;9002226.02101,"997,66582-0311-31 ",.02)
  1. ;;66582-0311-31
  1. ;;9002226.02101,"997,66582-0311-54 ",.01)
  1. ;;66582-0311-54
  1. ;;9002226.02101,"997,66582-0311-54 ",.02)
  1. ;;66582-0311-54
  1. ;;9002226.02101,"997,66582-0311-82 ",.01)
  1. ;;66582-0311-82
  1. ;;9002226.02101,"997,66582-0311-82 ",.02)
  1. ;;66582-0311-82
  1. ;;9002226.02101,"997,66582-0312-31 ",.01)
  1. ;;66582-0312-31
  1. ;;9002226.02101,"997,66582-0312-31 ",.02)
  1. ;;66582-0312-31
  1. ;;9002226.02101,"997,66582-0312-54 ",.01)
  1. ;;66582-0312-54
  1. ;;9002226.02101,"997,66582-0312-54 ",.02)
  1. ;;66582-0312-54
  1. ;;9002226.02101,"997,66582-0312-82 ",.01)
  1. ;;66582-0312-82
  1. ;;9002226.02101,"997,66582-0312-82 ",.02)
  1. ;;66582-0312-82
  1. ;;9002226.02101,"997,66582-0313-31 ",.01)
  1. ;;66582-0313-31
  1. ;;9002226.02101,"997,66582-0313-31 ",.02)
  1. ;;66582-0313-31
  1. ;;9002226.02101,"997,66582-0313-52 ",.01)
  1. ;;66582-0313-52
  1. ;;9002226.02101,"997,66582-0313-52 ",.02)
  1. ;;66582-0313-52
  1. ;;9002226.02101,"997,66582-0313-54 ",.01)
  1. ;;66582-0313-54
  1. ;;9002226.02101,"997,66582-0313-54 ",.02)
  1. ;;66582-0313-54
  1. ;;9002226.02101,"997,66582-0313-74 ",.01)
  1. ;;66582-0313-74
  1. ;;9002226.02101,"997,66582-0313-74 ",.02)
  1. ;;66582-0313-74
  1. ;;9002226.02101,"997,66582-0315-31 ",.01)
  1. ;;66582-0315-31
  1. ;;9002226.02101,"997,66582-0315-31 ",.02)
  1. ;;66582-0315-31
  1. ;;9002226.02101,"997,66582-0315-54 ",.01)
  1. ;;66582-0315-54
  1. ;;9002226.02101,"997,66582-0315-54 ",.02)
  1. ;;66582-0315-54
  1. ;;9002226.02101,"997,66582-0315-74 ",.01)
  1. ;;66582-0315-74
  1. ;;9002226.02101,"997,66582-0315-74 ",.02)
  1. ;;66582-0315-74
  1. ;;9002226.02101,"997,68030-8615-01 ",.01)
  1. ;;68030-8615-01
  1. ;;9002226.02101,"997,68030-8615-01 ",.02)
  1. ;;68030-8615-01
  1. ;;9002226.02101,"997,68115-0218-30 ",.01)
  1. ;;68115-0218-30
  1. ;;9002226.02101,"997,68115-0218-30 ",.02)
  1. ;;68115-0218-30
  1. ;;9002226.02101,"997,68115-0219-30 ",.01)
  1. ;;68115-0219-30
  1. ;;9002226.02101,"997,68115-0219-30 ",.02)
  1. ;;68115-0219-30
  1. ;;9002226.02101,"997,68115-0219-60 ",.01)
  1. ;;68115-0219-60
  1. ;;9002226.02101,"997,68115-0219-60 ",.02)
  1. ;;68115-0219-60
  1. ;;9002226.02101,"997,68115-0658-00 ",.01)
  1. ;;68115-0658-00
  1. ;;9002226.02101,"997,68115-0658-00 ",.02)
  1. ;;68115-0658-00
  1. ;;9002226.02101,"997,68115-0664-90 ",.01)
  1. ;;68115-0664-90
  1. ;;9002226.02101,"997,68115-0664-90 ",.02)
  1. ;;68115-0664-90
  1. ;;9002226.02101,"997,68115-0668-90 ",.01)
  1. ;;68115-0668-90
  1. ;;9002226.02101,"997,68115-0668-90 ",.02)
  1. ;;68115-0668-90
  1. ;;9002226.02101,"997,68115-0672-30 ",.01)
  1. ;;68115-0672-30
  1. ;;9002226.02101,"997,68115-0672-30 ",.02)
  1. ;;68115-0672-30
  1. ;;9002226.02101,"997,68115-0720-30 ",.01)
  1. ;;68115-0720-30
  1. ;;9002226.02101,"997,68115-0720-30 ",.02)
  1. ;;68115-0720-30
  1. ;;9002226.02101,"997,68115-0759-30 ",.01)
  1. ;;68115-0759-30
  1. ;;9002226.02101,"997,68115-0759-30 ",.02)
  1. ;;68115-0759-30
  1. ;;9002226.02101,"997,68115-0777-90 ",.01)
  1. ;;68115-0777-90
  1. ;;9002226.02101,"997,68115-0777-90 ",.02)
  1. ;;68115-0777-90
  1. ;;9002226.02101,"997,68115-0800-90 ",.01)
  1. ;;68115-0800-90
  1. ;;9002226.02101,"997,68115-0800-90 ",.02)
  1. ;;68115-0800-90
  1. ;;9002226.02101,"997,68115-0836-90 ",.01)
  1. ;;68115-0836-90
  1. ;;9002226.02101,"997,68115-0836-90 ",.02)
  1. ;;68115-0836-90