TIULP ; SLC/JER - Functions determining privilege ; 6/9/20 4:44pm
Source file <TIULP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CANDO(TIUDA,TIUACT,PERSON) | ; Can PERSON perform action now
; Receives: TIUDA=Record number in file 8925 ; TIUACT=Name of user action in 8930.8 (USR ACTION) ; PERSON=New Person file IFN. ; Assumed to be DUZ if not received. ; New **100** ID param, backward compatible. ; Returns: TIUY=1:yes,0:no_"^"_why not message |
|
| CANDOX | ||
| CANLINK(TIUTYP) | ; Can user (DUZ) link (attach) a document of a particular type
|
|
| POSSPRNT(TIUTYP) | ; Is a docmt intended as a possible ID parent?
|
|
| POSSX | ||
| CANENTR(TIUTYP) | ; Evaluate privilege to enter a document of a particular type
|
|
| USRROLE(TIUDA,PERSON) | ; Identify the user's role with respect to the document
; 3/20/00 **100** Added role COMPLETER ; 3/20/00 **100** Added PERSON param |
|
| USREVNT(EVENT) | ; Given event name, return:
|
|
| CANPICK(TIUTYP) | ; Screens selection of title by title status and
|
|
| CANPIX | ||
| REQCOSIG(TIUTYP,TIUDA,USER,TIUDT) | ; Evaluate whether user requires cosignature
|
|
| REQCOSX | ||
| REQCPF(TIUCDA) | ;Check if clinical procedure fields are required
; Input -- TIUCDA Request/Consult File (#123) IEN ; Output -- 1=Required and 0=Not Required |
|
| REQCPFQ |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
