STANDARD DATA DICTIONARY #6916 -- BERS SURVEY FILE 3/24/25 PAGE 1
STORED IN ^ENGS(6916, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Used for submission of an annual report on Biomedical Engineering Resources. This report is prepared by each site and submitted to
the National Engineering Service Center in St. Louis.
DD ACCESS: #
RD ACCESS: e
WR ACCESS: e
DEL ACCESS: e
LAYGO ACCESS: e
IDENTIFIED BY: VAMC ADDRESS (#3)
CROSS
REFERENCED BY: VAMC(B), PCYCLE(C), VI.A. CONTRACT SERVICE(D)
6916,.01 VAMC 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<8)!'(X?4N1"-"3.5UN) X
LAST EDITED: JAN 26, 1998
HELP-PROMPT: Enter 4 digit Fiscal Year concatenated with '-' concatenated with Station No.
DESCRIPTION:
Fiscal year being reported concatenated with official facility number.
EXECUTABLE HELP: W !,"Ex: 1999-668 for Fiscal Year 1999, Station 668."
GROUP:
CROSS-REFERENCE: 6916^B
1)= S ^ENGS(6916,"B",$E(X,1,30),DA)=""
2)= K ^ENGS(6916,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^6916^2.1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENGS(6916,D0,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X S
DIU=X K Y S X=DIV S X="N" X ^DD(6916,.01,1,2,1.4)
1.4)= S DIH=$S($D(^ENGS(6916,DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,1)=DIV,DIH=6916,DIG=2.1 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= "N"
DELETE VALUE)= NO EFFECT
FIELD)= #2.1
CROSS-REFERENCE: ^^TRIGGER^6916^2.2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENGS(6916,D0,5)):^(5),1:"") S X=$P(Y(1),U,2),X=X S
DIU=X K Y S X=DIV S X="N" X ^DD(6916,.01,1,3,1.4)
1.4)= S DIH=$S($D(^ENGS(6916,DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,2)=DIV,DIH=6916,DIG=2.2 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= "N"
DELETE VALUE)= NO EFFECT
FIELD)= #2.2
CROSS-REFERENCE: ^^TRIGGER^6916^2.3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENGS(6916,D0,5)):^(5),1:"") S X=$P(Y(1),U,3),X=X S
DIU=X K Y S X=DIV S X="N" X ^DD(6916,.01,1,4,1.4)
1.4)= S DIH=$S($D(^ENGS(6916,DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,3)=DIV,DIH=6916,DIG=2.3 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= "N"
DELETE VALUE)= NO EFFECT
FIELD)= #2.3
6916,2 HOSPCODE 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter hospital code i.e., 657 for St. Louis
DESCRIPTION:
Official facility number, usually three digits.
6916,2.1 PCYCLE 5;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X
LAST EDITED: MAY 12, 1987
HELP-PROMPT: DO NOT ENTER DATA. ONLY HIT RETURN!!!"
DESCRIPTION:
For use by the Engineering Service Center only.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the VAMC field of the BERS SURVEY File
CROSS-REFERENCE: 6916^C
1)= S ^ENGS(6916,"C",$E(X,1,30),DA)=""
2)= K ^ENGS(6916,"C",$E(X,1,30),DA)
6916,2.2 CCYCLE 5;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: MAY 11, 1987
HELP-PROMPT: DO NOT ENTER DATA, ONLY HIT RETURN!!!"
DESCRIPTION:
For use by the Engineering Service Center only.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the VAMC field of the BERS SURVEY File
6916,2.3 GCYCLE 5;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: MAY 11, 1987
HELP-PROMPT: DO NOT ENTER DATA, ONLY HIT RETURN!!!"
DESCRIPTION:
For use by the Engineering Service Center only.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the VAMC field of the BERS SURVEY File
6916,3 VAMC ADDRESS 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3) X
HELP-PROMPT: Enter City, State, & Zip, i.e., St. Louis, MO 63125
DESCRIPTION:
Address of facility. Should include city, state, and zip code. Street address not required.
6916,4 FYEARRPT 0;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1900)!(X?.E1"."1N.N) X
LAST EDITED: JAN 26, 1998
HELP-PROMPT: Enter the Fiscal Year in 4 digit format.
DESCRIPTION:
Fiscal year being reported.
EXECUTABLE HELP: W !,"Ex: 1998, 2000, 2005, etc."
6916,5 I.A.1. NAME 1;0 Multiple #6916.07 (Add New Entry without Asking)
DESCRIPTION:
Name of biomedical maintenance employee.
6916.07,.01 I.A.1. NAME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3)!(X'?1U.UP1",".UP) X
LAST EDITED: APR 10, 1992
HELP-PROMPT: Enter Person's LastName, FirstName
DESCRIPTION:
Employee name.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6916.07,1 2. ABBREVIATED CLASS TITLE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 12, 1987
HELP-PROMPT: Enter Abbreviated title i.e., BE or BMET or MER or ET
DESCRIPTION:
Job classification title.
6916.07,1.5 2a. TYPE OF CLASSIFICATION 0;3 SET (Required)
'T' FOR TECHNICIAN;
'B' FOR BIOMEDICAL ENGINEER;
'O' FOR OTHER CLERICAL SUPPORT;
HELP-PROMPT: Choose one of the above!!!
DESCRIPTION:
Broad classification (technical, professional, other).
6916.07,2 3. ORGANIZATIONAL TITLE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: Enter Position Title. Ex:: Supervisory Technician or Staff Engineer
DESCRIPTION:
Indicator of primary responsibilities.
6916.07,3 4. PAYPLAN/CLASS 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: MAR 05, 1987
HELP-PROMPT: Enter Pay plan. Ex: WG-4305 or GS-607 etc.
DESCRIPTION:
Personnel classification.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6916.07,3.5 4a. GRADE/STEP 3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 02, 1987
HELP-PROMPT: Example 9/3 or 11/2 or 12/5
DESCRIPTION:
Civil service grade and step within grade.
6916.07,4 5. EMPLOYEE STATUS 0;6 SET
'F' FOR FULL-TIME;
'PT' FOR PART-TIME;
'PY' FOR PART-YEAR;
'S' FOR SHARED;
DESCRIPTION:
Employment status of this individual.
6916.07,5 5a. No. OF MONTHS WORKED 0;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 06, 1988
HELP-PROMPT: Enter number of months employee has worked, 1 to 12 months during the fiscal year
DESCRIPTION:
The number of months worked by this individual during the year being reported.
6916.07,5.5 5b. SHARED BY 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: FEB 27, 1987
HELP-PROMPT: ENTER ALL SERVICES BY NAME & PERCENT i.e. RESEARCH 20%
DESCRIPTION:
The name of the entity with whom the services of this individual are shared.
6916.07,6 6. ANNUAL SALARY 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter employee's annual salary.
DESCRIPTION:
Base salary, to the nearest whole dollar.
6916.07,7 7a. GENERAL EXPERTISE 1;0 Multiple #6916.08 (Add New Entry without Asking)
DESCRIPTION:
Classification of technical competencies.
6916.08,.01 7a. GENERAL EXPERTISE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
HELP-PROMPT: Enter General Area of Expertise (limit of 4); REF CIRCULAR 10-84-206 PARA 7(a)
DESCRIPTION:
Technical competencies.
6916.07,8 7b. MFG/EQUIP TYPE/MOD# 2;0 POINTER Multiple #6916.09 (Add New Entry without Asking)
DESCRIPTION:
Specific equipment that individual is qualified to maintain.
6916.09,.01 7b. MFG NAME 0;1 POINTER TO MANUFACTURER LIST FILE FILE (#6912) (Multiply asked)
LAST EDITED: SEP 01, 1994
HELP-PROMPT: ENTER MANUFACTURER'S NAME!!!
DESCRIPTION:
Equipment manufacturer.
CROSS-REFERENCE: 6916.09^AC^MUMPS
1)= S:$D(^ENG("MFG",X,0)) X=$P(^ENG("MFG",X,0),"^",1),$P(^ENGS(6916,DA(2),1,DA(1),2,DA,0),"^",4)=X
2)= Q
6916.09,1 EQUIPMENT TYPE 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<1) X
HELP-PROMPT:Enter Generic Name of Equipment
DESCRIPTION:
Generic name (equipment category).
6916.09,2 MODEL 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<1) X
HELP-PROMPT:If more then one model use , as seperator
DESCRIPTION:
Model number assigned by manufacturer.
6916.09,3 MFG TRIGGERED NAME 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<1) X
HELP-PROMPT:This field is triggered by the MFG NAme field
DESCRIPTION:
Manufacturer's name in text representation.
WRITE AUTHORITY:^
6916,6 II.A. WORK AREA (SQFT) 2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter Work Area Space in Square Feet.
DESCRIPTION:
Net square feet assigned to actual biomedical maintenance and repair activity.
6916,7 II.B. STORAGE AREA (SQFT) 2;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter the storage space in square feet
DESCRIPTION: Net square feet assigned to biomedical engineering for storage of test equipment, parts, and
documents.
6916,8 II.C. BME OFFICE (SQFT) 2;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter BME Office space in square feet
DESCRIPTION:
Net square feet used for office work.
6916,9 III.A. TOTAL ACQUISITION COST 2;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter Total Test Equipment Acquisition cost.
DESCRIPTION:
Approximate cost of all test equipment assigned to the biomedical maintenance activity.
6916,10 IV.A. COST OF PARTS 2;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter Cost of parts used for inhouse repairs & added to stock during the reporting period.
DESCRIPTION:
Cost of parts purchased at the request of biomedical engineering during the reporting year.
6916,11 *IV.B. COST OF X-RAY PART N/T 2;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 03, 1994
HELP-PROMPT: ENTER COST OF X-RAY PARTS ALONE (NO TUBES)
DESCRIPTION: Approximate cost of parts purchased for repair of X-ray equipment during the reporting year,
excluding tubes.
The field is no longer used in the BERS Survey as of 10/3/94.
6916,12 IV.B. COST OF X-RAY (TUBES) 2;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 29, 1994
HELP-PROMPT: ENTER COSTS OF X-RAY TUBES ONLY (NOT TO INCLUDE ANY PROVIDED BY CONTRACTS OR ONE-TIME SERVICE
COSTS)
DESCRIPTION:
Approximate cost of X-ray tubes purchased during the reporting year.
6916,13 V.A. COST OF REPAIRS (NON) 2;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: ENTER COSTS OF PARTS & LABOR FOR VENDOR REPAIRS (NON CONTRACT)
DESCRIPTION: Approximate cost (parts and labor) of maintenance and repair performed by vendors during the
reporting year, not including work done under service contracts.
6916,14 *V.B. COST OF X-RAY CALLS 2;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 03, 1994
HELP-PROMPT: ENTER COSTS OF X-RAY CALLS IN LIEU OF CONTRACT SERVICE.
DESCRIPTION: Approximate cost of vendor service calls on X-ray equipment.
This field is no longer used in the BERS Survey as of 10/3/94.
6916,15 VI.A. CONTRACT SERVICE 3;0 SET Multiple #6916.1 (Add New Entry without Asking)
DESCRIPTION:
Individual maintenance contracts in force during the reporting year.
IDENTIFIED BY: COMPANY NAME(#1)
6916.1,.001 CONTRACT NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1990
HELP-PROMPT: COMPUTER GENERATED NUMBER...DO NOT EDIT THIS FIELD!!!!!!!
6916.1,.01 VI.A. CONTRACT SERVICE 0;1 SET (Required) (Multiply asked)
'L' FOR LAB;
'R' FOR RAD;
'N' FOR NUC;
'O' FOR OTHER;
LAST EDITED: OCT 27, 1987
HELP-PROMPT: Enter "L" or "R" or "N" to enter new contracts:
DESCRIPTION:
Primary customer for whom contract was purchased. Set of codes.
CROSS-REFERENCE: 6916^D
1)= S ^ENGS(6916,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^ENGS(6916,"D",$E(X,1,30),DA(1),DA)
6916.1,1 COMPANY NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: MAR 20, 1989
HELP-PROMPT: Enter Company Name providing service (NO DEPOTS)
DESCRIPTION:
Name of company contracted with.
CROSS-REFERENCE: 6916.1^C
1)= S ^ENGS(6916,DA(1),3,"C",$E(X,1,30),DA)=""
2)= K ^ENGS(6916,DA(1),3,"C",$E(X,1,30),DA)
6916.1,2 MANUFACTURER NAME 0;3 POINTER TO MANUFACTURER LIST FILE FILE (#6912) (Required)
LAST EDITED: SEP 01, 1994
HELP-PROMPT: Enter Manufacturer's Name:
DESCRIPTION:
Manufacturer of equipment under contract.
CROSS-REFERENCE: 6916.1^AC^MUMPS
1)= S:$D(^ENG("MFG",X,0)) X=$P(^ENG("MFG",X,0),"^",1),$P(^ENGS(6916,DA(1),3,DA,0),"^",11)=X
2)= Q
6916.1,3 TYPE OF EQUIPMENT 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
HELP-PROMPT: Enter type of equipment name; i.e., Automicrobic System
DESCRIPTION:
Generic equipment name (equipment category).
6916.1,4 MODEL # 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
HELP-PROMPT: Enter model numbers separated by commas; i.e., S+,33,MD
DESCRIPTION:
Model number assigned by manufacturer.
6916.1,5 EQUIPMENT COST (ACQST) 0;6 NUMBER
EQUIP COST
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter Equipment Cost (Acquisition):
DESCRIPTION:
Acquisition cost of equipment under contract.
6916.1,6 CONTRACT COST 0;7 NUMBER
CON COST
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter Contract Cost (Actual Expense):
DESCRIPTION:
Annual cost (nearest whole dollar) of the contract.
6916.1,7 CONTRACT PERIOD 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter Contract Period (# Months 1-12):
DESCRIPTION:
Number of months this contract was in force during the reporting year (1 to 12).
6916.1,8 CONTRACT TYPE 0;9 SET
'F' FOR FULL SERVICE;
'PM' FOR PREVENTIVE MAINTENANCE ONLY;
'S' FOR SAFETY INSPECTION;
'SP' FOR SERVICE PLUS PARTS;
'P' FOR PARTIAL SERVICE;
'PO' FOR PARTS ONLY;
LAST EDITED: JAN 18, 1989
HELP-PROMPT: Select from displayed list ONLY
DESCRIPTION: Category of contract. Choose the selection that most closely describes the nature of this
contract.
6916.1,9 ADDITIONAL COST 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: ENTER ADDITIONAL COSTS FOR PARTS & SERVICES PROVIDED BY VENDOR (IN ADDITION TO CONTRACT COSTS).
DESCRIPTION: Amount paid to the vendor for parts and labor expended on covered equipment, but not covered
under the contract.
6916.1,9.5 VI.A.1. TOTAL COSTS 1;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: OCT 05, 1989
HELP-PROMPT: ENTER CONTRACT COSTS + ADDITIONAL COSTS
DESCRIPTION:
Total of contract cost plus additional costs.
6916.1,10 MFG TRIGGERED NAME 0;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
HELP-PROMPT: MANUFACTURER'S NAME (can not be edited)
DESCRIPTION:
Text representation of equipment manufacturer's name.
WRITE AUTHORITY: ^
6916,16 VII. ADDITIONAL SUPPORT AREAS 4;0 SET Multiple #6916.11 (Add New Entry without Asking)
DESCRIPTION:
Special areas that may be supported with biomedical engineering resources.
6916.11,.01 VII. ADDITIONAL SUPPORT AREAS 0;1 SET (Multiply asked)
'A' FOR RESEARCH;
'B' FOR COMMUNICATION;
'C' FOR OFFICE EQUIPMENT;
'D' FOR ENTERTAINMENT;
'E' FOR EDUCATIONAL EQUIPMENT;
'F' FOR ADP EQUIPMENT;
'G' FOR OTHER;
LAST EDITED: NOV 23, 1988
DESCRIPTION:
Special program areas.
6916.11,1 TYPE OF EQUIPMENT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
HELP-PROMPT: ENTER TYPE OF EQUIPMENT. (MUST BE 1-45 CHARACTERS):
DESCRIPTION:
Generic equipment type(s) maintained in this special area.
6916.11,2 FTEE REQUIRED 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
HELP-PROMPT: Enter number of FTEE required
DESCRIPTION:
Approximate FTEE required in this special area.
6916.11,3 ESTIMATED ACQ VAL OF INV SRVCD 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: ENTER Estimated Acquisition value of inventory serviced:
DESCRIPTION:
Approximate acquisition value of equipment maintained in this special area.
6916.11,3.5 NUMBER OF UNITS INVOLVED 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter number of units in support area
DESCRIPTION:
Approximate count of items maintained in this special area.
6916.11,4 PARTS COST 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter Dollar value of Parts Cost
DESCRIPTION:
Approximate cost of parts purchased for use in this special area during the reporting year.
6916.11,5 PARTS COST INC ELSEWHERE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
HELP-PROMPT: If parts cost are included elsewhere in report, give brief description of location, i.e., under
lab contracts etc.
DESCRIPTION:
Other places in this report where parts cost for this special area may appear.
6916.11,6 COMMENTS 1;0 WORD-PROCESSING #6916.12
LAST EDITED: APR 29, 1993
DESCRIPTION:
General comments regarding support of this special area.
6916,17 VIII.A.TOTAL PERSONAL PROPERTY 6;1 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X
LAST EDITED: AUG 29, 1994
HELP-PROMPT: Enter the Total Value of Non Expendable Equipment for your VAMC
DESCRIPTION:
The total value of non expendable equipment for the VAMC.
6916,18 VIII.B. LAB TOTAL EQUIP. COST 6;2 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X
LAST EDITED: AUG 29, 1994
HELP-PROMPT: Enter the Total Equipment Cost for Laboratory at your VAMC
DESCRIPTION:
The total value of Laboratory medical equipment at the VAMC.
6916,19 VIII.C. RAD TOTAL EQUIP. COST 6;3 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X
LAST EDITED: AUG 29, 1994
HELP-PROMPT: Enter the Total Equipment Cost for Radiology at your VAMC
DESCRIPTION:
The total value of Radiology medical equipment at the VAMC.
6916,20 VIII.D. OTHER TOTAL EQUIP. CST 6;4 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X
LAST EDITED: AUG 29, 1994
HELP-PROMPT: Enter Total Equipment Cost for all other Medical Equipment (Surgical, Dental, and Optical)
DESCRIPTION:
The total value of all other medical equipment at the VAMC.
FILES POINTED TO FIELDS
MANUFACTURER LIST FILE (#6912) 7b. MFG/EQUIP TYPE/MOD#:7b. MFG NAME (#.01)
VI.A. CONTRACT SERVICE:MANUFACTURER NAME (#2)
INPUT TEMPLATE(S):
ENGSURVEY AUG 29, 1994@15:56 USER #0
PRINT TEMPLATE(S):
ENGSADDITIONAL MAY 11, 1990@12:03 USER #0 BIOMEDICAL RESOURCES SURVEY ADDITIONAL SUPPORT LISTING
ENGSCONTRACT MAY 11, 1990@12:20 USER #0 BIOMEDICAL RESOURCES SURVEY CONTRACT LISTING
ENGSGENERAL AUG 30, 1994@13:46 USER #0 BIOMEDICAL RESOURCES GENERAL SPECIFICATIONS SURVEY LISTING
ENGSPERSONNEL MAY 14, 1990@14:10 USER #0 BIOMEDICAL RESOURCES PERSONNEL SURVEY LISTING
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):