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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 33

Package Total Routines
Engineering 24 ENARG23    ENCMR    ENEQNX4    ENEQRPI    ENEXPT    ENFAEIL    ENFAR3    ENFAR4
ENFAR8    ENFAUTL    ENFAVAL    ENFAXMTM    ENLBL5    ENPOST    ENTIDD    ENTIRRH
ENTIUTL2    ENXRIPS    ^ENG(6914    ENLIB2    ENXOIPS1    ENXSIPS    ENXVIPR    ^ENG(6914.1
Equipment Turn-In Request 7 PRCN109    PRCNCMR    PRCNINST    PRCNPPM    PRCNTICM    PRCNX5    ^PRCN(413.1    
Real Time Location System 1 VIAAEAD    

Accessed By FileMan Db Calls, Total: 15

Package Total Routines
Engineering 12 ENEQNX4    ENEQRPI    ENFAEIL    ENFAXFR    ENFAXMTM    ENLBL5    ENLIB2    ENTIUTL
ENTIUTL2    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)[120]    

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

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
  • External References

    Name Field # of Occurrence
    ^%DT 3+1
    EN^DDIOL .01DEL1+1, 6DEL1+1
    Y^DIQ ID.5+1
    $$CMRCC^ENFAUTL 10+1
    $$AITACMR^ENTIDD 6DEL1+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(49 ID.5+1
    ^DIC(49 - [#49] ID.5+1
    ^DIC(6910 - [#6910] 5+1
    ^ENG(6914 - [#6914] .01DEL1+1
    ^ENG(6914.1 - [#6914.1] IXAITSL+1*, IXAITKL+1!, IXAITKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .5(XREF 1S), .5(XREF 1K), 1(XREF 1S)
    1(XREF 1K), 20(XREF 1S), 20(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.5+1, ID.6+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 3+1*
    %I ID.5+1*!
    >> C ID.5+1*
    >> D0 10+1
    >> DA IXAITSL+1, IXAITKL+1, .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .5(XREF 1S), .5(XREF 1K), 1(XREF 1S)
    1(XREF 1K), 6DEL1+1, 20(XREF 1S), 20(XREF 1K)
    >> DIC ID.5+1
    U ID.5+1, ID.6+1, 5+1
    X IXAITSL+1, IXAITSCC+1, IXAITKL+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .5(XREF 1S), .5(XREF 1K)
    , .6+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1*!, 5+1!, 10+1*, 20(XREF 1S), 20(XREF 1K), 30+1!
    , 31+1!
    >> Y ID.5+1*, 3+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All