VistA Analysis » VistA Reference » RPCs » ORWDAL32 SAVE ALLERGY

ORWDAL32 SAVE ALLERGY

Properties

Property Value
Label EDITSAVE
MUMPS Implementation ORWDAL32
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method EDITSAVE^ORWDAL32
Method Comment Save Edit/Add of an allergy/adverse reaction
Input Parameters ORALIEN, ORDFN, OREDITED
First Comment 
following patch check is made via GUI RPC call to ORWU PATCH instead
I '$$PATCH^XPDUTL("GMRA*4.0*21") S Y="-1^Not yet implemented" Q
Code 
 N ORNODE
 S ORNODE=$NAME(^TMP("GMRA",$J))
 K @ORNODE M @ORNODE=OREDITED
 S ORY=0
 I $G(@ORNODE@("GMRAERR"))="YES" D EIE^GMRAGUI1(ORALIEN,ORDFN,ORNODE) Q  ;Handle entered in error
 I $G(@ORNODE@("GMRANKA"))="YES" D NKA^GMRAGUI1 Q
 D UPDATE^GMRAGUI1(ORALIEN,ORDFN,ORNODE) Q  ;Add/edit reactions

CPRS

File Type Description
Pascal File Orders/rODAllergy.pas


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