source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCFORM.m@ 701

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

initial load of WorldVistAEHR

File size: 859 bytes
Line 
1FSCFORM ;SLC/STAFF-NOIS Format ;1/11/98 18:32
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4BUILD(LISTNUM,CALLNUM,STYLE,LASTLINE,TYPE) ; from FSCEU, FSCLME, FSCLMPC, FSCLMPCC, FSCLMV, FSCNOTS, FSCRPCF
5 N FIELD,RVOFF,RVON S RVOFF=$G(IORVOFF),RVON=$G(IORVON) K FIELD
6 I $D(VALMAR) D VIDEOOFF^FSCU
7 I STYLE="BRIEF" D BRIEF^FSCFORMB Q
8 I STYLE="DETAIL" D DETAIL^FSCFORMD Q
9 I STYLE="CUSTOM" D CUSTOM^FSCFORMC Q
10 I STYLE="STAT" D STAT^FSCFORMS Q
11 I STYLE="FORMAT" D FORMAT^FSCFORMF Q
12 I STYLE="FM" D TEMP^FSCFORMP Q
13 Q
14 ;
15SETTEXT(SECTION,LINE,COLUMN,TEXT,ON,OFF) ; from FSCFORMB, FSCFORMC, FSCFORMD, FSCGETQ
16 S FORMAT(SECTION)="",FORMAT(SECTION,LINE)=$$SETSTR^VALM1(TEXT,$G(FORMAT(SECTION,LINE)),COLUMN,$L(TEXT))
17 I $L($G(ON))!$L($G(OFF)) S FORMAT(SECTION,LINE,COLUMN)=$L(TEXT)_U_$G(ON)_U_$G(OFF)
18 Q
19 ;
20SETMULT(SECTION,ARRAY) ; from FSCFORMC, FSCFORMD
21 S FORMAT(SECTION)=ARRAY
22 Q
Note: See TracBrowser for help on using the repository browser.