Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

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.`