Global: ^ENG("EMP"

FileMan FileNo	FileMan Filename	Package
6929	ENG EMPLOYEE	Engineering

Package	Total	Routines
Engineering	31	ENARG21 ENARG23 ENBCPM1 ENBCPM4 ENBCPM5 ENBCPM6 ENBCPM7 ENEQHS ENEQPMP3 ENEQPMS2 ENEQPMS5 ENEQRP5 ENLIB1 ENSA1 ENSA4 ENSA5 ENSA6 ENSA8 ENSA9 ENWOD2 ENWONEW3 ENWOP2 ENWOP3 ENY2K3 TECHNICIANS ASSIGNED ^OFM(7336.9 ENWOUTL ENXIP65 ENY2K1 ENY2K5 ^ENG("EMP"

Package	Total	Routines
Engineering	1	ENY2K1

Package	Total	FileMan Files
Engineering	4	ENGINEERING SECTION LIST(#6922)[#6922.31(.01)] EQUIPMENT CATEGORY(#6911)[#6911.01(1)] EQUIPMENT INV.(#6914)[75, #6914.04(1)] WORK ORDER #(#6920)[16, #6920.02(.01)]

Package	Total	FileMan Files
Engineering	1	ENGINEERING SECTION LIST(#6922)[.3]
IFCAP	1	COST CENTER(#420.1)[5]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X[",")!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH AND CONTAIN A COMMA -IE. LAST NAME, FIRST NAME` DESCRIPTION: `Name of Engineering Service employee. Last name, first name and middle initial.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `6929^B` `1)= S ^ENG("EMP","B",$E(X,1,30),DA)=""` `2)= K ^ENG("EMP","B",$E(X,1,30),DA)`
.1	ORGANIZATIONAL TITLE	.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>27!($L(X)<3)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 3-27 CHARACTERS IN LENGTH` DESCRIPTION: `Informal job title.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.3	SHOP	0;10	POINTER TO ENGINEERING SECTION LIST FILE (#6922)	**********************REQUIRED FIELD********************** ENGINEERING SECTION LIST(#6922) DESCRIPTION: `Engineering shop to which this employee is assigned.`
.5	HOME STREET ADDRESS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!'(X?.ANP) X` LAST EDITED: `OCT 23, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Street address, including house number, apartment number, etc.`
.6	HOME CITY, STATE ZIP	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH` DESCRIPTION: `City, state and zip code of employee's residence.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.7	HOME PHONE	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<7)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 7-12 CHARACTERS IN LENGTH` DESCRIPTION: `Employee's home telephone number, including area code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	GRADE/STEP	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<3)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 3-8 CHARACTERS IN LENGTH` DESCRIPTION: `Payroll grade and step.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	WAGE	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>100)!(X<1) X` LAST EDITED: `APR 30, 1993` HELP-PROMPT: `Type a Dollar Amount between 1 and 100, 2 Decimal Digits` DESCRIPTION: `Hourly wage (base pay).`
2.1	OT RATE		COMPUTED	MUMPS CODE: `S Y(2.1,1)=$S($D(^ENG("EMP",D0,0)):^(0),1:"") S X=1.5$P(Y(2.1,1),U,3) S X=$J(X,0,2)` ALGORITHM: `(1.5WAGE) (ALWAYS 2 DECIMAL DIGITS)` DESCRIPTION: `Overtime wage, computed from base pay.`
2.4	STATION	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 19, 1985` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH` DESCRIPTION: `Name of permanent duty station.`
3	ACTIVITY	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 08, 1995` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `Number of the shop to which employee is assigned.`
4	ID#	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 21, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `Unique identification number. Assigned by Engineering Service.`
5	COST CENTER	0;6	POINTER TO COST CENTER FILE (#420.1)	COST CENTER(#420.1) LAST EDITED: `APR 03, 1986` DESCRIPTION: `Standardized cost center to which this employee's time is most often charged.`
7	STATUS	0;7	SET	'T' FOR TEMP; 'P' FOR PERM; 'V' FOR VACATED; LAST EDITED: `SEP 14, 1984` DESCRIPTION: `Employment status.`
8	HOURLYRATE		COMPUTED	MUMPS CODE: `S Y(8,1)=$S($D(^ENG("EMP",D0,0)):^(0),1:""),X=$P(Y(8,1),U,3)1.085100+.5\1/100 K Y(8)` ALGORITHM: `WAGE1.085100+.5\1/100` DESCRIPTION: `Actual cost of this employee, including benefits. Formula is not universally agreed to, so the Engineering Package bases calculations of labor costs on WAGE only.`
8.1	ANNUALIZED ESTIMATE		COMPUTED	MUMPS CODE: `S Y(6929,8.1,1)=$S($D(^ENG("EMP",D0,0)):^(0),1:"") S X=$P(Y(6929,8.1,1),U,3)2087` ALGORITHM: `WAGE2087` LAST EDITED: `NOV 14, 1990` DESCRIPTION: `Annual salary, based on hourly wage. Computed automatically.`
10.5	CLASSIFICATION SERIES	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: `Personnel classification series applicable to this employee.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	POS. #	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<3)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 3-6 CHARACTERS IN LENGTH` DESCRIPTION: `Position number. Assigned by the facility.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
12	CLASSIFICATION TITLE	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `Formal title of the position being filled by this employee.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13	HOSP.TELE.EXT.	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<4)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 4-10 CHARACTERS IN LENGTH` DESCRIPTION: `Telephone extension on which this employee may be reached.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	2.1+1, 8+1, 8.1+1
>> DA	.01(XREF 1S), .01(XREF 1K)
U	2.1+1, 8+1, 8.1+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .1+1!, .5+1!, .6+1!, .7+1!, 1+1!, 2+1!, 2.1+1 , 2.4+1!, 3+1!, 4+1!, 8+1, 8.1+1, 10.5+1!, 11+1!, 12+1!, 13+1!
>> Y(	2.1+1*
>> Y(6929	8.1+1*
>> Y(8	8+1*!

Customize PDF page

Package: Engineering

Global: ^ENG("EMP"

Information

Description

Directly Accessed By Routines, Total: 31

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 2

Fields, Total: 20

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: