STANDARD DATA DICTIONARY #916 -- ESP DAILY JOURNAL FILE 6/27/25 PAGE 1
STORED IN ^ESP(916, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores all information currently being recorded on the VA Police Daily Operations Journal, VA Form 10-1433 and
Continuation Sheet, VA Form 10-1433a. The data necessary to be entered into this module is exactly as manually typed on the forms.
The ESP DAILY JOURNAL file contains all information currently being recorded on the VA Police Daily Operations Journal, VA Form
10-1433 and VA Form 10-1433a Continuation Sheet. Entries into this file is identical to the information being recorded on VA Form
10-1433 and VA Form 10-1433a Continuation Sheet.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: FACILITY (#.5)
CROSS
REFERENCED BY: DATE(AC), DATE(B)
916,.01 DATE 0;1 DATE (Required)
INPUT TRANSFORM: K:X?4N X Q:'$D(X) S %DT="ETX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JAN 20, 2004
HELP-PROMPT: (No range limit on date) 4 NUMERIC DIGITS NOT ALLOWED.
DESCRIPTION: This should be the date that the Daily Operations Journal is being opened or initiated regardless
of whether the time period covered is from 0001-2400 or 0800-0800. Enter the date that the Journal
is started. Date cannot be (4) numeric digits. Four digit entries could be time (HHMM), and time
would be converted to a date if allowed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 916^B
1)= S ^ESP(916,"B",$E(X,1,30),DA)=""
2)= K ^ESP(916,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 916^AC^MUMPS
1)= I +$G(ESPFAC) S $P(^ESP(916,DA,0),U,2)=ESPFAC
2)= Q
916,.5 FACILITY 0;2 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)
LAST EDITED: OCT 08, 1999
DESCRIPTION:
Enter The Facility that the Journal belongs to.
UNEDITABLE
916,1 FROM 1;1 FREE TEXT
INPUT TRANSFORM: S Y=X,X1=20_$P(X,"-")-1700_$P(X,"-",2)_$P(X,"-",3),X2=DT D ^%DTC K:+$FN(X,"T")>2!(%Y=0)!($P(Y,"-",4
)'?4N)!(+$P(Y,"-",4)=0)!(+$P(Y,"-",4)>2400) X I $D(X) S X=Y
LAST EDITED: MAR 17, 2004
HELP-PROMPT: Answer must be 13 characters in length and in YY-MM-DD-HHMM format. Date must be no more than +/- 2
days of current date.
DESCRIPTION:
Correct format consists of Year-Month-Day-Starting Time, i.e., '93-04-05-0001' or '93-04-05-0800'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
916,2 TO 1;2 FREE TEXT
INPUT TRANSFORM: S Y=X,X1=20_$P(X,"-")-1700_$P(X,"-",2)_$P(X,"-",3),X2=DT D ^%DTC K:+$FN(X,"T")>2!(%Y=0)!($P(Y,"-",4
)'?4N)!(+$P(Y,"-",4)=0)!(+$P(Y,"-",4)>2400) X I $D(X) S X=Y
LAST EDITED: MAR 17, 2004
HELP-PROMPT: Answer must be 13 characters in length and in YY-MM-DD-HHMM format. Date must be no more than +/- 2
days of current date.
DESCRIPTION:
Correct format consists of Year-Month-Day-Ending Time, i.e., '93-04-05-2400' or '93-04-06-0800'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
916,3 WATCH 2;0 SET Multiple #916.03
DESCRIPTION: This field is used to record the police officers assigned to the watch or work shift that is making
the Daily Journal entries.
916.03,.01 WATCH 0;1 SET (Multiply asked)
'A' FOR WATCH A;
'B' FOR WATCH B;
'C' FOR WATCH C;
LAST EDITED: MAR 30, 1993
HELP-PROMPT: You must select from the available shift codes.
DESCRIPTION: Enter the three shifts for each day, i.e., Watch A, Watch B and Watch C. Time elements
associated with each of the shifts have not been included, since there is a variance at different
field stations.
CROSS-REFERENCE: 916.03^B
1)= S ^ESP(916,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^ESP(916,DA(1),2,"B",$E(X,1,30),DA)
916.03,1 OFFICER 1;0 POINTER Multiple #916.31
DESCRIPTION:
This field is used to list all officers assigned to a special watch or work shift.
916.31,.01 OFFICER 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.ESP POLICE"",$P(^(0),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 18, 2004
HELP-PROMPT: You must select from currently assigned police officers.
DESCRIPTION: Enter the names of all officers currently assigned to work each shift. The officers' names
must be contained within the NEW PERSON file (200) and must also be assigned the ESP POLICE
Security Key.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.ESP POLICE"",$P(^(0),U),+Y))"
EXPLANATION: Select a currently assigned police officer.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 916.31^B
1)= S ^ESP(916,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ESP(916,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^916.31^.02
1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ESP(916,D0,2,
D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S HX=X,X=$$SET^ESPCRJO(HX,1) X ^DD(
916.31,.01,1,2,1.4)
1.4)= S DIH=$G(^ESP(916,DIV(0),2,DIV(1),1,DIV(2),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=916.31,DIG=.02 D
^DICR
2)= Q
CREATE VALUE)= S HX=X,X=$$SET^ESPCRJO(HX,1)
DELETE VALUE)= NO EFFECT
FIELD)= BADGE
CROSS-REFERENCE:^^TRIGGER^916.31^.03
1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ESP(916,D0,2,
D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S HX=X,X=$$SET^ESPCRJO(HX,2) X ^DD(
916.31,.01,1,3,1.4)
1.4)= S DIH=$G(^ESP(916,DIV(0),2,DIV(1),1,DIV(2),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=916.31,DIG=.03 D
^DICR
2)= Q
CREATE VALUE)= S HX=X,X=$$SET^ESPCRJO(HX,2)
DELETE VALUE)= NO EFFECT
FIELD)= RANK
916.31,.02 BADGE NUMBER 0;2 NUMBER
OFFICER BADGE NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: JAN 15, 2004
HELP-PROMPT: Type a number between 1 and 999999, 0 Decimal Digits
DESCRIPTION: Officer badge number
UNEDITABLE
WRITE AUTHORITY:^
NOTES: TRIGGERED by the OFFICER field of the OFFICER sub-field of the WATCH sub-field of the ESP DAILY
JOURNAL File
916.31,.03 RANK 0;3 FREE TEXT
OFFICER RANK
INPUT TRANSFORM:K:$L(X)>50!($L(X)<2) X
LAST EDITED: JAN 15, 2004
HELP-PROMPT: Answer must be 2-50 characters in length
DESCRIPTION: VA officer assigned rank
UNEDITABLE
WRITE AUTHORITY:^
NOTES: TRIGGERED by the OFFICER field of the OFFICER sub-field of the WATCH sub-field of the ESP DAILY
JOURNAL File
916,4 SPECIAL INSTRUCTIONS 3;0 WORD-PROCESSING #916.04
DESCRIPTION: This field is used to record any specific operational instructions for any of the assigned watches
or work shifts.
LAST EDITED: MAR 30, 1993
916,5 TIME 4;0 Multiple #916.05
DESCRIPTION: This field is used to record a time that an activity occurred which necessitates the creation of a
Daily Journal Entry.
IDENTIFIED BY:
"WRITE": S %I=Y,Y=$S('$D(^(1)):"",$D(^VA(200,+$P(^(1),U,1),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(200,.01,0),U,2)
D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
916.05,.01 TIME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X'?4N!(X<1!(X>2400)) X W:'$D(X) " Must be a valid time between 0001 and 2400."
LAST EDITED: AUG 12, 1993
HELP-PROMPT: Answer must be 4 numeric characters and a valid military time.
DESCRIPTION:
Enter the time that the Journal Entry action occurred.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 916.05^B
1)= S ^ESP(916,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^ESP(916,DA(1),4,"B",$E(X,1,30),DA)
916.05,1 OFFICER 1;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.ESP POLICE"",$P(^(0),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 24, 2004
DESCRIPTION: Enter the name of the VA Police Officer who was responsible for the Daily Journal Entry. The
officer's name must be entered in the NEW PERSON file (200) and must also be assigned the ESP
POLICE Security Key.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.ESP POLICE"",$P(^(0),U),+Y))"
EXPLANATION: Select a currently assigned police officer.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
916.05,2 ACTIVITY 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAR 30, 1993
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION: Enter a general description of the type of activity recorded in the Daily Journal Entry, i.e.,
Investigation, Traffic Accident, Administrative, etc.
916.05,3 ENTRY SUMMARY 3;0 WORD-PROCESSING #916.53
DESCRIPTION: Enter a brief description of the Daily Journal Entry. This is not intended to replace an Offense
Report, only record a brief descriptive record. Usually the Daily Journal Entry will reference
the Uniform Offense Number when appropriate.
LAST EDITED: MAR 30, 1993
FILES POINTED TO FIELDS
MEDICAL CENTER DIVISION (#40.8) FACILITY (#.5)
NEW PERSON (#200) TIME:OFFICER (#1)
OFFICER:OFFICER (#.01)
INPUT TEMPLATE(S):
ESP ADD JOURNAL ENTRY MAR 30, 1993@09:23 USER #0
ESP CREATE JOURNAL FEB 09, 1999@14:26 USER #0
PRINT TEMPLATE(S):
ESP DAILY JOURNAL STATISTICS FEB 27, 1996@14:22 USER #0 DAILY JOURNAL STATS
ESP DAILY SHIFT JOURNAL FEB 27, 1996@13:44 USER #0 DAILY SHIFT JOURNAL
SORT TEMPLATE(S):
ESP DAILY SHIFT JOURNAL APR 04, 1996@08:14 USER #0
SORT BY: DATE// (User is asked range)
WITHIN DATE, SORT BY: TIME;TXT//
TIME SUB-FIELD: TIME// (User is asked range)
This template allows the shift journal to be sorted by time.
FORM(S)/BLOCK(S):