VistA Analysis » VistA Reference » RPCs » ORQQPL EDIT SAVE

ORQQPL EDIT SAVE

sAVES EDITED PROBLEM RECORD

Properties

Property	Value
Label	EDSAVE
MUMPS Implementation	ORQQPL1
Return Type	SINGLE VALUE

Input Parameters

Name	Type	Maximum Data Length	Required	Description
IFN	LITERAL			RECORD IFN
PROV	LITERAL			PROBLEM RESP PROVIDER
VAMC	LITERAL			FACILITY ID

MUMPS Method Description

Property	Value
Method	EDSAVE^ORQQPL1
Method Comment	SAVE EDITED RES
Input Parameters	GMPIFN, GMPROV, GMPVAMC, UT, EDARRAY, GMPSRCH
First Comment	`RETURN - boolean, 1 success, 0 failure EDARRAY - array used for indirect sets of GMPORIG() and GMPFLDS()`
Code	`N GMPFLD,GMPORIG,S,GMPLUSER S GMPSRCH=$G(GMPSRCH) S RETURN=1 ; initialize for success I UT S GMPLUSER=1 S S="" F S S=$O(EDARRAY(S)) Q:S="" D . S @EDARRAY(S) I $D(GMPFLD(10,"NEW"))>9 D I 'RETURN Q ; Bail Out if no lock . L +^AUPNPROB(GMPIFN,11):10 ; given bogus nature of this lock, should be able to get . I '$T S RETURN=0 D EN^GMPLSAVE ; save the data K GMPFLD,GMPORIG L -^AUPNPROB(GMPIFN,11) ; free this instance of lock (in case it was set) S RETURN=1`

CPRS

File Type	Description
Pascal File	rProbs.pas

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