Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PRCA(433

Package: Accounts Receivable

Global: ^PRCA(433


Information

FileMan FileNo FileMan Filename Package
433 AR TRANSACTION Accounts Receivable

Description

Directly Accessed By Routines, Total: 170

Package Total Routines
Accounts Receivable 154 DESCRIPTION    PRCA FOLLOW-UP    PRCAATR    PRCACOL    PRCAFBDU    PRCAFN    PRCAGT    PRCAI134
PRCAREP    PRCARFD1    PRCASER1    PRCATP9    PRCATR3    PRCAUT1    PRCAUTL    RCBEADJI
RCBEPAY    RCBEUBIL    RCBMILL    RCCPCPS1    RCCPW1    RCDPLPL2    RCDPRTP0    RCDPUREC
RCDPURED    RCJIBFN1    RCJIBFN2    RCJIBFN3    RCKATP    RCRCAT    RCRCREC3    RCRCRT1
RCRCRT2    RCTCSWL    RCTRAN    RCWROFF    RCXFMSW1    RCXVTSK    RCYPAY    ^PRCA(433
FISCAL YEAR    PRCA45PT    PRCACLM    PRCACM    PRCADEL    PRCADJ    PRCADR    PRCADR2
PRCADR3    PRCAEXM    PRCAFN1    PRCAHIS    PRCAHV    PRCAI103    PRCAI162    PRCAI164
PRCAI168    PRCAI169    PRCAI16A    PRCAI16M    PRCAKBT1    PRCAKS    PRCALM    PRCALST
PRCAPCL    PRCAPTR    PRCARETN    PRCARFP    PRCARFU    PRCARPS    PRCARPU    PRCAS AMIS SORT
PRCASER    PRCATB    PRCATB1    PRCATF2    PRCATO3    PRCATO4    PRCATO5    PRCATW1
PRCATW2    PRCATW3    PRCAWO    PRCAWO1    PRCAWOF    PRCAWREA    PRCAX    PRCAX1
PRCAXP    PRYBPOST    PRYNPOST    RCAEOB    RCAMINS    RCBDFST1    RCBDPSL1    RCBDPSLM
RCBDPSNO    RCBEADJ    RCBECHGA    RCBECHGE    RCBECHGU    RCBEPAY2    RCBEPAYF    RCBEPAYP
RCBEUTR1    RCBEUTR2    RCBEUTRA    RCBMILL1    RCBMILL2    RCBMILL3    RCBMILL4    RCBMILLC
RCBMILLT    RCCPCPS    RCDMBWLA    RCDMCR5B    RCDPAYER    RCDPBTLM    RCDPEM21    RCDPTPLI
RCDPTPLM    RCDPXFIM    RCDPXFIX    RCEXINAD    RCFMDRV1    RCFMFN02    RCNRIG    RCRCACP
RCRCAT1    RCRCBL1    RCRCRT    RCRCUTL    RCRJRBD    RCRJRCO1    RCRJRCOB    RCRJRCOT
RCRJRDEP    RCRJRTR1    RCRJRTRA    RCTCSP1    RCTCSP2    RCTCSP4    RCTCSP5    RCTCSPD
RCTCSPD4    RCTCSPD5    RCTRAN1    RCWROFF1    RCXFMSC1    RCXVDC6    RCXVDEQ    RCXVUTIL
RCYDD1    RCYPO237    
Integrated Billing 10 IBCNSMR7    IBCOPR    IBJD1    IBJDB11    IBJDF11    IBJDF41    IBJDF51    IBJDF61
IBJDF81    IBNCPDP5    

Accessed By FileMan Db Calls, Total: 49

Package Total Routines
Accounts Receivable 46 PRCACLM    PRCACM    PRCADJ    PRCAEXM    PRCAFBDU    PRCAFDCT    PRCAKBT1    PRCAKS
PRCALM    PRCAPAY3    PRCAPRO    PRCAREP    PRCAREPT    PRCARETN    PRCARFD1    PRCARPU
PRCASER    PRCASER1    PRCATB    PRCATB1    PRCAUTL    PRCAWO    PRCAWO1    PRCAWREA
PRCAX    RCBEADJI    RCBEUBIL    RCBEUTRA    RCCPC1    RCDMCR5B    RCDPAYER    RCDPTPLM
RCFMFN02    RCJIBFN3    RCKATPD    RCRCACP    RCRCAT1    RCRCRT    RCRCRT1    RCRCRT2
RCTCSP4    RCTCSP5    RCTCSPD4    RCTCSPD5    RCTCSWL    RCXVDC6    
Integrated Billing 2 IBJDF4    IBNCPDP5    
Outpatient Pharmacy 1 PSOCPF1    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Accounts Receivable 3 ACCOUNTS RECEIVABLE(#430)[#430.0171(.01)#430.051(4)]    AR TRANSACTION(#433)[20]    AR FMS DOCUMENT(#347)[.08]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Accounts Receivable 4 ACCOUNTS RECEIVABLE(#430)[.03]    ACCOUNTS RECEIVABLE CATEGORY(#430.2)[#433.061(1)]    ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3)[1218]    AR TRANSACTION(#433)[20]    
IFCAP 1 UNIT OF ISSUE(#420.5)[#433.061(5)]    
Kernel 1 NEW PERSON(#200)[42]    

Fields, Total: 53

Field # Name Loc Type Details
.01 TRANSACTION NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X'>0)!(X?.E1"."1N.N) X I $D(X) S DINUM=+X
  • LAST EDITED:  JAN 17, 1997
  • HELP-PROMPT:  Enter an existing Transaction Number, type '??' for a listing.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  433^B
    1)= S ^PRCA(433,"B",$E(X,1,30),DA)=""
    2)= K ^PRCA(433,"B",$E(X,1,30),DA)
    3)= This is the transaction number cross-reference.
    This cross-reference is used for sorting and file look-up by Transaction Number.
.02 FISCAL YEAR 4;0 Multiple #433.01 433.01

  • IDENTIFIED BY:  PAT REF #(#2)
.03 BILL NUMBER 0;2 POINTER TO ACCOUNTS RECEIVABLE FILE (#430)
************************REQUIRED FIELD************************
ACCOUNTS RECEIVABLE(#430)

  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the bill number from the Accounts Receivable File (430).
  • DESCRIPTION:  
    This is the bill number from File 430.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  433^C
    1)= S ^PRCA(433,"C",$E(X,1,30),DA)=""
    2)= K ^PRCA(433,"C",$E(X,1,30),DA)
    3)= This is the bill number cross-reference.
    This cross-reference is used to determine the transaction entries associated with each internal bill number (from file 430).
  • CROSS-REFERENCE:  ^^TRIGGER^433^19
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PRCA(433,D0,1)):^(1),1:"") S X=$P(Y(1),U,9)="" I X S X=DIV S Y(1)=$S($D(^PRCA(433,D0,1)):^(1),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D NOW^%DTC S X=% X ^DD(4
    33,.03,1,2,1.4)
    1.4)= S DIH=$S($D(^PRCA(433,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,9)=DIV,DIH=433,DIG=19 D ^DICR:$O(^DD(DIH,DIG,1,0))
    2)= Q
    3)= This is the cross-reference for the debtor and date entered.
    CREATE CONDITION)= DATE ENTERED=""
    CREATE VALUE)= D NOW^%DTC S X=%
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE ENTERED
    This cross-reference is needed to log an 'activity' to the patient account for printing patient statements and various reports.
