source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUINP275.m@ 975

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1XUINP275 ;ISF/RWF - PATCH 275 PRE/POST INSTALL ;06/28/2004 14:26
2 ;;8.0;KERNEL;**275**;Jul 10, 1995
3PRE ;PRE-init
4 Q
5POST ;POST-INIT
6 D ALT1,ALT2
7 Q
8ALT1 ;ALTERNATE EDITOR GTM/VMS
9 Q:$G(^%ZOSF("OS"))'["GT.M"
10 N FDA,WP
11 S WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
12 S WP(2)="Creates a temporary VMS file in the default directory with a name of"
13 S WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
14 S WP(4)="that EDT leaves behind."
15 S FDA(1.2,"?+1,",.01)="VMSEDT - GTM",FDA(1.2,"?+1,",1)="G GTMVMS^XTEDTVXD"
16 S FDA(1.2,"?+1,",2)="I $ZV[""VMS""",FDA(1.2,"?+1,",7)="WP"
17 D UPDATE^DIE("","FDA","IEN")
18 Q
19ALT2 ;ALTERNATE EDITOR Cache/VMS
20 Q:$G(^%ZOSF("OS"))'["OpenM"
21 Q:$ZV'["VMS"
22 N FDA,WP
23 S WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
24 S WP(2)="Creates a temporary VMS file in the default directory with a name of"
25 S WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
26 S WP(4)="that EDT leaves behind."
27 S FDA(1.2,"?+1,",.01)="VMSEDT - CACHE",FDA(1.2,"?+1,",1)="G CACHE^XTEDTVXD"
28 S FDA(1.2,"?+1,",2)="I $ZV[""VMS""",FDA(1.2,"?+1,",7)="WP"
29 D UPDATE^DIE("","FDA","IEN")
30 Q
Note: See TracBrowser for help on using the repository browser.