VistA Analysis » VistA Reference » RPCs » ORQQPL ADD SAVE

ORQQPL ADD SAVE

Add new problem record

Properties

Property Value
Label ADDSAVE
MUMPS Implementation ORQQPL1
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
GMPDFN LITERAL      
GMPROV        
GMPVAMC LITERAL      
ADDARRAY LIST     ARRAY OF GMPFLD()=VALUE STRINGS FOR INDIRECT SET

MUMPS Method Description

Property Value
Method ADDSAVE^ORQQPL1
Method Comment SAVE NEW RECORD
Input Parameters GMPDFN, GMPROV, GMPVAMC, ADDARRAY, GMPSRCH
First Comment 
 RETURN - Problem IFN if success, 0 otherwise
 ADDARRAY - array used for indirect sets of  GMPFLDS()
Code 
 N DA,GMPFLD,GMPORIG,S
 S GMPSRCH=$G(GMPSRCH)
 S RETURN=0 ;
 L +^AUPNPROB(0):10
 Q:'$T  ; bail out if no lock
 S S=""
 F  S S=$O(ADDARRAY(S)) Q:S=""  D
 . S @ADDARRAY(S)
 D NEW^GMPLSAVE
 S RETURN=DA
 L -^AUPNPROB(0)
 S RETURN=1

CPRS

File Type Description
Pascal File rProbs.pas
Pascal File BA/fBALocalDiagnoses.pas


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