Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 58.3511

Package: Drug Accountability

RETURN DRUG(#58.35)-->58.351-->58.3511

Sub-Field: 58.3511


Information

Parent File Name Number Package
58.351 RETURN ITEM 58.3511 Drug Accountability

Details

Field # Name Loc Type Details
.01 DRUG 0;1 POINTER TO DRUG FILE (#50) DRUG(#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)
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.
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.
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
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.
5 ORDER UNIT 0;6 POINTER TO ORDER UNIT FILE (#51.5) ORDER UNIT(#51.5)

  • LAST EDITED:  JUL 17, 2008
  • HELP-PROMPT:  Select the order unit for the drug.
  • DESCRIPTION:  
    Drug order unit.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
16 ENTERED BY 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
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.
100 ACTIVITY LOG LOG;0 DATE Multiple #58.35111 58.35111

  • DESCRIPTION:  
    Activity Log sub-file.
Info |  Details