VistA Analysis » VistA Reference » RPCs » ORWD SAVE

ORWD SAVE

Saves an order. The order is passed in ORDIALOG format.

Properties

Property Value
Label SAVE
MUMPS Implementation ORWD
Return Type ARRAY

MUMPS Method Description

Property Value
Method SAVE^ORWD
Method Comment procedure
Input Parameters DFN, ORNP, LOC, DLG, ORWDACT, RSP
First Comment 
 Save order
Code 
 N ORDIALOG,ORL,ORVP,ORIFN,ORDUZ,ORSTS,ORDG,OREVENT,ORCAT,ORDA
 I $P(^ORD(101.41,+DLG,0),U)="PSO OERR" S ORCAT="O"
 I $P(^ORD(101.41,+DLG,0),U)="PSJ OR PAT OE" S ORCAT="I"
 S ORVP=DFN_";DPT(",ORL(2)=LOC_";SC(",ORL=ORL(2)
 D GETDLG^ORCD(DLG)
 M ORDIALOG=RSP S ORDIALOG=DLG
 I ORWDACT="N" D
 . D EN^ORCSAVE
 . S Y="" I ORIFN D GETBYIFN^ORWORR(.Y,ORIFN)
 I $P(ORWDACT,U,1)="E" D
 . S ORIFN=+$P(ORWDACT,U,2) D XX^ORCSAVE
 . S Y="" S ORIFN=+$P(ORWDACT,U,2)_";"_ORDA D GETBYIFN^ORWORR(.Y,ORIFN)

CPRS

File Type Description
NOT OSEHRA CPRS  


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