Global: ^ESP(914

FileMan FileNo	FileMan Filename	Package
914	ESP VIOLATIONS	Police and Security

Package	Total	Routines
Police and Security	12	ESP LOCATE VIOLATION ESP VIOLATIONS BY OFFICER ESP VIOLATIONS ISSUED ESP VIOLATIONS/WARNINGS ISSUED ESPOID ESPQNC ESPUCF ESPUCR ESPUVN ESPVNE ESPVNP ^ESP(914

Package	Total	Routines
Police and Security	3	ESPUVN ESPVNE ESPVNP

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.`

Name	Field # of Occurrence
^%DT	.02+1, 1.09+1, 2.01+1
^DIC	.06+1, 1.01+1, 1.02+1, 1.05+1, 1.08+1, 2.02+1
^DICR	.01(XREF 2n1.4)
Y^DIQ	ID.04+1
VIO^ESPOID	.01+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4)
^DD("SITE"	.01(XREF 2S)
^DD(914	.01(XREF 2S)
^DD(915	ID.04+1
^ESP(910.7 - [#910.7]	1.02(XREF 1S), 1.02(XREF 1K)
^ESP(914 - [#914]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K) , .04(XREF 1S), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .09(XREF 1S), .09(XREF 1K), 1.02(XREF 1S), 1.02(XREF 1K) , 1.03(XREF 1S), 1.03(XREF 1K)
^ESP(915 - [#915]	ID.04+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	.02+1!, 1.09+1, 2.01+1*
%DT(0	.02+1*
%I	ID.04+1*!
>> C	ID.04+1*
>> D0	.01(XREF 2S)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S) , .04(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .09(XREF 1S), .09(XREF 1K), 1.02(XREF 1S), 1.02(XREF 1K), 1.03(XREF 1S) , 1.03(XREF 1K)
DIC	ID.04+1, IDWRITE+1, .06+1!, 1.01+1!, 1.02+1!, 1.05+1!, 1.08+1!, 2.02+1!
DIC("S"	.06+1, .06SCR+1, 1.01+1, 1.01SCR+1, 1.02+1, 1.02SCR+1, 1.05+1, 1.05SCR+1, 1.08+1, 1.08SCR+1 , 2.02+1, 2.02SCR+1
>> DIE	.06+1, 1.01+1, 1.02+1, 1.05+1, 1.08+1, 2.02+1
>> DIG	.01(XREF 2n1.4)
>> DIH	.01(XREF 2n1.4)
>> DINUM	.01+1*
>> DIU	.01(XREF 2S)
DIV	.01(XREF 2S), .01(XREF 2n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4)
U	ID.02+1, ID.04+1, ID1.03+1, IDWRITE1+1, .01(XREF 2S), .01(XREF 2n1.4)
X	.01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3K), .02+1!, .02(XREF 1S), .02(XREF 1K) , .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .05+1!, .05(XREF 1S), .05(XREF 1K), .06+1!, .06(XREF 1S), .06(XREF 1K) , .07+1!, .08+1!, .09(XREF 1S), .09(XREF 1K), 1.01+1!, 1.02+1!, 1.02(XREF 1S), 1.02(XREF 1K), 1.03+1!, 1.03(XREF 1S) , 1.03(XREF 1K), 1.05+1!, 1.06+1!, 1.07+1!, 1.08+1!, 1.09+1!, 2.01+1!, 2.02+1*!
Y	ID.04+1*, .01(XREF 2S), .02+1, .06+1, 1.01+1, 1.02+1, 1.05+1, 1.08+1, 1.09+1, 2.01+1 , 2.02+1
Y(1	.01(XREF 2S)

Customize PDF page

Package: Police and Security

Global: ^ESP(914

Information

Description

Directly Accessed By Routines, Total: 18

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 9

Fields, Total: 23

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID.02+1, ID.04+1, IDWRITE1+1
^(1	ID1.03+1
^(5	.01(XREF 2S), .01(XREF 2n1.4)