STANDARD DATA DICTIONARY #757.33 -- MAPPINGS FILE 6/27/25 PAGE 1
STORED IN ^LEX(757.33, (52310 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the mappings from one coding system to another coding system. Selection of a term or a code from one coding
system can be translated to another coding system.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: MAPPING DEFINITION(AMAPDEF), MAPPING ID(B)
INDEXED BY: EFFECTIVE DATE & STATUS (ACT), MAPPING DEFINITION & SOURCE CODE & TARGET CODE (AMAP), EFFECTIVE DATE & STATUS
(AMAPS), MAPPING DEFINITION & TARGET CODE & SOURCE CODE (AREV), MAPPING DEFINITION & SOURCE CODE & TARGET CODE
(ASRC), MAPPING DEFINITION & TARGET CODE & SOURCE CODE (ATAR), MAPPING DEFINITION & SOURCE CODE & MAPPING ORDER &
TARGET CODE (C), EFFECTIVE DATE & STATUS (G)
LAST MODIFIED: JUL 27,2017@12:22:35
757.33,.01 MAPPING ID 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: AUG 09, 2011
HELP-PROMPT: Type a number between 1 and 999999999999, 0 decimal digits.
DESCRIPTION: The purpose of this field is to hold the mapping ID. The mapping ID may be a VUID or a Lexicon ID.
If it is a VUID it is assigned for each individual map by the VETS system. Each mapping ID must
indentify uniquely the mapping of one source code to one, and only one, target code.
CROSS-REFERENCE: 757.33^B
1)= S ^LEX(757.33,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.33,"B",$E(X,1,30),DA)
^LEX(757.33,"B",MID,IEN) - Where MID is the Mapping Identifier unique within a Mapping Definition
and IEN is the Internal Entry Number in the Mappings file #757.33 where the Mapping Identifier is
located.
757.33,.02 MAPPING DEFINITION 0;4 POINTER TO MAPPING DEFINITIONS FILE (#757.32)
LAST EDITED: AUG 20, 2008
HELP-PROMPT: Select a Mapping Definition (from file 757.32)
DESCRIPTION: This is the Mapping Definition for a specific mapping record which defines source coding system is
being mapped to which target coding system. This Mapping Definition is stored in the Mapping
Definition file #757.32.
CROSS-REFERENCE: 757.33^AMAPDEF
1)= S ^LEX(757.33,"AMAPDEF",$E(X,1,30),DA)=""
2)= K ^LEX(757.33,"AMAPDEF",$E(X,1,30),DA)
RECORD INDEXES: AMAP (#1464), AREV (#1466), ASRC (#1467), ATAR (#1468), C (#1469)
757.33,1 SOURCE CODE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
MAXIMUM LENGTH: 40
LAST EDITED: FEB 24, 2016
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION: This is a code from the Source Coding System of the Mapping Definition (file 757.32). It is the
basis of the mapping (source) and will be mapped to a code from another coding system.
RECORD INDEXES: AMAP (#1464), AREV (#1466), ASRC (#1467), ATAR (#1468), C (#1469)
757.33,2 TARGET CODE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
MAXIMUM LENGTH: 40
LAST EDITED: FEB 24, 2016
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION: This is a code from the Target Coding System of the Mapping Definition (file 757.32). It is the
result of the mapping (target) based on the source code from another coding system.
RECORD INDEXES: AMAP (#1464), AREV (#1466), ASRC (#1467), ATAR (#1468), C (#1469)
757.33,3 STATUS HISTORY 2;0 DATE Multiple #757.333
DESCRIPTION: This multiple field contains a series of records indicating the mapping status (active or inactive)
over time.
INDEXED BY: STATUS (ACHGD)
757.333,.01 EFFECTIVE DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 26, 2012
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
This is the date that the status was effective.
CROSS-REFERENCE: 757.333^B
1)= S ^LEX(757.33,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.33,DA(1),2,"B",$E(X,1,30),DA)
^LEX(757.33,IEN,2,"B",EFF,HIS) - Where IEN is the Internal Entry Number for the Mapping, EFF is
the Effective Date of the Mapping and HIS is the Internal Entry Number where the Effective Date
is stored in the Status Histroy sub-file 757.333.
RECORD INDEXES: ACT (#1463) (WHOLE FILE #757.33), AMAPS (#1465) (WHOLE FILE #757.33), G (#1470) (WHOLE FILE
#757.33)
757.333,1 STATUS 0;2 SET
'0' FOR INACTIVE;
'1' FOR ACTIVE;
LAST EDITED: JUL 26, 2012
HELP-PROMPT: Select Status (Active or Inactive)
DESCRIPTION:
This is the status (active or inactive) of the mapping.
FIELD INDEX: ACHGD (#1471) MUMPS IR ACTION
Short Descr: Change Date
Description: The purpose of this action is to populate the CHANGE DATE field #2 of the STATUS HISTORY sub-file
#757.333 with the current date and time whenever a status (active or inactive) is added or
edited.
Set Logic: S $P(^LEX(757.33,+($G(DA(1))),2,+($G(DA)),0),U,3)=$$NOW^XLFDT
Set Cond: S X=X1(1)'=X2(1)
Kill Logic: Q
X(1): STATUS (757.333,1) (Len 8) (forwards)
Lookup Prompt: Enter Status
RECORD INDEXES: ACT (#1463) (WHOLE FILE #757.33), AMAPS (#1465) (WHOLE FILE #757.33), G (#1470) (WHOLE FILE
#757.33)
757.333,2 CHANGE DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION: This field contains the timestamp for when the status is changed. It is populated by the ACHGD
Cross-Reference (Action) of the STATUS field #1 of the STATUS HISTORY sub-file 757.333.
WRITE AUTHORITY: ^
757.33,4 MAPPING ORDER 3;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>30000)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: AUG 20, 2008
HELP-PROMPT: Type a number between 1 and 30000, 0 Decimal Digits
DESCRIPTION: This field contains an integer that determines the order of preference for when a single source
code maps to multiple target codes. The order will be determined by domain stewards responsible for
the maintenance of the mapping in question. If there is only one target for the source code the
value of this field will default to 1.
RECORD INDEXES: C (#1469)
757.33,5 MATCH 0;5 SET
'1' FOR FULL;
'0' FOR PARTIAL;
LAST EDITED: AUG 14, 2008
HELP-PROMPT: 1 = Fully Matched Mapping 0 = Partially Matched Mapping
DESCRIPTION: If the target code is a true match for the source code then the value will be set to 1 indicating a
fully compatible match. If the target code is a partial match for the source code then the value
will be set to 0 indicating a partial match and that human review is necessary to evaluate the
mapping.
FILES POINTED TO FIELDS
MAPPING DEFINITIONS (#757.32) MAPPING DEFINITION (#.02)
File #757.33
Record Indexes:
AMAP (#1464) RECORD REGULAR IR SORTING ONLY
Short Descr: Source to Target
Set Logic: S ^LEX(757.33,"AMAP",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)=""
Kill Logic: K ^LEX(757.33,"AMAP",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)
Whole Kill: K ^LEX(757.33,"AMAP")
X(1): MAPPING DEFINITION (757.33,.02) (Subscr 1) (Len 30) (forwards)
Lookup Prompt: Mapping Definition:
Transform (Storage): S X=$S($L($P($G(^LEX(757.32,+($G(X)),0)),U,1)):$P($G(^LEX(757.32,+($G(X)),0)),U,1),1:+(
$G(X)))
X(2): SOURCE CODE (757.33,1) (Subscr 2) (Len 15) (forwards)
Lookup Prompt: Source Code:
Transform (Storage): S X=$G(X)_" "
X(3): TARGET CODE (757.33,2) (Subscr 3) (Len 10) (forwards)
Lookup Prompt: Target Code:
Transform (Storage): S X=$G(X)_" "
AREV (#1466) RECORD REGULAR IR SORTING ONLY
Short Descr: Target to Source (Reverse)
Set Logic: S ^LEX(757.33,"AREV",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)=""
Kill Logic: K ^LEX(757.33,"AREV",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)
Whole Kill: K ^LEX(757.33,"AREV")
X(1): MAPPING DEFINITION (757.33,.02) (Subscr 1) (Len 30) (forwards)
Transform (Storage): S X=$S($L($P($G(^LEX(757.32,+($G(X)),0)),U,1)):$P($G(^LEX(757.32,+($G(X)),0)),U,1),1:+(
$G(X)))
X(2): TARGET CODE (757.33,2) (Subscr 2) (Len 30) (forwards)
Transform (Storage): S X=(X_" ")
X(3): SOURCE CODE (757.33,1) (Subscr 3) (Len 30) (forwards)
Transform (Storage): S X=(X_" ")
ASRC (#1467) RECORD REGULAR IR SORTING ONLY
Short Descr: Source to Target
Description: ^LEX(757.33,"ASRC",DEF,SRC,TAR,IEN) - Where DEF is the Mapping Definition from file 757.32, SRC is the Source
Code appended with a trailing space character, TAR is the Target Code appended with a trailing space character,
IEN is the Internal Entry Number in the MAPPINGS file where this Source to Target mapping is stored. This is
used to find all the mapped target codes for a given source code in a specified definition.
Set Logic: S ^LEX(757.33,"ASRC",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)=""
Kill Logic: K ^LEX(757.33,"ASRC",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)
Whole Kill: K ^LEX(757.33,"ASRC")
X(1): MAPPING DEFINITION (757.33,.02) (Subscr 1) (Len 30) (forwards)
Lookup Prompt: Mapping Definition:
Transform (Storage): S X=$S($L($P($G(^LEX(757.32,+($G(X)),0)),U,1)):$P($G(^LEX(757.32,+($G(X)),0)),U,1),1:+(
$G(X)))
X(2): SOURCE CODE (757.33,1) (Subscr 2) (Len 15) (forwards)
Lookup Prompt: Source Code:
Transform (Storage): S X=$G(X)_" "
X(3): TARGET CODE (757.33,2) (Subscr 3) (Len 10) (forwards)
Lookup Prompt: Target Code:
Transform (Storage): S X=$G(X)_" "
ATAR (#1468) RECORD REGULAR IR SORTING ONLY
Short Descr: Target to Source
Description: ^LEX(757.33,"ATAR",DEF,TAR,SRC,IEN) - Where DEF is the Mapping Definition from file 757.32, TAR is the Target
Code appended with a trailing space character, SRC is the Source Code appended with a trailing space character,
IEN is the Internal Entry Number in the MAPPINGS file where this Target to Source mapping is stored. This is
the opposite of the ASRC index and used to find all the mapped source codes for a given target code in a
specified definition.
Set Logic: S ^LEX(757.33,"ATAR",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)=""
Kill Logic: K ^LEX(757.33,"ATAR",$E(X(1),1,30),$E(X(2),1,40),$E(X(3),1,40),DA)
Whole Kill: K ^LEX(757.33,"ATAR")
X(1): MAPPING DEFINITION (757.33,.02) (Subscr 1) (Len 30) (forwards)
Transform (Storage): S X=$S($L($P($G(^LEX(757.32,+($G(X)),0)),U,1)):$P($G(^LEX(757.32,+($G(X)),0)),U,1),1:+(
$G(X)))
X(2): TARGET CODE (757.33,2) (Subscr 2) (Len 30) (forwards)
Transform (Storage): S X=(X_" ")
X(3): SOURCE CODE (757.33,1) (Subscr 3) (Len 30) (forwards)
Transform (Storage): S X=(X_" ")
C (#1469) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Source Code to Target Code
Description: ^LEX(757.33,"C",DEF,SRC,ORD,TAR,IEN) - Where DEF is a pointer to the Mapping Definition file 757.32, SRC is the
Source Code, ORD is the Mapping Order of the Target Code, TAR is the Target code and IEN is the location in
file 757.33 where this source to target mapping is stored.
Set Logic: S ^LEX(757.33,"C",$E(X(1),1,10),$E(X(2),1,40),$E(X(3),1,15),$E(X(4),1,40),DA)=""
Kill Logic: K ^LEX(757.33,"C",$E(X(1),1,10),$E(X(2),1,40),$E(X(3),1,15),$E(X(4),1,40),DA)
Whole Kill: K ^LEX(757.33,"C")
X(1): MAPPING DEFINITION (757.33,.02) (Subscr 1) (Len 10) (forwards)
Lookup Prompt: Select Mapping Definition
X(2): SOURCE CODE (757.33,1) (Subscr 2) (Len 30) (forwards)
Lookup Prompt: Enter Source Code
X(3): MAPPING ORDER (757.33,4) (Subscr 3) (Len 15) (forwards)
Lookup Prompt: Enter Mapping Order
X(4): TARGET CODE (757.33,2) (Subscr 4) (Len 30) (forwards)
Lookup Prompt: Enter Target Code
Subfile #757.333
Record Indexes:
ACT (#1463) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#757.33)
Short Descr: Activation History
Description: ^LEX(757.33,"ACT",SRC,TGT,EFF,STA,IEN,HIS) - Where SRC is the Source Code appended with a trailing space
character, TGT is the Target Code appended with a trailing space character, EFF is the effective date of the
mapping status, STA is the status of the mapping (1=Active 0=Inactive), IEN is the Internal Entry Number in the
MAPPINGS file where this mapping Status History is stored, and HIS is the Internal Entry Number of the Status
History multiple where this effective date is stored. This cross-reference is used to determine if a mapping
is active on the date of service.
Set Logic: S ^LEX(757.33,"ACT",$E(X(1),1,40),$E(X(2),1,40),$E(X(3),1,7),$E(X(4),1,10),DA(1),DA)=""
Kill Logic: K ^LEX(757.33,"ACT",$E(X(1),1,40),$E(X(2),1,40),$E(X(3),1,7),$E(X(4),1,10),DA(1),DA)
Whole Kill: K ^LEX(757.33,"ACT")
X(1): Computed Code: S X=$P($G(^LEX(757.33,DA(1),0)),U,2)_" "
(Subscr 1) (Len 15) (forwards)
Lookup Prompt: Source
X(2): Computed Code: S X=$P($G(^LEX(757.33,DA(1),0)),U,3)_" "
(Subscr 2) (Len 10)
Lookup Prompt: Target
X(3): EFFECTIVE DATE (757.333,.01) (Subscr 3) (Len 7) (forwards)
Lookup Prompt: Effective Date:
X(4): STATUS (757.333,1) (Subscr 4) (Len 10) (forwards)
Lookup Prompt: Status:
AMAPS (#1465) RECORD MUMPS I ACTION WHOLE FILE (#757.33)
Short Descr: status and date fields
Set Logic: D OPKG^XUHUI("","LEX MAPPING CHANGE EVENT","","AMAPS") Q
Kill Logic: Q
Whole Kill: Q
X(1): EFFECTIVE DATE (757.333,.01) (Subscr 1) (forwards)
X(2): STATUS (757.333,1) (Subscr 2) (forwards)
G (#1470) RECORD REGULAR IR LOOKUP & SORTING WHOLE FILE (#757.33)
Short Descr: Mapping Status
Description: ^LEX(757.33,"G",MAP,EFF,STA,IEN) - Where MAP is the Mapping ID, EFF is the effective date of the Mapping ID's
Status, STA is the Status (1=Active 0=Inactive), IEN is the location in file 757.33 where the Mapping ID is
stored.
Set Logic: S ^LEX(757.33,"G",$E(X(1),1,15),$E(X(2),1,16),$E(X(3),1,8),DA(1),DA)=""
Kill Logic: K ^LEX(757.33,"G",$E(X(1),1,15),$E(X(2),1,16),$E(X(3),1,8),DA(1),DA)
Whole Kill: K ^LEX(757.33,"G")
X(1): Computed Code: S X=$P($G(^LEX(757.33,DA(1),0)),U)
(Subscr 1) (Len 15)
Lookup Prompt: Enter Mapping ID
X(2): EFFECTIVE DATE (757.333,.01) (Subscr 2) (Len 16) (forwards)
Lookup Prompt: Enter Effective Date
X(3): STATUS (757.333,1) (Subscr 3) (Len 8) (forwards)
Lookup Prompt: Enter Activation Status
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):