VistA Analysis » VistA Reference » RPCs » TIU TEMPLATE ACCESS LEVEL

TIU TEMPLATE ACCESS LEVEL

Properties

Property Value
Label TACCESS
MUMPS Implementation TIUSRVT2
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method TACCESS^TIUSRVT2
Method Comment Returns Template Access level of User
Input Parameters ROOT, USER, LOC
First Comment

Return Values:

0 = FULL ACCESS
1 = READ ONLY
2 = NO ACCESS
3 = SHARED TEMPLATES EDITOR - ACCESS PARAMETERS DO NOT APPLY
Code
 I +ROOT D  Q:+TIUY
.D ISEDITOR^TIUSRVT(.TIUY,ROOT,USER)
.I +TIUY S TIUY=3
.E S TIUY=0
S TIUY=$$GET^XPAR(USER_";VA(200,","TIU PERSONAL TEMPLATE ACCESS",1,"I") ;ICR 2263
I TIUY="" D
.N TIUCLLST,TIUERR,IDX,TMP
.D GETLST^XPAR(.TIUCLLST,"SYS","TIU TEMPLATE ACCESS BY CLASS","Q",.TIUERR) ;ICR 2263
.I TIUERR>0 Q
.S IDX=0
.F S IDX=$O(TIUCLLST(IDX)) Q:'IDX D
..I $$ISA^USRLM(USER,$P(TIUCLLST(IDX),U),.TIUERR) D ;ICR 1544
...S TMP=+$P(TIUCLLST(IDX),U,2)
...I +TIUY'>TMP S TIUY=TMP
I TIUY="" D
.N XPARSRCH,SERVICE
.I +$G(LOC) S XPARSRCH=LOC_";SC("_U
.E S XPARSRCH=""
.;S SERVICE=$P($G(^VA(200,USER,5)),U)
.S SERVICE=$$GETSRV(USER)
.I +SERVICE>0 S XPARSRCH=XPARSRCH_SERVICE_";DIC(49,"_U
.S XPARSRCH=XPARSRCH_"DIV^SYS"
.S TIUY=$$GET^XPAR(XPARSRCH,"TIU PERSONAL TEMPLATE ACCESS")
I TIUY="" S TIUY=0

CPRS

File Type Description
Pascal File Templates/rTemplates.pas


Document generated on August 31st 2022, 2:55:43 pm