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

FSCFORMF.m

Go to the documentation of this file.
  1. FSCFORMF ;SLC/STAFF-NOIS Format Formats ;4/22/94 10:49
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. FORMAT ; from FSCFORM
  1. N FTYPE,EXECUTE
  1. I $D(FORMAT("E")) D EXTRACT^FSCRX Q
  1. I $D(FSCSTYLE("E")) M FORMAT=FSCSTYLE D EXTRACT^FSCRX Q
  1. S FTYPE=+$G(FORMAT("F")) I 'FTYPE S FTYPE=+$G(FSCSTYLE("F")) I 'FTYPE Q ;***use one array
  1. S EXECUTE=$G(^FSC("FORMAT",FTYPE,1)) Q:'$L(EXECUTE)
  1. X EXECUTE
  1. Q