STANDARD DATA DICTIONARY #58.3 -- PHARMACY BACKORDER FILE 3/24/25 PAGE 1
STORED IN ^PSI(58.3, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains information that pertains to backorders, such as the date/time of backorder, the AOU for which the item was
backordered, and the quantity backordered.
APPLICATION GROUP(S): PSGW
CROSS
REFERENCED BY: ITEM(B), AOU(C), DATE/TIME FOR BACKORDER(D)
58.3,.01 ITEM 0;1 POINTER TO DRUG FILE (#50) (Required)
LAST EDITED: MAR 05, 1985
DESCRIPTION:
This contains the name of the item being backordered.
CROSS-REFERENCE: 58.3^B
1)= S ^PSI(58.3,"B",$E(X,1,30),DA)=""
2)= K ^PSI(58.3,"B",$E(X,1,30),DA)
58.3,1 AOU 1;0 POINTER Multiple #58.31 (Add New Entry without Asking)
DESCRIPTION:
Enter the name of the Area Of Use for which the item has been backordered
58.31,.01 AOU 0;1 POINTER TO PHARMACY AOU STOCK FILE (#58.1) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: FEB 13, 1990
HELP-PROMPT: Enter Area of Use for item being backordered.
DESCRIPTION:
This contains the name of the Area of Use for which the item is being backordered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.3^C
1)= S ^PSI(58.3,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^PSI(58.3,"C",$E(X,1,30),DA(1),DA)
58.31,1 DATE/TIME FOR BACKORDER 1;0 DATE Multiple #58.32
DESCRIPTION:
Enter the inventory date/time for the item being backordered.
58.32,.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)
58.32,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(^PS
I(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.
58.32,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
58.32,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.
58.32,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.
FILES POINTED TO FIELDS
DRUG (#50) ITEM (#.01)
PHARMACY AOU STOCK (#58.1) AOU:AOU (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):