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 |  Marked Items  | All
Print Page as PDF
Routine: HMPDJFSM

Package: Enterprise Health Management Platform

Routine: HMPDJFSM


Information

HMPDJFSM ;SLC/KCM,ASMR/BL,CK-PROTOCOLS & API's FOR MONITORING ;Sep 23, 2016 10:44:23

Source Information

Source file <HMPDJFSM.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Enterprise Health Management Platform 4 $$HL7NOW^HMPDJ  ($$PID,API,NEWXTMP,SETERR)^HMPDJFS  ENCODE^HMPJSON  $$FMTHL7^HMPSTMP  
Kernel 3 ($$HDIFF,$$HTFM)^XLFDT  $$LOW^XLFSTR  $$KSP^XUPARAM  
VA FileMan 1 ^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: 8

Package Total Caller Graph
Enterprise Health Management Platform 7 HMPDJFS  HMPEQ  HMPEQLM  HMPM ADD HMP PATIENT  HMPM EMERGENCY STOP  HMPM EXTRACT MONITOR  HMPM RESTART FRESHNESS  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ADDPT(PAT) ; Add patient to server
GETPAT() ; Return DFN for a patient
HLTHCHK(ARGS) ; check health of VistA Server subscription
; called by:
; API^HMPDJFS: asynchronous extracts & freshness via stream
; calls:
; SETERR^HMPDJFS: log error
; $$HLTHINFO = progress for this domain
; $$HLTHHDR = JSON header for progress report
; input:
; .ARGS("server") = HMP Server Id
; also these, created by API^HMPDJFS, passed thru symbol table:
; HMPFRSP = [unused?]
; HMPFHMP = server name
; HMPSYS = system id
; output: in ^TMP("HMPF",$job,node): list of active extracts
; {pid="ABCD;229",domainsCompleted=8,domainsPending=20,
; objectCount=137,subscribeTime=20140609112734,
; extractStatus="initializing"}
HLTHINFO(SRV,SRVIEN,DFN) ;function, return domain progress in JSON
; called by:
; HLTHCHK
; input:
; SRV = name of server, to use in ^XTMP subscripts
; SRVIEN = record # in file HMP Subscription (800000)
; DFN = record # in file Patient (2)
; output = string of JSON reporting progress for this domain
; {pid,domainsCompleted,domainsPending,objectCount,queuedTime,
; phase(waiting,extracting)
HLTHHDR(COUNT) ; function, domain-progress header (health header) as JSON
; COUNT = total # items
; HMPSYS = system id (in symbol table)
LSTREAM(SRV) ;function, latest stream for this server
; called by:
; EVTS^HMPEQ: return events for server's last stream
; SRV^HMPEQ: process one server
; calls: none
; input:
; SRV = ien of server in file HMP Subscription (8000000)
WAIT(BATCH) ; function, number of seconds the batch has been waiting
; called by:
; SRV^HMPEQ: process one server
; BATCH = extract batch in ^XTMP
LOBJ(BATCH,TASK) ;function, last item in domain or <finished> if none
; called by SRV^HMPEQ process one server
; BATCH = extract batch
; TASK = extract-batch task id
GETSRV() ;extrinsic variable, interactive protocol HMPM EVT QUE CHANGE SERVER [Change Server]
; called by:
; protocol unwinder
; output = IEN of server to monitor
EMERSTOP ; protocol HMPM EVT QUE EMERGENCY STOP [not distributed]
; called by:
; protocol unwinder
; user selects a domain to stop freshness updates
; Emergency Stop for Freshness
RSTRTFR ; protocol HMPM EVT QUE RESTART FRESHNESS [not distributed]
; called by:
; protocol unwinder:
; user selects a domain to resume freshness updates
; Re-start freshness updates
SETFRUP(START) ; set flag for freshness updates
; called by:
; EMERSTOP
; RSTRTFR
; input:
; START = 0 to stop, 1 to resume
; user selects a domain to stop or resume freshness updates
; output:
; freshness updates stopped or resumed for selected domain
CHGFTYP(TYPE,ACTN) ; change the freshness update flag for a type
; input:
; TYPE = domain to change
; ACTN = 0 to stop, 1 to resume
STOPFTYP(DMN) ; stop freshness updates for domain, DMN = domain to stop
; create ^XTMP zero node if needed, save data for 30 days
STRTFTYP(DMN) ; resume freshness updates for domain, DMN = domain to resume
GETFTYP(DMNLST,ACTN) ;function, select & return domain from list, DMNLST passed by ref.
; input:
; DMNLST(domain name) = "" for all selectable domains
; ACTN = 0 to stop, 1 to resume
; user prompted to select a domain
SHOWFTYP(DMNLST) ; show freshness domains
; DMNLST(domain name) = "" for all selectable domains, passed by ref.
EVNTYPS(LIST) ; protocol HMPM EVT QUE CHANGE DOMAIN [Change Domain], LIST passed by ref.

External References

Name Field # of Occurrence
^DIC GETPAT+3, GETSRV+7
$$HL7NOW^HMPDJ HLTHHDR+5
$$PID^HMPDJFS HLTHINFO+19
API^HMPDJFS ADDPT+9
NEWXTMP^HMPDJFS STOPFTYP+2
SETERR^HMPDJFS HLTHCHK+21
ENCODE^HMPJSON HLTHINFO+24
$$FMTHL7^HMPSTMP HLTHINFO+21
$$HDIFF^XLFDT WAIT+5
$$HTFM^XLFDT HLTHINFO+13
$$LOW^XLFSTR GETFTYP+12
$$KSP^XUPARAM HLTHHDR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient "_PAT_" already synched."
  • Line Location: ADDPT+4
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: ADDPT+12
Function Call: WRITE
  • Prompt: !,"WARNING! This will stop freshness updates for the HMP."
  • Line Location: SETFRUP+11
Function Call: WRITE
  • Prompt: !," It will be necessary to re-synch patient data.",!
  • Line Location: SETFRUP+12
Function Call: WRITE
  • Prompt: !,"This will --RESUME-- freshness updates for the HMP."
  • Line Location: SETFRUP+14
Function Call: WRITE
  • Prompt: !,"It may be necessary to re-synch patient and operational data.",!
  • Line Location: SETFRUP+15
Function Call: WRITE
  • Prompt: !,"Stopping freshness updates for: "_DMN
  • Line Location: STOPFTYP+3
Function Call: WRITE
  • Prompt: !,"Resuming freshness updates for: "_DMN
  • Line Location: STRTFTYP+1
Function Call: WRITE
  • Prompt: !!,"Choose domain to "_P_". (* "_P_"s all): "
  • Line Location: GETFTYP+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GETFTYP+11
Function Call: WRITE
  • Prompt: " "_T
  • Line Location: GETFTYP+14
Function Call: WRITE
  • Prompt: " ??",!
  • Line Location: GETFTYP+15
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SHOWFTYP+6
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SHOWFTYP+8
Routine Call
  • DIC
  • Line Location:
    • GETPAT+3
    • GETSRV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HMP(800000 - [#800000] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ADDPT+11
^HMP(800000 - [#800000] ADDPT+4, ADDPT+7, HLTHCHK+20, HLTHCHK+25, HLTHCHK+26, HLTHCHK+27, HLTHINFO+22, LSTREAM+9
^TMP("HMPF" ADDPT+11, HLTHCHK+28*, HLTHCHK+30*, HLTHCHK+31*
^XTMP( HLTHINFO+13, HLTHINFO+15, HLTHINFO+16, HLTHINFO+17, LSTREAM+10, WAIT+4, LOBJ+6, LOBJ+7, LOBJ+8
^XTMP("HMP-off" STOPFTYP+2, STOPFTYP+4*, STRTFTYP+2!

Label References

Name Line Occurrences
$$GETFTYP SETFRUP+19
$$GETPAT ADDPT+2
$$GETSRV ADDPT+3
$$HLTHHDR HLTHCHK+30
$$HLTHINFO HLTHCHK+28
CHGFTYP SETFRUP+22, SETFRUP+23
EVNTYPS SETFRUP+17
SETFRUP EMERSTOP+5, RSTRTFR+5
SHOWFTYP GETFTYP+9
STOPFTYP CHGFTYP+6
STRTFTYP CHGFTYP+4

Naked Globals

Name Field # of Occurrence
^( HLTHCHK+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTN CHGFTYP~, CHGFTYP+4, GETFTYP~, GETFTYP+7
ARGS ADDPT+1~, ADDPT+9, HLTHCHK~
ARGS("command" ADDPT+6*
ARGS("localId" ADDPT+8*
ARGS("server" ADDPT+7*
BATCH HLTHINFO+11~, HLTHINFO+12*, HLTHINFO+13, HLTHINFO+15, HLTHINFO+16, HLTHINFO+17, WAIT~, WAIT+4, LOBJ~, LOBJ+6
, LOBJ+7, LOBJ+8
C SHOWFTYP+3~, SHOWFTYP+4*, SHOWFTYP+5*, SHOWFTYP+6*
CNT HLTHINFO+11~, HLTHINFO+14*, HLTHINFO+16*, HLTHINFO+20
COUNT HLTHHDR~, HLTHHDR+6
DFN HLTHCHK+19~, HLTHCHK+27*, HLTHCHK+28, HLTHINFO~, HLTHINFO+12, HLTHINFO+19, HLTHINFO+22
DIC GETPAT+1~, GETPAT+2*, GETSRV+5~, GETSRV+6*
DIC("A" GETSRV+6*
DIC(0 GETPAT+2*, GETSRV+6*
DM SHOWFTYP+3~, SHOWFTYP+4*, SHOWFTYP+5, SHOWFTYP+6
DMN STOPFTYP~, STOPFTYP+3, STOPFTYP+4, STRTFTYP~, STRTFTYP+1, STRTFTYP+2
DMNLST SETFRUP+16~, SETFRUP+19, GETFTYP~, GETFTYP+9, SHOWFTYP~
DMNLST( SETFRUP+18*, SETFRUP+22, GETFTYP+12, GETFTYP+13, SHOWFTYP+4
DOM HLTHINFO+11~, HLTHINFO+15*, HLTHINFO+16, HLTHINFO+17
DOMAIN LOBJ+5~*, LOBJ+6*, LOBJ+7, LOBJ+8
DONE HLTHINFO+11~, HLTHINFO+14*, HLTHINFO+17*, HLTHINFO+20
DTIME GETFTYP+11
HMPERR HLTHINFO+11~, HLTHINFO+25
>> HMPFHMP HLTHCHK+20, HLTHCHK+28
HMPIEN HLTHCHK+19~, HLTHCHK+20*, HLTHCHK+21, HLTHCHK+25, HLTHCHK+26, HLTHCHK+27, HLTHCHK+28
>> HMPSYS HLTHHDR+5
I SETFRUP+16~, SETFRUP+18*, EVNTYPS+38~, EVNTYPS+39*
INFO HLTHINFO+11~
INFO("domainsCompleted" HLTHINFO+20*
INFO("domainsPending" HLTHINFO+20*
INFO("extractStatus" HLTHINFO+23*
INFO("objectCount" HLTHINFO+20*
INFO("pid" HLTHINFO+19*
INFO("queuedTime" HLTHINFO+21*
JSON HLTHINFO+11~
JSON(1 HLTHINFO+26
LASTITM LOBJ+5~*, LOBJ+6, LOBJ+8*, LOBJ+10
LIST EVNTYPS~
LIST( EVNTYPS+39*
>> NODE HLTHCHK+24*, HLTHCHK+28*, HLTHCHK+30, HLTHCHK+31
NUM LOBJ+5~*, LOBJ+8*
NXTDFN HLTHCHK+19~, HLTHCHK+27*, HLTHCHK+28
P GETFTYP+6~, GETFTYP+7*, GETFTYP+10
PAT ADDPT~, ADDPT+2*, ADDPT+4, ADDPT+8, ADDPT+11
PEND HLTHINFO+11~, HLTHINFO+14*, HLTHINFO+18*, HLTHINFO+20
QTIME HLTHINFO+11~, HLTHINFO+13*, HLTHINFO+21
RESULT ADDPT+1~, ADDPT+9
SRV ADDPT+1~, ADDPT+3*, ADDPT+4, ADDPT+7, HLTHINFO~, HLTHINFO+12, LSTREAM~, LSTREAM+9
SRVIEN HLTHINFO~, HLTHINFO+22
START WAIT+4~*, WAIT+5, SETFRUP~, SETFRUP+10, SETFRUP+13, SETFRUP+19, SETFRUP+22, SETFRUP+23
STREAM LSTREAM+8~, LSTREAM+9*, LSTREAM+10
STS HLTHCHK+19~, HLTHCHK+24*, HLTHCHK+25*, HLTHCHK+26, HLTHCHK+27, HLTHINFO+11~, HLTHINFO+22*, HLTHINFO+23
T GETFTYP+6~, GETFTYP+13*, GETFTYP+14
TASK LOBJ~, LOBJ+4, LOBJ+8
TIME HLTHCHK+19~, HLTHCHK+26*, HLTHCHK+27
TYPE SETFRUP+16~, SETFRUP+19*, SETFRUP+20, SETFRUP+21, SETFRUP+22*, SETFRUP+23, CHGFTYP~, CHGFTYP+4, CHGFTYP+6
TYPLST SETFRUP+16~, SETFRUP+17
TYPLST( SETFRUP+18
X HLTHHDR+3~, HLTHHDR+4*, HLTHHDR+5*, HLTHHDR+6*, HLTHHDR+7*, HLTHHDR+8, GETFTYP+6~, GETFTYP+8, GETFTYP+11*, GETFTYP+12*
, GETFTYP+13, GETFTYP+14*, GETFTYP+15*, GETFTYP+17, EVNTYPS+38~, EVNTYPS+39*
Y ADDPT+1~, ADDPT+11*, ADDPT+12, GETPAT+1~, GETPAT+4, GETSRV+5~, GETSRV+7, SHOWFTYP+3~, SHOWFTYP+4*, SHOWFTYP+5*
, SHOWFTYP+6*, SHOWFTYP+8

Marked Items

Name Field # of Occurrence
$T(EVNTYPS+I EVNTYPS+39
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 |  Marked Items  | All