Routine: SDEC33

Information

SDEC33 ;ALB/SAT,WTC - VISTA SCHEDULING RPCS ;Feb 12, 2020@15:22

Source file <SDEC33.m>

Name	Comments	DBIA/ICR reference
REBKNEXT(SDECY,SDECDATE,SDECRES,SDECTPID)	; find the next ACCESS BLOCK in resource SDECRES after SDECSTART
SETRBOOK(SDECY,SDECAPPT,SDECDATE)	;Sets rebook date into appointment
ERR(SDECERID,ERRTXT)	;Error processing
ERROR	;
ERR2(SDECERID,ERRTXT)	;Error processing
ERROR2	;