XUINP275 ;ISF/RWF - PATCH 275 PRE/POST INSTALL ;06/28/2004 14:26
;;8.0;KERNEL;**275**;Jul 10, 1995
PRE ;PRE-init
Q
POST ;POST-INIT
D ALT1,ALT2
Q
ALT1 ;ALTERNATE EDITOR GTM/VMS
Q:$G(^%ZOSF("OS"))'["GT.M"
N FDA,WP
S WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
S WP(2)="Creates a temporary VMS file in the default directory with a name of"
S WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
S WP(4)="that EDT leaves behind."
S FDA(1.2,"?+1,",.01)="VMSEDT - GTM",FDA(1.2,"?+1,",1)="G GTMVMS^XTEDTVXD"
S FDA(1.2,"?+1,",2)="I $ZV[""VMS""",FDA(1.2,"?+1,",7)="WP"
D UPDATE^DIE("","FDA","IEN")
Q
ALT2 ;ALTERNATE EDITOR Cache/VMS
Q:$G(^%ZOSF("OS"))'["OpenM"
Q:$ZV'["VMS"
N FDA,WP
S WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
S WP(2)="Creates a temporary VMS file in the default directory with a name of"
S WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
S WP(4)="that EDT leaves behind."
S FDA(1.2,"?+1,",.01)="VMSEDT - CACHE",FDA(1.2,"?+1,",1)="G CACHE^XTEDTVXD"
S FDA(1.2,"?+1,",2)="I $ZV[""VMS""",FDA(1.2,"?+1,",7)="WP"
D UPDATE^DIE("","FDA","IEN")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUINP275 1242 printed Dec 13, 2024@02:09:43 Page 2
XUINP275 ;ISF/RWF - PATCH 275 PRE/POST INSTALL ;06/28/2004 14:26
+1 ;;8.0;KERNEL;**275**;Jul 10, 1995
PRE ;PRE-init
+1 QUIT
POST ;POST-INIT
+1 DO ALT1
DO ALT2
+2 QUIT
ALT1 ;ALTERNATE EDITOR GTM/VMS
+1 if $GET(^%ZOSF("OS"))'["GT.M"
QUIT
+2 NEW FDA,WP
+3 SET WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
+4 SET WP(2)="Creates a temporary VMS file in the default directory with a name of"
+5 SET WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
+6 SET WP(4)="that EDT leaves behind."
+7 SET FDA(1.2,"?+1,",.01)="VMSEDT - GTM"
SET FDA(1.2,"?+1,",1)="G GTMVMS^XTEDTVXD"
+8 SET FDA(1.2,"?+1,",2)="I $ZV[""VMS"""
SET FDA(1.2,"?+1,",7)="WP"
+9 DO UPDATE^DIE("","FDA","IEN")
+10 QUIT
ALT2 ;ALTERNATE EDITOR Cache/VMS
+1 if $GET(^%ZOSF("OS"))'["OpenM"
QUIT
+2 if $ZV'["VMS"
QUIT
+3 NEW FDA,WP
+4 SET WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
+5 SET WP(2)="Creates a temporary VMS file in the default directory with a name of"
+6 SET WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
+7 SET WP(4)="that EDT leaves behind."
+8 SET FDA(1.2,"?+1,",.01)="VMSEDT - CACHE"
SET FDA(1.2,"?+1,",1)="G CACHE^XTEDTVXD"
+9 SET FDA(1.2,"?+1,",2)="I $ZV[""VMS"""
SET FDA(1.2,"?+1,",7)="WP"
+10 DO UPDATE^DIE("","FDA","IEN")
+11 QUIT
