source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCCVDSP2.m@ 699

Last change on this file since 699 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 590 bytes
Line 
1SCCVDSP2 ; ALB/TMP - SCHED VSTS CST/AST SCREEN UTILITIES ; 25-NOV-97
2 ;;5.3;Scheduling;**211**;Aug 13, 1993
3 ;
4EXPAND(FILE,FIELD,VALUE) ; -- return external value of a FM field
5 N Y
6 K ^TMP("DIERR",$J)
7 I 'FILE!('FIELD)!(VALUE="") G EXPQ
8 S Y=$$EXTERNAL^DILFD(FILE,FIELD,"L",VALUE)
9EXPQ I $G(Y)="" S Y=VALUE
10 Q $G(Y)
11 ;
12NONE(FILE,FIELD,VALUE,DEFAULT) ; -- return external value of a FM field or 'None'
13 N Y
14 S Y=$$EXPAND(FILE,FIELD,VALUE)
15 IF Y="" S Y=$G(DEFAULT,"NONE")
16 Q Y
17 ;
18REV(SCCVZ,LINE,COL) ; -- Set reverse video for a line
19 D CNTRL^VALM10(LINE,COL,$L(SCCVZ),IORVON,IORVOFF)
20 Q
21 ;
Note: See TracBrowser for help on using the repository browser.