Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 52.865

Package: Outpatient Pharmacy

EPHARMACY SITE PARAMETERS(#52.86)-->52.865

Sub-Field: 52.865

Information

Parent File	Name	Number	Package
EPHARMACY SITE PARAMETERS(#52.86)	REJ RESOLUTION REQUIRED CODE	52.865	Outpatient Pharmacy

Details

Field #	Name	Loc	Type	Details
.01	REJ RESOLUTION REQUIRED CODE	0;1	POINTER TO BPS NCPDP REJECT CODES FILE (#9002313.93)	**********************REQUIRED FIELD********************** BPS NCPDP REJECT CODES(#9002313.93) LAST EDITED: `JUN 10, 2013` HELP-PROMPT: `Enter a Reject code for Reject Resolution Required.` DESCRIPTION: `This field identifies a Reject Resolution Required Code defined for the selected ePharmacy Division.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `52.865^B` `1)= S ^PS(52.86,DA(1),5,"B",$E(X,1,30),DA)=""` `2)= K ^PS(52.86,DA(1),5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^52.865^.03` `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,5,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.865,.01,1,2,1.4)` `1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 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,5,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.865,.01,1,2,2.4)` `2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 D ^DICR` `CREATE VALUE)= S:$G(DUZ) X=DUZ` `DELETE VALUE)= S:$G(DUZ) X=DUZ` `FIELD)= USER` `Sets the USER field to the current DUZ whenever the REJ RESOLUTION REQUIRED CODE field is changed or created.` CROSS-REFERENCE: `^^TRIGGER^52.865^.04` `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,5,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.01,1,3,1.4)` `1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 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,5,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.01,1,3,2.4)` `2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 D ^DICR` `CREATE VALUE)= NOW` `DELETE VALUE)= NOW` `FIELD)= DATE` `Sets the DATE LAST UPDATED field to the current date and time.`
.02	DOLLAR THRESHOLD	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `JUN 10, 2013` HELP-PROMPT: `Type a number between 0 and 99999, 0 decimal digits.` DESCRIPTION: `If a Reject Resolution Required Code is received on an ECME claim reject, the value of this field is compared to the Gross Amount Due of the prescription.` `If the Gross Amount Due is greater or equal to the value of this field then the reject is transferred to the Third Party WorkList for Reject Resolution Required (RRR) processing.` `If the value of this field is left blank or set to 0, then all rejects with the RRR reject code will be transferred to the Third Party Worklist for RRR processing.` CROSS-REFERENCE: `^^TRIGGER^52.865^.03` `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,5,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.865,.02,1,1,1.4)` `1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 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,5,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.865,.02,1,1,2.4)` `2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 D ^DICR` `CREATE VALUE)= S:$G(DUZ) X=DUZ` `DELETE VALUE)= S:$G(DUZ) X=DUZ` `FIELD)= user` CROSS-REFERENCE: `^^TRIGGER^52.865^.04` `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,5,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.02,1,2,1.4)` `1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 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,5,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.02,1,2,2.4)` `2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 D ^DICR` `CREATE VALUE)= NOW` `DELETE VALUE)= NOW` `FIELD)= DATE LAST UPDATED` `Sets DATE LAST UPDATED to the current date/time.`
.03	USER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 2013` HELP-PROMPT: `Select the user who last edited the fields.` DESCRIPTION: `This is set by a trigger to the current DUZ whenever the REJ RESOLUTION REQUIRED CODE (#.01) field or the DOLLAR THRESHOLD (#.02) field is updated.` NOTES: `TRIGGERED by the REJ RESOLUTION REQUIRED CODE field of the REJ RESOLUTION REQUIRED CODE sub-field of the EPHARMACY SITE PARAMETERS File` `TRIGGERED by the DOLLAR THRESHOLD field of the REJ RESOLUTION REQUIRED CODE sub-field of the EPHARMACY SITE PARAMETERS File`
.04	DATE LAST UPDATED	0;4	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUN 10, 2013` HELP-PROMPT: `Enter the date/time the fields were last updated.` DESCRIPTION: `This is set by a trigger to the current date/time whenever the REJ RESOLUTION REQUIRED CODE (#.01) field or the DOLLAR THRESHOLD (#.02) field is updated.` NOTES: `TRIGGERED by the REJ RESOLUTION REQUIRED CODE field of the REJ RESOLUTION REQUIRED CODE sub-field of the EPHARMACY SITE PARAMETERS File` `TRIGGERED by the DOLLAR THRESHOLD field of the REJ RESOLUTION REQUIRED CODE sub-field of the EPHARMACY SITE PARAMETERS File`