|
Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
590 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
