source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCFORMP.m@ 700

Last change on this file since 700 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 462 bytes
RevLine 
[613]1FSCFORMP ;SLC/STAFF-NOIS Format Print Template ;4/22/94 10:50
2 ;;1.1;NOIS;;Sep 06, 1998
3TEMP ; from FSCFORM, FSCRPTS
4 N CALLREF,FLDS
5 I $L($G(OK)),OK=0 Q
6 S CALLREF=$P(^FSCD("CALL",CALLNUM,0),U),FLDS=FSCSTYLE("T")
7 D FM(CALLREF,FLDS)
8 Q
9 ;
10FM(CALLREF,FLDS) ;
11 N DIC,L,FR,TO,DHD,BY,DIOBEG,DIOEND,DHIT K DIC
12 S DIC="^FSCD(""CALL"",",L=0,BY=".01",DHD="@@",(FR,TO)=CALLREF,IOP="0",FLDS=$S($L($G(FLDS)):FLDS,1:"[CAPTIONED]")
13 D EN1^DIP
14 D PAUSE^FSCU(.OK) I 'OK Q
15 Q
Note: See TracBrowser for help on using the repository browser.