SDEC55A ;ALB/SAT,WTC,TJB - VISTA SCHEDULING RPCS ;Apr 19, 2023@15:22
Source file <SDEC55A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| APPSDGET(SDECY,MAXREC,LASTSUB,SDBEG,SDEND,NOTEFLG,SDRES,DFN,SDID,SDIEN) | ||
| GETX | ||
| GET1(SDAPP,SDBEG,SDEND,NOTEFLG,SDRES,DFN,SDID,SDECI,SDECY) | ;get 1 appointment record
|
|
| GETMAXDAYS(SDAPIEN,SDRESIEN) | ; Get the number of days in the future to be able to book appointments
; The "MAX # DAYS FOR FUTURE BOOKING" is in File #44 field #2002 ; SDAPIEN - Appointment IEN from SDEC APPOINTMENT (#409.84) ; SDRESIEN - Resource IEN from SDEC RESOURCE FILE (#409.831) ; MAXDAYS - Value to be returned from 'MAX # DAYS FOR FUTURE BOOKING' file 44 field 2002 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^SDEC(409.831 - [#409.831] | GET1^DIQ |
| ^SDEC(409.84 - [#409.84] | GETS^DIQ |
| ^DIC(8 - [#8] | GET1^DIQ |
