VistA Analysis » VistA Reference » RPCs » ORWTPD1 GETEDATS

ORWTPD1 GETEDATS

Properties

Property	Value
Label	GETEDATS
MUMPS Implementation	ORWTPD1
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method GETEDATS^ORWTPD1

Method Comment Get user's (all levels) Encounter app't date range params.

Code

Property	Value
Method	GETEDATS^ORWTPD1
Method Comment	Get user's (all levels) Encounter app't date range params.
Code	N ORSRV,ORUSER S ORUSER=DUZ S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S. S INFO=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQEAPT ENC APPT START",1,"I")_U S INFO=INFO_$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQEAPT ENC APPT STOP",1,"I")

 N ORSRV,ORUSER
 S ORUSER=DUZ
 S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S.
 S INFO=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQEAPT ENC APPT START",1,"I")_U
 S INFO=INFO_$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQEAPT ENC APPT STOP",1,"I")

CPRS

File Type	Description
Pascal File	Options/rOptions.pas

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