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

Package: Police and Security

Global: ^ESP(910


Information

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

Description

Directly Accessed By Routines, Total: 39

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

Accessed By FileMan Db Calls, Total: 8

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

Pointed To By FileMan Files, Total: 5

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]    

Pointer To FileMan Files, Total: 4

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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All