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

Package: Outpatient Pharmacy

PRESCRIPTION(#52)-->52.2

Sub-Field: 52.2


Information

Parent File Name Number Package
PRESCRIPTION(#52) PARTIAL DATE 52.2 Outpatient Pharmacy

Details

Field # Name Loc Type Details
.01 PARTIAL DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 20, 1995
  • DESCRIPTION:  
    This is the date the partial was made.
  • TECHNICAL DESCR:  
    Date
  • EXECUTABLE HELP:  I $P($G(^PSRX(DA,2)),"^",6) S X=$P(^PSRX(DA,2),"^",6),%DT="X" D ^%DT X ^DD("DD") W !,"Partial Date must be less than or equal to "_Y S %DT(0)=-$P(^PSRX(DA,2),"^",6)
  • DELETE TEST:  1,0)= D WARN1^PSOUTL
  • CROSS-REFERENCE:  52^ADP
    1)= S ^PSRX("ADP",$E(X,1,7),DA(1),DA)=""
    2)= K ^PSRX("ADP",$E(X,1,7),DA(1),DA)
  • CROSS-REFERENCE:  52.2^APAR^MUMPS
    1)= Q
    2)= D:'$G(PSOSUSPA) PARKILL^PSOUTLA
    3)= DO NOT DELETE
    This xref is used to indicate when a partial fill is deleted. It can set the global ^PSRX(DA(1),"A",0)=Activity log sub-header information. It can also set the global ^PSRX(DA(1),"A",Activity entry,0)=Activity Log
    information.
.02 MAIL/WINDOW 0;2 SET
************************REQUIRED FIELD************************
  • 'M' FOR MAIL;
  • 'W' FOR WINDOW;

  • LAST EDITED:  SEP 03, 1982
  • DESCRIPTION:  
    This field tells whether the medication was picked up or mailed to the patient.
  • TECHNICAL DESCR:  
    (Required) Set 'M' for Mail, 'W' for Window.
.03 REMARKS 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X
  • LAST EDITED:  AUG 27, 1982
  • HELP-PROMPT:  ANSWER MUST BE 2-60 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    These are any additional comments.
  • TECHNICAL DESCR:  
    (Required) Free Text.
.04 QTY 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:(+X'>0)!(+X>99999999)!(X'?.8N.1".".2N)!($L(X)>11) X I $D(X),X>$P(^PSRX(DA(1),0),U,7) D EN^DDIOL("QTY CANNOT BE GREATER THAN THE ORIGINAL QTY OF "_$P($G(^(0)),U,7)) K X
  • LAST EDITED:  NOV 30, 2007
  • HELP-PROMPT:  Type a number between .01 and 99999999. Two fractional decimal places are allowed, with no alpha characters. The total length of the entry cannot exceed 11 characters.
  • DESCRIPTION:  
    This field is used to show the amount of medication that was dispensed.
  • TECHNICAL DESCR:  This field allows numeric entries only, both for CMOP prescriptions and non-CMOP prescriptions. It requires a number between .01 and 99999999, with a maximum of 2 fractional decimal places.
    NOTE: QTY values that were on file prior to patch PSO*7*29 (released 2/17/00) may contain alpha characters.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





