SDECU4 ;ALB/JSM - VISTA SCHEDULING RPCS ;MAR 15, 2017
;;5.3;Scheduling;**658**;Aug 13, 1993;Build 23
;
Q
;
GETFONT(VAL,ENT) ; returns default font size
N FNT
S ENT=$G(ENT)
;S:ENT="" ENT="SYS"
S:ENT="" ENT="DIV"
S VAL="^TMP(""SDECRMGP"","_$J_",""FONTSIZE"")"
K @VAL
; data header
S @VAL@(0)="T00030RETURNCODE^T00050TEXT"_$C(30)
;
S FNT=$$GET^XPAR(ENT,"SDEC DEFAULT FONT SIZE",1,"I")
S @VAL@(1)=FNT_$C(30,31)
Q
;
PUTFONT(RET,ENT,VAL) ; save the default font size
N ERR
S ENT=$G(ENT)
;S:ENT="" ENT="SYS"
S:ENT="" ENT="DIV"
S RET="^TMP(""SDECRMGP"","_$J_",""FONTSIZE"")"
K @RET
; data header
S @RET@(0)="T00030RETURNCODE^T00050TEXT"_$C(30)
I VAL="" S @RET@(1)="-1^Default font size not provided"_$C(30,31) Q ; quit if value is not set
D EN^XPAR(ENT,"SDEC DEFAULT FONT SIZE",1,VAL,.ERR)
I ERR S @RET@(1)="-1^FILTER ERR: "_$P(ERR,U,1)_";"_$P(ERR,U,2)_$C(30,31) Q
S @RET@(1)="0^SUCCESS"_$C(30,31)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDECU4 967 printed Dec 13, 2024@02:52:49 Page 2
SDECU4 ;ALB/JSM - VISTA SCHEDULING RPCS ;MAR 15, 2017
+1 ;;5.3;Scheduling;**658**;Aug 13, 1993;Build 23
+2 ;
+3 QUIT
+4 ;
GETFONT(VAL,ENT) ; returns default font size
+1 NEW FNT
+2 SET ENT=$GET(ENT)
+3 ;S:ENT="" ENT="SYS"
+4 if ENT=""
SET ENT="DIV"
+5 SET VAL="^TMP(""SDECRMGP"","_$JOB_",""FONTSIZE"")"
+6 KILL @VAL
+7 ; data header
+8 SET @VAL@(0)="T00030RETURNCODE^T00050TEXT"_$CHAR(30)
+9 ;
+10 SET FNT=$$GET^XPAR(ENT,"SDEC DEFAULT FONT SIZE",1,"I")
+11 SET @VAL@(1)=FNT_$CHAR(30,31)
+12 QUIT
+13 ;
PUTFONT(RET,ENT,VAL) ; save the default font size
+1 NEW ERR
+2 SET ENT=$GET(ENT)
+3 ;S:ENT="" ENT="SYS"
+4 if ENT=""
SET ENT="DIV"
+5 SET RET="^TMP(""SDECRMGP"","_$JOB_",""FONTSIZE"")"
+6 KILL @RET
+7 ; data header
+8 SET @RET@(0)="T00030RETURNCODE^T00050TEXT"_$CHAR(30)
+9 ; quit if value is not set
IF VAL=""
SET @RET@(1)="-1^Default font size not provided"_$CHAR(30,31)
QUIT
+10 DO EN^XPAR(ENT,"SDEC DEFAULT FONT SIZE",1,VAL,.ERR)
+11 IF ERR
SET @RET@(1)="-1^FILTER ERR: "_$PIECE(ERR,U,1)_";"_$PIECE(ERR,U,2)_$CHAR(30,31)
QUIT
+12 SET @RET@(1)="0^SUCCESS"_$CHAR(30,31)
+13 QUIT
+14 ;
