Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 916.31

Package: Police and Security

ESP DAILY JOURNAL(#916)-->916.03-->916.31

Sub-Field: 916.31


Information

Parent File Name Number Package
916.03 OFFICER 916.31 Police and Security

Details

Field # Name Loc Type Details
.01 OFFICER 0;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.ESP POLICE"",$P(^(0),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 18, 2004
  • HELP-PROMPT:  You must select from currently assigned police officers.
  • DESCRIPTION:  
    Enter the names of all officers currently assigned to work each shift. The officers' names must be contained within the NEW PERSON file (200) and must also be assigned the ESP POLICE Security Key.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.ESP POLICE"",$P(^(0),U),+Y))"
  • EXPLANATION:  Select a currently assigned police officer.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  916.31^B
    1)= S ^ESP(916,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ESP(916,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^916.31^.02
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ESP(916,D0,2,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S HX=X,X=$$SET^ESPCRJO(HX,1) X ^DD(916.31,.01,1,2,1.4)
    1.4)= S DIH=$G(^ESP(916,DIV(0),2,DIV(1),1,DIV(2),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=916.31,DIG=.02 D ^DICR
    2)= Q
    CREATE VALUE)= S HX=X,X=$$SET^ESPCRJO(HX,1)
    DELETE VALUE)= NO EFFECT
    FIELD)= BADGE
  • CROSS-REFERENCE:  ^^TRIGGER^916.31^.03
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ESP(916,D0,2,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S HX=X,X=$$SET^ESPCRJO(HX,2) X ^DD(916.31,.01,1,3,1.4)
    1.4)= S DIH=$G(^ESP(916,DIV(0),2,DIV(1),1,DIV(2),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=916.31,DIG=.03 D ^DICR
    2)= Q
    CREATE VALUE)= S HX=X,X=$$SET^ESPCRJO(HX,2)
    DELETE VALUE)= NO EFFECT
    FIELD)= RANK
.02 BADGE NUMBER 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JAN 15, 2004
  • HELP-PROMPT:  Type a number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  Officer badge number
    UNEDITABLE
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the OFFICER field of the OFFICER sub-field of the WATCH sub-field of the ESP DAILY JOURNAL File
.03 RANK 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  JAN 15, 2004
  • HELP-PROMPT:  Answer must be 2-50 characters in length
  • DESCRIPTION:  VA officer assigned rank
    UNEDITABLE
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the OFFICER field of the OFFICER sub-field of the WATCH sub-field of the ESP DAILY JOURNAL File
Info |  Details