Routine: SDESCLINICSET2

Information

SDESCLINICSET2 ;ALB/TAW/MGD/RRM/MGD - CLINIC CREATE AND UPDATE ;July 10, 2023

Name	Comments	DBIA/ICR reference
GETDEFAULT(INDEX,SDIEN)	;Get the IEN of the disposition or provider flagged as default
CHECKYN(VAR)	;
LETTERIEN(LETTER,NAME)	;Look up the letter IEN
SAVE(POP,SDIEN,FDA,SDCLINIC,PROVIDER,DIAGNOSIS,SPECIALINSTRUCT,PRIVLIAGEDUSER)	;
PROVIDER	;Upodate the Provider multiple in field 44.1
DIAGNOSIS	;Diagnosis multiple in field 44.11
INSTRUCTION
PRIVUSERS(SDIEN,PRIVLIAGEDUSER)	;Privileged user multiple 44.04
VALIDATEPROV(SDPROVIDER,PROVIDER,IEN)	;
SETPROV	;
VALIDATEDIAG(SDDIAG,DIAGNOSIS,IEN)	;
SETDIAG	;
VALIDATEPPRIVUSR(SDNOACCESS,PRIVLIAGEDUSER)	;
VALIDATESI(SDSPECINSTRU,SPECIALINSTRUCT)	;
YNTOBOOL(VAR)	;convert a Y/N input param to 1 or 0
SDRES(SDCL)	;add clinic resource