Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
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: ^
Info |  Details