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.351

Package: Drug Accountability

RETURN DRUG(#58.35)-->58.351

Sub-Field: 58.351


Information

Parent File Name Number Package
RETURN DRUG(#58.35) RETURN BATCH 58.351 Drug Accountability

Details

Field # Name Loc Type Details
.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)
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.
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.
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.
4 CONTRACTOR/MANUFACTURER 0;5 POINTER TO RETURN DRUG CONTRACTOR FILE (#58.36) RETURN DRUG CONTRACTOR(#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.
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)
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.
7 CANCELLED BY CAN;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 17, 2008
  • HELP-PROMPT:  Select the user responsible for cancelling the batch.
  • DESCRIPTION:  
    User who cancelled the batch.
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.
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.
10 COMPLETED BY 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 17, 2008
  • HELP-PROMPT:  Select the user responsible for completing the batch.
  • DESCRIPTION:  
    User who completed the batch.
100 RETURN ITEM ITM;0 POINTER Multiple #58.3511 58.3511
Info |  Details