Routine: SDEC25

Information

SDEC25 ;ALB/SAT,WTC - VISTA SCHEDULING RPCS ;Feb 12, 2020@15:22

Source file <SDEC25.m>

Name	Comments	DBIA/ICR reference
CHECKIN(SDECY,SDECAPTID,SDECCDT,SDECCC,SDECPRV,SDECROU,SDECVCL,SDECVFM,SDECOG,SDECCR,SDECPCC,SDECWHF)	;Check in appointment	ICR #7066 Status: Active Usage: Controlled Subscription
ENDBG	;
SDECCHK(SDECAPTID,SDECCDT)	;
APCHK(SDECZ,SDECSC1,SDECDFN,SDECCDT,SDECSTART)
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	ICR #7068 Status: Withdrawn Usage: Controlled Subscription
CANCKOUT(SDECY,SDECAPTID)	;Cancel Check Out appointment	ICR #7072 Status: Withdrawn Usage: Controlled Subscription
CANAPPT(SDECAPTID)
ERROR	;
ERR(ERRNO)	;Error processing