STANDARD DATA DICTIONARY #359.3 -- AICS ERROR AND WARNING LOG FILE 6/27/25 PAGE 1
STORED IN ^IBD(359.3, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to log errors that occur in the DHCP Server side of AICS.
Currently this occurs while rolling up the data from the scanner in a format that is then passed to the PCE Device Interface.
Under normal circumstances very few errors should occur, however, if they do occur, the workstation software (client side) will be
notified and the error can be found in this file and if possible resolved. Normally each error represents one piece of data that
was ignored by the server software and can easily be entered into PCE using one of the data entry methodologies.
Entries in this file may be deleted after any corrective action that needs to be taken is complete.
DD ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: PATIENT (#.02), FORM TRACKING NUMBER (#.05), ERROR SOURCE (#.08)
CROSS
REFERENCED BY: ERROR DATE/TIME(AB), USER(AC), ERROR DATE/TIME(B), PATIENT(C), FORM TRACKING NUMBER(D)
359.3,.01 ERROR DATE/TIME 0;1 DATE (Required)
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.
359.3,.02 PATIENT 0;2 POINTER TO PATIENT FILE (#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.
359.3,.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
359.3,.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
359.3,.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.
359.3,.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.
359.3,.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.
359.3,.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
359.3,.09 FORM NAME 0;9 POINTER TO ENCOUNTER FORM FILE (#357)
LAST EDITED: JAN 28, 1997
DESCRIPTION:
This is the name of the Encounter form that was being processed when the error occured.
359.3,.1 PACKAGE INTERFACE 0;10 POINTER TO PACKAGE INTERFACE FILE (#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.
359.3,.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.
359.3,.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.
359.3,.13 USER 0;13 POINTER TO NEW PERSON FILE (#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)
359.3,.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.
359.3,.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.
359.3,.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.
359.3,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
359.3,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
359.3,1.03 USER CORRECTING DATA 1;3 POINTER TO NEW PERSON FILE (#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
359.3,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 ^D
ICR:$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 ^D
ICR:$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 ^D
ICR:$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 ^D
ICR:$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
359.3,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(3
59.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.
359.3,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.
FILES POINTED TO FIELDS
ENCOUNTER FORM (#357) FORM NAME (#.09)
NEW PERSON (#200) USER (#.13)
USER CORRECTING DATA (#1.03)
PACKAGE INTERFACE (#357.6) PACKAGE INTERFACE (#.1)
PATIENT (#2) PATIENT (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
IBD LIST ERRORS FEB 27, 1997@12:35 USER #0 AICS UNCORRECTED SCANNING ERROR LIST
SORT TEMPLATE(S):
IBD LIST ERRORS MAR 14, 1997@16:44 USER #0
SORT BY: '@ERROR DATE/TIME// (User is asked range)
WITHIN ERROR DATE/TIME, SORT BY: #USER// (User is asked range)
WITHIN USER, SORT BY: PATIENT// (All PATIENT (includes nulls))
WITHIN PATIENT, SORT BY: ENCOUNTER DATE/TIME;S1// (All ENCOUNTER DATE/TIME (includes nulls))
FORM(S)/BLOCK(S):