SDESBLKANDMOVE1 ;ALB/MGD/TAW - BLOCK AND MOVE CONT. ;Jan 21, 2022
Source file <SDESBLKANDMOVE1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOOVBCHECK(SDTOCLIEN,TODTFM,APPTARY,FN,SDECAPPTIENS,POP,SDAPPT,OVB) | ; Check if new appt will be considered an overbook
|
|
| PREBLOCK(FROMDTFM,FROMTIMESCALE,FROMRES,SDORGCLIEN,SDDATA44SL,SDSEGMENTS) | ;
; 1st call to block original slots |
|
| BLOCK(SDSTDATE,SDSTTIME,SDENDTIME,SDORGCLIEN,SDDATA44SL,TIMESCALE) | ; Logic copied from routine SDC
|
|
| SKIP | ||
| S | ||
| C | ||
| MORE | ||
| CK1 | ||
| EVT | ; -- separate tag if need to NEW vars
; -- cancel event |
|
| BUILDER | ;Convert data to JSON
|
|
| TC | ||
| HASPATRN(SDTOCLIEN,SDDOW,TODTFM) | ;find day template pattern
|
|
| IDTIMESLOT(CLIEN,MAXSLOTS,CLINID) | ;
; CLIEN = IEN of clinic ; MAXSLOTS = Maximum # of slots to check allowable |
|
| CHKAVAILABILITY(RES,CLIEN,APPTDTNET,CLINID,MOVE2DATE) | ;Check the Clinic Resource and Appt Dt for slot availability
; RES - Clinic resource of the new appointment ; CLIEN - IEN of clinic being evaluated ; APPTDTNET - Appointment date/time in external format ; CLINID - F = From clinic, T = To clinic ; MOVE2DAT - The original appt date/tm or the new appt date/tm in FM format |
