| FILE |
344.31 |
| NAME |
FNLZ |
| DESCRIPTION |
This cross-reference is used to lookup an ERA by its trace number without
A trace number such as "000345678" is stored as "345678 ", "001 " as "1
",and "1234" as "1234 ".
Trace numbers such as "000","0000","00000", etc. are stored as "0 ".
Although the TRACE # field is supposed to be a minimum of 3 characters,
this logic is designed to handle invalid values in this field.
leading zeroes and to allow partial matches for numeric trace numbers. The
"F" cross-reference is used for the full trace number. "NLZ" means "No
Leading Zeroes", hence "FNLZ" for this cross-reference.
After the leading zeroes are removed a space (" ") is appended to the
cross-referenced value for collation purposes. This cross-reference is
only SET or KILLed for TRACE # entries that are numeric or those with
leading zeroes and numerics.
|
| SHORT DESCRIPTION |
Cross-ref. TRACE # without leading zeroes. |
| TYPE |
MUMPS |
| EXECUTION |
FIELD |
| ACTIVITY |
IR |
| USE |
LOOKUP & SORTING |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
344.31 |
| SET LOGIC |
Q:'(X?.N!($E(X)=0))!($L(X)<2) N RC S RC=X X:$E(X)=0&($L(X)>2) "F S RC=$E(RC,2,$L(RC)) Q:$L(RC)<2!'($E(RC)=0)" S:$L($TR(RC," ")) ^RCY(344.31,"FNLZ",RC_" ",DA)="" |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 344.31
- FIELD: .04
- MAXIMUM LENGTH: 50
- COLLATION: forwards
|
| KILL LOGIC |
Q:'(X?.N!($E(X)=0))!($L(X)<2) N RC S RC=X X:$E(X)=0&($L(X)>2) "F S RC=$E(RC,2,$L(RC)) Q:$L(RC)<2!'($E(RC)=0)" K:$L($TR(RC," ")) ^RCY(344.31,"FNLZ",RC_" ",DA) |
| KILL ENTIRE INDEX CODE |
K ^RCY(344.31,"FNLZ") |
