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

HLCSRQ.m

Go to the documentation of this file.
  1. HLCSRQ ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 3; 20-JUN-1995
  1. ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
  1. EN ; -- main entry point
  1. D EN^VALM("HL MESSAGE REQUEUER - 3")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. N TMP,NAME
  1. S TMP=$G(^HLCS(870,MATCH,0))
  1. S NAME=$P(TMP,"^",1)
  1. S:(NAME="") NAME="UNKNOWN"
  1. S TMP="Selected Message from Logical Link "_NAME
  1. S VALMHDR(1)=$$SETSTR^VALM1(TMP,"",(40-($L(TMP)\2)),$L(TMP))
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N X,ENTRY,COUNTER
  1. Q:('$D(LLE))
  1. Q:('$D(MATCH))
  1. S ENTRY="",COUNTER=0
  1. F S ENTRY=$O(LLE(ENTRY)) Q:(ENTRY="") D
  1. .S IDX=LLE(ENTRY)
  1. .S X=0
  1. .S COUNTER=COUNTER+1
  1. .F S X=$O(^HLCS(870,MATCH,2,IDX,1,X)) Q:(X="") D
  1. ..S COUNTER=COUNTER+1
  1. ..S LINE=$G(^HLCS(870,MATCH,2,IDX,1,X,0))
  1. ..D SET^VALM10(COUNTER,LINE)
  1. S VALMCNT=COUNTER
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;