STANDARD DATA DICTIONARY #58.35 -- RETURN DRUG FILE 9/29/25 PAGE 1
STORED IN ^PSD(58.35, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains a record for all the drugs that are returned to a contractor and/or manufacturer for a credit or to be destroyed. It
includes drug items that have been credited, denied or are still pending.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: PHARMACY LOCATION(B)
58.35,.01 PHARMACY LOCATION 0;1 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) (Required)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the pharmacy location from where the drug is being returned.
DESCRIPTION:
This is the Pharmacy Location from where the drug is being returned.
CROSS-REFERENCE: 58.35^B
1)= S ^PSD(58.35,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.35,"B",$E(X,1,30),DA)
58.35,1 RETURN BATCH BAT;0 Multiple #58.351 (Add New Entry without Asking)
DESCRIPTION:
Batch sub-file.
IDENTIFIED BY: STATUS(#1), CONTRACTOR/MANUFACTURER(#4)
INDEXED BY: CONTRACTOR/MFR REFERENCE # (C)
58.351,.01 BATCH NUMBER 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Answer must be 1-10 characters in length
DESCRIPTION: Batch number formatted MMYY-SEQ, where MM is the month, YY the year and SEQ is an automatic
sequence.
Note: The batch number is automatically generated by using the current month/year.
CROSS-REFERENCE: 58.351^B
1)= S ^PSD(58.35,DA(1),"BAT","B",$E(X,1,30),DA)=""
2)= K ^PSD(58.35,DA(1),"BAT","B",$E(X,1,30),DA)
58.351,1 STATUS 0;2 SET
'AP' FOR AWAITING PICKUP;
'PU' FOR PICKED UP;
'CO' FOR COMPLETED;
'CA' FOR CANCELLED;
LAST EDITED: AUG 18, 2008
HELP-PROMPT: Select the current status for the batch.
DESCRIPTION:
Batch status.
58.351,2 DATE/TIME PICKED UP 0;3 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Date/time when the batch was picked up.
58.351,3 DATE/TIME CREATED 0;4 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Date/time the batch was created.
58.351,4 CONTRACTOR/MANUFACTURER 0;5 POINTER TO RETURN DRUG CONTRACTOR FILE (#58.36)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the contractor/manufacturer who will pick up the batch.
DESCRIPTION:
Contractor or manufacturer who picked up the batch.
58.351,5 CONTRACTOR/MFR REFERENCE # 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: AUG 19, 2008
HELP-PROMPT: Answer must be 1-20 characters in length
DESCRIPTION:
Reference number from the contractor/manufacturer who picked up the batch.
FIELD INDEX: C (#800) REGULAR IR LOOKUP & SORTING
Short Descr: Contractor/Mfr Reference Number.
Set Logic: S ^PSD(58.35,DA(1),"BAT","C",$E(X,1,30),DA)=""
Kill Logic: K ^PSD(58.35,DA(1),"BAT","C",$E(X,1,30),DA)
Whole Kill: K ^PSD(58.35,DA(1),"BAT","C")
X(1): CONTRACTOR/MFR REFERENCE # (58.351,5) (Subscr 1) (Len 30) (forwards)
58.351,6 DATE/TIME CANCELLED CAN;1 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Date/time the batch was cancelled.
58.351,7 CANCELLED BY CAN;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the user responsible for cancelling the batch.
DESCRIPTION:
User who cancelled the batch.
58.351,8 CANCELLED COMMENTS CAN;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>100!($L(X)<1) X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: Answer must be 1-100 characters in length
DESCRIPTION:
User entered comments when cancelling a batch.
58.351,9 DATE/TIME COMPLETED 0;7 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 17, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Date/time the batch was completed.
58.351,10 COMPLETED BY 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the user responsible for completing the batch.
DESCRIPTION:
User who completed the batch.
58.351,100 RETURN ITEM ITM;0 POINTER Multiple #58.3511
58.3511,.01 DRUG 0;1 POINTER TO DRUG FILE (#50)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the drug to be returned to the contractor/manufacturer.
DESCRIPTION:
Drug being returned to the contractor/manufacturer.
CROSS-REFERENCE: 58.3511^B
1)= S ^PSD(58.35,DA(2),"BAT",DA(1),"ITM","B",$E(X,1,30),DA)=""
2)= K ^PSD(58.35,DA(2),"BAT",DA(1),"ITM","B",$E(X,1,30),DA)
58.3511,1 DATE/TIME CREATED 0;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Date/time the item was added to the batch.
58.3511,2 MANUFACTURER NAME 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: Answer must be 1-30 characters in length
DESCRIPTION:
Drug manufacturer name.
58.3511,3 NDC 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>14!($L(X)<1) X
LAST EDITED: SEP 11, 2008
HELP-PROMPT: Answer must be 1-14 characters in length
58.3511,4 UPC 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: Answer must be 1-20 characters in length
DESCRIPTION:
Drug Universal Product Code.
58.3511,5 ORDER UNIT 0;6 POINTER TO ORDER UNIT FILE (#51.5)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the order unit for the drug.
DESCRIPTION:
Drug order unit.
58.3511,6 NUMBER OF ORDER UNITS TO RET 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<.01)!(X?.E1"."3.N) X
LAST EDITED: SEP 08, 2008
HELP-PROMPT: Type a number between .01 and 999999999, 2 Decimal Digits
DESCRIPTION:
Number of order units being returned.
58.3511,7 DISPENSE UNITS PER ORDER UNIT 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3.N) X
LAST EDITED: SEP 08, 2008
HELP-PROMPT: Type a number between .01 and 999999, 2 Decimal Digits
DESCRIPTION:
Number of dispense units per order unit.
58.3511,8 DISPENSE UNIT 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 08, 2008
HELP-PROMPT: Answer must be 1-10 characters in length
DESCRIPTION:
Drug dispense unit.
58.3511,9 EXPIRATION DATE 0;10 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Drug expiration date.
58.3511,10 CREDIT STATUS 0;11 SET
'P' FOR PENDING;
'E' FOR ESTIMATED;
'A' FOR ACTUAL;
'D' FOR DENIED;
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the current credit status for the drug.
DESCRIPTION:
Return drug credit status.
58.3511,11 ESTIMATED CREDIT AMOUNT 0;12 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: Type a Dollar amount between 0 and 999999999, 2 Decimal Digits
DESCRIPTION:
Estimated credit amount for the return drug.
58.3511,12 ACTUAL CREDIT AMOUNT 0;13 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: Type a Dollar amount between 0 and 999999999, 2 Decimal Digits
DESCRIPTION:
Actual credit amount for the return drug.
58.3511,13 DRUG COST 0;14 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: Type a Dollar amount between 0 and 999999999, 2 Decimal Digits
DESCRIPTION:
Drug cost.
58.3511,14 UPDATE INVENTORY 0;15 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Indicate whether the Drug Accountability inventory should be updated or not.
DESCRIPTION:
Update Drug Accountability inventory.
58.3511,15 RETURN REASON 0;16 SET
'E' FOR EXPIRED;
'R' FOR RECALLED;
'D' FOR DAMAGED;
'O' FOR OVERSTOCKED;
'M' FOR MISCELLANEOUS;
'X' FOR DESTRUCTION;
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the reason why the drug is being returned to the contractor/manufacturer.
DESCRIPTION:
Reason for returning the drug.
58.3511,16 ENTERED BY 0;17 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the user who added the item to the batch.
DESCRIPTION:
User who added the return item to the batch.
58.3511,17 NUMBER OF DISP. UNITS TO RET 0;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: SEP 08, 2008
HELP-PROMPT: Type a number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
Number of dispense units being returned.
58.3511,100 ACTIVITY LOG LOG;0 DATE Multiple #58.35111
DESCRIPTION:
Activity Log sub-file.
58.35111,.01 DATE/TIME 0;1 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 16, 2008
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Activity date/time.
CROSS-REFERENCE: 58.35111^B
1)= S ^PSD(58.35,DA(3),"BAT",DA(2),"ITM",DA(1),"LOG","B",$E(X,1,30),DA)=""
2)= K ^PSD(58.35,DA(3),"BAT",DA(2),"ITM",DA(1),"LOG","B",$E(X,1,30),DA)
58.35111,1 USER ID 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Select the user responsible for the activity being logged.
DESCRIPTION:
User responsible for the activity.
58.35111,2 ACTION 0;3 SET
'E' FOR EDIT;
'X' FOR EXCEPTION;
'C' FOR CANCEL;
LAST EDITED: SEP 04, 2008
HELP-PROMPT: Select the type of action for the activity being logged.
DESCRIPTION:
Activity action type.
58.35111,3 COMMENTS 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>150!($L(X)<1) X
LAST EDITED: JUL 17, 2008
HELP-PROMPT: Answer must be 1-150 characters in length
DESCRIPTION:
Comments explaining the activity performed on the return drug.
FILES POINTED TO FIELDS
DRUG (#50) RETURN ITEM:DRUG (#.01)
DRUG ACCOUNTABILITY STATS
(#58.8) PHARMACY LOCATION (#.01)
NEW PERSON (#200) RETURN BATCH:CANCELLED BY (#7)
COMPLETED BY (#10)
RETURN ITEM:ENTERED BY (#16)
ACTIVITY LOG:USER ID (#1)
ORDER UNIT (#51.5) RETURN ITEM:ORDER UNIT (#5)
RETURN DRUG CONTRACTOR (#58.36) RETURN BATCH:CONTRACTOR/MANUFACTURER (#4)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):