- 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 Jan 18, 2025@03:18:56 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