HLCSRQ ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 3; 20-JUN-1995
;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
EN ; -- main entry point
D EN^VALM("HL MESSAGE REQUEUER - 3")
Q
;
HDR ; -- header code
N TMP,NAME
S TMP=$G(^HLCS(870,MATCH,0))
S NAME=$P(TMP,"^",1)
S:(NAME="") NAME="UNKNOWN"
S TMP="Selected Message from Logical Link "_NAME
S VALMHDR(1)=$$SETSTR^VALM1(TMP,"",(40-($L(TMP)\2)),$L(TMP))
Q
;
INIT ; -- init variables and list array
N X,ENTRY,COUNTER
Q:('$D(LLE))
Q:('$D(MATCH))
S ENTRY="",COUNTER=0
F S ENTRY=$O(LLE(ENTRY)) Q:(ENTRY="") D
.S IDX=LLE(ENTRY)
.S X=0
.S COUNTER=COUNTER+1
.F S X=$O(^HLCS(870,MATCH,2,IDX,1,X)) Q:(X="") D
..S COUNTER=COUNTER+1
..S LINE=$G(^HLCS(870,MATCH,2,IDX,1,X,0))
..D SET^VALM10(COUNTER,LINE)
S VALMCNT=COUNTER
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLCSRQ 929 printed Sep 15, 2024@21:21:15 Page 2
HLCSRQ ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 3; 20-JUN-1995
+1 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
EN ; -- main entry point
+1 DO EN^VALM("HL MESSAGE REQUEUER - 3")
+2 QUIT
+3 ;
HDR ; -- header code
+1 NEW TMP,NAME
+2 SET TMP=$GET(^HLCS(870,MATCH,0))
+3 SET NAME=$PIECE(TMP,"^",1)
+4 if (NAME="")
SET NAME="UNKNOWN"
+5 SET TMP="Selected Message from Logical Link "_NAME
+6 SET VALMHDR(1)=$$SETSTR^VALM1(TMP,"",(40-($LENGTH(TMP)\2)),$LENGTH(TMP))
+7 QUIT
+8 ;
INIT ; -- init variables and list array
+1 NEW X,ENTRY,COUNTER
+2 if ('$DATA(LLE))
QUIT
+3 if ('$DATA(MATCH))
QUIT
+4 SET ENTRY=""
SET COUNTER=0
+5 FOR
SET ENTRY=$ORDER(LLE(ENTRY))
if (ENTRY="")
QUIT
Begin DoDot:1
+6 SET IDX=LLE(ENTRY)
+7 SET X=0
+8 SET COUNTER=COUNTER+1
+9 FOR
SET X=$ORDER(^HLCS(870,MATCH,2,IDX,1,X))
if (X="")
QUIT
Begin DoDot:2
+10 SET COUNTER=COUNTER+1
+11 SET LINE=$GET(^HLCS(870,MATCH,2,IDX,1,X,0))
+12 DO SET^VALM10(COUNTER,LINE)
End DoDot:2
End DoDot:1
+13 SET VALMCNT=COUNTER
+14 QUIT
+15 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 QUIT
+2 ;
EXPND ; -- expand code
+1 QUIT
+2 ;