VistA Analysis » VistA Reference » RPCs » TIU REM DLG OK AS TEMPLATE

TIU REM DLG OK AS TEMPLATE

Returns TRUE is the passed in reminder dialog is allowed to be used ina TIU Template.

Properties

Property Value
Label REMDLGOK
MUMPS Implementation TIUSRVT2
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
TIUIEN LITERAL     Reminder Dialog IEN.

MUMPS Method Description

Property Value
Method REMDLGOK^TIUSRVT2
Method Comment Returns TRUE if the passed in Reminder Dialog IEN is
Input Parameters TIUIEN
First Comment 
                Allowed to be used as a TIU Template
Code 
 N TIULST,SRV
 S TIUY=-1
 I '$D(^PXRMD(801.41,+$G(TIUIEN))) Q
 I +$P(^PXRMD(801.41,+$G(TIUIEN),0),U,3)>0 Q  ;ICR 3410
 S TIUY=1
 D RDACCUM(.TIULST,"USR","Q")
 I $$RDINLST(.TIULST,TIUIEN) Q
 S SRV=$$GETSRV(DUZ)
 D RDACCUM(.TIULST,"SRV.`"_+$G(SRV),"Q")
 I $$RDINLST(.TIULST,TIUIEN) Q
 D RDACCUM(.TIULST,"DIV","Q")
 I $$RDINLST(.TIULST,TIUIEN) Q
 D RDACCUM(.TIULST,"SYS","Q")
 I $$RDINLST(.TIULST,TIUIEN) Q
 S TIUY=0

CPRS

File Type Description
Pascal File Templates/rTemplates.pas


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