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

TIUHL7A.m

Go to the documentation of this file.
  1. TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**200,228**;Jun 20, 1997
  1. Q
  1. DELETE ;
  1. D FULL^VALM1
  1. W ! I $$READ^TIUU("Y","Are you sure you wish to delete this message") D
  1. . K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U))
  1. . W !!,"Message deleted."
  1. W ! I $$READ^TIUU("EA","Press <RETURN> to continue")
  1. Q
  1. REPROC ;
  1. N HL771RF,HL771SF,HLCS,HLDOM,HLINSTN,HLPARAM,HLPID,HLREC,HLRFREQ,HLSFREQ
  1. D FULL^VALM1
  1. W !!,"Reprocessing message..."
  1. I '$$REPROC^HLUTIL($P(TIUMSG(TIUSEL),U),"PROCMSG^TIUHL7P1") W !,"finished.",! I $$READ^TIUU("EA","Press <RETURN> to continue") Q
  1. W "ERROR. Unable to reprocess this message.",!
  1. I $$READ^TIUU("EA","Press <RETURN> to continue")
  1. Q
  1. EN ; main entry point for TIUHL7 MSG VIEW
  1. N TIULVL
  1. D EN^VALM("TIUHL7 MSG VIEW")
  1. K ^TMP("VALMAR",$J,TIULVL)
  1. Q
  1. HDR ;
  1. Q
  1. INIT ;
  1. N TIULINE,TIUX
  1. S TIULVL=VALMEVL,VALMCNT=0
  1. F TIUX="MSGRESULT","MSG" D
  1. . N TIUCNT,TIUTEXT,TIUVAL S TIUVAL=80 ; TIUVAL is column width for display in LM - each line will be <=TIUVAL
  1. . S TIULINE="" F S TIULINE=$O(^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)) Q:'+TIULINE D
  1. . . S TIUTEXT=^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)
  1. . . F TIUCNT=1:1:(($L(TIUTEXT)\TIUVAL)+1) S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,$E(TIUTEXT,(TIUVAL*(TIUCNT-1)+1),(TIUVAL*TIUCNT)))
  1. . S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,"")
  1. Q
  1. HELP ; help code
  1. I X="?" S POP=1
  1. D FULL^VALM1
  1. W !!,"The following actions are available:"
  1. W !!,"Delete Message - Delete the current message"
  1. W !,"Reprocess Message - Reprocess the current message",!
  1. I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue")
  1. S VALMBCK="R",POP=0
  1. Q
  1. EXIT ; exit code
  1. Q
  1. EXPND ; expand code
  1. Q