- 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 Feb 18, 2025@23:36:10 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