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 |