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 | Found Entries | 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

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.

Directly Accessed By Routines, Total: 1

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 19

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 VA PATIENT FILE (#2)	VA 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.
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
10	ERROR MESSAGE	10;0	WORD-PROCESSING #359.31

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All