Global: ^ENG(6920

FileMan FileNo	FileMan Filename	Package
6920	WORK ORDER #	Engineering

Package	Total	Routines
Engineering	66	ENAEMS ENARG2 ENARG21 ENARG23 ENBCPM4 ENBCPM6 ENBCPM7 ENBCPM9 ENEQ4 ENEQHS ENEQNX2 ENEQPMR1 ENEQPMR2 ENEQPMR3 ENEQPMR4 ENEQPMR5 ENEQPMR6 ENEQPMS4 ENEQPMS5 ENETRAN ENETRAN1 ENETRAN2 ENEWOD ENEWOD1 ENLBL11 ENLIB1 ENLIB2 ENPAT35 ENPMCLOSE ENPOST ENSA4 ENSA8 ENSA9 ENWARD ENWARD2 ENWO1 ENWO2 ENWOCOMP ENWOD ENWOD1 ENWOD2 ENWOEDIT ENWOINV ENWOLD ENWOME ENWONEW ENWONEW1 ENWONEW2 ENWONEW3 ENWOP ENWOP1 ENWOP2 ENWOP3 ENWOREP ENWOUTL ENX5IP ENXIP65 ENY2K4 ENY2K5 ENY2KR ENY2KR1 ENY2UTL TECHNICIANS ASSIGNED ^ENG("SP" ^ENG(6920 ^OFM(7336.9
Equipment Turn-In Request	1	PRCNTIPP

Package	Total	Routines
Engineering	44	ENARG21 ENARG23 ENBCPM4 ENBCPM6 ENBCPM7 ENBCPM9 ENEQ4 ENEQPMR1 ENEQPMR2 ENEQPMR3 ENEQPMR4 ENEQPMR5 ENEQPMR6 ENEQPMS4 ENEQPMS5 ENETRAN1 ENETRAN2 ENEWOD ENPAT35 ENPOST ENSA4 ENSA8 ENSA9 ENWARD ENWARD2 ENWO1 ENWO2 ENWOD ENWOD1 ENWOD2 ENWOLD ENWOME ENWOME1 ENWONEW ENWONEW1 ENWONEW2 ENWONEW3 ENWOP3 ENWOUTL ENY2K4 ENY2K5 ENY2KR ENY2KR1 ENY2UTL

Package	Total	FileMan Files
IFCAP	2	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[51] CONTROL POINT ACTIVITY(#410)[49]
Engineering	1	EQUIPMENT INV.(#6914)[78]
Equipment Turn-In Request	1	TURN-IN REQUEST(#413.1)[13, #413.11(11)]

Package	Total	FileMan Files
Engineering	7	WORK CENTER CODE(#6921)[35.5] ENGINEERING SECTION LIST(#6922)[9, #6920.02(2)] ENG EMPLOYEE(#6929)[16, #6920.02(.01)] MANUFACTURER LIST FILE(#6912)[21.9] ENG SPACE(#6928)[3] EQUIPMENT INV.(#6914)[18] NEW WORK ACTION(#6920.1)[#6920.035(.01)]
Kernel	2	SERVICE/SECTION(#49)[23] NEW PERSON(#200)[7.5]
IFCAP	1	CONTROL POINT ACTIVITY(#410)[31]

Fields, Total: 40

Field #	Name	Loc	Type	Details
.01	WORK ORDER #	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
.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)`
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`
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.`
3	LOCATION	0;4	POINTER TO ENG SPACE FILE (#6928)	ENG SPACE(#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)`
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`
6	TASK DESCRIPTION (60 char)	1;2	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
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`
7.5	ENTERED BY	1;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
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`
9	SHOP	2;1	POINTER TO ENGINEERING SECTION LIST FILE (#6922)	**********************REQUIRED FIELD********************** ENGINEERING SECTION LIST(#6922) 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.`
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.`
16	PRIMARY TECH ASSIGNED	2;2	POINTER TO ENG EMPLOYEE FILE (#6929)	ENG EMPLOYEE(#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).`
16.5	TECHNICIANS ASSIGNED	7;0	POINTER Multiple #6920.02	6920.02 DESCRIPTION: `Employee(s) assigned to perform this work.`
17	PRIORITY	2;3	SET	**********************REQUIRED FIELD********************** '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.`
18	EQUIPMENT ID#	3;8	POINTER TO EQUIPMENT INV. FILE (#6914)	EQUIPMENT INV.(#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`
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)`
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)`
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`
21.9	MANUFACTURER	3;9	POINTER TO MANUFACTURER LIST FILE FILE (#6912)	MANUFACTURER LIST FILE(#6912) LAST EDITED: `APR 11, 1997` DESCRIPTION: `Manufacturer of affected equipment.`
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`
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.`
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`
23	OWNER/DEPARTMENT	3;4	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `JUN 28, 1988` DESCRIPTION: `The service or section for whom work is to be performed.`
31	PARTS ORDERED ON ACC.#	4;2	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	CONTROL POINT ACTIVITY(#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.`
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 COMPLETE (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.`
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.`
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`
35	WORK ACTION	8;0	POINTER Multiple #6920.035	6920.035 DESCRIPTION: `Type of work performed or requested.`
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.`
35.5	WORK CENTER CODE	5;5	POINTER TO WORK CENTER CODE FILE (#6921)	WORK CENTER CODE(#6921) LAST EDITED: `APR 03, 1984` DESCRIPTION: `Category of task to which this work order most closely corresponds.`
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.`
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.`
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.`
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.`
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`
40	COMMENTS	6;0	WORD-PROCESSING #6920.01	DESCRIPTION: `General comments regarding this work request.`
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.`
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.`
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.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1344	EQUIPMENT/TURN-IN REQUEST	WORK ORDER # (.01). Access: Pointed to DATE COMPLETE (or closed) (36). Access: Read w/Fileman	Equipment/Turn-In Request packages checks for each WORKORDER # generated for a item to be turned in, if the status is COMPLETED.
ICR #3656	M DATA EXTRACTOR
ICR #6494	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	WORK ORDER # (.01). Access: Both R/W w/Fileman ORIGINAL WORK ORDER # (.05). Access: Both R/W w/Fileman REQUEST DATE (1). Access: Both R/W w/Fileman REQUEST MODE (2). Access: Direct Global Read & w/Fileman LOCATION (3). Access: Both R/W w/Fileman BED # (4). Access: Both R/W w/Fileman ENTERED BY (7.5). Access: Both R/W w/Fileman TASK DESCRIPTION (60 char) (6). Access: Both R/W w/Fileman CONTACT PERSON (7). Access: Both R/W w/Fileman PHONE (8). Access: Both R/W w/Fileman SHOP (9). Access: Both R/W w/Fileman PRIMARY TECH ASSIGNED (16). Access: Both R/W w/Fileman PRIORITY (17). Access: Both R/W w/Fileman PMI NUMBER (20). Access: Both R/W w/Fileman EQUIPMENT CATEGORY (21). Access: Both R/W w/Fileman OWNER/DEPARTMENT (23). Access: Both R/W w/Fileman LOCAL IDENTIFIER (19). Access: Both R/W w/Fileman MODEL (22.3). Access: Both R/W w/Fileman SERIAL NO. (22.5). Access: Both R/W w/Fileman EQUIPMENT ID# (18). Access: Both R/W w/Fileman MANUFACTURER (21.9). Access: Both R/W w/Fileman DATE ASSIGNED (10). Access: Both R/W w/Fileman PARTS ORDERED ON ACC.# (31). Access: Both R/W w/Fileman STATUS (32). Access: Both R/W w/Fileman VENDOR SERVICE COST (47). Access: Both R/W w/Fileman NOTIFICATION PREFERENCE (32.1). Access: Both R/W w/Fileman NOTIFICATION MESSAGE (32.2). Access: Both R/W w/Fileman DATE COMPLETE (or closed) (36). Access: Both R/W w/Fileman TOTAL HOURS (37). Access: Both R/W w/Fileman TOTAL MATERIAL COST (38). Access: Both R/W w/Fileman WORK CENTER CODE (35.5). Access: Both R/W w/Fileman TOTAL LABOR COST (37.5). Access: Both R/W w/Fileman WORK PERFORMED (39). Access: Both R/W w/Fileman PM STATUS (35.2). Access: Both R/W w/Fileman COMMENTS (.01). Access: Both R/W w/Fileman ASSIGNED TECH (.01). Access: Both R/W w/Fileman HOURS (1). Access: Both R/W w/Fileman SHOP (2). Access: Both R/W w/Fileman WORK ACTION (.01). Access: Both R/W w/Fileman	File 6920 "B" Cross reference used to look up by WORKORDER #File 6920 "C" Cross reference used to look up byLOCATIONFile 6920 "D" Cross reference used to look up by TASKDESCRIPTIONFile 6920 "G" Cross reference used to look up byEQUIPMENT ID#File 6920 "H" Cross reference used to look up byORIGINAL WORK ORDER #File 6920 "AINC" Cross reference used to look up openwork orders
ICR #7161	ENTERPRISE REPORTING TOOL	WORK ORDER # (.01). Access: Direct Global Read & w/Fileman

Name	Field # of Occurrence
^%DT	1+1, 10+1, 36+1
^%DTC	45+1, 46+1
EN^DDIOL	39+1
^DIC	16+1
Y^DIQ	ID3+1
DELHS^ENEQHS	32(XREF 2S)
TECH^ENLIB1	16(XREF 1S)
ACC^ENLIB2	31(XREF 1S)
MSG^ENWO2	32(XREF 1S)
TEST^ENWOCOMP	9(XREF 1S), 36(XREF 1S), 36(XREF 1K)
KI^ENWOINV	18(XREF 2K)
ST^ENWOINV	18(XREF 2S)
$$CDATE^ENWOUTL	36+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(6928	ID3+1
^ENG("SP" - [#6928]	ID3+1
^ENG(6920 - [#6920]	.01DEL1+1, .01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), 1+1, 3(XREF 1S), 3(XREF 1K), 6(XREF 1S), 6(XREF 1K) , 9(XREF 1K), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 20(XREF 1S), 20(XREF 1K), 36+1, 45+1, 46+1

Name	Field # of Occurrence
^(0	ID3+1, 45+1
^(1	ID6+1
^(3	.01DEL1+1
^(4	46+1
^(5	.01DEL1+1, 45+1, 46+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Engineering

Global: ^ENG(6920

Information

Description

Directly Accessed By Routines, Total: 69

Accessed By FileMan Db Calls, Total: 44

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 10

Fields, Total: 40

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
>> %DT	1+1, 10+1, 36+1*
%I	ID3+1*!
>> C	ID3+1*
>> D0	45+1, 46+1
>> DA	.01DEL1+1, .01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), 1+1, 3(XREF 1S), 3(XREF 1K), 6(XREF 1S), 6(XREF 1K) , 9(XREF 1K), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 20(XREF 1S), 20(XREF 1K), 36+1
DIC	ID3+1, 16+1!*
DIC("S"	16+1, 16SCR+1, 32SCR+1*
>> DIE	16+1
>> DIU(0	9(XREF 1S), 16(XREF 1S), 18(XREF 2S), 18(XREF 2K), 31(XREF 1S), 32(XREF 1S), 32(XREF 2S), 36(XREF 1S), 36(XREF 1K)
U	ID3+1, ID6+1, 1+1, 36+1, 45+1, 46+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .05+1!, .05(XREF 1S), .05(XREF 1K), 1+1!, 3(XREF 1S), 3(XREF 1K), 4+1! , 6+1!, 6(XREF 1S), 6(XREF 1K), 7+1!, 8+1!, 9(XREF 1K), 10+1!, 16+1!, 18(XREF 1S), 18(XREF 1K) , 19+1!, 19(XREF 1S), 19(XREF 1K), 20+1!, 20(XREF 1S), 20(XREF 1K), 21+1!, 22+1!, 22.3+1!, 22.5+1! , 32(XREF 2S), 32.2+1!, 36+1!, 37+1!, 37.5+1!, 38+1!, 39+1!, 45+1, 46+1, 47+1!
>> X1	45+1, 46+1
>> X2	45+1, 46+1
>> Y	ID3+1*, 1+1, 10+1, 16+1, 36+1
>> Y(6920	45+1, 46+1