STANDARD DATA DICTIONARY #345 -- AR EDI CARC DATA FILE 9/29/25 PAGE 1
STORED IN ^RC(345, (351 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File implemented for patch PRCA*4.5*303
This file stores the codes and descriptions of the Claim Adjustment Remittance Codes (CARC) file published by the Washington
Publishing Company. The CARC data is updated by the FSC, which has a subscription from WPC to obtain updated codes and
descriptions.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
APPLICATION GROUP(S): PRCA
CROSS
REFERENCED BY: CODE(B)
345,.01 CODE 0;1 FREE TEXT (Required)
Code
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JAN 19, 2015
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Claims Adjustment Reason Code
CROSS-REFERENCE: 345^B
1)= S ^RC(345,"B",$E(X,1,30),DA)=""
2)= K ^RC(345,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^345^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(345,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU
=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^RC(345,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
345,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
The RECORD DATE CHANGED will be triggered whenever any of the fields within this record is changed.
The triggered value is NOW. This field cannot be edited.
345,1 START DATE 0;2 DATE (Required)
Start Date
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 19, 2015
HELP-PROMPT: Enter Date CODE was put into service
DESCRIPTION:
Start Date is the date that the CODE was put into service.
CROSS-REFERENCE: ^^TRIGGER^345^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(345,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU
=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^RC(345,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
345,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
345,2 STOP DATE 0;3 DATE
Stop Date
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 19, 2015
HELP-PROMPT: Enter Date CODE was removed from service
DESCRIPTION:
Date CODE was removed from service.
CROSS-REFERENCE: ^^TRIGGER^345^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(345,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU
=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^RC(345,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
345,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
345,3 MODIFIED DATE 0;4 DATE
Modified Date
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 19, 2015
HELP-PROMPT: Enter date that this entry was last updated
DESCRIPTION:
Date the this entry was last updated.
CROSS-REFERENCE: ^^TRIGGER^345^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(345,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU
=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^RC(345,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
345,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
345,4 DESCRIPTION 1;0 WORD-PROCESSING #345.04 (IGNORE "|")
DESCRIPTION:
This is the long description of the code maintained by Washington Publishing Company.
LAST EDITED: OCT 23, 2014
HELP-PROMPT: Enter the Description text for this CODE
345,5 NOTES 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: JAN 19, 2015
HELP-PROMPT: Answer must be 1-200 characters in length.
DESCRIPTION:
This field is any additional information provided by the Washington Publishing Company.
CROSS-REFERENCE: ^^TRIGGER^345^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(345,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU
=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^RC(345,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
345,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
345,6 RECORD CHANGE DATE 0;5 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 19, 2015
HELP-PROMPT: Enter date/time that anything in this record changed
DESCRIPTION: This field keeps track of the last time any of the fields within this record has changed. A trigger
should be set up on the other fields that set this date time when the record was updated.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the CODE field of the AR EDI CARC DATA File
TRIGGERED by the START DATE field of the AR EDI CARC DATA File
TRIGGERED by the STOP DATE field of the AR EDI CARC DATA File
TRIGGERED by the MODIFIED DATE field of the AR EDI CARC DATA File
TRIGGERED by the NOTES field of the AR EDI CARC DATA File
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):