VistA Analysis » VistA Reference » RPCs » ORQQPX NEW REMINDERS ACTIVE

ORQQPX NEW REMINDERS ACTIVE

Return 1 if Interactive Reminders are active, otherwise return 0.

Properties

Property	Value
Label	NEWACTIV
MUMPS Implementation	ORQQPX
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method NEWACTIV^ORQQPX

Method Comment Return true if Interactive Reminders are active

Code

Property	Value
Method	NEWACTIV^ORQQPX
Method Comment	Return true if Interactive Reminders are active
Code	S ORY=0 I $T(APPL^PXRMRPCA)'="",+$G(DUZ) D . N SRV . ;S SRV=$P($G(^VA(200,DUZ,5)),U) . S SRV=$$GET1^DIQ(200,DUZ,29,"I") . S ORY=$$GET^XPAR(DUZ_";VA(200,^SRV.`"_+$G(SRV)_"^DIV^SYS","PXRM GUI REMINDERS ACTIVE",1,"Q") . I +ORY S ORY=1 . E S ORY=0

 S ORY=0
 I $T(APPL^PXRMRPCA)'="",+$G(DUZ) D
 . N SRV
 . ;S SRV=$P($G(^VA(200,DUZ,5)),U)
 . S SRV=$$GET1^DIQ(200,DUZ,29,"I")
 . S ORY=$$GET^XPAR(DUZ_";VA(200,^SRV.`"_+$G(SRV)_"^DIV^SYS","PXRM GUI REMINDERS ACTIVE",1,"Q")
 . I +ORY S ORY=1
 . E  S ORY=0

CPRS

File Type	Description
Pascal File	rReminders.pas

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