STANDARD DATA DICTIONARY #2005.88 -- MAG REASON FILE 3/24/25 PAGE 1
STORED IN ^MAG(2005.88, (19 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
+---------------------------------------------------------------+
| |
| Property of the US Government. |
| No permission to copy or redistribute this software is given. |
| Use of unreleased versions of this software requires the user |
| to execute a written test agreement with the VistA Imaging |
| Development Office of the Department of Veterans Affairs, |
| telephone (301) 734-0100. |
| |
| The Food and Drug Administration classifies this software as |
| a medical device. As such, it may not be changed in any way. |
| Modifications to this software may result in an adulterated |
| medical device under 21CFR820, the use of which is considered |
| to be a violation of US Federal Statutes. |
| |
+---------------------------------------------------------------+
This file stores valid reasons (justifications) for actions performed on images: copying, printing, etc.
Once a reason is referenced by a record of other file (e.g. IMAGE file (#2005)), it cannot be deleted. Use the DATE OF INACTIVATION
field (.03) to exclude the reason from the list presented to the users.
This file is defined by the patch MAG*3*93.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY:
"W1": N MAGT S MAGT=$P($G(^(0)),"^",2) D EN^DDIOL($S(MAGT["C":"-Copy",1:"")_$S(MAGT["D":"-Delete",1:"")_$S(MAGT["P":"-Prin
t",1:"")_$S(MAGT["S":"-Status",1:"")_"-",,"?0")
"W2": N MAGINDT S MAGINDT=$P($G(^(0)),"^",3) D:(MAGINDT>0)&(MAGINDT'>DT) EN^DDIOL("*INACTIVE*",,"?0")
PRIMARY KEY: A (#76)
Uniqueness Index: C (#532)
File, Field: 1) CODE (2005.88,.04)
POINTED TO BY: STATUS REASON field (#113.3) of the IMAGE File (#2005)
STATUS REASON field (#113.3) of the IMAGE AUDIT File (#2005.1)
CROSS
REFERENCED BY: REASON(B)
INDEXED BY: CODE (C)
2005.88,.01 REASON 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 28, 2008
HELP-PROMPT: Answer must be 3-70 characters in length.
DESCRIPTION:
This field stores a valid reason/justification for action(s).
DELETE TEST: 1,0)= I $D(^MAG(2005.88,"AREF",+$G(DA)))
CROSS-REFERENCE: 2005.88^B
1)= S ^MAG(2005.88,"B",$E(X,1,30),DA)=""
2)= K ^MAG(2005.88,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^2005.88^.04
1)= X ^DD(2005.88,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^MAG(2005.88,D0,0)):^(0),1:"") S X=$P(Y(1),
U,4),X=X S DIU=X K Y S X=DIV S X="L"_$S('$D(D0):"",D0<0:"",1:D0) X ^DD(2005.88,.01,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^MAG(2005.88,D0,0)):^(0),1:"") S X=$P(Y(1
),U,4)=""
1.4)= S DIH=$G(^MAG(2005.88,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=2005.88,DIG=.04 D ^DICR
2)= Q
CREATE CONDITION)= CODE=""
CREATE VALUE)= "L"_NUMBER
DELETE VALUE)= NO EFFECT
FIELD)= CODE
When a new record is created and the CODE field (4) is empty, this trigger populates the latter
with the default value (a "local" code). See the definition of the CODE field (.04) for more
details.
2005.88,.02 TYPE 0;2 FREE TEXT (Required)
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>4!($L(X)<1)!($TR(X,"CDPS")'="") X
LAST EDITED: JUN 30, 2008
HELP-PROMPT: Enter characters for actions that this flag is applicable to (C, D, P, and/or S).
DESCRIPTION: This field indicates actions that this reason is applicable to. Actions are represented by the
concatenation of the following characters:
C - Copy image
D - Delete image
P - Print image
S - Change image status
For example, if a reason is applicable for copying and printing, then the value of this field
should be "CP".
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2005.88,.03 DATE OF INACTIVATION 0;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 29, 2008
DESCRIPTION: If this field is not empty and the stored date is no later than today's date, then this record is
excluded from the list of reasons presented to the user (e.g. by the GUI application).
Use this field to exclude records from selection without deleting them. This is especially
important if inactive records are pointed to by records of other files.
2005.88,.04 CODE 0;4 FREE TEXT (Required) (Key field)
INPUT TRANSFORM: K:$S(X?1.6N:(+X'=X)!(X'>0),X?1"L"1.6N:$P(X,"L",2)'>0,1:1) X
LAST EDITED: JUL 28, 2008
HELP-PROMPT: Enter unique code of the reason (from 1 to 999999). Codes of local reasons must be preceded by
letter L.
DESCRIPTION: This field stores the code that uniquely identifies the reason. You must not modify value of this
field unless you are instructed to do so by the VistA support personnel or Imaging software
developers.
"Standard" reasons (i.e. those distributed with the Imaging software) have numeric codes.
Codes of "local" reasons created by the users at the sites consist from record IENs preceded by
letter L (e.g. "L12").
When a new record is created, this field is automatically pre-populated with a "local" code.
TECHNICAL DESCR: When a new record is created, this field is automatically pre-populated by the trigger associated
with the REASON field (.01).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the REASON field of the MAG REASON File
FIELD INDEX: C (#532) REGULAR IR LOOKUP & SORTING
Unique for: Key A (#76), File #2005.88
Short Descr: Uniqueness Index for Key 'A' of File #2005.88
Set Logic: S ^MAG(2005.88,"C",X,DA)=""
Kill Logic: K ^MAG(2005.88,"C",X,DA)
Whole Kill: K ^MAG(2005.88,"C")
X(1): CODE (2005.88,.04) (Subscr 1)
2005.88,1 DESCRIPTION 1;0 WORD-PROCESSING #2005.881
DESCRIPTION: This field stores an optional explanation for the reason. The text can be presented to the user by
the GUI application as a context sensitive help.
LAST EDITED: FEB 28, 2008
DESCRIPTION: This field stores an optional explanation for the reason. The text can be presented to the user
by the GUI application as a context tive help.
DELETE AUTHORITY:
INPUT TEMPLATE(S):
MAG REASON EDIT NOV 10, 2008@10:57 USER #0
This input template is used by the MAG REASON
EDIT option to add/edit records of the MAG REASON
file (#2005.88). The template does not allow
editing of standard records distributed with the
Imaging application. These records can only be
inactivated if necessary.
Added by the patch MAG*3*93.
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):