VistA Analysis » VistA Reference » RPCs » ORQQPL INACTIVATE

ORQQPL INACTIVATE

Properties

Property Value
Label INACT
MUMPS Implementation ORQQPL2
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
Problem IFN LITERAL 16 true  

MUMPS Method Description

Property Value
Method INACT^ORQQPL2
Method Comment inactivate a 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,0),U,12)'="A" D  Q  ; BAIL OUT - ALREADY INACTIVE
 . S RETURN=-1
 . S RETURN(0)="Problem Already Inactive"
 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,0),U,12)="I"
 S CHNGE=GMPIFN_"^.12^"_NOW_U_DUZ_"^A^I^Inactivated^"_DUZ
 D AUDIT^GMPLX(CHNGE,"")
 D DTMOD^GMPLX(GMPIFN)
 L -^AUPNPROB(GMPIFN,0)
 S RETURN=1
 S RETURN(0)=""

CPRS

File Type Description
NOT OSEHRA CPRS  


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