VistA Analysis » VistA Reference » RPCs » ORWDXA UNFLAG

ORWDXA UNFLAG

Unflag an existing order.

Properties

Property Value
Label UNFLAG
MUMPS Implementation ORWDXA
Return Type ARRAY

MUMPS Method Description

Property Value
Method UNFLAG^ORWDXA
Method Comment Unflag order
Input Parameters ORIFN, OREASON
Code 
 N DA,ORB,ORNP,ORVP,ORPS
 S DA=$P(ORIFN,";",2),ORVP=+$P(^OR(100,+ORIFN,0),U,2)
 S $P(^OR(100,+ORIFN,8,DA,3),U)=0,$P(^(3),U,6,8)=+$E($$NOW^XLFDT,1,12)_U_DUZ_U_OREASON D MSG^ORCFLAG(ORIFN)
 S $P(^OR(100,+ORIFN,3),U)=$$NOW^XLFDT  ; Last Activity
 S ORNP=+$P($G(^OR(100,+ORIFN,8,DA,0)),U,3)
 S ORB=+ORVP_U_+ORIFN_U_ORNP_"^0" D EN^OCXOERR(ORB) ; notification
 D GETBYIFN^ORWORR(.REC,ORIFN)

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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