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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBD(359.3

Package: Automated Information Collection System

Global: ^IBD(359.3


Information

FileMan FileNo FileMan Filename Package
359.3 AICS ERROR AND WARNING LOG Automated Information Collection System

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Automated Information Collection System 4 IBD LIST ERRORS    ^IBD(359.3    IBDFPRG1    ^SDAUDIT    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Automated Information Collection System 1 IBDF18E2    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Automated Information Collection System 2 ENCOUNTER FORM(#357)[.09]    PACKAGE INTERFACE(#357.6)[.1]    
Kernel 1 NEW PERSON(#200)[.131.03]    
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 22

Field # Name Loc Type Details
.01 ERROR DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 06, 1997
  • HELP-PROMPT:  Enter the Date and Time that this error occured.
  • DESCRIPTION:  
    Enter the date and time that the error occured. Normally errors are filed automatically by the computer when the error occurs.
  • CROSS-REFERENCE:  359.3^B
    1)= S ^IBD(359.3,"B",$E(X,1,30),DA)=""
    2)= K ^IBD(359.3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  359.3^AB^MUMPS
    1)= S ^IBD(359.3,"AB",-X,DA)=""
    2)= K ^IBD(359.3,"AB",-X,DA)
    This is an inverse data cross reference to allow listing of errors in reverse chronological order.
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  FEB 06, 1997
  • HELP-PROMPT:  Enter the name of the patient that was being processed when the error occured.
  • DESCRIPTION:  
    This is the name of the patient that was being processed when the error occured.
    UNEDITABLE
  • CROSS-REFERENCE:  359.3^C
    1)= S ^IBD(359.3,"C",$E(X,1,30),DA)=""
    2)= K ^IBD(359.3,"C",$E(X,1,30),DA)
    Regular cross reference of the patient field.
.03 ENCOUNTER DATE/TIME 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 06, 1997
  • DESCRIPTION:  
    This is the date/time of the encounter that was being processed when the error occured.
    UNEDITABLE
.04 FORM DEFINITION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  FEB 11, 1997
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter the Form Definition file entry that was being processed when the error occured.
    UNEDITABLE
.05 FORM TRACKING NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  FEB 11, 1997
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter the Form Tracking File number from the encounter form that was being processed when the error occured.
    UNEDITABLE
  • CROSS-REFERENCE:  359.3^D
    1)= S ^IBD(359.3,"D",$E(X,1,30),DA)=""
    2)= K ^IBD(359.3,"D",$E(X,1,30),DA)
    Regular cross reference of the form tracking ID field.
.06 DATA INTERNAL NUMBER 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 27, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  Enter the array number of the data element that was being processed when the error occured.
    This number is normally added by the system when an error occured. It can be used to debug the cause of the error when rescanning an encounter form.
.07 DATA VALUE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JAN 27, 1997
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  Enter the value of the data that was being processed when the error occured.
.08 ERROR SOURCE 0;8 SET
  • '1' FOR AICS;
  • '2' FOR PANDAS;
  • '99' FOR PCE;

  • LAST EDITED:  FEB 06, 1997
  • DESCRIPTION:  
    This is the source of the data that caused the error, or may also be a listing of errors returned from PCE.
    UNEDITABLE
.09 FORM NAME 0;9 POINTER TO ENCOUNTER FORM FILE (#357) ENCOUNTER FORM(#357)

  • LAST EDITED:  JAN 28, 1997
  • DESCRIPTION:  
    This is the name of the Encounter form that was being processed when the error occured.
.1 PACKAGE INTERFACE 0;10 POINTER TO PACKAGE INTERFACE FILE (#357.6) PACKAGE INTERFACE(#357.6)

  • LAST EDITED:  JAN 27, 1997
  • DESCRIPTION:  
    This is the name of the package interface for the data that was being processed when the error occured.
.11 QUALIFIER 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JAN 27, 1997
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the data qualifer, if any, that was being processed when the error occured.
.12 DATA TEXT 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 27, 1997
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the text associated with the data value that was being processed when the error occured.
.13 USER 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 14, 1997
  • DESCRIPTION:  
    Enter the user that was logged on when the error occured.
    UNEDITABLE
  • CROSS-REFERENCE:  359.3^AC
    1)= S ^IBD(359.3,"AC",$E(X,1,30),DA)=""
    2)= K ^IBD(359.3,"AC",$E(X,1,30),DA)
