INPUT TRANSFORM: K:$L(X)>30!($L(X)<4)!'(X'?1P.E) X
LAST EDITED: MAR 18, 2012
HELP-PROMPT: Enter a unique identifier, 4-30 characters in length.
DESCRIPTION:
This is a unique identifier consisting of the source abbreviation and a code fragment.
CROSS-REFERENCE: 757.033^B
1)= S ^LEX(757.033,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.033,"B",$E(X,1,30),DA)
^LEX(757.033,"B",UID,IEN) - Where UID is a unique identifier for a character position and IEN is the internal entry number where the unique identifier is stored.
HELP-PROMPT: Enter the coding system (source) for the code fragment.
DESCRIPTION:
This is the coding system (source) that the code fragment belongs to.
FIELD INDEX: ACP (#518) MUMPS IR SORTING ONLY
Short Descr: Character/Position
Description: ^LEX(757.033,"ACP",SRC,CP,IEN) - Where SRC is the coding system, CP is the leading character appended to the character position, and IEN is the Internal Entry Number where the character and character position is stored.
This cross-reference supports data loading and verification (file maintenance only).
Set Logic: S ^LEX(757.033,"ACP",X(1),X(2),DA)=""
Kill Logic: K ^LEX(757.033,"ACP",X(1),X(2),DA)
Whole Kill: K ^LEX(757.033,"ACP")
X(1): SOURCE (757.033,.04) (Subscr 1) (forwards)
X(2): Computed Code: S X=$E($P($G(^LEX(757.033,DA,0)),U,2),1)_$L($P($G(^LEX(757.033,DA,0)),U,2))_" "