VistA Analysis » VistA Reference » RPCs » ORWDPS32 AUTHNVA

ORWDPS32 AUTHNVA

Checks restrictions for entering non-VA meds. If no restrictions, a 0 isreturned. If there is a restriction, it is returned in the format:1^restriction text

Properties

Property	Value
Label	AUTHNVA
MUMPS Implementation	ORWDPS32
Return Type	SINGLE VALUE

MUMPS Method Description

Property	Value
Method	AUTHNVA^ORWDPS32
Method Comment	For Non-VA meds, check restrictions
Input Parameters	PRV
Code	`N NAME,AUTH,INACT,X S VAL=0 I $D(^XUSEC("OREMAS",DUZ)),$$GET^XPAR("ALL","OR OREMAS NON-VA MED ORDERS")=2 Q I $D(^XUSEC("OREMAS",DUZ)),'$$GET^XPAR("ALL","OR OREMAS NON-VA MED ORDERS") D Q . S VAL="1^OREMAS key holders may not enter non-VA medication orders." S NAME=$P($G(^VA(200,PRV,20)),U,2) S:'$L(NAME) NAME=$P(^(0),U) S X=$G(^VA(200,PRV,"PS")),AUTH=$P(X,U),INACT=$P(X,U,4) I 'AUTH!(INACT&(DT>INACT)) D Q . S VAL="1^"_NAME_" is not authorized to write medication orders."`

CPRS

File Type	Description
Pascal File	Orders/fODMedNVA.pas

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