Routine: HMPDJFS

Entry Points

Name	Comments	DBIA/ICR reference
API(HMPFRSP,ARGS)	;
XAPI	; end select case
LOGREQ(SRV,ARGS)	; Log the request
LOGRSP(SRV)	; Log the response
DELSUB(RSP,ARGS)	; cancel a subscription ; DELETE with: /hmp/subscription/{hmpSrvId}/patient/{pid} ; remove patient from HMP SUBSCRIPTION file ; remove ^XTMP(HMPX and ^XTMP(HMPH nodes ; look ahead (from lastId) and remove any nodes for the patient
DELPT(DFN,SRV)	; delete patient DFN for server SRV
POST(DFN,TYPE,ID,ACT,SERVER,NODES)	; adds new freshness item, return DT-seq ; if initializing use: ^XTMP("HMPFH-hmpserverid-dfn",seq#) -hold ; otherwise use: ^XTMP("HMPFS-hmpserverid-date",seq#) -stream
NEWXTMP(NODE,DAYS,DESC)	; Set a new node in ^XTMP
PIDS(DFN)	; return string containing patient id's ready for JSON ; expects HMPFSYS, HMPFHMP
PID(DFN)	; return most likely PID (ICN or SYS;DFN)
DFN(PID)	; return the DFN given the PID (ICN or SYS;DFN)
PROGRESS(LASTITM)	; set the node in REF with progress properties ; expects HMPFHMP,HMPSYS
SETERR(MSG)	; create error object in ^TMP("HMPFERR",$J) and set HMPFERR
DEBUG(MSG)	;
RESETSVR(ARGS)	;
CLEARDOM(SVR,PAT)	;
CLEARPAT(SVR,PAT)	;
HMPSET(DA,NEW)	;
HMPKILL(DA,OLD)	;
HMPOSET(DA,NEW)	;
HMPOKILL(DA)	;
KILL	; clear out all ^XTMP nodes
KILLSVR(SVR)	; clear out for specific machine

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X Line Location: KILL+2
Function Call: WRITE	Prompt: !,X Line Location: KILLSVR+3

RPC Name	Call Tags
HMPDJFS API	API
HMPDJFS DELSUB	DELSUB

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