Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^MAG(2005.88

Package: Imaging

Global: ^MAG(2005.88


Information

FileMan FileNo FileMan Filename Package
2005.88 MAG REASON Imaging

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Imaging 12 MAG REASON EDIT    MAGIP350    ^MAG(2005.88    MAGD350I    MAGGSIU4    MAGIP121    MAGIP124    MAGIP258
^MAG(2005.1    IMAGES PRINTED    MAGGTID    MAGIP135    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Imaging 6 MAGGA01    MAGGSIU5    MAGIP124    MAGIP350    MAGUTL10    MAGVD001    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Imaging 2 IMAGE(#2005)[113.3]    IMAGE AUDIT(#2005.1)[113.3]    

Fields, Total: 5

Field # Name Loc Type Details
.01 REASON 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.02 TYPE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • 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
.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.
.04 CODE 0;4 FREE TEXT
************************REQUIRED 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)
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:

Found Entries, Total: 19

REASON: Clinical care for the patient whose images are being downloaded    REASON: Clinical care for other VA patients    REASON: For use in approved research by VA staff    REASON: For approved teaching purposes by VA staff    REASON: For use in approved VA publications    REASON: Authorized release of medical records or health information (ROI)    REASON: Corrupt image    REASON: Low quality image    
REASON: Wrong case/exam/accession number    REASON: Wrong note title    REASON: Wrong patient    REASON: Image is incorrectly included in an image group    REASON: All images were removed from the group    REASON: HIMS document correction    REASON: Rescinded TIU Note    REASON: For use in Veterans Benefits Administration claims processing.    
REASON: Image Never Existed    REASON: Duplicate Entry    REASON: Corrected DICOM image generated by Patch MAG*3.0*350    

External References

Name Field # of Occurrence
^%DT .03+1
EN^DDIOL IDW1+1, IDW2+1
^DICR .01(XREF 2n1.4)
$$UP^XLFSTR .02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2005.88 .01(XREF 2S)
^MAG(2005.88 - [#2005.88] IXCSL+1*, IXCKL+1!, IXCKEIC+1!, .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)

Naked Globals

Name Field # of Occurrence
^(0 IDW1+1, IDW2+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*
>> D0 .01(XREF 2S), .01(XREF 2n1.3)
>> DA IXCSL+1, IXCKL+1, .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3)
>> DIG .01(XREF 2n1.4)
>> DIH .01(XREF 2n1.4)
>> DIU .01(XREF 2S)
DIV .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)
DIV(0 .01(XREF 2n1.3), .01(XREF 2n1.4)
DT IDW2+1
MAGINDT IDW2+1~*
MAGT IDW1+1~*
U .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)
X IXCSL+1, IXCKL+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .02+1*!, .03+1*!
, .04+1!
Y .01(XREF 2S), .03+1
Y(0 .01(XREF 2n1.3)
Y(1 .01(XREF 2S), .01(XREF 2n1.3)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All