| FILE |
440.5 |
| NAME |
I |
| DESCRIPTION |
This cross-reference will combine the fields #15 (STATION NUMBER) and #8
(APPROVING OFFICIAL). This cross-reference is used in the routine PRCHURP
for screening purposes.
|
| SHORT DESCRIPTION |
Combined cross-reference for fields #15 and #8. |
| TYPE |
REGULAR |
| EXECUTION |
RECORD |
| ACTIVITY |
I |
| USE |
LOOKUP & SORTING |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
440.5 |
| SET LOGIC |
S ^PRC(440.5,"I",$E(X(1),1,5),$E(X(2),1,10),DA)="" |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 440.5
- FIELD: 15
- MAXIMUM LENGTH: 5
- COLLATION: forwards
- LOOKUP PROMPT: STATION NUMBER
-
- ORDER NUMBER: 2
- SUBSCRIPT NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 440.5
- FIELD: 8
- MAXIMUM LENGTH: 10
- COLLATION: forwards
- LOOKUP PROMPT: APPROVING OFFICIAL
|
| KILL LOGIC |
K ^PRC(440.5,"I",$E(X(1),1,5),$E(X(2),1,10),DA) |
| KILL ENTIRE INDEX CODE |
K ^PRC(440.5,"I") |
