VistA Analysis » VistA Reference » RPCs » ORWDPS32 SCSTS

ORWDPS32 SCSTS

Return pharmacy-related service connected eligibility for a patient.

Properties

Property Value
Label SCSTS
MUMPS Implementation ORWDPS33
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method SCSTS^ORWDPS33
Method Comment return service connected eligibility for patient
Input Parameters ORVP, ORDRUG
Code 
 N ORWP94 S ORWP94=$O(^ORD(101.41,"AB","PS MEDS",0))>0
 I $L($T(SC^PSOCP)),$$SC^PSOCP(+ORVP,+$G(ORDRUG)) S VAL=0 G XSCSTS
 I 'ORWP94,(+$$RXST^IBARXEU(+ORVP)>0) S VAL=0 G XSCSTS
 S VAL=1

CPRS

File Type Description
Pascal File Orders/rODBase.pas


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