FSCFORM.m

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 ---FSCFORM   881     printed  Apr 09, 2024@21:20:26                                                                                                                                                                                                      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