.16 DIALOG NUMBER 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  MAR 04, 1997
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 3 Decimal Digits
  • DESCRIPTION:  
    This is the number of the dialog that was used to record this error.
.17 PAGE 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 24, 1997
  • HELP-PROMPT:  Type a Number between 1 and 10, 0 Decimal Digits
  • DESCRIPTION:  
    This is the page of the form being scanned when the error occured.
.18 WORKSTATION ID 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1U) X
  • LAST EDITED:  NOV 24, 1997
  • HELP-PROMPT:  This is the AICS Workstation ID as set in the AICS workstation preferences. Answer must be 1 Uppercase character in length.
  • DESCRIPTION:  This is the ID from the AICS workstation. This is used to identify which workstation the error occured on.
1.01 OPTION 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 06, 1997
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This is the free text name of the option that was being used when the error occured.
    UNEDITABLE
1.02 DATE ERROR CORRECTED 1;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 06, 1997
  • NOTES:  TRIGGERED by the ERROR REVIEWED OR CORRECTED field of the AICS ERROR AND WARNING LOG File
1.03 USER CORRECTING DATA 1;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 24, 1997
  • DESCRIPTION:  
    Enter the name of the user who corrected the data.
  • NOTES:  TRIGGERED by the ERROR REVIEWED OR CORRECTED field of the AICS ERROR AND WARNING LOG File
