| FILE | 
26.13 | 
| NAME | 
DBRS | 
| DESCRIPTION | 
This index is used by a KEY to ensure that a DBRS Number is entered once 
and only once in this VistA System.
 
 | 
| SHORT DESCRIPTION | 
Index entire file by DBRS# | 
| TYPE | 
REGULAR | 
| EXECUTION | 
FIELD | 
| ACTIVITY | 
IR | 
| USE | 
LOOKUP & SORTING | 
| ROOT TYPE | 
WHOLE FILE | 
| ROOT FILE | 
26.131 | 
| SET LOGIC | 
S ^DGPF(26.13,"DBRS",$E(X,1,30),DA(1),DA)="" | 
| CROSS-REFERENCE VALUES | 
- 
- ORDER NUMBER:    1
 
- SUBSCRIPT NUMBER:    1
 
- TYPE OF VALUE:    FIELD
 
- FILE:    26.131
 
- FIELD:    .01
 
- MAXIMUM LENGTH:    30
 
- COLLATION:    forwards
 
 
 
 | 
| KILL LOGIC | 
K ^DGPF(26.13,"DBRS",$E(X,1,30),DA(1),DA) | 
| KILL ENTIRE INDEX CODE | 
K ^DGPF(26.13,"DBRS") |