Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^ENGS(6916

Package: Engineering

Global: ^ENGS(6916


Information

FileMan FileNo FileMan Filename Package
6916 BERS SURVEY Engineering

Description

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Engineering 1 MANUFACTURER LIST FILE(#6912)[#6916.09(.01), #6916.1(2)]    

Fields, Total: 23

Field # Name Loc Type Details
.01 VAMC 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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 ^DICR:$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 ^DICR:$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 ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= "N"
    DELETE VALUE)= NO EFFECT
    FIELD)= #2.3
2 HOSPCODE 0;2 NUMBER
************************REQUIRED FIELD************************

  • 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.
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)
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
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
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.
4 FYEARRPT 0;4 NUMBER
************************REQUIRED FIELD************************

  • 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."
5 I.A.1. NAME 1;0 Multiple #6916.07 6916.07

  • DESCRIPTION:  
    Name of biomedical maintenance employee.
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.
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.
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.
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.
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.
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.
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.
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.
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.
15 VI.A. CONTRACT SERVICE 3;0 SET Multiple #6916.1 6916.1

  • DESCRIPTION:  
    Individual maintenance contracts in force during the reporting year.
  • IDENTIFIED BY:  COMPANY NAME(#1)
16 VII. ADDITIONAL SUPPORT AREAS 4;0 SET Multiple #6916.11 6916.11

  • DESCRIPTION:  
    Special areas that may be supported with biomedical engineering resources.
17 VIII.A.TOTAL PERSONAL PROPERTY 6;1 NUMBER
************************REQUIRED FIELD************************

  • 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.
18 VIII.B. LAB TOTAL EQUIP. COST 6;2 NUMBER
************************REQUIRED FIELD************************

  • 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.
19 VIII.C. RAD TOTAL EQUIP. COST 6;3 NUMBER
************************REQUIRED FIELD************************

  • 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.
20 VIII.D. OTHER TOTAL EQUIP. CST 6;4 NUMBER
************************REQUIRED FIELD************************

  • 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.
Info |  Desc |  Pointer To FileMan Files |  Fields