16 lines
544 B
Mathematica
16 lines
544 B
Mathematica
DIPR41 ;SFISC/SO- PRE INSTALL ROUTINE FOR PATCH DI*22.0*41 ;6/20/00 14:05
|
|
;;22.0;VA FileMan;**41**;Mar 30, 1999
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
; Add two new entries to LANGUAGE file, 12 GREEK, 18 HEBREW
|
|
;
|
|
EN N DIIFDA,DIIEN
|
|
I '$D(^DI(.85,12,0)) D
|
|
. S DIIFDA(.85,"+1,",.01)=12,DIIFDA(.85,"+1,",1)="GREEK"
|
|
. S DIIEN(1)=12
|
|
. D UPDATE^DIE("","DIIFDA","DIIEN") Q
|
|
I '$D(^DI(.85,18,0)) D
|
|
. S DIIFDA(.85,"+1,",.01)=18,DIIFDA(.85,"+1,",1)="HEBREW"
|
|
. S DIIEN(1)=18
|
|
. D UPDATE^DIE("","DIIFDA","DIIEN") Q
|
|
Q
|