FSCFORMF ;SLC/STAFF-NOIS Format Formats ;4/22/94 10:49
;;1.1;NOIS;;Sep 06, 1998
;
FORMAT ; from FSCFORM
N FTYPE,EXECUTE
I $D(FORMAT("E")) D EXTRACT^FSCRX Q
I $D(FSCSTYLE("E")) M FORMAT=FSCSTYLE D EXTRACT^FSCRX Q
S FTYPE=+$G(FORMAT("F")) I 'FTYPE S FTYPE=+$G(FSCSTYLE("F")) I 'FTYPE Q ;***use one array
S EXECUTE=$G(^FSC("FORMAT",FTYPE,1)) Q:'$L(EXECUTE)
X EXECUTE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCFORMF 388 printed Sep 15, 2024@21:41:50 Page 2
FSCFORMF ;SLC/STAFF-NOIS Format Formats ;4/22/94 10:49
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
FORMAT ; from FSCFORM
+1 NEW FTYPE,EXECUTE
+2 IF $DATA(FORMAT("E"))
DO EXTRACT^FSCRX
QUIT
+3 IF $DATA(FSCSTYLE("E"))
MERGE FORMAT=FSCSTYLE
DO EXTRACT^FSCRX
QUIT
+4 ;***use one array
SET FTYPE=+$GET(FORMAT("F"))
IF 'FTYPE
SET FTYPE=+$GET(FSCSTYLE("F"))
IF 'FTYPE
QUIT
+5 SET EXECUTE=$GET(^FSC("FORMAT",FTYPE,1))
if '$LENGTH(EXECUTE)
QUIT
+6 XECUTE EXECUTE
+7 QUIT