STANDARD DATA DICTIONARY #912 -- ESP OFFENSE REPORT FILE                                                          9/29/25    PAGE 1
STORED IN ^ESP(912,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                         (VERSION 1.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The ESP OFFENSE REPORT file contains the offense report information.  This file points to the ESP MASTER NAME INDEX file (#910). 
Once a case is closed, the offense report becomes the case history.  The offense report cannot be edited once a case is closed, but
can be reopened for editing by the appropriate authority.  


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @
IDENTIFIED BY: FACILITY (#.07), UOR NUMBER (#.1)

POINTED TO BY: UOR NUMBER field (#.02) of the ESP EVIDENCE File (#910.8) 
               UOR NUMBER field (#.04) of the ESP WANTS & WARRANTS File (#913) 
               

CROSS
REFERENCED BY: CASE STATUS(AC), ID NUMBER(B), DATE/TIME RECEIVED(C), COMPLAINANT NAME(D), NAME(E), ID NUMBER(F), NAME(G), 
               COMPLETED FLAG(H), NAME(I), OWNER NAME(J), DATE/TIME RECEIVED(UOR)



912,.01       ID NUMBER              0;1 NUMBER (Required)

              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 DI
                                U=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 #.  



912,.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 D
                                IU=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


912,.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


912,.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).  


912,.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.  


912,.06       INVESTIGATING OFFICER  0;6 POINTER TO NEW PERSON FILE (#200) (Required)

              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 D
                                IU=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 D
                                IU=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


912,.07       FACILITY               0;7 POINTER TO MEDICAL CENTER DIVISION FILE (#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

912,.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)


912,.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).  


912,.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 


912,.11       BADGE NUMBER           0;11 NUMBER

              BADGE   
              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 


912,.12       RANK                   0;12 FREE TEXT

              RANK 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 


912,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.  


912,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.  


912,5.01      INSTITUTION            5;1 POINTER TO INSTITUTION FILE (#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 


912,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.  



912,5.03      USER                   5;3 POINTER TO NEW PERSON FILE (#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

912,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

912,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

912,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

912,5.07      DELETING USER          5;7 POINTER TO NEW PERSON FILE (#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

912,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 #.  


912,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

912,6.03      REOPENED USER          6;3 POINTER TO NEW PERSON FILE (#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

912,10        CLASSIFICATION CODE    10;0 POINTER Multiple #912.01

              DESCRIPTION:      This field is used to establish the primary crime category of the Offense Report and subsequent
                                descriptive Type and Subtypes.  


912.01,.01      CLASSIFICATION CODE    0;1 POINTER TO ESP CRIME CATEGORIES FILE (#912.7) (Required)

                LAST EDITED:      JUN 23, 1993 
                HELP-PROMPT:      Enter a valid CRIME category. 
                DESCRIPTION:      This field points to a file containing the primary crime categories approved by Law Enforcement
                                  and Security, VACO to be utilized for classifying investigative reports.  NO additions are to be
                                  made at the local field stations.  

                CROSS-REFERENCE:  912.01^B 
                                  1)= S ^ESP(912,DA(1),10,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),10,"B",$E(X,1,30),DA)


912.01,.02      TYPE                   0;2 POINTER TO ESP CRIME TYPES FILE (#912.8) (Required)

                INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=ESPS" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      JUN 23, 1993 
                HELP-PROMPT:      Answer must be a valid TYPE. 
                DESCRIPTION:      Enter the type of the crime category if applicable.  For example, AGGRAVATED for the crime
                                  category ASSAULT.  Only types for the category entered will be allowed.  

                SCREEN:           S DIC("S")="I $P(^(0),U,2)=ESPS"
                EXPLANATION:      Must enter a type for this category.

912.01,.03      SUBTYPE                0;3 POINTER TO ESP CRIME SUB-TYPES FILE (#912.9) (Required)

                INPUT TRANSFORM:S DIC("S")="S:'$D(ESPDTR) ESPDTR=$P(^ESP(912,DA(1),0),U,2) I $$SUBTYPE^ESPUTIL(ESPS,ESPDTR)" D ^DIC
                                 K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:    APR 21, 1998 
                HELP-PROMPT:    Answer must be a valid sub-type. 
                DESCRIPTION:    Enter the subtype for this type of crime category, if applicable.  For example, ABOVE $1000 (GOV'T)
                                for GOVERNMENT PROPERTY type THEFTS category.  You must enter a proper sub-type for the type and
                                category.  
                                 
                                A subtype record in the ESP CRIME SUB-TYPES file (#912.9) cannot be selected, if it has an
                                INACTIVATION DATE field (#1) which precedes the DATE/TIME RECEIVED field (#.02) of the file #912
                                record with which it is to be associated.  

                SCREEN:         S DIC("S")="S:'$D(ESPDTR) ESPDTR=$P(^ESP(912,DA(1),0),U,2) I $$SUBTYPE^ESPUTIL(ESPS,ESPDTR)"
                EXPLANATION:    Subtype must correspond to type and category, and cannot be inactive.



912,20        COMPLAINANT            20;0 Multiple #912.03

              LAST EDITED:      JUL 16, 1992 
              DESCRIPTION:
                                This subfile contains the complainant information.  


912.03,.01      NUMBER                 0;1 NUMBER

                INPUT TRANSFORM:  D COM^ESPDISP
                LAST EDITED:      AUG 03, 1993 
                HELP-PROMPT:      Answer must be [1-99 numeric]. 
                DESCRIPTION:      Enter the sequential number for this complainant.  The in-put program will assign the number as
                                  you enter the data.  During the edit option you will need to select the correct complainant by
                                  number.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  912.03^B 
                                  1)= S ^ESP(912,DA(1),20,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),20,"B",$E(X,1,30),DA)


912.03,.02      COMPLAINANT NAME       0;2 POINTER TO ESP MASTER NAME INDEX FILE (#910)

                LAST EDITED:      OCT 09, 1992 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:      Enter the full name of the person making the complaint.  Use the standard program format of
                                  LAST,FIRST MIDDLE no space between LAST and FIRST name.  

                CROSS-REFERENCE:  912^D 
                                  1)= S ^ESP(912,"D",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^ESP(912,"D",$E(X,1,30),DA(1),DA)


912.03,.03      STATUS                 0;3 SET

                                  'P' FOR PATIENT; 
                                  'V' FOR VISITOR; 
                                  'E' FOR EMPLOYEE; 
                                  'O' FOR OUTSIDER; 
                                  'PO' FOR POLICE OFFICER; 
                LAST EDITED:      DEC 27, 2006 
                HELP-PROMPT:      You must choose from available codes. 
                DESCRIPTION:      Enter 'P' for Patient, 'V' for Visitor, 'E' for Employee, 'O' for Outsider, or 'PO' for Police
                                  Officer.  


912.03,1.01     STREET ADDRESS         1;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-35 characters]. 
                DESCRIPTION:
                                  Enter the first line of the complainant's address.  


912.03,1.02     STREET ADDRESS [LINE 2] 1;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  If necessary, enter the second line of the complainant's address.  


912.03,1.03     CITY                   1;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
                LAST EDITED:      FEB 02, 1993 
                HELP-PROMPT:      Answer must be [2-30 characters].  
                DESCRIPTION:
                                  Enter the city where the complainant resides.  


912.03,1.04     STATE                  1;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      You must enter a valid state. 
                DESCRIPTION:
                                  Enter the state where the complainant resides.  


912.03,1.05     ZIP CODE               1;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city in which the complainant resides. 
                DESCRIPTION:      Enter the zip code for the city in which the complainant resides.  Enter the 5 digit zip code or
                                  ZIP + 4, ie. 12345-1234.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.03,1.06     PHONE NUMBER [RESIDENCE] 1;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      SEP 15, 1992 
                HELP-PROMPT:      Answer must be [4-20 characters]. 
                DESCRIPTION:
                                  Enter the complainant's home telephone number.  


912.03,2.01     STREET ADDRESS [WORK]  2;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-35 characters]. 
                DESCRIPTION:
                                  Enter the first line of the address of the complainant's place of employment.  


912.03,2.02     STREET ADDRESS [LINE 2] [WORK] 2;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  If necessary, enter the second line of the address of the complainant's place of employment.  


912.03,2.03     CITY [WORK]            2;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
                LAST EDITED:      FEB 02, 1993 
                HELP-PROMPT:      Answer must be [2-30 characters].  
                DESCRIPTION:
                                  Enter the city of the complainant's place of employment.  


912.03,2.04     STATE [WORK]           2;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      SEP 10, 1992 
                HELP-PROMPT:      You must enter a valid State. 
                DESCRIPTION:
                                  Enter the state where the complainant is employed.  


912.03,2.05     ZIP [WORK]             2;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city in which the complainant is employed. 
                DESCRIPTION:      Enter the zip code for the city in which the complainant is employed.  Enter the 5 digit zip code
                                  or ZIP + 4 , ie. 12345-1234.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.03,2.06     PHONE NUMBER [WORK]    2;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      SEP 15, 1992 
                HELP-PROMPT:      Answer must be [4-20 characters]. 
                DESCRIPTION:
                                  Enter the telephone number of the complainant's place of employment.  




912,30        VICTIM                 30;0 Multiple #912.04

              DESCRIPTION:
                                This subfile contains victim information.  


912.04,.01      NUMBER                 0;1 NUMBER

                INPUT TRANSFORM:  D VIC^ESPDISP
                LAST EDITED:      AUG 03, 1993 
                HELP-PROMPT:      Answer must be [1-99 numeric]. 
                DESCRIPTION:      Enter the sequential number for this victim.  The input program will assign the number as you
                                  enter the data.  During the edit option you will need to select the correct victim by number.  

                WRITE AUTHORITY:  ^
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  912.04^B 
                                  1)= S ^ESP(912,DA(1),30,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),30,"B",$E(X,1,30),DA)


912.04,.02      NAME                   0;2 POINTER TO ESP MASTER NAME INDEX FILE (#910)

                LAST EDITED:      SEP 24, 1993 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:      Enter the full name of the victim.  Use the program standard format of LAST,FIRST MIDDLE name, no
                                  space between LAST and FIRST name.  

                CROSS-REFERENCE:  912^E 
                                  1)= S ^ESP(912,"E",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^ESP(912,"E",$E(X,1,30),DA(1),DA)
                                  Cross reference by Victim name for Quick Name Check Lookup.  



912.04,.03      SEX                    0;3 SET

                                  'M' FOR MALE; 
                                  'F' FOR FEMALE; 
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Enter 'M' for MALE or 'F' for FEMALE. 
                DESCRIPTION:
                                  Enter 'M' for MALE or 'F' for FEMALE.  


912.04,.04      RACE                   0;4 POINTER TO RACE FILE (#10)

                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Selection must be made from available listing. 
                DESCRIPTION:
                                  Select the race which most closely describes the victim.  


912.04,.05      STATUS                 0;5 SET

                                  'P' FOR PATIENT; 
                                  'V' FOR VISITOR; 
                                  'E' FOR EMPLOYEE; 
                                  'O' FOR OUTSIDER; 
                                  'PO' FOR POLICE OFFICER; 
                LAST EDITED:      FEB 16, 1993 
                HELP-PROMPT:      Selection must be from available codes. 
                DESCRIPTION:      Enter 'P' if the victim is a Patient, 'V' for Visitor, 'E' for Employee, or 'O' for Outsider, or
                                  'PO' for Police Officer.  


912.04,.06      DRIVER'S LICENSE NUMBER 0;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be [3-20 characters]. 
                DESCRIPTION:
                                  Enter the victim's driver's license number, if applicable.  


912.04,.07      STATE OF ISSUE         0;7 POINTER TO STATE FILE (#5)

                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  From the available listing choose the state that issued the driver's license number.  


912.04,1.01     STREET ADDRESS         1;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      AUG 23, 1991 
                HELP-PROMPT:      Answer must be [3-35 characters]. 
                DESCRIPTION:
                                  Enter the first line of the victim's home address.  


912.04,1.02     STREET ADDRESS [LINE 2] 1;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      AUG 23, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  If necessary, enter the second line of the victim's home address.  


912.04,1.03     CITY                   1;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
                LAST EDITED:      FEB 02, 1993 
                HELP-PROMPT:      Answer must be [2-30 characters].  
                DESCRIPTION:      Enter the city where this victim resides.  
                                   []


912.04,1.04     STATE                  1;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      AUG 23, 1991 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  Select from the available listing the state in which the victim resides.  


912.04,1.05     ZIP CODE               1;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city in which the victim resides. 
                DESCRIPTION:      Enter the zip code for the city in which the victim resides.  Enter the 5 digit zip code or ZIP +
                                  4, (i.e., 12345-1234).  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.04,1.06     PHONE NUMBER [RESIDENCE] 1;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      SEP 16, 1992 
                HELP-PROMPT:      Answer must be [4-20 characters]. 
                DESCRIPTION:
                                  Enter the victim's home telephone number.  


912.04,2.01     STREET ADDRESS [WORK]  2;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      AUG 23, 1991 
                HELP-PROMPT:      Answer must be [3-35 characters]. 
                DESCRIPTION:
                                  Enter the first line of the address of the victim's place of employment.  


912.04,2.02     STREET ADDRESS [LINE 2] [WORK] 2;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      AUG 23, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  If necessary, enter the second line of the address of the victim's place of employment.  


912.04,2.03     CITY [WORK]            2;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
                LAST EDITED:      FEB 02, 1993 
                HELP-PROMPT:      Answer must be [2-30 characters].  
                DESCRIPTION:
                                  Enter the city for this victim's place of employment.  


912.04,2.04     STATE [WORK]           2;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      AUG 23, 1991 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  Enter the state of the victim's place of employment.  


912.04,2.05     ZIP [WORK]             2;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city in which the victim is employed. 
                DESCRIPTION:      Enter the zip code for the city in which the victim is employed.  Enter the 5 digit zip code or
                                  ZIP + 4, (i.e., 12345-1234).  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.04,2.06     PHONE NUMBER [WORK]    2;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      SEP 16, 1992 
                HELP-PROMPT:      Answer must be [4-20 characters]. 
                DESCRIPTION:
                                  Enter the telephone number of the victim's place of employment.  


912.04,10       MEDICAL TREATMENT      10;0   WORD-PROCESSING #912.12

                DESCRIPTION:      Enter any information which describes medical treatment received by the victim resulting from the
                                  offense committed.  


                  LAST EDITED:      JAN 08, 1992 
                  HELP-PROMPT:      Describe medical treatment received. 
                  DESCRIPTION:      Enter information which describes any medical treatment received by the victim as a result of
                                    the offense committed.  

                  READ AUTHORITY:   ]





912,40        OFFENDER               40;0 Multiple #912.05

              DESCRIPTION:
                                This subfile contains offender information.  


912.05,.01      NUMBER                 0;1 NUMBER

                INPUT TRANSFORM:  D OFF^ESPDISP
                LAST EDITED:      AUG 03, 1993 
                HELP-PROMPT:      Answer must be [1-99 numeric]. 
                DESCRIPTION:      Enter the sequential number for this offender.  The in-put program will assign the number as you
                                  enter the data.  During the edit option you will need to select the correct offender by number.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  912.05^B 
                                  1)= S ^ESP(912,DA(1),40,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),40,"B",$E(X,1,30),DA)


912.05,.02      NAME                   0;2 POINTER TO ESP MASTER NAME INDEX FILE (#910)

                LAST EDITED:      SEP 24, 1993 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:      Enter the full name of the offender.  Use the standard program format of LAST,FIRST MIDDLE name,
                                  no space between LAST and FIRST name.  

                CROSS-REFERENCE:  912^G 
                                  1)= S ^ESP(912,"G",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^ESP(912,"G",$E(X,1,30),DA(1),DA)
                                  Cross references the file by offender name for Quick Name Check lookup.  



912.05,.03      SEX                    0;3 SET

                                  'M' FOR MALE; 
                                  'F' FOR FEMALE; 
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Enter 'M' for Male or 'F' for Female. 
                DESCRIPTION:
                                  Enter 'M' for Male or 'F' for Female.  


912.05,.04      RACE                   0;4 POINTER TO RACE FILE (#10)

                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be from available codes. 
                DESCRIPTION:
                                  Enter the race which most accurately describes the offender.  


912.05,.05      HEIGHT                 0;5 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>5!($L(X)<2) X
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be [2-5 characters]. 
                DESCRIPTION:
                                  Enter the height of the offender in the format 6'7" or 6-07 for 6 feet and 7 inches.  


912.05,.06      WEIGHT                 0;6 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be [1-999 numeric]. 
                DESCRIPTION:
                                  Enter the weight of the offender.  


912.05,.07      HAIR COLOR             0;7 POINTER TO ESP SELECTABLES FILE (#910.7)

                INPUT TRANSFORM:  S DIC("S")="I $D(^(1)),$P(^(1),U,1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      AUG 07, 1992 
                HELP-PROMPT:      Enter a valid hair color. 
                DESCRIPTION:
                                  Enter the hair color of the offender.  

                SCREEN:           S DIC("S")="I $D(^(1)),$P(^(1),U,1)"
                EXPLANATION:      Enter a valid hair color.

912.05,.08      EYE COLOR              0;8 POINTER TO ESP SELECTABLES FILE (#910.7)

                INPUT TRANSFORM:  S DIC("S")="I $D(^(1)),$P(^(1),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      AUG 07, 1992 
                HELP-PROMPT:      Enter a valid eye color. 
                DESCRIPTION:
                                  Enter the eye color of the offender.  

                SCREEN:           S DIC("S")="I $D(^(1)),$P(^(1),U,2)"
                EXPLANATION:      Enter a valid eye color.

912.05,.09      SKIN TONE              0;9 POINTER TO ESP SELECTABLES FILE (#910.7)

                INPUT TRANSFORM:  S DIC("S")="I $D(^(1)),$P(^(1),U,6)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Enter a valid skin tone. 
                DESCRIPTION:
                                  Enter the skin color of the offender.  

                SCREEN:           S DIC("S")="I $D(^(1)),$P(^(1),U,6)"
                EXPLANATION:      Enter a valid skin tone.

912.05,.1       SCARS/MARKS            0;10 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be [3-50 characters]. 
                DESCRIPTION:
                                  Enter any identifying scars or marks of the offender.  


912.05,.11      STATUS                 0;11 SET

                                  'P' FOR PATIENT; 
                                  'V' FOR VISITOR; 
                                  'E' FOR EMPLOYEE; 
                                  'O' FOR OUTSIDER; 
                                  'PO' FOR POLICE OFFICER; 
                LAST EDITED:      FEB 16, 1993 
                HELP-PROMPT:      Select from available codes. 
                DESCRIPTION:      Enter 'P' if the offender is a Patient, 'V' for Visitor, 'E' for Employee, or 'O' for Outsider,
                                  'PO' for Police Officer.  


912.05,.12      DRIVER'S LICENSE NUMBER 0;12 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be [3-20 characters]. 
                DESCRIPTION:
                                  Enter the driver's license number of the offender, if applicable.  


912.05,.13      STATE OF ISSUE         0;13 POINTER TO STATE FILE (#5)

                LAST EDITED:      JUL 17, 1992 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  From the available listing choose the state that issued the driver's license.  


912.05,1.01     STREET ADDRESS         1;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      DEC 11, 1991 
                HELP-PROMPT:      Answer must be [3-35 characters]. 
                DESCRIPTION:
                                  Enter the first line of the offender's address.  


912.05,1.02     STREET ADDRESS [LINE 2] 1;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      DEC 11, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  If necessary, enter the second line of this offender's address.  


912.05,1.03     CITY                   1;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
                LAST EDITED:      FEB 10, 1993 
                HELP-PROMPT:      Answer must be [2-30 characters].  
                DESCRIPTION:
                                  Enter the city where the offender resides.  


912.05,1.04     STATE                  1;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      DEC 11, 1991 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  Enter the state where the offender resides.  


912.05,1.05     ZIP CODE               1;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city of the offender. 
                DESCRIPTION:      Enter the zip code for the city of the offender.  Enter the 5 digit zip code or ZIP + 4, (i.e.,
                                  12345-1234).  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.05,1.06     PHONE NUMBER [RESIDENCE] 1;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      SEP 16, 1992 
                HELP-PROMPT:      Answer must be [4-20 characters].  
                DESCRIPTION:
                                  Enter the offender's home telephone number.  


912.05,2.01     STREET ADDRESS [WORK]  2;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      FEB 10, 1993 
                HELP-PROMPT:      Answer must be [3-35 characters].  
                DESCRIPTION:
                                  Enter the first line of the address of the offender's place of employment.  


912.05,2.02     STREET ADDRESS [LINE 2] [WORK] 2;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      FEB 10, 1993 
                HELP-PROMPT:      Answer must be [3-30 characters].  
                DESCRIPTION:
                                  If necessary, enter the second line of the address of the offender's place of employment.  


912.05,2.03     CITY [WORK]            2;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      FEB 10, 1993 
                HELP-PROMPT:      Answer must be [3-30 characters].  
                DESCRIPTION:
                                  Enter the city where the offender is employed.  


912.05,2.04     STATE [WORK]           2;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      FEB 10, 1993 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  Enter the state in which the offender is employed.  


912.05,2.05     ZIP [WORK]             2;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city in which the offender is employed. 
                DESCRIPTION:      Enter the zip code for the city in which the offender is employed.  Enter the 5 digit zip code or
                                  ZIP + 4, (i.e., 12345-1234).  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.05,2.06     PHONE NUMBER [WORK]    2;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      FEB 10, 1993 
                HELP-PROMPT:      Answer must be [4-20 characters].  
                DESCRIPTION:
                                  Enter the telephone number for the offender's place of employment.  


912.05,3.01     PERSONAL DESCRIPTION   3;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
                LAST EDITED:      FEB 22, 1993 
                HELP-PROMPT:      Answer must be [3-80 characters].  
                DESCRIPTION:      Enter the personal clothing description of the offender.  For example, enter a description of
                                  glasses, hat, coat, shirt, trousers and other 
                                   clothing.  


912.05,10       OFFENSE COMMITTED      10;0 POINTER Multiple #912.11

                LAST EDITED:      OCT 26, 1992 
                DESCRIPTION:
                                  This contains the offenses committed by this offender.  


912.11,.01        OFFENSE COMMITTED      0;1 POINTER TO ESP OFFENSE CODES FILE (#915)

                  LAST EDITED:      NOV 06, 1992 
                  HELP-PROMPT:      Answer must be a valid offense. 
                  DESCRIPTION:      Enter the offense committed by the offender.  Select from the available listing the offense
                                    committed.  

                  CROSS-REFERENCE:  912.11^B 
                                    1)= S ^ESP(912,DA(2),40,DA(1),10,"B",$E(X,1,30),DA)=""
                                    2)= K ^ESP(912,DA(2),40,DA(1),10,"B",$E(X,1,30),DA)


912.11,.02        OFFENSE DISPOSITION    0;2 POINTER TO ESP DISPOSITION CODES FILE (#911.2)

                  INPUT TRANSFORM:  S DIC("S")="I $D(^(1)),$P(^(1),U,1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                  LAST EDITED:      SEP 21, 1992 
                  HELP-PROMPT:      Answer must be a valid offense disposition. 
                  DESCRIPTION:      Enter the disposition for the offense.  A listed offense must be dispositioned either through
                                    criminal charges or administrative disposition, as appropriate.  Select from the available
                                    disposition codes.  

                  SCREEN:           S DIC("S")="I $D(^(1)),$P(^(1),U,1)"
                  EXPLANATION:      Select an offense disposition.

912.11,.04        CHARGING DOCUMENT      0;4 FREE TEXT

                  INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
                  LAST EDITED:      OCT 26, 1992 
                  HELP-PROMPT:      Answer must be [3-20 characters]. 
                  DESCRIPTION:      Enter the charging document such as the warrant or violation #, if known or applicable.  For
                                    example V1001 or W-101.  In instances where field stations release offenders to outside law
                                    enforcement agencies for formal charging, this document number may be unknown or unavailable.  






912,50        WITNESS                50;0 Multiple #912.06

              LAST EDITED:      JUL 17, 1992 
              DESCRIPTION:
                                This subfile contains witness information.  


912.06,.01      NUMBER                 0;1 NUMBER (Multiply asked)

                INPUT TRANSFORM:  D WIT^ESPDISP
                LAST EDITED:      APR 15, 1997 
                HELP-PROMPT:      Answer must be [1-99 numeric]. 
                DESCRIPTION:      Enter the sequential number for this witness.  The in-put program will assign the number as you
                                  enter the data.  During the edit option you will need to select the correct witness by number.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  912.06^B 
                                  1)= S ^ESP(912,DA(1),50,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),50,"B",$E(X,1,30),DA)


912.06,.02      NAME                   0;2 POINTER TO ESP MASTER NAME INDEX FILE (#910)

                LAST EDITED:      FEB 24, 1993 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:      Enter the full name of the witness.  Use the standard program format of LAST,FIRST MIDDLE name,
                                  no space between LAST and FIRST name.  

                CROSS-REFERENCE:  912^I 
                                  1)= S ^ESP(912,"I",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^ESP(912,"I",$E(X,1,30),DA(1),DA)
                                  Cross reference by Witness name for Quick Name Check Lookup.  



912.06,1.01     STREET ADDRESS         1;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-35 characters]. 
                DESCRIPTION:
                                  Enter the first line of the witness' home address.  


912.06,1.02     STREET ADDRESS [LINE 2] 1;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  If necessary, enter the second line of the witness' home address.  


912.06,1.03     CITY                   1;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>15!($L(X)<2) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [2-15 characters]. 
                DESCRIPTION:
                                  Enter the city in which the witness resides.  


912.06,1.04     STATE                  1;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  Enter the state in which the witness resides.  


912.06,1.05     ZIP CODE               1;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city in which the witness resides. 
                DESCRIPTION:      Enter the zip code for the city in which the witness resides.  Enter the 5 digit zip code or ZIP
                                  + 4, (i.e., 12345-1234).  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.06,1.06     PHONE NUMBER [RESIDENCE] 1;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [4-20 characters]. 
                DESCRIPTION:
                                  Enter the witness' home telephone number.  


912.06,2.01     STREET ADDRESS [WORK]  2;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-35 characters]. 
                DESCRIPTION:
                                  Enter the first line of the address of the witness' place of employment.  


912.06,2.02     STREET ADDRESS [LINE 2] [WORK] 2;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  If necessary, enter the second line of the address of the witness' place of employment.  


912.06,2.03     CITY [WORK]            2;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>15!($L(X)<2) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [2-15 characters]. 
                DESCRIPTION:
                                  Enter the city of the witness' place of employment.  


912.06,2.04     STATE [WORK]           2;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  Enter the state in which the witness is employed.  


912.06,2.05     ZIP [WORK]             2;5 FREE TEXT

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL
                OUTPUT TRANSFORM: D ZIPOUT^ESPUTIL
                LAST EDITED:      SEP 29, 1993 
                HELP-PROMPT:      Enter the zip code for the city in which the witness is employed. 
                DESCRIPTION:      Enter the zip code for the city in which the witness is employed.  Enter the 5 digit zip code or
                                  ZIP + 4, (i.e., 12345-1234).  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


912.06,2.06     PHONE NUMBER [WORK]    2;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
                LAST EDITED:      AUG 22, 1991 
                HELP-PROMPT:      Answer must be [4-20 characters]. 
                DESCRIPTION:
                                  Enter the telephone number of the witness' place of employment.  




912,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.  




912,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.  




912,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.  




912,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.  




912,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.  




912,80        VEHICLE INFORMATION    80;0 Multiple #912.09

              DESCRIPTION:
                                This subfile contains vehicle information.  


912.09,.01      VEHICLE NUMBER         0;1 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      FEB 23, 1993 
                HELP-PROMPT:      Answer must be [1-99 numeric]. 
                DESCRIPTION:      Enter the sequential number for this vehicle.  The input program will assign the number as you
                                  enter the data.  During the edit option you will need to select the correct vehicle by number.  

                CROSS-REFERENCE:  912.09^B 
                                  1)= S ^ESP(912,DA(1),80,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),80,"B",$E(X,1,30),DA)


912.09,.02      LICENSE TAG #          0;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
                LAST EDITED:      JAN 26, 1993 
                HELP-PROMPT:      Answer must be [1-8 characters].  
                DESCRIPTION:
                                  Enter the license tag # of the vehicle.  


912.09,.03      STATE OF ISSUE         0;3 POINTER TO STATE FILE (#5)

                LAST EDITED:      MAR 29, 1991 
                HELP-PROMPT:      Answer must be a valid State. 
                DESCRIPTION:
                                  Enter the state which issued the license tag.  


912.09,.04      VEHICLE MAKE           0;4 POINTER TO ESP SELECTABLES FILE (#910.7)

                INPUT TRANSFORM:  S DIC("S")="I $D(^(2)),$P(^(2),U,1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      NOV 07, 1991 
                HELP-PROMPT:      Enter a valid vehicle make. 
                DESCRIPTION:
                                  Enter the make of this vehicle.  It must be in the Selectables File.  

                SCREEN:           S DIC("S")="I $D(^(2)),$P(^(2),U,1)"
                EXPLANATION:      Enter a valid vehicle make.

912.09,.05      VEHICLE MODEL          0;5 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      NOV 07, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  Enter the model of the vehicle.  


912.09,.06      VEHICLE STYLE          0;6 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      NOV 07, 1991 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  Enter the style of this vehicle, i.e., 2-door, 4-door.  


912.09,.07      VEHICLE COLOR          0;7 POINTER TO ESP SELECTABLES FILE (#910.7)

                INPUT TRANSFORM:  S DIC("S")="I $D(^(1)),$P(^(1),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      NOV 07, 1991 
                HELP-PROMPT:      Answer must be a valid vehicle color. 
                DESCRIPTION:
                                  Enter the color of the vehicle.  Answer must be a valid vehicle color in the Selectables file.  

                SCREEN:           S DIC("S")="I $D(^(1)),$P(^(1),U,3)"
                EXPLANATION:      Enter a valid vehicle color.

912.09,.08      DECAL #                0;8 POINTER TO ESP POLICE REGISTRATION LOG FILE (#910.2)

                INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      JUL 08, 1993 
                HELP-PROMPT:      Must be a valid vehicle registration decal. 
                DESCRIPTION:
                                  Enter the decal # of this vehicle.  

                SCREEN:           S DIC("S")="I $P(^(0),U,4)=1"
                EXPLANATION:      Must be a vehicle registration.

912.09,.09      DECAL COLOR            0;9 POINTER TO ESP SELECTABLES FILE (#910.7)

                INPUT TRANSFORM:  S DIC("S")="I $D(^(1)),$P(^(1),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      SEP 24, 1992 
                HELP-PROMPT:      Answer must be a valid decal color. 
                DESCRIPTION:      Enter the color of the decal.  The answer must be designated as a valid decal color in the
                                  Selectables File.  

                SCREEN:           S DIC("S")="I $D(^(1)),$P(^(1),U,7)"
                EXPLANATION:      Enter a valid decal color.

912.09,.1       YEAR OF MANUFACTURE    0;10 DATE

                INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      SEP 24, 1992 
                HELP-PROMPT:      Answer must be a year. 
                DESCRIPTION:
                                  Enter the year of manufacture of the vehicle.  It may be input as '1990' or '90'.  


912.09,.11      OWNER NAME             0;11 POINTER TO ESP MASTER NAME INDEX FILE (#910)

                LAST EDITED:      JAN 17, 1997 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:      Enter the full name of the owner of the vehicle.  Use the program standard format of LAST,FIRST
                                  MIDDLE, no space between LAST and FIRST name, i.e. DOE,JOHN W.  

                CROSS-REFERENCE:  912^J 
                                  1)= S ^ESP(912,"J",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^ESP(912,"J",$E(X,1,30),DA(1),DA)




912,90        PROPERTY (LOST)        90;0 Multiple #912.1

              DESCRIPTION:
                                This subfile contains lost property information.  


912.1,.01       ITEM NAME              0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      SEP 22, 1992 
                HELP-PROMPT:      Answer must be [3-30 characters]. 
                DESCRIPTION:
                                  Enter the descriptive name of the item, i.e., purse, wallet, watch.  

                CROSS-REFERENCE:  912.1^B 
                                  1)= S ^ESP(912,DA(1),90,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),90,"B",$E(X,1,30),DA)


912.1,.02       DESCRIPTION            0;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>75!($L(X)<3) X
                LAST EDITED:      NOV 16, 1992 
                HELP-PROMPT:      Answer must be [3-75 characters].  
                DESCRIPTION:      Enter a brief description of the item, (i.e., black leather, bifold; U.S. Currency, 5-$10, 1-$5,
                                  3-$1).  


912.1,.03       DOLLAR LOSS            0;3 NUMBER

                INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
                LAST EDITED:      FEB 23, 1993 
                HELP-PROMPT:      Type a Dollar Amount between 1 and 999999, 0 Decimal Digits 
                DESCRIPTION:      Enter the Dollar value of the lost/stolen property, rounded to the nearest whole Dollar.  The
                                  answer must be a Dollar amount between 0 and 999999.  Enter only numerics, do not include "$" or
                                  "," or ".00", (i.e. 2000, 200, 1).  


912.1,.04       DOLLAR RECOVERED       0;4 NUMBER

                INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
                LAST EDITED:      FEB 23, 1993 
                HELP-PROMPT:      Type a Dollar Amount between 1 and 999999, 0 Decimal Digits 
                DESCRIPTION:      Enter a Dollar value of the recovered property, rounded to the nearest whole Dollar.  Amount
                                  entered must be between 0 and 999999.  




912,100       PROPERTY HELD          100;0 Multiple #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.  


912.02,.01      ITEM NUMBER            0;1 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      FEB 25, 1993 
                HELP-PROMPT:      Type a Number between 1 and 999, 0 Decimal Digits 
                DESCRIPTION:      Enter the sequential Item No. for this item as listed on the VA Form 10-3524, "Evidence or
                                  Property Custody Record", i.e., 1, 2, 3, etc.  

                CROSS-REFERENCE:  912.02^B 
                                  1)= S ^ESP(912,DA(1),100,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),100,"B",$E(X,1,30),DA)


912.02,.02      QUANTITY               0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      SEP 21, 1992 
                HELP-PROMPT:      Enter the total quantity of the article(s) listed for this item. 
                DESCRIPTION:      Enter the total quantity of the article(s) listed for this item, (i.e., 100 tablets, 3 pairs, 2
                                  each).  Answer must be between 1 and 999999.  


912.02,.03      PURPOSE                0;3 SET

                                  'D' FOR DESTRUCTION; 
                                  'E' FOR EVIDENCE; 
                                  'S' FOR SAFEKEEPING; 
                LAST EDITED:      SEP 21, 1992 
                HELP-PROMPT:      Answer must be a valid code. 
                DESCRIPTION:      Enter the reason that the article(s) are being placed into Property Held.  This will assist the
                                  Evidence/Property Custodian in determining a retention time for them.  You must select from the
                                  available codes.  


912.02,10       DESCRIPTION            10;0   WORD-PROCESSING #912.13

                DESCRIPTION:      Enter a brief description of the article(s) listed for this Item No., i.e., "Aspirin, Bayer
                                  brand, plastic bottle, brown label, unopened"; or "Smirnoff Vodka, 1/5 gallon, opened,
                                  approximately 1/2 contents remaining".  


                  LAST EDITED:      SEP 21, 1992 
                  HELP-PROMPT:      Enter a brief description of the article(s). 
                  DESCRIPTION:      Enter any additional descriptive information for the item being processed for placement in the
                                    Evidence/Property Custody system.  






912,110       OTHER AGENCY NOTIFIED  110;0 DATE Multiple #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.  


912.14,.01      DATE/TIME NOTIFIED     0;1 DATE

                INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      FEB 23, 1993 
                HELP-PROMPT:      Answer must contain BOTH a date and time. 
                DESCRIPTION:
                                  Enter the date/time an outside agency was notified.  

                CROSS-REFERENCE:  912.14^B 
                                  1)= S ^ESP(912,DA(1),110,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),110,"B",$E(X,1,30),DA)


912.14,.02      CONTACT PERSON         0;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      MAY 03, 1993 
                HELP-PROMPT:      Answer must be 3-30 characters in length. 
                DESCRIPTION:      Enter the person who was contacted in the outside agency.  You may enter a person's name or
                                  title.  


912.14,.03      AGENCY                 0;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
                LAST EDITED:      MAY 03, 1993 
                HELP-PROMPT:      Answer must be 3-40 characters in length. 
                DESCRIPTION:
                                  Enter the name of the agency notified.  




912,120       U.S. ATTORNEY NOTIFIED 120;0 DATE Multiple #912.15

              DESCRIPTION:      If U.S. Attorney is notified, then enter the date and time of notification and instructions
                                received.  


912.15,.01      DATE/TIME NOTIFIED     0;1 DATE

                INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      FEB 23, 1993 
                HELP-PROMPT:      Answer must contain BOTH a date and time. 
                DESCRIPTION:      This is to note when the U.S. Attorney or FBI was notified.  If the subject is in custody, the
                                  notification of the U.S.  Attorney may be required for further instructions.  If an offense has
                                  occurred for which further investigation will be required, the FBI may have to be notified.  

                CROSS-REFERENCE:  912.15^B 
                                  1)= S ^ESP(912,DA(1),120,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),120,"B",$E(X,1,30),DA)


912.15,10       INSTRUCTIONS RECEIVED  10;0   WORD-PROCESSING #912.16

                DESCRIPTION:      Enter a brief statement identifying any special instructions from authorities concerning the
                                  offense.  


                  LAST EDITED:      FEB 19, 1993 
                  HELP-PROMPT:      Enter instructions received. 
                  DESCRIPTION:
                                    Enter a complete description of the instructions received from the U.S. Attorney's office.  






912,130       FOLLOW-UP              130;0 POINTER Multiple #912.17

              LAST EDITED:      MAY 05, 1993 
              DESCRIPTION:
                                This field is used to record the follow-up notes and the follow-up investigators.  


912.17,.01      INVESTIGATOR           0;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 
                HELP-PROMPT:      ANSWER MUST BE 3-30 CHARACTERS. 
                DESCRIPTION:      Enter the name of a police officer who has been assigned to conduct follow-up investigative work
                                  on a Uniform Offense Report initiated by another officer.  The follow-up 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:      Only officers currently active.
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  912.17^B 
                                  1)= S ^ESP(912,DA(1),130,"B",$E(X,1,30),DA)=""
                                  2)= K ^ESP(912,DA(1),130,"B",$E(X,1,30),DA)


912.17,.02      DATE/TIME ENTERED/EDITED 0;2 DATE

                INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      MAY 06, 1993 
                HELP-PROMPT:      Enter the date/time this follow-up data is entered or edited. 
                DESCRIPTION:      Enter the date/time these follow-up investigative notes are entered or edited.  This field will
                                  be automatically stuffed when entered through the Add/Edit Follow-up notes option.  


912.17,.03      USER                   0;3 POINTER TO NEW PERSON FILE (#200)

                LAST EDITED:      MAY 04, 1993 
                HELP-PROMPT:      Enter the person's name who is entering this data. 
                DESCRIPTION:      This field contains the pointer to the New Person file (#200) who entered this data into the
                                  computer.  If entering data through the Add Follow-up Notes option, this field will be
                                  automatically stuffed.  


912.17,10       NOTES                  10;0   WORD-PROCESSING #912.18

                LAST EDITED:      MAY 05, 1993 
                DESCRIPTION:      This field is used to record any follow-up investigative notes that apply to the initial
                                  investigative report.  


                  LAST EDITED:      MAY 04, 1993 
                  HELP-PROMPT:      Enter the follow-up investigative notes. 






      FILES POINTED TO                      FIELDS

ESP CRIME CATEGORIES (#912.7)     CLASSIFICATION CODE:CLASSIFICATION CODE (#.01)

ESP CRIME SUB-TYPES (#912.9)      CLASSIFICATION CODE:SUBTYPE (#.03)

ESP CRIME TYPES (#912.8)          CLASSIFICATION CODE:TYPE (#.02)

ESP DISPOSITION CODES (#911.2)    OFFENSE COMMITTED:OFFENSE DISPOSITION (#.02)

ESP MASTER NAME INDEX (#910)      COMPLAINANT:COMPLAINANT NAME (#.02)
                                  VICTIM:NAME (#.02)
                                  OFFENDER:NAME (#.02)
                                  WITNESS:NAME (#.02)
                                  VEHICLE INFORMATION:OWNER NAME (#.11)

ESP OFFENSE CODES (#915)          OFFENSE COMMITTED:OFFENSE COMMITTED (#.01)

ESP POLICE REGISTRATION LOG 
                   (#910.2)       VEHICLE INFORMATION:DECAL # (#.08)

ESP SELECTABLES (#910.7)          OFFENDER:HAIR COLOR (#.07)
                                  EYE COLOR (#.08)
                                  SKIN TONE (#.09)
                                  VEHICLE INFORMATION:VEHICLE MAKE (#.04)
                                  VEHICLE COLOR (#.07)
                                  DECAL COLOR (#.09)

INSTITUTION (#4)                  INSTITUTION (#5.01)

MEDICAL CENTER DIVISION (#40.8)   FACILITY (#.07)

NEW PERSON (#200)                 INVESTIGATING OFFICER (#.06)
                                  USER (#5.03)
                                  DELETING USER (#5.07)
                                  REOPENED USER (#6.03)
                                  FOLLOW-UP:INVESTIGATOR (#.01)
                                  USER (#.03)

RACE (#10)                        VICTIM:RACE (#.04)
                                  OFFENDER:RACE (#.04)

STATE (#5)                        COMPLAINANT:STATE (#1.04)
                                  STATE [WORK] (#2.04)
                                  VICTIM:STATE OF ISSUE (#.07)
                                  STATE (#1.04)
                                  STATE [WORK] (#2.04)
                                  OFFENDER:STATE OF ISSUE (#.13)
                                  STATE (#1.04)
                                  STATE [WORK] (#2.04)
                                  WITNESS:STATE (#1.04)
                                  STATE [WORK] (#2.04)
                                  VEHICLE INFORMATION:STATE OF ISSUE (#.03)



INPUT TEMPLATE(S):
ESP FOLLOW-UP NOTES           OCT 14, 1993@15:41  USER #1221 
ESP OFFENSE REPORT 4          APR 22, 1997@15:38  USER #0    
ESP OFFENSE REPORT 5          JUL 30, 1993@13:22  USER #0    
ESP OFFENSE REPORT EDIT       JUL 29, 1993@15:34  USER #0    
ESP OFFENSE REPORT EDIT 1     APR 22, 1997@15:40  USER #0    
ESP OFFENSE REPORT EDIT 2     APR 22, 1997@15:41  USER #0    
ESP OFFENSE REPORT EDIT 3     APR 22, 1997@15:42  USER #0    

PRINT TEMPLATE(S):
ESP CASE ASSIGNMENT REGISTER  AUG 31, 2004@15:06  USER #0                                                  CASE ASSIGNMENT REGISTER
     This print template displays pertinent data that allows the Chief
     of Police or designee to generate a Case Assignment Register from
     data already contained within the Offense Report file.
ESP MISSING PATIENT REPORT-ALLSEP 16, 1993@14:54  USER #0                                       MISSING PATIENT REACTION REPORT-ALL
     This print template allows VA Police staff to generate a report
     of all Missing Patient Reaction investigations conducted within any
     selected time period.  The associated sort template allows for a
     selection of date range.
ESP MISSING PATIENT REPORT-OPNSEP 16, 1993@14:57  USER #0                                       MISSING PATIENT REACTION REPORT-OPN
     This print template allows VA Police staff to generate a report
     listing all Missing Patient Reaction investigations with a Case Status
     of 'Open'.
ESP OFFENSE MATCH REPORT      JUN 01, 2004@15:28  USER #0                                                    OFFENSE REPORT MATCHES
     This print template provides pertinent data on offense reports
     contained within the ESP Offense file that match specific pieces
     of sort data input by VA Police staff.

SORT TEMPLATE(S):
ESP CASE ASSIGNMENT ALL       SEP 30, 1993@08:30  USER #5    
SORT BY: @]DATE/TIME RECEIVED//    (User is asked range)
  WITHIN DATE/TIME RECEIVED, SORT BY: DELETED/REOPENED FLAG="NONE OF THE ABOVE";L1//     From '0'  To '1'

ESP CASE ASSIGNMENT OPEN      SEP 21, 1993@14:57  USER #0    
SORT BY: UOR NUMBER//
  WITHIN UOR NUMBER, SORT BY: CASE STATUS="OPEN";L1//     From '0'  To '1'
    WITHIN CASE STATUS="OPEN", SORT BY: DELETED/REOPENED FLAG="NONE OF THE ABOVE";L1//     From '0'  To '1'

ESP CASE ASSIGNMENT OPEN/FAC  JUL 22, 1999@10:19  USER #0    
SORT BY: FACILITY//    (User is asked range)
  WITHIN FACILITY, SORT BY: UOR NUMBER// (UOR NUMBER not null)
    WITHIN UOR NUMBER, SORT BY: CASE STATUS="OPEN";L1// (CASE STATUS=""OPEN"")
      WITHIN CASE STATUS="OPEN", SORT BY: DELETED/REOPENED FLAG="NONE OF THE ABOVE";L1// (DELETED/REOPENED FLAG=""NONE OF THE ABOVE"")

ESP CASE BY DIVISION          JUL 22, 1999@08:56  USER #0    
SORT BY: FACILITY//    (User is asked range)
  WITHIN FACILITY, SORT BY: DATE/TIME OF OFFENSE//    (User is asked range)

ESP MISSING PATIENT REPORT-ALLSEP 16, 1993@14:53  USER #0    
SORT BY: @CLASSIFICATION CODE//
CLASSIFICATION CODE SUB-FIELD: CLASSIFICATION CODE//     From 'NON'  To 'NONZ^NONZ'
  WITHIN CLASSIFICATION CODE, SORT BY: @CLASSIFICATION CODE//
  CLASSIFICATION CODE SUB-FIELD: TYPE//     From 'MISSING'  To 'MISSINGZ^MISSINGZ'
    WITHIN TYPE, SORT BY: @DATE/TIME OF OFFENSE//    (User is asked range)
      WITHIN DATE/TIME OF OFFENSE, SORT BY: DELETED/REOPENED FLAG'="REOPENED";L1//     From '0'  To '1'
     This sort template allows VA Police staff to generate a report for all
     Missing Patient Reaction investigations.  The template allows them to
     select a date range based on the Date/Time of Offense field within the
     Uniform Offense Report.

ESP MISSING PATIENT REPORT-OPNSEP 16, 1993@14:56  USER #0    
SORT BY: @CLASSIFICATION CODE//
CLASSIFICATION CODE SUB-FIELD: CLASSIFICATION CODE//     From 'NON'  To 'NONZ^NONZ'
  WITHIN CLASSIFICATION CODE, SORT BY: @CLASSIFICATION CODE//
  CLASSIFICATION CODE SUB-FIELD: TYPE//     From 'MISSING'  To 'MISSINGZ^MISSINGZ'
    WITHIN TYPE, SORT BY: DELETED/REOPENED FLAG'="REOPENED";L1//     From '0'  To '1'
      WITHIN DELETED/REOPENED FLAG'="REOPENED", SORT BY: CASE STATUS="OPEN";L1//     From '0'  To '1'
     This sort template allows VA Police staff to generate a report listing
     all Missing Patient Reaction investigations with a Case Status of 'Open'.

ESP OFFENSE MATCH             FEB 09, 1993@10:12  USER #0    
SORT BY: @DATE/TIME RECEIVED//    (User is asked range)
  WITHIN DATE/TIME RECEIVED, SORT BY: CLASSIFICATION CODE//
  CLASSIFICATION CODE SUB-FIELD: CLASSIFICATION CODE//    (User is asked range)
    WITHIN CLASSIFICATION CODE, SORT BY: OFFENDER//
    OFFENDER SUB-FIELD: NAME//    (User is asked range)
      WITHIN NAME, SORT BY: @INVESTIGATING OFFICER//    (User is asked range)
        WITHIN INVESTIGATING OFFICER, SORT BY: LOCATION//    (User is asked range)


FORM(S)/BLOCK(S):