Routine: SDEC51

Information

SDEC51 ;ALB/SAT,CT,LAB,MGD - VISTA SCHEDULING RPCS ;APR 14, 2023@11:58

Source file <SDEC51.m>

Name	Comments	DBIA/ICR reference
REQGET(SDECY,SDBEG,SDEND,MAXREC,LASTSUB,SDGMR)	; GET entries that are not SCHEDULED.
REQGETA	;
REQX	;
HDR	;Get the header information ; 1 2 3 4
GETONE(SDECY,SDGMR)	;Get one specific consult ; 1 2 3 4
REQGET1	;
REQCHK(SDRECL,SDGMR,DFN)	;alb/sat 658 - new rules for consult check
REQCHK1(SDRECL,SDGMR,DFN)	; OLD
REQCHKX	; exit ;alb/sat 651 - add REQCHKX tag
GETIEN(NAME)	;get ID from REQUEST ACTION TYPES file 123.1 ;ICR 6186
PRIORITY(GRMIEN)	;get priority from CONSULT activity (new tag *756)