VistA Analysis » VistA Reference » RPCs » ORQQPL VERIFY

ORQQPL VERIFY

VERIFY A TRANSCRIBED PROBLEM

Properties

Property Value
Label VERIFY
MUMPS Implementation ORQQPL2
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
GMPIFN LITERAL     PROBLEM IFN

MUMPS Method Description

Property Value
Method VERIFY^ORQQPL2
Method Comment verify a transcribed problem
Input Parameters GMPIFN
First Comment
 RETURN:  ;(consistent with UPDATE function)
SUCCESS:
RETURN>0, RETURN(0)=""
FAILURE:
RETURN<0, RETURN(0)=verbose error message
Code
 N NOW,CHNGE
S NOW=$$HTFM^XLFDT($H)
I $P(^AUPNPROB(GMPIFN,1),U,2)'="T" D Q ; BAIL OUT - ALREADY VERIFIED
. S RETURN=-1
. S RETURN(0)="Problem Already Verified"
L +^AUPNPROB(GMPIFN,0):10
I '$T D Q ; BAIL OUT - NO LOCK
. S RETURN=-1
. S RETURN(0)="Record in use. Try again in a few moments"
S $P(^AUPNPROB(GMPIFN,1),U,2)="P"
S CHNGE=GMPIFN_"^1.02^"_NOW_U_DUZ_"^T^P^Verified^"_DUZ
D AUDIT^GMPLX(CHNGE,"")
D DTMOD^GMPLX(GMPIFN)
L -^AUPNPROB(GMPIFN,0)
S RETURN=1
S RETURN(0)=""

CPRS

File Type Description
Pascal File rProbs.pas


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