VistA Analysis » VistA Reference » RPCs » ORQQPL DELETE

ORQQPL DELETE

DELETES A PROBLEM

Properties

Property Value
Label DELETE
MUMPS Implementation ORQQPL2
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
IFN LITERAL      
PROVIDERID        
VAMC        
REASON LITERAL      

MUMPS Method Description

Property Value
Method DELETE^ORQQPL2
Method Comment DELETE A PROBLEM
Input Parameters GMPIFN, GMPROV, GMPVAMC, REASON
First Comment 
 From GMPL1 - silent version
Code 
 N CHNGE
 I REASON'="" D
 . S GMPFLD(10,"NEW",1)=REASON
 . D NEWNOTE^GMPLSAVE
 S CHNGE=GMPIFN_"^1.02^"_$$HTFM^XLFDT($H)
 S CHNGE=CHNGE_U_DUZ_"^P^H^Deleted^"_+$G(GMPROV)
 S $P(^AUPNPROB(GMPIFN,1),U,2)="H"
 S RESULT=1
 D AUDIT^GMPLX(CHNGE,"")
 D DTMOD^GMPLX(GMPIFN)
 K GMPFLD

CPRS

File Type Description
Pascal File rProbs.pas


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