Last change
on this file since 1093 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
590 bytes
|
Line | |
---|
1 | SCCVDSP2 ; ALB/TMP - SCHED VSTS CST/AST SCREEN UTILITIES ; 25-NOV-97
|
---|
2 | ;;5.3;Scheduling;**211**;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | EXPAND(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)
|
---|
9 | EXPQ I $G(Y)="" S Y=VALUE
|
---|
10 | Q $G(Y)
|
---|
11 | ;
|
---|
12 | NONE(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 | ;
|
---|
18 | REV(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.