SDESPATCHINFO ;ALB/KML - VISTA SCHEDULING RPCS GET CURRENT PATCH NUMBER ; FEB 2, 2022
;;5.3;Scheduling;**807**;Aug 13, 1993;Build 5
;;Per VHA Directive 6402, this routine should not be modified
;
Q ;No Direct Call
; RPC: SDES GET PATCH NUMBER
GETPATCHNUM(RETURN) ;
; This RPC returns the latest patch installed on the system
; Input/output:
; RETURN passed by reference/RETURN latest patch installed on system
N X,ERR,SDARRAY
S X=$P($$LAST^XPDUTL("SD"),U),ERR="" ;supported reference IA 10141
I X=-1 S SDARRAY("Error",1)="ERROR: the Scheduling software or version does not exist or no patches have been applied."
E S SDARRAY("Latest SD patch number")=X
D ENCODE^SDESJSON(.SDARRAY,.RETURN,.ERR)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDESPATCHINFO 729 printed Dec 13, 2024@02:57:26 Page 2
SDESPATCHINFO ;ALB/KML - VISTA SCHEDULING RPCS GET CURRENT PATCH NUMBER ; FEB 2, 2022
+1 ;;5.3;Scheduling;**807**;Aug 13, 1993;Build 5
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ;No Direct Call
QUIT
+5 ; RPC: SDES GET PATCH NUMBER
GETPATCHNUM(RETURN) ;
+1 ; This RPC returns the latest patch installed on the system
+2 ; Input/output:
+3 ; RETURN passed by reference/RETURN latest patch installed on system
+4 NEW X,ERR,SDARRAY
+5 ;supported reference IA 10141
SET X=$PIECE($$LAST^XPDUTL("SD"),U)
SET ERR=""
+6 IF X=-1
SET SDARRAY("Error",1)="ERROR: the Scheduling software or version does not exist or no patches have been applied."
+7 IF '$TEST
SET SDARRAY("Latest SD patch number")=X
+8 DO ENCODE^SDESJSON(.SDARRAY,.RETURN,.ERR)
+9 QUIT