Global: ^IBD(359.3

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

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

Package	Total	Routines
Automated Information Collection System	1	IBDF18E2

Package	Total	FileMan Files
Automated Information Collection System	2	ENCOUNTER FORM(#357)[.09] PACKAGE INTERFACE(#357.6)[.1]
Kernel	1	NEW PERSON(#200)[.13, 1.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.`

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

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

>>	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)

Customize PDF page

Package: Automated Information Collection System

Global: ^IBD(359.3

Information

Description

Directly Accessed By Routines, Total: 10

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 22

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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)