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

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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All