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

Info | Desc | Accessed By FileMan Db Calls | Fields | ICR

Print Page as PDF

Global: ^RC(346

Package: Accounts Receivable

Global: ^RC(346

Information

FileMan FileNo	FileMan Filename	Package
346	AR EDI RARC DATA	Accounts Receivable

Description

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.

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Integrated Billing	3	IBCECSA5 IBJTEP IBJTPE

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
1	START DATE	0;2	DATE	**********************REQUIRED FIELD********************** 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`
2	STOP DATE	0;3	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`
3	MODIFIED DATE	0;4	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`
4	DESCRIPTION	1;0	WORD-PROCESSING #346.04	DESCRIPTION: `This field is the long description of the CODE.`
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^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`
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`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #6237	Integrated Billing	CODE (.01). Access: Read w/Fileman DESCRIPTION (.01). Access: Read w/Fileman DESCRIPTION (4). Access: Read w/Fileman	This file stores the codes and descriptions of theRemittance Advice Remark Codes (RARC) file published by the WashingtonPublishing Company. The RARC data is updated by the FSC that has asubscription to WPC for these codes. This file was implemented in patchPRCA4.5303. ^RC(346,D0,0)= (#.01) CODE [1F]This stores the long description of the CODE.^RC(346,D0,1,D1,0)= (#.01) DESCRIPTION [1W] ^^RC(346,D0,1,0)=^346.04^^ (#4) DESCRIPTION

Info | Desc | Accessed By FileMan Db Calls | Fields | ICR