Global: ^PRCA(433

FileMan FileNo	FileMan Filename	Package
433	AR TRANSACTION	Accounts Receivable

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

Package	Total	Routines
Accounts Receivable	50	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 RCDPEAD3 RCDPEFA1 RCDPEFA3 RCDPTPLM RCFMFN02 RCJIBFN3 RCKATPD RCRCACP RCRCAT1 RCRCRT RCRCRT1 RCRCRT2 RCRPU RCRPU1 RCTCSP4 RCTCSP5 RCTCSPD5 RCTCSWL RCXVDC6
Integrated Billing	3	IBCOPR IBJDF41 IBNCPDP5
Outpatient Pharmacy	1	PSOCPF1

Package	Total	FileMan Files
Accounts Receivable	4	ACCOUNTS RECEIVABLE(#430)[#430.0171(.01), #430.051(4)] AR TRANSACTION(#433)[20] AR FMS DOCUMENT(#347)[.08] AR REPAYMENT PLAN(#340.5)[#340.53(2)]

Package	Total	FileMan Files
Accounts Receivable	6	ACCOUNTS RECEIVABLE(#430)[.03, 94] ACCOUNTS RECEIVABLE CATEGORY(#430.2)[#433.061(1)] ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3)[12, 18] AR TRANSACTION(#433)[20] AR SUSPENSION TYPES(#433.001)[90.1] ELECTRONIC REMITTANCE ADVICE(#344.4)[95]
IFCAP	1	UNIT OF ISSUE(#420.5)[#433.061(5)]
Kernel	1	NEW PERSON(#200)[42]

Fields, Total: 56

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.` LAST EDITED: `NOV 20, 1987` HELP-PROMPT: `Enter optional comment for this transaction.` 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: `NOV 02, 2021` HELP-PROMPT: `Select the number (between 0 and 11) that corresponds to the type of suspension for this copay waiver request.` DESCRIPTION: `*** This field is obsolete with patch PRCA4.5391. Please use field 90.1 instead. ***` `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.`
90.1	SUSPENSION TYPE	1;12	POINTER TO AR SUSPENSION TYPES FILE (#433.001)	AR SUSPENSION TYPES(#433.001) LAST EDITED: `AUG 02, 2021` HELP-PROMPT: `Select the suspension type for this copay waiver request.` DESCRIPTION: `This field documents the reason for the type of suspension for copay waiver request by veterans.`
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.`
94	AUTO-DECREASE 3RD PARTY BILL	9;4	POINTER TO ACCOUNTS RECEIVABLE FILE (#430)	ACCOUNTS RECEIVABLE(#430) LAST EDITED: `FEB 06, 2019` HELP-PROMPT: `Enter the 3rd party bill related to this decrease transaction.` DESCRIPTION: `If a first party bill is auto-decreased, based on a third party payment, this field will contain a pointer to the related third party bill. This field will be automatically populated by the system.`
95	ERA	0;11	POINTER TO ELECTRONIC REMITTANCE ADVICE FILE (#344.4)	ELECTRONIC REMITTANCE ADVICE(#344.4) LAST EDITED: `MAR 24, 2021` HELP-PROMPT: `Enter the ERA with which this transaction is associated.` DESCRIPTION: `This field points to the ELECTRONIC REMITTANCE ADVICE (#344.4) file entry which is associated with this transaction.`

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 SUSPENSION TYPE (90.1). Access: 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

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)

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)

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)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Accounts Receivable

Global: ^PRCA(433

Information

Description

Directly Accessed By Routines, Total: 178

Accessed By FileMan Db Calls, Total: 54

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 8

Fields, Total: 56

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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)