SCCVDSP2.m

SCCVDSP2 ; ALB/TMP - SCHED VSTS CST/AST SCREEN UTILITIES ; 25-NOV-97

 ;;5.3;Scheduling;**211**;Aug 13, 1993

 ;

EXPAND(FILE,FIELD,VALUE) ; -- return external value of a FM field

 N Y

 K ^TMP("DIERR",$J)

 I 'FILE!('FIELD)!(VALUE="") G EXPQ

 S Y=$$EXTERNAL^DILFD(FILE,FIELD,"L",VALUE)

EXPQ I $G(Y)="" S Y=VALUE

 Q $G(Y)

 ;

NONE(FILE,FIELD,VALUE,DEFAULT) ; -- return external value of a FM field or 'None'

 N Y

 S Y=$$EXPAND(FILE,FIELD,VALUE)

 IF Y="" S Y=$G(DEFAULT,"NONE")

 Q Y

 ;

REV(SCCVZ,LINE,COL) ; -- Set reverse video for a line

 D CNTRL^VALM10(LINE,COL,$L(SCCVZ),IORVON,IORVOFF)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCCVDSP2   611     printed  Nov 22, 2024@17:48:36                                                                                                                                                                                                     Page 2

SCCVDSP2  ; ALB/TMP - SCHED VSTS CST/AST SCREEN UTILITIES ; 25-NOV-97

 +1       ;;5.3;Scheduling;**211**;Aug 13, 1993

 +2       ;

EXPAND(FILE,FIELD,VALUE) ; -- return external value of a FM field

 +1        NEW Y

 +2        KILL ^TMP("DIERR",$JOB)

 +3        IF 'FILE!('FIELD)!(VALUE="")

               GOTO EXPQ

 +4        SET Y=$$EXTERNAL^DILFD(FILE,FIELD,"L",VALUE)

EXPQ       IF $GET(Y)=""

               SET Y=VALUE

 +1        QUIT $GET(Y)

 +2       ;

NONE(FILE,FIELD,VALUE,DEFAULT) ; -- return external value of a FM field or 'None'

 +1        NEW Y

 +2        SET Y=$$EXPAND(FILE,FIELD,VALUE)

 +3        IF Y=""

               SET Y=$GET(DEFAULT,"NONE")

 +4        QUIT Y

 +5       ;

REV(SCCVZ,LINE,COL) ; -- Set reverse video for a line

 +1        DO CNTRL^VALM10(LINE,COL,$LENGTH(SCCVZ),IORVON,IORVOFF)

 +2        QUIT 

 +3       ;