Routine: SDES2CLINUT

Information

SDES2CLINUT ;ALB/BWF,JAS,MGD - SDES2 Clinic Save utilities ;JUNE 05, 2025

Name	Comments	DBIA/ICR reference
SAVEPROVIDERS(ERRORS,SDCLINIC,SDIEN)	;
SAVEDIAG(ERRORS,SDCLINIC,SDIEN)	;
SAVEINSTRUCT(ERRORS,CLINDATA,SDIEN)	;
SAVEPRIVUSERS(ERRORS,CLINDATA,SDIEN)
SAVESUBSPEC(ERRORS,CLINDATA,SDIEN)	; Save subspecialties from file #409.94
DELSUBSPEC(SDIEN)	; Clear out the Subspecialty sub-files before repopulating
ADDHASH2CLIN(SDCLINICIEN)	; add HASH to clinic after creation of clinic
BLDCLNREC(SDCLNSREC,SDCLNIEN)	;Get Clinic data
UPDATECLINICHASH(SDCLIN,SDHASH,SDHASHDATE,SDCLNJSON)	;update clinic with new hash
ADDRESOURCE(SDCLINICIEN)	; NEED IEN TO FILE RESOURCE ?
DEFPROV(CLINIEN)	;
DEFDIAG(CLINIEN)	;