| 1 | XUINP275 ;ISF/RWF - PATCH 275 PRE/POST INSTALL ;06/28/2004 14:26
|
|---|
| 2 | ;;8.0;KERNEL;**275**;Jul 10, 1995
|
|---|
| 3 | PRE ;PRE-init
|
|---|
| 4 | Q
|
|---|
| 5 | POST ;POST-INIT
|
|---|
| 6 | D ALT1,ALT2
|
|---|
| 7 | Q
|
|---|
| 8 | ALT1 ;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
|
|---|
| 19 | ALT2 ;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
|
|---|
