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

Package: Equipment Turn-In Request

TURN-IN REQUEST(#413.1)-->413.11

Sub-Field: 413.11


Information

Parent File Name Number Package
TURN-IN REQUEST(#413.1) TURN-IN LINE ITEM 413.11 Equipment Turn-In Request

Details

Field # Name Loc Type Details
.001 TURN-IN LINE ITEM NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 07, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the sequential internal number for each line item.
.01 REPLACEMENT ITEM NUMBER 0;1 POINTER TO EQUIPMENT INV. FILE (#6914) EQUIPMENT INV.(#6914)

  • INPUT TRANSFORM:  D INP^PRCNTIRQ
  • LAST EDITED:  FEB 26, 1996
  • HELP-PROMPT:  Please select the entry from the Equipment Inventory file that you wish to turn-in.
  • DESCRIPTION:  
    This is a pointer to the item in the inventory that is being replaced.
  • EXECUTABLE HELP:  S DV="" D EQHLP^PRCNUTL1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  413.11^B
    1)= S ^PRCN(413.1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^PRCN(413.1,DA(1),1,"B",$E(X,1,30),DA)
    This is the regular cross-reference by line item.
  • CROSS-REFERENCE:  413.1^AB
    1)= S ^PRCN(413.1,"AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^PRCN(413.1,"AB",$E(X,1,30),DA(1),DA)
    This cross-reference is used to check to see if an inventoried item already has a turn-in request on file.
  • CROSS-REFERENCE:  ^^TRIGGER^413.11^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCN(413.1,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(413.11,.01,1,3,1.1) X ^DD(413.11,.01,1,3,1.4)
    1.1)= S X=DIV S X=$P(^ENG(6914,X,0),U,2)
    1.4)= S DIH=$S($D(^PRCN(413.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=413.11,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCN(413.1,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(413.11,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^PRCN(413.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=413.11,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P(^ENG(6914,X,0),U,2)
    DELETE VALUE)= @
    FIELD)= #3
    This is triggered from the Equipment Inventory file
.5 JUSTIFICATION 0;11 SET
************************REQUIRED FIELD************************
  • '1' FOR Fair wear and tear;
  • '2' FOR Excess equipment failure/repair;
  • '3' FOR Upgrade;
  • '4' FOR State-of-art technology;
  • '5' FOR Replacement due to loss or damage;
  • '6' FOR Other;

  • LAST EDITED:  DEC 18, 1992
  • DESCRIPTION:  
    This is the reason why the item is requested to be turned in.
.7 OTHER JUSTIFICATION 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  DEC 18, 1992
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • DESCRIPTION:  
    This field is for a free text if 'OTHER' justification is selected.
1 DISPOSAL CONDITION CODE 0;2 SET
  • '1' FOR Unused-Good;
  • '2' FOR Unused-Fair;
  • '3' FOR Unused-Poor;
  • '4' FOR Used-Good;
  • '5' FOR Used-Fair;
  • '6' FOR Used-Poor;
  • '7' FOR Repairs Required-15% of a/c or less;
  • '8' FOR Repairs Required-16%-40% of a/c;
  • '9' FOR Repairs Required-41%-65% of a/c;
  • 'X' FOR Salvage;
  • 'S' FOR Scrap;

  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This field is to designate the condition of the equipment that was turned in.  Equipment that is in fair to good condition could be sent to another medical center needing it.
2 EQUIP REQUEST LINE ITEM 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 22, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the corresponding Equipment Request Line Item Number from the Equipment Request File (413).
  • CROSS-REFERENCE:  413.11^AC
    1)= S ^PRCN(413.1,DA(1),1,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCN(413.1,DA(1),1,"AC",$E(X,1,30),DA)
    This cross-reference is to be used to check against the quantity of equipment request line item for editing/entering associated replacement items.
3 DESCRIPTION 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  NOV 12, 1993
  • HELP-PROMPT:  Enter the item description
  • DESCRIPTION:  
    This field is for a free text description of the line item to be turned in.
  • NOTES:  TRIGGERED by the REPLACEMENT ITEM NUMBER field of the TURN-IN LINE ITEM sub-field of the TURN-IN REQUEST File
4 UTILITY DISCONNECT? 0;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 05, 1992
  • HELP-PROMPT:  Does this item need special Engineering disconnect?
  • DESCRIPTION:  
    This field is answered 'Y'es if the line item needs to be disconnected by the Engineering department.
5 VOUCHER # 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  NOV 05, 1992
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    This field is for a voucher number if the turned in item can be sold.
11 WORK ORDER # 0;14 POINTER TO WORK ORDER # FILE (#6920) WORK ORDER #(#6920)

  • LAST EDITED:  MAR 29, 1994
  • DESCRIPTION:  
    This is the work order number that is processed by Engineering if the turn-in item must be disconnected or removed by the Engineering department.
12 WORK ORDER NEEDED 0;8 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAR 07, 1996
  • HELP-PROMPT:  Enter 'Y'es if a work order will be needed to process turn-in item.
  • DESCRIPTION:  
    This field will be entered by the CMR Responsible Official on whether a work order will be needed to process the item(s) to be turned-in.
Info |  Details |  All