TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
;;1.0;TEXT INTEGRATION UTILITIES;**200,228**;Jun 20, 1997
Q
DELETE ;
D FULL^VALM1
W ! I $$READ^TIUU("Y","Are you sure you wish to delete this message") D
. K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U))
. W !!,"Message deleted."
W ! I $$READ^TIUU("EA","Press <RETURN> to continue")
Q
REPROC ;
N HL771RF,HL771SF,HLCS,HLDOM,HLINSTN,HLPARAM,HLPID,HLREC,HLRFREQ,HLSFREQ
D FULL^VALM1
W !!,"Reprocessing message..."
I '$$REPROC^HLUTIL($P(TIUMSG(TIUSEL),U),"PROCMSG^TIUHL7P1") W !,"finished.",! I $$READ^TIUU("EA","Press <RETURN> to continue") Q
W "ERROR. Unable to reprocess this message.",!
I $$READ^TIUU("EA","Press <RETURN> to continue")
Q
EN ; main entry point for TIUHL7 MSG VIEW
N TIULVL
D EN^VALM("TIUHL7 MSG VIEW")
K ^TMP("VALMAR",$J,TIULVL)
Q
HDR ;
Q
INIT ;
N TIULINE,TIUX
S TIULVL=VALMEVL,VALMCNT=0
F TIUX="MSGRESULT","MSG" D
. N TIUCNT,TIUTEXT,TIUVAL S TIUVAL=80 ; TIUVAL is column width for display in LM - each line will be <=TIUVAL
. S TIULINE="" F S TIULINE=$O(^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)) Q:'+TIULINE D
. . S TIUTEXT=^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)
. . F TIUCNT=1:1:(($L(TIUTEXT)\TIUVAL)+1) S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,$E(TIUTEXT,(TIUVAL*(TIUCNT-1)+1),(TIUVAL*TIUCNT)))
. S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,"")
Q
HELP ; help code
I X="?" S POP=1
D FULL^VALM1
W !!,"The following actions are available:"
W !!,"Delete Message - Delete the current message"
W !,"Reprocess Message - Reprocess the current message",!
I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue")
S VALMBCK="R",POP=0
Q
EXIT ; exit code
Q
EXPND ; expand code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUHL7A 1803 printed Dec 13, 2024@02:41:38 Page 2
TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**200,228**;Jun 20, 1997
+2 QUIT
DELETE ;
+1 DO FULL^VALM1
+2 WRITE !
IF $$READ^TIUU("Y","Are you sure you wish to delete this message")
Begin DoDot:1
+3 KILL ^XTMP("TIUHL7",$PIECE(TIUMSG(TIUSEL),U,2),$PIECE(TIUMSG(TIUSEL),U))
+4 WRITE !!,"Message deleted."
End DoDot:1
+5 WRITE !
IF $$READ^TIUU("EA","Press <RETURN> to continue")
+6 QUIT
REPROC ;
+1 NEW HL771RF,HL771SF,HLCS,HLDOM,HLINSTN,HLPARAM,HLPID,HLREC,HLRFREQ,HLSFREQ
+2 DO FULL^VALM1
+3 WRITE !!,"Reprocessing message..."
+4 IF '$$REPROC^HLUTIL($PIECE(TIUMSG(TIUSEL),U),"PROCMSG^TIUHL7P1")
WRITE !,"finished.",!
IF $$READ^TIUU("EA","Press <RETURN> to continue")
QUIT
+5 WRITE "ERROR. Unable to reprocess this message.",!
+6 IF $$READ^TIUU("EA","Press <RETURN> to continue")
+7 QUIT
EN ; main entry point for TIUHL7 MSG VIEW
+1 NEW TIULVL
+2 DO EN^VALM("TIUHL7 MSG VIEW")
+3 KILL ^TMP("VALMAR",$JOB,TIULVL)
+4 QUIT
HDR ;
+1 QUIT
INIT ;
+1 NEW TIULINE,TIUX
+2 SET TIULVL=VALMEVL
SET VALMCNT=0
+3 FOR TIUX="MSGRESULT","MSG"
Begin DoDot:1
+4 ; TIUVAL is column width for display in LM - each line will be <=TIUVAL
NEW TIUCNT,TIUTEXT,TIUVAL
SET TIUVAL=80
+5 SET TIULINE=""
FOR
SET TIULINE=$ORDER(^XTMP("TIUHL7",$PIECE(TIUMSG(TIUSEL),U,2),$PIECE(TIUMSG(TIUSEL),U),TIUX,TIULINE))
if '+TIULINE
QUIT
Begin DoDot:2
+6 SET TIUTEXT=^XTMP("TIUHL7",$PIECE(TIUMSG(TIUSEL),U,2),$PIECE(TIUMSG(TIUSEL),U),TIUX,TIULINE)
+7 FOR TIUCNT=1:1:(($LENGTH(TIUTEXT)\TIUVAL)+1)
SET VALMCNT=VALMCNT+1
DO SET^VALM10(VALMCNT,$EXTRACT(TIUTEXT,(TIUVAL*(TIUCNT-1)+1),(TIUVAL*TIUCNT)))
End DoDot:2
+8 SET VALMCNT=VALMCNT+1
DO SET^VALM10(VALMCNT,"")
End DoDot:1
+9 QUIT
HELP ; help code
+1 IF X="?"
SET POP=1
+2 DO FULL^VALM1
+3 WRITE !!,"The following actions are available:"
+4 WRITE !!,"Delete Message - Delete the current message"
+5 WRITE !,"Reprocess Message - Reprocess the current message",!
+6 IF +$GET(POP)
IF $$READ^TIUU("EA","Press <RETURN> to continue")
+7 SET VALMBCK="R"
SET POP=0
+8 QUIT
EXIT ; exit code
+1 QUIT
EXPND ; expand code
+1 QUIT
