Last change
on this file since 1111 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
462 bytes
|
Line | |
---|
1 | FSCFORMP ;SLC/STAFF-NOIS Format Print Template ;4/22/94 10:50
|
---|
2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
3 | TEMP ; 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 | ;
|
---|
10 | FM(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.