source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUHL7A.m@ 1166

Last change on this file since 1166 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 1.7 KB
Line 
1TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
2 ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997
3 Q
4DELETE ;
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
11REPROC ;
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
19EN ; 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
24HDR ;
25 Q
26INIT ;
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
36HELP ; 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
45EXIT ; exit code
46 Q
47EXPND ; expand code
48 Q
Note: See TracBrowser for help on using the repository browser.