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

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("") = ""

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
Info |  Source |  Entry Points |  Interaction Calls