source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUHL7A.m@ 1394

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