FSCFORMP.m

FSCFORMP ;SLC/STAFF-NOIS Format Print Template ;4/22/94  10:50

 ;;1.1;NOIS;;Sep 06, 1998

TEMP ; from FSCFORM, FSCRPTS

 N CALLREF,FLDS

 I $L($G(OK)),OK=0 Q

 S CALLREF=$P(^FSCD("CALL",CALLNUM,0),U),FLDS=FSCSTYLE("T")

 D FM(CALLREF,FLDS)

 Q

 ;

FM(CALLREF,FLDS) ;

 N DIC,L,FR,TO,DHD,BY,DIOBEG,DIOEND,DHIT K DIC

 S DIC="^FSCD(""CALL"",",L=0,BY=".01",DHD="@@",(FR,TO)=CALLREF,IOP="0",FLDS=$S($L($G(FLDS)):FLDS,1:"[CAPTIONED]")

 D EN1^DIP

 D PAUSE^FSCU(.OK) I 'OK Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCFORMP   477     printed  Nov 22, 2024@17:27:50                                                                                                                                                                                                     Page 2

FSCFORMP  ;SLC/STAFF-NOIS Format Print Template ;4/22/94  10:50

 +1       ;;1.1;NOIS;;Sep 06, 1998

TEMP      ; from FSCFORM, FSCRPTS

 +1        NEW CALLREF,FLDS

 +2        IF $LENGTH($GET(OK))

               IF OK=0

                   QUIT 

 +3        SET CALLREF=$PIECE(^FSCD("CALL",CALLNUM,0),U)

           SET FLDS=FSCSTYLE("T")

 +4        DO FM(CALLREF,FLDS)

 +5        QUIT 

 +6       ;

FM(CALLREF,FLDS) ;

 +1        NEW DIC,L,FR,TO,DHD,BY,DIOBEG,DIOEND,DHIT

           KILL DIC

 +2        SET DIC="^FSCD(""CALL"","

           SET L=0

           SET BY=".01"

           SET DHD="@@"

           SET (FR,TO)=CALLREF

           SET IOP="0"

           SET FLDS=$SELECT($LENGTH($GET(FLDS)):FLDS,1:"[CAPTIONED]")

 +3        DO EN1^DIP

 +4        DO PAUSE^FSCU(.OK)

           IF 'OK

               QUIT 

 +5        QUIT