Routine: SDESAPTREQSET

Information

SDESAPTREQSET ;ALB/TAW,KML,RRM,MGD - APPOINTMENT REQUEST CREATE / UPDATE ;July 19, 2022

Name	Comments	DBIA/ICR reference
ARSET(RETURN,ARIEN,DFN,EDT,INST,TYPE,CLIN,USER,REQBY,PROV,DAPTDT,COMM,ENPRI,MAR,MAI,MAN,PATCONT,SVCCON,SVCCOP,MRTCPREFDT,STOP,APTYP,PATSTAT,MULTIAPTMADE,PARENT,NLT,PRER,ORDN,VAOSGUID,EAS,PCMT,INSTIEN,PATDATEPREFS,ARSTOPSEC,MODALITY)	;
VALIDATE	;
CREATE	;Build FDA array to add a new entry in 409.85
UPDATE	;
DELPRER(ARIEN)	;Delete all entries in the PREREQUISITE multiple (#48)
FDAPRER(FDA,PRER,ARIEN)	;Setup the FDA array for the PREREQUISITE mult (#48)
FILE	;Perform file update
ARPCMT(ARIEN,COMMENTSFLD60)	;populate word processing PATIENT COMMENTS (409.855,60)
ARAUD(ARIEN,CLIN,STOP,DATE,USER)	;populate VS AUDIT mult field 45
AR433(ARIEN,SDEC)	;set MULT APPTS MADE
AR435(SDDT,ARIEN)	;set dates into MRTC CALC PREF DATES mult field 43.5
AR23(INP17,ARI)	;Pat Contacts
CALLDT(X)	;
BUILDER	;Convert data to JSON