VistA Analysis » VistA Reference » RPCs » ORWTPD1 GETCSRNG

ORWTPD1 GETCSRNG

Properties

Property	Value
Label	GETCSRNG
MUMPS Implementation	ORWTPD1
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method GETCSRNG^ORWTPD1

Method Comment Get user's Cover Sheet date range defaults.

Code

Property	Value
Method	GETCSRNG^ORWTPD1
Method Comment	Get user's Cover Sheet date range defaults.
Code	N ORSRV,ORUSER,ORVAL S ORUSER=DUZ S ORVAL="" S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S. S ORVAL=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I") S ORVAL=$$CHKRNG(ORVAL,999) S VAL=ORVAL_U,ORVAL="" S ORVAL=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I") S ORVAL=$$CHKRNG(ORVAL,999) S VAL=VAL_ORVAL

 N ORSRV,ORUSER,ORVAL
 S ORUSER=DUZ
 S ORVAL=""
 S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S.
 S ORVAL=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")
 S ORVAL=$$CHKRNG(ORVAL,999)
 S VAL=ORVAL_U,ORVAL=""
 S ORVAL=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
 S ORVAL=$$CHKRNG(ORVAL,999)
 S VAL=VAL_ORVAL

CPRS

File Type	Description
Pascal File	Options/rOptions.pas

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