1.04 ERROR REVIEWED OR CORRECTED 1;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 24, 1997
  • DESCRIPTION:  
    Enter whether or not this error has been reviewed or corrected.
  • CROSS-REFERENCE:  ^^TRIGGER^359.3^1.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^IBD(359.3,DA,1)),U,4) I X S X=DIV S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(359.3,1.04,1,1,1.4)
    1.4)= S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=359.3,DIG=1.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(359.3,1.04,1,1,2.4)
    2.4)= S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=359.3,DIG=1.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= I $P($G(^IBD(359.3,DA,1)),U,4)
    CREATE VALUE)= S X=DT
    DELETE VALUE)= @
    FIELD)= #1.02
  • CROSS-REFERENCE:  ^^TRIGGER^359.3^1.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^IBD(359.3,DA,1)),U,4) I X S X=DIV S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(359.3,1.04,1,2,1.4)
    1.4)= S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=359.3,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(359.3,1.04,1,2,2.4)
    2.4)= S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=359.3,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= I $P($G(^IBD(359.3,DA,1)),U,4)
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= #1.03
9 CLINIC COMPUTED

  • MUMPS CODE:  X ^DD(359.3,9,9.2) S Y(359.3,9,101)=$S($D(^IBD(357.96,D0,0)):^(0),1:"") S X=$S('$D(^SC(+$P(Y(359.3,9,101),U,10),0)):"",1:$P(^(0),U,1)) S D0=Y(359.3,9,80)
    9.2 = S Y(359.3,9,80)=$S($D(D0):D0,1:""),Y(359.3,9,1)=$S($D(^IBD(359.3,D0,0)):^(0),1:"") S X=$P(Y(359.3,9,1),U,5) K DIC S DIC="^IBD(357.96,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
  • ALGORITHM:  #.05:357.96:#.1
  • LAST EDITED:  JUL 24, 1997
  • DESCRIPTION:  
    This field is a computed field that can be used on outputs via VA FileManager for use by VA Medical Centers.
10 ERROR MESSAGE 10;0 WORD-PROCESSING #359.31

  • LAST EDITED:  JAN 27, 1997
  • DESCRIPTION:  This is the error message that was generated when the error occured. The text of the message was built from the dialog file. The first line of the error message is intended to be returned as a single line of text to
    the user.

External References

Name Field # of Occurrence
^%DT .01+1, .03+1, 1.02+1
^DIC 9OF9.2+1
^DICR 1.04(XREF 1n1.4), 1.04(XREF 1n2.4), 1.04(XREF 2n1.4), 1.04(XREF 2n2.4)
Y^DIQ ID.02+1, ID.05+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 1.04(XREF 1n1.4), 1.04(XREF 1n2.4), 1.04(XREF 2n1.4), 1.04(XREF 2n2.4)
^DD(2 ID.02+1
^DD(357.96 ID.05+1
^DD(359.3 1.04(XREF 1S), 1.04(XREF 1K), 1.04(XREF 2S), 1.04(XREF 2K), 9+1
^DPT - [#2] ID.02+1
^IBD(357.96 - [#357.96] ID.05+1, 9+1
^IBD(359.3 - [#359.3] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .05(XREF 1S), .05(XREF 1K), .13(XREF 1S), .13(XREF 1K)
1.04(XREF 1S), 1.04(XREF 1n1.4), 1.04(XREF 1K), 1.04(XREF 1n2.4), 1.04(XREF 2S), 1.04(XREF 2n1.4), 1.04(XREF 2K), 1.04(XREF 2n2.4), 9OF9.2+1
^SC - [#44] 9+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.05+1, 9+1, 9OF9.2+1
^(1 1.04(XREF 1S), 1.04(XREF 1n1.4), 1.04(XREF 1K), 1.04(XREF 1n2.4), 1.04(XREF 2S), 1.04(XREF 2n1.4), 1.04(XREF 2K), 1.04(XREF 2n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, .03+1*, 1.02+1*
%I ID.02+1*!, ID.05+1*!
>> C ID.02+1*, ID.05+1*
>> D 9OF9.2+1*
>> D0 1.04(XREF 1S), 1.04(XREF 1K), 1.04(XREF 2S), 1.04(XREF 2K), 9+1*, 9OF9.2+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .05(XREF 1S), .05(XREF 1K), .13(XREF 1S), .13(XREF 1K)
1.04(XREF 1S), 1.04(XREF 1K), 1.04(XREF 2S), 1.04(XREF 2K)
DIC ID.02+1, ID.05+1, ID.08+1, 9OF9.2+1!*
DIC(0 9OF9.2+1*
>> DIG 1.04(XREF 1n1.4), 1.04(XREF 1n2.4), 1.04(XREF 2n1.4), 1.04(XREF 2n2.4)
>> DIH 1.04(XREF 1n1.4), 1.04(XREF 1n2.4), 1.04(XREF 2n1.4), 1.04(XREF 2n2.4)
>> DIU 1.04(XREF 1S), 1.04(XREF 1K), 1.04(XREF 2S), 1.04(XREF 2K)
DIV 1.04(XREF 1S), 1.04(XREF 1n1.4), 1.04(XREF 1K), 1.04(XREF 1n2.4), 1.04(XREF 2S), 1.04(XREF 2n1.4), 1.04(XREF 2K), 1.04(XREF 2n2.4)
DIV(0 1.04(XREF 1S), 1.04(XREF 1n1.4), 1.04(XREF 1K), 1.04(XREF 1n2.4), 1.04(XREF 2S), 1.04(XREF 2n1.4), 1.04(XREF 2K), 1.04(XREF 2n2.4)
DT 1.04(XREF 1S)
DUZ 1.04(XREF 2S)
U ID.02+1, ID.05+1, 1.04(XREF 1S), 1.04(XREF 1n1.4), 1.04(XREF 1K), 1.04(XREF 1n2.4), 1.04(XREF 2S), 1.04(XREF 2n1.4), 1.04(XREF 2K), 1.04(XREF 2n2.4)
, 9+1, 9OF9.2+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03+1*!, .04+1!, .05+1!
.05(XREF 1S), .05(XREF 1K), .06+1!, .07+1!, .11+1!, .12+1!, .13(XREF 1S), .13(XREF 1K), .16+1!, .17+1!
, .18+1!, 1.01+1!, 1.02+1*!, 1.04(XREF 1S), 1.04(XREF 1n1.4), 1.04(XREF 1K), 1.04(XREF 1n2.4), 1.04(XREF 2S), 1.04(XREF 2n1.4), 1.04(XREF 2K)
1.04(XREF 2n2.4), 9+1*, 9OF9.2+1*
Y ID.02+1*, ID.05+1*, .01+1, .03+1, 1.02+1, 1.04(XREF 1S), 1.04(XREF 1K), 1.04(XREF 2S), 1.04(XREF 2K), 9OF9.2+1
Y( 9+1*, 9OF9.2+1*
Y(0 1.04(XREF 1S), 1.04(XREF 2S)
Y(1 1.04(XREF 1S), 1.04(XREF 1K), 1.04(XREF 2S), 1.04(XREF 2K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All