Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^ENGS(6916

Package: Engineering

Global: ^ENGS(6916


Information

FileMan FileNo FileMan Filename Package
6916 BERS SURVEY Engineering

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Engineering 4 ^ENGS(6916    7b. MFG/EQUIP TYPE/MOD#    ENX3IPS    VI.A. CONTRACT SERVICE    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Engineering 1 ENX3IPS    

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.

External References

Name Field # of Occurrence
^DICR .01(XREF 2n1.4), .01(XREF 3n1.4), .01(XREF 4n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
^DD(6916 .01(XREF 2S), .01(XREF 3S), .01(XREF 4S)
^ENGS(6916 - [#6916] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), 2.1(XREF 1S), 2.1(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID3+1
^(5 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .01(XREF 2S), .01(XREF 3S), .01(XREF 4S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), 2.1(XREF 1S), 2.1(XREF 1K)
>> DIG .01(XREF 2n1.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIH .01(XREF 2n1.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIU .01(XREF 2S), .01(XREF 3S), .01(XREF 4S)
DIV .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)
U ID3+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), 2+1!
, 2.1+1!, 2.1(XREF 1S), 2.1(XREF 1K), 2.2+1!, 2.3+1!, 3+1!, 4+1!, 6+1!, 7+1!, 8+1!
, 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 17+1*!, 18+1*!, 19+1*!, 20+1*!
Y .01(XREF 2S), .01(XREF 3S), .01(XREF 4S)
Y(1 .01(XREF 2S), .01(XREF 3S), .01(XREF 4S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All