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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  EN^XQOR  
VA FileMan 1 $$FIND1^DIC  

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

Package Total Caller Graph
Mental Health 12 YTQ EVENT RECEIVER TEST  YTQAPI1  YTQAPI17  YTQAPI2  YTQAPI5  YTQKIL  YTQPXRM4  YTQRCAT  
YTQRIS  YTQRQAD1  YTQRQAD6  YTSCORE  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
$$FIND1^DIC UPSEND+5, DELETE+4
$$FMADD^XLFDT RECEIVE+7
$$FMTE^XLFDT SHOWEV+10
$$NOW^XLFDT RECEIVE+6, MONITOR+5
EN^XQOR UPSEND+13, DELETE+12

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
Routine Call
  • DIC
  • Line Location:
    • UPSEND+5
    • DELETE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SHOWEV+12
^VA(200 - [#200] SHOWEV+13
^XTMP( RECEIVE+7*, RECEIVE+8*, RECEIVE+9*, RECEIVE+10*, RECEIVE+11*, MONITOR+6, MONITOR+8, SHOWEV+8, CLEARALL+1, CLEARALL+3!
^YTT(601.71 - [#601.71] UPSEND+11
^YTT(601.84 - [#601.84] UPSEND+3

Label References

Name Line Occurrences
SHOWEV MONITOR+9
UPSEND UPADM+1, UPANS+1, UPRSLT+1

Naked Globals

Name Field # of Occurrence
^("CNT" RECEIVE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BUF MONITOR+3~, MONITOR+10*
CNT RECEIVE+5~, RECEIVE+8*, RECEIVE+9, RECEIVE+10, RECEIVE+11, MONITOR+3~, MONITOR+8*, MONITOR+9, SHOWEV~, SHOWEV+8
DFN DELETE~, DELETE+9
DUZ RECEIVE+10
IEN UPADM~, UPADM+1, UPANS~, UPANS+1, UPRSLT~, UPRSLT+1, UPSEND~, UPSEND+2, UPSEND+3, UPSEND+9
, DELETE~, DELETE+1, DELETE+8
LAST MONITOR+3~, MONITOR+6*, MONITOR+8, MONITOR+9*
LOOPS MONITOR+3~, MONITOR+5*, MONITOR+11*
NODE RECEIVE+5~, RECEIVE+6*, RECEIVE+7, RECEIVE+8, RECEIVE+9, RECEIVE+10, RECEIVE+11, MONITOR+3~, MONITOR+5*, MONITOR+6
, MONITOR+8, MONITOR+9, SHOWEV~, SHOWEV+8, CLEARALL+1*, CLEARALL+2, CLEARALL+3
NOW RECEIVE+5~, RECEIVE+6*, RECEIVE+11, MONITOR+3~, MONITOR+5*
OBJECT UPSEND~, UPSEND+7
OUT MONITOR+3~, MONITOR+7*, MONITOR+10*
TEST DELETE~, DELETE+2, DELETE+10
TODAY RECEIVE+5~, RECEIVE+6*, RECEIVE+7, MONITOR+3~, MONITOR+5*
TRIGGER UPADM~, UPADM+1, UPANS~, UPANS+1, UPRSLT~, UPRSLT+1, UPSEND~, UPSEND+8, DELETE~, DELETE+7
U UPSEND+4, UPSEND+10, UPSEND+11, RECEIVE+7, SHOWEV+12, SHOWEV+13
X UPSEND+1~, UPSEND+12*, DELETE+3~, DELETE+11*, SHOWEV+7~, SHOWEV+8*, SHOWEV+9
X("action" SHOWEV+11
X("dfn" SHOWEV+12
X("ien" SHOWEV+11
X("object" SHOWEV+11
X("test" SHOWEV+12
X("trigger" SHOWEV+14
X("ts" SHOWEV+10
X("user" SHOWEV+13
YTQ101 UPSEND+1~, UPSEND+5*, UPSEND+12, DELETE+3~, DELETE+4*, DELETE+11
YTQEVNT UPSEND+1~, DELETE+3~, RECEIVE+4, RECEIVE+9
YTQEVNT("action" UPSEND+6*, DELETE+5*
YTQEVNT("dfn" UPSEND+10*, DELETE+9*
YTQEVNT("ien" UPSEND+9*, DELETE+8*
YTQEVNT("object" UPSEND+7*, DELETE+6*
YTQEVNT("test" UPSEND+11*, DELETE+10*
YTQEVNT("trigger" UPSEND+8*, DELETE+7*
YTQX UPSEND+1~, UPSEND+3*, UPSEND+4, UPSEND+10, UPSEND+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All