Select the objects that you wish to see in the downloaded PDF
S X=+X_"01",%DT="EX" D ^%DT S X=$E(Y,1,5) K:Y<1 X S:$D(X) DINUM=X
MAY 19, 1986
Enter year and month (not day) in internal storage format. (EX. 28601 for Jan., 1986).
This is the month and year when the item was used or issued.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."1N.N) X
TYPE A WHOLE NUMBER BETWEEN -999999 AND 999999
This is the quantity, in unit of issue, of the item used or issued.
K:+X'=X!(X>99999999.999)!(X<-99999999.999)!(X?.E1"."4N.N) X
MAY 20, 1986
TYPE A NUMBER BETWEEN -99999999.999 AND 99999999.999 (UP TO 3 DECIMAL PLACES)
This is the total cost of all stock of this item which was used or issued.