Routine: WVRPCGF

Information

WVRPCGF ;ISP/AGP - APIs for Clinical Reminders ;11/05/2020

Source file <WVRPCGF.m>

Name	Comments	DBIA/ICR reference
FPRONNOT(RESULT,TYPE,FDATE,PAT)	;
FNDOPNOT(RESULT,TYPE,START,END)	;
FINDOPEN(RESULT,TYPE,START,END)	;
FORMTX(PAT,WVTRMTS,INPUTS,CLEARNXT)	;
FORMNOT(PAT,PURARR,WVTRMTS,INPUTS,NOTTYPE,WVDATA)	;
FORMRES(RESULTS,ID,INPUTS)	;
FORMHRES(RESULTS,INPUTS)	;
NEW(RESULTS,INPUTS)	;
PROCESS(RESULT,PAT,VISIT,NOTE,ID,WVIEN,USER,ENCPROV,WVDATA,PURARR,WV79023)	;
PROCESSX	;
ADDITEMS(WV79023,WVFDA,WVIEN,TIMESTMP,VISIT,NOTE,ISHIST)	;
ADDHRSLT(RESULT,WVIEN,PAT,PROCIEN,WVRESULT,COMMENT,TIMESTMP,VISIT,NOTE,ISHIST,WV79023,DATE,USER,ENCPROV)	;
SETRESLT(RESULT,WVIEN,WVRESULT,COMMENT,TIMESTMP,VISIT,NOTE,WV79023)	; Update the RESULTS/DIAGNOSIS field (.05)
UPRESLT(RESULT,WVIEN,COMMENT,TIMESTMP,NOTE,WV79023)	;
ADDNOTS(RESULT,INPUTS,ID,WVIEN,WVDFN,PURARR)	;
SETNOT(RESULT,INPUTS,WVTRMTS,WVIEN,WVPURP,WVTYPE,WVOUTCUM,WVPRINTR,WVDFN,WVCONWHO,WVCONDTE,WVPDATE)	;
SETOPNOT(RESULT,WVDATA,NOTTYPE,INPUTS,PAT)	;
SETNOTO(RESULT,ID,INPUTS,WVDFN,WVTYPE)	;
TYPEONLY(RESULT,WVIEN,WVCONWHO,WVCONDTE,TYPE,INPUTS)	;