STANDARD DATA DICTIONARY #6914.1 -- CMR FILE 6/27/25 PAGE 1
STORED IN ^ENG(6914.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Consolidated Memoranda of Receipt in use at your facility. Basic instrument for establishing accountability for non-expendable
equipment.
DD ACCESS: #
WR ACCESS: #e
DEL ACCESS: #e
LAYGO ACCESS: #e
IDENTIFIED BY: SERVICE (#.5), BRIEF DESCRIPTION (#.6)
POINTED TO BY: CMR field (#4.5) of the EQUIPMENT REQUEST File (#413)
CMR field (#15) of the TURN-IN REQUEST File (#413.1)
CMR field (#19) of the EQUIPMENT INV. File (#6914)
CMR field (#101) of the FC DOCUMENT LOG File (#6915.4)
NEW CMR field (#105) of the FR DOCUMENT LOG File (#6915.6)
CROSS
REFERENCED BY: NAME(B), NAME(B1), RESPONSIBLE OFFICIAL(C), ALTERNATE RESPONSIBLE OFFICIAL(D), SERVICE(E)
INDEXED BY: IT TRACKING (AIT)
LAST MODIFIED: JUL 6,2018@12:21:33
6914.1,.01 NAME 0;1 FREE TEXT (Required)
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.
6914.1,.5 SERVICE 0;5 POINTER TO SERVICE/SECTION FILE (#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)
6914.1,.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.
6914.1,1 RESPONSIBLE OFFICIAL 0;2 POINTER TO NEW PERSON FILE (#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)
6914.1,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
6914.1,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).
6914.1,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.
6914.1,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
6914.1,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 dele
te 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)
6914.1,10 COST CENTER ; COMPUTED
MUMPS CODE: S X=$$CMRCC^ENFAUTL(D0)
ALGORITHM: S X=$$CMRCC^ENFAUTL(D0)
6914.1,20 ALTERNATE RESPONSIBLE OFFICIAL 20;1 POINTER TO NEW PERSON FILE (#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)
6914.1,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.
6914.1,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.
FILES POINTED TO FIELDS
NEW PERSON (#200) RESPONSIBLE OFFICIAL (#1)
ALTERNATE RESPONSIBLE OFFICIAL (#20)
SERVICE/SECTION (#49) SERVICE (#.5)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):