Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDESCANCHECKIN

SDESCANCHECKIN.m

Go to the documentation of this file.
  1. SDESCANCHECKIN ;ALB/BWF - VISTA SCHEDULING RPCS ;SEP 22, 2022
  1. ;;5.3;Scheduling;**827**;Aug 13, 1993;Build 10
  1. ;
  1. Q
  1. CANCHECKIN(RES,APPTIEN) ;
  1. N SDATA,SDDA,SDCIHDL,APPTIENS,DFN,SDESSTART,RESOURCE,CLINICIEN,SDESSTART,ERRORS,CANCKIN,APPTDAT
  1. S APPTIEN=$G(APPTIEN)
  1. D VALAPPTIEN^SDESVALUTIL(.ERRORS,APPTIEN)
  1. S APPTIENS=APPTIEN_","
  1. I $D(ERRORS) S ERRORS("CancelCheckIn",1)="" D BUILDJSON^SDESBUILDJSON(.RES,.ERRORS) Q
  1. D GETS^DIQ(409.84,APPTIEN,".01;.03;.05;.07;.12","I","APPTDAT","ERR")
  1. I $G(APPTDAT(409.84,APPTIENS,.12,"I"))]"" D Q
  1. .S ERRORS("CancelCheckIn",1)=""
  1. .D ERRLOG^SDESJSON(.ERRORS,322)
  1. .D BUILDJSON^SDESBUILDJSON(.RES,.ERRORS)
  1. I '$G(APPTDAT(409.84,APPTIENS,.03,"I")) D ERRLOG^SDESJSON(.ERRORS,318)
  1. I $D(ERRORS) S ERRORS("CancelCheckIn",1)="" D BUILDJSON^SDESBUILDJSON(.RES,.ERRORS) Q
  1. S DFN=$G(APPTDAT(409.84,APPTIENS,.05,"I"))
  1. S SDESSTART=$G(APPTDAT(409.84,APPTIENS,.01,"I"))
  1. S RESOURCE=$G(APPTDAT(409.84,APPTIENS,.07,"I"))
  1. I 'RESOURCE D ERRLOG^SDESJSON(.ERRORS,282) S ERRORS("CancelCheckIn",1)="" D BUILDJSON^SDESBUILDJSON(.RES,.ERRORS) Q
  1. S CLINICIEN=$$GET1^DIQ(409.831,RESOURCE,.04,"I")
  1. I 'CLINICIEN D ERRLOG^SDESJSON(.ERRORS,283) S ERRORS("CancelCheckIn",1)="" D BUILDJSON^SDESBUILDJSON(.RES,.ERRORS) Q
  1. S DFN=$$GET1^DIQ(409.84,APPTIEN,.05,"I")
  1. S SDESSTART=$$GET1^DIQ(409.84,APPTIEN,.01,"I")
  1. S SDDA=$$FIND^SDESCHECKOUT(DFN,SDESSTART,CLINICIEN)
  1. S SDATA=SDDA_U_DFN_U_SDESSTART_U_CLINICIEN
  1. S SDCIHDL=$$HANDLE^SDAMEVT(1)
  1. D BEFORE^SDAMEVT(.SDATA,DFN,SDESSTART,CLINICIEN,SDDA,SDCIHDL) ;
  1. ;
  1. ; Cancel check in - wtc SD*5.3*717 10/24/18
  1. ;
  1. D SDECCHK(APPTIEN) ; sets field .03 (Checkin), in file 409.84
  1. D CANCHKIN(DFN,CLINICIEN,SDESSTART) ;
  1. ;
  1. ; Event driver "AFTER" actions - wtc SD*5.3*717 10/24/18
  1. ;
  1. D AFTER^SDAMEVT(.SDATA,DFN,SDESSTART,CLINICIEN,SDDA,SDCIHDL) ;
  1. ;
  1. ; Execute event driver. 4=check in (see #409.66), 2=non-interactive - wtc SD*5.3*717 10/25/18
  1. ;
  1. ;*zeb+1 717 3/19/19 prevent extra cancel check-in when canceling a checked-in walkin
  1. ;I '((SDECCDT="@")&($G(SDECTYP)]"")) D EVT^SDAMEVT(.SDATA,4,2,SDCIHDL) ;assumes SDECTYP, which is defined if coming from APPDEL^SDEC08
  1. ; todo - this may not be needed at all.
  1. D EVT^SDAMEVT(.SDATA,4,2,SDCIHDL)
  1. S CANCKIN("CancelCheckIn",1)="Check-in Cancelled." D BUILDJSON^SDESBUILDJSON(.RES,.CANCKIN)
  1. ;
  1. Q
  1. SDECCHK(SDECAPTID) ;
  1. N SDECFDA,SDECMSG,SDECIENS
  1. S SDECIENS=SDECAPTID_","
  1. S SDECFDA(409.84,SDECIENS,.03)="@"
  1. S SDECFDA(409.84,SDECIENS,.04)="@"
  1. D FILE^DIE("","SDECFDA","SDECMSG")
  1. Q
  1. ;
  1. CANCHKIN(DFN,SDCL,SDT) ; Logic to cancel a checkin if the checkin date/time is passed in as '@'
  1. ; input: DFN := ifn of patient
  1. ; SDCL := clinic#
  1. ; SDT := appt d/t
  1. ;
  1. N SDDA
  1. S SDDA=$$FIND^SDESCHECKOUT(DFN,SDT,SDCL)
  1. S FDA(44.003,SDDA_","_SDT_","_SDCL_",",309)="" D FILE^DIE(,"FDA","ERR")
  1. K FDA,ERR
  1. Q