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

Package: Engineering

EMPLOYEE(KEYS)(#6926)-->6926.01

Sub-Field: 6926.01


Information

Parent File Name Number Package
EMPLOYEE(KEYS)(#6926) KEYS ISSUED 6926.01 Engineering

Details

Field # Name Loc Type Details
.01 KEYS ISSUED 0;1 POINTER TO LOCKS FILE (#6927) LOCKS(#6927)

  • 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.
1 DATE ISSUED 1;0 DATE Multiple #6926.02 6926.02

  • LAST EDITED:  MAY 08, 1985
  • HELP-PROMPT:  ENTER DATE OF ISSUE
  • DESCRIPTION:  
    Date individual signed for this key.
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.
Info |  Details