3 CALM CODE DONE 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR NOT DONE;
  • '0' FOR DONE;

  • LAST EDITED:  SEP 01, 1988
  • DESCRIPTION:  
    This flag indicates whether or not a CALM code sheet has been completed for this transaction.
  • CROSS-REFERENCE:  433^AE^MUMPS
    1)= I +X=1 S ^PRCA(433,"AE",$E(X,1,30),DA)=""
    2)= K ^PRCA(433,"AE",$E(X,1,30),DA)
    3)= This is the calm code done cross-reference.
    This cross-reference is used for sorting by Calm Code status.
4 TRANSACTION STATUS 0;4 SET
  • '1' FOR INCOMPLETE;
  • '2' FOR COMPLETE;

  • LAST EDITED:  NOV 16, 1987
  • DESCRIPTION:  
    This flag indicates whether or not this transaction is complete.
5 DATE CALM DONE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 19, 1988
  • HELP-PROMPT:  Enter date the CALM Code sheet was done.
  • DESCRIPTION:  
    This is the date that the CALM code sheet was completed.
5.02 BRIEF COMMENT 5;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 12, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field contains a brief description of the reason for the transaction.  This description is displayed on the profile option as a single line item.
5.03 FOLLOW-UP DATE 5;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1993
  • DESCRIPTION:  This date represents the date that an action or follow-up should take place by MCCR. For example, if an insurance company estimates that a payment should be received by the VA in two weeks, then the follow-up date should
    be set to two weeks.  A report will be generated in two weeks displaying this transaction as a reminder to follow-up on the payment.
  • CROSS-REFERENCE:  433^AG
    1)= S ^PRCA(433,"AG",$E(X,1,30),DA)=""
    2)= K ^PRCA(433,"AG",$E(X,1,30),DA)
    3)= This is the follow-up date cross-reference.
    This cross-reference is used for the Follow-up List.
