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(345

Package: Accounts Receivable

Global: ^RC(345


Information

FileMan FileNo FileMan Filename Package
345 AR EDI CARC DATA Accounts Receivable

Description

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Integrated Billing 4 IBCECSA5    IBCECSA6    IBJTEP    IBJTPE    
Accounts Receivable 1 RCDPEAD    

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:  
    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.
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 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
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:  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
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 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
4 DESCRIPTION 1;0 WORD-PROCESSING #345.04

  • 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
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
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

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6238
  • Integrated Billing
    		•  CODE (.01).
    Access: Read w/Fileman

    DESCRIPTION (4).
    Access: Read w/Fileman

    DESCRIPTION (.01).
    Access: Read w/Fileman

    		 This file stores the codes and descriptions of the ClaimAdjustment Remittance Codes (CARC) file published by the Washington PublishingCompany. The CARC data is updated by the FSC, which has a subscription fromWPC to obtain updated codes and descriptions. File implemented for patchPRCA*4.5*303 ^RC(345,D0,0)= (#.01) CODE [1F]^RC(345,D0,1,0)=^345.04^^ (#4) DESCRIPTION^RC(345,D0,1,D1,0)= (#.01) DESCRIPTION [1W] ^
    Info |  Desc |  Accessed By FileMan Db Calls |  Fields |  ICR