| FILE |
440.5 |
| NAME |
J |
| DESCRIPTION |
This cross-reference will combine the fields #15 (STATION NUMBER) and #9
(ALTERNATE APPROVING OFFICIAL). This cross-reference is used in the
routine PRCHURP for screening purposes.
|
| SHORT DESCRIPTION |
Combined cross-reference for fields #15 and #9. |
| TYPE |
REGULAR |
| EXECUTION |
RECORD |
| ACTIVITY |
I |
| USE |
LOOKUP & SORTING |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
440.5 |
| SET LOGIC |
S ^PRC(440.5,"J",$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: 9
- MAXIMUM LENGTH: 10
- COLLATION: forwards
- LOOKUP PROMPT: ALTERNATE APPROVING OFFICIAL
|
| KILL LOGIC |
K ^PRC(440.5,"J",$E(X(1),1,5),$E(X(2),1,10),DA) |
| KILL ENTIRE INDEX CODE |
K ^PRC(440.5,"J") |