6 SEGMENT 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 18, 1988
  • HELP-PROMPT:  Type a Number between 0 and 500, 0 Decimal Digits
  • DESCRIPTION:  
    This is the AMIS segment for this transaction.
7 RC DOJ CODE 0;7 SET
  • 'DC' FOR REGIONAL COUNSEL;
  • 'DOJ' FOR DEPARTMENT OF JUSTICE;
  • 'IRS' FOR INTERNAL REVENUE SERVICE;
  • 'RC' FOR REGIONAL COUNSEL;
  • 'TOP' FOR TREASURY OFFSET PROGRAM;

  • LAST EDITED:  NOV 09, 1999
  • HELP-PROMPT:  Enter the Referral Code that is in File 430 when this transaction was created.
  • DESCRIPTION:  
    This indicates a referral to the Regional Counsel, IRS or the Department of Justice.
8 APPROPRIATION SYMBOL 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<7) X
  • LAST EDITED:  MAR 30, 1988
  • HELP-PROMPT:  ANSWER MUST BE 7-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the appropriation symbol for this transaction.
10 INCOMPLETE TRANSACTION FLAG 0;10 SET
  • '1' FOR INCOMPLETE TRANSACTION;

  • LAST EDITED:  MAR 09, 1992
  • DESCRIPTION:  
    This field marks a transaction as being "invalid" for printing on the patient statement.  This will also exclude the transaction from being counted on the balance discrepancy report.
11 TRANSACTION DATE 1;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT(0)=-DT,%DT="E" D ^%DT S X=Y K:Y<1 X K %DT
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Type the Date of Transaction. Transaction date cannot be for future date.
  • DESCRIPTION:  
    This is the date of this transaction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  433^AD^MUMPS
    1)= D AT^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
12 TRANSACTION TYPE 1;2 POINTER TO ACCOUNTS RECEIVABLE TRANS.TYPE FILE (#430.3)
************************REQUIRED FIELD************************
ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3)

  • INPUT TRANSFORM:  K:$P(^PRCA(433,DA,0),U,2)="" X Q
  • LAST EDITED:  JUL 20, 2005
  • HELP-PROMPT:  This field is internally populated by AR. This field contains the transaction type for the entry.
  • DESCRIPTION:  
    This points to the AR transaction file (#430.3). The input would be accepted only if the transaction has a bill number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  433^AW^MUMPS
    1)= I X>7,X<12 S ^PRCA(433,"AW",X,DA)=""
    2)= K ^PRCA(433,"AW",X,DA)
    This cross-reference is set if the transaction is a 'write-off' transaction (i.e., waivers and compromises).  It is used to calculate the summary write-off documents for FMS.
  • CROSS-REFERENCE:  433^AT2^MUMPS
    1)= I $P($G(^PRCA(433,DA,1)),U,9) S ^PRCA(433,"AT",X,+$P($P(^PRCA(433,DA,1),U,9),"."),DA)=""
    2)= I $P($G(^PRCA(433,DA,1)),U,9) K ^PRCA(433,"AT",X,+$P($P(^PRCA(433,DA,1),U,9),"."),DA)
    This cross reference is used by the National Database collector and by AR reports to look up transactions by transacation type and by date entered (processed).
  • CROSS-REFERENCE:  433^AEOB1^MUMPS
    1)= I X=2 D AEOB^RCRCUTL
    2)= I X'=2 K ^PRCA(433,"AEOB",+$P(^PRCA(433,DA,0),"^",2),DA)
    The AEOB cross-ref will be set if the Transaction Type is Payment in Part, for a TP bill referred to RC that does not have the EOB Code field populated.
  • CROSS-REFERENCE:  433^AI^MUMPS
    1)= D AT^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Date Queue file for transmission to the ARC.
