Routine: SDES2APTLETTER

Information

SDES2APTLETTER ;ALB/TJB,TJB,TJB - VISTA SCHEDULING RPCS - LETTER PRINT ; JAN 31, 2025

Name	Comments	DBIA/ICR reference
PRINTLETTER(RESULTS,SDCONTEXT,SDINPUT)	;
PRINTLETTERS(RESULTS,SDCONTEXT,SDINPUT)	;
VALAPPTS(ERRORS,LIST,LTYPE)	;
VALAPPT(ERRORS,APPTIEN,LTYPE)	;
VALLETTYPE(ERRORS,LTYPE)	;
APPTLETTER(SDECY,SDECAPID,LT)
PRT(DFN,SDC,SD,LT,SDLET,SDFORM)	; ; DFN - pointer to PATIENT file 2 ; SDC - pointer to HOSPITAL LOCATION file 44 ; SD - appointment time in FM format ; LT - Letter type - "N"=No Show; "P"=Pre-Appointment; "A"=Cancelled by Patient; "C"=Cancelled by Clinic ; SDLET - pointer to LETTER file 407.5 ; SDFORM - address location on letters (1 - bottom, 0 - top)
WRAPP(DFN,SDC,SD,LT,SDLET)	;WRITE APPOINTMENT INFORMATION
FORM(SDC,SDCL,SDX,LEXPROC,SDLET)	;
REST(DFN,SDC,SD,LT,SDLET,SDFORM)	;WRITE THE REMAINDER OF LETTER
ADDR(DFN)	;
DTS(Y)	;
BADADD	;Print patients with a Bad Address Indicator
TST(SDCL,DOW)	; handle scheduled tests
FILL(PADS,CHAR)
LILAST4(DFN)	;Retrieve the first letter of the last name and append last 4 SSN of a patient

RPC Name	Call Tags
SDES2 PRINT APPT LETTER	PRINTLETTER
SDES2 PRINT APPT LETTERS	PRINTLETTERS