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.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)	TRANSFER REJECT CODE	52.8651	Outpatient Pharmacy

Details

Field #	Name	Loc	Type	Details
.01	TRANSFER REJECT CODE	0;1	POINTER TO BPS NCPDP REJECT CODES FILE (#9002313.93)	BPS NCPDP REJECT CODES(#9002313.93) LAST EDITED: `MAY 28, 2013` HELP-PROMPT: `Enter a third party claim reject code.` DESCRIPTION: `This field identifies a Transfer Reject code defined for the selected ePharmacy Division.` 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 19, 2013` 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.` 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: `MAY 28, 2013` HELP-PROMPT: `Enter the User who entered or edited the Third Party reject code information.` DESCRIPTION: `This is the user who last updated the TRANSFER REJECT CODE (#.01) field or the AUTO SEND (#1) field.` `WRITE AUTHORITY:^` NOTES: `TRIGGERED by the TRANSFER REJECT CODE field of the TRANSFER REJECT CODE sub-field of the EPHARMACY SITE PARAMETERS File` `TRIGGERED by the AUTO SEND field of the TRANSFER 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: `MAY 19, 2013` HELP-PROMPT: `Enter date and time Third Party reject code information was last updated.` DESCRIPTION: `This is the date/time that the TRANSFER REJECT CODE (#.01) field or the AUTO SEND (#1) field was added or updated.` TECHNICAL DESCR: `This field provides an audit of the date/time the TRANSFER REJECT CODE (#.01) field or the AUTO SEND (#1) field was last updated.` `WRITE AUTHORITY:^` NOTES: `TRIGGERED by the TRANSFER REJECT CODE field of the TRANSFER REJECT CODE sub-field of the EPHARMACY SITE PARAMETERS File` `TRIGGERED by the AUTO SEND field of the TRANSFER REJECT CODE sub-field of the EPHARMACY SITE PARAMETERS File`