VistA Analysis » VistA Reference » RPCs » ORWDXA VERIFY

ORWDXA VERIFY

Verify an order via CPRS GUI.

Properties

Property Value
Label VERIFY
MUMPS Implementation ORWDXA
Return Type ARRAY

MUMPS Method Description

Property Value
Method VERIFY^ORWDXA
Method Comment Verify order
Input Parameters ORID, ESCODE, ORVER
First Comment 
 validate ESCode
Code 
 S ORVER=$G(ORVER,$S($D(^XUSEC("ORELSE",DUZ)):"N",$D(^XUSEC("OREMAS",DUZ)):"C",1:U))
 I ORVER'=U D
 . N ORIFN,ORES,ORI
 . ; VERIFY any replaced orders:
 . S ORIFN=ORID,ORES(ORIFN)="" D REPLCD^ORCACT1
 . S ORI="" F  S ORI=$O(ORES(ORI)) Q:ORI=""  D EN^ORCSEND(ORI,"VR","",""),UNLK1^ORX2(+ORI):ORI'=ORID ;ORID locked prior
 D GETBYIFN^ORWORR(.REC,ORID)

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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