| 1 | FSCFORM ;SLC/STAFF-NOIS Format ;1/11/98 18:32
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | BUILD(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 | ;
|
|---|
| 15 | SETTEXT(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 | ;
|
|---|
| 20 | SETMULT(SECTION,ARRAY) ; from FSCFORMC, FSCFORMD
|
|---|
| 21 | S FORMAT(SECTION)=ARRAY
|
|---|
| 22 | Q
|
|---|
