STANDARD DATA DICTIONARY #346 -- AR EDI RARC DATA FILE 9/29/25 PAGE 1
STORED IN ^RC(346, (1006 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file was implemented in patch PRCA*4.5*303
This file stores the codes and descriptions of the Remittance Advice Remark Codes (RARC) file published by the Washington
Publishing Company. The RARC data is updated by the FSC that has a subscription to WPC for these codes.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
APPLICATION GROUP(S): PRCA
CROSS
REFERENCED BY: CODE(B)
346,.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:
Remittance Advice Remark Code (RARC)
CROSS-REFERENCE: 346^B
1)= S ^RC(346,"B",$E(X,1,30),DA)=""
2)= K ^RC(346,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^346^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(346,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(346,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
346,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.
346,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 the date that the code was put into service
DESCRIPTION:
Start Date is the date that the code was put into service.
CROSS-REFERENCE: ^^TRIGGER^346^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(346,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(346,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
346,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
346,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: Date CODE was removed from service
DESCRIPTION:
Stop Date is the date that the code was removed from service.
CROSS-REFERENCE: ^^TRIGGER^346^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(346,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(346,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
346,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
346,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 the date the this entry was last modified
DESCRIPTION:
Modified Date is the date that the CODE was last updated.
CROSS-REFERENCE: ^^TRIGGER^346^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(346,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(346,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
346,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
346,4 DESCRIPTION 1;0 WORD-PROCESSING #346.04 (IGNORE "|")
DESCRIPTION:
This field is the long description of the CODE.
LAST EDITED: OCT 23, 2014
HELP-PROMPT: Enter the full description of the code
346,5 NOTES 2;1 FREE TEXT
Notes
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^346^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(346,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(346,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=
346,DIG=6 D ^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= RECORD CHANGE DATE
346,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 RARC DATA File
TRIGGERED by the START DATE field of the AR EDI RARC DATA File
TRIGGERED by the STOP DATE field of the AR EDI RARC DATA File
TRIGGERED by the MODIFIED DATE field of the AR EDI RARC DATA File
TRIGGERED by the NOTES field of the AR EDI RARC DATA File
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):