Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 6916.1

Package: Engineering

BERS SURVEY(#6916)-->6916.1

Sub-Field: 6916.1

Information

Parent File	Name	Number	Package
BERS SURVEY(#6916)	VI.A. CONTRACT SERVICE	6916.1	Engineering

Details

Field #	Name	Loc	Type	Details
.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!!!!!!!`
.01	VI.A. CONTRACT SERVICE	0;1	SET	**********************REQUIRED FIELD********************** '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)`
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)`
2	MANUFACTURER NAME	0;3	POINTER TO MANUFACTURER LIST FILE FILE (#6912)	**********************REQUIRED FIELD********************** MANUFACTURER LIST FILE(#6912) 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`
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).`
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.`
5	EQUIPMENT COST (ACQST)	0;6	NUMBER	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.`
6	CONTRACT COST	0;7	NUMBER	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.`
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).`
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.`
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.`
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.`
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: ^`