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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YTQEVNT

Package: Mental Health

Routine: YTQEVNT


Information

YTQEVNT ;SLC/KCM - MHA Protocol Events ; 1/25/2017

Source Information

Source file <YTQEVNT.m>

Entry Points

Name Comments DBIA/ICR reference
UPADM(IEN,TRIGGER) ; fire event when administration is updated
UPANS(IEN,TRIGGER) ; fire event when answers to administration are updated
UPRSLT(IEN,TRIGGER) ; fire event when results for administration are updated
UPSEND(IEN,TRIGGER,OBJECT) ; do the actual update
DELETE(IEN,DFN,TEST,TRIGGER) ; fire event when administration is deleted
RECEIVE ; YTQ EVENT TEST RECEIVER (save event data in ^XTMP)
; store events in sequence by date, example:
; ^XTMP("YTQEVTST-3230919",n,property)=value
; ^XTMP("YTQEVTST-3230919","CNT")=n
MONITOR ; for testing events published by MHA
; this may be run from the command line to watch events as they are posted
; NOTE -- the monitor doesn't support crossing midnight if you are up late
SHOWEV(NODE,CNT) ; show a single event entry
; write timestamp action object:ien
; testName for patientName
; userLastName,initial (invoked from trigger)
CLEARALL ; clears all test event nodes in ^XTMP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"MHA Event Test Monitor -- press Q or spacebar to exit",!
  • Line Location: MONITOR+4
Function Call: READ
  • Variable: BUF
  • Timeout: 1
  • Line Location: MONITOR+10
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($G(X("ts")),"2ZS")
  • Line Location: SHOWEV+10
Function Call: WRITE
  • Prompt: ?18,$G(X("action"))," ",$G(X("object")),":",$G(X("ien")),!
  • Line Location: SHOWEV+11
Function Call: WRITE
  • Prompt: ?18,$G(X("test"))," for ",$P($G(^DPT(+$G(X("dfn")),0)),U),!
  • Line Location: SHOWEV+12
Function Call: WRITE
  • Prompt: ?18,"by ",$P($G(^VA(200,+$G(X("user")),0)),U)
  • Line Location: SHOWEV+13
Function Call: WRITE
  • Prompt: " (invoked from ",$G(X("trigger")),")",!
  • Line Location: SHOWEV+14
Function Call: WRITE
  • Prompt: !,NODE
  • Line Location: CLEARALL+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call