VistA Analysis » VistA Reference » RPCs » TIU FIELD CAN EDIT

TIU FIELD CAN EDIT

Returns TRUE if the current user is allowed to edit template fields.

Properties

Property	Value
Label	CANEDIT
MUMPS Implementation	TIUSRVF1
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method CANEDIT^TIUSRVF1

Method Comment Returns TRUE if the current user can edit dialog fields

Code

Property	Value
Method	CANEDIT^TIUSRVF1
Method Comment	Returns TRUE if the current user can edit dialog fields
Code	S TIUY=0 I '+DUZ Q N TIUCLASS,TIUERR,IDX,SRV S SRV=$P($G(^VA(200,DUZ,5)),U) D GETLST^XPAR(.TIUCLASS,DUZ_";VA(200,^SRV.`"_+$G(SRV)_"^DIV^SYS^PKG","TIU FIELD EDITOR CLASSES","Q",.TIUERR) I TIUERR>0 Q S IDX=0 F S IDX=$O(TIUCLASS(IDX)) Q:'IDX D Q:+TIUY .I $$ISA^USRLM(DUZ,$P(TIUCLASS(IDX),U,2),.TIUERR) S TIUY=1

 S TIUY=0
 I '+DUZ Q
 N TIUCLASS,TIUERR,IDX,SRV
 S SRV=$P($G(^VA(200,DUZ,5)),U)
 D GETLST^XPAR(.TIUCLASS,DUZ_";VA(200,^SRV.`"_+$G(SRV)_"^DIV^SYS^PKG","TIU FIELD EDITOR CLASSES","Q",.TIUERR)
 I TIUERR>0 Q
 S IDX=0
 F  S IDX=$O(TIUCLASS(IDX)) Q:'IDX  D  Q:+TIUY
 .I $$ISA^USRLM(DUZ,$P(TIUCLASS(IDX),U,2),.TIUERR) S TIUY=1

CPRS

File Type	Description
Pascal File	Templates/rTemplates.pas

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