Global: ^ESP(910

FileMan FileNo	FileMan Filename	Package
910	ESP MASTER NAME INDEX	Police and Security

Package	Total	Routines
Police and Security	32	ESP BICYCLE REGISTRATION ESP CAR POOL ASSIGNMENTS ESP CAR POOL AVAILABILITY LIST ESP GOLF REGISTRATION ESP LOCATE VIOLATION ESP OFFENSE MATCH ESP PERSONAL DESCRIPTOR LOOKUP ESP PET REGISTRATION ESP REGISTRATION ESP REGISTRATION 2 ESP VEHICLE REGISTRATION ESP WANTS & WARRANTS ALL ESP WANTS & WARRANTS OPEN ESP WEAPON REGISTRATION ESP117PT ESPDISP ESPDUP ESPLKUP ESPMNI1 ESPMNI2 ESPOFF1 ESPOFF2 ESPORM2 ESPORP2 ESPQNC ESPUCF ESPUCR ESPUTIL ESPUVN ESPVNE ESPVREG ESPXREF

Package	Total	Routines
Police and Security	8	ESP117PT ESPDUP ESPMNI ESPMNI1 ESPMNI2 ESPQNC ESPREGWP ESPVNP

Package	Total	FileMan Files
Police and Security	5	ESP POLICE REGISTRATION LOG(#910.2)[.03, 4.05, 5.01, 6.01, 6.02, 6.03, 6.04, 6.05] ESP EVIDENCE(#910.8)[#910.81(.03), #910.81(.04), #910.85(.03)] ESP OFFENSE REPORT(#912)[#912.03(.02), #912.04(.02), #912.05(.02), #912.06(.02), #912.09(.11)] ESP WANTS & WARRANTS(#913)[.01] ESP VIOLATIONS(#914)[.09]

Package	Total	FileMan Files
Kernel	2	SERVICE/SECTION(#49)[.05] STATE(#5)[.11, 1.04, 2.04]
Police and Security	1	ESP SELECTABLES(#910.7)[3.03, 3.04, 3.05]
Registration	1	RACE(#10)[.09]

Fields, Total: 32

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?1U.UP1","1U.UP) X` LAST EDITED: `JAN 23, 1997` HELP-PROMPT: `Enter the name in 'Last,First Middle' format [3-30 characters].` DESCRIPTION: `Enter the name in 'Last,First Middle' format between 3-30 characters. Do not use numerics or lowercase alphabetic characters. With the exception of the comma, period, space, hyphen, dash, and apostrophe, punctuation` `characters should be avoided.` `DO NOT ENTER A SPACE BETWEEN THE COMMA AND THE FIRST NAME. DO NOT DELETE A MASTER NAME ENTRY. THIS WILL REMOVE THE NAME FROM ALL REFERENCED FILES. EDIT THE NAME TO CORRECT ANY ERRORS, OR CONTACT YOUR IRM REPRESENTATIVE.` DELETE TEST: `.01,0)= I 1 W !?10,"DELETIONS ARE NOT ALLOWED"` `DELETE AUTHORITY: @` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `910^B` `1)= S ^ESP(910,"B",$E(X,1,30),DA)=""` `2)= K ^ESP(910,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `910^SOUN^SOUNDEX` `1)= S I=$E(X,1,27) D SOU^DICM S ^ESP(910,"SOUN",X_I,DA)=""` `2)= S I=$E(X,1,27) D SOU^DICM K ^ESP(910,"SOUN",X_I,DA)` `3)= Do not delete. Used to reduce the change of duplicate entries.` CROSS-REFERENCE: `910^BS5^MUMPS` `1)= Q:$P(^ESP(910,DA,0),U,2)']"" S ^ESP(910,"BS5",$E(X,1)_$E($P(^(0),U,2),6,9),DA)=""` `2)= Q:$P(^ESP(910,DA,0),U,2)']"" K ^ESP(910,"BS5",$E(X,1)_$E($P(^(0),U,2),6,9),DA)` `This cross-reference allows you to enter the first letter of the last name and the last 4 numbers of the social security number. For example, if you enter A4607, then that would identify ADAMS with a social security` `number 123-45-4607.`
.02	SOCIAL SECURITY NUMBER	0;2	NUMBER	INPUT TRANSFORM: `S X=$TR(X,"-","") K:X'?9N X I $D(X),$D(^ESP(910,"SSN",X)) W " SSN already exists in another entry" K X` LAST EDITED: `JAN 31, 1997` HELP-PROMPT: `Enter 9-digit SSN.` DESCRIPTION: `Enter the individual's social security number as nine digits, i.e., 123456789.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `910^SSN` `1)= S ^ESP(910,"SSN",$E(X,1,30),DA)=""` `2)= K ^ESP(910,"SSN",$E(X,1,30),DA)` CROSS-REFERENCE: `910^BS5^MUMPS` `1)= S ^ESP(910,"BS5",$E(^ESP(910,DA,0),1)_$E(X,6,9),DA)=""` `2)= K ^ESP(910,"BS5",$E(^ESP(910,DA,0),1)_$E(X,6,9),DA)`
.03	DOB	0;3	DATE	INPUT TRANSFORM: `S %DT="EP" D ^%DT S X=Y K:1701231>X!(DT` `LAST EDITED: MAY 20, 1992` `HELP-PROMPT: Enter the DATE OF BIRTH which must be later than 12/31/1870.` `DESCRIPTION:` `Enter the date of birth between December 31, 1870 and today's date.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `CROSS-REFERENCE: 910^DOB` `1)= S ^ESP(910,"DOB",$E(X,1,30),DA)=""` `2)= K ^ESP(910,"DOB",$E(X,1,30),DA)`
.0301	AGE		COMPUTED	MUMPS CODE: `X ^DD(910,.0301,9.6) S Y=X,X=Y(910,.0301,7),X=X-Y S X=$J(X,0,0)` `9.2 = S Y(910,.0301,4)=$S($D(^ESP(910,D0,0)):^(0),1:""),X=DT S X=X,Y(910,.0301,1)=X S X=1,Y(910,.0301,2)=X S X=3,X=$E(Y(910,.0301,1),Y(910,.0301,2),X)` `9.3 = X ^DD(910,.0301,9.2) S Y(910,.0301,3)=X S X=$P(Y(910,.0301,4),U,3),Y(910,.0301,5)=X S X=1,Y(910,.0301,6)=X S X=3` `9.4 = X ^DD(910,.0301,9.3) S X=$E(Y(910,.0301,5),Y(910,.0301,6),X) S Y=X,X=Y(910,.0301,3),X=X-Y,Y(910,.0301,7)=X,Y(910,.0301,8)=X,Y(910,.0301,9)=X,X=DT S X=X` `9.5 = X ^DD(910,.0301,9.4) S Y(910,.0301,10)=X S X=4,Y(910,.0301,11)=X S X=7,X=$E(Y(910,.0301,10),Y(910,.0301,11),X),Y(910,.0301,12)=X S X=$P(Y(910,.0301,4),U,3)` `9.6 = X ^DD(910,.0301,9.5) S Y(910,.0301,13)=X S X=4,Y(910,.0301,14)=X S X=7,X=$E(Y(910,.0301,13),Y(910,.0301,14),X) S Y=X,X=Y(910,.0301,12),X=X` `ALGORITHM: $E(TODAY,1,3)-$E(DOB,1,3)-($E(TODAY,4,7)<$E(DOB,4,7)) (ALWAYS 0 DECIMAL DIGITS)` `LAST EDITED: FEB 18, 1998` `DESCRIPTION:` `Computed field which determines individual's age based on DOB and today's date.`
.04	CATEGORY	0;4	SET	**********************REQUIRED FIELD********************** 'P' FOR PATIENT; 'V' FOR VISITOR; 'E' FOR EMPLOYEE; 'O' FOR OUTSIDER; 'PO' FOR POLICE OFFICER; LAST EDITED: `JUN 15, 1998` HELP-PROMPT: `Enter 'P' for Patient, 'V' for Visitor, 'E' for Employee, 'O' for Outsider or 'PO' for Police Officer.` DESCRIPTION: `Enter 'P' for Patient, 'V' for Visitor, 'E' for Employee, 'O' for Outsider, or 'PO' for Police Officer.`
.05	SERVICE	0;5	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `Enter the individual's assigned service/section.` DESCRIPTION: `From the available listing choose the service/section where the individual works.`
.06	PLACE OF EMPLOYMENT	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 22, 1992` HELP-PROMPT: `Answer must be [1-30 characters].` DESCRIPTION: `Enter the place where the individual is employed.`
.07	ID BADGE	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2)!(X[" "!(X["-")) X` LAST EDITED: `NOV 02, 1992` HELP-PROMPT: `Answer must be [2-6 characters]. No spaces or hyphens allowed.` DESCRIPTION: `This is the ID badge # issued. It is 2-6 characters, no hyphens or spaces allowed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	SEX	0;8	SET	'M' FOR MALE; 'F' FOR FEMALE; LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Enter 'M' for MALE or 'F' for FEMALE.` DESCRIPTION: `Enter 'M' if this individual is a male, or 'F' if female.`
.09	RACE	0;9	POINTER TO RACE FILE (#10)	RACE(#10) LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Select from the available listing the race which best identifies this individual.` DESCRIPTION: `Select from the available listing the proper race of this individual.`
.1	DRIVER'S LICENSE #	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Answer should be [3-20 characters].` DESCRIPTION: `Enter the individual's driver's license number [3-20 characters].`
.11	STATE OF ISSUE	0;11	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Enter a State.` DESCRIPTION: `From the available listing choose the state that issued the driver's license.`
1.01	HOME ADDRESS	1;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X` LAST EDITED: `MAY 26, 1992` HELP-PROMPT: `Answer must be [3-35 characters].` DESCRIPTION: `Enter the first line of this individual's home address. It must be 3-35 characters.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1.02	HOME ADDRESS [LINE 2]	1;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 26, 1992` HELP-PROMPT: `Answer must be [3-35 characters].` DESCRIPTION: `If necessary, enter the second line of this individual's home address. It must be 3-35 characters.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1.03	CITY	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JUN 19, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `Enter the city where this individual resides [2-30 characters].`
1.04	STATE	1;4	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `From the available listing choose the state in which this individual resides.` DESCRIPTION: `Enter the state where this individual resides. You must choose from the available listing.`
1.05	ZIP	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 28, 1993` HELP-PROMPT: `Enter the zip code for the city in which this individual resides.` DESCRIPTION: `Enter the zip code for the city in which this individual resides. Enter the 5 digit zip code or ZIP + 4, ie. 12345-1234.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1.06	PHONE NUMBER [RESIDENCE]	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `Answer must be [4-20 characters].` DESCRIPTION: `Enter the individual's home telephone number. Answer must be [4-20 characters].`
2.01	STREET ADDRESS [WORK]	2;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X` LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `Answer must be [3-35 characters].` DESCRIPTION: `Enter the first line of the address of the individual's place of employment. Answer must be [3-35 characters].` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.02	STREET ADDRESS [LINE 2] [WORK]	2;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `Answer must be [3-30 characters].` DESCRIPTION: `If necessary, enter the second line of the address of the individual's place of employment. Answer must be [3-30 characters].` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.03	CITY [WORK]	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JUN 19, 1992` HELP-PROMPT: `Answer must be [2-30 characters].` DESCRIPTION: `Enter the city of this individual's place of employment. Answer must be [2-30 characters].`
2.04	STATE [WORK]	2;4	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `Enter a State.` DESCRIPTION: `Enter the state of this individual's place of employment. You must choose from the available listing.`
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 28, 1993` HELP-PROMPT: `Enter the zip code for the city in which this individual is employed.` DESCRIPTION: `Enter the zip code for the city in which this individual is employed. Enter the 5 digit zip code or ZIP + 4, ie. 12345-1234.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.06	OFFICE PHONE	2;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `Answer must be [4-20 characters].` DESCRIPTION: `Enter the telephone number of this individual's place of employment. Answer must be [4-20 characters].`
3.01	HEIGHT	3;1	FREE TEXT	INPUT TRANSFORM: `K:X'?1N1"-"2N X` LAST EDITED: `JUL 01, 1993` HELP-PROMPT: `Enter the individual's height [2-5 characters].` DESCRIPTION: `Enter the individual's height in the format 6-07 for 6 feet and 7 inches.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3.02	WEIGHT	3;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 18, 1992` HELP-PROMPT: `Enter the individual's weight.` DESCRIPTION: `Enter the individual's weight. Select between 1 and 999.`
3.03	HAIR COLOR	3;3	POINTER TO ESP SELECTABLES FILE (#910.7)	ESP SELECTABLES(#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: `SEP 18, 1992` HELP-PROMPT: `Enter the individual's hair color.` DESCRIPTION: `Enter the hair color of the individual. You must choose from the available listing.` SCREEN: `S DIC("S")="I $D(^(1)),$P(^(1),U,1)"` EXPLANATION: `Enter a valid hair color.`
3.04	EYE COLOR	3;4	POINTER TO ESP SELECTABLES FILE (#910.7)	ESP SELECTABLES(#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: `SEP 18, 1992` HELP-PROMPT: `Enter the individual's eye color.` DESCRIPTION: `Enter the color of the individual's eyes. You must choose from the available listing.` SCREEN: `S DIC("S")="I $D(^(1)),$P(^(1),U,2)"` EXPLANATION: `Enter a valid eye color.`
3.05	SKIN TONE	3;5	POINTER TO ESP SELECTABLES FILE (#910.7)	ESP SELECTABLES(#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: `SEP 18, 1992` HELP-PROMPT: `Enter the skin tone of the individual.` DESCRIPTION: `Enter the skin tone of the individual. You must select from the available listing.` SCREEN: `S DIC("S")="I $D(^(1)),$P(^(1),U,6)"` EXPLANATION: `Enter a valid skin tone.`
3.06	SCARS/MARKS	3;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `SEP 18, 1992` HELP-PROMPT: `Answer must be [3-50 characters].` DESCRIPTION: `Enter any identifying scars or marks for the individual. Answer must be 3-50 characters in length.`
10	AKA	10;0	Multiple #910.01	910.01 DESCRIPTION: `Enter the Also Known As name. Answer must be [2-30 characters].`
20	REMARKS	20;0	WORD-PROCESSING #910.02	DESCRIPTION: `This is a word-processing field where you may enter additional information which you feel is pertinent to this individual.` LAST EDITED: `OCT 28, 1991` HELP-PROMPT: `Enter any additional descriptive information for this individual.` DESCRIPTION: `This is a word-processing field. Enter any additional descriptive information for this individual.`

Customize PDF page

Package: Police and Security

Global: ^ESP(910

Information

Description

Directly Accessed By Routines, Total: 39

Accessed By FileMan Db Calls, Total: 8

Pointed To By FileMan Files, Total: 5

Pointer To FileMan Files, Total: 4

Fields, Total: 32