Global: ^ESP(912

FileMan FileNo	FileMan Filename	Package
912	ESP OFFENSE REPORT	Police and Security

Package	Total	Routines
Police and Security	19	ESP122P1 ESP122P2 ESPOFF ESPOFF1 ESPOFF2 ESPOFFC ESPOFFCL ESPOFFDE ESPOFFE ESPOFI ESPOFP ESPORM ESPORM4 ESPORM5 ESPORO ESPORP ESPORP4 ESPORP5 ESPORR

Package	Total	FileMan Files
Police and Security	2	ESP EVIDENCE(#910.8)[.02] ESP WANTS & WARRANTS(#913)[.04]

Package	Total	FileMan Files
Police and Security	8	ESP MASTER NAME INDEX(#910)[#912.03(.02), #912.04(.02), #912.05(.02), #912.06(.02), #912.09(.11)] ESP POLICE REGISTRATION LOG(#910.2)[#912.09(.08)] ESP SELECTABLES(#910.7)[#912.05(.07), #912.05(.08), #912.05(.09), #912.09(.04), #912.09(.07), #912.09(.09)] ESP DISPOSITION CODES(#911.2)[#912.11(.02)] ESP CRIME CATEGORIES(#912.7)[#912.01(.01)] ESP CRIME TYPES(#912.8)[#912.01(.02)] ESP CRIME SUB-TYPES(#912.9)[#912.01(.03)] ESP OFFENSE CODES(#915)[#912.11(.01)]
Kernel	3	INSTITUTION(#4)[5.01] STATE(#5)[#912.03(1.04), #912.03(2.04), #912.04(.07), #912.04(1.04), #912.04(2.04), #912.05(.13), #912.05(1.04), #912.05(2.04), #912.06(1.04), #912.06(2.04), #912.09(.03)] NEW PERSON(#200)[.06, 5.03, 5.07, 6.03, #912.17(.01), #912.17(.03)]
Registration	2	MEDICAL CENTER DIVISION(#40.8)[.07] RACE(#10)[#912.04(.04), #912.05(.04)]

Fields, Total: 40

Field #	Name	Loc	Type	Details
.01	ID NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D OFF^ESPOID S DINUM=X` LAST EDITED: `SEP 29, 1993` HELP-PROMPT: `Type a Number between 1 and 999999999999, 0 Decimal Digits` DESCRIPTION: `This is the offense ID #. It is the site # concatenated with the year and the internal entry number of this Uniform Offense Report.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `912^B` `1)= S ^ESP(912,"B",$E(X,1,30),DA)=""` `2)= K ^ESP(912,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^912^5.01` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S($D(DUZ(2)):DUZ(2),1:0) X ^DD(912,.01,1,2,1.4)` `1.4)= S DIH=$S($D(^ESP(912,DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,1)=DIV,DIH=912,DIG=5.01 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= Q` `CREATE VALUE)= S X=$S($D(DUZ(2)):DUZ(2),1:0)` `DELETE VALUE)= NO EFFECT` `FIELD)= INSTITUTION` CROSS-REFERENCE: `912^F^MUMPS` `1)= S ^ESP(912,"F",+$E(X,$L(X)-5,$L(X))_"."_$E(X,$L(X)-7,$L(X)-6),DA)=""` `2)= K ^ESP(912,"F",+$E(X,$L(X)-5,$L(X))_"."_$E(X,$L(X)-7,$L(X)-6),DA)` `This x-ref allows you to enter a shortcut id # for an Offense Report. The shortcut id # is the sequential number, a period, and the 2 digit year, ie. 1.93 is the shortcut id # for 700093000001, where 7000 is the internal` `entry # in the Institution file, 93 is the 2 digit year, and 000001 is the sequential #.`
.02	DATE/TIME RECEIVED	0;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 29, 1993` HELP-PROMPT: `BOTH date and time must be entered.` DESCRIPTION: `Enter the date/time an incident is reported to the VA Police which requires the initiation of a Uniform Offense Report. The correct formats for entering the date/time entry are: 10/20/92@0930; Oct 20@093; 10 20 93@0930;` `or 10 20@0930.` CROSS-REFERENCE: `912^C` `1)= S ^ESP(912,"C",$E(X,1,30),DA)=""` `2)= K ^ESP(912,"C",$E(X,1,30),DA)` CROSS-REFERENCE: `912^UOR^MUMPS` `1)= D XR^ESPUTIL S ^ESP(912,"UOR",ESPUOR,DA)="" K ESPUOR` `2)= D XR^ESPUTIL K ^ESP(912,"UOR",ESPUOR,DA) K ESPUOR` `This is a cross-reference used to lookup an offense report by UOR#.` CROSS-REFERENCE: `^^TRIGGER^912^.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV D UORN^ESPUTIL X ^DD(912,.02,1,3,1.4)` `1.4)= S DIH=$S($D(^ESP(912,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=912,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= Q` `CREATE VALUE)= D UORN^ESPUTIL` `DELETE VALUE)= NO EFFECT` `FIELD)= UOR NUMBER`
.03	DATE/TIME OF OFFENSE	0;3	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 11, 1993` HELP-PROMPT: `BOTH a date and time must be entered.` DESCRIPTION: `Enter the date and time the incident being reported actually occurred. In situations involving thefts, etc., there may be an interim time period existing between when the item(s) actually were missing and when they were` `known to be missing. In these cases, use this field to enter the last date the item was known to be present. Utilize the field 'ENDING DATE/TIME OF OFFENSE' to record the date the item was found to be missing. Example:` `On 6/12/93@1000 an employee discovers a chain saw missing from the Engineering Shop (Ending Date/Time of Offense). The investigation determines that no one remembers seeing it since 5/1/93@1630 (Date/Time of Offense).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	LOCATION	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JAN 06, 1992` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the location the offense occurred. Answer must be 3-30 characters in length. Use a two point reference, if at all possible, (i.e., Building 18, Room 116; South Street and Brookline Street).`
.05	WEAPON USED	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JAN 06, 1992` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter any type of weapon used in carrying out the offense. Use of this field will allow you to sort offense by weapons, other than guns, knives, and others covered by the classification codes. It will be useful in` `situations where fists, feet, tables, chairs, etc. are used as weapons.`
.06	INVESTIGATING OFFICER	0;6	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#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: `JUN 18, 2004` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the police officer who investigated this offense. The officer's name must already be entered into 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: `^^TRIGGER^912^.11` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$SET^ESPOFF(DIV,1) S DIH=$G(^ESP(912,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=912,DIG=.11 D ^DICR` `2)= Q` `CREATE VALUE)= S X=$$SET^ESPOFF(DIV,1)` `DELETE VALUE)= NO EFFECT` `FIELD)= BADGE` `The officer field triggers a pull from the New Person file for badge number.` CROSS-REFERENCE: `^^TRIGGER^912^.12` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$SET^ESPOFF(DIV,2) S DIH=$G(^ESP(912,DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=912,DIG=.12 D ^DICR` `2)= Q` `CREATE VALUE)= S X=$$SET^ESPOFF(DIV,2)` `DELETE VALUE)= NO EFFECT` `FIELD)= RANK`
.07	FACILITY	0;7	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `OCT 08, 1999` HELP-PROMPT: `Enter the Facility associated with this offense.` DESCRIPTION: `Use this field to identify the Facility that this offense is associated with.` `UNEDITABLE`
.08	CASE STATUS	0;8	SET	'O' FOR OPEN; 'C' FOR CLOSED; LAST EDITED: `JUL 22, 1999` HELP-PROMPT: `Enter 'O' for Open or 'C' for Closed case.` DESCRIPTION: `Enter 'O' for Open or 'C' for Closed case.` `UNEDITABLE` CROSS-REFERENCE: `912^AC` `1)= S ^ESP(912,"AC",$E(X,1,30),DA)=""` `2)= K ^ESP(912,"AC",$E(X,1,30),DA)`
.09	ENDING DATE/TIME OF OFFENSE	0;9	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 24, 1993` HELP-PROMPT: `BOTH a date and time must be entered.` DESCRIPTION: `Entering a date/time in this field allows you when the investigation involves a theft, murder or missing patient, to show a window of time for the occurrence. Only in cases involving a range of time will this field be` `used. In these instances, DATE/TIME OF OFFENSE will be used to record the earliest time the occurence could have taken place, and ENDING DATE/TIME OF OFFENSE will be used to record when you were notified of the occurence.` `Example: 6/12/93@1000 an employee discovers a chain saw missing from the Engineering Shop (ENDING DATE/TIME OF OFFENSE). The investigation determines that the actual date that it was known to be last present was` `5/1/93@1630 (DATE/TIME OF OFFENSE).`
.1	UOR NUMBER	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 29, 1993` HELP-PROMPT: `Enter the UOR # for this report.` DESCRIPTION: `This field is automatically triggered by the Date/Time Received field.` NOTES: `TRIGGERED by the DATE/TIME RECEIVED field of the ESP OFFENSE REPORT File`
.11	BADGE NUMBER	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `JAN 14, 2004` HELP-PROMPT: `Type a number between 1 and 99999999, 0 Decimal Digits` DESCRIPTION: `Investigator badge number` `UNEDITABLE` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the INVESTIGATING OFFICER field of the ESP OFFENSE REPORT File`
.12	RANK	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JAN 14, 2004` HELP-PROMPT: `Enter the investigator's rank [2-30 characters]` DESCRIPTION: `Enter the VA investigator's assigned rank designation.` `Uneditable` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the INVESTIGATING OFFICER field of the ESP OFFENSE REPORT File`
1.01	CIP WEAPON USED	1;1	SET	'N' FOR NO; 'Y' FOR YES; LAST EDITED: `FEB 19, 1993` HELP-PROMPT: `Enter 'N' for NO or 'Y' for YES.` DESCRIPTION: `Enter 'YES' if a Chemical Irritant Projector (CIP) weapon was used. Enter 'NO' if a Chemical Irritant Projector (CIP) weapon was not used.`
1.02	POLICE BATON USED	1;2	SET	'N' FOR NO; 'Y' FOR YES; LAST EDITED: `FEB 19, 1993` HELP-PROMPT: `Enter 'N' for NO or 'Y' for YES.` DESCRIPTION: `Enter 'NO' if a police baton was not used. Enter 'YES' if a police baton was used.`
5.01	INSTITUTION	5;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `FEB 08, 1993` HELP-PROMPT: `This field is not entered by the user.` DESCRIPTION: `This field is locked and data cannot be manually entered at the local site. It is triggered by the Institution file and will automatically enter the station number into the reports. This will also be involved in the` `generation of the Monthly Crime Report and will assist Law Enforcement and Security, VACO in identifying the originating site for each report.` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `TRIGGERED by the ID NUMBER field of the ESP OFFENSE REPORT File`
5.02	COMPLETED FLAG	5;2	SET	'0' FOR INCOMPLETE; '1' FOR COMPLETE; LAST EDITED: `FEB 08, 1993` HELP-PROMPT: `This is not a field to be entered by the user.` DESCRIPTION: `This field is set by the program so can tell if the report is completed or not. A completed report is visible only to the person who entered the report.` `UNEDITABLE` CROSS-REFERENCE: `912^H` `1)= S ^ESP(912,"H",$E(X,1,30),DA)=""` `2)= K ^ESP(912,"H",$E(X,1,30),DA)` `Completed reports for lookup only. Incomplete reports accessed only by the user who entered the report.`
5.03	USER	5;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 18, 1993` HELP-PROMPT: `Enter the user who entered this report.` DESCRIPTION: `This field is automatically triggered by the User Number of the person who physically enters the Uniform Offense Report into the file. At some sites, the supervisor rather than the patrol officer may be in charge of` `entering the report. Due to a heavy case work load, one officer may assist another officer by entering an Offense Report. This will help establish who actually entered the report into the file.` `UNEDITABLE`
5.04	SENSITIVE FLAG	5;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `FEB 08, 1993` HELP-PROMPT: `Enter 'YES' or 'NO'.` DESCRIPTION: `Entering a '1' for 'YES' in this field locks the Offense Report so that only VA Police staff assigned the ESP Chief key may access the report.` `UNEDITABLE`
5.05	DELETED/REOPENED FLAG	5;5	SET	'D' FOR DELETED; 'R' FOR REOPENED; '1' FOR NONE OF THE ABOVE; LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `This field is not entered by the user.` DESCRIPTION: `This field is triggered by the program to record that a Uniform Offense Report that has been closed, has been reopened. It is also used to record that a previously entered Uniform Offense Report has been deleted from the` `program.` `UNEDITABLE`
5.06	DATE/TIME DELETED	5;6	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `This is the date/time of deletion. It is not entered by user.` DESCRIPTION: `When an Offense Report is deleted, the date/time is stuffed by the program into this field.` `UNEDITABLE`
5.07	DELETING USER	5;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `This is the person who deleted this report. It is not entered by the user.` DESCRIPTION: `When the offense report is deleted the user # is stuffed here. It is a pointer to the New Person file, #200. This field is for auditing purposes and is not to be entered by the user.` `UNEDITABLE`
6.01	PREVIOUS ID NUMBER	6;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `This data is not to be entered by the user.` DESCRIPTION: `This data is stuffed when a report is reopened. This field contains the previous ID #.`
6.02	DATE/TIME REOPENED	6;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `This data is not to be entered by the user.` DESCRIPTION: `This data is stuffed at the time a report is reopened. This field contains the date/time a report was reopened.` `UNEDITABLE`
6.03	REOPENED USER	6;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `This data is not to be entered by the user.` DESCRIPTION: `This data is stuffed when the report is reopened. This contains the user # of the person who reopened the report.` `UNEDITABLE`
10	CLASSIFICATION CODE	10;0	POINTER Multiple #912.01	912.01 DESCRIPTION: `This field is used to establish the primary crime category of the Offense Report and subsequent descriptive Type and Subtypes.`
20	COMPLAINANT	20;0	Multiple #912.03	912.03 LAST EDITED: `JUL 16, 1992` DESCRIPTION: `This subfile contains the complainant information.`
30	VICTIM	30;0	Multiple #912.04	912.04 DESCRIPTION: `This subfile contains victim information.`
40	OFFENDER	40;0	Multiple #912.05	912.05 DESCRIPTION: `This subfile contains offender information.`
50	WITNESS	50;0	Multiple #912.06	912.06 LAST EDITED: `JUL 17, 1992` DESCRIPTION: `This subfile contains witness information.`
60	METHOD OF OPERATION	60;0	WORD-PROCESSING #912.07	DESCRIPTION: `This field is used to record narrative information that may be used to describe a modus operandi used during the commission of the crime.` LAST EDITED: `MAR 29, 1991` HELP-PROMPT: `Enter a description of the MO.` DESCRIPTION: `Enter the method of operation, or pattern in which the offender carried out this offense.`
70	ORIGIN	70;0	WORD-PROCESSING #912.08	LAST EDITED: `FEB 11, 1993` DESCRIPTION: `This field is used to record how the VA Police were notified of the necessity to initiate a police investigation.` LAST EDITED: `FEB 11, 1993` HELP-PROMPT: `Enter the origin.` DESCRIPTION: `Enter a description of how you were notified of the need to initiate a Uniform Offense Report.`
72	INITIAL OBSERVATION	72;0	WORD-PROCESSING #912.072	LAST EDITED: `FEB 12, 1993` DESCRIPTION: `This field is used to describe what the VA Police Officer first observed when he arrived at the scene of the investigation.` LAST EDITED: `FEB 12, 1993` HELP-PROMPT: `Enter the inititial observations.` DESCRIPTION: `Enter what was observed upon arriving at the scene of the alleged offense.`
73	INVESTIGATION	73;0	WORD-PROCESSING #912.073	DESCRIPTION: `This field is used to describe all investigative efforts that were taken during the investigation of the reported offense.` LAST EDITED: `FEB 11, 1993` HELP-PROMPT: `Enter the investigative information.` DESCRIPTION: `Enter all information that was obtained during the course of the investigation.`
74	DISPOSITION	74;0	WORD-PROCESSING #912.074	DESCRIPTION: `This field is used to describe what disposition was made or actions taken or recommended at the conclusion of the investigation.` LAST EDITED: `FEB 11, 1993` HELP-PROMPT: `Enter the disposition of the report.` DESCRIPTION: `Describe how the investigation was dispositioned. Include all pertinent information.`
80	VEHICLE INFORMATION	80;0	Multiple #912.09	912.09 DESCRIPTION: `This subfile contains vehicle information.`
90	PROPERTY (LOST)	90;0	Multiple #912.1	912.1 DESCRIPTION: `This subfile contains lost property information.`
100	PROPERTY HELD	100;0	Multiple #912.02	912.02 LAST EDITED: `SEP 22, 1992` DESCRIPTION: `This subfile contains information on items taken into custody and placed into the Evidence/Property Held system.`
110	OTHER AGENCY NOTIFIED	110;0	DATE Multiple #912.14	912.14 DESCRIPTION: `If a Federal or Local Law Enforcement Agency was notified, enter the date/time of notification and contact person. This information may be entered any time another law enforcement agency is notified. Do not enter VA` `Police in this space.`
120	U.S. ATTORNEY NOTIFIED	120;0	DATE Multiple #912.15	912.15 DESCRIPTION: `If U.S. Attorney is notified, then enter the date and time of notification and instructions received.`
130	FOLLOW-UP	130;0	POINTER Multiple #912.17	912.17 LAST EDITED: `MAY 05, 1993` DESCRIPTION: `This field is used to record the follow-up notes and the follow-up investigators.`

Customize PDF page

Package: Police and Security

Global: ^ESP(912

Information

Description

Accessed By FileMan Db Calls, Total: 19

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 13

Fields, Total: 40