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

Package: Accounts Receivable

Global: ^RCD(340


Information

FileMan FileNo FileMan Filename Package
340 AR DEBTOR Accounts Receivable

Description

Directly Accessed By Routines, Total: 150

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

Accessed By FileMan Db Calls, Total: 32

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

Pointed To By FileMan Files, Total: 3

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

Pointer To FileMan Files, Total: 6

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]    

Fields, Total: 52

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 PRCA*4.5*241.
  • TECHNICAL DESCR:  
    This field will be automatically set by routine RCKATP during the patch PRCA*4.5*241 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
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, Total: 3

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
  • External References

    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

    Global Variables Directly Accessed

    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

    Naked Globals

    Name Field # of Occurrence
    ^(0 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)

    Local Variables

    Legend:

    >> 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)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All