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 ---[H[J[2J[HFSCFORMP 477 printed Sep 23, 2025@19:54:06 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
