STANDARD DATA DICTIONARY #2005.67 -- NEW IMAGING FILE CLEANUP LOG FILE 9/29/25 PAGE 1
STORED IN ^MAGV(2005.67, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains duplicate and corrupt entries from Imaging files.
IDENTIFIED BY: FILE (#1)[R], KEY (#6)
CROSS
REFERENCED BY: IEN(B)
INDEXED BY: ACTION & FILE & IEN (C), ACTION DATE/TIME & ACTION & FILE & IEN (D), KEY & ACTION & IEN (E)
LAST MODIFIED: JUL 13,2023@20:24:51
2005.67,.01 IEN 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 01, 2022
HELP-PROMPT: Type a number between 1 and 999999999999999, 0 decimal digits.
DESCRIPTION:
This field contains the IEN of the duplicate or corrupt Imaging File entry.
CROSS-REFERENCE: 2005.67^B
1)= S ^MAGV(2005.67,"B",$E(X,1,30),DA)=""
2)= K ^MAGV(2005.67,"B",$E(X,1,30),DA)
RECORD INDEXES: C (#621), D (#622), E (#682)
2005.67,1 FILE 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>2005.65)!(X<2005.6)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: S Y=+Y
LAST EDITED: SEP 06, 2022
HELP-PROMPT: Type a number between 2005.6 and 2005.65, 3 decimal digits.
DESCRIPTION: This field contains the file in which the problematic Imaging entry exists.
.
RECORD INDEXES: C (#621), D (#622)
2005.67,2 PRIMARY IEN 2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 15, 2022
HELP-PROMPT: Type a number between 1 and 999999999999999, 0 decimal digits.
DESCRIPTION: This field contains the original, or unique non-duplicate, Internal Entry Number (IEN) of the
Imaging file entry.
2005.67,3 REASON 2;2 SET
'1' FOR DUPLICATE;
'2' FOR NO PARENT RECORD POINTER;
'3' FOR INVALID PARENT RECORD POINTER;
'4' FOR NO PATIENT REFERENCE POINTER;
'5' FOR INVALID PATIENT REFERENCE POINTER;
'6' FOR POINTS TO DUPLICATE PARENT RECORD;
LAST EDITED: SEP 14, 2022
HELP-PROMPT: Select the reason the Imaging file record was deleted.
DESCRIPTION:
This field contains the reason the Imaging file problem record was flagged for cleanup.
2005.67,4 ACTION 2;3 SET
'SI' FOR STATUS CHANGE TO INACCESSIBLE (COMPLETED);
'I' FOR STATUS CHANGE TO INACCESSIBLE (IDENTIFIED);
'MI' FOR PARENT POINTER CHANGE (IDENTIFIED);
'MC' FOR PARENT POINTER CHANGE (COMPLETED);
LAST EDITED: SEP 14, 2022
HELP-PROMPT: Enter the action taken on the Imaging entry.
DESCRIPTION:
This field contains the action taken on the problematic Imaging record.
RECORD INDEXES: C (#621), D (#622), E (#682)
2005.67,5 ACTION DATE/TIME 2;4 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 31, 2022
HELP-PROMPT: Enter the Date/Time the action was taken.
DESCRIPTION:
This field contains the Date/Time the action was taken on the problematic Imaging record.
RECORD INDEXES: D (#622)
2005.67,6 KEY 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>64!($L(X)<1) X
MAXIMUM LENGTH: 64
LAST EDITED: SEP 01, 2022
HELP-PROMPT: Answer must be 1-64 characters in length.
DESCRIPTION:
This field contains the key associated with the problematic entry in the Imaging file.
RECORD INDEXES: E (#682)
2005.67,7 INVALID PARENT REFERENCE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
MAXIMUM LENGTH: 30
LAST EDITED: SEP 16, 2022
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This field contains the Internal Entry Number (IEN) of the parent Imaging file entry.
2005.67,8 NEW PARENT REFERENCE 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 16, 2022
HELP-PROMPT: Type a number between 1 and 999999999999999, 0 decimal digits.
DESCRIPTION: This field contains the new parent file pointer to which the record will point after the status has
been changed to inaccessible.
2005.67,9 DUPLICATE PARENT REFERENCE 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 16, 2022
HELP-PROMPT: Type a number between 1 and 99999999999999, 0 decimal digits.
DESCRIPTION: This field contains the Imaging record's pointer to its parent file, when the parent file record is
a duplicate of another record.
File #2005.67
Record Indexes:
C (#621) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Sort by Action, File, IEN
Description: Sort the file by the Action taken, the Imaging File number, and the Internal Entry Number (IEN) from the file.
Set Logic: S ^MAGV(2005.67,"C",$E(X(1),1,12),$E(X(2),1,12),$E(X(3),1,30),DA)=""
Kill Logic: K ^MAGV(2005.67,"C",$E(X(1),1,12),$E(X(2),1,12),$E(X(3),1,30),DA)
Whole Kill: K ^MAGV(2005.67,"C")
X(1): ACTION (2005.67,4) (Subscr 1) (Len 12) (forwards)
X(2): FILE (2005.67,1) (Subscr 2) (Len 12) (forwards)
X(3): IEN (2005.67,.01) (Subscr 3) (Len 30) (forwards)
D (#622) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Sort by Action Date, Action, File and IEN
Description: Cross Reference the file by Action Date/Time, Action Code, Imaging File number and the Internal Entry Number
(IEN) from the file.
Set Logic: S ^MAGV(2005.67,"D",$E(X(1),1,15),$E(X(2),1,12),$E(X(3),1,12),$E(X(4),1,30),DA)=""
Kill Logic: K ^MAGV(2005.67,"D",$E(X(1),1,15),$E(X(2),1,12),$E(X(3),1,12),$E(X(4),1,30),DA)
Whole Kill: K ^MAGV(2005.67,"D")
X(1): ACTION DATE/TIME (2005.67,5) (Subscr 1) (Len 15) (forwards)
X(2): ACTION (2005.67,4) (Subscr 2) (Len 12) (forwards)
X(3): FILE (2005.67,1) (Subscr 3) (Len 12) (forwards)
X(4): IEN (2005.67,.01) (Subscr 4) (Len 30) (forwards)
E (#682) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Sort by Key, Action, IEN
Description: Sort the problematic Imaging file entry by Key, Action, and IEN
Set Logic: S ^MAGV(2005.67,"E",$E(X(1),1,30),$E(X(2),1,12),$E(X(3),1,30),DA)=""
Kill Logic: K ^MAGV(2005.67,"E",$E(X(1),1,30),$E(X(2),1,12),$E(X(3),1,30),DA)
Whole Kill: K ^MAGV(2005.67,"E")
X(1): KEY (2005.67,6) (Subscr 1) (Len 30) (forwards)
X(2): ACTION (2005.67,4) (Subscr 2) (Len 12) (forwards)
X(3): IEN (2005.67,.01) (Subscr 3) (Len 30) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):