VistA Analysis » VistA Reference » RPCs » ORQPT DEFAULT CLINIC DATE RANG

ORQPT DEFAULT CLINIC DATE RANG

Returns default start and stop dates for clinics in the form: start^stop.Start and stop are free text and are not in FM format.

Properties

Property	Value
Label	CDATRANG
MUMPS Implementation	ORQPTQ2
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method CDATRANG^ORQPTQ2

Method Comment return default start and stop dates for clinics in form start^stop

Code

Property	Value
Method	CDATRANG^ORQPTQ2
Method Comment	return default start and stop dates for clinics in form start^stop
Code	N ORBDATE,OREDATE,ORSRV S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) S ORBDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC START DATE",1,"E")) S OREDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC STOP DATE",1,"E")) S ORBDATE=$S($L($G(ORBDATE)):ORBDATE,1:""),OREDATE=$S($L($G(OREDATE)):OREDATE,1:"") S ORY=$$UP^XLFSTR(ORBDATE)_"^"_$$UP^XLFSTR(OREDATE)

 N ORBDATE,OREDATE,ORSRV
 S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U)
 S ORBDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC START DATE",1,"E"))
 S OREDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC STOP DATE",1,"E"))
 S ORBDATE=$S($L($G(ORBDATE)):ORBDATE,1:""),OREDATE=$S($L($G(OREDATE)):OREDATE,1:"")
 S ORY=$$UP^XLFSTR(ORBDATE)_"^"_$$UP^XLFSTR(OREDATE)

CPRS

File Type	Description
Pascal File	rCore.pas

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