Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^ESP(914

Package: Police and Security

Global: ^ESP(914


Information

FileMan FileNo FileMan Filename Package
914 ESP VIOLATIONS Police and Security

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Police and Security 3 ESPUVN    ESPVNE    ESPVNP    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Police and Security 5 ESP MASTER NAME INDEX(#910)[.09]    ESP POLICE REGISTRATION LOG(#910.2)[1.01]    ESP SELECTABLES(#910.7)[1.02, 1.05, 1.08]
ESP DISPOSITION CODES(#911.2)[2.02]    ESP OFFENSE CODES(#915)[.04]    
Kernel 3 INSTITUTION(#4)[5.01]    STATE(#5)[1.04]    NEW PERSON(#200)[.06]    
Registration 1 MEDICAL CENTER DIVISION(#40.8)[.1]    

Fields, Total: 23

Field # Name Loc Type Details
.01 ID NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D VIO^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 violation ID #. It is the site # concatenated with year and the internal entry number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  914^B
    1)= S ^ESP(914,"B",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^914^5.01
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(914,D0,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=^DD("SITE",1) X ^DD(914,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^ESP(914,DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,1)=DIV,DIH=914,DIG=5.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= This cross-reference cannot be deleted!
    CREATE VALUE)= S X=^DD("SITE",1)
    DELETE VALUE)= NO EFFECT
    FIELD)= INSTITUTION
  • CROSS-REFERENCE:  914^F^MUMPS
    1)= S ^ESP(914,"F",+$E(X,$L(X)-5,$L(X))_"."_$E(X,$L(X)-7,$L(X)-6),DA)=""
    2)= K ^ESP(914,"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 I.D. # for a Violation. The shortcut I.D. # is the sequential number, a period, and the 2-digit year, (e.g., 1.93 is the shortcut I.D. # 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 OF OFFENSE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 2003
  • HELP-PROMPT:  Enter the date/time of the offense.
  • DESCRIPTION:  
    The date/time of the commission of the offense charged. Future dates are not allowed. Enter the date/time of the commission of the offense charged. BOTH date and time must be entered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  914^C
    1)= S ^ESP(914,"C",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"C",$E(X,1,30),DA)
.03 COURTESY/VIOLATION 0;3 SET
  • 'C' FOR COURTESY;
  • 'V' FOR USDCVN;

  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Select from the authorized codes.
  • DESCRIPTION:  
    Enter 'C' if this is a courtesy ticket or 'V' if this is a USDCVN.
  • CROSS-REFERENCE:  914^AC
    1)= S ^ESP(914,"AC",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"AC",$E(X,1,30),DA)
.04 OFFENSE CHARGED 0;4 POINTER TO ESP OFFENSE CODES FILE (#915)
************************REQUIRED FIELD************************
ESP OFFENSE CODES(#915)

  • LAST EDITED:  JUL 26, 1993
  • HELP-PROMPT:  You must select from the available listing.
  • DESCRIPTION:  
    Enter the specific statute or regulation violated.
  • CROSS-REFERENCE:  914^AD
    1)= S ^ESP(914,"AD",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"AD",$E(X,1,30),DA)
.05 VIOLATION NUMBER 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  DEC 12, 2006
  • HELP-PROMPT:  Answer must be 3-7 characters in length
  • DESCRIPTION:  
    Enter the number assigned to the U.S.D.C. Violation Notice. Enter only the numerics of the number, the "V" is understood to exist since it has already been designated as a Violation Notice.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  914^D
    1)= S ^ESP(914,"D",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"D",$E(X,1,30),DA)
.06 ISSUING 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:  MAR 24, 2004
  • HELP-PROMPT:  Enter the issuing officer's name.
  • DESCRIPTION:  
    Enter the name of the police officer issuing the ticket. 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 police officer currently assigned to the Service.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  914^AE
    1)= S ^ESP(914,"AE",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"AE",$E(X,1,30),DA)
.07 LOCATION 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Answer must be [3-30 characters].
  • DESCRIPTION:  
    Enter two reference points to identify the location where the violation occurred, (i.e., 10th Street and Union Avenue, Ward 37, Room 134, Building 13D, Canteen).
.08 OFFENSE DESCRIPTION 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Answer must be [3-30 characters].
  • DESCRIPTION:  
    The description of the violation charged. This space may be used to provide shorthand titles for common violations such as speeding or parking. This type of entry may be useful in developing violation trend studies.
.09 OFFENDER 0;9 POINTER TO ESP MASTER NAME INDEX FILE (#910) ESP MASTER NAME INDEX(#910)

  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Answer must be [3-30 characters].
  • DESCRIPTION:  
    Enter the name of the person receiving the ticket. The name must also entered in the Master Name File (910). The standard LAST,FIRST MIDDLE name format is to be used.
  • CROSS-REFERENCE:  914^E
    1)= S ^ESP(914,"E",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"E",$E(X,1,30),DA)
.1 FACILITY 0;10 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)
************************REQUIRED FIELD************************
MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  JUN 18, 2004
  • HELP-PROMPT:  Enter the Facility associated with this violation.
  • DESCRIPTION:  
    Use this field to identify the Facility that this violation is associated with.
