Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCFORM

FSCFORM.m

Go to the documentation of this file.
  1. FSCFORM ;SLC/STAFF-NOIS Format ;1/11/98 18:32
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. BUILD(LISTNUM,CALLNUM,STYLE,LASTLINE,TYPE) ; from FSCEU, FSCLME, FSCLMPC, FSCLMPCC, FSCLMV, FSCNOTS, FSCRPCF
  1. N FIELD,RVOFF,RVON S RVOFF=$G(IORVOFF),RVON=$G(IORVON) K FIELD
  1. I $D(VALMAR) D VIDEOOFF^FSCU
  1. I STYLE="BRIEF" D BRIEF^FSCFORMB Q
  1. I STYLE="DETAIL" D DETAIL^FSCFORMD Q
  1. I STYLE="CUSTOM" D CUSTOM^FSCFORMC Q
  1. I STYLE="STAT" D STAT^FSCFORMS Q
  1. I STYLE="FORMAT" D FORMAT^FSCFORMF Q
  1. I STYLE="FM" D TEMP^FSCFORMP Q
  1. Q
  1. ;
  1. SETTEXT(SECTION,LINE,COLUMN,TEXT,ON,OFF) ; from FSCFORMB, FSCFORMC, FSCFORMD, FSCGETQ
  1. S FORMAT(SECTION)="",FORMAT(SECTION,LINE)=$$SETSTR^VALM1(TEXT,$G(FORMAT(SECTION,LINE)),COLUMN,$L(TEXT))
  1. I $L($G(ON))!$L($G(OFF)) S FORMAT(SECTION,LINE,COLUMN)=$L(TEXT)_U_$G(ON)_U_$G(OFF)
  1. Q
  1. ;
  1. SETMULT(SECTION,ARRAY) ; from FSCFORMC, FSCFORMD
  1. S FORMAT(SECTION)=ARRAY
  1. Q