VistA Analysis » VistA Reference » RPCs » ORWDXC DELORD

ORWDXC DELORD

Delete order.

Properties

Property Value
Label DELORD
MUMPS Implementation ORWDXC
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method DELORD^ORWDXC
Method Comment Delete order
Input Parameters ORIFN
Code 
 N STS,DIK,DA
 S STS=$P(^OR(100,+ORIFN,8,1,0),U,15),OK=0
 I (STS=10)!(STS=11) D  Q  ; makes sure it's an unreleased order
 . ;*400 - Delete unused replacement order
 . N OLDIFN,DA,DIE,DR S OLDIFN=$P(^OR(100,+ORIFN,3),U,5) I $G(OLDIFN) D
 . . S DA=+OLDIFN,DIE="^OR(100,",DR="9.1///@"
 . . D ^DIE K DA,DIE,DR
 . S DA=+ORIFN,DIK="^OR(100," Q:'DA
 . D ^DIK
 . S OK=1
 . D DELETE^OROCAPI1(+ORIFN)

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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