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
|
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | GET1^DIQ |
^SDEC(409.84 - [#409.84] | Classic Fileman Calls |
^AUPNVSIT - [#9000010] | Classic Fileman Calls |