Global: ^RCD(340

FileMan FileNo	FileMan Filename	Package
340	AR DEBTOR	Accounts Receivable

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

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

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

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

Fields, Total: 57

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: `APR 26, 2024` 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.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.02	STREET ADDRESS #2	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 26, 2024` 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.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.03	STREET ADDRESS #3	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 26, 2024` 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.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.04	CITY	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 26, 2024` 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.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.05	STATE	1;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `APR 26, 2024` 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.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
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: `APR 26, 2024` 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` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.07	PHONE NUMBER	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `APR 26, 2024` 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.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.08	FOREIGN COUNTRY CODE	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `APR 26, 2024` 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.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.09	ADDRESS UNKNOWN	1;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 26, 2024` DESCRIPTION: `This field will indicate whether the address is unknown or not.` CROSS-REFERENCE: `^^TRIGGER^340^1.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$S($G(DUZ)>0:DUZ,1:.5) S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=340,DIG=1.1 D ^DICR` `CREATE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `DELETE VALUE)= S X=$S($G(DUZ)>0:DUZ,1:.5)` `FIELD)= DEBTOR ADDR UPDATED BY` `This trigger updates the DEBTOR ADDR UPDATED BY field (#1.1).`
1.1	DEBTOR ADDR UPDATED BY	1;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 26, 2024` HELP-PROMPT: `This field is updated by Address Display/Edit and should not be updated manually.` DESCRIPTION: `This field stores who updated the Debtor Address fields in the AR DEBTOR file.` NOTES: `TRIGGERED by the STREET ADDRESS #1 field of the AR DEBTOR File` `TRIGGERED by the STREET ADDRESS #2 field of the AR DEBTOR File` `TRIGGERED by the STREET ADDRESS #3 field of the AR DEBTOR File` `TRIGGERED by the CITY field of the AR DEBTOR File` `TRIGGERED by the STATE field of the AR DEBTOR File` `TRIGGERED by the ZIP CODE field of the AR DEBTOR File` `TRIGGERED by the PHONE NUMBER field of the AR DEBTOR File` `TRIGGERED by the FOREIGN COUNTRY CODE field of the AR DEBTOR File` `TRIGGERED by the ADDRESS UNKNOWN field of the AR DEBTOR File` CROSS-REFERENCE: `^^TRIGGER^340^1.11` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,11)=DIV,DIH=340,DIG=1.11 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCD(340,D0,1)):^(1),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^RCD(340,DIV(0),1)),DIV=X S $P(^(1),U,11)=DIV,DIH=340,DIG=1.11 D ^DICR` `CREATE VALUE)= NOW` `DELETE VALUE)= NOW` `FIELD)= DEBTOR ADDR LAST UPDATED` `This trigger updates the DEBTOR ADDR LAST UPDATED field (#1.11).`
1.11	DEBTOR ADDR LAST UPDATED	1;11	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 26, 2024` HELP-PROMPT: `This field is updated by Address Display/Edit and should not be updated manually.` DESCRIPTION: `This field stores the date and time when the Debtor Address fields in the AR DEBTOR file were updated.` NOTES: `TRIGGERED by the DEBTOR ADDR UPDATED BY field of the AR DEBTOR File`
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.` LAST EDITED: `FEB 11, 1993` DESCRIPTION: `This field should contain any necessary "general" comments about the debtor. This information will be displayed at the top of the Account Profile. This field could, for example, contain a message to remind the agent` `cashier to remind the patient of an important message.`
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.`
112	LOCAL PRINT	10;1	SET (BOOLEAN Data Type)	statements to print. LAST EDITED: `MAY 19, 2022` HELP-PROMPT: `This field will be set to 1 if there is an over size statement that must be printed locally.` DESCRIPTION: `This field is used as a flag to indicate if the debtor has oversized statements to be manually printed on a local printer. It will set to 0 or null if there are no oversized statements to be printed or 1 if there are` `statements to print.` CROSS-REFERENCE: `340^ALOCAL` `1)= S ^RCD(340,"ALOCAL",$E(X,1,30),DA)=""` `2)= K ^RCD(340,"ALOCAL",$E(X,1,30),DA)` `Cross reference for statements queued to print locally.`
113	LOCAL PRT DATA	10;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` `MAXIMUM LENGTH: 80` LAST EDITED: `OCT 28, 2022` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `This field is used to capture a copy of the internal BBAL variable for a statement flagged as oversize for later manual printing to a local printer. The field is cleared when the local print field flag is cleared.`

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

Customize PDF page

Package: Accounts Receivable

Global: ^RCD(340

Information

Description

Directly Accessed By Routines, Total: 160

Accessed By FileMan Db Calls, Total: 37

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 7

Fields, Total: 57

ICR, Total: 3