- 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 Feb 18, 2025@23:44:16 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