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: HLEVSRV0

Package: Health Level Seven

Routine: HLEVSRV0


Information

HLEVSRV0 ;O-OIFO/LJA - Event Monitor SERVER ;02/04/2004 14:42

Source Information

Source file <HLEVSRV0.m>

Entry Points

Name Comments DBIA/ICR reference
M(TXT) ; Called when M code data requested in...
; MXEC,XTMP -- req
MPRE ; Run M code before load of data...
; XTMP -- req
MPST ; Run M code after load of data...
; XTMP -- req
MRUN(WHEN) ; Run M code's INIT...
; XTMP -- req
MCOND ; Condense M call data...
MCALLREC ; Store MCOND data in mail message..
ADDMTXT(TXT) ;
MTEXT ; Add text to Mailman message created by M code...
ADD(TXT) ;
MTEST ; Test M code embedded in a Mailman message...
MT1
MEX(WHEN) ; Called by MTEST to execute ^XTMP(XTMP,"M") code...
UNIT(TXT) ; Load IEN list found by MSG ID... (TXT=MsgID)
; XTMP -- req
LOADUNIT ; Load data found by UNIT above...
ADDMAIL(TXT)
QUITQ(LPVAL,STOP,NOLINE,CT) ; Should looping stop?
QUITS(LPVAL,SCREEN) ; Should this be included?
ADDLINE(TXT)
EOR ;HLEVSRV0 - Event Monitor SERVER ;5/16/03 14:42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("M Code Test",IOM)
  • Line Location: MTEST+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: MTEST+6
Function Call: WRITE
  • Prompt: !!,"This utility will execute the code in the BEFORE and AFTER sections of the"
  • Line Location: MTEST+7
Function Call: WRITE
  • Prompt: !,"M code embedded in a Mailman message. The message must be in the format"
  • Line Location: MTEST+8
Function Call: WRITE
  • Prompt: !,"used by the [HLEV-INFORMATION-SERVER] menu option."
  • Line Location: MTEST+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MT1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Message IEN: "
  • Variable: MIEN
  • Timeout: 60
  • Line Location: MT1+1
Function Call: WRITE
  • Prompt: " no message found..."
  • Line Location: MT1+3
Function Call: WRITE
  • Prompt: " ",$P(^XMB(3.9,+MIEN,0),U),"..."
  • Line Location: MT1+4
Function Call: WRITE
  • Prompt: !!,"Loading M code..."
  • Line Location: MT1+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: MT1+17
Function Call: WRITE
  • Prompt: !!,"No M code embedded in this Mailman message..."
  • Line Location: MT1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: MT1+23
Function Call: WRITE
  • Prompt: !,IOINHI,"...",$P(LP,",""M"",",2,99),IOINORM," = "
  • Line Location: MT1+26
Function Call: WRITE
  • Prompt: $E(DATA,1,IOM-POSX)
  • Line Location: MT1+29
Function Call: WRITE
  • Prompt: !!,"You can execute the BEFORE load M code, or the AFTER load M code. The BEFORE"
  • Line Location: MT1+32
Function Call: WRITE
  • Prompt: !,"load M code requires a BEFORE^INIT... node(s). The AFTER load M code"
  • Line Location: MT1+33
Function Call: WRITE
  • Prompt: !,"requires an AFTER^INIT... node(s)."
  • Line Location: MT1+34
Function Call: WRITE
  • Prompt: !!,"You must add a BEFORE and/or AFTER section to the M code embedded in the"
  • Line Location: MT1+37
Function Call: WRITE
  • Prompt: !,"Mailman message before you can use this utility to test."
  • Line Location: MT1+38
Function Call: WRITE
  • Prompt: !!,"Done..."
  • Line Location: MT1+45
Function Call: WRITE
  • Prompt: !!,"Press RETURN to execute the ",IOINHI,WHEN,IOINORM
  • Line Location: MEX+3
Function Call: WRITE
  • Prompt: " code, or '^' to skip... "
  • Line Location: MEX+4
Function Call: READ
  • Variable: X
  • Timeout: 60
  • Line Location: MEX+5
Function Call: WRITE
  • Prompt: " no action taken..."
  • Line Location: MEX+5
Function Call: WRITE
  • Prompt: !,"Executing the ",WHEN," code..."
  • Line Location: MEX+6
Function Call: WRITE
  • Prompt: " M code finished..."
  • Line Location: MEX+9
Info |  Source |  Entry Points |  Interaction Calls