13 RECEIPT # 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<7) X
  • LAST EDITED:  JAN 12, 1994
  • HELP-PROMPT:  Answer must be 7-10 characters in length.
  • DESCRIPTION:  
    This is a number assigned to the receipt when the payment was received.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  433^AF
    1)= S ^PRCA(433,"AF",$E(X,1,30),DA)=""
    2)= K ^PRCA(433,"AF",$E(X,1,30),DA)
    3)= This is the receipt number cross-reference.
    This cross-reference is used for sorting on receipt number.
14 ADJUSTMENT NUMBER 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  OCT 15, 1993
  • HELP-PROMPT:  This number is ordered automatically and sequentially. The length of this number would be 1-5 numbers/characters.
  • DESCRIPTION:  
    This is a number assigned automatically and sequentially.
15 TRANS. AMOUNT 1;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X
  • LAST EDITED:  OCT 22, 1991
  • HELP-PROMPT:  Type a dollar amount for this transaction with 2 decimal digits. Ex. 9999.99 or -9999.99
  • DESCRIPTION:  
    This is the amount of the transaction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
16 SENT RECEIPT 1;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 22, 1987
  • HELP-PROMPT:  Enter 'Y' for Yes or 'N' for No.
  • DESCRIPTION:  
    This flag indicates whether or not a receipt was sent to the debtor.
17 TERMINATION REASON 1;7 SET
  • '1' FOR DEBTOR'S DEATH;
  • '2' FOR BANKRUPTCY;
  • '3' FOR INABILITY TO LOCATE;
  • '4' FOR WAIVED;
  • '5' FOR COMPROMISED;
  • '6' FOR A DEBT UNDER $25;
  • '7' FOR INABILITY TO COLLECT;
  • '8' FOR INCORRECT BILLING;
  • '9' FOR OTHERS;

  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter code for termination reason.
  • DESCRIPTION:  
    This is the reason for terminating an account.
  • CROSS-REFERENCE:  433^AH^MUMPS
    1)= D AT^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
18 AMENDMENT TYPE 1;8 POINTER TO ACCOUNTS RECEIVABLE TRANS.TYPE FILE (#430.3) ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3)

  • LAST EDITED:  JUL 14, 1988
  • HELP-PROMPT:  ENTER THE AMENDMENT TYPE.
  • DESCRIPTION:  
    This is the type of transaction from File 430.3 for an amendment.
19 DATE ENTERED 1;9 DATE

  • INPUT TRANSFORM:  S %DT="T",X="NOW" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  This sets in the original date that the transaction was processed
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the BILL NUMBER field of the AR TRANSACTION File
  • CROSS-REFERENCE:  433^ATD^MUMPS
    1)= I $P($G(^RCD(340,+$P($G(^PRCA(430,+$P(^PRCA(433,DA,0),"^",2),0)),"^",9),0)),"^")[(";DPT(") S ^PRCA(433,"ATD",$P(^PRCA(430,+$P(^PRCA(433,DA,0),"^",2),0),"^",9),$E(X,1,30),DA)=""
    2)= I $P($G(^RCD(340,+$P($G(^PRCA(430,+$P(^PRCA(433,DA,0),"^",2),0)),"^",9),0)),"^")[(";DPT(") K ^PRCA(433,"ATD",$P(^PRCA(430,+$P(^PRCA(433,DA,0),"^",2),0),"^",9),$E(X,1,30),DA)
    3)= This is the debtor and date entered cross-reference.
    This cross-reference is used for the patient statement. It is sorted by the DEBTOR (field 9, file 430) and DATE ENTERED (field 19, file 433).  We loop through the Debtors transactions (Date Entered) to display his
    transactions for a specified time period.
  • CROSS-REFERENCE:  433^AT1^MUMPS
    1)= I $P($G(^PRCA(433,DA,1)),U,2) S ^PRCA(433,"AT",+$P(^PRCA(433,DA,1),U,2),$P(X,"."),DA)=""
    2)= I $P($G(^PRCA(433,DA,1)),U,2) K ^PRCA(433,"AT",+$P(^PRCA(433,DA,1),U,2),$P(X,"."),DA)
    This cross reference is used by the National Database collector and by AR reports to look up transactions by transacation type and by date entered (processed).
  • CROSS-REFERENCE:  433^AC^MUMPS
    1)= D AT^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
