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 |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^ESP(916

Package: Police and Security

Global: ^ESP(916


Information

FileMan FileNo FileMan Filename Package
916 ESP DAILY JOURNAL Police and Security

Description

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Police and Security 4 ESPAJE    ESPCRJO    ESPJOU    ESPJOU1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[#916.05(1), #916.31(.01)]    
Registration 1 MEDICAL CENTER DIVISION(#40.8)[.5]    

Fields, Total: 7

Field # Name Loc Type Details
.01 DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X?4N X Q:'$D(X) S %DT="ETX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JAN 20, 2004
  • HELP-PROMPT:  (No range limit on date) 4 NUMERIC DIGITS NOT ALLOWED.
  • DESCRIPTION:  This should be the date that the Daily Operations Journal is being opened or initiated regardless of whether the time period covered is from 0001-2400 or 0800-0800. Enter the date that the Journal is started. Date cannot
    be (4) numeric digits. Four digit entries could be time (HHMM), and time would be converted to a date if allowed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  916^B
    1)= S ^ESP(916,"B",$E(X,1,30),DA)=""
    2)= K ^ESP(916,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  916^AC^MUMPS
    1)= I +$G(ESPFAC) S $P(^ESP(916,DA,0),U,2)=ESPFAC
    2)= Q
.5 FACILITY 0;2 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  OCT 08, 1999
  • DESCRIPTION:  
    Enter The Facility that the Journal belongs to.
    UNEDITABLE
1 FROM 1;1 FREE TEXT

  • INPUT TRANSFORM:  S Y=X,X1=20_$P(X,"-")-1700_$P(X,"-",2)_$P(X,"-",3),X2=DT D ^%DTC K:+$FN(X,"T")>2!(%Y=0)!($P(Y,"-",4)'?4N)!(+$P(Y,"-",4)=0)!(+$P(Y,"-",4)>2400) X I $D(X) S X=Y
  • LAST EDITED:  MAR 17, 2004
  • HELP-PROMPT:  Answer must be 13 characters in length and in YY-MM-DD-HHMM format. Date must be no more than +/- 2 days of current date.
  • DESCRIPTION:  
    Correct format consists of Year-Month-Day-Starting Time, i.e., '93-04-05-0001' or '93-04-05-0800'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 TO 1;2 FREE TEXT

  • INPUT TRANSFORM:  S Y=X,X1=20_$P(X,"-")-1700_$P(X,"-",2)_$P(X,"-",3),X2=DT D ^%DTC K:+$FN(X,"T")>2!(%Y=0)!($P(Y,"-",4)'?4N)!(+$P(Y,"-",4)=0)!(+$P(Y,"-",4)>2400) X I $D(X) S X=Y
  • LAST EDITED:  MAR 17, 2004
  • HELP-PROMPT:  Answer must be 13 characters in length and in YY-MM-DD-HHMM format. Date must be no more than +/- 2 days of current date.
  • DESCRIPTION:  
    Correct format consists of Year-Month-Day-Ending Time, i.e., '93-04-05-2400' or '93-04-06-0800'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 WATCH 2;0 SET Multiple #916.03 916.03

  • DESCRIPTION:  
    This field is used to record the police officers assigned to the watch or work shift that is making the Daily Journal entries.
4 SPECIAL INSTRUCTIONS 3;0 WORD-PROCESSING #916.04

  • DESCRIPTION:  
    This field is used to record any specific operational instructions for any of the assigned watches or work shifts.
  • LAST EDITED:  MAR 30, 1993
5 TIME 4;0 Multiple #916.05 916.05

  • DESCRIPTION:  
    This field is used to record a time that an activity occurred which necessitates the creation of a Daily Journal Entry.
  • IDENTIFIED BY:  
    "WRITE": S %I=Y,Y=$S('$D(^(1)):"",$D(^VA(200,+$P(^(1),U,1),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields