|
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
|
| Rev | Line | |
|---|
| [613] | 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.
