FSCFORM ;SLC/STAFF-NOIS Format ;1/11/98 18:32
;;1.1;NOIS;;Sep 06, 1998
;
BUILD(LISTNUM,CALLNUM,STYLE,LASTLINE,TYPE) ; from FSCEU, FSCLME, FSCLMPC, FSCLMPCC, FSCLMV, FSCNOTS, FSCRPCF
N FIELD,RVOFF,RVON S RVOFF=$G(IORVOFF),RVON=$G(IORVON) K FIELD
I $D(VALMAR) D VIDEOOFF^FSCU
I STYLE="BRIEF" D BRIEF^FSCFORMB Q
I STYLE="DETAIL" D DETAIL^FSCFORMD Q
I STYLE="CUSTOM" D CUSTOM^FSCFORMC Q
I STYLE="STAT" D STAT^FSCFORMS Q
I STYLE="FORMAT" D FORMAT^FSCFORMF Q
I STYLE="FM" D TEMP^FSCFORMP Q
Q
;
SETTEXT(SECTION,LINE,COLUMN,TEXT,ON,OFF) ; from FSCFORMB, FSCFORMC, FSCFORMD, FSCGETQ
S FORMAT(SECTION)="",FORMAT(SECTION,LINE)=$$SETSTR^VALM1(TEXT,$G(FORMAT(SECTION,LINE)),COLUMN,$L(TEXT))
I $L($G(ON))!$L($G(OFF)) S FORMAT(SECTION,LINE,COLUMN)=$L(TEXT)_U_$G(ON)_U_$G(OFF)
Q
;
SETMULT(SECTION,ARRAY) ; from FSCFORMC, FSCFORMD
S FORMAT(SECTION)=ARRAY
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCFORM 881 printed Dec 13, 2024@02:17:45 Page 2
FSCFORM ;SLC/STAFF-NOIS Format ;1/11/98 18:32
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
BUILD(LISTNUM,CALLNUM,STYLE,LASTLINE,TYPE) ; from FSCEU, FSCLME, FSCLMPC, FSCLMPCC, FSCLMV, FSCNOTS, FSCRPCF
+1 NEW FIELD,RVOFF,RVON
SET RVOFF=$GET(IORVOFF)
SET RVON=$GET(IORVON)
KILL FIELD
+2 IF $DATA(VALMAR)
DO VIDEOOFF^FSCU
+3 IF STYLE="BRIEF"
DO BRIEF^FSCFORMB
QUIT
+4 IF STYLE="DETAIL"
DO DETAIL^FSCFORMD
QUIT
+5 IF STYLE="CUSTOM"
DO CUSTOM^FSCFORMC
QUIT
+6 IF STYLE="STAT"
DO STAT^FSCFORMS
QUIT
+7 IF STYLE="FORMAT"
DO FORMAT^FSCFORMF
QUIT
+8 IF STYLE="FM"
DO TEMP^FSCFORMP
QUIT
+9 QUIT
+10 ;
SETTEXT(SECTION,LINE,COLUMN,TEXT,ON,OFF) ; from FSCFORMB, FSCFORMC, FSCFORMD, FSCGETQ
+1 SET FORMAT(SECTION)=""
SET FORMAT(SECTION,LINE)=$$SETSTR^VALM1(TEXT,$GET(FORMAT(SECTION,LINE)),COLUMN,$LENGTH(TEXT))
+2 IF $LENGTH($GET(ON))!$LENGTH($GET(OFF))
SET FORMAT(SECTION,LINE,COLUMN)=$LENGTH(TEXT)_U_$GET(ON)_U_$GET(OFF)
+3 QUIT
+4 ;
SETMULT(SECTION,ARRAY) ; from FSCFORMC, FSCFORMD
+1 SET FORMAT(SECTION)=ARRAY
+2 QUIT
