HMPEQ ;SLC/MJK,ASMR/RRB - HMP Freshness Utilities;02-JUL-2014
Source file <HMPEQ.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Enterprise Health Management Platform | 3 | HMPEQLM HMPEQLM1 HMPEQLM2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- go to event queue viewer (convenience tag)
|
|
| EVTS(DATA,PARAMS) | ; -- return events for server's last stream in inverse sequence # order
; input: PARAMS("server") := ien of 800000 ; "filter") := event state filter [ P:processed | W:waiting ] ; "domain") := domain of interest or "ALL' ; "dfn") := dfn of desired patient ; "max") := max number events to return |
|
| GETEVTS(RET,PARAMS) | ; -- get events for server's last stream in inverse sequence # order
; RPC: HMPM EVT QUE GET EVTS (future) |
|
| SRVS(DATA) | ; -- loop thru & sort by server names and return summary freshness queue info for each
; output: @DATA@("servers",<n>,"name") := server name ; "server",<n>,"lastUpdate") := date server last updated ; "server",<n>,"repeated") := how many times updated ; "server",<n>,"stream") := stream name ; "server",<n>,"queueEnd") := current end of queue ; "server",<n>,"extracts",<n>,"domain") := domain name ; "server",<n>,"extracts",<n>,"tasks") := tasks waiting to be processed ; "server",<n>,"extracts",<n>,"waiting") := how many seconds waiting ; "server",<n>,"extracts",<n>,"lastCount") := last count retrieved or <finished> |
|
| SRV(DATA,SRV) | ; -- process one server
|
|
| GETSRVS(RET) | ; -- get summary freshness event queue info for all servers
; RPC: HMPM EVT QUE GET SVRS (future) |
|
| GLBS(DATA) | ; -- return summary info on HMP related temp globals
; output: @HMPDATA@( "xtmpNodes",<n>,"server") := server name ; "xtmpNodes",<n>,"rootNode") := ^XTMP root node for server/stream ; "xtmpNodes",<n>,"lastNode") := last sequence in root structure |
|
| GETGLBS(RET) | ; -- get summary info on HMP related temp globals
; RPC: HMPM EVT QUE GET GLBS (future) |
|
| NOROWS(MSG) | ; -- add standard text lines to indicate no rows to display
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HMP(800000 - [#800000] | SRVS+14, SRV+2 |
| ^TMP( | GLBS+24, GLBS+26, GLBS+32, GLBS+33, GLBS+37, GLBS+39, GLBS+42, GLBS+43 |
| ^TMP("HMPM EVT QUE GET EVTS" | GETEVTS+3 |
| ^TMP("HMPM EVT QUE GET GLBS" | GETGLBS+3 |
| ^TMP("HMPM EVT QUE GET SVRS" | GETSRVS+3 |
| ^XTMP( | EVTS+20, SRV+10, SRV+16, SRV+20, SRV+22, GLBS+14, GLBS+18, GLBS+19 |
| Name | Line Occurrences |
|---|---|
| EVTS | GETEVTS+5 |
| GLBS | GETGLBS+5 |
| SRV | SRVS+16 |
| SRVS | GETSRVS+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EVTS+20, SRVS+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BATCH | SRV+1~, SRV+14*, SRV+16*, SRV+18, SRV+20, SRV+22, SRV+23 |
| CNT | EVTS+12~, EVTS+18*, EVTS+20, EVTS+28*, EVTS+29, EVTS+30, EVTS+33, SRV+1~, SRV+15*, SRV+17* , SRV+18, SRV+21, SRV+22, SRV+23, GLBS+11~, GLBS+13*, GLBS+15*, GLBS+16, GLBS+17, GLBS+20 , GLBS+23*, GLBS+30*, GLBS+31, GLBS+34, GLBS+36*, GLBS+40*, GLBS+41, GLBS+44 |
| DATA | EVTS~, EVTS+29, EVTS+30, EVTS+32, EVTS+33, SRVS~, SRVS+16, SRV~, SRV+5, SRV+6 , SRV+7, SRV+9, SRV+10, SRV+18, SRV+21, SRV+22, SRV+23, GLBS~, GLBS+16, GLBS+17 , GLBS+20, GLBS+29, GLBS+31, GLBS+34, GLBS+41, GLBS+44 |
| DOMAIN | EVTS+12~, EVTS+14*, EVTS+21 |
| ENDQ | SRV+1~ |
| EXTRACT | SRV+1~ |
| FILTER | EVTS+12~, EVTS+15*, EVTS+23, EVTS+25 |
| HMPCNT | SRVS+11~, SRVS+13*, SRVS+15*, SRVS+16 |
| HMPDATA | GETEVTS+2~, GETEVTS+3*, GETEVTS+4, GETEVTS+5, GETEVTS+6, GETEVTS+7, GETSRVS+2~, GETSRVS+3*, GETSRVS+4, GETSRVS+5 , GETSRVS+6, GETSRVS+7, GETGLBS+2~, GETGLBS+3*, GETGLBS+4, GETGLBS+5, GETGLBS+6, GETGLBS+7 |
| HMPERR | GETEVTS+2~, GETSRVS+2~, GETGLBS+2~ |
| HMPSRVNM | SRVS+11~, SRVS+12*, SRVS+14* |
| HMPX | GLBS+11~, GLBS+12*, GLBS+14*, GLBS+16, GLBS+17, GLBS+18, GLBS+19, GLBS+22*, GLBS+24*, GLBS+26 , GLBS+28, GLBS+32, GLBS+33, GLBS+38*, GLBS+39*, GLBS+41, GLBS+42, GLBS+43 |
| IEN | SRVS+11~, SRVS+14*, SRVS+16 |
| >> IOINHI | NOROWS+5 |
| >> IOINORM | NOROWS+5 |
| J | GLBS+11~, GLBS+25*, GLBS+26*, GLBS+28, GLBS+29, GLBS+32, GLBS+33, GLBS+36*, GLBS+37*, GLBS+39 , GLBS+41, GLBS+42, GLBS+43 |
| MAX | EVTS+12~, EVTS+17*, EVTS+20 |
| MSG | NOROWS~, NOROWS+4 |
| PARAMS | EVTS~, GETEVTS~, GETEVTS+5 |
| PARAMS("dfn" | EVTS+16 |
| PARAMS("domain" | EVTS+14 |
| PARAMS("filter" | EVTS+15 |
| PARAMS("max" | EVTS+17 |
| PARAMS("server" | EVTS+13 |
| PAT | EVTS+12~, EVTS+16*, EVTS+27 |
| RET | GETEVTS~, GETEVTS+6, GETSRVS~, GETSRVS+6, GETGLBS~, GETGLBS+6 |
| RNODE | GLBS+11~, GLBS+28*, GLBS+29, GLBS+31 |
| ROOT | SRV+1~, SRV+13*, SRV+14, SRV+16 |
| SEQ | EVTS+12~, EVTS+19*, EVTS+20*, EVTS+29 |
| SRV | SRV~, SRV+2, SRV+8 |
| SRVNM | SRV+1~, SRV+4*, SRV+13 |
| STREAM | EVTS+12~, EVTS+13*, EVTS+20, EVTS+32, SRV+1~, SRV+8*, SRV+9, SRV+10 |
| TASK | SRV+1~, SRV+19*, SRV+20*, SRV+23 |
| TASKS | SRV+1~, SRV+19*, SRV+20*, SRV+21 |
| >> VALMAR | NOROWS+2, NOROWS+4 |
| >> VALMCNT | NOROWS+1*, NOROWS+2, NOROWS+3*, NOROWS+4, NOROWS+5 |
| X | EVTS+12~, EVTS+20*, EVTS+21, EVTS+23, EVTS+25, EVTS+27, EVTS+30 |
| X0 | SRV+1~, SRV+2*, SRV+3, SRV+4, SRV+5, SRV+6, SRV+7 |
| Y | GLBS+11~, GLBS+18*, GLBS+19*, GLBS+20, GLBS+32*, GLBS+33*, GLBS+34, GLBS+42*, GLBS+43*, GLBS+44 |