1.01 DECAL # 1;1 POINTER TO ESP POLICE REGISTRATION LOG FILE (#910.2) ESP POLICE REGISTRATION LOG(#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
  • DESCRIPTION:  
    Enter the parking permit decal number.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=1"
  • EXPLANATION:  Must be a vehicle registration.
1.02 DECAL COLOR 1;2 POINTER TO ESP SELECTABLES FILE (#910.7) ESP SELECTABLES(#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:  JAN 03, 1992
  • HELP-PROMPT:  Choose from the available listing the color of the decal.
  • DESCRIPTION:  
    Enter the color of the decal. It must be in the Selectables file.
  • SCREEN:  S DIC("S")="I $D(^(1)),$P(^(1),U,7)"
  • EXPLANATION:  Enter a valid decal color.
  • CROSS-REFERENCE:  914^I^MUMPS
    1)= S ^ESP(914,"I",$P(^ESP(914,DA,1),"^",1)_$P(^ESP(910.7,X,0),"^",1),DA)=""
    2)= K ^ESP(914,"I",$P(^ESP(914,DA,1),"^",1)_$P(^ESP(910.7,X,0),"^",1),DA)
    This cross-reference is used for lookup by decal # and decal color.
1.03 LICENSE TAG # 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1) X
  • LAST EDITED:  DEC 06, 1993
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
  • DESCRIPTION:  
    Enter the license tag number of the vehicle involved in a vehicle related offense.
  • CROSS-REFERENCE:  914^G
    1)= S ^ESP(914,"G",$E(X,1,30),DA)=""
    2)= K ^ESP(914,"G",$E(X,1,30),DA)
    This cross reference allows VA Police staff to inquire and sort violation records by the License Tag #.
1.04 LICENSE TAG STATE 1;4 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Enter a State.
  • DESCRIPTION:  
    Enter the state that issued the license tag number.
1.05 VEHICLE MAKE 1;5 POINTER TO ESP SELECTABLES FILE (#910.7) ESP SELECTABLES(#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:  JAN 03, 1992
  • HELP-PROMPT:  Enter the 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.
1.06 VEHICLE MODEL 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Answer must be [3-30 characters].
  • DESCRIPTION:  
    Enter the model of this vehicle, i.e., GALAXIE, MUSTANG, BLAZER, etc.
1.07 VEHICLE STYLE 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Answer must be [3-30 characters].
  • DESCRIPTION:  
    Enter the style of this vehicle, for example, TWO DOOR.
1.08 VEHICLE COLOR 1;8 POINTER TO ESP SELECTABLES FILE (#910.7) ESP SELECTABLES(#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:  JAN 03, 1992
  • HELP-PROMPT:  Enter the vehicle color.
  • DESCRIPTION:  
    Enter the color of this vehicle. It must be in the Selectables file.
  • SCREEN:  S DIC("S")="I $D(^(1)),$P(^(1),U,3)"
  • EXPLANATION:  Enter a valid vehicle color.
1.09 YEAR OF MANUFACTURE 1;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 04, 1992
  • HELP-PROMPT:  Enter the year.
  • DESCRIPTION:  
    Enter the year of manufacture of the vehicle, may be entered as 1990 or 90, etc.
2.01 COURT DATE 2;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Enter a date.
  • DESCRIPTION:  
    Enter the date/time of the court appearance.
2.02 DISPOSITION 2;2 POINTER TO ESP DISPOSITION CODES FILE (#911.2) ESP DISPOSITION CODES(#911.2)

  • 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:  SEP 18, 1992
  • HELP-PROMPT:  Select from the available listing.
  • DESCRIPTION:  
    Enter the code designating the disposition of this case. The disposition entered must be contained in the ESP DISPOSITION CODE file (911.2).
  • SCREEN:  S DIC("S")="I $D(^(1)),$P(^(1),U,3)"
  • EXPLANATION:  Select a violation disposition.
5.01 INSTITUTION 5;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  This field is not entered by the user.
  • DESCRIPTION:  
    This field is automatically triggered by the Institution File.
    UNEDITABLE
  • NOTES:  TRIGGERED by the ID NUMBER field of the ESP VIOLATIONS File
10 REMARKS 10;0 WORD-PROCESSING #914.01

  • LAST EDITED:  JUN 28, 1993
  • DESCRIPTION:  
    Enter any remarks that you feel may be pertinent to record for this record.
  • LAST EDITED:  JUN 28, 1993
  • HELP-PROMPT:  Enter any remarks you wish to record.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields