| [623] | 1 | TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997
|
|---|
| 3 | Q
|
|---|
| 4 | DELETE ;
|
|---|
| 5 | D FULL^VALM1
|
|---|
| 6 | W ! I $$READ^TIUU("Y","Are you sure you wish to delete this message") D
|
|---|
| 7 | . K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U))
|
|---|
| 8 | . W !!,"Message deleted."
|
|---|
| 9 | W ! I $$READ^TIUU("EA","Press <RETURN> to continue")
|
|---|
| 10 | Q
|
|---|
| 11 | REPROC ;
|
|---|
| 12 | N HL771RF,HL771SF,HLCS,HLDOM,HLINSTN,HLPARAM,HLPID,HLREC,HLRFREQ,HLSFREQ
|
|---|
| 13 | D FULL^VALM1
|
|---|
| 14 | W !!,"Reprocessing message..."
|
|---|
| 15 | I '$$REPROC^HLUTIL($P(TIUMSG(TIUSEL),U),"PROCMSG^TIUHL7P1") W !,"finished.",! I $$READ^TIUU("EA","Press <RETURN> to continue") Q
|
|---|
| 16 | W "ERROR. Unable to reprocess this message.",!
|
|---|
| 17 | I $$READ^TIUU("EA","Press <RETURN> to continue")
|
|---|
| 18 | Q
|
|---|
| 19 | EN ; main entry point for TIUHL7 MSG VIEW
|
|---|
| 20 | N TIULVL
|
|---|
| 21 | D EN^VALM("TIUHL7 MSG VIEW")
|
|---|
| 22 | K ^XTMP("VALMAR",$J,TIULVL)
|
|---|
| 23 | Q
|
|---|
| 24 | HDR ;
|
|---|
| 25 | Q
|
|---|
| 26 | INIT ;
|
|---|
| 27 | N TIULINE,TIUX
|
|---|
| 28 | S TIULVL=VALMEVL,VALMCNT=0
|
|---|
| 29 | F TIUX="MSGRESULT","MSG" D
|
|---|
| 30 | . N TIUCNT,TIUTEXT,TIUVAL S TIUVAL=80 ; TIUVAL is column width for display in LM - each line will be <=TIUVAL
|
|---|
| 31 | . S TIULINE="" F S TIULINE=$O(^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)) Q:'+TIULINE D
|
|---|
| 32 | . . S TIUTEXT=^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)
|
|---|
| 33 | . . F TIUCNT=1:1:(($L(TIUTEXT)\TIUVAL)+1) S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,$E(TIUTEXT,(TIUVAL*(TIUCNT-1)+1),(TIUVAL*TIUCNT)))
|
|---|
| 34 | . S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,"")
|
|---|
| 35 | Q
|
|---|
| 36 | HELP ; help code
|
|---|
| 37 | I X="?" S POP=1
|
|---|
| 38 | D FULL^VALM1
|
|---|
| 39 | W !!,"The following actions are available:"
|
|---|
| 40 | W !!,"Delete Message - Delete the current message"
|
|---|
| 41 | W !,"Reprocess Message - Reprocess the current message",!
|
|---|
| 42 | I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue")
|
|---|
| 43 | S VALMBCK="R",POP=0
|
|---|
| 44 | Q
|
|---|
| 45 | EXIT ; exit code
|
|---|
| 46 | Q
|
|---|
| 47 | EXPND ; expand code
|
|---|
| 48 | Q
|
|---|
