49 lines
1.7 KiB
Mathematica
49 lines
1.7 KiB
Mathematica
TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
|
|
;;1.0;TEXT INTEGRATION UTILITIES;**200**;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 ^XTMP("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
|