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: 58.32

Package: Auto Replenishment Ward Stock

PHARMACY BACKORDER(#58.3)-->58.31-->58.32

Sub-Field: 58.32


Information

Parent File Name Number Package
58.31 DATE/TIME FOR BACKORDER 58.32 Auto Replenishment Ward Stock

Details

Field # Name Loc Type Details
.01 DATE/TIME FOR BACKORDER 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 29, 1988
  • HELP-PROMPT:  Enter DATE/TIME for this backorder.
  • DESCRIPTION:  
    This contains the backorder date/time for the item being backordered.
  • CROSS-REFERENCE:  58.3^D
    1)= S ^PSI(58.3,"D",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^PSI(58.3,"D",$E(X,1,30),DA(2),DA(1),DA)
1 CURRENT BACKORDER 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 19, 1985
  • HELP-PROMPT:  Type a whole number between 0 and 999999
  • DESCRIPTION:  
    This contains the quantity backordered (Amount to be dispensed - Actual Dispensed).
  • CROSS-REFERENCE:  ^^TRIGGER^58.32^2
    1)= X ^DD(58.32,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PSI(58.3,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3) S DIU=X K Y S X=DIV S X=DIV X ^DD(58.32,1,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^PSI(58.3,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3)=""
    1.4)= S DIH=$S($D(^PSI(58.3,DIV(0),1,DIV(1),1,DIV(2),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=58.32,DIG=2 D ^DICR
    :$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= ORIGINAL BACKORDER=""
    CREATE VALUE)= CURRENT BACKORDER
    DELETE VALUE)= NO EFFECT
    FIELD)= ORIGINAL
    This cross-reference sets the field ORIGINAL BACKORDER (58.32,2). This trigger is only executed when a backorder is first entered.
2 ORIGINAL BACKORDER 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 10, 1985
  • HELP-PROMPT:  Type a whole number between 0 and 999999
  • DESCRIPTION:  
    If the backorder quantity is partially filled, this stores the amount of the original backorder.
  • NOTES:  TRIGGERED by the CURRENT BACKORDER field of the DATE/TIME FOR BACKORDER sub-field of the AOU sub-field of the PHARMACY BACKORDER File
3 DATE OF LAST CHG 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 10, 1985
  • DESCRIPTION:  
    This identifies the date that the backorder quantity was edited or partially filled.
4 DATE FILLED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1987
  • DESCRIPTION:  
    This identifies the date that the backorder quantity was completely filled.
Info |  Details |  All