Sub-Field: 916.31

Parent File	Name	Number	Package
916.03	OFFICER	916.31	Police and Security

Details

Field # Name Loc Type 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`

.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

Customize PDF page

Package: Police and Security

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

Sub-Field: 916.31

Information

Details