STANDARD DATA DICTIONARY #731.5 -- VAMC PLANNED EQUIPMENT FILE 9/29/25 PAGE 1
STORED IN ^ECT(731.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file serves as a planning tool for management. All local VAMC planned equipment may be tracked - including IRM/ADP and
regional high technology equipment list items.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: SERVICE (#1)[R]
CROSS
REFERENCED BY: ITEM NAME(B)
731.5,.01 ITEM NAME 0;1 FREE TEXT (Required)
PLANNED EQUIPMENT ITEM
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Enter the name of an item which VAMC plans to purchase.
CROSS-REFERENCE: 731.5^B
1)= S ^ECT(731.5,"B",$E(X,1,30),DA)=""
2)= K ^ECT(731.5,"B",$E(X,1,30),DA)
731.5,1 SERVICE 0;2 POINTER TO NATIONAL SERVICE FILE (#730) (Required)
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Enter the service wishing to procure the item.
DESCRIPTION: Service is a pointer to the National Service file. Choose the service that wishes to procure the
item.
731.5,2 HIGH TECH EQT ITEM? 0;3 SET (Required)
HIGH TECHNOLOGY EQUIPMENT LIST ITEM?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Is item from the regional high technology equipment list?
DESCRIPTION: Is the planned equipment item from the regional unfunded high technology equipment list? If yes,
answer with a "1" or "Y". If not, answer with a "0" or "N".
731.5,3 ADP EQT ITEM? 0;4 SET (Required)
IRM/ADP EQUIPMENT ITEM?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Indicate if the item is for IRM/ADP.
DESCRIPTION: Is the planned equipment item for IRM/ADP? If so, answer with a "1" or "Y". If not, answer with a
"0" or "N".
731.5,4 ADDITIONAL/REPLACEMENT? 0;5 SET (Required)
ADDITIONAL OR REPLACEMENT ITEM?
'A' FOR ADDITIONAL;
'R' FOR REPLACEMENT;
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Indicate if item is additional or replacement.
DESCRIPTION:
If the item is 'additional' equipment, enter 'A'; if 'replacement', enter 'R'.
731.5,5 PRIORITY 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 12, 1990
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION: Indicate the level of importance for purchasing purposes. Number 1 indicates highest level of
importance. Number 999 indicates lowest possible level of importance.
731.5,6 COST 0;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
Enter the estimated cost of the planned purchase item.
731.5,20 REQUEST DATE 1;1 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Enter date item was requested.
DESCRIPTION: Enter the date the item was requested. Date may be exact, i.e. JAN 21,1991 or imprecise, i.e. JAN
1991.
731.5,21 DATE APPROVED 1;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter date item was approved.
DESCRIPTION:
Enter the date the item was approved for purchase.
731.5,22 DATE PROCURED 1;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter date item was procured.
DESCRIPTION:
Enter the date the item was purchased.
731.5,23 STATUS 1;4 SET (Required)
'A' FOR APPROVED TO BE PURCHASED;
'P' FOR APPROVED AND PURCHASED;
'N' FOR NOT YET APPROVED OR PURCHASED;
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Enter the status of the planned item.
DESCRIPTION: Enter the status of the item: 'A' for Approved to be purchased, 'P' for approved and Purchased, and
'N' for Not yet approved or purchased.
731.5,30 JUSTIFICATION 2;0 WORD-PROCESSING #731.51
DESCRIPTION:
Enter the justification for the planned equipment item.
HELP-PROMPT: Enter a description or comment as justification.
DESCRIPTION:
Enter the justification for the planned equipment item.
FILES POINTED TO FIELDS
NATIONAL SERVICE (#730) SERVICE (#1)
INPUT TEMPLATE(S):
ECT EQUIPMENT INPUT JAN 16, 1991@10:13 USER #17
Template is called by routine ECTEIN to 'Enter/Edit Planned Equipment'.
ECT STATUS EDIT JAN 16, 1991@10:11 USER #17
Template is called by routine ECTEIN to 'Edit Status of an Item'.
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):