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

Package: Enterprise Health Management Platform

Routine: HMPMOND


Information

HMPMOND ;ASMR/BL, monitor display ;Sep 24, 2016 03:07:36

Source Information

Source file <HMPMOND.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Enterprise Health Management Platform 3 $$ETOTL^HMPMONE  ($$HDR,$$LASTREAM)^HMPMONL  CHKXTMP^HMPMONX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Enterprise Health Management Platform 1 HMPMON  

Entry Points

Name Comments DBIA/ICR reference
U ; monitor screen update - default activity in monitor
; called by:
; OPTION^HMPMON
; passed in symbol table:
; HMPMNTR("exit") - monitor exit flag
; HMPMNTR("server") = # of server record in file HMP Subscription (800000)
; HMPMNTR("zero node") = HMP SUBSCRIPTION entry's zero node
; HMPROMPT = current prompt; ^ to exit option, else leave alone
QUEUE(STREAM,MAX) ; show last max items in freshness queue
; called by:
; U
; calls:
; QLIST: get size and last max items
; QHEAD: show freshness-queue header
; $$QROW = each row of the report
; input:
; STREAM = last freshness stream
; MAX = maximum # items to show
; input from the database
; output:
; HMPEXIT = whether to exit option report to current device
QLIST(ITMLST,STREAM,MAX) ; items from freshness queue, return last MAX items
; ITMLST passed by reference, returns:
; ITMLST = total # items in freshness queue
; ITMLST(item #) = record for each of the last max items
QWAIT(RECORD) ; function, return waiting value for RECORD
; RECORD = record of item in the queue
; examples:
; $$QWAIT("3^visit^H4721^^52660^54378") = "done"
; if $H = "64272,54378" then:
; $$QWAIT("3^visit^H4721^^52660^") = "1,718 s"
; $$QWAIT("3^visit^H4721^^") = ""
; $$QWAIT("") = ""

External References

Name Field # of Occurrence
$$ETOTL^HMPMONE U+37
$$HDR^HMPMONL U+11
$$LASTREAM^HMPMONL U+14
CHKXTMP^HMPMONX U+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DSPLN("1hdr"),!
  • Line Location: U+12
Function Call: WRITE
  • Prompt: !!," * No eHMP Extract Stream Found *"
  • Line Location: U+15
Function Call: WRITE
  • Prompt: !,DSPLN("2Patients"),!
  • Line Location: U+21
Function Call: WRITE
  • Prompt: !,DSPLN("3PollJobs")
  • Line Location: U+31
Function Call: WRITE
  • Prompt: !,DSPLN("4LastUpdt")
  • Line Location: U+39
Function Call: WRITE
  • Prompt: !,DSPLN("5XEoQXtmp")
  • Line Location: U+46
Function Call: WRITE
  • Prompt: !!,Y,!
  • Line Location: QUEUE+19
Function Call: WRITE
  • Prompt: !,"item patient transaction type waiting"
  • Line Location: QUEUE+20
Function Call: WRITE
  • Prompt: !,"-------- ----------- ------------ --------------------------------- -------"
  • Line Location: QUEUE+21
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: QUEUE+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("JOBPARAM" U+26
^XTMP( U+24, U+44, QLIST+7, QLIST+8

Label References

Name Line Occurrences
$$QWAIT QUEUE+24
QLIST QUEUE+16
QUEUE U+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DSPLN U+10~
DSPLN("1hdr" U+11*, U+12
DSPLN("2Patients" U+21*
DSPLN("3PollJobs" U+31*
DSPLN("4LastUpdt" U+36*, U+38*, U+39
DSPLN("5XEoQXtmp" U+42*, U+45*, U+46
>> HMPMNTR("zero node" , U+11, U+33, U+35
HMPRSLT U+10~, U+17
HMPRSLT(1 U+18, U+20
HMPRSLT(2 U+18, U+20, U+41
ITEM QUEUE+14~, QUEUE+23*, QUEUE+24, QUEUE+25, QUEUE+26, QUEUE+27, QUEUE+28
ITM QLIST+6~*, QLIST+7*, QLIST+8
ITMLST QLIST~, QLIST+5!*, QLIST+7*
ITMLST( QLIST+8*
JBID U+10~, U+23*, U+24*, U+26, U+28
JBID("count" U+25*, U+28
JBID("inactv" U+27*, U+30
JBID("list" U+28*, U+30
LIST QUEUE+14~, QUEUE+16, QUEUE+18
LIST( QUEUE+23, QUEUE+24, QUEUE+26, QUEUE+27, QUEUE+28
MAX QUEUE~, QUEUE+16, QUEUE+18, QLIST~, QLIST+7
RECORD QWAIT~, QWAIT+9, QWAIT+10, QWAIT+12
START QWAIT+11~, QWAIT+12*, QWAIT+13
STREAM U+10~, U+14*, U+15, U+24, U+44, U+48, QUEUE~, QUEUE+16, QLIST~, QLIST+7
, QLIST+8
U U+11, U+18, U+20, U+33, U+35, U+41, QUEUE+26, QUEUE+27, QUEUE+28, QWAIT+10
, QWAIT+12
WTING QWAIT+11~, QWAIT+13*, QWAIT+14
X U+10~, U+20*, U+26*, QUEUE+14~, QUEUE+18*, QUEUE+24*, QUEUE+29
Y U+10~, U+18*, U+20*, U+21, U+27, U+29*, U+30*, U+31, U+33*, U+34*
, U+35*, U+36, U+37*, U+38, U+41*, U+42, U+43*, U+44*, U+45, QUEUE+14~
, QUEUE+18*, QUEUE+19, QUEUE+24*, QUEUE+25*, QUEUE+26*, QUEUE+27*, QUEUE+28*, QUEUE+29*, QUEUE+30
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All