| FILE |
233.1 |
| NAME |
AB |
| DESCRIPTION |
This allows finding all the abbreviations for a name without regard to
the site prefix. (The prefix is "edp." when nationally exported, "nnn."
for locally defined, where nnn is the station number.)
|
| SHORT DESCRIPTION |
NAME (without prefix), ABBREVIATION |
| TYPE |
REGULAR |
| EXECUTION |
RECORD |
| ACTIVITY |
IR |
| USE |
SORTING ONLY |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
233.1 |
| SET LOGIC |
S ^EDPB(233.1,"AB",$E(X(1),1,30),$E(X(2),1,30),DA)="" |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 233.1
- FIELD: .01
- TRANSFORM FOR STORAGE: S X=$P(X,".",2)
- MAXIMUM LENGTH: 30
- COLLATION: forwards
-
- ORDER NUMBER: 2
- SUBSCRIPT NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 233.1
- FIELD: .03
- TRANSFORM FOR STORAGE: S X=$$UP^XLFSTR(X)
- MAXIMUM LENGTH: 30
- COLLATION: forwards
|
| KILL LOGIC |
K ^EDPB(233.1,"AB",$E(X(1),1,30),$E(X(2),1,30),DA) |
| KILL ENTIRE INDEX CODE |
K ^EDPB(233.1,"AB") |
