VistA Analysis » VistA Reference » RPCs » ORQQPL REPLACE

ORQQPL REPLACE

REPLACES A PROBLEM THAT WAS PREVIOUSLY DELETED

Properties

Property Value
Label REPLACE
MUMPS Implementation ORQQPL2
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
IFN LITERAL     IFN OF PROBLEM

MUMPS Method Description

Property Value
Method REPLACE^ORQQPL2
Method Comment replace problem on patient's list
Input Parameters DA
First Comment 
 taken from REPLACE^GMPLRPTR
Code 
 N CHNGE,DIE,DR
 I $P($G(^AUPNPROB(DA,1)),U,2)'="H" D  Q  ; BAIL OUT - INVALID RECORD
 . S RETURN=0
 S DR="1.02////P"
 S DIE="^AUPNPROB("
 D ^DIE
 S CHNGE=DA_"^1.02^"_$$HTFM^XLFDT($H)_U_DUZ_"^H^P^Replaced^"_DUZ
 D AUDIT^GMPLX(CHNGE,"")
 D DTMOD^GMPLX(DA)
 S RETURN=1

CPRS

File Type Description
Pascal File rProbs.pas


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