Routine: SDES25

Information

SDES25 ;ALB/MGD/LEG - VISTA SCHEDULING RPCS ;June 7, 2021@13:07

Source file <SDES25.m>

Name	Comments	DBIA/ICR reference
CHECKIN(JSON,SDECAPTID,SDECCDT,SDECCC,SDECPRV)	; ; RPC: SDES APPT CHECKIN JSON. Entry parameter tag is in SDES. ; This routine is based off of the existing SDES25 routine. It has been ; optimized and updated to return info in JSON format.
SDECCHK(SDECAPTID,SDECCDT)	;
APCHK(SDECZ,SDECPATID,SDECSC1,SDECCC,SDECPRV,SDECSTART,SDECCDT,DUZ)	;
CANCHKIN(DFN,SDCL,SDT)	; Logic to cancel a checkin if the checkin date/time is passed in as '@' ; input: DFN := ifn of patient ; SDCL := clinic# ; SDT := appt d/t
FIND(DFN,SDT,SDCL)	; -- return appt ifn for pat ; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; output: [returned] := ifn if pat has appt on date/time
VALID(DFN,SDCL,SDT,SDDA)	; -- return valid appt. ; **NOTE: For speed consideration the ^SC and ^DPT nodes must be ; check to see they exist prior to calling this entry point. ; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDDA := ifn of appt ; output: [returned] := 1 for valid appt., 0 for not valid
CHKEVT(SDECPAT,SDECSTART,SDECSC)	;EP Called by SDEC CHECKIN APPOINTMENT event
CHKEVT1(SDECRES,SDECSTART,SDECPAT,SDECSTAT)	;
CHKEVT3(SDECRES)	;
CHKEVTD(SDECPAT,SDECSTART,SDECSC)	;EP Called by SDEC CHECKIN APPOINTMENT event
CHECKOUT(SDECY,DFN,SDT,SDCODT,SDECAPTID,VPRV)	;Check Out appointment
CANCKOUT(SDECY,SDECAPTID)	;Cancel Check Out appointment
CANAPPT(SDECAPTID)
ERROR	;
ERR(JSONMSG)	;Error processing