Global: ^RCD(340

FileMan FileNo	FileMan Filename	Package
340	AR DEBTOR	Accounts Receivable

Package	Total	Routines
Accounts Receivable	147	AR REPAYMENT PLANS DESCRIPTION PRCA BILL 1080 PRCA BILL 1081 PRCA TCSP RECALLB PRCA TCSP RECALLD PRCA307P PRCAACC PRCABJ1 PRCADR2 PRCAHV PRCAPCL PRCARFU PRCASER PRCATE PRCATO2 PRCAWOF RCAM RCAMDTH RCAMFN01 RCBDXREF RCBEPAY RCBEPAYC RCCPC1 RCDMCUT1 RCDPBPLM RCDPESR2 RCDPRPL2 RCDPRPL3 RCDPURET RCDPXFIX RCEVGEN RCFN01 RCTC364P RCTCSJS RCTCSP3 RCTCSP4 RCTCSP4E RCTCSWL1 RCTOPU TRANSACTION ^PRCA(433 PRCA355P PRCAAPR PRCABIL1 PRCABP1 PRCAFN PRCAGU PRCALT2 PRCARFP PRCARPM PRCATSE PRCAX RCBEPAYF RCBEUDEB RCCPCBJ RCCPCSTM RCDMC90S RCDMC90U RCDMCR3B RCDMCR6B RCDMCR7B RCDPAYER RCDPCSA RCDPEAC RCDPESR1 RCDPRTP0 RCDPXPAP RCKATP RCTCS1 RCTCSP2 RCTCSPD4 RCTCSPU RCTOPD RCYDD1 ^PRCA(430 ^RC(341 ^RCD(340 PRCAAPR1 PRCAATR PRCABD PRCABIL PRCABJ PRCACLM PRCACM PRCACOL PRCACPV PRCADR PRCADR1 PRCAGDR PRCAGF PRCAGS PRCAHIS PRCAHOL PRCAI169 PRCAREPC PRCARFD1 PRCARPU PRCASVC PRCATA PRCATE1 PRCATE3 PRCAUTL PRCAXP RCAMADD RCAMINS RCBECHGA RCBECHGS RCBEPAYP RCBEUBI1 RCCPCML RCCPCPS RCCPCSV1 RCDMB1MT RCDMC90 RCDMCR4B RCDPAPLI RCDPAPLM RCDPBPLI RCDPEAD3 RCDPLPL2 RCDPLPL4 RCDPRTEX RCDPRTP RCDPURED RCEVUTL RCEXINAD RCJIBFN3 RCKATRPT RCRJR RCRJRCO2 RCTC336P RCTCSJR RCTCSP5 RCTCSP6 RCTCSPD RCTCSPD0 RCTCSPRS RCTCSWL RCTOP1 RCTOP2 RCTOP4 RCTOPS RCXFMSUV RCXVDC1 RCYPO237 TCSP REFERRAL STOP FLAG
Integrated Billing	4	IBJDF41 IBJDF51 IBJDF71 IBOHLS2

Package	Total	Routines
Accounts Receivable	32	PRCA355P PRCAAPR PRCABIL PRCABJ1 PRCAG PRCAMARK PRCAREPT PRCARPU PRCASVC PRCATE1 PRCATE3 PRCATR3 RCAM RCAMINS RCBDPSLM RCBEUDEB RCDPAPLM RCDPCSA RCDPEAD3 RCDPEFA1 RCDPEFA3 RCDPURET RCEVGEN RCEVUTL RCKATP RCRCALB RCRCVLB RCTCS1 RCTCSJS RCTCSP4 RCTCSP4E RCXFMSUV
Integrated Billing	3	IBJDF51 IBJDF61 IBOHLS2

Package	Total	FileMan Files
Accounts Receivable	3	ACCOUNTS RECEIVABLE(#430)[9] AR EVENT(#341)[.05] AR CCPC STATEMENTS(#349.2)[.01]
Uncategorized	1	AR REPAYMENT PLAN(#340.5)[.02]

Package	Total	FileMan Files
Kernel	3	INSTITUTION(#4)[.01] STATE(#5)[1.05] NEW PERSON(#200)[.01, #340.08(.03)]
IFCAP	1	VENDOR(#440)[.01, .06]
Integrated Billing	1	INSURANCE COMPANY(#36)[.01]
Registration	1	PATIENT(#2)[.01]
Uncategorized	1	AR REPAYMENT PLAN(#340.5)[#340.09(.01)]

Fields, Total: 53

Field #	Name	Loc	Type	Details
.01	DEBTOR	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** PATIENT(#2) NEW PERSON(#200) INSURANCE COMPANY(#36) INSTITUTION(#4) VENDOR(#440) LAST EDITED: `OCT 10, 1996` DESCRIPTION: `This field contains the debtor to which this account belongs to. An account can belong to an insurance company, vendor, institution, person, or patient. Accounts can be set up for Medical Care Cost Recovery charges and` `also for non-benefit debts, such as: Employee bills, Ex-employee bills, and Vendor bills.` PRE-LOOKUP: `S:$D(PRCABT) DIC("V")="I +Y(0)="_$P("440!(+Y(0)=4)^440!(+Y(0)=4)^440!(+Y(0)=200)",U,PRCABT) S:$D(PRCAT) DIC("V")="I +Y(0)="_$S("CP"[PRCAT:2,"FV"[PRCAT:440,"T"[PRCAT:36,"N"[PRCAT:4,"O"[PRCAT:200,1:"200!(+Y(0)=440)")` CROSS-REFERENCE: `340^B` `1)= S ^RCD(340,"B",$E(X,1,30),DA)=""` `2)= K ^RCD(340,"B",$E(X,1,30),DA)` `3)= Needed for look-up of information by Debtor` `This is the regular FileMan 'B' cross-reference and is used throughout the AR package for users to look up information by debtor.` CROSS-REFERENCE: `^^TRIGGER^340^.03` `1)= X ^DD(340,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RCD(340,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(340,.01,1,2,1.1) X ^DD(340,.01,1,2,1.4)` `1.1)= S X=DIV S X=$P($G(^RC(342,1,0)),"^",11) S:X X=+X` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RCD(340,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="",Y(2)=X,Y(3)=X S X=Y(0),X=X S X=X[";DPT(",Y=X,X=Y(2),X=X&Y` `1.4)= S DIH=$S($D(^RCD(340,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=340,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `3)= Needed for assigning statement days for patients` `CREATE CONDITION)= STATEMENT DAY=""&(INTERNAL(DEBTOR)[";DPT(")` `CREATE VALUE)= S X=$P($G(^RC(342,1,0)),"^",11) S:X X=+X` `DELETE VALUE)= NO EFFECT` `FIELD)= STATEMENT DAY` `This cross-reference sets the statement day for new patients to the site's statement day.` CROSS-REFERENCE: `340^AB^MUMPS` `1)= S ^RCD(340,"AB",$P(X,";",2),DA)=""` `2)= K ^RCD(340,"AB",$P(X,";",2),DA)` `3)= Needed to cross-reference debtor file by 'type' of debtor` `This cross-reference allows rapid look-up of debtors in the debtor file by the 'type' of debtor. There are five types of debtors (Patient, Insurance Company, Institution, Vendor, and Person). This allows the AR software` `to scan the file for only a specific type of debtor rather than having to look at each entry.`
.02	PATIENT STATEMENT DETAIL	0;2	SET	'0' FOR USE SITE DEFAULT; '1' FOR BRIEF; '2' FOR EXPANDED; LAST EDITED: `FEB 15, 1993` DESCRIPTION: `This field is used to determine the amount of detail to be displayed on the patient statement for RX Copay charges. A site can define brief or detailed information for each patient to be displayed on the statement. Brief` `information consists only of the RX # and Fill date, while the expanded information consists of much more (Physician, drug name, etc.).`
.03	STATEMENT DAY	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>28)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 09, 1993` HELP-PROMPT: `Type a Number between 1 and 28, 0 Decimal Digits` DESCRIPTION: `A statement day is assigned to all types of debtors, except insurance companies. A statement day is the day that a patient statement is generated or a follow-up letter is generated for non-benefit debts. The AR package` `will hold 'notifications' from being sent until the debtors 'statement day' arrives. This allows all activity since the previous statement to print and update the debtor on the account activity.` `Patient statement days never change, but Institution, Person, and Vendor statement days are changed by the AR software. When these type debtors have a new active bill, the date the new active bill is created becomes their` `'statement day'. This statement day remains in effect until no active bills exist for the debtor, at which time the statement day is 'deleted'.` `Insurance companies are notified based on a bill-specific date. Since insurance companies have much more activity, they are notified on a constant basis depending on each individual bill 'due-date'.` NOTES: `TRIGGERED by the DEBTOR field of the AR DEBTOR File` CROSS-REFERENCE: `340^AC` `1)= S ^RCD(340,"AC",$E(X,1,30),DA)=""` `2)= K ^RCD(340,"AC",$E(X,1,30),DA)` `3)= Needed for printing of patient statements and follow-up letters` `This cross-reference is used to print patient statements and Vendor, Person, and Institution follow-up letters. Since these type of debtors get notified based on their statement day, this cross-reference allows rapid` `look-up of which debtor is due a notification on a particular day.`
.05	RECEIVABLE CODE	0;5	SET	'0' FOR DEFAULT; '1' FOR FEDERAL; '2' FOR NON-FEDERAL; '3' FOR OWCP; LAST EDITED: `AUG 13, 1997` DESCRIPTION: `This field identifies the type of of debtor`
.06	VENDOR LINK	0;6	POINTER TO VENDOR FILE (#440)	VENDOR(#440) LAST EDITED: `SEP 01, 1998` HELP-PROMPT: `Enter the vendor from file 440 (IFCAP Vendor File).` DESCRIPTION: `This field is used to link a vendor from file 440 to a debtor that is not a vendor debtor. It is used to get the vendor ID to send to FMS on Billing Documents (BDs).`
.08	ACCT. PROCESSED (KATRINA)	0;8	SET	'1' FOR YES; LAST EDITED: `DEC 13, 2005` DESCRIPTION: `This field will be set by the software whenever a debtor is processed for a possible refund of payments made to interest and/or administrative charges that were charged inappropriately during the Hurricane Katrina` `emergency period. A '1' in this field indicates that the account was already processed and should not be processed again.` TECHNICAL DESCR: `The software automatically sets this field to 1 whenever a veteran's account is processed by the AR hurricane Katrina software. It prevents this account from being processed again.`
.09	COPAY CHARGES CANCELLED?	0;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 07, 2006` DESCRIPTION: `This field is used to flag debtors, who were affected by Hurricane Katrina, who had copay charges from 8/29/05 through 2/28/06 cancelled by patch PRCA4.5241.` TECHNICAL DESCR: `This field will be automatically set by routine RCKATP during the patch PRCA4.5241 post initialization, when copay charges for veterans affected by Hurricane Katrina are being cancelled.`
.12	LAST DATE ACCT CHARGED ADMIN	.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 account was last charged an administrative fee.` DESCRIPTION: `This field is used to track the last date the account was charged an administrative charge.`
1.01	STREET ADDRESS #1	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `FEB 15, 1993` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `For patients, the MCCR/Fiscal staff can enter a 'billing address' that will over-ride the address fields in the patient file. This is necessary for patients that may be incompetent and may need to have a separate billing` `address from their home address. Once the MAS package supports 'billing addresses', then the AR software will incorporate this functionality from the MAS package.` `This field will be displayed as the first address field on patient statements and profiles.`
1.02	STREET ADDRESS #2	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `For patients, the MCCR/Fiscal staff can enter a 'billing address' that will over-ride the address fields in the patient file. This is necessary for patients that may be incompetent and may need to have a separate billing` `address from their home address. Once the MAS package supports 'billing addresses', then the AR software will incorporate this functionality from the MAS package.` `This field will be displayed as the second address field on patient statements and profiles.`
1.03	STREET ADDRESS #3	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `For patients, the MCCR/Fiscal staff can enter a 'billing address' that will over-ride the address fields in the patient file. This is necessary for patients that may be incompetent and may need to have a separate billing` `address from their home address. Once the MAS package supports 'billing addresses', then the AR software will incorporate this functionality from the MAS package.` `This field will be displayed as the third address field on patient statements and profiles.`
1.04	CITY	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `FEB 15, 1993` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `For patients, the MCCR/Fiscal staff can enter a 'billing address' that will over-ride the address fields in the patient file. This is necessary for patients that may be incompetent and may need to have a separate billing` `address from their home address. Once the MAS package supports 'billing addresses', then the AR software will incorporate this functionality from the MAS package.` `This field will be displayed as the city field on patient statements and profiles.`
1.05	STATE	1;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `FEB 15, 1993` DESCRIPTION: `For patients, the MCCR/Fiscal staff can enter a 'billing address' that will over-ride the address fields in the patient file. This is necessary for patients that may be incompetent and may need to have a separate billing` `address from their home address. Once the MAS package supports 'billing addresses', then the AR software will incorporate this functionality from the MAS package.` `This field will be displayed as the state address field on patient statements and profiles.`
1.06	ZIP CODE	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)!(X?9N)) X S:$D(X) X=$S(X?5N1"-"4N:$P(X,"-")_$P(X,"-",2),1:X)` OUTPUT TRANSFORM: `S:Y?9N Y=$E(Y,1,5)_"-"_$E(Y,6,9)` LAST EDITED: `FEB 17, 1993` HELP-PROMPT: `Answer must be 5-9 characters in length.` DESCRIPTION: `For patients, the MCCR/Fiscal staff can enter a 'billing address' that will over-ride the address fields in the patient file. This is necessary for patients that may be incompetent and may need to have a separate billing` `address from their home address. Once the MAS package supports 'billing addresses', then the AR software will incorporate this functionality from the MAS package.` `This field will be displayed as the Zip Code address field on patient statements and profiles.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1.07	PHONE NUMBER	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `SEP 09, 1993` HELP-PROMPT: `Answer must be 4-20 characters in length.` DESCRIPTION: `For patients, the MCCR/Fiscal staff can enter a "billing phone number" that will over-ride the address fields in the Patient file. This is necessary for patients that may be incompetent and may need to have a separate` `phone number from their home phone number. Once the MAS package supports "billing phone numbers", then the AR software will incorporate this functionality from the MAS package.` `This field will be displayed as the phone number on the patient account profiles and bill profiles.`
1.08	FOREIGN COUNTRY CODE	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `OCT 08, 1996` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This field will be used for foreign addresses where the state is a foreign country.`
1.09	ADDRESS UNKNOWN	1;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 09, 1996` DESCRIPTION: `This field will indicate whether the address is unknown or not.`
2	COMMENT	2;0	WORD-PROCESSING #340.02	DESCRIPTION: `This field should contain any necessary "general" comments about the debtor. This information will be displayed at the top of the Account Profile.`
3.01	ACCOUNT AT DMC?	3;1	SET	'1' FOR ACCOUNT FORWARDED TO DMC; LAST EDITED: `AUG 29, 1997` DESCRIPTION: `This field will contain a '1' if this account has been referred to the Debt Management Center (DMC). It will be automatically set by the AR software upon creation of the DMC Master Record.` CROSS-REFERENCE: `340^DMC` `1)= S ^RCD(340,"DMC",$E(X,1,30),DA)=""` `2)= K ^RCD(340,"DMC",$E(X,1,30),DA)` `This cross-reference will be sent if follow-up on an account is being done by the Debt Management Center (DMC).`
3.02	DATE SENT TO DMC	3;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 31, 1996` DESCRIPTION: `This is the date the DMC Master Record was created and transmitted.`
3.03	DMC DISCOVERY DATE	3;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 31, 1996` DESCRIPTION: `This is the date bill established of the oldest bill referred to DMC.`
3.05	CURRENT TOTAL AT DMC	3;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `AUG 29, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the current amount of the debt that has been referred to DMC. This field will be updated by the DMC weekly transmission.`
3.06	CURRENT PRINCIPAL AT DMC	3;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `AUG 29, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the current principal amount of the debt that has been referred to DMC. This field will be updated by the DMC weekly transmission.`
3.07	CURRENT INTEREST AT DMC	3;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `AUG 29, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the current interest amount of the debt that has been referred to DMC. This field will be updated by the DMC weekly transmission.`
3.08	CURRENT ADMIN AT DMC	3;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `AUG 29, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the current admin amount of the debt that has been referred to DMC. This field will be updated by the DMC weekly transmission.`
3.09	LESSER WITHHOLDING AMOUNT	3;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `AUG 07, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This field is used to enter a lesser withholding amount for DMC (Debt Management Center). Currently, when a debtor is identified for withholding by DMC, the full amount that the debtor holds is withheld. An amount in` `this field will allow the DMC to take a lesser amount monthly until the full debt is paid.`
3.1	SITE DELETION FLAG	3;10	SET	'1' FOR DELETED BY SITE; LAST EDITED: `AUG 12, 1997` DESCRIPTION: `This field will be sent whenever a site deletes a debtor from DMC. When the weekly updates encounters this flag, a '0' balance code sheet will be sent to DMC to delete the debtor from their files. However, the debtor` `could be resent with the next master record run.`
4.01	ORIGINAL TOP TIN	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `This is the SSN or Tax ID number sent to TOP on the original referral document.` TECHNICAL DESCR: `This field stores the debtor's original SSN or TID sent to TOP. It is necessary because a change in the TIN will cause a type 4 document (Alias name, Alias TIN) to be sent to TOP.`
4.02	ORIGINAL TOP DEBTOR NAME	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>71!($L(X)<71) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 71 characters in length.` DESCRIPTION: `This is the name as sent on the original TOP referral document.` TECHNICAL DESCR: `This field stores the debtor's original name sent to TOP. It is necessary because a change in the name will cause a type 4 document (Alias name, Alias TIN) to be sent to TOP.`
4.03	CURRENT TOP DEBT AMOUNT	4;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999.99)!(X<0) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999999.99, 2 Decimal Digits` TECHNICAL DESCR: `This field stores the debt amount currently referred to TOP. This field is used to compare the current amount at TOP with the amount currently eligible for referral. It then sends increases or decreases to TOP. This` `field also appears on the TOP report.`
4.04	ALIAS TOP TIN	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `This field contains the most current "Alias" TIN sent to TOP.` TECHNICAL DESCR: `This field contains the current 'Alias' TIN at TOP. This field is set/modified whenever there is a change to the debtor's TIN. A new/modified entry in this field causes a type 4 document to be sent to TOP.`
4.05	ALIAS TOP NAME	4;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>71!($L(X)<71) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 71 characters in length.` DESCRIPTION: `This field contains the most current "Alias" name sent to TOP` TECHNICAL DESCR: `This field contains the current 'Alias' name at TOP. This field is set/modified whenever there is a change to the debtor's name. A new/modified entry in this field causes a type 4 document to be sent to TOP.`
4.06	TOP DELINQUENCY DATE	4;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 22, 1999` DESCRIPTION: `This is the date of the oldest active bill currently sent to TOP. This is initially entered upon creation of the master documents and may be changed during the creation of the update documents.The date in this field is` `placed on Recertification and Refund/ Refund Reversal documents.` TECHNICAL DESCR: `This date is initially stored with the master documents and is the date account activated of the earliest bill submitted to TOP. This field may be updated during the compilation of update documents. It will be also` `placed on the recertification, refund, and refund reversal documents.`
5.01	TOP DEBTOR ADDRESS, LINE 1	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This contains the 1st line of the current debtor address transmitted to TOP.` TECHNICAL DESCR: `This field (along with the other TOP address fields) is stored when the initial TOP type 2 (address) document is sent to TOP. This (and the other address fields) are checked whenever the TOP udpates are sent. If there is` `a change in address, an updated type 2 document is sent to TOP and the new address is stored in these fields.`
5.02	TOP DEBTOR ADDRESS, LINE 2	5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This contains the 2nd line of the current debtor address transmitted to TOP.` TECHNICAL DESCR: `This field (along with the other TOP address fields) is stored when the initial TOP type 2 (address) document is sent to TOP. This (and the other address fields) are checked whenever the TOP udpates are sent. If there is` `a change in address, an updated type 2 document is sent to TOP and the new address is stored in these fields.`
5.03	TOP DEBTOR ADDRESS, CITY	5;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 1-25 characters in length.` DESCRIPTION: `This contains the city included in the current debtor address transmitted to TOP.` TECHNICAL DESCR: `This field (along with the other TOP address fields) is stored when the initial TOP type 2 (address) document is sent to TOP. This (and the other address fields) are checked whenever the TOP udpates are sent. If there is` `a change in address, an updated type 2 document is sent to TOP and the new address is stored in these fields.`
5.04	TOP DEBTOR ADDRESS, STATE	5;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `FEB 08, 2000` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This field is a pointer to the State file. It includes the state from the current address sent to TOP.` TECHNICAL DESCR: `This field (along with the other TOP address fields) is stored when the initial TOP type 2 (address) document is sent to TOP. This (and the other address fields) are checked whenever the TOP udpates are sent. If there is` `a change in address, an updated type 2 document is sent to TOP and the new address is stored in these fields.`
5.05	TOP DEBTOR ADDRESS, ZIP CODE	5;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<5) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 5-9 characters in length.` DESCRIPTION: `This contains the Zip Code included in the current debtor address transmitted to TOP.` TECHNICAL DESCR: `This field (along with the other TOP address fields) is stored when the initial TOP type 2 (address) document is sent to TOP. This (and the other address fields) are checked whenever the TOP udpates are sent. If there is` `a change in address, an updated type 2 document is sent to TOP and the new address is stored in these fields.`
6.01	DATE DEBTOR REFERRED TO TOP	6;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 30, 1999` DESCRIPTION: `This contains the date the account was 1st referred to TOP.` TECHNICAL DESCR: `This is the date that the original Type 1 (Debtor Name, Debtor TIN, Debt number) document was sent to TOP. It is entered automatically by the system when the initial document is generated.` CROSS-REFERENCE: `340^TOP^MUMPS` `1)= S ^RCD(340,"TOP",DA,$E(X,1,30))=""` `2)= K ^RCD(340,"TOP",DA)` `This Cross-Reference indicates whether a debtor has been sent to TOP and the date of the reference.`
6.02	STOP TOP REFERRAL FLAG	6;2	SET	'1' FOR STOP TOP REFERRAL FLAG SET; LAST EDITED: `JUN 09, 1999` DESCRIPTION: `This flag is set whenver a 'Stop TOP Referral' is entered by the user through the menu option RCTOP STOP REFERRAL.` TECHNICAL DESCR: `This field is set whenever a Stop Referral is entered through the user option. This flag is also deleted by the user option. If the debtor has already been referred to TOP, entry of this field will 'zero out' the account` `at TOP with the next update.`
6.03	STOP TOP REFERRAL EFF. DATE	6;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 09, 1999` DESCRIPTION: `This field contains a date, for which bills generated after, are eligible for TOP referral.` TECHNICAL DESCR: `This field is optionally set whenever a Stop Referral is entered through the user option. It allows for the referral to TOP of future bills. Bills generated after this effective date will be eligible for referral to TOP.` `To 'Stop TOP Referral' indefinitely, no entry should be made in this field.`
6.04	STOP TOP REFERRAL REASON	6;4	SET	'W' FOR WAIVER; 'B' FOR BANKRUPTCY; 'N' FOR NOT FORWARDED BY AAC; 'O' FOR OTHER; 'R' FOR REJECTED BY TOP; LAST EDITED: `FEB 08, 2000` DESCRIPTION: `This field contains a code ,detailing the reason TOP referral was stopped.` TECHNICAL DESCR: `This field is set whenever a Stop Referral is entered through the user option. The user must enter one of the codes.` `It contains one of 4 codes: Waiver ("W"), Bankruptcy ("B"), Not Forwarded by AAC ("N") or Other("O").`
6.05	STOP TOP REFERRAL COMMENT	6;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `This field must be answered whenever a reason of 'Other' is entered for stopping TOP referral.` TECHNICAL DESCR: `This field is set whenever a Stop Referral is entered through the user option with a referral reason of Other. It contains a free text comment, detailing the reason for Stopping Referral.`
6.06	TOP REFERRAL HOLD DATE	6;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 09, 1999` DESCRIPTION: `This field contains the date the Vendor or Ex-Employee referral will be forwarded to TOP by the AAC.` TECHNICAL DESCR: `This field is set for a vendor or ex-employee referral, since the AAC will hold the referral for 60 days before referring the debt to TOP.`
6.07	CURRENT TOP TRACE NUMBER	6;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10) X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Answer must be 10 characters in length.` DESCRIPTION: `This is the number assigned by TOP to the last payment from the debtor.` TECHNICAL DESCR: `This field is set/modified whenever a TOP payment is entered. It contains the number assigned by TOP to the payment. This field will be used if it is necessary to send a refund document to TOP. It will store the last` `trace number provided by TOP..`
7.02	TCSP RECALL FLAG	7;2	SET	'1' FOR TCSP RECALL FLAG SET; LAST EDITED: `APR 06, 2014` HELP-PROMPT: `Type a '1' to set the Cross-Servicing recall flag.` DESCRIPTION: `The flag that marks this debtor for recall from Cross-Servicing together with all of the debts at Cross-Servicing.`
7.03	TCSP RECALL DATE	7;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 06, 2014` HELP-PROMPT: `Type the date that the recall was sent to Cross-Servicing.` DESCRIPTION: `The date that the Cross-Servicing recall record was sent to Cross-Servicing.`
7.04	TCSP RECALL REASON	7;4	SET	'03' FOR BANKRUPTCY WITH AUTOMATIC STAY; '05' FOR DEBTOR IS DISABLED WITH INABILITY TO PAY; '06' FOR DEBTOR IS DECEASED; LAST EDITED: `MAY 08, 2014` HELP-PROMPT: `Type a reason code for the recall from Cross-Servicing.` DESCRIPTION: `The reason that the debtor is being recalled from Cross-Servicing. Select from: '03' for bankruptcy, '05' for debtor is disabled with inability to pay, '06' for debtor is deceased.`
7.05	DATE DEBTOR REFERRED TO TCSP	7;5	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 debtor was first referred to Cross-Servicing.` CROSS-REFERENCE: `340^TCSP^MUMPS` `1)= S ^RCD(340,"TCSP",DA)=""` `2)= K ^RCD(340,"TCSP",DA)` `This Cross-Reference indicates whether a debtor has been sent to Cross-Servicing.`
8	TCSP REFERRAL STOP FLAG	8;0	SET Multiple #340.08	340.08 LAST EDITED: `MAR 21, 2019` DESCRIPTION: `This multiple is for stoping and reactivating TCSP referrals for debtor`
9	AR REPAYMENT PLANS	9;0	POINTER Multiple #340.09	340.09 DESCRIPTION: `This field contains links to AR REPAYMENT PLAN file (#340.5) for each plan the Debtor is associated with.`
110	SSN		COMPUTED	MUMPS CODE: `S X=$$SSN^RCFN01($P(^RCD(340,D0,0),"^"))` ALGORITHM: `S X=$$SSN^RCFN01($P(^RCD(340,D0,0),"^"))` LAST EDITED: `FEB 12, 1993` DESCRIPTION: `This field is used to display the SSN of patient and persons on AR reports or local reports.`
111	LARGE PRINT NEEDED ON STMT	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 15, 2004` DESCRIPTION: `This field will identify 1st party debtors requiring statements with large print.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #284	IFCAP
ICR #3347	Integrated Billing Registration	DEBTOR (.01). Access: Direct Global Read & w/Fileman SSN (110). Access: Read w/Fileman X-REF ("B"). Access: Direct Global R/W & w/Fileman STREED ADDRESS #1 (1.01). Access: Direct Global R/W & w/Fileman STREET ADDRESS #2 (1.02). Access: Direct Global R/W & w/Fileman STREET ADDRESS #3 (1.03). Access: Direct Global R/W & w/Fileman CITY (1.04). Access: Direct Global R/W & w/Fileman STATE (1.05). Access: Direct Global R/W & w/Fileman ZIP CODE (1.06). Access: Direct Global R/W & w/Fileman PHONE NUMBER (1.07). Access: Direct Global R/W & w/Fileman FOREIGN COUNTRY CODE (1.08). Access: Direct Global R/W & w/Fileman ADDRESS UNKNOWN (1.09). Access: Direct Global R/W & w/Fileman	The fields DEBTOR and SSN are being used by thefollowing Diagnostic Measures reports: First Party Follow-up Report,CHAMPVA/CHAMPUS (Tricare) Follow-up Report, Repayment Plan Follow-up Reportand the AR Productivity Report.The "B Cross-Reference and the address fields on the 1node are used to build HL7 messages for the PFSS project.
ICR #3633	M DATA EXTRACTOR

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4)
^DD(340	.01(XREF 2S)
^RC(342 - [#342]	.01(XREF 2n1.1)
^RCD(340 - [#340]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3K), .03(XREF 1S), .03(XREF 1K), 3.01(XREF 1S) , 3.01(XREF 1K), 6.01(XREF 1S), 6.01(XREF 1K), 7.05(XREF 1S), 7.05(XREF 1K), 110+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.12+1, 3.02+1, 3.03+1, 4.06+1, 6.01+1, 6.03+1, 6.06+1, 7.03+1, 7.05+1*
>> D0	.01(XREF 2S), .01(XREF 2n1.3), 110+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3K), .03(XREF 1S), .03(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K), 6.01(XREF 1S) , 6.01(XREF 1K), 7.05(XREF 1S), 7.05(XREF 1K)
>> DIC("V"	.01TPL+1*
>> DIG	.01(XREF 2n1.4)
>> DIH	.01(XREF 2n1.4)
>> DIU	.01(XREF 2S)
DIV	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4)
DIV(0	.01(XREF 2n1.3), .01(XREF 2n1.4)
>> PRCABT	.01TPL+1
>> PRCAT	.01TPL+1
U	.01TPL+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3K), .03+1!, .03(XREF 1S) , .03(XREF 1K), .12+1!, 1.01+1!, 1.02+1!, 1.03+1!, 1.04+1!, 1.06+1!, 1.07+1!, 1.08+1!, 3.01(XREF 1S) , 3.01(XREF 1K), 3.02+1!, 3.03+1!, 3.05+1!, 3.06+1!, 3.07+1!, 3.08+1!, 3.09+1!, 4.01+1!, 4.02+1! , 4.03+1!, 4.04+1!, 4.05+1!, 4.06+1!, 5.01+1!, 5.02+1!, 5.03+1!, 5.04+1!, 5.05+1!, 6.01+1! , 6.01(XREF 1S), 6.03+1!, 6.05+1!, 6.06+1!, 6.07+1!, 7.03+1!, 7.05+1!, 110+1*
Y	.01(XREF 2S), .01(XREF 2n1.3), .12+1, 1.06OT+1*, 3.02+1, 3.03+1, 4.06+1, 6.01+1, 6.03+1, 6.06+1 , 7.03+1, 7.05+1
Y(0	.01(XREF 2n1.3), 1.06OT+1*
Y(1	.01(XREF 2S), .01(XREF 2n1.3)
Y(2	.01(XREF 2n1.3)
Y(3	.01(XREF 2n1.3)

Customize PDF page

Package: Accounts Receivable

Global: ^RCD(340

Information

Description

Directly Accessed By Routines, Total: 151

Accessed By FileMan Db Calls, Total: 35

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 7

Fields, Total: 53

ICR, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.12+1, 3.02+1, 3.03+1, 4.06+1, 6.01+1, 6.03+1, 6.06+1, 7.03+1, 7.05+1
^DICR	.01(XREF 2n1.4)
$$SSN^RCFN01	110+1