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

BGP21J37.m

Go to the documentation of this file.
  1. BGP21J37 ;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,"1199,66336-0850-60 ",.02)
  1. ;;66336-0850-60
  1. ;;9002226.02101,"1199,66336-0938-30 ",.01)
  1. ;;66336-0938-30
  1. ;;9002226.02101,"1199,66336-0938-30 ",.02)
  1. ;;66336-0938-30
  1. ;;9002226.02101,"1199,66336-0938-60 ",.01)
  1. ;;66336-0938-60
  1. ;;9002226.02101,"1199,66336-0938-60 ",.02)
  1. ;;66336-0938-60
  1. ;;9002226.02101,"1199,66993-0162-02 ",.01)
  1. ;;66993-0162-02
  1. ;;9002226.02101,"1199,66993-0162-02 ",.02)
  1. ;;66993-0162-02
  1. ;;9002226.02101,"1199,66993-0163-02 ",.01)
  1. ;;66993-0163-02
  1. ;;9002226.02101,"1199,66993-0163-02 ",.02)
  1. ;;66993-0163-02
  1. ;;9002226.02101,"1199,66993-0164-02 ",.01)
  1. ;;66993-0164-02
  1. ;;9002226.02101,"1199,66993-0164-02 ",.02)
  1. ;;66993-0164-02
  1. ;;9002226.02101,"1199,67253-0460-10 ",.01)
  1. ;;67253-0460-10
  1. ;;9002226.02101,"1199,67253-0460-10 ",.02)
  1. ;;67253-0460-10
  1. ;;9002226.02101,"1199,67253-0460-11 ",.01)
  1. ;;67253-0460-11
  1. ;;9002226.02101,"1199,67253-0460-11 ",.02)
  1. ;;67253-0460-11
  1. ;;9002226.02101,"1199,67253-0460-50 ",.01)
  1. ;;67253-0460-50
  1. ;;9002226.02101,"1199,67253-0460-50 ",.02)
  1. ;;67253-0460-50
  1. ;;9002226.02101,"1199,67253-0461-10 ",.01)
  1. ;;67253-0461-10
  1. ;;9002226.02101,"1199,67253-0461-10 ",.02)
  1. ;;67253-0461-10
  1. ;;9002226.02101,"1199,67253-0461-11 ",.01)
  1. ;;67253-0461-11
  1. ;;9002226.02101,"1199,67253-0461-11 ",.02)
  1. ;;67253-0461-11
  1. ;;9002226.02101,"1199,67253-0461-50 ",.01)
  1. ;;67253-0461-50
  1. ;;9002226.02101,"1199,67253-0461-50 ",.02)
  1. ;;67253-0461-50
  1. ;;9002226.02101,"1199,67253-0462-10 ",.01)
  1. ;;67253-0462-10
  1. ;;9002226.02101,"1199,67253-0462-10 ",.02)
  1. ;;67253-0462-10
  1. ;;9002226.02101,"1199,67253-0462-11 ",.01)
  1. ;;67253-0462-11
  1. ;;9002226.02101,"1199,67253-0462-11 ",.02)
  1. ;;67253-0462-11
  1. ;;9002226.02101,"1199,67253-0462-50 ",.01)
  1. ;;67253-0462-50
  1. ;;9002226.02101,"1199,67253-0462-50 ",.02)
  1. ;;67253-0462-50
  1. ;;9002226.02101,"1199,67544-0097-53 ",.01)
  1. ;;67544-0097-53
  1. ;;9002226.02101,"1199,67544-0097-53 ",.02)
  1. ;;67544-0097-53
  1. ;;9002226.02101,"1199,67544-0097-60 ",.01)
  1. ;;67544-0097-60
  1. ;;9002226.02101,"1199,67544-0097-60 ",.02)
  1. ;;67544-0097-60
  1. ;;9002226.02101,"1199,67544-0097-70 ",.01)
  1. ;;67544-0097-70
  1. ;;9002226.02101,"1199,67544-0097-70 ",.02)
  1. ;;67544-0097-70
  1. ;;9002226.02101,"1199,67544-0097-80 ",.01)
  1. ;;67544-0097-80
  1. ;;9002226.02101,"1199,67544-0097-80 ",.02)
  1. ;;67544-0097-80
  1. ;;9002226.02101,"1199,67544-0097-94 ",.01)
  1. ;;67544-0097-94
  1. ;;9002226.02101,"1199,67544-0097-94 ",.02)
  1. ;;67544-0097-94
  1. ;;9002226.02101,"1199,67544-0098-53 ",.01)
  1. ;;67544-0098-53
  1. ;;9002226.02101,"1199,67544-0098-53 ",.02)
  1. ;;67544-0098-53
  1. ;;9002226.02101,"1199,67544-0098-60 ",.01)
  1. ;;67544-0098-60
  1. ;;9002226.02101,"1199,67544-0098-60 ",.02)
  1. ;;67544-0098-60
  1. ;;9002226.02101,"1199,67544-0098-70 ",.01)
  1. ;;67544-0098-70
  1. ;;9002226.02101,"1199,67544-0098-70 ",.02)
  1. ;;67544-0098-70
  1. ;;9002226.02101,"1199,67544-0098-80 ",.01)
  1. ;;67544-0098-80
  1. ;;9002226.02101,"1199,67544-0098-80 ",.02)
  1. ;;67544-0098-80
  1. ;;9002226.02101,"1199,67544-0098-90 ",.01)
  1. ;;67544-0098-90
  1. ;;9002226.02101,"1199,67544-0098-90 ",.02)
  1. ;;67544-0098-90
  1. ;;9002226.02101,"1199,67544-0098-92 ",.01)
  1. ;;67544-0098-92
  1. ;;9002226.02101,"1199,67544-0098-92 ",.02)
  1. ;;67544-0098-92
  1. ;;9002226.02101,"1199,67544-0098-94 ",.01)
  1. ;;67544-0098-94
  1. ;;9002226.02101,"1199,67544-0098-94 ",.02)
  1. ;;67544-0098-94
  1. ;;9002226.02101,"1199,67544-0129-53 ",.01)
  1. ;;67544-0129-53
  1. ;;9002226.02101,"1199,67544-0129-53 ",.02)
  1. ;;67544-0129-53
  1. ;;9002226.02101,"1199,67544-0129-70 ",.01)
  1. ;;67544-0129-70
  1. ;;9002226.02101,"1199,67544-0129-70 ",.02)
  1. ;;67544-0129-70
  1. ;;9002226.02101,"1199,67544-0129-80 ",.01)
  1. ;;67544-0129-80
  1. ;;9002226.02101,"1199,67544-0129-80 ",.02)
  1. ;;67544-0129-80
  1. ;;9002226.02101,"1199,67544-0129-94 ",.01)
  1. ;;67544-0129-94
  1. ;;9002226.02101,"1199,67544-0129-94 ",.02)
  1. ;;67544-0129-94
  1. ;;9002226.02101,"1199,67544-0199-80 ",.01)
  1. ;;67544-0199-80
  1. ;;9002226.02101,"1199,67544-0199-80 ",.02)
  1. ;;67544-0199-80
  1. ;;9002226.02101,"1199,67544-0296-70 ",.01)
  1. ;;67544-0296-70
  1. ;;9002226.02101,"1199,67544-0296-70 ",.02)
  1. ;;67544-0296-70
  1. ;;9002226.02101,"1199,67544-0302-45 ",.01)
  1. ;;67544-0302-45
  1. ;;9002226.02101,"1199,67544-0302-45 ",.02)
  1. ;;67544-0302-45
  1. ;;9002226.02101,"1199,67544-0302-60 ",.01)
  1. ;;67544-0302-60
  1. ;;9002226.02101,"1199,67544-0302-60 ",.02)
  1. ;;67544-0302-60
  1. ;;9002226.02101,"1199,67544-0302-80 ",.01)
  1. ;;67544-0302-80
  1. ;;9002226.02101,"1199,67544-0302-80 ",.02)
  1. ;;67544-0302-80
  1. ;;9002226.02101,"1199,67544-0364-70 ",.01)
  1. ;;67544-0364-70
  1. ;;9002226.02101,"1199,67544-0364-70 ",.02)
  1. ;;67544-0364-70
  1. ;;9002226.02101,"1199,67544-0417-70 ",.01)
  1. ;;67544-0417-70
  1. ;;9002226.02101,"1199,67544-0417-70 ",.02)
  1. ;;67544-0417-70
  1. ;;9002226.02101,"1199,67544-0478-82 ",.01)
  1. ;;67544-0478-82
  1. ;;9002226.02101,"1199,67544-0478-82 ",.02)
  1. ;;67544-0478-82
  1. ;;9002226.02101,"1199,67544-0511-70 ",.01)
  1. ;;67544-0511-70
  1. ;;9002226.02101,"1199,67544-0511-70 ",.02)
  1. ;;67544-0511-70
  1. ;;9002226.02101,"1199,67544-0548-82 ",.01)
  1. ;;67544-0548-82
  1. ;;9002226.02101,"1199,67544-0548-82 ",.02)
  1. ;;67544-0548-82
  1. ;;9002226.02101,"1199,67544-0566-53 ",.01)
  1. ;;67544-0566-53
  1. ;;9002226.02101,"1199,67544-0566-53 ",.02)
  1. ;;67544-0566-53
  1. ;;9002226.02101,"1199,67544-0566-60 ",.01)
  1. ;;67544-0566-60
  1. ;;9002226.02101,"1199,67544-0566-60 ",.02)
  1. ;;67544-0566-60