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

Package: Outpatient Pharmacy

PRESCRIPTION(#52)-->52.1

Sub-Field: 52.1


Information

Parent File Name Number Package
PRESCRIPTION(#52) REFILL 52.1 Outpatient Pharmacy

Details

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
    9.2 = S Z0=0,Z1=+$P(^PSRX(DA(1),0),U,9),Z2=$P(^(0),U,13),I=0 F  S I=$O(^PSRX(DA(1),1,I)) Q:'I  Q:+^(I,0)=X  S Z0=Z0+1 S:+^(0)>Z2 Z2=+^(0)
    9.3 = S (XS,X1)=X,X2=Z2 D ^%DTC K:X<20 X,XS W:'$D(XS) "   LESS THAN 20 DAYS." I $D(XS) S X2=+$P(^PSRX(DA(1),0),U,13),X1=XS D ^%DTC K:X>185 XS,X W:'$D(XS) "  MORE THAN 180 DAYS."
  • LAST EDITED:  JUL 30, 1993
  • HELP-PROMPT:  Enter Date of refill
  • DESCRIPTION:  
    This is the date the prescription is refilled.
  • 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 !,"Refill Date must be less than or equal to "_Y S %DT(0)=-$P(^PSRX(DA,2),"^",6)
  • DELETE TEST:  1,0)= D WARN^PSOCPC I $T
    2,0)= D WARN^PSOUTL
  • LAYGO TEST:  1,0)= I '$G(PSONOLAY)
  • CROSS-REFERENCE:  52.1^B
    1)= S ^PSRX(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^PSRX(DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  52^AD
    1)= S ^PSRX("AD",$E(X,1,30),DA(1),DA)=""
    2)= K ^PSRX("AD",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  52.1^AC^MUMPS
    1)= I '$O(^PSRX(DA(1),1,0)) S $P(^PSRX(DA(1),3),"^")=X
    2)= F IK=DA-1:-1 S:IK<1 $P(^(3),"^")=$P(^PSRX(DA(1),2),"^",2) Q:IK<1  I $D(^PSRX(DA(1),1,IK,0)) S $P(^PSRX(DA(1),3),"^")=+^(0) Q
    This cross reference sets the Last Dispensed Date field with the refill date. It sets piece 1 of ^PSRX(DA,3)=Refill Date.
  • CROSS-REFERENCE:  52.1^AB^MUMPS
    1)= D S52^PSOUTL
    2)= D K52^PSOUTL
    3)= DO NOT DELETE.
    This cross reference kills the SUSPENSE File record and cross references the SUSPENSE File. It sets piece 2 of ^PS(52.5,DA,0)=Refill Date, ^PS(52.5,"C",Refill Date,DA)="",^PS(52.5,"AC",Patient,Refill Date,DA)="".
  • CROSS-REFERENCE:  52.1^AE^MUMPS
    1)= D SPR^PSOUTL
    2)= D KPR^PSOUTL
    This cross reference updates the Prior Fill Date field.  It sets piece 4 of ^PSRX(DA,3)=Fill Date.
  • CROSS-REFERENCE:  52.1^ACP^MUMPS
    1)= I +$G(^PSRX(DA(1),"IB")) S:$P($G(^PSRX(DA(1),0)),"^",2)&($P($G(^PSRX(DA(1),1,DA,0)),"^",2)="W")&('$P($G(^(0)),"^",16))&('$P($G(^(0)),"^",18))&('$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA(1),0),"^",2),X,DA,DA(1))=""
    2)= I +$G(^PSRX(DA(1),"IB")) K:$P($G(^PSRX(DA(1),0)),"^",2)&($P($G(^PSRX(DA(1),1,DA,0)),"^",2)="W")&('$P($G(^(0)),"^",16))&('$P($G(^(0)),"^",18))&('$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA(1),0),"^",2),X,DA,DA(1))
    3)= Do Not Delete!
    This cross reference is used to index copay refills that have not been billed through the IB package. It sets the global ^PSRX("ACP",Patient,Refill Date,Refill Number,DA)="".
1 QTY 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:(+X'>0)!(+X>99999999)!(X'?.8N.1".".2N)!($L(X)>11) X D:$D(X) QTY^PSOHELP
  • LAST EDITED:  NOV 30, 2007
  • 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.
  • EXECUTABLE HELP:  D HELP^PSOHELP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





