STANDARD DATA DICTIONARY #6920 -- WORK ORDER # FILE 3/24/25 PAGE 1
STORED IN ^ENG(6920, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Repository of all work requests directed to Engineering Service. Main file used by the Work Order Module.
DD ACCESS: #
WR ACCESS: E
DEL ACCESS: e
LAYGO ACCESS: E
IDENTIFIED BY: LOCATION (#3), TASK DESCRIPTION (60 char) (#6)[R]
POINTED TO BY: SORT GROUP field (#49) of the CONTROL POINT ACTIVITY File (#410)
ENGINEER. WORK ORDER field (#13) of the TURN-IN REQUEST File (#413.1)
WORK ORDER # field (#11) of the TURN-IN LINE ITEM sub-field (#413.11) of the TURN-IN REQUEST File (#413.1)
SORT GROUP field (#51) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442)
Y2K COMPLIANCE WORK ORDER (POINTER) field (#78) of the EQUIPMENT INV. File (#6914)
CROSS
REFERENCED BY: WORK ORDER #(AA), SHOP(AC), STATUS(AD), PARTS ORDERED ON ACC.#(AE), EQUIPMENT ID#(AF), PRIMARY TECH ASSIGNED(AG),
STATUS(AH), DATE COMPLETE (or closed)(AI), WORK ORDER #(B), LOCATION(C), TASK DESCRIPTION (60 char)(D),
PMI NUMBER(E), LOCAL IDENTIFIER(F), EQUIPMENT ID#(G), ORIGINAL WORK ORDER #(H)
6920,.01 WORK ORDER # 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: APR 11, 1997
HELP-PROMPT: ANSWER MUST BE 5-17 CHARACTERS IN LENGTH
DESCRIPTION: Identifier of each individual work action. Composed of the shop abbreviation, date generated, and
a computer generated sequential component. Users may delete work orders when necessary, but they
should never change a work order number.
DELETE TEST: 1,0)= I $D(^ENG(6920,DA,3)),$P(^(3),"^",8)>0,$D(^(5)),$P(^(5),"^",2)>0 W !,"Sorry, you must use the
work order module to delete work orders associated",!,"with an equipment history."
DELETE AUTHORITY: #
WRITE AUTHORITY: #
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6920^B
1)= S ^ENG(6920,"B",$E(X,1,30),DA)=""
2)= K ^ENG(6920,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 6920^AA^MUMPS
1)= Q
2)= Q
Obsolete x-ref. No API available to delete.
6920,.05 ORIGINAL WORK ORDER # 0;6 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5) X
LAST EDITED: SEP 11, 1996
HELP-PROMPT: Answer must be 5-17 characters in length.
DESCRIPTION: This field is automatically populated whenever a new work request is entered. Unlike the .01 field,
the 'ORIGINAL WORK ORDER #' will not be affected if the work request is transferred from one shop
to another. The main purpose of this field is to allow requesters outside of Engineering Service to
check on the status of work requests which they enter themselves. If requesters make a note of the
WORK ORDER #'s assigned to their work requests as they enter them, they will always be able to use
these original numbers to check the status.
UNEDITABLE
CROSS-REFERENCE: 6920^H
1)= S ^ENG(6920,"H",$E(X,1,30),DA)=""
2)= K ^ENG(6920,"H",$E(X,1,30),DA)
6920,1 REQUEST DATE 0;2 DATE
INPUT TRANSFORM: S %DT=$S($E($P(^ENG(6920,DA,0),U),1,3)="PM-":"P",1:"ETPX") D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 07, 1997
DESCRIPTION:
Date (and time if desired) when work request was originally entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,2 REQUEST MODE 0;3 SET
'P' FOR PHONE;
'W' FOR WRITTEN;
'D' FOR DELIVERED;
'V' FOR VERBAL;
'C' FOR COMPUTER;
LAST EDITED: AUG 01, 1990
DESCRIPTION:
Indicator of how the work was actually requested.
6920,3 LOCATION 0;4 POINTER TO ENG SPACE FILE (#6928)
LAST EDITED: FEB 24, 1993
HELP-PROMPT: Enter as ROOM-BUILDING (or select a SYNONYM).
DESCRIPTION:
Physical location where work is to be performed.
CROSS-REFERENCE: 6920^C
1)= S ^ENG(6920,"C",$E(X,1,30),DA)=""
2)= K ^ENG(6920,"C",$E(X,1,30),DA)
6920,4 BED # 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION: Optional field. Filled in at time of request if the work requested is associated with a specific
bed in a patient room.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,6 TASK DESCRIPTION (60 char) 1;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: FEB 24, 1993
HELP-PROMPT: ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
DESCRIPTION:
A brief statement that describes the work being requested.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6920^D
1)= S ^ENG(6920,"D",$E(X,1,30),DA)=""
2)= K ^ENG(6920,"D",$E(X,1,30),DA)
6920,7 CONTACT PERSON 1;3 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: This is the person to be contacted if there are questions about the nature of the work that has
been requested.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,7.5 ENTERED BY 1;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 19, 1993
DESCRIPTION: Identifies the user who actually entered the work request. Field is automatically populated when
work order is entered via Electronic Work Order Module.
UNEDITABLE
6920,8 PHONE 1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1)!(X'?.ANP) X
LAST EDITED: SEP 01, 1995
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
Telephone number or extension of the individual requesting the work.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,9 SHOP 2;1 POINTER TO ENGINEERING SECTION LIST FILE (#6922) (Required)
LAST EDITED: APR 11, 1997
DESCRIPTION:
The Engineering Section to which the Work Order is assigned.
CROSS-REFERENCE: 6920^AC^MUMPS
1)= D:'$D(DIU(0)) TEST^ENWOCOMP
2)= K ^ENG(6920,"AINC",X,9999999999-DA)
Maintains incomplete work order lists.
6920,10 DATE ASSIGNED 4;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 14, 1983
DESCRIPTION:
Date on which work order was assigned to the current shop.
6920,16 PRIMARY TECH ASSIGNED 2;2 POINTER TO ENG EMPLOYEE FILE (#6929)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,7)'=""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 11, 1998
DESCRIPTION:
Technician who bears primary responsibility for completion of task.
SCREEN: S DIC("S")="I $P(^(0),U,7)'=""V"""
EXPLANATION: Select current employees only.
CROSS-REFERENCE: 6920^AG^MUMPS
1)= D:'$D(DIU(0)) TECH^ENLIB1
2)= Q
Maintain ASSIGNED TECH field (if necessary).
6920,16.5 TECHNICIANS ASSIGNED 7;0 POINTER Multiple #6920.02 (Add New Entry without Asking)
DESCRIPTION:
Employee(s) assigned to perform this work.
6920.02,.01 ASSIGNED TECH 0;1 POINTER TO ENG EMPLOYEE FILE (#6929) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="S DIV=^(0) I $P(DIV,U,7)'=""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 21, 1998
HELP-PROMPT: ENTER THE NAMES OF ENGINEERING EMPLOYEES PERFORMING THE WORK
DESCRIPTION:
Engineering employee(s) assigned to this work order.
SCREEN: S DIC("S")="S DIV=^(0) I $P(DIV,U,7)'=""V"""
EXPLANATION: SELECT ACTIVE EMPLOYEES ONLY
CROSS-REFERENCE: 6920.02^AD^MUMPS
1)= I $P($G(^ENG(6920,DA(1),7,DA,0)),"^",3)="",$D(^ENG("EMP",X,0)),$P(^(0),"^",10) S $P(^ENG(6920,D
A(1),7,DA,0),"^",3)=$P(^ENG("EMP",X,0),"^",10)
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG("EMP",+D0,0)) D0=-1 S Y(101)=$S($D(^ENG("
EMP",D0,0)):^(0),1:"") S X=$S('$D(^DIC(6922,+$P(Y(101),U,10),0)):"",1:$P(^(0),U,1)) S D0=Y(1)
1.4)= S DIH=$S($D(^ENG(6920,DIV(0),7,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S
DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=6920
.02,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
2.4)= S DIH=$S($D(^ENG(6920,DIV(0),7,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S
DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=6920
.02,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= .01:.3
DELETE VALUE)= @
FIELD)= SHOP
Sets the shop(default).
CROSS-REFERENCE:6920.02^AE^MUMPS
1)= D:'$D(DIU(0)) INTECH^ENLIB1
2)= D:'$D(DIU(0)) OUTECH^ENLIB1
Maintain PRIMARY TECH on basis of TECHNICIAN ASSIGNED.
CROSS-REFERENCE:6920.02^AF^MUMPS
1)= I '$D(DIU(0)) D LBRCST^ENWOUTL(1) Q
2)= Q
Update TOTAL LABOR COST (#37.5) in the WORK ORDER (#6920) file. The TOTAL LABOR COST is normally
updated by a cross-reference on the HOURS (#1) field in the TECHNICIANS ASSIGNED (#16.5) multiple.
However, that cross-reference is not executed when an ASSIGNED TECH (#.01) is changed and the HOURS
are not edited.
6920.02,1 HOURS 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: OCT 21, 1998
HELP-PROMPT: Type a Number between 0 and 999, 2 Decimal Digits
DESCRIPTION:
Number of hours (to the nearest tenth) spent on this work order by this employee.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:6920.02^AC^MUMPS
1)= I '$D(DIU(0)) D LBRCST^ENWOUTL(1) Q
2)= I '$D(DIU(0)) D LBRCST^ENWOUTL(2) Q
Recalculate the TOTAL HOURS (#37) and the TOTAL LABOR COST (#37.5) in the WORK ORDER (#6920) file
whenever the hours assigned to any technician changes.
6920.02,2 SHOP 0;3 POINTER TO ENGINEERING SECTION LIST FILE (#6922)
LAST EDITED: MAR 26, 1985
HELP-PROMPT: ENTER ASSIGNED SHOP
DESCRIPTION:
Engineering section under whose direction this work was performed.
NOTES: TRIGGERED by the ASSIGNED TECH field of the TECHNICIANS ASSIGNED sub-field of the WORK ORDER # File
6920,17 PRIORITY 2;3 SET (Required)
'E' FOR EMERGENCY;
'H' FOR HIGH;
'A' FOR AVERAGE;
'L' FOR LOW;
'M' FOR MODIFICATION;
LAST EDITED: NOV 17, 1983
DESCRIPTION:
Relative priority of this work request.
6920,18 EQUIPMENT ID# 3;8 POINTER TO EQUIPMENT INV. FILE (#6914)
LAST EDITED: DEC 16, 1996
DESCRIPTION:
Entry in the Equipment File (#6914) to which this work order is to be charged.
CROSS-REFERENCE: 6920^G
1)= S ^ENG(6920,"G",$E(X,1,30),DA)=""
2)= K ^ENG(6920,"G",$E(X,1,30),DA)
CROSS-REFERENCE: 6920^AF^MUMPS
1)= D:'$D(DIU(0)) ST^ENWOINV
2)= D:'$D(DIU(0)) KI^ENWOINV
6920,19 LOCAL IDENTIFIER 3;5 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45)!(X'?.ANP) X I $D(X) K:$L(X)>15!($L(X)<1) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
This optional field may contain any type of identifier that has meaning at your site.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6920^F
1)= S ^ENG(6920,"F",$E(X,1,30),DA)=""
2)= K ^ENG(6920,"F",$E(X,1,30),DA)
6920,20 PMI NUMBER 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!(X'?.ANP) X
LAST EDITED: OCT 08, 1985
HELP-PROMPT: ANSWER MUST BE 1-11 CHARACTERS IN LENGTH
DESCRIPTION: Property Management Number. Applicable only to work requests that are chargeable to equipment.
This data element is likely to be phased out in the near future.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6920^E
1)= S ^ENG(6920,"E",$E(X,1,30),DA)=""
2)= K ^ENG(6920,"E",$E(X,1,30),DA)
6920,21 EQUIPMENT CATEGORY 3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
Generic name for affected equipment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,21.9 MANUFACTURER 3;9 POINTER TO MANUFACTURER LIST FILE FILE (#6912)
LAST EDITED: APR 11, 1997
DESCRIPTION:
Manufacturer of affected equipment.
6920,22 *EQUIPMENT MANUFACTURER 3;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 09, 1996
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION: This field is no longer used and it will be deleted by a future release. (Text representation of
manufacturer. Used to be automatically triggered.)
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,22.3 MODEL 3;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
Model number assigned to equipment under repair by the manufacturer.
6920,22.5 SERIAL NO. 3;7 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:
Serial number of affected equipment. Assigned by manufacturer.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,23 OWNER/DEPARTMENT 3;4 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: JUN 28, 1988
DESCRIPTION:
The service or section for whom work is to be performed.
6920,31 PARTS ORDERED ON ACC.# 4;2 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: FEB 24, 1993
DESCRIPTION:
The Control Point Activity Transaction for parts or services required to complete this task.
CROSS-REFERENCE: 6920^AE^MUMPS
1)= D:'$D(DIU(0)) ACC^ENLIB2
2)= Q
Gets data elements from the purchase order where possible.
6920,32 STATUS 4;3 SET
'1' FOR IN PROGRESS;
'2' FOR PENDING;
'3' FOR WAITING ON PARTS;
'4' FOR WAITING ON VENDOR SERVICE;
'5' FOR DISAPPROVED;
'6' FOR COMPLETED;
LAST EDITED: OCT 21, 1998
DESCRIPTION:
Added with Version 6.4. May be helpful when printing reports of M&R activity.
SCREEN: S DIC("S")="I $S(Y<5:1,Y>6:1,$D(^ENG(6920,DA,5)):$P(^(5),U,2)]"""",1:0)"
EXPLANATION: It is improper to explicitly set STATUS to COMPLETE or DISAPPROVED in the absence of a DATE COMPLET
E (OR CLOSED).
CROSS-REFERENCE: 6920^AH^MUMPS
1)= D:'$D(DIU(0)) MSG^ENWO2
2)= Q
Generate a message to users when their work order's status has changed.
CROSS-REFERENCE: 6920^AD^MUMPS
1)= D:X=5&'$D(DIU(0)) DELHS^ENEQHS
2)= Q
Remove disapproved work orders from the EQUIPMENT HISTORY (#50) multiple of the EQUIPMENT INV
(#6914) file.
6920,32.1 NOTIFICATION PREFERENCE 4;5 SET
'C' FOR COMPLETED STATUS;
'S' FOR STATUS CHANGED;
'N' FOR NO MESSAGE;
LAST EDITED: SEP 25, 1995
HELP-PROMPT: Indicate when changes to the work order status should result in a mail message to the requestor.
DESCRIPTION: This field will be checked to determine if a mail message should be sent to the requestor when the
status of an electronic work order is modified. ENG SOFTWARE OPTIONS 'NOTIFY W.O. REQUESTOR' must
be 'A' for this field to be asked during entry of a electronic work order. Note that a mail message
will always be sent when a work order is disapproved.
6920,32.2 NOTIFICATION MESSAGE 4;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1997
HELP-PROMPT: Type a Number between 1 and 9999999999, 0 Decimal Digits
DESCRIPTION: This field contains the message number of a computer generated notification message sent to the
requester. Any further notification messages are sent as responses to this message.
UNEDITABLE
6920,35 WORK ACTION 8;0 POINTER Multiple #6920.035 (Add New Entry without Asking)
DESCRIPTION:
Type of work performed or requested.
6920.035,.01 WORK ACTION 0;1 POINTER TO NEW WORK ACTION FILE (#6920.1) (Multiply asked)
INPUT TRANSFORM: D WA^ENLIB2
LAST EDITED: JUL 17, 1997
DESCRIPTION:
Type of work performed or requested.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,35.2 PM STATUS 5;8 SET
'P' FOR PASS;
'C' FOR CORRECTIVE ACTION TAKEN/REQUESTED;
'D0' FOR DEFERRED;
'D1' FOR DEFERRED, COULD NOT LOCATE;
'D2' FOR DEFERRED, IN USE;
'D3' FOR DEFERRED, OUT OF SERVICE OR LOANED OUT;
LAST EDITED: FEB 06, 1989
DESCRIPTION:
Outcome of preventive maintenance inspection. Useable for PM work orders only.
6920,35.5 WORK CENTER CODE 5;5 POINTER TO WORK CENTER CODE FILE (#6921)
LAST EDITED: APR 03, 1984
DESCRIPTION:
Category of task to which this work order most closely corresponds.
6920,36 DATE COMPLETE (or closed) 5;2 DATE
INPUT TRANSFORM: S %DT=$S($E($P(^ENG(6920,DA,0),U),1,3)="PM-":"P",1:"ETPX") D ^%DT S X=$$CDATE^ENWOUTL(Y) I X["^" K
X
LAST EDITED: APR 09, 1997
HELP-PROMPT: Completed work orders should reference equipment via the EQUIPMENT ID#.
DESCRIPTION:
Date on which work order is closed out.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6920^AI^MUMPS
1)= D:'$D(DIU(0)) TEST^ENWOCOMP
2)= D:'$D(DIU(0)) TEST^ENWOCOMP
Maintains the INCOMPLETE WORK ORDER list.
6920,37 TOTAL HOURS 5;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<.1)!(X?.E1"."3N.N) X
LAST EDITED: OCT 26, 1990
HELP-PROMPT: Type a Number between .1 and 9999, 2 Decimal Digits
DESCRIPTION:
Total man-hours by all assigned employees. Calculated by the system automatically.
6920,37.5 TOTAL LABOR COST 5;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: MAR 16, 1993
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION: Total labor cost chargeable to this work order. System will compute this value by multiplying the
HOURS of each TECHNICIAN ASSIGNED times his WAGE and totaling the results.
6920,38 TOTAL MATERIAL COST 5;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: MAR 16, 1993
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION:
Approximate cost of materials needed to complete this task.
6920,39 WORK PERFORMED (140 char max) 5;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)<3 X I $D(X),$L(X)>140 S X=$E(X,1,140) D EN^DDIOL("WORK PERFORMED has been truncated to 140
characters.")
LAST EDITED: DEC 06, 1996
HELP-PROMPT: Answer must be 3-140 characters in length.
DESCRIPTION: Brief description of work actually performed (may be extracted from COMMENTS field). The WORK
PERFORMED field will be saved in the EQUIPMENT (Inventory) File (No. 6914) where it will be a
permanent part of the device history. In contrast, the COMMENTS field will be removed from disk
(on-line) storage when the work order is archived.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6920,40 COMMENTS 6;0 WORD-PROCESSING #6920.01
DESCRIPTION:
General comments regarding this work request.
6920,45 ENG. TURN AROUND TIME ; COMPUTED
MUMPS CODE: S Y(6920,45,2)=$S($D(^ENG(6920,D0,0)):^(0),1:""),Y(6920,45,1)=$S($D(^(5)):^(5),1:"") S X=$P(Y(6920,
45,1),U,2),X1=X,X2=$P(Y(6920,45,2),U,2),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)
ALGORITHM: #36-#1 (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: JAN 04, 1993
DESCRIPTION:
Number of days between work order request and work order completion.
6920,46 TECH TURN AROUND TIME ; COMPUTED
MUMPS CODE: S Y(6920,46,2)=$S($D(^ENG(6920,D0,4)):^(4),1:""),Y(6920,46,1)=$S($D(^(5)):^(5),1:"") S X=$P(Y(6920,
46,1),U,2),X1=X,X2=$P(Y(6920,46,2),U,1),X="" D:X2 ^%DTC:X1
ALGORITHM: #36-#10
LAST EDITED: SEP 29, 1983
DESCRIPTION:
Number of days between assignment of shop and work order completion.
6920,47 VENDOR SERVICE COST 4;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
LAST EDITED: OCT 08, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
DESCRIPTION:
Approximate cost of vendor services needed to complete this task.
FILES POINTED TO FIELDS
CONTROL POINT ACTIVITY (#410) PARTS ORDERED ON ACC.# (#31)
ENG EMPLOYEE (#6929) PRIMARY TECH ASSIGNED (#16)
TECHNICIANS ASSIGNED:ASSIGNED TECH (#.01)
ENG SPACE (#6928) LOCATION (#3)
ENGINEERING SECTION LIST
(#6922) SHOP (#9)
TECHNICIANS ASSIGNED:SHOP (#2)
EQUIPMENT INV. (#6914) EQUIPMENT ID# (#18)
MANUFACTURER LIST FILE (#6912) MANUFACTURER (#21.9)
NEW PERSON (#200) ENTERED BY (#7.5)
NEW WORK ACTION (#6920.1) WORK ACTION:WORK ACTION (#.01)
SERVICE/SECTION (#49) OWNER/DEPARTMENT (#23)
WORK CENTER CODE (#6921) WORK CENTER CODE (#35.5)
INPUT TEMPLATE(S):
ENPMCLOSE APR 10, 1997@16:37 USER #0
ENWOBIOCLSE OCT 09, 1996@15:31 USER #0
ENWOCLOSE OCT 09, 1996@15:22 USER #0
ENWODISAP SEP 27, 1995@10:32 USER #0
ENWOEDIT OCT 21, 1998@14:40 USER #0
ENWONEW MAR 17, 1997@13:26 USER #0
ENWONEWCLOSE SEP 27, 1995@10:40 USER #0
ENWOWARD DEC 27, 1996@12:35 USER #0
ENWOWARDXFER DEC 09, 1996@17:24 USER #0
ENWOXFER MAR 17, 1993@16:29 USER #485
ENY2CLOSE MAR 06, 1998@12:03 USER #0
PRINT TEMPLATE(S):
EN EQ HIST SEP 11, 1996@11:13 USER #0 [EN EQ HIST HD]
EN EQ HIST HD SEP 11, 1996@11:15 USER #0 @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):