FSCFORMF.m

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 ---FSCFORMF   388     printed  Nov 22, 2024@17:27:49                                                                                                                                                                                                     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