20 PREPAYMT TRANS. 5;1 POINTER TO AR TRANSACTION FILE (#433) AR TRANSACTION(#433)

  • LAST EDITED:  APR 09, 1992
  • DESCRIPTION:  
    This field holds the corresponding transaction that caused this transaction to be set. This field should be set when a payment is posted from a prepayment bill.
  • CROSS-REFERENCE:  433^AP^MUMPS
    1)= S:$D(^PRCA(433,DA,1)) ^PRCA(433,"AP",+^(1),X,DA)=""
    2)= K ^PRCA(433,"AP",+^PRCA(433,DA,1),X,DA)
    3)= This is the prepayment transaction cross-reference.
    This cross-reference is used for sorting by the Prepayment Trans. Date.
21 IRS LOC.COST 2;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X
  • LAST EDITED:  NOV 27, 1987
  • HELP-PROMPT:  Enter the cost paid to IRS for locating this debtor.
  • DESCRIPTION:  
    This is the cost charged to an account for an IRS locator search.
  • EXECUTABLE HELP:  W "Enter a Dollar Amount between ",$S($D(PRCASUP):"-9999.99",1:"0")," and 9999.99, 2 Decimal Digits."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
22 CREDIT REP.COST 2;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X
  • LAST EDITED:  NOV 27, 1987
  • HELP-PROMPT:  Enter the cost paid for the credit report requests.
  • DESCRIPTION:  
    This is the cost charged to an account for a Credit Rep. locator search.
  • EXECUTABLE HELP:  W "Enter a dollar amount between ",$S($D(PRCASUP):"-9999.99",1:"0")," and 9999.99,2 decimal digits."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
23 DMV LOC.COST 2;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X
  • LAST EDITED:  NOV 27, 1987
  • HELP-PROMPT:  Enter the cost paid for the State Agency/DMV locator actions.
  • DESCRIPTION:  
    This is the cost charged to an account for a State Agency/Department of Motor Vehicles locator search.
  • EXECUTABLE HELP:  W "Enter a dollar amount between ",$S($D(PRCASUP):"-9999.99",1:"0")," and 9999.99, 2 decimal digits"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
24 CONSUMER REP.AGENCY COST 2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X
  • LAST EDITED:  NOV 27, 1987
  • HELP-PROMPT:  Enter the cost paid for the consumer reporting agency referrals.
  • DESCRIPTION:  
    This is the cost paid for the consumer reporting agency referral.
  • EXECUTABLE HELP:  W "Enter a dollar amount between ",$S($D(PRCASUP):"-9999.99",1:"0")," and 9999.99, 2 decimal digits"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
25 MARSHAL FEE 2;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999)!(X<$S($D(PRCASUP):-9999.99,1:0)) X
  • LAST EDITED:  NOV 27, 1987
  • HELP-PROMPT:  Enter the amount of the Marshal Fee.
  • DESCRIPTION:  
    This is the cost of a Marshal's Fee charged to an account.
  • EXECUTABLE HELP:  W "Enter a dollar amount between ",$S($D(PRCASUP):"-9999.99",1:"0")," and 9999.99, 2 decimal digits."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
26 COURT COST 2;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999)!(X<$S($D(PRCASUP):-9999.99,1:0)) X
  • LAST EDITED:  NOV 27, 1987
  • DESCRIPTION:  
    This is the court cost charged to an account.
  • EXECUTABLE HELP:  W "Enter a dollar amount between ",$S($D(PRCASUP):"-9999.99",1:"0")," and 9999.99, 2 decimal digits."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
27 INT.CHARGE 2;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999.99)!(X<$S($D(PRCASUP):-99999.99,1:0)) X
  • LAST EDITED:  JUL 22, 1992
  • HELP-PROMPT:  Enter the amount of interest to be charged.
  • DESCRIPTION:  
    This is an interest charge added to an account.
  • EXECUTABLE HELP:  W "Enter a dollar amount between 0 and 99999.99, 2 decimal digits."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
28 ADM.CHARGE 2;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999.99)!(X<$S($D(PRCASUP):-99999.99,1:0)) X
  • LAST EDITED:  JUL 22, 1992
  • HELP-PROMPT:  Enter amount of admin. charges to be made.
  • DESCRIPTION:  
    This is the cost of administrative charges added to an account.
  • EXECUTABLE HELP:  W "Enter a dollar amount between 0 and 99999.99, 2 decimal digits."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
29 PENALTY CHARGE 2;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999.99)!(X<-9999.99) X
  • LAST EDITED:  JUN 19, 2000
  • HELP-PROMPT:  Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is used to track the penalty charge dollars added or exempted from a bill.
