Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: SDCO1

Package: Scheduling

Routine: SDCO1


Information

SDCO1 ;ALB/RMO - Appointment - Check Out ;JAN 15, 2016

Source Information

Source file <SDCO1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for SDCO APPT CHECK OUT protocol
CO(DFN,SDT,SDCL,SDDA,SDASK,SDCODT,SDCOACT,SDLNE,SDCOALBF) ;Appt Check Out
; Input -- DFN Patient file IEN
; SDT Appointment Date/Time
; SDCL Hospital Location file IEN for Appt
; SDDA IEN in ^SC multiple or null [Optional]
; SDASK Ask Check Out Date/Time [Optional]
; SDCODT Date/Time of Check Out [Optional]
; SDCOACT Appt Mgmt Check Out Action [Optional]
; SDLNE Appt Mgmt Line Number [Optional]
; Output -- SDCOALBF Re-build Appt Mgmt List
COQ
EWLCHK ;check if patient has any open EWL entries (SD/372)
BEFORE(SDATA,DFN,SDT,SDCL,SDDA,SDHDL) ; -- event driver before ; not used
AFTER(SDATA,DFN,SDT,SDCL,SDDA,SDHDL,SDLNE) ; -- event driver after ; not used
UPD(DFN,SDT,SDCL,SDLNE,SDSTB,SDSTA) ; -- update appt mgmt screen ; used by AFTER but AFTER is not used
ELIG(DFN,SDT,SDCL,SDDA) ; -- update elig if blank
CHK(SDSTB) ; -- is appointment checked out
DT(DFN,SDT,SDCL,SDDA,SDASK,SDCODT,SDCOQUIT) ;Update Check Out Date
DTQ
DIE(SDCL,SDT,SDDA,DR) ; -- update appt data in ^SC
DIEQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,*7,">>> You cannot check out this appointment."
  • Line Location: CO+13
Function Call: WRITE
  • Prompt: !!,"MUST ACCEPT OR ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",!
  • Line Location: EWLCHK+12
Info |  Source |  Entry Points |  Interaction Calls