Global: ^PRCA(430

FileMan FileNo	FileMan Filename	Package
430	ACCOUNTS RECEIVABLE	Accounts Receivable

Package	Total	Routines
Accounts Receivable	155	PRCA280 PRCA315P PRCA419P PRCAAPI PRCAAPR1 PRCAATR PRCABIL1 PRCABIL2 PRCABIL4 PRCABJ1 PRCABJ2 PRCABPF PRCACLM PRCADEL PRCADJ PRCADR PRCAEIN PRCAEOL PRCAEXM PRCAFBD1 PRCAFBDU PRCAFDCT PRCAFOR PRCAFUT PRCAG PRCAGU PRCAHOL PRCAI158 PRCAKBT1 PRCAKS PRCAKUN PRCALET PRCALST PRCAMAS PRCAMDS PRCAMRG PRCAOLD PRCAP377 PRCAP378 PRCAP381 PRCAP382 PRCAPAT PRCAPAT1 PRCAPRO PRCAREP PRCAREPT PRCARETN PRCARFD PRCARFD1 PRCARFD2 PRCARPU PRCASER PRCASET PRCASVC PRCASVC1 PRCASVC3 PRCATA PRCATA1 PRCATE PRCATE2 PRCATSE PRCAUDT PRCAUDT1 PRCAUPD PRCAUT2 PRCAUT3 PRCAUTL PRCAWO1 PRCAWREA PRCAX RCAMINS RCBEADJ RCBEADJI RCBEPAYF RCBEUBIL RCCPCBJ RCCPCSV1 RCDMCEDT RCDMCR1B RCDMCR2B RCDMCR3B RCDMCR4B RCDMCR5B RCDMCR6B RCDMCR7B RCDMCR8B RCDMCUT1 RCDPAPLI RCDPBPLM RCDPBTLM RCDPCSA RCDPEAC RCDPEAD2 RCDPEAD3 RCDPEAP RCDPEAPQ RCDPEFA1 RCDPEFA3 RCDPEM5 RCDPEM8 RCDPEMAP RCDPENE1 RCDPENR3 RCDPESR1 RCDPEWL3 RCDPEWL6 RCDPEX32 RCDPLPL4 RCDPLPS2 RCDPR215 RCFMCAF RCJIBFN2 RCRCACP RCRCALB RCRCRT RCRCRT1 RCRCRT2 RCRCUTL RCRCVCK RCRCVLB RCRFRPT RCRJRBD RCRJRCOC RCRJRCOU RCRJROIG RCRPINQ RCRPNP RCRPU RCRPU1 RCRPU2 RCSTATU RCTAS10I RCTC336P RCTCS1 RCTCSJR RCTCSJS RCTCSP1 RCTCSP2 RCTCSP3S RCTCSP4 RCTCSP5 RCTCSP6 RCTCSP7 RCTCSPD RCTCSPRS RCTCSPU RCTCSWL RCTCSWL1 RCTCSWL2 RCTOP1 RCTOPU RCXFMSC1 RCXFMSUR RCXFMSUV RCXVDC1
Integrated Billing	6	IBCERP3 IBJDF51 IBJDF61 IBJDF81 IBOHLS1 IBOLK
Interim Management Support	1	ECTFAR
Outpatient Pharmacy	1	PSOCPF1

Package	Total	FileMan Files
Accounts Receivable	9	AR DEBT COLLECTOR DATA(#430.7)[#430.71(.01)] AR TRANSACTION(#433)[.03, 94] AR MEDICARE DEDUCTIBLE ALERTS PART A(#436.1)[1.01] AR EVENT(#341)[5.01] AR FMS DOCUMENT(#347)[.07] AR REPAYMENT PLAN(#340.5)[#340.56(.01)] AR DATA QUEUE(#348.4)[#348.41(.01)] AR BATCH PAYMENT(#344)[#344.01(.03)] EDI LOCKBOX EOB WORKLIST(#344.49)[#344.491(.07)]

Package	Total	FileMan Files
Accounts Receivable	12	ACCOUNTS RECEIVABLE CATEGORY(#430.2)[2, 15.1] ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3)[8, 95] AR RETURN REASON CODE(#430.5)[302] AR DEBT LIST(#430.6)[4.5] AR TRANSACTION(#433)[#430.0171(.01), #430.051(4)] AR GROUP(#342.1)[13, 13.1, 107] REVENUE SOURCE CODE(#347.3)[255] TCS IAI ERROR CODES(#348.5)[#430.0172(2), #430.0172(3), #430.0172(4), #430.0172(5), #430.0172(6), #430.0172(7), #430.0172(8), #430.0172(9), #430.0172(10)] TCS IAI ACTION CODES(#348.6)[#430.0172(12)] TCS IAI RECORD TYPES(#348.7)[#430.0172(11)] AR DEBTOR(#340)[9] AR REPAYMENT PLAN(#340.5)[45]
Kernel	3	INSTITUTION(#4)[12] SERVICE/SECTION(#49)[101] NEW PERSON(#200)[17, 32, 34, 79.21, 90, 94, 97, 111, 126, #430.03(.03)]
IFCAP	2	PRCD FUND/APPROPRIATION CODE(#420.3)[#430.01(4)] UNIT OF ISSUE(#420.5)[#430.02(5)]
Health Level Seven	1	COUNTRY CODE(#779.004)[169.3]
Integrated Billing	1	INSURANCE COMPANY(#36)[19, 19.1]
Registration	1	PATIENT(#2)[7]

Fields, Total: 228

Field #	Name	Loc	Type	Details
.01	BILL NO.	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$P(X,"-",1)'?3N!'($P(X,"-",2)?6UN.1UN) X I $D(X) K:$L(X)>14!($L(X)<10) X` LAST EDITED: `MAR 10, 2014` HELP-PROMPT: `Enter the 6-10-digit Bill Number, preceded by station number if multi-divisional (EX: 662-4K00001).` DESCRIPTION: `This is the unique bill number assigned to this billing episode. New bill numbers consist of no less than 6 characters, preceded by station number if multi-divisional (Example: 662-K000001). Bill numbers for bills that` `have been cancelled in Integrated Billing (IB) during the process of correcting errors in the original bill add an additional 3 characters, a hyphen and an incremental number (Example: 662-K000001-01).` PRE-LOOKUP: `D LOOKUP^RCBEUBI1` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `430^B` `1)= S ^PRCA(430,"B",$E(X,1,30),DA)=""` `2)= K ^PRCA(430,"B",$E(X,1,30),DA)` `3)= Needed for look-up of Site-Bill Number` `This cross-reference is used for file look-up and sorting by Accounts Receivable Bill No.` CROSS-REFERENCE: `430^D^MUMPS` `1)= S ^PRCA(430,"D",$P(X,"-",2,3),DA)=""` `2)= K ^PRCA(430,"D",$P(X,"-",2,3),DA)` `3)= Needed for look-up by bill number` `Needed for look-up by bill number. This cross reference is used for` `look-up and sorts on the Account Receivable 8 digit bill number. (without` `the station number, but with the -iteration# if applicable).`
.11	LAST INTEREST CHARGE DATE	.1;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 19, 2000` HELP-PROMPT: `This field is internally populated by AR. This field contains the date the bill was last charged interest.` DESCRIPTION: `This field stores the last date interest was charged to this bill.`
.12	LAST ADMIN CHARGE DATE	.1;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 19, 2000` HELP-PROMPT: `This field is internally populated by AR. This field contains the date the bill was last charged an administrative fee.` DESCRIPTION: `This field stores the last date an administrative charge was applied to this bill.`
.13	LAST PENALTY CHARGE DATE	.1;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 19, 2000` HELP-PROMPT: `This field is internally populated by AR. This field contains the date the bill was last charged a penalty fee.` DESCRIPTION: `This field stores the last date penalty charges were added to this bill.`
1	FISCAL YEAR	2;0	Multiple #430.01	430.01 LAST EDITED: `SEP 09, 1993` DESCRIPTION: `A single bill can have activity that spreads over more than one fiscal year. This multiple field holds a record of each year's appropriation symbol, PAT reference number, original amount, etc.` IDENTIFIED BY: `"Z1": W " " W:$P(^(0),U,2)]"" "$",$P(^(0),U,2)` `"Z2": S %I=Y,Y=$S('$D(^(0)):"",$D(^PRC(442,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(442,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I` `"Z3": W " ",$P(^(0),U,4)`
2	CATEGORY	0;2	POINTER TO ACCOUNTS RECEIVABLE CATEGORY FILE (#430.2)	**********************REQUIRED FIELD********************** ACCOUNTS RECEIVABLE CATEGORY(#430.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,7)'=33,$P(^(0),U,7)"_$S($D(PRCABT):$P(">14&($P(^(0),U,7)<17):=17:>4&($P(^(0),U,7)<15)",":",PRCABT),1:">4") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 08, 2004` HELP-PROMPT: `Enter the category for this bill.` DESCRIPTION: `This is the bill's Category - a pointer to the Category File (Means Test, Vendor, Employee, Tort, etc.).` TECHNICAL DESCR: SCREEN: `S DIC("S")="I $P(^(0),U,7)'=33,$P(^(0),U,7)"_$S($D(PRCABT):$P(">14&($P(^(0),U,7)<17):=17:>4&($P(^(0),U,7)<15)",":",PRCABT),1:">4")` EXPLANATION: `TYPE OF BILL` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	ORIGINAL AMOUNT	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `OCT 07, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits, Total original amount for this bill.` DESCRIPTION: `This is the original dollar amount of the bill.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^430^71` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(430,3,1,1,1.4)` `1.4)= S DIH=$S($D(^PRCA(430,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,1)=DIV,DIH=430,DIG=71 D ^DICR:$O(^DD(DIH,DIG,1,0))` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(430,3,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)` `2.4)= S DIH=$S($D(^PRCA(430,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,1)=DIV,DIH=430,DIG=71 D ^DICR:$O(^DD(DIH,DIG,1,0))` `3)= Needed to set the Principal Balance of Bill` `CREATE VALUE)= PRINCIPAL BALANCE+ORIGINAL AMOUNT` `DELETE VALUE)= PRINCIPAL BALANCE-OLD ORIGINAL AMOUNT` `FIELD)= PRINCIPAL BALANCE` `This cross reference triggers the Principal Balance field #71.`
4	GL NO.	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `JUN 03, 1987` HELP-PROMPT: `Enter the General Ledger No. Must be 4 characters.` DESCRIPTION: `This is the General Ledger Number for the ALD CODE assigned to this bill.`
4.5	BILL RESULTING FROM	0;5	POINTER TO AR DEBT LIST FILE (#430.6)	**********************REQUIRED FIELD********************** AR DEBT LIST(#430.6) INPUT TRANSFORM: `S DIC("S")="S Z0=$P(^PRCA(430,DA,0),U,2) Q:+Z0'>0 S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""X"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I $D(^PRCA(430.6,+Y,0)) S Y=$P(^PRCA(430.6,+Y,0),U,2)` LAST EDITED: `JAN 13, 1994` HELP-PROMPT: `We'll put this data on the follow-up letters. Enter the reason for the bill. Notify Supervisor if correct choice is not available.` DESCRIPTION: `The cause of the debt. This field points to the AR Debt List File which contains brief statements describing the source of the bills that are used on the debt collection letters.` `The type of entry selected must be compatible with the bill's category type.` SCREEN: `S DIC("S")="S Z0=$P(^PRCA(430,DA,0),U,2) Q:+Z0'>0 S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""X"")"` EXPLANATION: `CLASSIFY WITH TYPE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	PATIENT	0;7	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JUN 02, 1993` HELP-PROMPT: `Enter a Patient from the Patient File. Adding new patients is not allowed.` DESCRIPTION: `This is a pointer to the Patient File. Adding new patients is NOT ALLOWED through this option.` CROSS-REFERENCE: `430^E` `1)= I $P(^PRCA(430,DA,0),"^",2),$P(^PRCA(430.2,+$P(^(0),"^",2),0),"^",6)["T" S ^PRCA(430,"E",X,DA)=""` `2)= K ^PRCA(430,"E",X,DA)` `3)= Needed to look up third party bills by patient` `This cross reference is set for the Third Party type category of bills.`
8	CURRENT STATUS	0;8	POINTER TO ACCOUNTS RECEIVABLE TRANS.TYPE FILE (#430.3)	**********************REQUIRED FIELD********************** ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3) INPUT TRANSFORM: `D CKSTAT^PRCAUT3` LAST EDITED: `APR 20, 2020` HELP-PROMPT: `Enter the current status of this bill.` SCREEN: `S Z1=100,Z2=199 S:$D(PRCASV("STATUS")) Z1=199,Z2=300 S DIC("S")="I ($P(^PRCA(430.3,Y,0),U,3)>Z1)&($P(^(0),U,3)` `EXPLANATION: CURRENT BILL STATUS` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `CROSS-REFERENCE: 430^AC` `1)= S ^PRCA(430,"AC",$E(X,1,30),DA)=""` `2)= K ^PRCA(430,"AC",$E(X,1,30),DA)` `3)= Needed to look-up bills by status` `This cross-reference is needed to find bills by status. This cross-reference is used extensively by reports and options.` `CROSS-REFERENCE: 430^AS2^MUMPS` `1)= I $P(^PRCA(430,DA,0),"^",9) S ^PRCA(430,"AS",$P(^PRCA(430,DA,0),"^",9),X,DA)=""` `2)= I $P(^PRCA(430,DA,0),"^",9) K ^PRCA(430,"AS",$P(^PRCA(430,DA,0),"^",9),X,DA)` `3)= Needed to look-up bills by status for a specific debtor` `This cross-reference allows rapid look-up of bills by status for a specific debtor.` `CROSS-REFERENCE: ^^TRIGGER^430^60` `1)= X ^DD(430,8,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^PRCA(430,D0,6)):^(6),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV D NOW^%DTC S X=% X ^DD(430,8,1,3,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=0 I ",112,102,"[(","_$P($G(^PRCA(430.3,+$P(^PRCA(430,D0,0),"^",8),0)),"^",3)_","),$P($G(^PRCA(430,D0,6)),"^",21)="" S X=1` `1.4)= S DIH=$S($D(^PRCA(430,DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,21)=DIV,DIH=430,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `3)= Needed to create a new 'activity' for a debtor` `69.2)= S Y(3)=$S($D(^PRCA(430,D0,6)):^(6),1:"") S X=$S('$D(^PRCA(430.3,+Y(0),0)):"",1:$P(^(0),U,1))="OPEN",Y(1)=X S X=$S('$D(^PRCA(430.3,+Y(0),0)):"",1:$P(^(0),U,1))` `CREATE CONDITION)= S X=0 I ",112,102,"[(","_$P($G(^PRCA(430.3,+$P(^PRCA(430,D0,0),"^",8),0)),"^",3)_","),$P($G(^PRCA(430,D0,6)),"^",21)="" S X=1` `CREATE VALUE)= D NOW^%DTC S X=%` `DELETE VALUE)= NO EFFECT` `FIELD)= DATE ACCOUNT ACTIVATED` `This cross-reference triggers the Date Account Activated field. When a bill is made Active or Open for a patient, new activity needs to be logged so that it may appear on the next patient statement.` `CROSS-REFERENCE: ^^TRIGGER^430^14` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(430,8,1,4,1.4)` `1.4)= S DIH=$S($D(^PRCA(430,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=430,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=DT` `DELETE VALUE)= NO EFFECT` `FIELD)= DATE STAT` `This trigger will set the DATE STATUS UPDATED to todays date whenever the STATUS of a bill changes.` `CROSS-REFERENCE: 430^ASDT1^MUMPS` `1)= I $P(^PRCA(430,DA,0),U,14) S ^PRCA(430,"ASDT",X,$P($P(^PRCA(430,DA,0),U,14),"."),DA)=""` `2)= I $P(^PRCA(430,DA,0),U,14) K ^PRCA(430,"ASDT",X,$P($P(^PRCA(430,DA,0),U,14),"."),DA)` `This cross reference is used to sort bills by the status and the date the status was last updated.` `CROSS-REFERENCE: 430^AJK1^MUMPS` `1)= I X=16,+$P($G(^PRCA(430,+DA,0)),"^",10) S ^PRCA(430,"AJK1",$P(^PRCA(430,+DA,0),"^",10),DA)=""` `2)= I +$P($G(^PRCA(430,+DA,0)),"^",10) K ^PRCA(430,"AJK1",$P(^PRCA(430,+DA,0),"^",10),DA)` `Cross-reference of active bills by date prepared for collection search.` `RECORD INDEXES: AMCCF (#1689)`
9	DEBTOR	0;9	POINTER TO AR DEBTOR FILE (#340)	**********************REQUIRED FIELD********************** AR DEBTOR(#340) INPUT TRANSFORM: `D EN6^PRCABIL D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 11, 1993` DESCRIPTION: `This field points to the Debtor File, which in turn is a variable pointer to other files. This allows automatic look-up of debtors based on the category of the bill. Adding new entries to the other files may not be` `allowed.` SCREEN: `D EN6^PRCABIL` EXPLANATION: `DEBTOR` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `430^C` `1)= S ^PRCA(430,"C",$E(X,1,30),DA)=""` `2)= K ^PRCA(430,"C",$E(X,1,30),DA)` `3)= Needed to look-up bills by Debtor` `This cross-reference allows user look-up of bills belonging to a specific debtor.` CROSS-REFERENCE: `430^AS1^MUMPS` `1)= I $P(^PRCA(430,DA,0),"^",8) S ^PRCA(430,"AS",X,$P(^PRCA(430,DA,0),"^",8),DA)=""` `2)= I $P(^PRCA(430,DA,0),"^",8) K ^PRCA(430,"AS",X,$P(^PRCA(430,DA,0),"^",8),DA)` `3)= Needed to look-up bills by status for a specific debtor` `This cross-reference allows rapid look-up of bills by status for a specific debtor.` CROSS-REFERENCE: `430^ATD^MUMPS` `1)= D UPATDS^PRCAUTL I $D(^RCD(340,X,0)),$P(^(0),"^")[";DPT(",$D(^PRCA(430,DA,6)),$P(^(6),"^",21) S ^PRCA(430,"ATD",X,$P(^PRCA(430,DA,6),"^",21),DA)=""` `2)= D UPATDS^PRCAUTL I $D(^RCD(340,X,0)),$P(^(0),"^")[";DPT(",$D(^PRCA(430,DA,6)),$P(^(6),"^",21) S ^PRCA(430,"ATD",X,$P(^PRCA(430,DA,6),"^",21),DA)=""` `3)= Needed to update activity cross-reference when debtor edited` `This cross-reference is not actively used and only exists to update the activity for a debtor in the event the debtor field is ever changed, which should never happen.` RECORD INDEXES: `AMCCF (#1689)`
10	DATE BILL PREPARED	0;10	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(X>DT) X` LAST EDITED: `AUG 12, 2003` HELP-PROMPT: `Enter the date on which the bill was established.` DESCRIPTION: `The date the bill was prepared. Time is not allowed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `430^AE^MUMPS` `1)= D AR^RCXVDEQ` `2)= Q` `This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.` CROSS-REFERENCE: `430^AJK1A^MUMPS` `1)= I $P(^PRCA(430,+DA,0),"^",8)=16 S ^PRCA(430,"AJK1",X,DA)=""` `2)= K ^PRCA(430,"AJK1",X,DA)` `Maintains cross reference set on CURRENT STATUS field of active bills referenced by date prepared.`
11	CURRENT BALANCE		COMPUTED	MUMPS CODE: `S Y(430,11,1)=$S($D(^PRCA(430,D0,7)):^(7),1:"") S X=$P(Y(430,11,1),U,1)+$P(Y(430,11,1),U,2)+$P(Y(430,11,1),U,3)+$P(Y(430,11,1),U,4)+$P(Y(430,11,1),U,5) S X=$J(X,0,2)` ALGORITHM: `#71+#72+#73+#74+#75 (ALWAYS 2 DECIMAL DIGITS)` DESCRIPTION: `This field computes the current balance of the account.`
12	SITE	0;12	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `FEB 14, 1993` HELP-PROMPT: `Enter Station Number.` DESCRIPTION: `This is a pointer to the Admin. Activity Site Parameter File. Adding new entries is allowed.`
13	AGENT CASHIER	0;13	POINTER TO AR GROUP FILE (#342.1)	AR GROUP(#342.1) LAST EDITED: `FEB 22, 1993` DESCRIPTION: `This field is an inactive field and used to point to the AR SITE PARAMETER file (430.5) in AR v3.7.`
13.1	ACCOUNT RECEIVABLE SECTION	0;6	POINTER TO AR GROUP FILE (#342.1)	AR GROUP(#342.1) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",2)=4" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 22, 1993` DESCRIPTION: `This field is inactive and use to point to the AR SITE PARAMETER file (430.5) in AR v3.7.` SCREEN: `S DIC("S")="I $P(^(0),""^"",2)=4"` EXPLANATION: `SELECT ONLY AR SECTION`
14	DATE STATUS UPDATED	0;14	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 12, 2003` HELP-PROMPT: `Enter the date the Status of this bill was updated. Time of day is not allowed.` NOTES: `TRIGGERED by the CURRENT STATUS field of the ACCOUNTS RECEIVABLE File` CROSS-REFERENCE: `430^ASDT2^MUMPS` `1)= I $P(^PRCA(430,DA,0),U,8) S ^PRCA(430,"ASDT",+$P(^PRCA(430,DA,0),U,8),X,DA)=""` `2)= I $P(^PRCA(430,DA,0),U,8) K ^PRCA(430,"ASDT",+$P(^PRCA(430,DA,0),U,8),X,DA)` `This cross reference is used to sort bills by the status and the date the status was last updated.` CROSS-REFERENCE: `430^AF^MUMPS` `1)= D AR^RCXVDEQ` `2)= Q` `This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.`
15	STATUS REMARK	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `OCT 06, 1988` HELP-PROMPT: `ANSWER MUST BE 3-45 CHARACTERS IN LENGTH` DESCRIPTION: `An optional field that holds a brief remark regarding the status, reason for change in status, etc. 3-45 characters.`
15.1	TYPE OF CARE	0;16	POINTER TO ACCOUNTS RECEIVABLE CATEGORY FILE (#430.2)	**********************REQUIRED FIELD********************** ACCOUNTS RECEIVABLE CATEGORY(#430.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,7)<4" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 15, 1988` HELP-PROMPT: `Enter a 'Type of Care' from the AR category File.` DESCRIPTION: `This is a pointer to the AR category file. This entry should be` `'NURSING HOME CARE', 'OUTPATIENT CARE' or 'HOSPITAL CARE'. Adding new entries is not allowed.` SCREEN: `S DIC("S")="I $P(^(0),U,7)<4"` EXPLANATION: `CHOOSE TYPE OF CARE`
16	DATE CALM DONE	0;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 17, 1988` HELP-PROMPT: `Enter the date the PAT REF # was assigned and the CALM Code sheet was done.` DESCRIPTION: `The date the PAT reference number was assigned and the CALM code sheet was done.`
17	STATUS UPDATED BY	0;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter the name of the person making a change in this bill's status.` DESCRIPTION: `This is a pointer to the New Person File. It extracts the name of the person making a change to the bill's status. Adding new entries is not allowed.`
18	APPROPRIATION SYMBOL	0;18	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<7) X` LAST EDITED: `MAR 31, 1988` HELP-PROMPT: `Enter the Appropriation Symbol, 7-10 characters.` DESCRIPTION: `This is a free-text field holding the appropriation symbol. 7-10 characters.`
19	SECONDARY INSURANCE CARRIER	0;19	POINTER TO INSURANCE COMPANY FILE (#36)	INSURANCE COMPANY(#36) LAST EDITED: `MAY 31, 1988` HELP-PROMPT: `Enter the insured's secondary insurance carrier.` DESCRIPTION: `This is a pointer to the Insurance Company File. Adding new entries is not allowed.`
19.1	TERTIARY INSURANCE CARRIER	0;20	POINTER TO INSURANCE COMPANY FILE (#36)	INSURANCE COMPANY(#36) LAST EDITED: `MAY 31, 1988` HELP-PROMPT: `Enter the insured's tertiary insurance carrier.` DESCRIPTION: `This is a pointer to the Insurance Company File. Adding new entries is not allowed.`
20.1	SEGMENT	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 18, 1988` HELP-PROMPT: `Type a Number between 0 and 500, 0 Decimal Digits` DESCRIPTION: `This is the number of the billing category's AMIS reporting segment.`
21	HOLD LETTER DATE	1;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 1987` HELP-PROMPT: `Enter the date a hold was placed on follow-up letters for this account.` DESCRIPTION: `This is the date a hold is/was placed on follow-up letters for this account.`
22	HOLD LETTER REASON	1;2	SET	'L' FOR PERSONAL LETTER; 'P' FOR PHONE CALL; 'V' FOR PERSONAL VISIT; 'O' FOR OTHERS; LAST EDITED: `JUN 30, 1987` HELP-PROMPT: `Enter code. Type '??' for a listing.` DESCRIPTION: `This is the reason a hold was placed on sending follow-up letters. Select from the list of choices.`
23	HOLD LETTER COMMENTS	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `JUN 30, 1987` HELP-PROMPT: `Enter a comment, 3-45 characters.` DESCRIPTION: `This field allows the user to enter expanded comments on the reason for holding follow-up letters.`
31	DATE RETURNED TO SERVICE	3;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 14, 1988` HELP-PROMPT: `Enter date, time not allowed.` DESCRIPTION: `This is the date a bill was returned to the originating service.`
32	RETURNED BY	3;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter your name: Last,First` DESCRIPTION: `This is the user from the New Person File who returned the bill to the originating service. Adding a new Person is not allowed.`
33	AMENDED DATE	3;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 14, 1988` HELP-PROMPT: `Enter date, time not allowed.` DESCRIPTION: `This is the date this bill was amended.`
34	AMENDED BY	3;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter your name: Last,First.` DESCRIPTION: `This is the user from the New Person File who amended this bill. Adding a new Person is not allowed.`
35	AMENDED AMOUNT	3;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `JUL 14, 1988` HELP-PROMPT: `Enter a dollar amount by which the bill should be increased or decreased: -999999.99 thru 999999.99. This is the dollar amount by which the bill should be increased or decreased NOT THE NEW AMOUNT.` DESCRIPTION: `This is the dollar value of the amendment. It can be a positive or negative figure.`
36	FISCAL COMMENTS (RETURN)	3;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<3) X` LAST EDITED: `NOV 04, 1988` HELP-PROMPT: `ANSWER MUST BE 3-100 CHARACTERS IN LENGTH` DESCRIPTION: `This text field holds Fiscal service comments regarding the return of a bill.`
37	SERVICE COMMENTS (AMEND)	3;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<3) X` LAST EDITED: `NOV 04, 1988` HELP-PROMPT: `ANSWER MUST BE 3-100 CHARACTERS IN LENGTH` DESCRIPTION: `This text field holds the Service's comments regarding the amendment of a bill.`
41	REPAYMENT PLAN DATE	4;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 14, 1987` HELP-PROMPT: `Enter the date a repayment plan was established.` DESCRIPTION: `This is the date a repayment plan was established.`
42	*DAY OF MON. PAYMENT DUE	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>28)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 26, 2021` HELP-PROMPT: `Type a Number between 1 and 28, 0 Decimal Digits` DESCRIPTION: `As of VistA Patch PRCA4.5378, this field is no longer updated.`
43	*REPAYMENT AMOUNT DUE	4;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `JAN 26, 2021` HELP-PROMPT: `Enter the monthly amount the debtor will pay in the repayment plan.` DESCRIPTION: `As of VistA Patch PRCA4.5378, this field is no longer updated.`
44	*NUMBER OF PAYMENTS	4;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 26, 2021` HELP-PROMPT: `Enter the number of payments in the repayment plan. Type a Number between 0 and 60.` DESCRIPTION: `As of VistA Patch PRCA4.5378, this field is no longer updated.`
45	AR REPAYMENT PLAN	4;5	POINTER TO AR REPAYMENT PLAN FILE (#340.5)	AR REPAYMENT PLAN(#340.5) LAST EDITED: `NOV 20, 2020` HELP-PROMPT: `Enter the Repayment Plan the bill is included in.` DESCRIPTION: `This field contains a link to the Repayment Plan (file #430) the bill is included in.`
51	*REPAYMENT DUE DATES	5;0	DATE Multiple #430.051	430.051 LAST EDITED: `JAN 26, 2021` DESCRIPTION: `As of VistA Patch PRCA4.5378, this sub-file is no longer updated.`
60	DATE ACCOUNT ACTIVATED	6;21	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 the original date that the account first became active.` `WRITE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the CURRENT STATUS field of the ACCOUNTS RECEIVABLE File` CROSS-REFERENCE: `430^AK^MUMPS` `1)= I $P($G(^RCD(340,+$P(^PRCA(430,DA,0),"^",9),0)),"^")[(";DPT(") S ^PRCA(430,"ATD",$P(^PRCA(430,DA,0),"^",9),$E(X,1,30),DA)=""` `2)= I $P(^PRCA(430,DA,0),"^",9) K ^PRCA(430,"ATD",$P(^PRCA(430,DA,0),"^",9),$E(X,1,30),DA)` `3)= Needed to set cross-reference of patient activity` `This cross-reference is used to track accounts that have been made ACTIVE. It is used by the patient statement procedures.` CROSS-REFERENCE: `430^ACTDT^MUMPS` `1)= S ^PRCA(430,"ACTDT",$P(X,"."),DA)=""` `2)= K ^PRCA(430,"ACTDT",$P(X,"."),DA)` `This cross reference is used to sort bills by the date they are activated.` CROSS-REFERENCE: `430^AG^MUMPS` `1)= D AR^RCXVDEQ` `2)= Q` `This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.`
61	LETTER1	6;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1987` HELP-PROMPT: `Enter the date the 1st follow-up letter was sent.` DESCRIPTION: `This is the date the first debt collection letter was sent to the debtor.`
62	LETTER2	6;2	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1987` HELP-PROMPT: `Enter the date the 2nd letter was sent.` DESCRIPTION: `This is the date the second debt collection letter was sent to the debtor.`
63	LETTER3	6;3	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1987` HELP-PROMPT: `Enter the date the 3rd letter was sent.` DESCRIPTION: `This is the date the third debt collection letter was sent to the debtor.`
64	REFERRAL DATE	6;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 12, 2003` HELP-PROMPT: `Enter the date the account was referred to RC/DOJ.` DESCRIPTION: `This is the date the account was referred to the Regional Counsel or the Department of Justice for collection.` CROSS-REFERENCE: `430^AD` `1)= S ^PRCA(430,"AD",$E(X,1,30),DA)=""` `2)= K ^PRCA(430,"AD",$E(X,1,30),DA)` `3)= Needed to look-up bills by referral date` `This cross-reference is used to look-up bills by Referral Date.` CROSS-REFERENCE: `430^AH^MUMPS` `1)= D AR^RCXVDEQ` `2)= Q` `This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.`
65	REFERRAL CODE	6;5	SET	'RC' FOR REGIONAL COUNSEL; 'DOJ' FOR DEPT.OF JUSTICE; 'DC' FOR REGIONAL COUNSEL; LAST EDITED: `SEP 30, 1997` HELP-PROMPT: `Enter 'RC' or 'DOJ'` DESCRIPTION: `This field indicates where an account was referred to.`
66	REFERRAL AMOUNT	6;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `APR 23, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the account balance that was referred.`
67	LAST INT/ADM CHARGE DATE	6;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 1987` HELP-PROMPT: `Enter the last date the monthly interest/administrative cost was charged.` DESCRIPTION: `This is the most recent date that Interest/Administrative costs were charged to the account.`
68	LETTER4	6;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Enter date the 4th letter was sent.` DESCRIPTION: `This is the date the fourth debt collection letter was sent to the debtor.`
68.1	LAST LETTER DATE	6;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 02, 1987` HELP-PROMPT: `Enter date of the letter.` DESCRIPTION: `This is the date of the most recent debt collection letter.`
68.2	RE-REFERRAL DATE	6;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 12, 2003` HELP-PROMPT: `Enter the date the account was re-referred to RC/DOJ` DESCRIPTION: `This is the date the account was re-referred to the Regional Counsel or Department of Justice.` CROSS-REFERENCE: `430^AI^MUMPS` `1)= D AR^RCXVDEQ` `2)= Q` `This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.`
68.3	RETURNED DATE BY RC/DOJ	6;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 12, 2003` HELP-PROMPT: `Enter the date the account was returned by RC/DOJ.` DESCRIPTION: `This is the date a referred account was returned by the Regional Counsel or Department of Justice.` CROSS-REFERENCE: `430^AL^MUMPS` `1)= D AR^RCXVDEQ` `2)= Q` `This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.`
68.4	REFERRAL DATE TO COWC	6;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 12, 2003` HELP-PROMPT: `Enter the date the account was referred to COWC.` DESCRIPTION: `This is the date the account was referred to the DVB Committee on Waivers and Compromise.` CROSS-REFERENCE: `430^AM^MUMPS` `1)= D AR^RCXVDEQ` `2)= Q` `This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.`
68.5	REFERRED AMOUNT TO COWC	6;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `APR 11, 1988` HELP-PROMPT: `Enter the dollar amount of the account referred to COWC.` DESCRIPTION: `This is the balance of an account referred to the DVB Committee on Waivers and Compromise.`
68.6	IRS OFFSET LETTER	6;14	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 05, 1990` HELP-PROMPT: `Enter the date the last time an IRS OFFSET letter was sent for this bill.` DESCRIPTION: `This field stores the last date an IRS Offset letter was printed that contained the amount due from the bill.`
68.7	DATE FORWARDED TO IRS	6;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 05, 1990` DESCRIPTION: `This is the date the receivable was forwarded to the IRS.`
68.8	IRS PRINCIPAL BALANCE	6;16	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 05, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the principal balance of the receivable forwarded to the IRS.`
68.9	IRS INTEREST BALANCE	6;17	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 05, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the Interest Balance forwarded to the IRS.`
68.91	IRS ADMIN. BALANCE	6;18	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 22, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the Administrative Balance forwarded to the IRS.`
68.92	ORIGINAL IRS LETTER AMOUNT	6;19	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 19, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the Original Amount of the bill forwarded to the IRS.`
68.93	ORIGINAL IRS OFFSET AMOUNT	6;20	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 19, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the Original IRS Offset Amount.`
68.94	REFERRAL REASON CODE	6;22	SET	**********************REQUIRED FIELD********************** '1' FOR LITIGATION ISSUES; '2' FOR VET NOT RESP FOR COST OF CARE; '3' FOR REFUSAL TO PAY GOV HOSPITAL; '4' FOR VETERAN PAID DIRECTLY; '5' FOR MCCR REF WITH RC CONSENT; LAST EDITED: `JAN 09, 2003` HELP-PROMPT: `Enter the Reason Code for referring this claim to Regional Counsel.` DESCRIPTION: `This is a code for the transmission to Regional Counsel to let them know the reason for the referral. This is required for the transmission.`
68.95	REFERRAL COMMENT	6;23	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>65!($L(X)<3) X` LAST EDITED: `JAN 09, 2003` HELP-PROMPT: `Enter detailed reason for referral and contact information at RC.` DESCRIPTION: `Enter specific information on the account pertaining to the reason for referral; date, time of call and contact person the staff spoke with at the Regional Counsel.`
69	OVER LETTER3		COMPUTED	MUMPS CODE: `S Y(430,69,1)=$S($D(^PRCA(430,D0,6)):^(6),1:""),X=DT S X=X,X1=X,X2=$P(Y(430,69,1),U,3),X="" D:X2 ^%DTC:X1` ALGORITHM: `TODAY-LETTER3` DESCRIPTION: `This field computes the length of time since the third debt collection letter was mailed.`
70	DELINQUENT DAYS		COMPUTED	MUMPS CODE: `S Y(430,70,1)=$S($D(^PRCA(430,D0,6)):^(6),1:""),X=DT S X=X,X1=X,X2=$P(Y(430,70,1),U,1),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)` ALGORITHM: `TODAY-LETTER1 (ALWAYS 0 DECIMAL DIGITS)` DESCRIPTION: `This field computes the number of days an account is delinquent by subtracting the date of the first debt collection letter from the current date.`
71	PRINCIPAL BALANCE	7;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-999999.99) X` LAST EDITED: `AUG 28, 1987` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This field is set to the original amount when a new bill is established.` NOTES: `TRIGGERED by the ORIGINAL AMOUNT field of the ACCOUNTS RECEIVABLE File` RECORD INDEXES: `AMCCF (#1689)`
72	INTEREST BALANCE	7;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `AUG 28, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the balance due for interest charges on this bill.` RECORD INDEXES: `AMCCF (#1689)`
73	ADMINISTRATIVE COST BALANCE	7;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `AUG 28, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the balance due for administrative costs on this bill.` RECORD INDEXES: `AMCCF (#1689)`
74	MARSHAL FEE	7;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `AUG 28, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the amount of the Marshal Fee included in this bill.` RECORD INDEXES: `AMCCF (#1689)`
75	COURT COST	7;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `AUG 28, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the amount of court costs included in this bill.` RECORD INDEXES: `AMCCF (#1689)`
77	TOTAL PAID PRINCIPAL	7;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-99999.99) X` LAST EDITED: `SEP 24, 1987` HELP-PROMPT: `Type a Dollar Amount between -99999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This is the total amount received toward this bill's principal balance.`
78	TOTAL PAID INTEREST	7;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999.99)!(X<-9999.99) X` LAST EDITED: `SEP 24, 1987` HELP-PROMPT: `Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the total amount received toward this bill's interest charges.`
79	TOTAL PAID ADMINISTRATIVE COST	7;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999.99)!(X<-9999.99) X` LAST EDITED: `SEP 24, 1987` HELP-PROMPT: `Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the total amount received toward this bill's administrative cost charges.`
79.1	TOTAL PAID MARSHAL FEE	7;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the total amount received toward this bill's Marshal Fee.`
79.12	OUTSTANDING PB	7;12	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `APR 11, 1988` HELP-PROMPT: `Type outstanding principal balance for this debtor.` DESCRIPTION: `This is the total outstanding principal balance for this debtor's account.`
79.13	OUTSTANDING IB	7;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `APR 11, 1988` HELP-PROMPT: `Enter the outstanding interest balance for this debtor.` DESCRIPTION: `This is the total outstanding principal interest balance for this debtor's account.`
79.14	OUTSTANDING AB	7;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `APR 11, 1988` HELP-PROMPT: `Enter the outstanding admin. cost balance for this debtor.` DESCRIPTION: `This is the total outstanding administrative cost charges for this debtor's account.`
79.15	OUTSTANDING MF	7;15	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `APR 11, 1988` HELP-PROMPT: `Enter the outstanding marshal fee for the debtor.` DESCRIPTION: `This is the total outstanding marshal's fee for this debtor's account.`
79.16	OUTSTANDING CC	7;16	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `APR 11, 1988` HELP-PROMPT: `Enter the outstanding court cost balance for the debtor.` DESCRIPTION: `This is the total outstanding court cost for this debtor's account.`
79.17	EXCESS PAYMENT AMOUNT	7;17	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `FEB 21, 1989` HELP-PROMPT: `Enter the amount of the excess payment.` DESCRIPTION: `This field stores the amount of a patient's excess payment.`
79.18	REFUNDED AMOUNT	7;18	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `FEB 21, 1989` HELP-PROMPT: `Enter the amount refunded to the patient.` DESCRIPTION: `This field stores the dollar amount that has been refunded to the patient.`
79.19	REFUNDED DATE	7;19	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 21, 1989` HELP-PROMPT: `Enter the date the refund was made.` DESCRIPTION: `This field stores the date the refund was made.`
79.2	TOTAL PAID COURT COST	7;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the total amount received toward this bill's court costs.`
79.21	REFUNDED BY	7;21	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 27, 1992` HELP-PROMPT: `Enter the name of the person who approved this refund, Last Name,First` DESCRIPTION: `This field stores the name of the person who approved the refund. It is a pointer to the New Person File.`
81	IRS LOCATION COST	8;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits` DESCRIPTION: `This is the amount charged to the bill for an IRS locator search.`
82	CREDIT REP. COST	8;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits` DESCRIPTION: `This is the amount charged to the bill for a credit report locator check.`
83	DMV LOCATION COST	8;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999, 2 Decimal Digits` DESCRIPTION: `This is the amount charged to the bill for a state agency/department of motor vehicles locator search.`
83.1	DMV LOCATION CHECK	8;18	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 20, 1988` HELP-PROMPT: `Enter 'Y' for Yes or 'N' for No.` DESCRIPTION: `This flag indicates whether or not a state agency/department of motor vehicles locator check was done.`
84	CONSUMER REP. AGENCY COST	8;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999, 2 Decimal Digits` DESCRIPTION: `This is the amount charged to the bill for a consumer rep. agency locator search.`
85	POSTAL LOCATION COST	8;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999, 2 Decimal Digits` DESCRIPTION: `This is the amount charged to the bill for a US Postal Service locator search.`
86	ABLE TO PAY	8;6	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Enter 'Y' for Yes or 'N' for No.` DESCRIPTION: `This flag indicates whether or not the debtor is able to pay this bill.`
87	ABLE TO LOCATE	8;7	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Enter 'Y' for Yes or 'N' for No.` DESCRIPTION: `This flag indicates whether or not the debtor could be located.`
88	POSTAL LOC.DATE SENT	8;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Enter date locator request was sent to the Postal Service.` DESCRIPTION: `This is the date a request to locate the debtor was sent to the US Postal Service.`
89	POSTAL LOC.DATE RECEIVED	8;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Enter date reply from Postal Service was received.` DESCRIPTION: `This is the date a reply was received to the Postal locator request.`
89.1	IRS ABLE TO LOCATE	8;10	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 09, 1988` HELP-PROMPT: `Is IRS able to locate the debtor ? Enter 'Y' or 'N'` DESCRIPTION: `This flag indicates whether or not the IRS was able to locate the debtor.`
89.2	IRS LOC. DATE SENT	8;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Enter date locator request was sent to IRS.` DESCRIPTION: `This is the date a request to locate the debtor was sent to the IRS.`
89.3	IRS LOC. DATE RECEIVED	8;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Enter date reply received from IRS.` DESCRIPTION: `This is the date a reply was received to the IRS locator request.`
89.4	CREDIT REP. ABLE TO PAY	8;13	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 09, 1988` HELP-PROMPT: `Enter 'Y' for Yes or 'N' for No.` DESCRIPTION: `This flag indicates whether or not the credit report says the debtor is able to pay the bill.`
89.5	CREDIT REPT. DATE SENT	8;14	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Enter date request for credit report was sent.` DESCRIPTION: `This is the date a request for a credit report was sent.`
89.6	CREDIT REP. DATE RECEIVED	8;15	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Enter date credit report was received.` DESCRIPTION: `This is the date the requested credit report was received.`
89.7	PATIENT FOLDER REVIEWED	8;16	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 09, 1988` HELP-PROMPT: `Did you review the patient folder ? Enter 'Y' or 'N'` DESCRIPTION: `This flag indicates whether or not the debtor's Patient Folder was reviewed for locator information.`
89.8	DATE FOLDER REVIEWED	8;17	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Enter date Patient Folder was reviewed.` DESCRIPTION: `This is the date the debtor's Patient Folder was reviewed.`
90	APPROVED BY (FISCAL)	9;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter approving official's name.` DESCRIPTION: `This is the person in Fiscal who approved the bill.`
91	AR ELECTRONIC SIGNATURE	9;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` OUTPUT TRANSFORM: `S Y=""` LAST EDITED: `FEB 07, 1997` HELP-PROMPT: `Enter Electronic Signature code.`
92	AR DATE SIGNED	9;3	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 19, 1987` HELP-PROMPT: `Enter date bill was signed.` DESCRIPTION: `This is the date the bill was signed in Fiscal.`
93	AR APPR.OFFICIAL'S TITLE	9;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>27!($L(X)<3) X` LAST EDITED: `NOV 19, 1987` HELP-PROMPT: `Enter Approving Official's Title.` DESCRIPTION: `This is the approving official's title.`
94	APPROVED BY (BILLING)	9;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 27, 1992` HELP-PROMPT: `Enter person who approved bill in Service.` DESCRIPTION: `This is the person who approved the bill in the Service or Section.`
95	PREVIOUS STATUS	9;6	POINTER TO ACCOUNTS RECEIVABLE TRANS.TYPE FILE (#430.3)	ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3) LAST EDITED: `JUL 18, 1988` HELP-PROMPT: `Enter bill's previous status.` DESCRIPTION: `This is the former status of the bill if it has been changed.`
96	APPROVED DATE (SERVICE)	9;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 18, 1988` HELP-PROMPT: `Enter date the bill was approved.` DESCRIPTION: `This is the date the bill was approved in the Service or Section.`
97	PROCESSED BY (SERVICE)	9;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 19, 1992` HELP-PROMPT: `Enter the name of the person who processed the bill.` DESCRIPTION: `This is the person in the Service or Section who processed the bill.`
98	COMMENTS	10;0	WORD-PROCESSING #430.098	DESCRIPTION: `This word processing field allows the AR Clerk or Supervisor to add optional comments at the time the bill is audited.` LAST EDITED: `OCT 04, 1988` HELP-PROMPT: `Enter optional comment for this bill.` DESCRIPTION: `This word processing field allows the AR Clerk or Supervisor to add a comment at the time the bill is audited.`
100	FORM TYPE	100;1	SET	**********************REQUIRED FIELD********************** '1' FOR 1081; '2' FOR 1080; '3' FOR 1114; LAST EDITED: `OCT 25, 1988` HELP-PROMPT: `Enter the code for the form to be used for the bill` DESCRIPTION: `This response indicates the type of form for the bill. (1080, 1081 or 1114).`
101	SERVICE	100;2	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD********************** SERVICE/SECTION(#49) LAST EDITED: `SEP 21, 1988` HELP-PROMPT: `Enter billing Service or Section.` DESCRIPTION: `This is the Service or Section that originated the bill.`
104	VOUCHER NUMBER	100;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<3) X` LAST EDITED: `OCT 28, 1987` HELP-PROMPT: `Enter optional voucher number, 3 - 9 characters.` DESCRIPTION: `This is the billing Service/Section's voucher number. It is used on the 1080, 1081 and 1114 bill forms.`
106	DESCRIPTION	101;0	DATE Multiple #430.02	430.02 DESCRIPTION: `This is a description of the bill.` IDENTIFIED BY: `"Z1": W " ",$E($P(^(0),U,2),4,5)_"-"_$E($P(^(0),U,2),6,7)_"-"_$E($P(^(0),U,2),2,3)` `"Z6": W " ",$P(^(0),U,6)`
107	BILLING AGENCY	100;7	POINTER TO AR GROUP FILE (#342.1)	AR GROUP(#342.1) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=6" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 17, 1993` DESCRIPTION: `This is the billing agency from the AR Site Parameter file.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=6"` EXPLANATION: `TAKE THE BILLING AGENCY TYPE`
108	AGENCY LOCATION CODE (ALC)	100;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<3) X` LAST EDITED: `OCT 28, 1987` HELP-PROMPT: `Enter ALC, 3 - 12 characters.` DESCRIPTION: `This is the Agency Location Code.`
110	DOCUMENT NUMBER	100;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 07, 1987` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` DESCRIPTION: `This is the Document Number used on the 1081 bill form.`
111	APPROVING OFFICIAL (SERVICE)	104;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter the person's name who approved the bill in the Service.` DESCRIPTION: `This is the person in the Service or Section who approved the bill.`
112	ELECTRONIC SIGNATURE	104;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` OUTPUT TRANSFORM: `S Y=""` LAST EDITED: `FEB 07, 1997` HELP-PROMPT: `Enter Electronic Signature Code`
113	DATE SIGNED (APPROVED)	104;3	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 07, 1987` HELP-PROMPT: `Enter date the bill was approved in the Service.` DESCRIPTION: `This is the date the bill was approved in the Service or Section.`
114	APPR. OFFICIAL'S TITLE	104;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>27!($L(X)<3) X` LAST EDITED: `OCT 07, 1987` HELP-PROMPT: `Enter Approving Official's Title, 3 - 27 characters.` DESCRIPTION: `This is the title of the person who approved the bill in the Service or Section.`
121	DATE SENT TO DMC	12;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 19, 1997` DESCRIPTION: `This is the date that the bill was first sent to the Debt Management Center.`
122	DMC PRINCIPAL BALANCE	12;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `MAR 19, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the current principal balance for the bill that is at the Debt Management Center.`
123	DMC INTEREST BALANCE	12;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `MAR 19, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the current interest balance for the bill that is at the Debt Management Center.`
124	DMC ADMIN BALANCE	12;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `MAR 19, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the current administrative cost balance for the bill that is at the Debt Management Center.`
125	DMC Debt Valid	12.1;1	SET	'Y' FOR YES; 'N' FOR NO; 'P' FOR PENDING; LAST EDITED: `AUG 09, 2007` HELP-PROMPT: `Enter 'Y' for Yes or 'N' for No.` DESCRIPTION: `If the field value is NULL the nightly DMC job will prevent the debt from being referred to DMC when the debtor is SC 50% to 100% or in Receipt of a VA Pension. It will then set this field value to PENDING so the users` `will know this is what occurred.` `If a user sets this field value to YES and the debt meets all criteria to be sent to DMC it will be referred to DMC even if the debtor is SC 50% to 100% or in Receipt of a VA Pension.` `If a user sets this value to NO the debt will not be referred to DMC.` `Users should only interactively be able to set the value to YES or NO. PENDING is reserved for the nightly DMC job.` CROSS-REFERENCE: `^^TRIGGER^430^126` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(430,125,1,1,1.1) S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,2)=DIV,DIH=430,DIG=126 D ^DICR` `1.1)= S X=DIV X ^DD(430,125,1,1,49.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""),X=$S('DUZ:"??",X="#":DUZ,X="N":$P(%,U,1),X="I":$P(%,U,2),X="T":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""),X="NN":$S($D(^VA(200,+DUZ,.1)):$P(` `^(.1),U,4),1:""),1:"??") K %` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(430,125,1,1,2.1) S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,2)=DIV,DIH=430,DIG=126 D ^DICR` `2.1)= S X=DIV X ^DD(430,125,1,1,59.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""),X=$S('DUZ:"??",X="#":DUZ,X="N":$P(%,U,1),X="I":$P(%,U,2),X="T":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""),X="NN":$S($D(^VA(200,+DUZ,.1)):$P(` `^(.1),U,4),1:""),1:"??") K %` `49.2)= S X="#"` `59.2)= S X="#"` `CREATE VALUE)= USER("#")` `DELETE VALUE)= USER("#")` `FIELD)= DMC Valid Debt Edited By` `Whenever the DMC Debt Valid field is changed it will update the DMC Debt Valid Edited By Field to the user who made the change.` CROSS-REFERENCE: `^^TRIGGER^430^127` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(430,125,1,2,1.4)` `1.4)= S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,3)=DIV,DIH=430,DIG=127 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(430,125,1,2,2.4)` `2.4)= S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,3)=DIV,DIH=430,DIG=127 D ^DICR` `CREATE VALUE)= NOW` `DELETE VALUE)= NOW` `FIELD)= DMC Debt Valid Edited Date` `Whenever the DMC Debt Valid field is changed it will update the DMC Debt Valid Edited Date Field to the current Date and Time.`
126	DMC Debt Valid Edited By	12.1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 09, 2007` HELP-PROMPT: `Enter the name of the user making a change to the DMC Debt Valid Field.` DESCRIPTION: `This is a pointer to the New Person File. It extracts the name of the last person making a change to the DMC Debt Valid field. Adding new entries to the New Person File is not allowed.` NOTES: `TRIGGERED by the DMC Debt Valid field of the ACCOUNTS RECEIVABLE File`
127	DMC Debt Valid Edited Date	12.1;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 09, 2007` HELP-PROMPT: `Enter Date/Time DMC Debt Valid Field Edited` DESCRIPTION: `This is the Date and Time a user last edited the DMC Debt Valid Field.` NOTES: `TRIGGERED by the DMC Debt Valid field of the ACCOUNTS RECEIVABLE File`
131	MEDICARE CONT. ADJUSTMENT	13;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X` LAST EDITED: `MAR 24, 2004` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits` DESCRIPTION: `This field will reflect the Medicare contractual adjustment for a bill.`
132	MEDICARE UNREIMBURSABLE	13;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X` LAST EDITED: `MAR 24, 2004` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits` DESCRIPTION: `This field will reflect the Medicare Unreimbursable Expense for a bill.`
141	DATE BILL REFERRED TO TOP	14;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 15, 1999` DESCRIPTION: `This field contains the date that the bill was originally referred to TOP.` TECHNICAL DESCR: `If a bill has been referred to TOP, this date is set by the system. It is used to show that the bill has been referred to TOP on the bill profile.`
142	TOP REFUND STATUS	14;2	SET	'1' FOR REFUND; '2' FOR REFUND TRANSMITTED; '3' FOR REVERSAL; '4' FOR REVERSAL TRANSMITTED; LAST EDITED: `JUN 16, 1999` DESCRIPTION: `This field contains the current status of a TOP refund.` TECHNICAL DESCR: `If a prepayment bill is approved for refund and the user indicates that it is a TOP refund, this field is set to 'Refund' status. When the TOP document is sent, the status is changed to 'Refund Transmitted' status. If` `the refund is subsequently reversed, this field is set to 'Reversal' status and upon transmission of the TOP document, the field is sent to 'Reversal Transmitted' status. This field is also cross-referenced, so that the` `software can easily determine when a type 1 refund or refund reversal document should be sent to TOP.` CROSS-REFERENCE: `430^TREF` `1)= S ^PRCA(430,"TREF",$E(X,1,30),DA)=""` `2)= K ^PRCA(430,"TREF",$E(X,1,30),DA)` `This field is cross-referenced, so that the software can easily determine when a type 1 refund or refund reversal document should be sent to TOP.`
143	TOP TRACE NUMBER	14;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10) X` LAST EDITED: `JUN 15, 1999` HELP-PROMPT: `Answer must be 10 characters in length.` DESCRIPTION: `This field contains the trace number attached to the refund.` TECHNICAL DESCR: `This field is set whenever a TOP refund is approved. It will attach the Current TOP Trace Number from file 340 to the refund.`
144	TOP REFUND YEAR	14;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `JUN 15, 1999` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: `This field contains the calendar year for which the refund is granted.` TECHNICAL DESCR: `This field will be set by user entry at the time of the refund approval. It is necessary in case the refund must be reversed.`
151	DATE BILL REFERRED TO TCSP	15;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 04, 2014` HELP-PROMPT: `Type the date that the debt was referred to Cross-Servicing.` DESCRIPTION: `The date that the debt was referred to Cross Servicing.` CROSS-REFERENCE: `430^TCSP^MUMPS` `1)= S ^PRCA(430,"TCSP",DA)=""` `2)= K ^PRCA(430,"TCSP",DA)` `This Cross-Reference indicates whether a debt has been sent to Cross-Servicing.`
152	TCSP RECALL FLAG	15;2	SET	'1' FOR CROSS-SERVICING RECALL SET; LAST EDITED: `JAN 13, 2015` HELP-PROMPT: `Type a '1' to set the Cross-Servicing recall flag.` DESCRIPTION: `The flag that marks this debt for recall record creation from Cross-Servicing when the AR nightly background job is run.`
153	TCSP RECALL EFF. DATE	15;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 16, 2014` HELP-PROMPT: `Type a date greater than 1/1/2014.` DESCRIPTION: `The date that the recall flag is set for the debt.`
154	TCSP RECALL REASON	15;4	SET	'01' FOR DEBT REFERRED IN ERROR; '07' FOR AGENCY IS FORGIVING DEBT; '08' FOR AGENCY CAN COLLECT THROUGH INTERNAL OFFSET; '15' FOR DEBTOR WAS INCORRECTLY ASSOCIATED WITH THE DEBT; '03' FOR BANKRUPTCY; '05' FOR DEBTOR DISABLED; '06' FOR DEBTOR DECEASED; LAST EDITED: `JUL 03, 2014` HELP-PROMPT: `Type a reason code for the recall from Cross-Servicing.` DESCRIPTION: `The reason that the debt is being recalled from Cross-Servicing.`
155	RECALL AMOUNT	15;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `OCT 08, 2014` HELP-PROMPT: `Type a dollar amount between 0 and 99999.99, 2 decimal digits.` DESCRIPTION: `The amount of the debt being recalled from Cross-Servicing.`
156	ORIGINAL DATE REFERRED TO TCSP	21;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `DEC 04, 2017` HELP-PROMPT: `Type the original date that the debt was referred to Cross-Servicing.` DESCRIPTION: `The original date that the debt was referred to Cross-Servicing. This field is only set once, when the debt is first referred to Cross-Servicing. Since this field was added after Cross-Servicing originated, it may not be` `accurate. It is not deleted or reset with subsequent actions on the debt. The purpose of this field is to act as a flag to determine whether the account has ever been sent to Cross-Servicing, regardless of its current` `status. It should not be used for aging or other computations.` TECHNICAL DESCR: `This date may be set by the original referral to Cross-Servicing or by other Cross-Servicing activities. It should not be used as an accurate date to age Cross-Servicing bills. It is designed to be used as an indicator of` `whether the bill has ever been referred to Cross-Servicing regardless of its current status.`
157	STOP TCSP REFERRAL FLAG	15;7	SET	'1' FOR STOP TCSP REFERRAL SET; LAST EDITED: `APR 06, 2014` HELP-PROMPT: `Type a '1' to set the Cross-Servicing stop flag for this debt.` DESCRIPTION: `The flag that stops further Cross-Servicing activity for this debt.`
158	STOP TCSP REFERRAL EFF. DATE	15;8	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 17, 2014` HELP-PROMPT: `Type a date greater than 1/1/2014.` DESCRIPTION: `The date that the stop flag was set for the debt.`
159	STOP TCSP REFERRAL REASON	15;9	SET	'B' FOR BANKRUPTCY; 'W' FOR WAIVER; 'O' FOR OTHER; 'R' FOR REJECTED BY CROSS-SERVICING; LAST EDITED: `JAN 13, 2015` HELP-PROMPT: `Type a reason code for the stop Cross-Servicing activity.` DESCRIPTION: `The reason that the debt is being stopped for further Cross-Servicing activity. Select from 'B' for bankruptcy, 'W' for waiver, 'O' for other, and 'R' for rejected by Cross-Servicing.`
159.1	STOP TCSP REFERRAL COMMENT	15;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 14, 2014` HELP-PROMPT: `Type a reason comment up to 20 characters in length.` DESCRIPTION: `Type a comment to support the reason that a stop flag has been set for this debt. A comment is required in the case of 'Other' as a reason code.`
159.2	TCSP CASE RECALL FLAG	15;11	SET	'1' FOR CROSS-SERVICING CASE RECALL SET; LAST EDITED: `JAN 13, 2015` HELP-PROMPT: `Type a '1' to set the Cross-Servicing recall flag.` DESCRIPTION: `The flag that marks this case for recall record creation from Cross-Servicing when the AR nightly background job is run.`
159.3	TCSP CASE RECALL EFF. DATE	15;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 13, 2014` HELP-PROMPT: `Type a date greater than 1/1/2014.` DESCRIPTION: `The date that the recall flag is set for the case.`
159.4	TCSP CASE RECALL REASON	15;13	SET	'15' FOR DEBTOR WAS INCORRECTLY ASSOCIATED WITH THE DEBT; LAST EDITED: `AUG 13, 2014` HELP-PROMPT: `Type a reason code for the recall of the case.` DESCRIPTION: `The reason that the case is being recalled from Cross-Servicing.`
159.5	TCSP GENDER	15;14	SET	'M' FOR MALE; 'F' FOR FEMALE; LAST EDITED: `FEB 06, 2015` HELP-PROMPT: `Type the gender of the debtor.` DESCRIPTION: `The Debtor's gender, 'M' for Male or 'F' for Female.`
159.9	TCSP RE-REFERRAL	15.5;0	SET Multiple #430.03	430.03 DESCRIPTION: `Subfile containing Re-Referral status, including requests (and details of those requests) and completed Re-Referrals performed during weekly batch job run.`
161	TCSP TIN	16;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` LAST EDITED: `JUN 27, 2014` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `The SSN sent on the Cross-Servicing debtor record.`
162	TCSP DEBTOR NAME	16;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>71!($L(X)<1) X` LAST EDITED: `JUN 27, 2014` HELP-PROMPT: `Answer must be 1-71 characters in length.` DESCRIPTION: `The debtor name sent on the Cross-Servicing record.`
163	TCSP DELINQUENCY DATE	16;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 16, 2014` HELP-PROMPT: `Type a date greater than 1/1/2000.` DESCRIPTION: `The date that the bill became active. The debt is referred to Cross-Servicing when the debt is 120 days old counted from the delinquency date.`
164	TCSP DEBTOR ADDRESS, LINE 1	16;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `MAR 16, 2014` HELP-PROMPT: `Answer must be 1-35 characters in length.` DESCRIPTION: `The street address line 1 from the Patient file (#2)`
165	TCSP DEBTOR ADDRESS, LINE 2	16;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `MAR 16, 2014` HELP-PROMPT: `Answer must be 1-35 characters in length.` DESCRIPTION: `The street address line 2 from the Patient file (#2).`
166	TCSP DEBTOR ADDRESS, CITY	16;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `MAR 16, 2014` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `The city from the Patient file (#2).`
167	TCSP DEBTOR ADDRESS, STATE	16;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `MAR 16, 2014` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `The state from the Patient file (#2).`
168	TCSP DEBTOR ZIP CODE	16;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<5) X` LAST EDITED: `MAR 16, 2014` HELP-PROMPT: `Answer must be 5-9 characters in length.` DESCRIPTION: `The zip code from the Patient file (#2).`
169	ORIGINAL TCSP AMOUNT	16;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 09, 2014` HELP-PROMPT: `Type a dollar amount between 0 and 9999999, 2 decimal digits.` DESCRIPTION: `The original amount referred to Cross-Servicing.`
169.1	CURRENT TCSP AMOUNT	16;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `OCT 09, 2014` HELP-PROMPT: `Type a dollar amount between 0 and 999999.99, 2 decimal digits.` DESCRIPTION: `The current debt amount at Cross-Servicing.`
169.2	TCSP DEBTOR PHONE	16;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `AUG 29, 2014` HELP-PROMPT: `Answer must be 4-20 characters in length.` DESCRIPTION: `The residence phone number from the Patient file (#2).`
169.3	TCSP COUNTRY CODE	16;12	POINTER TO COUNTRY CODE FILE (#779.004)	COUNTRY CODE(#779.004) LAST EDITED: `OCT 15, 2014` HELP-PROMPT: `Type the country code for the patient's address.` DESCRIPTION: `The country code from the Patient file (#2).`
169.4	TCSP DOB	16;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 06, 2014` HELP-PROMPT: `Type the patient's date of birth.` DESCRIPTION: `The patient date of birth.`
171	CS ADJ TRANS NUMBER	17;0	POINTER Multiple #430.0171	430.0171 LAST EDITED: `JUN 01, 2017` DESCRIPTION: `The transaction numbers in the AR Transaction file (#433) for transactions to be included in a 5B record to be sent to Cross-Servicing.`
172	REJECT DATE	18;0	DATE Multiple #430.0172	430.0172 DESCRIPTION: `The dates that the Cross-Servicing record was received and processed.`
173	DUE PROCESS NOTIFICATION FLAG	20;3	SET	'1' FOR YES, CHECK FOR DPN; LAST EDITED: `MAR 25, 2015` HELP-PROMPT: `Type YES if this bill is to be tracked for Due Process Notification.` DESCRIPTION: `This flag is set during the install post initialization to identify this bill as requiring a Due Process notification when and if the current balance equals or exceeds $25.00.`
174	DUE PROCESS REQUEST DATE	20;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 25, 2015` HELP-PROMPT: `Enter the date of the DPN request.` DESCRIPTION: `The date that the request was made to AITC to send a Due Process Notification letter to the patient.`
175	DUE PROCESS LETTER PRINT DATE	20;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 25, 2015` HELP-PROMPT: `Enter the date that the DPN letter was printed.` DESCRIPTION: `The date that the Due Process Notification letter was printed by AITC.`
176	DUE PROCESS REFERRAL DATE	20;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 25, 2015` HELP-PROMPT: `Enter the date that the bill was referred to Cross-Servicing.` DESCRIPTION: `The date that the bill was referred to Cross-Servicing.`
177	DUE PROCESS ERROR DATE	20;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 25, 2015` HELP-PROMPT: `Enter the date of the Due Process error.` DESCRIPTION: `The date that the error codes were returned for the Due Process Notification letter request to AITC.`
178	DUE PROCESS ERROR CODES	20;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAR 25, 2015` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `The error codes returned by AITC for the Due Process Notification file sent to AITC requesting that a Due Process Notification letter be sent to the patient.`
191	SEND TCSP RECORD 1	19;1	SET	'1' FOR SEND 1 ACTION U; LAST EDITED: `JUL 27, 2014` HELP-PROMPT: `Type a '1' to set the Cross-Servicing referral flag for this debt.` DESCRIPTION: `The flag set by the unprocessable file to request that a record 1 be sent for this debt.`
192	SEND TCSP RECORD 2	19;2	SET	'1' FOR SEND 2 ACTION U; LAST EDITED: `JUL 27, 2014` HELP-PROMPT: `Type a '1' to set the Cross-Servicing referral flag for this debt.` DESCRIPTION: `The flag set by the unprocessable file to request that a record 2 be sent for this debt.`
193	SEND TCSP RECORD 2A	19;3	SET	'1' FOR SEND 2A ACTION U; LAST EDITED: `JUL 27, 2014` HELP-PROMPT: `Type a '1' to set the Cross-Servicing referral flag for this debt.` DESCRIPTION: `The flag set by the unprocessable file to request that a record 2A be sent for this debt.`
194	SEND TCSP RECORD 2C	19;4	SET	'1' FOR SEND 2C ACTION A; LAST EDITED: `JUL 27, 2014` HELP-PROMPT: `Type a '1' to set the Cross-Servicing referral flag for this debt.` DESCRIPTION: `The flag set by the unprocessable file to request that a record 2C be sent for this debt.`
199.2	STOP INTEREST ADMIN CALC	19;11	SET	'1' FOR YES; LAST EDITED: `AUG 09, 2014` HELP-PROMPT: `Type a '1' to set the Cross-Servicing stop of interest and admin calculation.` DESCRIPTION: `The flag to stop interest and admin calculation for debts referred to Cross-Servicing.`
200	RECEIVABLE CODE		COMPUTED	MUMPS CODE: `S X=$$REC^RCAMFN01($P(^PRCA(430,D0,0),"^",6)) S X=$S(X=1:"FEDERAL",X=2:"NON-FEDERAL",1:"UNKNOWN")` ALGORITHM: `S X=$$REC^RCAMFN01($P(^PRCA(430,D0,0),"^",6)) S X=$S(X=1:"FEDERAL",X=2:"NON-FEDERAL",1:"UNKNOWN")` DESCRIPTION: `Identifies bill as Federal/Non-federal.`
200.2	TYPE OF BILL	200;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `OCT 29, 1987` HELP-PROMPT: `Enter the 3 digit code for this type of bill.` DESCRIPTION: `This is the type of bill code from the UB-82 bill form.`
201	BEGINNING BUDGET FY	11;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `APR 14, 1994` HELP-PROMPT: `Enter the last 2 digits of the beginning FISCAL YEAR. ie. 94` DESCRIPTION: `Beginning Fiscal Year of accounting FUND.`
202	ENDING BUDGET FY	11;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `APR 14, 1994` HELP-PROMPT: `Enter the last 2 digits of the ENDING budget fiscal year on a multi-year appropriation. ie. 95` DESCRIPTION: `Ending Fiscal Year of accounting FUND.`
203	FUND	11;17	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D FUND^PRCAFUT S X=$P($G(FUND),U,2) K:$L(X)>6!($L(X)<4) X` LAST EDITED: `JUL 13, 1994` HELP-PROMPT: `Enter the fund. ie 5014.` DESCRIPTION: `FMS Accounting FUND.` EXECUTABLE HELP: `D FUND^PRCAFBDU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
204	ADMIN OFFICE	11;18	SET	'10' FOR VHA; '20' FOR VBA; '30' FOR NCS; LAST EDITED: `APR 10, 1994` DESCRIPTION: `Administrative Office code used by FMS.`
205	ORGANIZATIONAL CTRL POINT	11;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<3) X` LAST EDITED: `APR 12, 1994` HELP-PROMPT: `Answer must be 3-11 characters in length.` DESCRIPTION: `FMS accounting field.`
206	FCP/PROJ	11;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` LAST EDITED: `APR 12, 1994` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `FMS accounting field.`
239	INSURED NAME	202;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JUN 19, 2000` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the individual in whose name the insurance is carried.`
240	INSURED SEX	202;2	SET	'M' FOR MALE; 'F' FOR FEMALE; 'U' FOR UNKNOWN; LAST EDITED: `NOV 03, 1987` HELP-PROMPT: `Enter code for insured's sex.` DESCRIPTION: `This is the insured individual's sex.`
241	PT RELATIONSHIP	202;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `NOV 03, 1987` HELP-PROMPT: `Enter the appropriate 2 digit code.` DESCRIPTION: `This is the two-digit code for the relationship between the insured individual and the patient. It comes from the UB-82 bill form.`
242	CERT SSN HIC ID NO.	202;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `MAY 25, 1990` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This is the Certificate/Social Security Number/Health Insurance Claim/Identification Number from the UB-82 bill form.`
243	GROUP NAME	202;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAY 25, 1990` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the name of the group through which the insurance is provided.`
244	GROUP NUMBER	202;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>17!($L(X)<1) X` LAST EDITED: `JUN 19, 2000` HELP-PROMPT: `Answer must be 1-17 characters in length.` DESCRIPTION: `This is the identification number of the group providing insurance.`
245	EMPLOYEE INFORMATION DATA	202;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1U) X` LAST EDITED: `NOV 03, 1987` HELP-PROMPT: `Enter the appropriate code, a single upper case alphabetic character.` DESCRIPTION: `This is the employee information data code from the UB-82 bill form.`
246	EMPLOYMENT STATUS CODE	202;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1N) X` LAST EDITED: `NOV 03, 1987` HELP-PROMPT: `Enter the appropriate single digit code.` DESCRIPTION: `This is the employment status code from the UB-82 bill form.`
247	EMPLOYER NAME	202;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 11, 1988` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the employer's name from the UB-82 bill form.`
248	EMPLOYEE ID NUMBER	202;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<3) X` LAST EDITED: `NOV 03, 1987` HELP-PROMPT: `Enter the identification number for the employee, 3-11 characters in length.` DESCRIPTION: `This is the employee's identification number from the UB-82 bill form.`
249	EMPLOYER LOCATION	202;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `FEB 11, 1988` HELP-PROMPT: `Enter Employer's location, 3 - 40 characters.` DESCRIPTION: `This is the employer's location from the UB-82 bill form.`
250	CONTROL POINT	11;1	FREE TEXT	INPUT TRANSFORM: `S:$D(X) CP=X D:$D(CP) CP^PRCAFUT D:$D(CP) CPTBL^PRCAFUT S X=$G(CP) K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 06, 1994` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `IFCAP control point.` EXECUTABLE HELP: `D CPHLP^PRCAFUT` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
251	COST CENTER	11;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D CC^PRCAFBDU S X=$G(CC) K:$L(X)>6!($L(X)<6)!'(X?6N) X` LAST EDITED: `MAY 20, 1994` HELP-PROMPT: `Answer must be 6 characters in length.` DESCRIPTION: `This field is required for spending transactions and is used to record expenditure of funds by various organizations within DVA.` EXECUTABLE HELP: `D CCDISP^PRCAFBDU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
252	SUB COST CENTER	11;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `MAY 19, 1994` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This code is a further breakdown of the Cost Center.`
253	BOC (SUB ACCOUNT)	11;21	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D BOC^PRCAFBDU S X=$G(BOC) K:$L(X)>4!($L(X)<4)!'(X?4N) X` LAST EDITED: `MAY 20, 1994` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: `This code is equivalent to the CALM subaccount. Required for spending transactions and is used to determine the budget operating expense account to effect.` EXECUTABLE HELP: `D BOCDISP^PRCAFBDU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
254	SUB BOC	11;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `MAY 20, 1994` HELP-PROMPT: `Enter sub boc on SALARY OVERPAYMENTS ONLY` DESCRIPTION: `This code is a further breakdown of the Budget Object Code.`
255	REVENUE SOURCE	11;6	POINTER TO REVENUE SOURCE CODE FILE (#347.3)	**********************REQUIRED FIELD********************** REVENUE SOURCE CODE(#347.3) INPUT TRANSFORM: `D RSC^RCXFMSUR` LAST EDITED: `AUG 31, 2005` HELP-PROMPT: `Enter the revenue source code to be sent to FMS for this bill. Only active Revenue Source Codes can be selected.` DESCRIPTION: `This code is required for revenue transactions. It is used to group collected revenue and to determine whether the revenue will credit actual reimbursement receivables for the associated fund.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
255.1	RSC (CALC FOR ACCRUED BILLS)	11;23	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `OCT 01, 1997` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: `This field was added with patch PRCA4.590.` `This field is used to store the calculated revenue source code for bills which are accrued. It is calculated and set in the field by the routine RCXFMSUR.`
256	SUB-REV SOURCE	11;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 04, 1994` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This code is a further breakdown of the Revenue Source Code.`
257	STATION	11;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `MAY 19, 1994` HELP-PROMPT: `Answer must be 1-4 characters in length.` DESCRIPTION: `FMS accounting station number.`
258	FEDERAL/NON-FEDERAL/EMPLOYEE	11;9	SET	'0' FOR FEDERAL; '1' FOR NON-FEDERAL; '2' FOR EMPLOYEE; LAST EDITED: `APR 01, 1994` HELP-PROMPT: `This field will be used to identify the vendor as a Federal, Non-federal or employee vendor.` DESCRIPTION: `FMS accounting field to identify type of bill.`
259	REFUND/REIBURSMENT	11;10	SET	'01' FOR REFUND; '02' FOR REIMBURSEMENT; '3' FOR SF REIBURSMENT; '4' FOR SF REFUND; '24' FOR INELIG. HEALTH; '09' FOR GENERAL FUND; '20' FOR EMPLOYEE; '50' FOR TORT FEASOR; LAST EDITED: `MAR 02, 1995` HELP-PROMPT: `This field will detmine if the refund or reibursment receivable will be established in FMS` DESCRIPTION: `Identifies bill category for FMS`
260	SAT STATION	11;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `JUL 13, 1994` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This field is the Satellite station number`
261	JOB NUMBER	11;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` LAST EDITED: `APR 04, 1994` HELP-PROMPT: `This field is used by FMS to record a job number on receivables` DESCRIPTION: `FMS accounting element.`
262	XPROGAM	11;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` LAST EDITED: `APR 04, 1994` HELP-PROMPT: `used by FMS to indicate program within Organization Control Point` DESCRIPTION: `FMS accounting element.`
263	REPORTING CATEGORY	11;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `APR 04, 1994` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: `FMS accounting element.`
264	FMS LINE NUMBER	11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `SEP 09, 1997` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This field contains the line number assigned to an FMS billing document. This field will only be populated if the line number is different than 001. Line number 001 is the default line number (for null entries).`
265	VENDOR ID	11;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<5) X` LAST EDITED: `SEP 16, 1998` HELP-PROMPT: `Answer must be 5-12 characters in length.` DESCRIPTION: `This field contains the vendor ID that was sent on the billing document.`
266	FMS TRANSMISSION DATE	203;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 19, 2003` DESCRIPTION: `This field contains the date this document was transmitted to FMS.` TECHNICAL DESCR: `UNEDITABLE` CROSS-REFERENCE: `430^FMS` `1)= S ^PRCA(430,"FMS",$E(X,1,30),DA)=""` `2)= K ^PRCA(430,"FMS",$E(X,1,30),DA)` `This is a cross-reference on the FMS TRANSMISSION DATE field. That field stores the date that the document was transmitted to FMS.`
301	RETURNED DATE	30;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 16, 2017` HELP-PROMPT: `Type the returned date for this reconciliation record.` DESCRIPTION: `The returned date field on the reconciliation file for records returned by Treasury from Cross-Servicing.` CROSS-REFERENCE: `430^AN` `1)= S ^PRCA(430,"AN",$E(X,1,30),DA)=""` `2)= K ^PRCA(430,"AN",$E(X,1,30),DA)` `Cross-servicing Returned Date Index`
302	RETURN REASON CODE	30;2	POINTER TO AR RETURN REASON CODE FILE (#430.5)	AR RETURN REASON CODE(#430.5) LAST EDITED: `SEP 02, 2014` HELP-PROMPT: `Type a returned reason code.` DESCRIPTION: `The returned reason code field on the reconciliation file for records returned by Treasury from Cross-Servicing.`
303	COMPROMISE INDICATOR	30;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 09, 2014` HELP-PROMPT: `Type a YES if a compromise is indicated, otherwise NO.` DESCRIPTION: `The compromise indicator field on the reconciliation file for records returned by Treasury from Cross-Servicing.`
304	COMPROMISE AMOUNT	30;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `SEP 02, 2014` HELP-PROMPT: `Type a dollar amount between 0 and 999999, 2 decimal digits.` DESCRIPTION: `The compromise amount field on the reconciliation file for records returned by Treasury from Cross-Servicing.`
305	CLOSED DATE	30;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 02, 2014` HELP-PROMPT: `Type the closed date for this reconciliation record.` DESCRIPTION: `The closed date field on the reconciliation file for records returned by Treasury from Cross-Servicing.` RECORD INDEXES: `AMCCF (#1689)`
306	BANKRUPTCY DATE	30;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 26, 2015` HELP-PROMPT: `Type the date of the bankruptcy.` DESCRIPTION: `The bankruptcy date field on the reconciliation file for records returned by Treasury from Cross-Servicing.`
307	DATE OF DEATH	30;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 26, 2015` HELP-PROMPT: `Type the date of death.` DESCRIPTION: `The date of death field on the reconciliation file for records returned by Treasury from Cross-Servicing.`
308	DATE OF DISSOLUTION	30;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 26, 2015` HELP-PROMPT: `Type the date of dissolution.` DESCRIPTION: `The date of dissolution field on the reconciliation file for records returned by Treasury from Cross-Servicing.`
309	REMOVED FROM RECONCILATION?	30;9	SET	'0' FOR no, not removed; '1' FOR yes, removed; LAST EDITED: `FEB 06, 2018` HELP-PROMPT: `Type 0 to display on worklist or 1 to prevent display.` DESCRIPTION: `This field determines whether this bill will display on the Cross-Servicing Reconciliation Worklist. A null value or a zero will display this bill on the worklist. A 1 in this field means the bill has been processed and` `removed from the Cross-Servicing Reconciliation Worklist, and it will not display on the worklist again.`
310	REC ORIGINAL TCSP AMOUNT	30;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `FEB 24, 2018` HELP-PROMPT: `Type a dollar amount between 0 and 9999999, 2 decimal digits.` DESCRIPTION: `The original amount referred to Cross-Servicing.` TECHNICAL DESCR: `Saved from field #169 when the 16 node is deleted by a return record.`
311	REC CURRENT TCSP AMOUNT	30;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `FEB 24, 2018` HELP-PROMPT: `Type a dollar amount between 0 and 9999999, 2 decimal digits.` DESCRIPTION: `The current debt amount at Cross-Servicing.` TECHNICAL DESCR: `Saved from field #169.1 when the 16 node is deleted by a return record.`
312	REC TCSP RECALL EFF. DATE	30;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3140101>X X` LAST EDITED: `FEB 24, 2018` HELP-PROMPT: `Type a date greater than 1/1/2014.` DESCRIPTION: `The date that the recall flag is set for the debt.` TECHNICAL DESCR: `Saved from field #153 when the 15 node is deleted by a return record.`
313	TCSP AGENCY DEBT ID LAST 2	21;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2A) X` `MAXIMUM LENGTH: 2` LAST EDITED: `APR 14, 2019` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `Last two characters for Agency Debt ID field in IAI records for referral. Must be alphabetic or blank.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #389	Integrated Billing	BILL NO. (.01). Access: Direct Global Read & w/Fileman DEBTOR (9). Access: Read w/Fileman CATEGORY (2). Access: Direct Global Read & w/Fileman DATE BILL PREPARED (10). Access: Direct Global Read & w/Fileman CURRENT STATUS (8). Access: Direct Global Read & w/Fileman PRINCIPAL BALANCE (71). Access: Direct Global Read & w/Fileman INTEREST BALANCE (72). Access: Direct Global Read & w/Fileman ADMINISTRATIVE COST BALANCE (73). Access: Direct Global Read & w/Fileman MARSHAL FEE (74). Access: Direct Global Read & w/Fileman COURT COST (75). Access: Direct Global Read & w/Fileman PROCESSED BY (SERVICE) (97). Access: Read w/Fileman DATE SENT TO DMC (121). Access: Read w/Fileman DATE BILL REFERRED TO TOP (141). Access: Direct Global Read & w/Fileman REFERRAL DATE (64). Access: Direct Global Read & w/Fileman	Request direct access to the "B" cross reference of theACCOUNTS RECEIVABLE (#430) file to determine the internal entry number for areceivable [S IEN=$O(^PRCA(430,"B",BN,0))]. This call is made when purgingPharmacy copay charges, in order to determine the input for the function call$$PUR^PRCAFN(IEN). Integrated Billing will no longer need direct access tothis cross reference once the routine RCFN03 is available. This routine ischecked for and called to get the same information.This cross-reference is used by various reports in theDiagnostic Measures module to retrieve receivables of a specific status, i.e.Active. Some examples of the reports that use this cross-reference are: FirstParty Follow-up Report, Repayment Plan Follow-up Report, AR ProductivityReport, among others.These fields are being displayed in various reports inthe Diagnostic Measures module. Some examples of these reports are:Miscellaneous Bills Follow-up report, Repayment Plan report, among others.The fields 71-75 are being used in the calculation ofthe account balance for the patient in two Diagnostic Measures reports: FirstParty Follow-up and Repayment Plan Follow-up reports.
ICR #3636	M DATA EXTRACTOR
ICR #3847	Integrated Billing	BILL NUMBER (.01). Access:
ICR #4388	Integrated Billing	Medicare Unreimbursable (132). Access: Direct Global Read & w/Fileman Medicare Contract Adjustments (131). Access: Direct Global Read & w/Fileman
ICR #5219		BILL NO. (.01). Access: Direct Global Read & w/Fileman FISCAL YEAR (1). Access: Direct Global Read & w/Fileman CURRENT STATUS (8). Access: Direct Global Read & w/Fileman

Customize PDF page

Package: Accounts Receivable

Global: ^PRCA(430

Information

Description

Accessed By FileMan Db Calls, Total: 163

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 20

Fields, Total: 228

ICR, Total: 5