1.1
DAYS SUPPLY
0;10
NUMBER 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X D:$G(X) DAYS1^PSOHELP1
  • LAST EDITED:  AUG 15, 1994
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used to show days of supply of refill.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ACRR (#428)    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,"R","S")
    Kill Logic:  D SKIDX^PSOPXRMU(.X,.DA,"R","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52.1,1.1)  (Subscr 1)  (forwards)
    X(2):  RELEASED DATE/TIME  (52.1,17)  (Subscr 2)  (forwards)





1.2
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 the current unit cost of the drug at time of refill.
  • TECHNICAL DESCR:  
    This is the price per dispense unit (per ML/MG) at the time of fill.
    WRITE AUTHORITY:  ^





2
MAIL/WINDOW
0;2
SET 

************************REQUIRED FIELD************************
  • 'M' FOR MAIL;
  • 'W' FOR WINDOW;
  • LAST EDITED:  AUG 03, 1993
  • DESCRIPTION:  
    This field contains 'M' if the refill is to be mailed to the patient and 'W' if the refill is to be picked up at the pharmacy window.
  • TECHNICAL DESCR:  
    (Required) Set 'M' for Mail, 'W' for Window.
  • CROSS-REFERENCE:  52^ACP4^MUMPS
    1)= I X="W",+$G(^PSRX(DA(1),"IB")) S:$P($G(^PSRX(DA(1),0)),"^",2)&('$P($G(^PSRX(DA(1),1,DA,0)),"^",16))&('$P($G(^(0)),"^",18))&('$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA(1),0),"^",2),$P(^PSRX(DA(1),1,DA,0),"^"),DA,DA(1))=""
    2)= I X="W",+$G(^PSRX(DA(1),"IB")) K:$P($G(^PSRX(DA(1),0)),"^",2)&('$P($G(^PSRX(DA(1),1,DA,0)),"^",16))&('$P($G(^(0)),"^",18))&('$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA(1),0),"^",2),+$P($G(^PSRX(DA(1),1,DA,0)),"^"),DA,DA(1)
    )
    3)= Do Not Delete!
    This cross reference is used to update the 'ACP' xref if the routing should be edited. It sets the global ^PSRX("ACP",Patient,Refill Date,Refill Number,DA)="".





3
REMARKS
0;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-60 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains comments as deemed necessary by the pharmacy staff.
  • TECHNICAL DESCR:  
    Free Text.





4
PHARMACIST NAME
0;5
POINTER TO NEW PERSON FILE (#200)
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:  JAN 26, 1993
  • DESCRIPTION:  
    This field contains the name of the pharmacist responsible for this Rx.
  • TECHNICAL DESCR:  
    Pointer to New Person File (#200).
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))"
  • EXPLANATION:  Only select a user who has a pharmacist key.





5
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 contains the lot # of the prescription.
  • TECHNICAL DESCR:  
    Free Text.





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

************************REQUIRED FIELD************************
NEW PERSON(#200)
  • LAST EDITED:  APR 14, 1992
  • DESCRIPTION:  
    This field contains the NEW PERSON File entry number of the clerk.
  • TECHNICAL DESCR:  
    (Required) pointer to #200





7
LOGIN DATE
0;8
DATE

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





8
DIVISION
0;9
POINTER TO OUTPATIENT SITE FILE (#59) 

************************REQUIRED FIELD************************
OUTPATIENT SITE(#59)
  • LAST EDITED:  JUL 27, 1994
  • DESCRIPTION:  
    This field contains the Pharmacy Division associated with this Rx.
  • TECHNICAL DESCR:  
    Pointer to Pharmacy Site File (#59)
  • CROSS-REFERENCE:  52.1^AF^MUMPS
    1)= D SAS1^PSOSUTL
    2)= D KAS1^PSOSUTL
    This is used to maintain the AS cross reference in Suspense.  It sets piece 6 of ^PS(52.5,DA,0)=Division. For a non-CMOP prescription, it can set ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="".  For a CMOP
    prescription, it can set ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".





9
IB NUMBER
IB;1
POINTER TO INTEGRATED BILLING ACTION FILE (#350)
INTEGRATED BILLING ACTION(#350)
  • LAST EDITED:  MAR 01, 1991
  • DESCRIPTION:  
    This field contains the internal entry number of the pointer to the Integrated Billing Action file (#350).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^





9.1
COPAY EXCEEDING CAP
IB;2
POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  SEP 04, 2001
  • HELP-PROMPT:  This field contains the internal entry number of the IB COPAY TRANSACTIONS file (#354.71)
  • DESCRIPTION:  
    This field contains the internal entry number of the pointer to the IB COPAY TRANSACTIONS file (#354.71).  There will only be data in this field if this Rx's copay exceeded the annual copay cap.
  • TECHNICAL DESCR:  
    This field contains the internal entry number of the pointer to the IB COPAY TRANSACTIONS file (#354.71).  There will only be data in this field if this Rx's copay exceeded the annual copay cap.





10
CMOP DISPENSED
C;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 16, 1992
  • HELP-PROMPT:  Answer must be 1-30 characters in length.





10.1
DISPENSED DATE
0;19
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 14, 1992
  • HELP-PROMPT:  Enter date and time medication was placed into packaging.
  • DESCRIPTION:  
    This field is used to show date/time the medication was placed into packaging.





11
NDC
1;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<5)!'(X?5N1"-"4N1"-"2N) X
  • LAST EDITED:  JAN 28, 2004
  • HELP-PROMPT:  Answer must be 5-13 characters and in NNNNN-NNNN-NN format.
  • DESCRIPTION:  
    This field is used for the National Drug Code for the issued drug.





12
MANUFACTURER
0;14
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 show the manufacturer of the drug issued.





13
DRUG EXPIRATION DATE
0;15
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 refill.
  • DESCRIPTION:  
    This field is used to show the date that the medication expires for this refill.
  • TECHNICAL DESCR:  
    date
  • GROUP:  PSO





14
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/time the medication was returned to inventory due to the prescription not being pickup or mailed.
  • DESCRIPTION:  
    This field is used to indicate when and if the medication was returned to inventory due to the prescription not being picked up or mailed to the patient.
  • TECHNICAL DESCR:  
    date/time.
  • CROSS-REFERENCE:  52^AJ1^MUMPS
    1)= S ^PSRX("AJ",$E(X,1,30),DA(1),DA)=""
    2)= K ^PSRX("AJ",$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 'AJ' index on the returned to stock field. It sets the global ^PSRX("AJ",Return to Stock,DA(1),DA)="".





15
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:  APR 05, 1996
  • HELP-PROMPT:  Enter provider that is currently seeing the patient.
  • DESCRIPTION:  
    This field is used to show the current provider 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 to be selected.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





16
GENERIC PROVIDER
1;1
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 a provider outside of the medical center.





17
RELEASED DATE/TIME
0;18
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 1993
  • HELP-PROMPT:  Enter date/time medication was released.
  • DESCRIPTION:  This field is used to show the date/time the medication was released for inventory purposes and copay billing if applicable.
  • TECHNICAL DESCR:  
    date/time.
  • CROSS-REFERENCE:  52^AL1^MUMPS
    1)= S ^PSRX("AL",$E(X,1,30),DA(1),DA)=""
    2)= K ^PSRX("AL",$E(X,1,30),DA(1),DA)
    3)= This xref should not be deleted.  It is used by the Drug Accountability software (v2).
    The xref creates a 'AL" index on the release date/time field. It sets the global ^PSRX("AL",Released Date/Time,DA(1),DA)="".
  • CROSS-REFERENCE:  52.1^ACP1^MUMPS
    1)= I +$G(^PSRX(DA(1),"IB")) K:$P($G(^PSRX(DA(1),1,DA,0)),"^")&($P($G(^(0)),"^",18)) ^PSRX("ACP",$P(^PSRX(DA(1),0),"^",2),$P(^PSRX(DA(1),1,DA,0),"^"),DA,DA(1))
    2)= I $P($G(^PSRX(DA(1),0)),"^",2),+$G(^("IB")) S:$P($G(^PSRX(DA(1),1,DA,0)),"^")&($P($G(^(0)),"^",2)="W")&('$P($G(^(0)),"^",16))&('$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA(1),0),"^",2),$P(^PSRX(DA(1),1,DA,0),"^"),DA,DA(1))=""
    3)= Do Not Delete!
    This cross reference is used to remove the "ACP" xref once the Rx is released and copay charges have been billed. It sets the global ^PSRX("ACP",Patient,Refill Date,DA(1),DA)="".
  • CROSS-REFERENCE:  52^ZAL3^MUMPS
    1)= S ^PSRX("ZAL",+X,DA(1),DA,"R")=""
    2)= K ^PSRX("ZAL",X,DA(1),DA,"R")
    This xref is used to create the Daily Rx Report.
  • FIELD INDEX:  ACRR (#428)    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,"R","S")
    Kill Logic:  D SKIDX^PSOPXRMU(.X,.DA,"R","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52.1,1.1)  (Subscr 1)  (forwards)
    X(2):  RELEASED DATE/TIME  (52.1,17)  (Subscr 2)  (forwards)





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





19
FILLING PERSON
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 person who scanned the barcode before refilling the medication request.
  • TECHNICAL DESCR:  
    pointer





20
CHECKING PHARMACIST
1;5
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 medication refill request.
  • TECHNICAL DESCR:  
    pointer





21
PFSS ACCOUNT REFERENCE
PFS;1
POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAY 18, 2005
  • DESCRIPTION:  
    This is a reference number to an external medical billing system Account Number for the purposes of uniquely identifying prescription charges for 1st or 3rd party billing.
  • TECHNICAL DESCR:  This field was introduced as part of the Patient Financial Services System (PFSS) project to implement a new COTS billing system. It requires that every prescription fill passed to the external billing system to attach a
    unique account/visit number. The IBB API GETACCT^IBBAPI provides this data and is stored during prescription order creation as part of the data.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:^
    UNEDITABLE





22
PFSS CHARGE ID
PFS;2
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<90000000)!(X?.E1"."1.N) X
  • LAST EDITED:  MAY 18, 2005
  • HELP-PROMPT:  Type a number between 90000000 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is another unique identifier required when prescription charge messages are passed to the external billing system.
  • TECHNICAL DESCR:  This field was introduced as part of the Patient Financial Services System (PFSS) project to implement a new COTS billing system. It requires that every prescription charge transaction passed to the external billing system
    to attach a unique charge identifier. The IBB API GETCHGID^IBBAPI provides this data.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:^





81
DAW CODE
EPH;1
FREE TEXT

  • INPUT TRANSFORM:  D INPUT^PSSDAWUT
  • LAST EDITED:  JUN 27, 2005
  • DESCRIPTION:  
    Dispensed As Written code. This information is used for NCPDP electronic claim transmission to third party payers (insurance companies).
  • EXECUTABLE HELP:  D HLP^PSSDAWUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





82
RE-TRANSMIT FLAG
EPH;2
SET

  • '1' FOR YES;
  • LAST EDITED:  OCT 19, 2005
  • DESCRIPTION:  
    This field is used to indicate that a claim should be electronically re-transmitted to the 3rd party insurance. It will be primarily used by CMOP and local mail prescriptions.





83
DATE NDC VALIDATED
EPH;3
DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 2008
  • HELP-PROMPT:  Enter the date and time that the prescription was validated.
  • DESCRIPTION:  
    This field contains the date and time that the NDC was validated prior to release of the prescription fill.
  • TECHNICAL DESCR:  
    This field is set by the NDC Validation [PSO NDC VALIDATE] option when the NDC on the prescription matches the NDC on the stock bottle.
    UNEDITABLE





84
NDC VALIDATED BY
EPH;4
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  JAN 14, 2008
  • HELP-PROMPT:  Enter the User's ID who validated the NDC.
  • DESCRIPTION:  
    This field contains the user ID of the person who validated the NDC prior to release of the prescription fill.
  • TECHNICAL DESCR:  
    This field is set by the NDC Validation [PSO NDC VALIDATE] option when the NDC on the prescription matches the NDC on the stock bottle.
    UNEDITABLE





85
BILLING ELIGIBILITY INDICATOR
EPH;5
SET

  • 'T' FOR TRICARE;
  • 'V' FOR VETERAN;
  • 'C' FOR CHAMPVA;
  • LAST EDITED:  FEB 25, 2008
  • HELP-PROMPT:  Enter T for Tricare , V for Veteran or C for CHAMPVA.
  • DESCRIPTION:  
    This field is set when a prescription is third party insurance billable and will contain T for Tricare, V for Veteran or C for CHAMPVA.
  • TECHNICAL DESCR:  
    This field contains the billing eligibility flag passed from ECME upon submission of a claim for the fill.





86
EPHARMACY SUSPENSE HOLD DATE
EPH;6
DATE

  • INPUT TRANSFORM:  S %DT="ES" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 07, 2008
  • HELP-PROMPT:  Enter the date the refill can be removed from suspense hold.
  • DESCRIPTION:  
    This field is defined when a host reject error is received as a result of an ePharmacy claims submission.  The prescription fill will be held on suspense until the next day.
  • TECHNICAL DESCR:  This field is defined with a date/time of 24 hours from the date/time the refill was rejected with either a M6, M8, NN, or 99 host reject error code. This allows the software to resubmit a claim the following day to
    attempt a successful acceptance.





9999999.01
REQUESTING PROVIDER
9999999;1
POINTER TO NEW PERSON FILE (#200)
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 24, 2007
  • DESCRIPTION:  
    This field is used to show the EHR provider that requested a refill for the patient.
  • 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 to be selected.





9999999.06
BENCHMARK UNIT PRICE OF DRUG
9999999;6
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  NOV 10, 2011
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 6 Decimal Digits





9999999.07
REFILL BILL STATUS
9999999;7
SET

  • '0' FOR MANUAL BILL;
  • '1' FOR AUTO BILL;
  • LAST EDITED:  OCT 03, 2000





9999999.08
REFILL PAY STATUS
9999999;8
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  SEP 14, 2000
  • HELP-PROMPT:  Answer must be 1-80 characters in length.





9999999.09
REFILL PAY STATUS (COMPUTED)

COMPUTED

  • MUMPS CODE:  S X=$$STATUS^APSQBRES(D0,D1)
  • ALGORITHM:  S X=$$STATUS^APSQBRES(D0,D1)





9999999.11
PCC REFILL LINK
999999911;1
POINTER TO V MEDICATION FILE (#9000010.14)
V MEDICATION(#9000010.14)
  • LAST EDITED:  MAR 19, 2004
  • HELP-PROMPT:  The pharmacy link program sets this field, which should not be set by users
  • CROSS-REFERENCE:  52^APCC2^MUMPS
    1)= S ^PSRX("APCC",$E(X,1,30),DA(1),DA)=""
    2)= K ^PSRX("APCC",$E(X,1,30),DA(1),DA) I '$D(PSOSUSPA) N APSRX,APSRM S APSRX=DA(1),APSRM=X D ^APSPCCD
    Delete VMED entry if refill entry is deleted except when archiving.





9999999.12
REFILL INSURER INFO
9999999;12
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 24, 2000
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:^





9999999.13
REFILL DUR/PPS POINTER
9999999;13
POINTER TO ABSP DUR/PPS FILE (#9002313.473)
ABSP DUR/PPS(#9002313.473)
  • LAST EDITED:  DEC 10, 2002
  • HELP-PROMPT:  THIS IS THE REFILL DUR/PPS POINTER





9999999.15
REFILL PRICING OVERRIDE
9999999;15
POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAY 13, 2005
  • DESCRIPTION:  
    This field points to the ABSP NCPCP 5.1 PRICING OVERRIDE file used by Point of Sale to populate needed fields within the pricing segment.





9999999.17
REFILL DIAGNOSIS CODE POINTER
9999999;17
POINTER TO ABSP DIAGNOSIS CODE FILE (#9002313.491)
ABSP DIAGNOSIS CODE(#9002313.491)
  • LAST EDITED:  SEP 17, 2007





9999999.18
PRIORITY
9999999;18
SET

  • 'S' FOR RUSH;
  • 'W' FOR WAITING;
  • 'T' FOR TELEPHONE;
  • 'R' FOR REFILL BY MAIL;
  • 'N' FOR NOT WAITING;
  • LAST EDITED:  SEP 27, 2011





9999999.19
RXNORM CODE
9999999;19
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  NOV 20, 2012
  • HELP-PROMPT:  Answer must be 1-8 characters in length.







    



Info | 
Details | 
All