VistA Analysis » VistA Reference » RPCs » XUS CVC

XUS CVC

This RPC is used as part of Kernel to allow the user to change thereverify code.

Properties

Property Value
Label CVC
MUMPS Implementation XUSRB
Return Type ARRAY

MUMPS Method Description

Property Value
Method CVC^XUSRB
Method Comment change VC, Return 0 = success
Input Parameters XU1
Code 
 N XU2,XU3,XU4 S DUZ=$G(DUZ),RET(0)=99,XU4=$$STATE^XWBSEC("XUS DUZ") S:(DUZ=0)&(XU4>0) DUZ=XU4 Q:DUZ'>0
 S U="^",XU2=$P(XU1,U,2),XU3=$P(XU1,U,3),XU1=$P(XU1,U)
 S XU1=$$DECRYP^XUSRB1(XU1),XU2=$$DECRYP^XUSRB1(XU2),XU3=$$DECRYP^XUSRB1(XU3)
 S XU3=$$BRCVC^XUS2(XU1,XU2),RET(0)=+XU3,RET(1)=$P(XU3,U,2,9)
 I XU3>0 S DUZ=0 ;Clean-up if not changed.
 I 'XU3,XU4 D KILL^XWBSEC("XUS DUZ"),POST2

CPRS

File Type Description
Executable Only  


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