.041
DAYS SUPPLY
0;10
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 27, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used to indicate the days of supply for partial RX fill.
  • FIELD INDEX:  ACRP (#429)    MUMPS    IR    ACTION    WHOLE FILE (#52)
    Short Descr:  Clinical Reminders index.
    Description:  This cross-reference builds two indexes, one for finding all patients with a particular drug and one for finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
    ^PXRMINDX(52,"IP",DRUG,DFN,START DATE,STOP DATE,DAS)
    ^PXRMINDX(52,"PI",DFN,DRUG,START DATE,STOP DATE,DAS) respectively. START DATE is the RELEASE DATE and STOP DATE is calculated by adding the DAYS SUPPLY to the RELEASE DATE.  For all the details, see the Clinical
    Reminders Index Technical Guide/Programmer's Manual.
    Set Logic:  D SKIDX^PSOPXRMU(.X,.DA,"P","S")
    Kill Logic:  D SKIDX^PSOPXRMU(.X,.DA,"P","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52.2,.041)  (Subscr 1)  (forwards)
    X(2):  RELEASED DATE/TIME  (52.2,8)  (Subscr 2)  (forwards)





.042
CURRENT UNIT PRICE OF DRUG
0;11
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  OCT 04, 2000
  • HELP-PROMPT:  Type a Number between 0 and 9999, 4 Decimal Digits
  • DESCRIPTION:  
    This field is used to show current unit cost of the drug at time of fill.
  • TECHNICAL DESCR:  
    This is the price per dispense unit (per ML/MG) at the time of fill.
    WRITE AUTHORITY:  ^





.05
PHARMACIST NAME
0;5
POINTER TO NEW PERSON FILE (#200) 

************************REQUIRED FIELD************************
NEW PERSON(#200)
  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 17, 1995
  • HELP-PROMPT:  Enter name of the pharmacist entering the parital rx.
  • DESCRIPTION:  
    This is the name of the pharmacist.
  • TECHNICAL DESCR:  
    Pointer to New Person File (#200).  required
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))"
  • EXPLANATION:  Only select a user who has a pharmacist key.





.06
LOT #
0;6
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This field shows the vendor's lot number.
  • TECHNICAL DESCR:  
    Free Text.





.07
CLERK CODE
0;7
POINTER TO NEW PERSON FILE (#200) 

************************REQUIRED FIELD************************
NEW PERSON(#200)
  • LAST EDITED:  APR 14, 1992
  • DESCRIPTION:  
    This is the user number of the clerk that keyed in the prescription.
  • TECHNICAL DESCR:  
    (Required) Poniter to #200





.08
LOGIN DATE
0;8
DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This is the date that the prescription was entered.
  • TECHNICAL DESCR:  
    Date.





.09
DIVISION
0;9
POINTER TO OUTPATIENT SITE FILE (#59)
OUTPATIENT SITE(#59)
  • LAST EDITED:  MAY 16, 1995
  • HELP-PROMPT:  Enter division where partial rx is entered.
  • DESCRIPTION:  
    This field contains the Pharmacy Division associated with this RX.
  • TECHNICAL DESCR:  
    Pointer to Outpatient Site File (#59)
  • CROSS-REFERENCE:  52.2^AC^MUMPS
    1)= D SAS2^PSOSUTL
    2)= D KAS2^PSOSUTL
    This is used to maintain the AC x-ref in Suspense. It sets piece 6 of ^PS(52.5,DA,0)=Division. For a non-CMOP Rx, it sets ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For a CMOP prescription, it sets
    ^PS(52.5,"APR",Print Date,Printed By,Division, Sequence,DA)="".





1
NDC
0;12
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<3) X
  • LAST EDITED:  APR 14, 1992
  • HELP-PROMPT:  Answer must be 3-13 characters in length.
  • DESCRIPTION:  
    This field is used to show the National Drug Code of the drug issued.





2
MANUFACTURER
1;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  APR 14, 1992
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    This field is used to store the name of the manufacturer of the drug being dispensed.
  • TECHNICAL DESCR:  
    free text.





5
RETURNED TO STOCK
0;16
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 09, 1993
  • HELP-PROMPT:  Enter date the partial prescription was returned to stock.
  • DESCRIPTION:  
    This field is used to show when and if the medication in the prescription was returned to inventory due to not being picked up or mailed.
  • TECHNICAL DESCR:  
    date
  • CROSS-REFERENCE:  52^AN
    1)= S ^PSRX("AN",$E(X,1,30),DA(1),DA)=""
    2)= K ^PSRX("AN",$E(X,1,30),DA(1),DA)
    3)= This xref should not be deleted.  It is used by the Drug Accountability software (v2).
    This xref creates a 'AN' index on the returned to stock date.





6
PROVIDER
0;17
POINTER TO NEW PERSON FILE (#200) 

************************REQUIRED FIELD************************
NEW PERSON(#200)
  • INPUT TRANSFORM:  S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'
  • LAST EDITED:  OCT 23, 1996
  • HELP-PROMPT:  Enter name of provider that is currently seeing the patient.
  • DESCRIPTION:  
    This field is used to show the provider that is currently seeing the patient.
  • TECHNICAL DESCR:  
    Pointer to file 200.
  • SCREEN:  S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'
  • EXPLANATION:  Only valid providers are selected.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





7
GENERIC PROVIDER
0;18
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<10) X
  • LAST EDITED:  MAR 05, 1992
  • HELP-PROMPT:  Answer must be 10-45 characters in length.
  • DESCRIPTION:  
    This field is used to show if there is a provider outside of the medical center providing care to the patient.





7.5
DISPENSED DATE
0;13
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 10, 1992
  • DESCRIPTION:  
    This field is used to indicate the date the partial medication was dispensed.





8
RELEASED DATE/TIME
0;19
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 20, 2009
  • HELP-PROMPT:  Enter date/time the medication was released.
  • DESCRIPTION:  
    This field is used to show the date the medication was released.
  • TECHNICAL DESCR:  
    date/time.
  • CROSS-REFERENCE:  52^AM
    1)= S ^PSRX("AM",$E(X,1,30),DA(1),DA)=""
    2)= K ^PSRX("AM",$E(X,1,30),DA(1),DA)
    3)= This xref should not be deleted.  It is used by the Drug Accountability software (v2).
    This xref creates a 'AM' index on the release date.
  • CROSS-REFERENCE:  52^ZAL2^MUMPS
    1)= S ^PSRX("ZAL",+X,DA(1),DA,"P")=""
    2)= K ^PSRX("ZAL",X,DA(1),DA,"P")
    This xref is used to create the daily rx report.
  • FIELD INDEX:  ACRP (#429)    MUMPS    IR    ACTION    WHOLE FILE (#52)
    Short Descr:  Clinical Reminders index.
    Description:  This cross-reference builds two indexes, one for finding all patients with a particular drug and one for finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
    ^PXRMINDX(52,"IP",DRUG,DFN,START DATE,STOP DATE,DAS)
    ^PXRMINDX(52,"PI",DFN,DRUG,START DATE,STOP DATE,DAS) respectively. START DATE is the RELEASE DATE and STOP DATE is calculated by adding the DAYS SUPPLY to the RELEASE DATE.  For all the details, see the Clinical
    Reminders Index Technical Guide/Programmer's Manual.
    Set Logic:  D SKIDX^PSOPXRMU(.X,.DA,"P","S")
    Kill Logic:  D SKIDX^PSOPXRMU(.X,.DA,"P","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52.2,.041)  (Subscr 1)  (forwards)
    X(2):  RELEASED DATE/TIME  (52.2,8)  (Subscr 2)  (forwards)





9
BINGO WAIT TIME
1;2
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1997
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field specifies, in minutes, the total wait time for bingo board purposes.





10
FILLING PERSON
1;3
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Data not entered directly with FM.
  • DESCRIPTION:  
    The name of the person who scanned the barcode before dispensing a partial medication request.
  • TECHNICAL DESCR:  
    pointer





11
CHECKING PHARMACIST
1;4
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Data not entered directly with FM.
  • DESCRIPTION:  
    The name of the pharmacist that checked the partial medication request.
  • TECHNICAL DESCR:  
    pointer





12
DRUG EXPIRATION DATE
1;5
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter date the medication expires for this partial.
  • DESCRIPTION:  
    This field is used to show the date that the medication expires for this partial fill.





9999999.13
MFG EXPIRATION DATE
1;2
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 02, 1995
  • HELP-PROMPT:  ENTER A FUTURE EXPIRATION DATE FOR THIS DRUG (ie. T+6M)







    



Info | 
Details | 
All