Routine: TIUSRVA

Information

TIUSRVA ; SLC/JER,AJB - API'S FOR AUTHORIZATION ;11/02/23 11:00

Source file <TIUSRVA.m>

Name	Comments	DBIA/ICR reference
REQCOS(TIUY,TIUTYP,TIUDA,TIUSER,TIUDT)	; Evaluate cosignature requirement ; Initialize return value
URGENCY(TIUY)	; -- retrieve set values from dd for discharge summary urgency
CANDO(TIUY,TIUDA,TIUACT)	; Boolean function to evaluate privilege
NEEDCS(TIUDA)	; Does user need a cosigner?
USRINACT(TIUY,TIUDA)	; Is user inactive?
AUTHSIGN(TIUY,TIUDA,TIUUSR)	; Has Author signed? ; if TIUY = ; 0 = Author has NOT signed & TIUUSR = Expected Cosigner ; 1 = Author HAS signed or TIUUSR '= Expected Cosigner
TIUVISIT(TIUY,DOCTYP,DFN,VISIT)	; Check for a 1 time only doc ; TIUY = return value ; = 0 if can add more than one or none already exist ; = 1 if cannot add more than one and one already exists ; DOCTYP = Pointer to ^TIU(8925.1, TIU DOCUMENT DEFINITION ; DFN = Patient IEN ; VISIT = Visit String "LOC;VDATE;VTYP" ; *289 ajb
WHATACT(TIUY,TIUDA)	; Evaluate/return whether signature or cosignature
CANCHCOS(TIUY,TIUDA)	; Evaluate/return whether user can change cosigner
NEEDJUST(TIUY,TIUDA)	; Is justification required for deletion?
GETTITLE(TIUY,TIUDA)	; Get the title from a TIU Document Record
CANATTCH(TIUY,TIUDA)	; Can this document be attached as an ID Child
CANRCV(TIUY,TIUDA)	; Can this document receive an ID Child?
WORKCHRT(TIUY,TIUDA)	; RPC: Can user print Work or Chart copy of document ; TIUDA=IEN of docmt
NDTOSIGN(TIUY,TIUDA)	; current user need to sign this document? *355 ajb