Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUINP275

XUINP275.m

Go to the documentation of this file.
  1. XUINP275 ;ISF/RWF - PATCH 275 PRE/POST INSTALL ;06/28/2004 14:26
  1. ;;8.0;KERNEL;**275**;Jul 10, 1995
  1. PRE ;PRE-init
  1. Q
  1. POST ;POST-INIT
  1. D ALT1,ALT2
  1. Q
  1. ALT1 ;ALTERNATE EDITOR GTM/VMS
  1. Q:$G(^%ZOSF("OS"))'["GT.M"
  1. N FDA,WP
  1. S WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
  1. S WP(2)="Creates a temporary VMS file in the default directory with a name of"
  1. S WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
  1. S WP(4)="that EDT leaves behind."
  1. S FDA(1.2,"?+1,",.01)="VMSEDT - GTM",FDA(1.2,"?+1,",1)="G GTMVMS^XTEDTVXD"
  1. S FDA(1.2,"?+1,",2)="I $ZV[""VMS""",FDA(1.2,"?+1,",7)="WP"
  1. D UPDATE^DIE("","FDA","IEN")
  1. Q
  1. ALT2 ;ALTERNATE EDITOR Cache/VMS
  1. Q:$G(^%ZOSF("OS"))'["OpenM"
  1. Q:$ZV'["VMS"
  1. N FDA,WP
  1. S WP(1)="Call to the VAX VMS EDT editor to process FileMan wordprocessing fields."
  1. S WP(2)="Creates a temporary VMS file in the default directory with a name of"
  1. S WP(3)="'DIWE$'_$JOB_'.TMP'. This version will remove the two copies of the file"
  1. S WP(4)="that EDT leaves behind."
  1. S FDA(1.2,"?+1,",.01)="VMSEDT - CACHE",FDA(1.2,"?+1,",1)="G CACHE^XTEDTVXD"
  1. S FDA(1.2,"?+1,",2)="I $ZV[""VMS""",FDA(1.2,"?+1,",7)="WP"
  1. D UPDATE^DIE("","FDA","IEN")
  1. Q