STANDARD DATA DICTIONARY #58.19 -- PHARMACY AOU INVENTORY FILE 6/27/25 PAGE 1
STORED IN ^PSI(58.19, *** 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 each individual inventory such as date/time of inventory, responsible employee, ID
number, and inventory group.
*** NOTE *** There is a cross-reference called "AINV" that is not VA FileMan compatible and has SACC exemption which allows its
use. If you create any local cross-references for this file DO NOT use the name "AINV" as this will overwrite the existing
cross-reference.
APPLICATION GROUP(S): PSGW
IDENTIFIED BY: PERSON DOING INVENTORY (#1)[R], DAY OF WEEK (#2)
"WRITE": S GRP=$P(^PSI(58.19,Y,0),U,4) W !,?6 F LP=2:1:($L(GRP,",")-1) S PC=$P(GRP,",",LP) W $S($D(^PSI(58.2,PC,0)):$P(^(0),U
),1:"") W:LP<($L(GRP,",")-1) ", "
POINTED TO BY: DATE/TIME FOR INVENTORY field (#.01) of the INVENTORY sub-field (#58.12) of the ITEM sub-field (#58.11) of the
PHARMACY AOU STOCK File (#58.1)
CROSS
REFERENCED BY: DATE/TIME FOR INVENTORY(B)
58.19,.001 ID NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Number that uniquely identifies this inventory.
DESCRIPTION:
This contains a number that uniquely identifies this inventory.
58.19,.01 DATE/TIME FOR INVENTORY 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 14, 1993
HELP-PROMPT: Enter date/time when inventory of ward(s) was taken.
DESCRIPTION: This contains the date that the AOU inventory takes place for Automatic Replenishment. Primary
inventory information is stored here. Inventory entries in File 58.1 - the Pharmacy AOU Stock File
point to this value when processing an inventory.
DELETE TEST: .01,0)= I 1 W !,"INVENTORIES MAY NOT BE DELETED!"
CROSS-REFERENCE: ^^TRIGGER^58.19^2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(58.19,2,0)):$P(^(0),U,3),1:""),Y(1)=$S($D
(^PSI(58.19,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1) S DIU=X K Y X ^DD
(58.19,.01,1,2,1.1) X ^DD(58.19,.01,1,2,1.4)
1.1)= S X=DIV S X=DIV D DW^%DTC S X=X,Y(1)=X S X=1,Y(2)=X S X=3,X=$E(Y(1),Y(2),X)
1.4)= S DIH=$S($D(^PSI(58.19,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_D
IV_$S(%]"":U_%,1:""),DIH=58.19,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= $E(DAYOFWEEK(#.01),1,3)
DELETE VALUE)= NO EFFECT
FIELD)= DAY
This cross-reference sets the DAY OF THE WEEK (58.19,2) from the date selected.
CROSS-REFERENCE: ^^TRIGGER^58.19^1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSI(58.19,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(
Y(1),U,3),0)):"",1:$P(^(0),U,1)) S DIU=X K Y X ^DD(58.19,.01,1,3,1.1) X ^DD(58.19,.01,1,3,1.4)
1.1)= S X=DIV S X=$S($D(DUZ):DUZ,1:0) S X=X
1.4)= S DIH=$S($D(^PSI(58.19,DIV(0),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),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=58.19,DIG=1 D ^DICR:$N(^DD(D
IH,DIG,1,0))>0
2)= Q
CREATE VALUE)= USER#
DELETE VALUE)= NO EFFECT
FIELD)= PERSON
This cross-reference sets the field PERSON DOING INVENTORY (58.19,1) using the variable DUZ.
CROSS-REFERENCE: 58.19^B
1)= S ^PSI(58.19,"B",$E(X,1,30),DA)=""
2)= K ^PSI(58.19,"B",$E(X,1,30),DA)
58.19,.5 AREA OF USE 1;0 POINTER Multiple #58.24 (Add New Entry without Asking)
58.24,.01 AREA OF USE (AOU) 0;1 POINTER TO PHARMACY AOU STOCK FILE (#58.1) (Required) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: FEB 13, 1990
DESCRIPTION:
This contains the name of the Area of Use as defined in File 58.1 - Pharmacy AOU Stock File.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.24^B
1)= S ^PSI(58.19,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PSI(58.19,DA(1),1,"B",$E(X,1,30),DA)
58.24,1 INVENTORY TYPE 1;0 POINTER Multiple #58.25 (Add New Entry without Asking)
58.25,.01 INVENTORY TYPE 0;1 POINTER TO AOU INVENTORY TYPE FILE (#58.16) (Required) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: FEB 13, 1990
DESCRIPTION: This defines the Inventory Type which will be used to select the appropriate items from this
AOU for inventory.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.24,2 SORT KEY 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 31, 1989
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: The sort key is used to place the AOUs within an Inventory Group in the order in which they are
inventoried. This sort order is reflected in the inventory sheet.
CROSS-REFERENCE: 58.24^C
1)= S ^PSI(58.19,DA(1),1,"C",$E(X,1,30),DA)=""
2)= K ^PSI(58.19,DA(1),1,"C",$E(X,1,30),DA)
58.19,1 PERSON DOING INVENTORY 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Enter name of person primarily responsible for this inventory.
DESCRIPTION:
This points to File 200 - the New Person File, identifying the person who creates the inventory.
NOTES: TRIGGERED by the DATE/TIME FOR INVENTORY field of the PHARMACY AOU INVENTORY File
58.19,2 DAY OF WEEK 0;2 SET
'MON' FOR MONDAY;
'TUE' FOR TUESDAY;
'WED' FOR WEDNESDAY;
'THU' FOR THURSDAY;
'FRI' FOR FRIDAY;
'SAT' FOR SATURDAY;
'SUN' FOR SUNDAY;
HELP-PROMPT: Enter day of the week on which the inventory was done.
DESCRIPTION:
This contains the day of the week when the inventory was done.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the DATE/TIME FOR INVENTORY field of the PHARMACY AOU INVENTORY File
58.19,3 INVENTORY GROUP 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: FEB 28, 1990
HELP-PROMPT: Answer must be 1-25 characters in length
DESCRIPTION: This points to File 58.2 - AOU Inventory Group File. It contains the inventory group - cluster of
AOUs which are inventoried together.
FILES POINTED TO FIELDS
AOU INVENTORY TYPE (#58.16) INVENTORY TYPE:INVENTORY TYPE (#.01)
NEW PERSON (#200) PERSON DOING INVENTORY (#1)
PHARMACY AOU STOCK (#58.1) AREA OF USE:AREA OF USE (AOU) (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):