XUINP275.m

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 ---XUINP275   1242     printed  Apr 09, 2024@21:09:25                                                                                                                                                                                                    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