Routine: SDEC51B

Information

SDEC51B ;ALB/LAB,ANU - VISTA SCHEDULING RPCS ;APR 12, 2021@14:39

Source file <SDEC51B.m>

Name	Comments	DBIA/ICR reference
CONSLIST(SDECY,DFN)	;Return a list of ACTIVE or PENDING CONSULTS for patient
INIT	;
VALIDATE	;
HDR	;Get the header information ; ; Consult IEN^Request Type^ORIGDT^TO Service^CLINIEN^CLINNAME^Date of Request ; Prio^Provider IEN^Provider Name^Service Rendered As ; Req_Proc_Act^Stop^PRHBLOC^Earliest ; CPHONE^CLET^Covid_Priority ; 1 2 3 4
SELCONS	;selection all open consults - those consults in PENDING and ACTIVE status
ASSIGNINFO	;
BLDREC	;build consult record
EXIT	;
CONSULT1(SDECY,SDCONSID)	; RPC: SDEC GET PAT CONSULT BY IEN - Return a CONSULT
VALIDATE1	;