Global: ^ESP(910.2

FileMan FileNo	FileMan Filename	Package
910.2	ESP POLICE REGISTRATION LOG	Police and Security

Package	Total	Routines
Police and Security	6	ESP117PT ESPQNC ESPREG ESPREGWP ESPVEH ESPVREG

Package	Total	FileMan Files
Police and Security	2	ESP OFFENSE REPORT(#912)[#912.09(.08)] ESP VIOLATIONS(#914)[1.01]

Package	Total	FileMan Files
Police and Security	2	ESP MASTER NAME INDEX(#910)[.03, 4.05, 5.01, 6.01, 6.02, 6.03, 6.04, 6.05] ESP SELECTABLES(#910.7)[.02, 1.03, 1.06, 2.01, 3.05, 4.01, 4.04]
Kernel	1	STATE(#5)[1.02]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[.08]

Fields, Total: 46

Field #	Name	Loc	Type	Details
.01	VA TAG ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 08, 1993` HELP-PROMPT: `Answer must be [1-30 characters].` DESCRIPTION: `Enter the VA tag ID, such as decal # for a vehicle.` CROSS-REFERENCE: `910.2^B` `1)= S ^ESP(910.2,"B",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"B",$E(X,1,30),DA)`
.02	DECAL COLOR	0;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: `JUL 08, 1993` HELP-PROMPT: `Choose from the available listing the color of the decal.` DESCRIPTION: `Enter the color of the assigned decal. You must choose from the available listing.` SCREEN: `S DIC("S")="I $D(^(1)),$P(^(1),U,7)"` EXPLANATION: `Enter a valid decal color.` CROSS-REFERENCE: `910.2^H` `1)= S ^ESP(910.2,"H",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"H",$E(X,1,30),DA)`
.03	OWNER NAME	0;3	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `DEC 04, 1991` HELP-PROMPT: `Enter the owner's name.` DESCRIPTION: `Choose from the available listing the name of the owner of the property being registered. You may enter a new name if you wish.` CROSS-REFERENCE: `910.2^D` `1)= S ^ESP(910.2,"D",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"D",$E(X,1,30),DA)`
.04	REGISTRATION TYPE	0;4	SET	'1' FOR VEHICLE; '2' FOR BICYCLE; '3' FOR WEAPON; '4' FOR PET; '5' FOR GOLF; LAST EDITED: `FEB 23, 1993` HELP-PROMPT: `Choose the type of registration.` DESCRIPTION: `Choose the registration type from the available list, (i.e., VEHICLE.)` CROSS-REFERENCE: `910.2^T` `1)= S ^ESP(910.2,"T",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"T",$E(X,1,30),DA)` `Used for sorting and lookup by registration type.`
.05	DATE ASSIGNED	0;5	DATE	INPUT TRANSFORM: `S %DT="E",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X` LAST EDITED: `APR 25, 2003` HELP-PROMPT: `Enter the date of the registration.` DESCRIPTION: `This is the date of the registration. Future dates are not allowed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `910.2^C` `1)= S ^ESP(910.2,"C",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"C",$E(X,1,30),DA)`
.06	SERIAL NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `DEC 04, 1991` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the serial number of the item being registered. Answer must be [3-30 characters].`
.07	SHORT DESCRIPTION	0;7	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X` LAST EDITED: `DEC 04, 1991` HELP-PROMPT: `Answer must be [1-50 characters].` DESCRIPTION: `Enter a short description of the item being registered. Answer must be [1-50 characters].` CROSS-REFERENCE: `910.2^E^KWIC` `1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^ESP(910.2,"E",I,DA)=""` `2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ESP(910.2,"E",I,DA)`
.08	FACILITY	0;8	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `OCT 08, 1999` DESCRIPTION: `Enter the Facility associated with this entry.` `UNEDITABLE`
1.01	LICENSE TAG NUMBER	1;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1) X` LAST EDITED: `JUN 28, 1993` HELP-PROMPT: `Answer must be 1-14 characters in length.` DESCRIPTION: `This is the license tag # of the vehicle being registered.` CROSS-REFERENCE: `910.2^F` `1)= S ^ESP(910.2,"F",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"F",$E(X,1,30),DA)`
1.02	STATE	1;2	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `OCT 31, 1991` HELP-PROMPT: `Enter a State.` DESCRIPTION: `Choose from the available listing the state that issued the license tag.`
1.03	VEHICLE MAKE	1;3	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: `NOV 06, 1991` HELP-PROMPT: `Enter the make or manufacturer.` DESCRIPTION: `Enter the make or manufacturer of the item being registered. EX. FORD or CHEVROLET for vehicles. This field points to the Selectables file. You must choose from the available listing.` SCREEN: `S DIC("S")="I $D(^(2)),$P(^(2),U,1)"` EXPLANATION: `Enter a valid vehicle make.`
1.04	VEHICLE MODEL	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 04, 1991` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the model of the vehicle being registered. EX. RANGER, MALIBU Answer must be [3-30 characters].`
1.05	VEHICLE STYLE	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 04, 1991` HELP-PROMPT: `Enter the style of the vehicle being registered. Answer must be 3-30 characters in length.` DESCRIPTION: `Enter the style of the vehicle being registered. Answer must be 3-30 characters in length.`
1.06	VEHICLE COLOR	1;6	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: `NOV 06, 1991` HELP-PROMPT: `Enter the vehicle color.` DESCRIPTION: `Enter the color of the vehicle being registered. You must choose from the available listing.` SCREEN: `S DIC("S")="I $D(^(1)),$P(^(1),U,3)"` EXPLANATION: `Enter a valid vehicle color.`
1.07	YEAR OF MANUFACTURE	1;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 31, 1991` HELP-PROMPT: `Enter the year of manufacture.` DESCRIPTION: `This is the year of manufacture of the item being registered, example: 1990 or 90.`
1.08	ASSIGNED PARKING SPACE	1;8	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 04, 1993` HELP-PROMPT: `Answer must be [1-30 characters].` DESCRIPTION: `Enter the assigned parking space. Answer must be 1-30 characters. For example, the parking space #, the parking lot, or lot and space #.` CROSS-REFERENCE: `910.2^K` `1)= S ^ESP(910.2,"K",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"K",$E(X,1,30),DA)` `This cross-reference was created to allow VA Police staff to look-up a vehicle registration by assigned parking space.`
1.09	CAR POOL MEMBER	1;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 14, 1993` HELP-PROMPT: `Enter 'Y' for YES or 'N' for NO.` DESCRIPTION: `Entering a 'YES' to this prompt will indicate that the individual wishes to participate in the Car Pool Program.`
2.01	WEAPON MAKE	2;1	POINTER TO ESP SELECTABLES FILE (#910.7)	ESP SELECTABLES(#910.7) INPUT TRANSFORM: `S DIC("S")="I $D(^(2)),$P(^(2),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Enter the make of the weapon.` DESCRIPTION: `Enter the make of the weapon, ie. Smith & Wesson. You must choose from the available listing.` SCREEN: `S DIC("S")="I $D(^(2)),$P(^(2),U,3)"` EXPLANATION: `Enter a valid weapon make.`
2.02	WEAPON MODEL	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Answer must be [1-30 characters].` DESCRIPTION: `Enter the model of this weapon. Answer must be [1-30 characters].`
2.03	ACTION	2;3	SET	'R' FOR REVOLVER; 'S' FOR SEMI-AUTOMATIC; 'P' FOR PUMP; 'C' FOR COMPOUND; 'CB' FOR CAP & BALL; 'F' FOR FLINTLOCK; 'B' FOR BOLT; 'CR' FOR CROSS; 'RE' FOR RECURVED; LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Enter the action of the weapon.` DESCRIPTION: `Select from the available listing the best description of the weapon being registered.`
2.04	CAPACITY	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the maximum shot capacity for this weapon, 6 shot, 14 shot, single shot, etc. Answer must be [1-30 characters].`
2.05	CALIBER	2;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the caliber or gauge of the weapon, i.e., .38, .357, 9MM` `or 12 GA. Answer must be [3-30 characters].`
2.06	LENGTH	2;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Type a Number between 1 and 100, 0 Decimal Digits` DESCRIPTION: `Enter the length of the barrel or bow in inches. Type a Number between 1 and 100, 0 Decimal Digits.`
2.07	FINISH	2;7	SET	'B' FOR BLUE; 'N' FOR NICKEL; 'C' FOR CHROME; 'P' FOR PARKERIZED; 'S' FOR STAINLESS; 'F' FOR FIBERGLASS; 'W' FOR WOODGRAINED; 'A' FOR ALUMINUM; LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Enter the weapon finish.` DESCRIPTION: `Select from the available listing, the best descriptor of the weapon's finish.`
2.08	CONDITION	2;8	SET	'E' FOR EXCELLENT; 'G' FOR GOOD; 'F' FOR FAIR; 'P' FOR POOR; 'D' FOR DAMAGED; LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Enter the condition of the weapon.` DESCRIPTION: `From the available listing, select the best description of the weapon's condition.`
3.01	PET'S NAME	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the pet's name, (i.e., Blacky. Spot, Fluffy). Answer must be [3-30 characters].`
3.02	TYPE OF PET	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the type of animal of the pet, i.e. DOG, CAT, RABBIT, etc. Answer must be [3-30 characters].`
3.03	BREED	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the commonly known breed name, (i.e., PERSIAN, BEAGLE, GERMAN SHEPHERD). Answer must be [3-30 characters].`
3.04	SEX	3;4	SET	'F' FOR FEMALE; 'M' FOR MALE; HELP-PROMPT: `Enter 'F' for FEMALE, or 'M' for MALE.` DESCRIPTION: `This field is used to record whether the pet is male or female. whether the pet being registered is male or female.`
3.05	PET COLOR	3;5	POINTER TO ESP SELECTABLES FILE (#910.7)	ESP SELECTABLES(#910.7) INPUT TRANSFORM: `S DIC("S")="I $D(^(1)),$P(^(1),U,5)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Enter the color of the pet.` DESCRIPTION: `Enter the color of the pet. The color must be in the Selectables File.` SCREEN: `S DIC("S")="I $D(^(1)),$P(^(1),U,5)"` EXPLANATION: `Enter a valid pet color.`
3.06	SIZE	3;6	SET	'S' FOR SMALL; 'M' FOR MEDIUM; 'L' FOR LARGE; 'X' FOR EXTRA LARGE; LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Enter the size of the pet.` DESCRIPTION: `Select from the available set of codes, the best descriptor for the size of the animal.`
3.07	RABIES INOCULATION DATE	3;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Enter the date of last rabies inoculation.` DESCRIPTION: `Enter the last date that the pet was inoculated for rabies.`
3.08	INOCULATION EXPIRATION DATE	3;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Enter the date the current rabies inoculation expires.` DESCRIPTION: `Enter the date that the last inoculation for rabies expires.`
4.01	BICYCLE MAKE	4;1	POINTER TO ESP SELECTABLES FILE (#910.7)	ESP SELECTABLES(#910.7) INPUT TRANSFORM: `S DIC("S")="I $D(^(2)),$P(^(2),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Enter a bicycle make or manufacturer.` DESCRIPTION: `Enter the make or manufacturer of the bicycle being registered. You must choose from the available listing. It must be a valid bicycle make entered in the Selectables File.` SCREEN: `S DIC("S")="I $D(^(2)),$P(^(2),U,2)"` EXPLANATION: `Enter a valid bicycle make.`
4.02	BICYCLE MODEL	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the model of the bicycle being registered. Answer must be [3-30 characters].`
4.03	BICYCLE STYLE	4;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `Enter the style of the bicycle being registered. Answer must be [3-30 characters].`
4.04	BICYCLE COLOR	4;4	POINTER TO ESP SELECTABLES FILE (#910.7)	ESP SELECTABLES(#910.7) INPUT TRANSFORM: `S DIC("S")="I $D(^(1)),$P(^(1),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Enter the color of the bicycle being registered. You must choose from the available listing.` DESCRIPTION: `Enter the color of the bicycle being reigistered. It must be a valid vehicle color.` SCREEN: `S DIC("S")="I $D(^(1)),$P(^(1),U,4)"` EXPLANATION: `Enter a valid bicycle color.`
4.05	PARENT/GUARDIAN	4;5	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `JAN 17, 1997` HELP-PROMPT: `If the owner is a minor, enter the name of their parent or guardian.` DESCRIPTION: `Enter the parent or guardian of the owner of the bicycle if he/she is a dependent. The parent/guardian must be in the Master Name Index file.` CROSS-REFERENCE: `910.2^I` `1)= S ^ESP(910.2,"I",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"I",$E(X,1,30),DA)`
5.01	SPONSOR	5;1	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `JAN 17, 1997` HELP-PROMPT: `Enter the sponsor of this individual's golf registration.` DESCRIPTION: `Enter the sponsor of the person being issued golf tags. The sponsor must be in the Master Name Index file.` CROSS-REFERENCE: `910.2^J` `1)= S ^ESP(910.2,"J",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"J",$E(X,1,30),DA)`
5.02	NO. OF TAGS	5;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits` DESCRIPTION: `Enter the number displayed on the golf tag issued.`
6.01	VEHICLE	6;1	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `NOV 19, 1991` DESCRIPTION: `This field is used to link the vehicle registration entry to the ESP Master Name file in conjunction with the Quick Name Check routine (ESPQNC).` CROSS-REFERENCE: `910.2^V` `1)= S ^ESP(910.2,"V",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"V",$E(X,1,30),DA)`
6.02	BICYCLE	6;2	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `NOV 19, 1991` DESCRIPTION: `This field is used to link the bicycle registration entry to the ESP Master Name file in conjunction with the Quick Name Check routine (ESPQNC).` CROSS-REFERENCE: `910.2^BI` `1)= S ^ESP(910.2,"BI",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"BI",$E(X,1,30),DA)`
6.03	WEAPON	6;3	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `NOV 19, 1991` DESCRIPTION: `This field is used to link the weapon registration entry to the ESP Master Name file in conjunction with the Quick Name Check routine (ESPQNC).` CROSS-REFERENCE: `910.2^W` `1)= S ^ESP(910.2,"W",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"W",$E(X,1,30),DA)`
6.04	PET	6;4	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `NOV 19, 1991` DESCRIPTION: `This field is used to link the pet registration entry to the ESP Master Name file in conjunction with the Quick Name Check routine (ESPQNC).` CROSS-REFERENCE: `910.2^P` `1)= S ^ESP(910.2,"P",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"P",$E(X,1,30),DA)`
6.05	GOLF	6;5	POINTER TO ESP MASTER NAME INDEX FILE (#910)	ESP MASTER NAME INDEX(#910) LAST EDITED: `NOV 19, 1991` DESCRIPTION: `This field is used to link the golf registration entry to the ESP Master Name file in conjunction with the Quick Name Check routine (ESPQNC).` CROSS-REFERENCE: `910.2^G` `1)= S ^ESP(910.2,"G",$E(X,1,30),DA)=""` `2)= K ^ESP(910.2,"G",$E(X,1,30),DA)`
20	REMARKS	20;0	WORD-PROCESSING #910.22	DESCRIPTION: `This field is used to record any miscellanous information that might apply to a registration. In a Vehicle Registration where the vehicle is listed as Multicolored, the Remarks entry could be "Red over White, with special` `paint designs."` LAST EDITED: `NOV 05, 1991` HELP-PROMPT: `Enter any additional remarks concerning this registration.`

Customize PDF page

Package: Police and Security

Global: ^ESP(910.2

Information

Description

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 4

Fields, Total: 46