Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 6914.02

Package: Engineering

EQUIPMENT INV.(#6914)-->6914.02

Sub-Field: 6914.02


Information

Parent File Name Number Package
EQUIPMENT INV.(#6914) EQUIPMENT HISTORY 6914.02 Engineering

Details

Field # Name Loc Type Details
.01 HISTORY REFERENCE 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<5)!'(X?.ANP) X I $G(DIUTIL)'="VERIFY FIELDS" S DINUM=9999999-DT*10 I $D(^ENG(6914,DA,6,DINUM,0)) F S DINUM=DINUM-1 Q:'$D(^ENG(6914,DA,6,DINUM))
  • OUTPUT TRANSFORM:  S Y=$E(Y,2,20)
  • LAST EDITED:  FEB 24, 1998
  • HELP-PROMPT:  ANSWER MUST BE 5-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Reflects date on which Work Order was posted to EQUIPMENT INV. file, and type of work performed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 W.O. REFERENCE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5)!'(X?.ANP) X
  • LAST EDITED:  SEP 11, 1996
  • HELP-PROMPT:  Answer must be 5-17 characters in length.
  • DESCRIPTION:  
    The number of the Engineering work order that resulted in this posting.
2 PM STATUS 0;3 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:  APR 26, 1989
  • DESCRIPTION:  
    If this posting is the result of a preventive maintenance (PM) inspection, this field should be used to indicate the outcome of that PM. Field should be left blank in cases of regular (unscheduled) work action.
3 HOURS SPENT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2080)!(X<0)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 2080
  • DESCRIPTION:  
    Total hours spent in completion of subject work order. Calculated by a routine that runs automatically when work orders are closed out.
4 LABOR $ 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Labor cost associated with subject work order. Calculated on the basis of wage information from the Engineering Employee File by a routine that runs automatically when work orders are closed out.
5 MATERIAL $ 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Cost of materials used in performing this work action. Data is manually entered into the Work Order File and automatically extracted from the work order into the Equipment History when the work order is closed out.
6 VENDOR $ 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Amount paid to vendor on account of subject work action. Entered manually (if applicable) when work orders are closed out.
7 WORKER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3)!'(X?.ANP) X
  • HELP-PROMPT:  ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    First 15 characters of the name of the PRIMARY TECHNICIAN as it appears in the Engineering Employee File.
8 TOTAL COST COMPUTED

  • MUMPS CODE:  S Y(6914.02,8,1)=$S($D(^ENG(6914,D0,6,D1,0)):^(0),1:"") S X=$P(Y(6914.02,8,1),U,5)+$P(Y(6914.02,8,1),U,6)+$P(Y(6914.02,8,1),U,7)
  • ALGORITHM:  LABOR $+MATERIAL $+VENDOR $
  • DESCRIPTION:  
    Total cost of work action being posted. Computed field.
9 WORK PERFORMED 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>140!($L(X)<3) X
  • LAST EDITED:  JUN 26, 1996
  • HELP-PROMPT:  Answer must be 3-140 characters in length.
  • DESCRIPTION:  
    Brief description of what was done via subject work action. Automatically extracted from the Work Order File.
Info |  Details