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

BGP21L44.m

Go to the documentation of this file.
  1. BGP21L44 ;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,"1201,67544-1001-60 ",.01)
  1. ;;67544-1001-60
  1. ;;9002226.02101,"1201,67544-1001-60 ",.02)
  1. ;;67544-1001-60
  1. ;;9002226.02101,"1201,67544-1003-15 ",.01)
  1. ;;67544-1003-15
  1. ;;9002226.02101,"1201,67544-1003-15 ",.02)
  1. ;;67544-1003-15
  1. ;;9002226.02101,"1201,67544-1003-45 ",.01)
  1. ;;67544-1003-45
  1. ;;9002226.02101,"1201,67544-1003-45 ",.02)
  1. ;;67544-1003-45
  1. ;;9002226.02101,"1201,67544-1003-53 ",.01)
  1. ;;67544-1003-53
  1. ;;9002226.02101,"1201,67544-1003-53 ",.02)
  1. ;;67544-1003-53
  1. ;;9002226.02101,"1201,67544-1029-99 ",.01)
  1. ;;67544-1029-99
  1. ;;9002226.02101,"1201,67544-1029-99 ",.02)
  1. ;;67544-1029-99
  1. ;;9002226.02101,"1201,67544-1030-99 ",.01)
  1. ;;67544-1030-99
  1. ;;9002226.02101,"1201,67544-1030-99 ",.02)
  1. ;;67544-1030-99
  1. ;;9002226.02101,"1201,67544-1032-15 ",.01)
  1. ;;67544-1032-15
  1. ;;9002226.02101,"1201,67544-1032-15 ",.02)
  1. ;;67544-1032-15
  1. ;;9002226.02101,"1201,67544-1032-45 ",.01)
  1. ;;67544-1032-45
  1. ;;9002226.02101,"1201,67544-1032-45 ",.02)
  1. ;;67544-1032-45
  1. ;;9002226.02101,"1201,67544-1032-82 ",.01)
  1. ;;67544-1032-82
  1. ;;9002226.02101,"1201,67544-1032-82 ",.02)
  1. ;;67544-1032-82
  1. ;;9002226.02101,"1201,67544-1032-99 ",.01)
  1. ;;67544-1032-99
  1. ;;9002226.02101,"1201,67544-1032-99 ",.02)
  1. ;;67544-1032-99
  1. ;;9002226.02101,"1201,67544-1078-30 ",.01)
  1. ;;67544-1078-30
  1. ;;9002226.02101,"1201,67544-1078-30 ",.02)
  1. ;;67544-1078-30
  1. ;;9002226.02101,"1201,67544-1254-15 ",.01)
  1. ;;67544-1254-15
  1. ;;9002226.02101,"1201,67544-1254-15 ",.02)
  1. ;;67544-1254-15
  1. ;;9002226.02101,"1201,67544-1254-45 ",.01)
  1. ;;67544-1254-45
  1. ;;9002226.02101,"1201,67544-1254-45 ",.02)
  1. ;;67544-1254-45
  1. ;;9002226.02101,"1201,67544-1255-15 ",.01)
  1. ;;67544-1255-15
  1. ;;9002226.02101,"1201,67544-1255-15 ",.02)
  1. ;;67544-1255-15
  1. ;;9002226.02101,"1201,67544-1255-30 ",.01)
  1. ;;67544-1255-30
  1. ;;9002226.02101,"1201,67544-1255-30 ",.02)
  1. ;;67544-1255-30
  1. ;;9002226.02101,"1201,67544-1255-45 ",.01)
  1. ;;67544-1255-45
  1. ;;9002226.02101,"1201,67544-1255-45 ",.02)
  1. ;;67544-1255-45
  1. ;;9002226.02101,"1201,67544-1255-60 ",.01)
  1. ;;67544-1255-60
  1. ;;9002226.02101,"1201,67544-1255-60 ",.02)
  1. ;;67544-1255-60
  1. ;;9002226.02101,"1201,67544-1256-15 ",.01)
  1. ;;67544-1256-15
  1. ;;9002226.02101,"1201,67544-1256-15 ",.02)
  1. ;;67544-1256-15
  1. ;;9002226.02101,"1201,67544-1256-30 ",.01)
  1. ;;67544-1256-30
  1. ;;9002226.02101,"1201,67544-1256-30 ",.02)
  1. ;;67544-1256-30
  1. ;;9002226.02101,"1201,67544-1256-45 ",.01)
  1. ;;67544-1256-45
  1. ;;9002226.02101,"1201,67544-1256-45 ",.02)
  1. ;;67544-1256-45
  1. ;;9002226.02101,"1201,67544-1257-45 ",.01)
  1. ;;67544-1257-45
  1. ;;9002226.02101,"1201,67544-1257-45 ",.02)
  1. ;;67544-1257-45
  1. ;;9002226.02101,"1201,67544-1257-60 ",.01)
  1. ;;67544-1257-60
  1. ;;9002226.02101,"1201,67544-1257-60 ",.02)
  1. ;;67544-1257-60
  1. ;;9002226.02101,"1201,68071-0154-30 ",.01)
  1. ;;68071-0154-30
  1. ;;9002226.02101,"1201,68071-0154-30 ",.02)
  1. ;;68071-0154-30
  1. ;;9002226.02101,"1201,68071-0263-30 ",.01)
  1. ;;68071-0263-30
  1. ;;9002226.02101,"1201,68071-0263-30 ",.02)
  1. ;;68071-0263-30
  1. ;;9002226.02101,"1201,68071-0310-30 ",.01)
  1. ;;68071-0310-30
  1. ;;9002226.02101,"1201,68071-0310-30 ",.02)
  1. ;;68071-0310-30
  1. ;;9002226.02101,"1201,68071-0399-30 ",.01)
  1. ;;68071-0399-30
  1. ;;9002226.02101,"1201,68071-0399-30 ",.02)
  1. ;;68071-0399-30
  1. ;;9002226.02101,"1201,68071-0433-30 ",.01)
  1. ;;68071-0433-30
  1. ;;9002226.02101,"1201,68071-0433-30 ",.02)
  1. ;;68071-0433-30
  1. ;;9002226.02101,"1201,68071-0784-30 ",.01)
  1. ;;68071-0784-30
  1. ;;9002226.02101,"1201,68071-0784-30 ",.02)
  1. ;;68071-0784-30
  1. ;;9002226.02101,"1201,68084-0131-01 ",.01)
  1. ;;68084-0131-01
  1. ;;9002226.02101,"1201,68084-0131-01 ",.02)
  1. ;;68084-0131-01
  1. ;;9002226.02101,"1201,68084-0131-11 ",.01)
  1. ;;68084-0131-11
  1. ;;9002226.02101,"1201,68084-0131-11 ",.02)
  1. ;;68084-0131-11
  1. ;;9002226.02101,"1201,68084-0132-01 ",.01)
  1. ;;68084-0132-01
  1. ;;9002226.02101,"1201,68084-0132-01 ",.02)
  1. ;;68084-0132-01
  1. ;;9002226.02101,"1201,68084-0132-11 ",.01)
  1. ;;68084-0132-11
  1. ;;9002226.02101,"1201,68084-0132-11 ",.02)
  1. ;;68084-0132-11
  1. ;;9002226.02101,"1201,68084-0133-01 ",.01)
  1. ;;68084-0133-01
  1. ;;9002226.02101,"1201,68084-0133-01 ",.02)
  1. ;;68084-0133-01
  1. ;;9002226.02101,"1201,68084-0133-11 ",.01)
  1. ;;68084-0133-11
  1. ;;9002226.02101,"1201,68084-0133-11 ",.02)
  1. ;;68084-0133-11
  1. ;;9002226.02101,"1201,68084-0161-01 ",.01)
  1. ;;68084-0161-01
  1. ;;9002226.02101,"1201,68084-0161-01 ",.02)
  1. ;;68084-0161-01
  1. ;;9002226.02101,"1201,68084-0161-11 ",.01)
  1. ;;68084-0161-11
  1. ;;9002226.02101,"1201,68084-0161-11 ",.02)
  1. ;;68084-0161-11
  1. ;;9002226.02101,"1201,68084-0162-01 ",.01)
  1. ;;68084-0162-01
  1. ;;9002226.02101,"1201,68084-0162-01 ",.02)
  1. ;;68084-0162-01
  1. ;;9002226.02101,"1201,68084-0162-11 ",.01)
  1. ;;68084-0162-11
  1. ;;9002226.02101,"1201,68084-0162-11 ",.02)
  1. ;;68084-0162-11
  1. ;;9002226.02101,"1201,68084-0163-01 ",.01)
  1. ;;68084-0163-01
  1. ;;9002226.02101,"1201,68084-0163-01 ",.02)
  1. ;;68084-0163-01
  1. ;;9002226.02101,"1201,68084-0163-11 ",.01)
  1. ;;68084-0163-11
  1. ;;9002226.02101,"1201,68084-0163-11 ",.02)
  1. ;;68084-0163-11
  1. ;;9002226.02101,"1201,68084-0164-01 ",.01)
  1. ;;68084-0164-01
  1. ;;9002226.02101,"1201,68084-0164-01 ",.02)
  1. ;;68084-0164-01
  1. ;;9002226.02101,"1201,68084-0164-11 ",.01)
  1. ;;68084-0164-11
  1. ;;9002226.02101,"1201,68084-0164-11 ",.02)
  1. ;;68084-0164-11
  1. ;;9002226.02101,"1201,68084-0165-01 ",.01)
  1. ;;68084-0165-01