©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
HLEVSRV ;O-OIFO/LJA - Event Monitor SERVER ;02/04/2004 14:42
Source file <HLEVSRV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SERVER | ; Called to get information about local monitoring system
|
|
| READ | ; Sequentially read thru message
|
|
| PROCESS | ; Multiple "data request" formats possible...
|
|
| EXTRACT | ; Extract out the work list...
; XTMP -- req |
|
| CHKREQ(TXT) | ; Check request, strip comments, etc...
|
|
| LOADATA | ; Process the work list...
|
|
| LOADFNO | ; Load data from file number...
|
|
| LOADQRY | ; Load $QUERY data...
|
|
| REQBACK | ; Send back what was requested...
|
|
| XTMPMAIL | ; Add XTMP reference to bottom of email...
|
|
| MAILIT | ; Mail report back to HL7 mail group...
; XTMP -- req |
|
| KILLS | ; Remove unwanted ^XTMP subscripts...
|
|
| LOAD(FILE,WHAT,NODE,LIMIT) | ;
|
|
| LOADONE(FILE,IEN,NODE,LIMIT) | ; Load one entry...
|
|
| EXTFILE(TXT) | ; Extract 776 data...
|
|
| GBLFILE(FILE) | ; Return closed global root...
|
|
| EXTQUERY(VAL) | ; Extract $QUERY format requests...
|
|
| OKVARSQ(VAL) | ||
| LOADQ(VAL) | ; Load $QUERY format data...
|
|
| ADDREQHD | ; Add Header to request record in email...
|
|
| ADDLINE(XMRG) | ; Add read line of text to ^TMP...
|
|
| ADDREQ(TXT) | ; Add data request to be added to ^XTMP(XTMP,"HLMAIL") later
|
|
| ADDMAIL(TXT) | ||
| OKFILE(FILE) | ||
| EOR | ;HLEVSRV - Event Monitor SERVER ;5/16/03 14:42
|