31 PRIN.COLLECTED 3;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount received that has been applied to the principal balance.
32 INTEREST COLLECTED 3;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount received that has been applied to the interest charges.
33 ADMIN.COLLECTED 3;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount received that has been applied to the administrative charges.
34 MARSHAL FEE COLLECTED 3;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • LAST EDITED:  OCT 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount received that has been applied to the Marshal's Fees.
35 COURT COST COLLECTED 3;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • LAST EDITED:  OCT 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount received that has been applied to the Court Cost charges.
41 COMMENTS 7;0 WORD-PROCESSING #433.041

  • DESCRIPTION:  
    This is an optional comments field for this transaction.
42 PROCESSED BY 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 11, 1992
  • HELP-PROMPT:  Enter processing person's name.
  • DESCRIPTION:  
    This is the person who processed this transaction.
54 EOB CODE 5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  OCT 04, 1997
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  This is the EOB Code that is on the EOB from the Insurance Company. This field should be populated for all payment transactions on TP bills that are Referred to RC. If a payment was posted to a bill and this field is not
    populated, notification will be made.
  • CROSS-REFERENCE:  433^AEOB^MUMPS
    1)= K ^PRCA(433,"AEOB",+$P(^PRCA(433,DA,0),"^",2),DA)
    2)= Q
    This cross-ref is used to alert AR staff that EOB Processing should be done for a payment transaction. These payments are from Insurance Companies whose bill is referred to RC for collection action.  Once the EOB Code is
    entered, this cross-ref can be deleted.
61 DESCRIPTION 6;0 DATE Multiple #433.061 433.061

  • DESCRIPTION:  
    This is a description of the individual charges.
81 PRINCIPAL BALANCE 8;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  MAR 31, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the principal balance after payment has been applied.
82 INTEREST BALANCE 8;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAR 31, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the balance of interest charges after payment has been applied.
83 ADMIN. BALANCE 8;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAR 31, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the balance of the administrative charges after payment has been applied.
84 MARSHAL FEE 8;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAR 31, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the balance of the Marshal Fee after payment has been applied.
85 COURT COST 8;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAR 31, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the court cost that has been applied.
86 TRANS. COMMENTS 8;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<3) X
  • LAST EDITED:  JUL 18, 1988
  • HELP-PROMPT:  ANSWER MUST BE 3-75 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is an optional short comment for this transaction.
87 EXCESS PAYMENT 8;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X
  • LAST EDITED:  FEB 16, 1989
  • HELP-PROMPT:  Enter the amount of the overpayment.
  • DESCRIPTION:  
    This field stores the amount of an overpayment that needs to be liquidated.
88 CONTRACTUAL ADJUSTMENT 8;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 13, 1995
  • DESCRIPTION:  
    Enter a 1 for Yes if this decrease is for a reimbursable bill.
  • CROSS-REFERENCE:  433^CA^MUMPS
    1)= I X=1 S ^PRCA(433,"CA",DA)=""
    2)= K ^PRCA(433,"CA",DA)
    This x-ref identifies Contract Adjustment Transactions.  It is used by the FMS data collector to compile the WR 06 document for transmission to FMS.
89 CO-PAY EXEMPTION TRANSACTION? 1;10 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 03, 1993
  • DESCRIPTION:  This field is set to a '1' whenever a decrease adjustment or an interest exemption is applied automatically due to exemption from medication co-pays. It is also set for increases to prepayment bills due to co-pay
    exemption.
  • TECHNICAL DESCR:  
    This field is set to a '1' whenever routine PRCAX sets up an automatic decrease or increase adjustment or an interest exemption.
  • CROSS-REFERENCE:  433^ACE^MUMPS
    1)= Q:'X  S ^PRCA(433,"ACE",+$P($G(^PRCA(433,+DA,1)),U),+DA)=""
    2)= K ^PRCA(433,"ACE",$P($G(^PRCA(433,+DA,1)),U),+DA)
    This cross-reference is set to aid in printing the medication co-pay exemption report. It is set whenever the decrease transaction or interest exemption transaction is applied as a result of an exemption from medication
    co-pays. It is also set for the increase transaction if a refund bill is set up as a result of medication co-pays.
