Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^ENG("KEY"

Package: Engineering

Global: ^ENG("KEY"


Information

FileMan FileNo FileMan Filename Package
6926 EMPLOYEE(KEYS) Engineering

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Engineering 5 ^ENG("KEY"    ^ENG("LK"    ^OFM(7336.9    ENXIP62    KEYS ISSUED    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Engineering 1 LOCKS(#6927)[#6926.01(.01)]    
Kernel 1 SERVICE/SECTION(#49)[.4]    

Fields, Total: 4

Field # Name Loc Type Details
.01 EMPLOYEE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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 yet.") 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)
.4 SERVICE 2;2 POINTER TO SERVICE/SECTION FILE (#49)
************************REQUIRED FIELD************************
SERVICE/SECTION(#49)

  • LAST EDITED:  SEP 06, 1986
  • HELP-PROMPT:  Enter the appropriate service for this employee.
  • DESCRIPTION:  
    Service or section to which employee is assigned.
.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
1 KEYS ISSUED 1;0 POINTER Multiple #6926.01 6926.01

  • DESCRIPTION:  
    Door key(s) issued to this individual.

External References

Name Field # of Occurrence
EN^DDIOL .01DEL1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("KEY" - [#6926] .01DEL1+1, .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01DEL1+1, .01(XREF 1S), .01(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .5+1!
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All