VistA Analysis » VistA Reference » RPCs » ORWDXQ DLGSAVE

ORWDXQ DLGSAVE

Return IEN of new or existing quick order.

Properties

Property Value
Label DLGSAVE
MUMPS Implementation ORWDXQ
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method DLGSAVE^ORWDXQ
Method Comment Return IEN of new or existing quick order
Input Parameters CRC, DNAME, DGRP, RSP
Code 
 N ROOT,NM,IEN
 S ROOT="ORWDQ "_CRC,VAL=0,IEN=+$O(^ORD(101.41,"B",ROOT,0))
 I IEN=0 D SAVENEW(.VAL,ROOT,DNAME,DGRP,.RSP) I 1
 E  I $$MATCH(IEN,DGRP,.RSP) S VAL=IEN I 1
 E  D
 . D UPDQNAME^ORCMEDT8(IEN)
 . S ROOT=$$ENSURNEW^ORCMEDT8(ROOT)
 . D SAVENEW(.VAL,ROOT,DNAME,DGRP,.RSP)

CPRS

File Type Description
Pascal File Orders/rODBase.pas


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