Print Page as PDF
DETERMINE IF A CLAIN IS A NON-ACCRUED ACCOUNT ICR (5630)

DETERMINE IF A CLAIN IS A NON-ACCRUED ACCOUNT    ICR (5630)

Name Value
NUMBER 5630
IA # 5630
DATE CREATED 2011/04/19
CUSTODIAL PACKAGE ACCOUNTS RECEIVABLE
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PRCAACC
NAME DETERMINE IF A CLAIN IS A NON-ACCRUED ACCOUNT
GENERAL DESCRIPTION 
Integrated Billing has permission to make the following
call to AR to determine if a claim is a non-accrued account:  $ACCK^PRCAACC.
When the user is attempting to use the IB option:  [IB CORRECT
REJECTED/DENIED], if the claim is non-accrued ('$$ACCK^PRCAACC(IBIFN)), the
user will be prevented from using the option and directed instead to IB
option:  [IB COPY AND CANCEL].
STATUS Active
KEYWORDS
  • PRCAACC
  • IBCC
DURATION Till Otherwise Agreed
ID PRCAACC
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
ACCK 
This function returns a 0 if the account/claim is
non-accrued and should be sent to FMS. A 1 indicates the account/claim is an
accrual.
VARIABLES TYPE VARIABLES DESCRIPTION
IBIFN Input 
Ien of BILL/CLAIM in file (#399) which is identical
to the ien of the BILL/receivable <DINUM> in ACCOUNTS RECEIVABLE file (#430),
that needs to be checked for accrual status before allowing correction.
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
INTEGRATED BILLING 
IB needs to use $$ACCK^PRCAAC to determine if a
claim/account is non-accrued.  This function will be called at claim look-up
when the user 1st enters the [IB CORRECT REJECTED/DENIED] option (CRD).  If it
determines that the claim/account that the user entered is a non-accrued
claim, the user will be told that they cannot use the new CRD  option and will
be directed to use the old CLON option [IB COPY AND CANCEL] instead.  At
NOPTF^IBCC: NOPTF    ; Note if IB364 is >0 it will be used as the ien to
update in file 364
N DA,I
I '$G(IBNOASK) S IBIFN=+$G(Y)
I '$G(IBIFN) G ASK
I IBCAN>1 D NOPTF^IBCB2 I 'IBAC1 D NOPTF1^IBCB2 G ASK
; New messages for CRD option IB*2.0*433
I $G(IBCNCRD)=1,'$$ACCK^PRCAACC(IBIFN) D  Q
.W !!,"This option cannot be used to correct some Billing Rate Types
(Example: TRICARE)"
.W "Copy and cancel (CLON) must be used to correct this bill."
.S IBQUIT=1 H 3
;
DATE ACTIVATED 2011/04/19