Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Health Level Seven 3 (ADDLINE,ADDMAIL)^HLEVSRV  $$OKCODE^HLEVSRV1  $$LOAD772S^HLUCM009  
Kernel 3 ENDR^%ZISS  ($$FMADD,$$NOW)^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA Fileman 1 ^DIM  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Level Seven 1 HLEVSRV  

Entry Points

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

External References

Name Field # of Occurrence
ENDR^%ZISS MTEST+3
^DIM M+19
ADDLINE^HLEVSRV ADDLINE
ADDMAIL^HLEVSRV MCALLREC+5, MCALLREC+6, MCALLREC+10, ADDMAIL
$$OKCODE^HLEVSRV1 M+11
$$LOAD772S^HLUCM009 UNIT+42
$$FMADD^XLFDT MT1+10
$$NOW^XLFDT MT1+8
$$CJ^XLFSTR MTEXT+5, MTEST+5, LOADUNIT+5
$$REPEAT^XLFSTR MCOND+13, MCALLREC+6, MTEST+6, LOADUNIT+14

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
  • Prompt: "Message IEN: "
  • Formatting: !
  • Timeout: 60
  • Variable: MIEN
  • 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
  • Timeout: 60
  • Variable: X
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] UNIT+21, UNIT+30, UNIT+36, UNIT+39
^HLMA - [#773] UNIT+24, UNIT+26, UNIT+35
^HLMA("C" UNIT+23, UNIT+25
^TMP($J MCOND+5!, MCOND+22, MCOND+25, ADD+2, ADD+3*
^XMB(3.9 - [#3.9] MT1+1, MT1+2, MT1+4, MT1+6, MT1+14, MT1+15
^XTMP( M+21, M+22*, MRUN+5, MRUN+16, MCOND+3, MCOND+9, MCOND+10, MCOND+24!, MCOND+25*, MCALLREC+3
, MCALLREC+9, MCALLREC+10, ADDMTXT+2, ADDMTXT+3*, MTEXT+3, MTEXT+8, MTEXT+9, MT1+9!, MT1+10*, MT1+20
, MT1+24, MT1+36, MT1+43!, MEX+2, UNIT+49*, LOADUNIT+3, LOADUNIT+8, LOADUNIT+11

Label References

Name Line Occurrences
ADD MCOND+12, MCOND+20
ADDMAIL MTEXT+4, MTEXT+5, MTEXT+9, LOADUNIT+5, LOADUNIT+13, LOADUNIT+16
M MT1+18
MEX MT1+40, MT1+41
MPRE MEX+7
MPST MEX+8
MRUN MPRE+2, MPST+2
MT1 MT1+20, MT1+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT UNIT+12~, QUITQ~, QUITQ+3
DATA MCOND+1~, MCOND+10*, MT1+27*, MT1+28, MT1+29, MT1+30*, QUITS+1~
DATA(1 QUITS+7*, QUITS+9, QUITS+10
DATA(2 QUITS+8*, QUITS+9, QUITS+10
DIV QUITS+1~, QUITS+2*, QUITS+6*, QUITS+7, QUITS+8
HL772 UNIT+12~, UNIT+42
HL772("HLPARENT" UNIT+46, UNIT+48
HLID UNIT+12~, UNIT+15*, UNIT+21, UNIT+23, UNIT+25, UNIT+30, UNIT+31, UNIT+35
HLTYPE UNIT+12~, UNIT+16*, UNIT+20, UNIT+29, UNIT+34
IEN772 UNIT+12~, UNIT+17*, UNIT+20, UNIT+21*, UNIT+22, UNIT+24*, UNIT+26*, UNIT+29, UNIT+31*, UNIT+34
, UNIT+35*, UNIT+36, UNIT+37*, UNIT+39, UNIT+42, UNIT+45*, UNIT+46*, UNIT+48, UNIT+49
IEN772C UNIT+47*, UNIT+48*, UNIT+49, LOADUNIT+1~, LOADUNIT+10*, LOADUNIT+11*, LOADUNIT+12, LOADUNIT+15
IEN772P LOADUNIT+1~, LOADUNIT+7*, LOADUNIT+8*, LOADUNIT+9, LOADUNIT+11
IEN773 UNIT+12~, UNIT+23*, UNIT+24, UNIT+25*, UNIT+26
>> INIT MRUN+22
IOF MTEST+5
IOINHI MTEST+1~, MT1+26, MEX+3
IOINORM MTEST+1~, MT1+26, MEX+3
IOM MTEST+5, MTEST+6, MT1+29, MT1+30
>> LNO MT1+13*, MT1+14*, MT1+15
>> LP MT1+24*, MT1+25*, MT1+26, MT1+27
LPVAL QUITQ~, QUITQ+1, QUITQ+2, QUITS~, QUITS+3, QUITS+7
MAXNO QUITS+1~, QUITS+3*, QUITS+4
MCODE M+2~, M+10*, M+11, M+16*, M+19, M+22
MIEN MTEST+1~, MT1+1*, MT1+2, MT1+4, MT1+6, MT1+14, MT1+15
MTAG M+2~, M+15*, M+21, M+22
>> MXEC M+9, M+11*, M+12*
NO M+2~, M+21*, M+22, MCALLREC+1~, MCALLREC+8*, MCALLREC+9*, MCALLREC+10, ADDMTXT+1~, ADDMTXT+2*, ADDMTXT+3
, MTEXT+1~, MTEXT+7*, MTEXT+8*, MTEXT+9, ADD+1~, ADD+2*, ADD+3
NO772S UNIT+12~, UNIT+42*
NOLINE QUITQ~, QUITQ+3
>> NOW MT1+8*, MT1+10
OK QUITS+1~, QUITS+4, QUITS+5*, QUITS+11*, QUITS+12*, QUITS+13
PCE QUITS+1~, QUITS+4*, QUITS+6, QUITS+7, QUITS+8
POSX MCOND+8*, MCOND+13, MCOND+16, MCOND+19, MCOND+20, MT1+27*, MT1+29, MT1+30, LOADUNIT+1~, LOADUNIT+9*
, LOADUNIT+14, LOADUNIT+15
SCREEN QUITS~, QUITS+3, QUITS+6, QUITS+8
>> ST MT1+24*, MT1+25
STOP QUITQ~, QUITQ+2
TAG MCOND+1~, MCOND+10*, MCOND+14, MCOND+16, MCOND+17, MCOND+18
TAGL MCOND+1~, MCOND+8*, MCOND+14, MCOND+15, MCOND+17, MCOND+18*
TAGN MCOND+1~, MCOND+8*, MCOND+15*, MCOND+16*, MCOND+17*, MCOND+19*
TXT M~, M+5, M+10, M+15, M+16, MCOND+1~, MCOND+8*, MCOND+11, MCOND+12, MCOND+13*
, MCOND+15*, MCOND+16*, MCOND+19*, MCOND+20, ADDMTXT~, ADDMTXT+3, ADD~, ADD+3, MT1+15*, MT1+16*
, MT1+18, UNIT~, UNIT+15, UNIT+16, LOADUNIT+1~, LOADUNIT+9*, LOADUNIT+12, LOADUNIT+13, LOADUNIT+14*, LOADUNIT+15*
, LOADUNIT+16*, ADDMAIL~, ADDLINE~
U M+5, M+9, M+10, M+11, M+12, M+15, M+16, MCOND+10, MT1+4, MT1+10
, MT1+16, MEX+5, UNIT+15, UNIT+16
VAL QUITS+1~
WHEN M+2~, M+5*, M+8, M+14, M+21, M+22, MRUN~, MRUN+5, MRUN+16, MCOND+1~
, MCOND+7*, MCOND+8, MCOND+9, MCOND+10, MEX~, MEX+2, MEX+3, MEX+6, MEX+7, MEX+8
X M+19*, MTEST+1~, MTEST+3*, MEX+1~, MEX+5*, QUITS+1~, QUITS+6*
XTMP M+21, M+22, MRUN+5, MRUN+16, MCOND+3, MCOND+9, MCOND+10, MCOND+24, MCOND+25, MCALLREC+3
, MCALLREC+9, MCALLREC+10, ADDMTXT+2, ADDMTXT+3, MTEXT+3, MTEXT+8, MTEXT+9, MTEST+1~, MT1+8*, MT1+9
, MT1+10, MT1+20, MT1+24, MT1+36, MT1+43, MEX+2, UNIT+49, LOADUNIT+3, LOADUNIT+8, LOADUNIT+11
ZZADD MRUN+2~, MRUN+12*
ZZCALL MRUN+2~, MRUN+19*, MCOND+1~, MCOND+8*, MCOND+9*, MCOND+10
ZZMCODE MRUN+2~, MRUN+15*, MRUN+16*, MRUN+17
ZZMLNO MRUN+2~
ZZMTAG MRUN+2~
ZZNEXT MRUN+2~, MRUN+10*
ZZNO MRUN+2~
ZZREC MRUN+2~, MRUN+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All