Global: ^ENGS(6916

FileMan FileNo	FileMan Filename	Package
6916	BERS SURVEY	Engineering

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

Package	Total	Routines
Engineering	1	ENX3IPS

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.`

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)

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)

>>	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)

Customize PDF page

Package: Engineering

Global: ^ENGS(6916

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 1

Fields, Total: 23

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: