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

Package: Outpatient Pharmacy

EPHARMACY SITE PARAMETERS(#52.86)-->52.8651

Sub-Field: 52.8651


Information

Parent File Name Number Package
EPHARMACY SITE PARAMETERS(#52.86) REJECT CODE 52.8651 Outpatient Pharmacy

Details

Field # Name Loc Type Details
.01 CODE 0;1 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAY 22, 2008
  • HELP-PROMPT:  Enter a valid third party claim reject code.
  • DESCRIPTION:  
    A valid third party claim reject code should be entered.  A listing of these codes is provided when double question marks are entered for this field.
  • TECHNICAL DESCR:  
    This field can contain any reject code from BPS NCPDP REJECT CODES file (#900231.93).  Also, a value defined in this field triggers definition of USER field (#2) and DATE OF LAST UPDATE field (#3).
  • EXECUTABLE HELP:  D HELP^PSOBPSSP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^52.8651^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,.01,1,1,1.4)
    1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,.01,1,1,2.4)
    2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
    CREATE VALUE)= S:$G(DUZ) X=DUZ
    DELETE VALUE)= S:$G(DUZ) X=DUZ
    FIELD)= USER
    This trigger is used to set the User ID of the person who lasted edited the third party reject code.
  • CROSS-REFERENCE:  ^^TRIGGER^52.8651^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,.01,1,
    2,1.4)
    1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,.01,1,
    2,2.4)
    2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
    CREATE VALUE)= NOW
    DELETE VALUE)= NOW
    FIELD)= DATE
    Trigger to set the DATE OF LAST UPDATE field when a third party reject code is entered.
  • CROSS-REFERENCE:  52.8651^B
    1)= S ^PS(52.86,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^PS(52.86,DA(1),1,"B",$E(X,1,30),DA)
1 AUTO SEND 0;2 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 22, 2008
  • HELP-PROMPT:  Enter Yes for auto update or No for requires OPECC intervention.
  • DESCRIPTION:  Enter YES to allow the third party claim reject code to be automatically placed on the Pharmacy Reject Worklist or NO to require Outpatient Pharmacy Electronic Claims Coordinator (OPECC) intervention to do so. A null
    value will be treated the same as entering NO in this field.
  • TECHNICAL DESCR:  
    Any individually defined codes will be overridden when the ALLOW ALL REJECTS field (#1) is defined as YES.
  • CROSS-REFERENCE:  ^^TRIGGER^52.8651^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,1,1,1,1.4)
    1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,1,1,1,2.4)
    2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
    CREATE VALUE)= S:$G(DUZ) X=DUZ
    DELETE VALUE)= S:$G(DUZ) X=DUZ
    FIELD)= USER
    This trigger is used to set the User ID of the person who lasted edited the AUTO SEND field.
  • CROSS-REFERENCE:  ^^TRIGGER^52.8651^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,1,1,2,
    1.4)
    1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,1,1,2,
    2.4)
    2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
    CREATE VALUE)= NOW
    DELETE VALUE)= NOW
    FIELD)= DATE
    This trigger is used to set the date that the AUTO SEND field was lasted updated.
2 USER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 30, 2008
  • HELP-PROMPT:  Enter the User who entered or edited the third party reject code information.
  • DESCRIPTION:  
    This is the user who last updated information for the third party reject code.
  • TECHNICAL DESCR:  
    This field contains the user IEN of the person who last updated the third party reject code.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the CODE field of the REJECT CODE sub-field of the EPHARMACY SITE PARAMETERS File
    TRIGGERED by the AUTO SEND field of the REJECT CODE sub-field of the EPHARMACY SITE PARAMETERS File
3 DATE OF LAST UPDATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 2008
  • HELP-PROMPT:  Enter date and time.
  • DESCRIPTION:  
    This is the date/time that the third party reject code was added or updated.
  • TECHNICAL DESCR:  
    This field provides an audit of the date/time the CODE field (#1) was last updated.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the CODE field of the REJECT CODE sub-field of the EPHARMACY SITE PARAMETERS File
    TRIGGERED by the AUTO SEND field of the REJECT CODE sub-field of the EPHARMACY SITE PARAMETERS File
Info |  Details |  All