|
Last change
on this file since 756 was 628, checked in by George Lilly, 16 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.
