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

FSCFORMC.m

Go to the documentation of this file.
  1. FSCFORMC ;SLC/STAFF-NOIS Format Custom ;5/18/98 12:38
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. CUSTOM ; from FSCFORM
  1. N ABBREV,CNT,IEN,LINE,SECTION,TEXT
  1. S CNT=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV) S FIELD(ABBREV)=""
  1. D GET^FSCGET("CUSTOM",CALLNUM,.FIELD)
  1. N FORMAT K FORMAT
  1. S SECTION=1,(CNT,LINE)=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV),ABBREV'="REF",ABBREV'="SUBJECT" D
  1. .S LINE=LINE+1 S TEXT=$J($P(STYLE(CNT),U,2)_": ",14)_$P(FIELD(ABBREV),U,2)
  1. .D SETTEXT^FSCFORM(SECTION,LINE,2,TEXT)
  1. .I ABBREV="DESC" D
  1. ..S SECTION=SECTION+1
  1. ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",30)")
  1. ..S SECTION=SECTION+1,LINE=0
  1. .I ABBREV="ACTIONS" D
  1. ..S SECTION=SECTION+1
  1. ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",50)")
  1. ..S SECTION=SECTION+1,LINE=0
  1. .I ABBREV="SUM" D
  1. ..S SECTION=SECTION+1
  1. ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",80)")
  1. ..S SECTION=SECTION+1,LINE=0
  1. .I ABBREV="STATHIST" D
  1. ..S SECTION=SECTION+1
  1. ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",110)")
  1. ..S SECTION=SECTION+1,LINE=0
  1. .I ABBREV="PNOTE" D
  1. ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALLNUM))
  1. ..I 'IEN Q
  1. ..S SECTION=SECTION+1
  1. ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL USER"","_IEN_",2)")
  1. ..S SECTION=SECTION+1,LINE=0
  1. I TYPE["VIEW" D VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE) Q
  1. D SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
  1. Q