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

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 patchPRCA*4.5*303. ^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