STANDARD DATA DICTIONARY #58.5 -- AR/WS STATS FILE FILE 9/29/25 PAGE 1
STORED IN ^PSI(58.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the data necessary to generate the AMIS statistics for AR/WS. This data is accumulated automatically by a
queued nightly job.
*** NOTE *** There are two cross-references that exist under this file that are created in the Pharmacy AOU Stock file (#58.1).
The xref names are "AMIS" and "AMISERR", if you create any local xrefs for this file (#58.5) DO NOT use these names as it will
overwrite the existing xrefs.
CROSS
REFERENCED BY: MISSING DATA(AEX), DATE(B), DRUG(D)
58.5,.01 DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
LAST EDITED: MAR 02, 1990
DESCRIPTION:
This contains the date for which AMIS data is collected.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.5^B
1)= S ^PSI(58.5,"B",$E(X,1,30),DA)=""
2)= K ^PSI(58.5,"B",$E(X,1,30),DA)
58.5,1 INPATIENT SITE S;0 POINTER Multiple #58.501 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),""^"",26)"
EXPLANATION: Enter only sites that are selectable for AR/WS.
58.501,.01 INPATIENT SITE 0;1 POINTER TO INPATIENT SITE FILE (#59.4) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
DESCRIPTION: This field contains the pointer to the INPATIENT SITE file (#59.4) for which the AMIS data is
collected.
SCREEN: S DIC("S")="I $P(^(0),""^"",26)"
EXPLANATION: Enter only sites that are selectable for AR/WS.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.501^B
1)= S ^PSI(58.5,DA(1),"S","B",$E(X,1,30),DA)=""
2)= K ^PSI(58.5,DA(1),"S","B",$E(X,1,30),DA)
58.501,1 AMIS AMIS;0 SET Multiple #58.51
58.51,.01 AMIS FIELD 0;1 SET (Multiply asked)
'03' FOR FIELD 03;
'04' FOR FIELD 04;
'06' FOR FIELD 06;
'07' FOR FIELD 07;
'17' FOR FIELD 17;
'22' FOR FIELD 22;
DESCRIPTION: AMIS FIELD identifies which field is to be credited for AMIS purposes. These fields will be
"03", "04", "06", "07", "17", or "22".
CROSS-REFERENCE: 58.51^FLD
1)= S ^PSI(58.5,DA(2),"S",DA(1),"AMIS","FLD",$E(X,1,30),DA)=""
2)= K ^PSI(58.5,DA(2),"S",DA(1),"AMIS","FLD",$E(X,1,30),DA)
58.51,1 DOSES DISPENSED 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
LAST EDITED: FEB 27, 1990
HELP-PROMPT: Type a Number between -9999999 and 9999999, 0 Decimal Digits
DESCRIPTION:
DOSES DISPENSED = QUANTITY DISPENSED * AMIS CONVERSION NUMBER
58.51,2 DISPENSED COST 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."7N.N) X
LAST EDITED: NOV 02, 1989
HELP-PROMPT: Type a Number between -9999999 and 9999999, 6 Decimal Digits
DESCRIPTION:
DISPENSED COST = QUANTITY DISPENSED * PRICE PER DISPENSE UNIT.
58.51,3 DOSES RETURNED 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a whole number between 1 and 999999
DESCRIPTION:
DOSES RETURNED = QUANTITY RETURNED * AMIS CONVERSION NUMBER
58.51,4 RETURNS COST 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
LAST EDITED: NOV 02, 1989
HELP-PROMPT: Type a Number between 0 and 9999999, 6 Decimal Digits
DESCRIPTION:
RETURNS COST = QUANTITY RETURNED * PRICE PER DISPENSE UNIT
58.501,2 RECALCULATE AMIS DRG;0 POINTER Multiple #58.52
58.52,.01 DRUG 0;1 POINTER TO DRUG FILE (#50) (Multiply asked)
DESCRIPTION: This contains the internal drug number of the drug being dispensed or returned. Thus, if
cost data is found to be inaccurate, the AMIS may be recalculated.
CROSS-REFERENCE: 58.52^B
1)= S ^PSI(58.5,DA(2),"S",DA(1),"DRG","B",$E(X,1,30),DA)=""
2)= K ^PSI(58.5,DA(2),"S",DA(1),"DRG","B",$E(X,1,30),DA)
CROSS-REFERENCE: 58.5^D
1)= S ^PSI(58.5,"D",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^PSI(58.5,"D",$E(X,1,30),DA(2),DA(1),DA)
58.52,1 CATEGORY CAT;0 SET Multiple #58.53 (Add New Entry without Asking)
58.53,.01 CATEGORY 0;1 SET
'A' FOR AUTOMATIC REPLENISHMENT;
'W' FOR WARD STOCK;
'RA' FOR RETURNS - AUTO REPLENISHED;
'RW' FOR RETURNS - WARD STOCKED;
DESCRIPTION: Category identifies how the quantity dispensed or returned was originally ordered:
Automatic Replenishment, On-Demand, returned from Automatic Replenishment, or returned from
On-Demand.
58.53,1 QUANTITY DISPENSED 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X
LAST EDITED: NOV 01, 1989
HELP-PROMPT: Type a Number between -99999 and 99999, 0 Decimal Digits
DESCRIPTION:
This amount identifies the quantity dispensed or returned.
58.52,2 MISSING DATA 0;2 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION: This flag is set if data needed to calculate the AMIS is missing at the time the quantity
is dispensed or returned. Also, an "exceptions" cross-reference is created. Before the
AMIS will print, this missing data must be supplied, the cross-reference deleted, and the
flag reset.
CROSS-REFERENCE: 58.5^AEX^MUMPS
1)= I X=1 S ^PSI(58.5,"AEX",DA(2),DA(1),DA)=""
2)= K ^PSI(58.5,"AEX",DA(2),DA(1),DA)
This cross-reference is used to sort drugs with missing AMIS data by Date/Inpatient
Site/Drug. It is used by the options "Inventory Outline", "Print AMIS Report","Incomplete
AMIS Data", and "Recalculate AMIS".
FILES POINTED TO FIELDS
DRUG (#50) RECALCULATE AMIS:DRUG (#.01)
INPATIENT SITE (#59.4) INPATIENT SITE:INPATIENT SITE (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):