90 SUSPENSION TYPE 1;11 SET
  • '0' FOR NON-COPAY SUSPENSION;
  • '1' FOR INITIAL CO-PAY WAIVER;
  • '2' FOR APPEAL CO-PAY WAIVER;
  • '3' FOR ADMINISTRATIVE SUSPENSION;
  • '4' FOR COMPROMISE;
  • '5' FOR TERMINATION;
  • '6' FOR BANKRUPTCY CHAP 7;
  • '7' FOR BANKRUPTCY CHAP 13;
  • '8' FOR BANKRUPTCY OTHER;
  • '9' FOR PROBATE;
  • '10' FOR CHOICE;
  • '11' FOR DISPUTE;

  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Select the number (between 0 and 11) that corresponds to the type of suspension for this copay waiver request.
  • DESCRIPTION:  This field documents the reason for the type of suspension for copay waiver request by veterans. Two types of waiver can be documented, one for the initial copay waiver and the second is when the original copay waiver was
    denied and the veteran is appealing the decision.
91 AMOUNT PAID TO MCCF 9;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • LAST EDITED:  JUN 25, 2001
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    For a payment transaction, this field stores the amount of the payment that is paid to the MCCF fund.
92 AMOUNT PAID TO HSIF 9;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • LAST EDITED:  JUN 25, 2001
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    For a payment transaction, this field stores the amount of the payment that is paid to the HSIF fund.
93 HARTFORD/USAA SETTLEMENT 9;3 SET
  • '1' FOR YES;

  • LAST EDITED:  JUN 28, 2002
  • HELP-PROMPT:  Is this transaction related to the Hartford/USAA settlement.
  • DESCRIPTION:  
    This is a flag indicating that this transaction relates to the Hartford/USAA settlement.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3336
  • INTEGRATED BILLING
  • TRANSACTION NUMBER (.01).
    Access: Direct Global Read & w/Fileman

    TRANSACTION STATUS (4).
    Access: Direct Global Read & w/Fileman

    TRANSACTION DATE (11).
    Access: Direct Global Read & w/Fileman

    TRANSACTION TYPE (12).
    Access: Direct Global Read & w/Fileman

    DATE ENTERED (19).
    Access: Direct Global Read & w/Fileman

    PREPAYMT TRANS. (20).
    Access: Direct Global Read & w/Fileman

    BRIEF COMMENTS (5.02).
    Access: Direct Global Read & w/Fileman

    TRANS. COMMENTS (86).
    Access: Direct Global Read & w/Fileman

    COMMENTS (.01).
    Access: Direct Global Read & w/Fileman

    These fields are being used by various reports in theDiagnostic Measures module that display the comments from the transactions foreach receivable, for example: First Party Follow-up report.Various reports in the Diagnostic Measures module usethis cross-reference in order to get the transactions entered for a givenbill.These fields are being used by various reports in theDiagnostic Measures module that display the comments from the transactions foreach receivable, for example: First Party Follow-up report.These fields are being used by various reports in theDiagnostic Measures module that display the comments from the transactions foreach receivable, for example: First Party Follow-up report.These fields are being used by various reports in theDiagnostic Measures module that display the comments from the transactions foreach receivable, for example: First Party Follow-up report.These fields are being used by various reports in theDiagnostic Measures module that display the comments from the transactions foreach receivable, for example: First Party Follow-up report.
    ICR #5220 BILL NUMBER (.03).
    Access: Write w/Fileman

    CALM CODE DONE (3).
    Access: Write w/Fileman

    TRANSACTION STATUS (4).
    Access: Write w/Fileman

    PROCESSED BY (42).
    Access: Write w/Fileman

    TRANSACTION DATE (11).
    Access: Direct Global R/W & w/Fileman

    TRANSACTION TYPE (12).
    Access: Direct Global R/W & w/Fileman

    TRANS. AMOUNT (15).
    Access: Write w/Fileman

    DATE ENTERED (19).
    Access: Direct Global Read & w/Fileman

    BRIEF COMMENT (5.02).
    Access: Write w/Fileman

    FOLLOW-UP DATE (5.03).
    Access: Direct Global R/W & w/Fileman

    COMMENTS (41).
    Access: Direct Global R/W & w/Fileman

    BILL NUMBER (.03).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT 5+1, 5.03+1, 11+1, 19+1
    NOW^%DTC .03(XREF 2S)
    EN^DDIOL IDWR1+1
    ^DICR .03(XREF 2n1.4)
    Y^DIQ ID.03+1, ID12+1
    AEOB^RCRCUTL 12(XREF 3S)
    AT^RCXVDEQ 11(XREF 1S), 12(XREF 4S), 17(XREF 1S), 19(XREF 3S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .03(XREF 2n1.4)
    ^DD(430 ID.03+1
    ^DD(430.3 ID12+1
    ^DD(433 .03(XREF 2S)
    ^PRCA(430 - [#430] ID.03+1, 19(XREF 1S), 19(XREF 1K)
    ^PRCA(430.3 - [#430.3] ID12+1
    ^PRCA(433 - [#433] .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), 3(XREF 1S), 3(XREF 1K), 5.03(XREF 1S), 5.03(XREF 1K)
    , 12+1, 12(XREF 1S), 12(XREF 1K), 12(XREF 2S), 12(XREF 2K), 12(XREF 3K), 13(XREF 1S), 13(XREF 1K), 19(XREF 1S), 19(XREF 1K)
    19(XREF 2S), 19(XREF 2K), 20(XREF 1S), 20(XREF 1K), 54(XREF 1S), 88(XREF 1S), 88(XREF 1K), 89(XREF 1S), 89(XREF 1K)
    ^RCD(340 - [#340] 19(XREF 1S), 19(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.03+1, ID12+1, IDWR1+1
    ^(1 ID11+1, ID12+1, .03(XREF 2S), .03(XREF 2n1.4), 20(XREF 1S)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % .03(XREF 2S)
    %DT 5+1*, 5.03+1*, 11+1*!, 19+1*
    %DT(0 11+1*
    %I ID.03+1*!, ID12+1*!
    >> C ID.03+1*, ID12+1*
    >> D0 .03(XREF 2S)
    >> DA .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), 3(XREF 1S), 3(XREF 1K), 5.03(XREF 1S), 5.03(XREF 1K), 12+1
    12(XREF 1S), 12(XREF 1K), 12(XREF 2S), 12(XREF 2K), 12(XREF 3K), 13(XREF 1S), 13(XREF 1K), 19(XREF 1S), 19(XREF 1K), 19(XREF 2S)
    19(XREF 2K), 20(XREF 1S), 20(XREF 1K), 54(XREF 1S), 88(XREF 1S), 88(XREF 1K), 89(XREF 1S), 89(XREF 1K)
    >> DIC ID.03+1, ID12+1
    >> DIG .03(XREF 2n1.4)
    >> DIH .03(XREF 2n1.4)
    >> DINUM .01+1*
    >> DIU .03(XREF 2S)
    DIV .03(XREF 2S), .03(XREF 2n1.4)
    DIV(0 .03(XREF 2S), .03(XREF 2n1.4)
    DT 11+1
    >> PRCASUP 21+1, 21(HELP ), 22+1, 22(HELP ), 23+1, 23(HELP ), 24+1, 24(HELP ), 25+1, 25(HELP )
    , 26+1, 26(HELP ), 27+1, 28+1
    U ID.03+1, ID11+1, ID12+1, IDWR1+1, .03(XREF 2S), .03(XREF 2n1.4), 12+1, 12(XREF 2S), 12(XREF 2K), 19(XREF 2S)
    19(XREF 2K), 89(XREF 1S), 89(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), 3(XREF 1S), 3(XREF 1K), 5+1*!
    , 5.02+1!, 5.03+1*!, 5.03(XREF 1S), 5.03(XREF 1K), 6+1!, 8+1!, 11+1*!, 12+1!, 12(XREF 1S), 12(XREF 1K)
    12(XREF 2S), 12(XREF 2K), 12(XREF 3S), 12(XREF 3K), 13+1!, 13(XREF 1S), 13(XREF 1K), 14+1!, 15+1*!, 19+1*!
    19(XREF 1S), 19(XREF 1K), 19(XREF 2S), 19(XREF 2K), 20(XREF 1S), 20(XREF 1K), 21+1*!, 22+1*!, 23+1*!, 24+1*!
    , 25+1*!, 26+1*!, 27+1*!, 28+1*!, 29+1*!, 31+1*!, 32+1*!, 33+1*!, 34+1*!, 35+1*!
    , 54+1!, 81+1*!, 82+1*!, 83+1*!, 84+1*!, 85+1*!, 86+1!, 87+1*!, 88(XREF 1S), 89(XREF 1S)
    , 91+1*!, 92+1*!
    Y ID.03+1*, ID12+1*, .03(XREF 2S), 5+1, 5.03+1, 11+1, 19+1
    Y(0 .03(XREF 2S)
    Y(1 .03(XREF 2S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All