HMPDJFSM ;SLC/KCM,ASMR/BL,CK-PROTOCOLS & API's FOR MONITORING ;Sep 23, 2016 10:44:23
Source file <HMPDJFSM.m>
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.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^HMP(800000 - [#800000] | Classic Fileman Calls |