Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: HLEVUTI3

Package: Health Level Seven

Routine: HLEVUTI3


Information

HLEVUTI3 ;O-OIFO/LJA - Event Monitor UTILITIES ;02/04/2004 14:42

Source Information

Source file <HLEVUTI3.m>

Entry Points

Name Comments DBIA/ICR reference
MOVETMP(FILE,IEN,GBLSV) ; Move ^UTILITY data into ^TMP and prep it...
PAD(STR,LEN) ; Add spaces to right justify...
ADDLN(GBLSV,DATA) ; Add one line of text...
LASTIEN ; Display last IEN of files 772 & 773 every 15 seconds...
DIFFIEN(LAST,BEFORE) ; Return number new entries right justified in 3 col's
HDRIEN ;
SDT(FMTIME) ; Return DD/MM/YY@HH:MM:SS
EOR ;HLEVUTI3 - Event Monitor UTILITIES ;5/16/03 14:42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("File 772 & 773 IEN Display",IOM)
  • Line Location: LASTIEN+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: LASTIEN+5
Function Call: WRITE
  • Prompt: !!,"This API displays the last internal entry number (IEN) in the following files:"
  • Line Location: LASTIEN+7
Function Call: WRITE
  • Prompt: !!," * HL Message Text file (#772)."
  • Line Location: LASTIEN+8
Function Call: WRITE
  • Prompt: !," * HL Message Administration file (#773)."
  • Line Location: LASTIEN+9
Function Call: WRITE
  • Prompt: !!,"The last IEN in these files are recollected and redisplayed every 15 seconds."
  • Line Location: LASTIEN+10
Function Call: WRITE
  • Prompt: !,"After every display of these IENs, you may take the following actions:"
  • Line Location: LASTIEN+11
Function Call: WRITE
  • Prompt: !!," * Do nothing, & the information will be redisplayed in 15 seconds."
  • Line Location: LASTIEN+12
Function Call: WRITE
  • Prompt: !," (You may change the refresh seconds by entering a number of seconds"
  • Line Location: LASTIEN+13
Function Call: WRITE
  • Prompt: !," and pressing RETURN.)"
  • Line Location: LASTIEN+14
Function Call: WRITE
  • Prompt: !!," * Hit return to force information redisplay."
  • Line Location: LASTIEN+15
Function Call: WRITE
  • Prompt: !!," * Enter an uparrow ('^') and press RETURN to exit."
  • Line Location: LASTIEN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LASTIEN+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LASTIEN+21
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(" "_$P(X,U,2)_" ["_$P(X,U,3)_"] ",IOM,"=")
  • Line Location: LASTIEN+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: LASTIEN+31
Function Call: WRITE
  • Prompt: !,$$SDT($$NOW^XLFDT),?19,B
  • Line Location: LASTIEN+32
Function Call: WRITE
  • Prompt: ?21,IEN772,?36,$$DIFFIEN(IEN772,LAST772),?45,B
  • Line Location: LASTIEN+33
Function Call: WRITE
  • Prompt: ?47,IEN773,?61,$$DIFFIEN(IEN773,LAST773),?73,B
  • Line Location: LASTIEN+34
Function Call: WRITE
  • Prompt: """"
  • Line Location: LASTIEN+42
Function Call: WRITE
  • Prompt: "<ret>"
  • Line Location: LASTIEN+44
Function Call: WRITE
  • Prompt: "Time",?19,B,?21,"LAST-772-IEN",?36,"#772",?45,B
  • Line Location: HDRIEN+4
Function Call: WRITE
  • Prompt: ?47,"LAST-773-IEN",?61,"#773",?73,B
  • Line Location: HDRIEN+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDRIEN+6
Info |  Source |  Entry Points |  Interaction Calls