VistA Analysis » VistA Reference » RPCs » ORWDLR33 LC TO WC

ORWDLR33 LC TO WC

Properties

Property Value
Label LCTOWC
MUMPS Implementation ORWDLR33
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
LOCATION LITERAL 32 true  

MUMPS Method Description

Property Value
Method LCTOWC^ORWDLR33
Method Comment return text instructing user when LC changed to WC on accept/release
Input Parameters ORLOC
Code
 N ORDIV,ORSVC
S ORDIV=DUZ(2)
S ORSVC=+$G(^VA(200,DUZ,5))
I ORSVC S ORTXT=$$GET^XPAR(+$G(ORLOC)_";SC("_"^"_+$G(ORSVC)_";DIC(49,^"_+$G(ORDIV)_";DIC(4,^SYS^PKG","ORWLR LC CHANGED TO WC",1,"I")
E S ORTXT=$$GET^XPAR(+$G(ORLOC)_";SC("_"^SVC^"_+$G(ORDIV)_";DIC(4,^SYS^PKG","ORWLR LC CHANGED TO WC",1,"I")

CPRS

File Type Description
Pascal File Orders/rODLab.pas


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