STANDARD DATA DICTIONARY #6926 -- EMPLOYEE(KEYS) FILE 9/29/25 PAGE 1
STORED IN ^ENG("KEY", *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the names of employees who have been issued keys and the keys they have been issued.
DD ACCESS: #
WR ACCESS: E
DEL ACCESS: e
LAYGO ACCESS: E
CROSS
REFERENCED BY: EMPLOYEE(B), KEYS ISSUED(K)
6926,.01 EMPLOYEE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP)!(X'[",") X
LAST EDITED: OCT 11, 1984
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH AND CONTAIN A COMMA -IE. LAST NAME, FIRST
NAME
DESCRIPTION: These employee entries must not be deleted without first deleting all keys issued under the KEYS
ISSUED field.
DELETE TEST: 1,0)= I $D(^ENG("KEY",DA,1,"B")) D EN^DDIOL("Still has keys assigned. Can't delete this employee ye
t.") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6926^B
1)= S ^ENG("KEY","B",$E(X,1,30),DA)=""
2)= K ^ENG("KEY","B",$E(X,1,30),DA)
6926,.4 SERVICE 2;2 POINTER TO SERVICE/SECTION FILE (#49) (Required)
LAST EDITED: SEP 06, 1986
HELP-PROMPT: Enter the appropriate service for this employee.
DESCRIPTION:
Service or section to which employee is assigned.
6926,.5 ID NUMBER 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION:
Identification number. To be assigned by Engineering Service. Not required.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6926,1 KEYS ISSUED 1;0 POINTER Multiple #6926.01
DESCRIPTION:
Door key(s) issued to this individual.
6926.01,.01 KEYS ISSUED 0;1 POINTER TO LOCKS FILE (#6927) (Multiply asked)
LAST EDITED: JUL 07, 1999
DESCRIPTION:
Identification number of key issued.
CROSS-REFERENCE: 6926.01^B
1)= S ^ENG("KEY",DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ENG("KEY",DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 6926^K
1)= S ^ENG("KEY","K",$E(X,1,30),DA(1),DA)=""
2)= K ^ENG("KEY","K",$E(X,1,30),DA(1),DA)
This cross-reference can be used to determine which employees have been issued a specific key and
it is required to support use of a backward extended pointer in a file #6927 LOCKS print
template.
6926.01,1 DATE ISSUED 1;0 DATE Multiple #6926.02
LAST EDITED: MAY 08, 1985
HELP-PROMPT: ENTER DATE OF ISSUE
DESCRIPTION:
Date individual signed for this key.
6926.02,.01 DATE ISSUED 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 14, 1985
HELP-PROMPT: Enter the Date of this key issuance.
6926.02,1 QUANTITY ISSUED 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 08, 1988
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
Number of these keys issued to this individual.
EXECUTABLE HELP:W !!,"Enter the quantity of this key number that was issued to the employee on this",!,"particula
r date only. The total quantity from all dates will be calculated ",!,"by the system."
6926.01,3 COMPUTED TOTAL FOR THIS KEY ; COMPUTED
MUMPS CODE: X ^DD(6926.01,3,9.3) S X=Y(6926.01,3,103) S D2=Y(6926.01,3,1) S X=$J(X,0,0)
9.2 = S Y(6926.01,3,1)=$S($D(D2):D2,1:"")
9.3 = X ^DD(6926.01,3,9.2) S Y(6926.01,3,103)="" X "F D2=0:0 S D2=$N(^ENG(""KEY"",D0,1,D1,1,D2)) Q:
D2'>0 S Y(6926.01,3,103)=Y(6926.01,3,103)+$S($D(^(D2,0)):$P(^(0),U,2),1:"""")"
ALGORITHM: TOTAL(1:1) (ALWAYS 0 DECIMAL DIGITS)
DESCRIPTION:
System generated total of all quantities for all issue dates for this key and this individual.
FILES POINTED TO FIELDS
LOCKS (#6927) KEYS ISSUED:KEYS ISSUED (#.01)
SERVICE/SECTION (#49) SERVICE (#.4)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
ENSPPREMP JUL 07, 1999@16:42 USER #0 KEY DISTRIBUTION REPORT SORTED BY EMPLOYEE
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):