Last change
on this file since 1407 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
544 bytes
|
Line | |
---|
1 | DIPR41 ;SFISC/SO- PRE INSTALL ROUTINE FOR PATCH DI*22.0*41 ;6/20/00 14:05
|
---|
2 | ;;22.0;VA FileMan;**41**;Mar 30, 1999
|
---|
3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ; Add two new entries to LANGUAGE file, 12 GREEK, 18 HEBREW
|
---|
5 | ;
|
---|
6 | EN N DIIFDA,DIIEN
|
---|
7 | I '$D(^DI(.85,12,0)) D
|
---|
8 | . S DIIFDA(.85,"+1,",.01)=12,DIIFDA(.85,"+1,",1)="GREEK"
|
---|
9 | . S DIIEN(1)=12
|
---|
10 | . D UPDATE^DIE("","DIIFDA","DIIEN") Q
|
---|
11 | I '$D(^DI(.85,18,0)) D
|
---|
12 | . S DIIFDA(.85,"+1,",.01)=18,DIIFDA(.85,"+1,",1)="HEBREW"
|
---|
13 | . S DIIEN(1)=18
|
---|
14 | . D UPDATE^DIE("","DIIFDA","DIIEN") Q
|
---|
15 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.