Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^ENG(6914.1

Package: Engineering

Global: ^ENG(6914.1


Information

FileMan FileNo FileMan Filename Package
6914.1 CMR Engineering

Description

Accessed By FileMan Db Calls, Total: 14

Package Total Routines
Engineering 11 ENEQNX4    ENEQRPI    ENFAEIL    ENFAXFR    ENFAXMTM    ENLBL5    ENLIB2    ENTIUTL
ENXRIPS    ENXVIPS    ENY2REP3    
Equipment Turn-In Request 2 PRCNREQN    PRCNTIRQ    
Real Time Location System 1 VIAAEAD    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Engineering 3 EQUIPMENT INV.(#6914)[19]    FC DOCUMENT LOG(#6915.4)[101]    FR DOCUMENT LOG(#6915.6)[105]    
Equipment Turn-In Request 2 EQUIPMENT REQUEST(#413)[4.5]    TURN-IN REQUEST(#413.1)[15]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 2 SERVICE/SECTION(#49)[.5]    NEW PERSON(#200)[1, 20]    

Fields, Total: 13

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2)!'(X?.NUP) X
  • LAST EDITED:  JAN 08, 1997
  • HELP-PROMPT:  Answer must be 2-5 uppercase characters in length.
  • DESCRIPTION:  
    Name of CMR.
  • DELETE TEST:  1,0)= I $O(^ENG(6914,"AD",DA,0)) D EN^DDIOL("Can't delete because EQUIPMENT INV items point to this CMR.") I 1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  6914.1^B
    1)= S ^ENG(6914.1,"B",$E(X,1,30),DA)=""
    2)= K ^ENG(6914.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  6914.1^B1^MUMPS
    1)= S ^ENG(6914.1,"B1",$E(X,1,29)_" ",DA)=""
    2)= K ^ENG(6914.1,"B1",$E(X,1,29)_" ",DA)
    CMR names sorted in ASCII collating sequence due to trailing space. This cross reference is used by the CMR Inventory report and for lookups so numeric CMRs will be displayed when there is a partial match.
.5 SERVICE 0;5 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  SEP 13, 1995
  • DESCRIPTION:  
    Service to which this CMR is assigned.
  • CROSS-REFERENCE:  6914.1^E
    1)= S ^ENG(6914.1,"E",$E(X,1,30),DA)=""
    2)= K ^ENG(6914.1,"E",$E(X,1,30),DA)
.6 BRIEF DESCRIPTION 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JAN 03, 1997
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    A means for sites to briefly describe the purpose of this CMR, if they find it useful to do so.
1 RESPONSIBLE OFFICIAL 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1995
  • DESCRIPTION:  
    Employee currently responsible for items on this CMR.
  • CROSS-REFERENCE:  6914.1^C
    1)= S ^ENG(6914.1,"C",$E(X,1,30),DA)=""
    2)= K ^ENG(6914.1,"C",$E(X,1,30),DA)
2 PHONE (RESP OFFICIAL) 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-14 CHARACTERS IN LENGTH
3 LAST RECONCILED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    Date on which this CMR was last reconciled with centralized non-expendable equipment records (Log 1 or ISMS).
4 RESEARCH? 0;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 10, 1988
  • DESCRIPTION:  
    Intent of this field is to provide a means of flagging equipment purchased and maintainable with research funds. Please enter 'YES' if and only if this is a research CMR.
5 STATION NUMBER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<3)!'(X?3N.2NU) X I $D(X),X'=$P(^DIC(6910,1,0),U,2),'$D(^DIC(6910,1,3,"B",X)) K X
  • LAST EDITED:  JUN 25, 1997
  • HELP-PROMPT:  Must match STATION NUMBER or ALTERNATE STATION NUMBER (Eng Init Parameters File).
  • DESCRIPTION:  Station number of the facility that owns the assets in this CMR. For example, if this CMR is for a national cemetery which is seviced by a VAMC then the entry in this field should be the station number of the national
    cemetery.
    Entries must match an entry in the ALTERNATE STATION NUMBER field (multiple) of the Eng Init Parameters File (#6910).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 IT TRACKING 0;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  I $G(DIUTIL)'="VERIFY FIELDS" K:$$ITTCHK^ENTIDD(DA,X) X
  • LAST EDITED:  FEB 04, 2008
  • HELP-PROMPT:  Answer YES if the CMR contains IT equipment that must be tracked.
  • DESCRIPTION:  If a CMR has IT TRACKING set to YES, the equipment on that Equipment Inventory List (EIL) can be edited using options on the IT Equipment Module menu. Additionally, all equipment on such EILs will be expected to be
    assigned to individual IT owners.
  • DELETE TEST:  1,0)= I $$AITACMR^ENTIDD(DA) D EN^DDIOL("CMR has equipment with an active IT assignment. Can't delete IT TRACKING.","","!?5") I 1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AIT (#787) REGULAR IR SORTING ONLY
    Short Descr: Index of CMRs with IT TRACKING set to YES.
    Set Logic: S ^ENG(6914.1,"AIT",X,DA)=""
    Set Cond: I X=1
    Kill Logic: K ^ENG(6914.1,"AIT",X,DA)
    Whole Kill: K ^ENG(6914.1,"AIT")
    X(1): IT TRACKING (6914.1,6) (Subscr 1) (forwards)
10 COST CENTER COMPUTED

  • MUMPS CODE:  S X=$$CMRCC^ENFAUTL(D0)
  • ALGORITHM:  S X=$$CMRCC^ENFAUTL(D0)
20 ALTERNATE RESPONSIBLE OFFICIAL 20;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1995
  • DESCRIPTION:  
    A person authorized to act for the RESPONSIBLE OFFICIAL. This is an optional data element to be used at the discretion of each facility.
  • CROSS-REFERENCE:  6914.1^D
    1)= S ^ENG(6914.1,"D",$E(X,1,30),DA)=""
    2)= K ^ENG(6914.1,"D",$E(X,1,30),DA)
30 DAYS BETWEEN RETURNS 1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 2016
  • HELP-PROMPT:  Type a number between 1 and 365, 0 decimal digits.
  • DESCRIPTION:  
    This is the maximum number of days before an equipment item must be returned to be serviced and physically inventoried.
31 LOAN FORM PHONE 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!'(X?.ANP) X
  • LAST EDITED:  MAR 17, 2008
  • HELP-PROMPT:  Enter telephone number of up to 20 characters.
  • DESCRIPTION:  
    This is the telephone number to be called concerning loan forms for equipment on this CMR.

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1343
  • EQUIPMENT/TURN-IN REQUEST
    		•  SERVICE (.5).
    Access: Read w/Fileman

    RESPONSIBLE OFFICIAL (1).
    Access: Read w/Fileman

    NAME (.01).
    Access: Read w/Fileman

    STATION NUMBER (5).
    Access: Read w/Fileman

    PHONE (RESP OFFICIAL) (2).
    Access: Read w/Fileman

    ALTERNATE RESPONSIBLE OFFICIAL (20).
    Access: Read w/Fileman
    ICR #3651
  • M DATA EXTRACTOR
    		•
    ICR #7163
  • ENTERPRISE REPORTING TOOL
    		•  NAME (.01).
    Access: Direct Global Read & w/Fileman
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All