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: ^PRCA(430

Package: Accounts Receivable

Global: ^PRCA(430


Information

FileMan FileNo FileMan Filename Package
430 ACCOUNTS RECEIVABLE Accounts Receivable

Description

Directly Accessed By Routines, Total: 464

Package Total Routines
Accounts Receivable 403 *REPAYMENT DUE DATES    CS ADJ TRANS NUMBER    DESCRIPTION    FISCAL YEAR    PRCA 3RD PROFILE    PRCA ADMIN    PRCA ADMIN BALANCE    PRCA BALANCE
PRCA BILL LIST    PRCA CAT SET    PRCA CAUSED BY    PRCA CREATE TRANS STUB    PRCA DISCREPANCY    PRCA DISP AUDIT2    PRCA DISP CARE    PRCA FMS STATUS
PRCA FY ADJ2 BATCH    PRCA INTEREST    PRCA INTEREST BALANCE    PRCA LAST ACTIVITY    PRCA LIST HOLD    PRCA LITIGATION FEE    PRCA MEANS PROFILE    PRCA OTHER PROFILE
PRCA PENALTY    PRCA PRINCIPAL BALANCE    PRCA PROFILE    PRCA RESULTING    PRCA TCSP RECALLB    PRCA TCSP RECALLD    PRCA TRANS PROFILE    PRCA VENDOR PROFILE
PRCA219P    PRCA280    PRCA45PT    PRCABIL2    PRCABPF    PRCAE AUDIT    PRCAE INSURANCE DATA    PRCAEXM
PRCAFBD    PRCAFN1    PRCAFWO    PRCAG    PRCAGF1    PRCAGST    PRCAGST1    PRCAGU
PRCAI164    PRCAI16M    PRCAKMR    PRCAKTP    PRCAL L DC-DOJ    PRCAMDA2    PRCAOLD    PRCAP377
PRCAP381    PRCAPAT    PRCAREP    PRCARFD    PRCARPU    PRCAS AMIS SORT    PRCATA1    PRCATO4
PRCATO8    PRCATP7    PRCATP9    PRCATRF    PRCATW2    PRCAUDT1    PRCAWO1    PRCAWREA
RCBDPSL1    RCBDPSNO    RCBECHGS    RCBEUDEB    RCCPCSV1    RCDMCR1B    RCDMCR6B    RCDPAPL1
RCDPAYER    RCDPBPL1    RCDPBTLM    RCDPE215    RCDPEAA2    RCDPEAD3    RCDPEWLP    RCDPRPL2
RCDPRPL4    RCDPXFIX    RCKATPD    RCRCACP    RCRCAT1    RCRCVCK    RCRCVL2    RCRJRCOU
RCRPRPU    RCTC394P    RCTCS1    RCTCSJS0    RCTCSP1    RCTCSPD4    RCTCSPU    RCTOPD
RCXFMST1    RCXFMSUV    RCXFMSW1    RCXVDC    REJECT DATE    ^PRCA(430    PRCA315P    PRCA320P
PRCA419P    PRCAACC    PRCAAPI    PRCAAPR    PRCAAPR1    PRCAATR    PRCABD    PRCABIL
PRCABIL1    PRCABIL3    PRCABIL4    PRCABJ    PRCABJ1    PRCABJ2    PRCABP1    PRCABP2
PRCACDRP    PRCACLM    PRCACM    PRCACOL    PRCACPV    PRCADEL    PRCADJ    PRCADR
PRCADR1    PRCADR2    PRCAE ADMIN    PRCAE BILL FROM    PRCAEIN    PRCAEOL    PRCAFBDM    PRCAFBDU
PRCAFN    PRCAFUT    PRCAGD    PRCAGF    PRCAGS    PRCAGT    PRCAHIS    PRCAHOL
PRCAHV    PRCAI134    PRCAI158    PRCAI162    PRCAI168    PRCAI169    PRCAI16A    PRCAKBT1
PRCAKM    PRCAKS    PRCAKUN    PRCAL CAT LIST    PRCAL MEANS LIST    PRCALM    PRCALST    PRCALT2
PRCAMDA3    PRCAMRG    PRCAP AMIS    PRCAP CARE WV    PRCAP COST    PRCAP378    PRCAP382    PRCAPAT1
PRCAPCL    PRCAPRO    PRCAPTR    PRCAREPC    PRCARETN    PRCARFD1    PRCARFD2    PRCARFD3
PRCARFP    PRCARFU    PRCARPS    PRCAS OUTSTAND AMIS    PRCASER    PRCASER1    PRCASET    PRCASIG
PRCASVC    PRCASVC1    PRCASVC3    PRCASVC6    PRCATA    PRCATA2    PRCATE    PRCATE2
PRCATE3    PRCATF1    PRCATO2    PRCATO3    PRCATO5    PRCATO9    PRCATP1    PRCATP2
PRCATP3    PRCATP4    PRCATP5    PRCATP6    PRCATR1    PRCATR2    PRCATSE    PRCATSE1
PRCATW3    PRCAUDT    PRCAUPD    PRCAUT2    PRCAUT3    PRCAUTL    PRCAWO    PRCAWOF
PRCAX    PRCAX1    PRCAXP    RCAEOB    RCAM    RCAMDTH    RCAMINS    RCBDBBAL
RCBDFST1    RCBDPSLM    RCBDXREF    RCBEADJ    RCBEADJI    RCBECHGA    RCBECHGI    RCBECHGP
RCBECHGU    RCBEIB    RCBEPAY    RCBEPAY1    RCBEPAY2    RCBEPAYC    RCBEPAYF    RCBEPAYP
RCBEREFU    RCBEUBI1    RCBEUBIL    RCBEUTR1    RCBEUTRA    RCBMILL    RCBMILL1    RCBMILLC
RCCPC1    RCCPCBJ    RCCPCPS    RCCPCPS1    RCCPW1    RCDMB1MT    RCDMBWL1    RCDMBWLA
RCDMC90    RCDMC90U    RCDMCEDT    RCDMCR2B    RCDMCR3B    RCDMCR4B    RCDMCR5B    RCDMCR7B
RCDMCR8B    RCDMCUT1    RCDPAPLM    RCDPAPST    RCDPBPLI    RCDPBPLM    RCDPBTL1    RCDPCSA
RCDPEAC    RCDPEAD    RCDPEAP    RCDPEAP1    RCDPEM41    RCDPEM5    RCDPEM8    RCDPESR1
RCDPESR2    RCDPESR4    RCDPEV    RCDPEWL1    RCDPEX32    RCDPEX4    RCDPLPL2    RCDPLPL4
RCDPLPS1    RCDPR215    RCDPRECT    RCDPRPL3    RCDPRSEA    RCDPRTEX    RCDPRTP    RCDPRTP0
RCDPRTP1    RCDPRTP2    RCDPTPLI    RCDPTPLM    RCDPURED    RCDPURET    RCDPXFIM    RCDPXPAP
RCEVUTL    RCEXINAD    RCFMCAF    RCFMDRV1    RCFMFN02    RCFMOBR1    RCFN01    RCHRFS1
RCHRFS2    RCJIBFN1    RCJIBFN2    RCJIBFN3    RCKATP    RCKATRPT    RCMSNUM    RCNRIG
RCRCAL1    RCRCAL2    RCRCALE    RCRCAT    RCRCBL1    RCRCPOST    RCRCREC2    RCRCRT
RCRCRT1    RCRCUTL    RCRCVL1    RCRCVLE    RCRJRBD    RCRJRCO1    RCRJRCO2    RCRJRCOB
RCRJRCOC    RCRJRCOL    RCRJRCOR    RCRJRCOT    RCRJRDEP    RCRJROIG    RCRJRTR1    RCRJRTRA
RCRPADD    RCRPINQ    RCRPNP    RCRPU    RCRPU1    RCRPU2    RCTC336P    RCTC364P
RCTCSJR    RCTCSJS    RCTCSJS1    RCTCSP1A    RCTCSP2    RCTCSP3    RCTCSP3S    RCTCSP4
RCTCSP5    RCTCSP6    RCTCSP7    RCTCSPD    RCTCSPD0    RCTCSPRS    RCTCSWL    RCTCSWL1
RCTCSWL2    RCTOP1    RCTOPS    RCTOPU    RCTRAN1    RCVCR1    RCVCR2    RCWROFF
RCWROFF1    RCXFMSC1    RCXFMSCR    RCXFMSTR    RCXFMSUF    RCXFMSUR    RCXV ACTIVE SORT    RCXVCHK
RCXVDC1    RCXVDC6    RCXVDEQ    RCXVTSK    RCXVUTIL    RCYDD1    RCYPAY    RCYPO237
TCSP RE-REFERRAL    TRANSACTION    ^PRCA(433    
Integrated Billing 34 IB20P407    IB20P88    IBACUS2    IBCC    IBCEMSR    IBCEMU2    IBCNSBL2    IBCNSMR
IBCNSMR7    IBJD    IBJDB11    IBJDF11    IBJDF2    IBJDF41    IBJDF43    IBJDF51
IBJDF53    IBJDF61    IBJDF63    IBJDF71    IBJDF81    IBJTCA2    IBJTEP1    IBJVDEQ
IBNCPDP3    IBNCPEB    IBNCPEV    IBOCDRPT    IBOHLS2    IBOHPT2    IBOTR2    IBPF1
IBRFN    IBY447PO    
IFCAP 2 PRCFACX0    PRCHPAT    
Interim Management Support 1 ECTFAR    

Accessed By FileMan Db Calls, Total: 162

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

Pointed To By FileMan Files, Total: 9

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

Pointer To FileMan Files, Total: 20

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

Fields, Total: 228

Field # Name Loc Type Details
.01 BILL NO. 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$P(X,"-",1)'?3N!'($P(X,"-",2)?6UN.1UN) X I $D(X) K:$L(X)>14!($L(X)<10) X
  • LAST EDITED:  MAR 10, 2014
  • HELP-PROMPT:  Enter the 6-10-digit Bill Number, preceded by station number if multi-divisional (EX: 662-4K00001).
  • DESCRIPTION:  This is the unique bill number assigned to this billing episode. New bill numbers consist of no less than 6 characters, preceded by station number if multi-divisional (Example: 662-K000001). Bill numbers for bills that
    have been cancelled in Integrated Billing (IB) during the process of correcting errors in the original bill add an additional 3 characters, a hyphen and an incremental number (Example: 662-K000001-01).
  • PRE-LOOKUP:  D LOOKUP^RCBEUBI1
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  430^B
    1)= S ^PRCA(430,"B",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,"B",$E(X,1,30),DA)
    3)= Needed for look-up of Site-Bill Number
    This cross-reference is used for file look-up and sorting by Accounts Receivable Bill No.
  • CROSS-REFERENCE:  430^D^MUMPS
    1)= S ^PRCA(430,"D",$P(X,"-",2,3),DA)=""
    2)= K ^PRCA(430,"D",$P(X,"-",2,3),DA)
    3)= Needed for look-up by bill number
    Needed for look-up by bill number. This cross reference is used for
    look-up and sorts on the Account Receivable 8 digit bill number. (without
    the station number, but with the -iteration# if applicable).
.11 LAST INTEREST CHARGE DATE .1;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 19, 2000
  • HELP-PROMPT:  This field is internally populated by AR. This field contains the date the bill was last charged interest.
  • DESCRIPTION:  
    This field stores the last date interest was charged to this bill.
.12 LAST ADMIN CHARGE DATE .1;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 19, 2000
  • HELP-PROMPT:  This field is internally populated by AR. This field contains the date the bill was last charged an administrative fee.
  • DESCRIPTION:  
    This field stores the last date an administrative charge was applied to this bill.
.13 LAST PENALTY CHARGE DATE .1;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 19, 2000
  • HELP-PROMPT:  This field is internally populated by AR. This field contains the date the bill was last charged a penalty fee.
  • DESCRIPTION:  
    This field stores the last date penalty charges were added to this bill.
1 FISCAL YEAR 2;0 Multiple #430.01 430.01

  • LAST EDITED:  SEP 09, 1993
  • DESCRIPTION:  
    A single bill can have activity that spreads over more than one fiscal year. This multiple field holds a record of each year's appropriation symbol, PAT reference number, original amount, etc.
  • IDENTIFIED BY:  
    "Z1": W " " W:$P(^(0),U,2)]"" "$",$P(^(0),U,2)
    "Z2": S %I=Y,Y=$S('$D(^(0)):"",$D(^PRC(442,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(442,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
    "Z3": W " ",$P(^(0),U,4)
2 CATEGORY 0;2 POINTER TO ACCOUNTS RECEIVABLE CATEGORY FILE (#430.2)
************************REQUIRED FIELD************************
ACCOUNTS RECEIVABLE CATEGORY(#430.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,7)'=33,$P(^(0),U,7)"_$S($D(PRCABT):$P(">14&($P(^(0),U,7)<17):=17:>4&($P(^(0),U,7)<15)",":",PRCABT),1:">4") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 08, 2004
  • HELP-PROMPT:  Enter the category for this bill.
  • DESCRIPTION:  
    This is the bill's Category - a pointer to the Category File (Means Test, Vendor, Employee, Tort, etc.).
  • TECHNICAL DESCR:  
  • SCREEN:  S DIC("S")="I $P(^(0),U,7)'=33,$P(^(0),U,7)"_$S($D(PRCABT):$P(">14&($P(^(0),U,7)<17):=17:>4&($P(^(0),U,7)<15)",":",PRCABT),1:">4")
  • EXPLANATION:  TYPE OF BILL
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 ORIGINAL AMOUNT 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  OCT 07, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits, Total original amount for this bill.
  • DESCRIPTION:  
    This is the original dollar amount of the bill.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^430^71
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(430,3,1,1,1.4)
    1.4)= S DIH=$S($D(^PRCA(430,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,1)=DIV,DIH=430,DIG=71 D ^DICR:$O(^DD(DIH,DIG,1,0))
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(430,3,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)
    2.4)= S DIH=$S($D(^PRCA(430,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,1)=DIV,DIH=430,DIG=71 D ^DICR:$O(^DD(DIH,DIG,1,0))
    3)= Needed to set the Principal Balance of Bill
    CREATE VALUE)= PRINCIPAL BALANCE+ORIGINAL AMOUNT
    DELETE VALUE)= PRINCIPAL BALANCE-OLD ORIGINAL AMOUNT
    FIELD)= PRINCIPAL BALANCE
    This cross reference triggers the Principal Balance field #71.
4 GL NO. 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  JUN 03, 1987
  • HELP-PROMPT:  Enter the General Ledger No. Must be 4 characters.
  • DESCRIPTION:  
    This is the General Ledger Number for the ALD CODE assigned to this bill.
4.5 BILL RESULTING FROM 0;5 POINTER TO AR DEBT LIST FILE (#430.6)
************************REQUIRED FIELD************************
AR DEBT LIST(#430.6)

  • INPUT TRANSFORM:  S DIC("S")="S Z0=$P(^PRCA(430,DA,0),U,2) Q:+Z0'>0 S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""X"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  I $D(^PRCA(430.6,+Y,0)) S Y=$P(^PRCA(430.6,+Y,0),U,2)
  • LAST EDITED:  JAN 13, 1994
  • HELP-PROMPT:  We'll put this data on the follow-up letters. Enter the reason for the bill. Notify Supervisor if correct choice is not available.
  • DESCRIPTION:  The cause of the debt. This field points to the AR Debt List File which contains brief statements describing the source of the bills that are used on the debt collection letters.
    The type of entry selected must be compatible with the bill's category type.
  • SCREEN:  S DIC("S")="S Z0=$P(^PRCA(430,DA,0),U,2) Q:+Z0'>0 S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""X"")"
  • EXPLANATION:  CLASSIFY WITH TYPE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 PATIENT 0;7 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  JUN 02, 1993
  • HELP-PROMPT:  Enter a Patient from the Patient File. Adding new patients is not allowed.
  • DESCRIPTION:  
    This is a pointer to the Patient File. Adding new patients is NOT ALLOWED through this option.
  • CROSS-REFERENCE:  430^E
    1)= I $P(^PRCA(430,DA,0),"^",2),$P(^PRCA(430.2,+$P(^(0),"^",2),0),"^",6)["T" S ^PRCA(430,"E",X,DA)=""
    2)= K ^PRCA(430,"E",X,DA)
    3)= Needed to look up third party bills by patient
    This cross reference is set for the Third Party type category of bills.
8 CURRENT STATUS 0;8 POINTER TO ACCOUNTS RECEIVABLE TRANS.TYPE FILE (#430.3)
************************REQUIRED FIELD************************
ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3)

  • INPUT TRANSFORM:  D CKSTAT^PRCAUT3
  • LAST EDITED:  APR 20, 2020
  • HELP-PROMPT:  Enter the current status of this bill.
  • SCREEN:  S Z1=100,Z2=199 S:$D(PRCASV("STATUS")) Z1=199,Z2=300 S DIC("S")="I ($P(^PRCA(430.3,Y,0),U,3)>Z1)&($P(^(0),U,3)
  • EXPLANATION:  CURRENT BILL STATUS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  430^AC
    1)= S ^PRCA(430,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,"AC",$E(X,1,30),DA)
    3)= Needed to look-up bills by status
    This cross-reference is needed to find bills by status. This cross-reference is used extensively by reports and options.
  • CROSS-REFERENCE:  430^AS2^MUMPS
    1)= I $P(^PRCA(430,DA,0),"^",9) S ^PRCA(430,"AS",$P(^PRCA(430,DA,0),"^",9),X,DA)=""
    2)= I $P(^PRCA(430,DA,0),"^",9) K ^PRCA(430,"AS",$P(^PRCA(430,DA,0),"^",9),X,DA)
    3)= Needed to look-up bills by status for a specific debtor
    This cross-reference allows rapid look-up of bills by status for a specific debtor.
  • CROSS-REFERENCE:  ^^TRIGGER^430^60
    1)= X ^DD(430,8,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^PRCA(430,D0,6)):^(6),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV D NOW^%DTC S X=% X ^DD(430,8,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=0 I ",112,102,"[(","_$P($G(^PRCA(430.3,+$P(^PRCA(430,D0,0),"^",8),0)),"^",3)_","),$P($G(^PRCA(430,D0,6)),"^",21)="" S X=1
    1.4)= S DIH=$S($D(^PRCA(430,DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,21)=DIV,DIH=430,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= Needed to create a new 'activity' for a debtor
    69.2)= S Y(3)=$S($D(^PRCA(430,D0,6)):^(6),1:"") S X=$S('$D(^PRCA(430.3,+Y(0),0)):"",1:$P(^(0),U,1))="OPEN",Y(1)=X S X=$S('$D(^PRCA(430.3,+Y(0),0)):"",1:$P(^(0),U,1))
    CREATE CONDITION)= S X=0 I ",112,102,"[(","_$P($G(^PRCA(430.3,+$P(^PRCA(430,D0,0),"^",8),0)),"^",3)_","),$P($G(^PRCA(430,D0,6)),"^",21)="" S X=1
    CREATE VALUE)= D NOW^%DTC S X=%
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE ACCOUNT ACTIVATED
    This cross-reference triggers the Date Account Activated field. When a bill is made Active or Open for a patient, new activity needs to be logged so that it may appear on the next patient statement.
  • CROSS-REFERENCE:  ^^TRIGGER^430^14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(430,8,1,4,1.4)
    1.4)= S DIH=$S($D(^PRCA(430,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=430,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DT
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE STAT
    This trigger will set the DATE STATUS UPDATED to todays date whenever the STATUS of a bill changes.
  • CROSS-REFERENCE:  430^ASDT1^MUMPS
    1)= I $P(^PRCA(430,DA,0),U,14) S ^PRCA(430,"ASDT",X,$P($P(^PRCA(430,DA,0),U,14),"."),DA)=""
    2)= I $P(^PRCA(430,DA,0),U,14) K ^PRCA(430,"ASDT",X,$P($P(^PRCA(430,DA,0),U,14),"."),DA)
    This cross reference is used to sort bills by the status and the date the status was last updated.
  • CROSS-REFERENCE:  430^AJK1^MUMPS
    1)= I X=16,+$P($G(^PRCA(430,+DA,0)),"^",10) S ^PRCA(430,"AJK1",$P(^PRCA(430,+DA,0),"^",10),DA)=""
    2)= I +$P($G(^PRCA(430,+DA,0)),"^",10) K ^PRCA(430,"AJK1",$P(^PRCA(430,+DA,0),"^",10),DA)
    Cross-reference of active bills by date prepared for collection search.
  • RECORD INDEXES:  AMCCF (#1689)
9 DEBTOR 0;9 POINTER TO AR DEBTOR FILE (#340)
************************REQUIRED FIELD************************
AR DEBTOR(#340)

  • INPUT TRANSFORM:  D EN6^PRCABIL D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 11, 1993
  • DESCRIPTION:  This field points to the Debtor File, which in turn is a variable pointer to other files. This allows automatic look-up of debtors based on the category of the bill. Adding new entries to the other files may not be
    allowed.
  • SCREEN:  D EN6^PRCABIL
  • EXPLANATION:  DEBTOR
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  430^C
    1)= S ^PRCA(430,"C",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,"C",$E(X,1,30),DA)
    3)= Needed to look-up bills by Debtor
    This cross-reference allows user look-up of bills belonging to a specific debtor.
  • CROSS-REFERENCE:  430^AS1^MUMPS
    1)= I $P(^PRCA(430,DA,0),"^",8) S ^PRCA(430,"AS",X,$P(^PRCA(430,DA,0),"^",8),DA)=""
    2)= I $P(^PRCA(430,DA,0),"^",8) K ^PRCA(430,"AS",X,$P(^PRCA(430,DA,0),"^",8),DA)
    3)= Needed to look-up bills by status for a specific debtor
    This cross-reference allows rapid look-up of bills by status for a specific debtor.
  • CROSS-REFERENCE:  430^ATD^MUMPS
    1)= D UPATDS^PRCAUTL I $D(^RCD(340,X,0)),$P(^(0),"^")[";DPT(",$D(^PRCA(430,DA,6)),$P(^(6),"^",21) S ^PRCA(430,"ATD",X,$P(^PRCA(430,DA,6),"^",21),DA)=""
    2)= D UPATDS^PRCAUTL I $D(^RCD(340,X,0)),$P(^(0),"^")[";DPT(",$D(^PRCA(430,DA,6)),$P(^(6),"^",21) S ^PRCA(430,"ATD",X,$P(^PRCA(430,DA,6),"^",21),DA)=""
    3)= Needed to update activity cross-reference when debtor edited
    This cross-reference is not actively used and only exists to update the activity for a debtor in the event the debtor field is ever changed, which should never happen.
  • RECORD INDEXES:  AMCCF (#1689)
10 DATE BILL PREPARED 0;10 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(X>DT) X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter the date on which the bill was established.
  • DESCRIPTION:  
    The date the bill was prepared. Time is not allowed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  430^AE^MUMPS
    1)= D AR^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
  • CROSS-REFERENCE:  430^AJK1A^MUMPS
    1)= I $P(^PRCA(430,+DA,0),"^",8)=16 S ^PRCA(430,"AJK1",X,DA)=""
    2)= K ^PRCA(430,"AJK1",X,DA)
    Maintains cross reference set on CURRENT STATUS field of active bills referenced by date prepared.
11 CURRENT BALANCE COMPUTED

  • MUMPS CODE:  S Y(430,11,1)=$S($D(^PRCA(430,D0,7)):^(7),1:"") S X=$P(Y(430,11,1),U,1)+$P(Y(430,11,1),U,2)+$P(Y(430,11,1),U,3)+$P(Y(430,11,1),U,4)+$P(Y(430,11,1),U,5) S X=$J(X,0,2)
  • ALGORITHM:  #71+#72+#73+#74+#75 (ALWAYS 2 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field computes the current balance of the account.
12 SITE 0;12 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  FEB 14, 1993
  • HELP-PROMPT:  Enter Station Number.
  • DESCRIPTION:  
    This is a pointer to the Admin. Activity Site Parameter File. Adding new entries is allowed.
13 AGENT CASHIER 0;13 POINTER TO AR GROUP FILE (#342.1) AR GROUP(#342.1)

  • LAST EDITED:  FEB 22, 1993
  • DESCRIPTION:  
    This field is an inactive field and used to point to the AR SITE PARAMETER file (430.5) in AR v3.7.
13.1 ACCOUNT RECEIVABLE SECTION 0;6 POINTER TO AR GROUP FILE (#342.1) AR GROUP(#342.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",2)=4" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 22, 1993
  • DESCRIPTION:  
    This field is inactive and use to point to the AR SITE PARAMETER file (430.5) in AR v3.7.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)=4"
  • EXPLANATION:  SELECT ONLY AR SECTION
14 DATE STATUS UPDATED 0;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter the date the Status of this bill was updated. Time of day is not allowed.
  • NOTES:  TRIGGERED by the CURRENT STATUS field of the ACCOUNTS RECEIVABLE File
  • CROSS-REFERENCE:  430^ASDT2^MUMPS
    1)= I $P(^PRCA(430,DA,0),U,8) S ^PRCA(430,"ASDT",+$P(^PRCA(430,DA,0),U,8),X,DA)=""
    2)= I $P(^PRCA(430,DA,0),U,8) K ^PRCA(430,"ASDT",+$P(^PRCA(430,DA,0),U,8),X,DA)
    This cross reference is used to sort bills by the status and the date the status was last updated.
  • CROSS-REFERENCE:  430^AF^MUMPS
    1)= D AR^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
15 STATUS REMARK 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  OCT 06, 1988
  • HELP-PROMPT:  ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    An optional field that holds a brief remark regarding the status, reason for change in status, etc. 3-45 characters.
15.1 TYPE OF CARE 0;16 POINTER TO ACCOUNTS RECEIVABLE CATEGORY FILE (#430.2)
************************REQUIRED FIELD************************
ACCOUNTS RECEIVABLE CATEGORY(#430.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,7)<4" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 15, 1988
  • HELP-PROMPT:  Enter a 'Type of Care' from the AR category File.
  • DESCRIPTION:  This is a pointer to the AR category file. This entry should be
    'NURSING HOME CARE', 'OUTPATIENT CARE' or 'HOSPITAL CARE'. Adding new entries is not allowed.
  • SCREEN:  S DIC("S")="I $P(^(0),U,7)<4"
  • EXPLANATION:  CHOOSE TYPE OF CARE
16 DATE CALM DONE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 17, 1988
  • HELP-PROMPT:  Enter the date the PAT REF # was assigned and the CALM Code sheet was done.
  • DESCRIPTION:  
    The date the PAT reference number was assigned and the CALM code sheet was done.
17 STATUS UPDATED BY 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 11, 1992
  • HELP-PROMPT:  Enter the name of the person making a change in this bill's status.
  • DESCRIPTION:  
    This is a pointer to the New Person File. It extracts the name of the person making a change to the bill's status. Adding new entries is not allowed.
18 APPROPRIATION SYMBOL 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<7) X
  • LAST EDITED:  MAR 31, 1988
  • HELP-PROMPT:  Enter the Appropriation Symbol, 7-10 characters.
  • DESCRIPTION:  
    This is a free-text field holding the appropriation symbol. 7-10 characters.
19 SECONDARY INSURANCE CARRIER 0;19 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • LAST EDITED:  MAY 31, 1988
  • HELP-PROMPT:  Enter the insured's secondary insurance carrier.
  • DESCRIPTION:  
    This is a pointer to the Insurance Company File. Adding new entries is not allowed.
19.1 TERTIARY INSURANCE CARRIER 0;20 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • LAST EDITED:  MAY 31, 1988
  • HELP-PROMPT:  Enter the insured's tertiary insurance carrier.
  • DESCRIPTION:  
    This is a pointer to the Insurance Company File. Adding new entries is not allowed.
20.1 SEGMENT 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 18, 1988
  • HELP-PROMPT:  Type a Number between 0 and 500, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of the billing category's AMIS reporting segment.
21 HOLD LETTER DATE 1;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 20, 1987
  • HELP-PROMPT:  Enter the date a hold was placed on follow-up letters for this account.
  • DESCRIPTION:  
    This is the date a hold is/was placed on follow-up letters for this account.
22 HOLD LETTER REASON 1;2 SET
  • 'L' FOR PERSONAL LETTER;
  • 'P' FOR PHONE CALL;
  • 'V' FOR PERSONAL VISIT;
  • 'O' FOR OTHERS;

  • LAST EDITED:  JUN 30, 1987
  • HELP-PROMPT:  Enter code. Type '??' for a listing.
  • DESCRIPTION:  
    This is the reason a hold was placed on sending follow-up letters. Select from the list of choices.
23 HOLD LETTER COMMENTS 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  JUN 30, 1987
  • HELP-PROMPT:  Enter a comment, 3-45 characters.
  • DESCRIPTION:  
    This field allows the user to enter expanded comments on the reason for holding follow-up letters.
31 DATE RETURNED TO SERVICE 3;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 1988
  • HELP-PROMPT:  Enter date, time not allowed.
  • DESCRIPTION:  
    This is the date a bill was returned to the originating service.
32 RETURNED BY 3;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 11, 1992
  • HELP-PROMPT:  Enter your name: Last,First
  • DESCRIPTION:  
    This is the user from the New Person File who returned the bill to the originating service. Adding a new Person is not allowed.
33 AMENDED DATE 3;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 1988
  • HELP-PROMPT:  Enter date, time not allowed.
  • DESCRIPTION:  
    This is the date this bill was amended.
34 AMENDED BY 3;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 11, 1992
  • HELP-PROMPT:  Enter your name: Last,First.
  • DESCRIPTION:  
    This is the user from the New Person File who amended this bill. Adding a new Person is not allowed.
35 AMENDED AMOUNT 3;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X
  • LAST EDITED:  JUL 14, 1988
  • HELP-PROMPT:  Enter a dollar amount by which the bill should be increased or decreased: -999999.99 thru 999999.99. This is the dollar amount by which the bill should be increased or decreased NOT THE NEW AMOUNT.
  • DESCRIPTION:  
    This is the dollar value of the amendment. It can be a positive or negative figure.
36 FISCAL COMMENTS (RETURN) 3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3) X
  • LAST EDITED:  NOV 04, 1988
  • HELP-PROMPT:  ANSWER MUST BE 3-100 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This text field holds Fiscal service comments regarding the return of a bill.
37 SERVICE COMMENTS (AMEND) 3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3) X
  • LAST EDITED:  NOV 04, 1988
  • HELP-PROMPT:  ANSWER MUST BE 3-100 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This text field holds the Service's comments regarding the amendment of a bill.
41 REPAYMENT PLAN DATE 4;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 14, 1987
  • HELP-PROMPT:  Enter the date a repayment plan was established.
  • DESCRIPTION:  
    This is the date a repayment plan was established.
42 *DAY OF MON. PAYMENT DUE 4;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>28)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 26, 2021
  • HELP-PROMPT:  Type a Number between 1 and 28, 0 Decimal Digits
  • DESCRIPTION:  
    As of VistA Patch PRCA*4.5*378, this field is no longer updated.
43 *REPAYMENT AMOUNT DUE 4;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  JAN 26, 2021
  • HELP-PROMPT:  Enter the monthly amount the debtor will pay in the repayment plan.
  • DESCRIPTION:  
    As of VistA Patch PRCA*4.5*378, this field is no longer updated.
44 *NUMBER OF PAYMENTS 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 26, 2021
  • HELP-PROMPT:  Enter the number of payments in the repayment plan. Type a Number between 0 and 60.
  • DESCRIPTION:  
    As of VistA Patch PRCA*4.5*378, this field is no longer updated.
45 AR REPAYMENT PLAN 4;5 POINTER TO AR REPAYMENT PLAN FILE (#340.5) AR REPAYMENT PLAN(#340.5)

  • LAST EDITED:  NOV 20, 2020
  • HELP-PROMPT:  Enter the Repayment Plan the bill is included in.
  • DESCRIPTION:  
    This field contains a link to the Repayment Plan (file #430) the bill is included in.
51 *REPAYMENT DUE DATES 5;0 DATE Multiple #430.051 430.051

  • LAST EDITED:  JAN 26, 2021
  • DESCRIPTION:  
    As of VistA Patch PRCA*4.5*378, this sub-file is no longer updated.
60 DATE ACCOUNT ACTIVATED 6;21 DATE

  • INPUT TRANSFORM:  S %DT="T",X="NOW" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  This sets the original date that the account first became active.
    WRITE AUTHORITY: ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the CURRENT STATUS field of the ACCOUNTS RECEIVABLE File
  • CROSS-REFERENCE:  430^AK^MUMPS
    1)= I $P($G(^RCD(340,+$P(^PRCA(430,DA,0),"^",9),0)),"^")[(";DPT(") S ^PRCA(430,"ATD",$P(^PRCA(430,DA,0),"^",9),$E(X,1,30),DA)=""
    2)= I $P(^PRCA(430,DA,0),"^",9) K ^PRCA(430,"ATD",$P(^PRCA(430,DA,0),"^",9),$E(X,1,30),DA)
    3)= Needed to set cross-reference of patient activity
    This cross-reference is used to track accounts that have been made ACTIVE. It is used by the patient statement procedures.
  • CROSS-REFERENCE:  430^ACTDT^MUMPS
    1)= S ^PRCA(430,"ACTDT",$P(X,"."),DA)=""
    2)= K ^PRCA(430,"ACTDT",$P(X,"."),DA)
    This cross reference is used to sort bills by the date they are activated.
  • CROSS-REFERENCE:  430^AG^MUMPS
    1)= D AR^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
61 LETTER1 6;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1987
  • HELP-PROMPT:  Enter the date the 1st follow-up letter was sent.
  • DESCRIPTION:  
    This is the date the first debt collection letter was sent to the debtor.
62 LETTER2 6;2 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1987
  • HELP-PROMPT:  Enter the date the 2nd letter was sent.
  • DESCRIPTION:  
    This is the date the second debt collection letter was sent to the debtor.
63 LETTER3 6;3 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1987
  • HELP-PROMPT:  Enter the date the 3rd letter was sent.
  • DESCRIPTION:  
    This is the date the third debt collection letter was sent to the debtor.
64 REFERRAL DATE 6;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter the date the account was referred to RC/DOJ.
  • DESCRIPTION:  
    This is the date the account was referred to the Regional Counsel or the Department of Justice for collection.
  • CROSS-REFERENCE:  430^AD
    1)= S ^PRCA(430,"AD",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,"AD",$E(X,1,30),DA)
    3)= Needed to look-up bills by referral date
    This cross-reference is used to look-up bills by Referral Date.
  • CROSS-REFERENCE:  430^AH^MUMPS
    1)= D AR^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
65 REFERRAL CODE 6;5 SET
  • 'RC' FOR REGIONAL COUNSEL;
  • 'DOJ' FOR DEPT.OF JUSTICE;
  • 'DC' FOR REGIONAL COUNSEL;

  • LAST EDITED:  SEP 30, 1997
  • HELP-PROMPT:  Enter 'RC' or 'DOJ'
  • DESCRIPTION:  
    This field indicates where an account was referred to.
66 REFERRAL AMOUNT 6;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  APR 23, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the account balance that was referred.
67 LAST INT/ADM CHARGE DATE 6;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Enter the last date the monthly interest/administrative cost was charged.
  • DESCRIPTION:  
    This is the most recent date that Interest/Administrative costs were charged to the account.
68 LETTER4 6;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Enter date the 4th letter was sent.
  • DESCRIPTION:  
    This is the date the fourth debt collection letter was sent to the debtor.
68.1 LAST LETTER DATE 6;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 02, 1987
  • HELP-PROMPT:  Enter date of the letter.
  • DESCRIPTION:  
    This is the date of the most recent debt collection letter.
68.2 RE-REFERRAL DATE 6;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter the date the account was re-referred to RC/DOJ
  • DESCRIPTION:  
    This is the date the account was re-referred to the Regional Counsel or Department of Justice.
  • CROSS-REFERENCE:  430^AI^MUMPS
    1)= D AR^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
68.3 RETURNED DATE BY RC/DOJ 6;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter the date the account was returned by RC/DOJ.
  • DESCRIPTION:  
    This is the date a referred account was returned by the Regional Counsel or Department of Justice.
  • CROSS-REFERENCE:  430^AL^MUMPS
    1)= D AR^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
68.4 REFERRAL DATE TO COWC 6;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter the date the account was referred to COWC.
  • DESCRIPTION:  
    This is the date the account was referred to the DVB Committee on Waivers and Compromise.
  • CROSS-REFERENCE:  430^AM^MUMPS
    1)= D AR^RCXVDEQ
    2)= Q
    This cross-reference will file the entry into the AR Data Queue file for transmission to the ARC.
68.5 REFERRED AMOUNT TO COWC 6;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  APR 11, 1988
  • HELP-PROMPT:  Enter the dollar amount of the account referred to COWC.
  • DESCRIPTION:  
    This is the balance of an account referred to the DVB Committee on Waivers and Compromise.
68.6 IRS OFFSET LETTER 6;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 05, 1990
  • HELP-PROMPT:  Enter the date the last time an IRS OFFSET letter was sent for this bill.
  • DESCRIPTION:  
    This field stores the last date an IRS Offset letter was printed that contained the amount due from the bill.
68.7 DATE FORWARDED TO IRS 6;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 05, 1990
  • DESCRIPTION:  
    This is the date the receivable was forwarded to the IRS.
68.8 IRS PRINCIPAL BALANCE 6;16 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 05, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the principal balance of the receivable forwarded to the IRS.
68.9 IRS INTEREST BALANCE 6;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 05, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the Interest Balance forwarded to the IRS.
68.91 IRS ADMIN. BALANCE 6;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 22, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the Administrative Balance forwarded to the IRS.
68.92 ORIGINAL IRS LETTER AMOUNT 6;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 19, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the Original Amount of the bill forwarded to the IRS.
68.93 ORIGINAL IRS OFFSET AMOUNT 6;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 19, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the Original IRS Offset Amount.
68.94 REFERRAL REASON CODE 6;22 SET
************************REQUIRED FIELD************************
  • '1' FOR LITIGATION ISSUES;
  • '2' FOR VET NOT RESP FOR COST OF CARE;
  • '3' FOR REFUSAL TO PAY GOV HOSPITAL;
  • '4' FOR VETERAN PAID DIRECTLY;
  • '5' FOR MCCR REF WITH RC CONSENT;

  • LAST EDITED:  JAN 09, 2003
  • HELP-PROMPT:  Enter the Reason Code for referring this claim to Regional Counsel.
  • DESCRIPTION:  
    This is a code for the transmission to Regional Counsel to let them know the reason for the referral. This is required for the transmission.
68.95 REFERRAL COMMENT 6;23 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>65!($L(X)<3) X
  • LAST EDITED:  JAN 09, 2003
  • HELP-PROMPT:  Enter detailed reason for referral and contact information at RC.
  • DESCRIPTION:  
    Enter specific information on the account pertaining to the reason for referral; date, time of call and contact person the staff spoke with at the Regional Counsel.
69 OVER LETTER3 COMPUTED

  • MUMPS CODE:  S Y(430,69,1)=$S($D(^PRCA(430,D0,6)):^(6),1:""),X=DT S X=X,X1=X,X2=$P(Y(430,69,1),U,3),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  TODAY-LETTER3
  • DESCRIPTION:  
    This field computes the length of time since the third debt collection letter was mailed.
70 DELINQUENT DAYS COMPUTED

  • MUMPS CODE:  S Y(430,70,1)=$S($D(^PRCA(430,D0,6)):^(6),1:""),X=DT S X=X,X1=X,X2=$P(Y(430,70,1),U,1),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)
  • ALGORITHM:  TODAY-LETTER1 (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field computes the number of days an account is delinquent by subtracting the date of the first debt collection letter from the current date.
71 PRINCIPAL BALANCE 7;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-999999.99) X
  • LAST EDITED:  AUG 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between -999999.99 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is set to the original amount when a new bill is established.
  • NOTES:  TRIGGERED by the ORIGINAL AMOUNT field of the ACCOUNTS RECEIVABLE File
  • RECORD INDEXES:  AMCCF (#1689)
72 INTEREST BALANCE 7;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  AUG 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the balance due for interest charges on this bill.
  • RECORD INDEXES:  AMCCF (#1689)
73 ADMINISTRATIVE COST BALANCE 7;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  AUG 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the balance due for administrative costs on this bill.
  • RECORD INDEXES:  AMCCF (#1689)
74 MARSHAL FEE 7;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  AUG 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount of the Marshal Fee included in this bill.
  • RECORD INDEXES:  AMCCF (#1689)
75 COURT COST 7;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  AUG 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount of court costs included in this bill.
  • RECORD INDEXES:  AMCCF (#1689)
77 TOTAL PAID PRINCIPAL 7;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-99999.99) X
  • LAST EDITED:  SEP 24, 1987
  • HELP-PROMPT:  Type a Dollar Amount between -99999.99 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total amount received toward this bill's principal balance.
78 TOTAL PAID INTEREST 7;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999.99)!(X<-9999.99) X
  • LAST EDITED:  SEP 24, 1987
  • HELP-PROMPT:  Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total amount received toward this bill's interest charges.
79 TOTAL PAID ADMINISTRATIVE COST 7;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999.99)!(X<-9999.99) X
  • LAST EDITED:  SEP 24, 1987
  • HELP-PROMPT:  Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total amount received toward this bill's administrative cost charges.
79.1 TOTAL PAID MARSHAL FEE 7;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total amount received toward this bill's Marshal Fee.
79.12 OUTSTANDING PB 7;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  APR 11, 1988
  • HELP-PROMPT:  Type outstanding principal balance for this debtor.
  • DESCRIPTION:  
    This is the total outstanding principal balance for this debtor's account.
79.13 OUTSTANDING IB 7;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  APR 11, 1988
  • HELP-PROMPT:  Enter the outstanding interest balance for this debtor.
  • DESCRIPTION:  
    This is the total outstanding principal interest balance for this debtor's account.
79.14 OUTSTANDING AB 7;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  APR 11, 1988
  • HELP-PROMPT:  Enter the outstanding admin. cost balance for this debtor.
  • DESCRIPTION:  
    This is the total outstanding administrative cost charges for this debtor's account.
79.15 OUTSTANDING MF 7;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  APR 11, 1988
  • HELP-PROMPT:  Enter the outstanding marshal fee for the debtor.
  • DESCRIPTION:  
    This is the total outstanding marshal's fee for this debtor's account.
79.16 OUTSTANDING CC 7;16 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  APR 11, 1988
  • HELP-PROMPT:  Enter the outstanding court cost balance for the debtor.
  • DESCRIPTION:  
    This is the total outstanding court cost for this debtor's account.
79.17 EXCESS PAYMENT AMOUNT 7;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X
  • LAST EDITED:  FEB 21, 1989
  • HELP-PROMPT:  Enter the amount of the excess payment.
  • DESCRIPTION:  
    This field stores the amount of a patient's excess payment.
79.18 REFUNDED AMOUNT 7;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X
  • LAST EDITED:  FEB 21, 1989
  • HELP-PROMPT:  Enter the amount refunded to the patient.
  • DESCRIPTION:  
    This field stores the dollar amount that has been refunded to the patient.
79.19 REFUNDED DATE 7;19 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 21, 1989
  • HELP-PROMPT:  Enter the date the refund was made.
  • DESCRIPTION:  
    This field stores the date the refund was made.
79.2 TOTAL PAID COURT COST 7;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total amount received toward this bill's court costs.
79.21 REFUNDED BY 7;21 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 27, 1992
  • HELP-PROMPT:  Enter the name of the person who approved this refund, Last Name,First
  • DESCRIPTION:  
    This field stores the name of the person who approved the refund. It is a pointer to the New Person File.
81 IRS LOCATION COST 8;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount charged to the bill for an IRS locator search.
82 CREDIT REP. COST 8;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount charged to the bill for a credit report locator check.
83 DMV LOCATION COST 8;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount charged to the bill for a state agency/department of motor vehicles locator search.
83.1 DMV LOCATION CHECK 8;18 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 20, 1988
  • HELP-PROMPT:  Enter 'Y' for Yes or 'N' for No.
  • DESCRIPTION:  
    This flag indicates whether or not a state agency/department of motor vehicles locator check was done.
84 CONSUMER REP. AGENCY COST 8;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount charged to the bill for a consumer rep. agency locator search.
85 POSTAL LOCATION COST 8;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount charged to the bill for a US Postal Service locator search.
86 ABLE TO PAY 8;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Enter 'Y' for Yes or 'N' for No.
  • DESCRIPTION:  
    This flag indicates whether or not the debtor is able to pay this bill.
87 ABLE TO LOCATE 8;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Enter 'Y' for Yes or 'N' for No.
  • DESCRIPTION:  
    This flag indicates whether or not the debtor could be located.
88 POSTAL LOC.DATE SENT 8;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Enter date locator request was sent to the Postal Service.
  • DESCRIPTION:  
    This is the date a request to locate the debtor was sent to the US Postal Service.
89 POSTAL LOC.DATE RECEIVED 8;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Enter date reply from Postal Service was received.
  • DESCRIPTION:  
    This is the date a reply was received to the Postal locator request.
89.1 IRS ABLE TO LOCATE 8;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 09, 1988
  • HELP-PROMPT:  Is IRS able to locate the debtor ? Enter 'Y' or 'N'
  • DESCRIPTION:  
    This flag indicates whether or not the IRS was able to locate the debtor.
89.2 IRS LOC. DATE SENT 8;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Enter date locator request was sent to IRS.
  • DESCRIPTION:  
    This is the date a request to locate the debtor was sent to the IRS.
89.3 IRS LOC. DATE RECEIVED 8;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Enter date reply received from IRS.
  • DESCRIPTION:  
    This is the date a reply was received to the IRS locator request.
89.4 CREDIT REP. ABLE TO PAY 8;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 09, 1988
  • HELP-PROMPT:  Enter 'Y' for Yes or 'N' for No.
  • DESCRIPTION:  
    This flag indicates whether or not the credit report says the debtor is able to pay the bill.
89.5 CREDIT REPT. DATE SENT 8;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Enter date request for credit report was sent.
  • DESCRIPTION:  
    This is the date a request for a credit report was sent.
89.6 CREDIT REP. DATE RECEIVED 8;15 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Enter date credit report was received.
  • DESCRIPTION:  
    This is the date the requested credit report was received.
89.7 PATIENT FOLDER REVIEWED 8;16 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 09, 1988
  • HELP-PROMPT:  Did you review the patient folder ? Enter 'Y' or 'N'
  • DESCRIPTION:  
    This flag indicates whether or not the debtor's Patient Folder was reviewed for locator information.
89.8 DATE FOLDER REVIEWED 8;17 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Enter date Patient Folder was reviewed.
  • DESCRIPTION:  
    This is the date the debtor's Patient Folder was reviewed.
90 APPROVED BY (FISCAL) 9;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 11, 1992
  • HELP-PROMPT:  Enter approving official's name.
  • DESCRIPTION:  
    This is the person in Fiscal who approved the bill.
91 AR ELECTRONIC SIGNATURE 9;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • OUTPUT TRANSFORM:  S Y=""
  • LAST EDITED:  FEB 07, 1997
  • HELP-PROMPT:  Enter Electronic Signature code.
92 AR DATE SIGNED 9;3 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 19, 1987
  • HELP-PROMPT:  Enter date bill was signed.
  • DESCRIPTION:  
    This is the date the bill was signed in Fiscal.
93 AR APPR.OFFICIAL'S TITLE 9;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>27!($L(X)<3) X
  • LAST EDITED:  NOV 19, 1987
  • HELP-PROMPT:  Enter Approving Official's Title.
  • DESCRIPTION:  
    This is the approving official's title.
94 APPROVED BY (BILLING) 9;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 27, 1992
  • HELP-PROMPT:  Enter person who approved bill in Service.
  • DESCRIPTION:  
    This is the person who approved the bill in the Service or Section.
95 PREVIOUS STATUS 9;6 POINTER TO ACCOUNTS RECEIVABLE TRANS.TYPE FILE (#430.3) ACCOUNTS RECEIVABLE TRANS.TYPE(#430.3)

  • LAST EDITED:  JUL 18, 1988
  • HELP-PROMPT:  Enter bill's previous status.
  • DESCRIPTION:  
    This is the former status of the bill if it has been changed.
96 APPROVED DATE (SERVICE) 9;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 18, 1988
  • HELP-PROMPT:  Enter date the bill was approved.
  • DESCRIPTION:  
    This is the date the bill was approved in the Service or Section.
97 PROCESSED BY (SERVICE) 9;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 19, 1992
  • HELP-PROMPT:  Enter the name of the person who processed the bill.
  • DESCRIPTION:  
    This is the person in the Service or Section who processed the bill.
98 COMMENTS 10;0 WORD-PROCESSING #430.098

  • DESCRIPTION:  
    This word processing field allows the AR Clerk or Supervisor to add optional comments at the time the bill is audited.
  • LAST EDITED:  OCT 04, 1988
  • HELP-PROMPT:  Enter optional comment for this bill.
  • DESCRIPTION:  
    This word processing field allows the AR Clerk or Supervisor to add a comment at the time the bill is audited.
100 FORM TYPE 100;1 SET
************************REQUIRED FIELD************************
  • '1' FOR 1081;
  • '2' FOR 1080;
  • '3' FOR 1114;

  • LAST EDITED:  OCT 25, 1988
  • HELP-PROMPT:  Enter the code for the form to be used for the bill
  • DESCRIPTION:  
    This response indicates the type of form for the bill. (1080, 1081 or 1114).
101 SERVICE 100;2 POINTER TO SERVICE/SECTION FILE (#49)
************************REQUIRED FIELD************************
SERVICE/SECTION(#49)

  • LAST EDITED:  SEP 21, 1988
  • HELP-PROMPT:  Enter billing Service or Section.
  • DESCRIPTION:  
    This is the Service or Section that originated the bill.
104 VOUCHER NUMBER 100;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<3) X
  • LAST EDITED:  OCT 28, 1987
  • HELP-PROMPT:  Enter optional voucher number, 3 - 9 characters.
  • DESCRIPTION:  
    This is the billing Service/Section's voucher number. It is used on the 1080, 1081 and 1114 bill forms.
106 DESCRIPTION 101;0 DATE Multiple #430.02 430.02

  • DESCRIPTION:  
    This is a description of the bill.
  • IDENTIFIED BY:  
    "Z1": W " ",$E($P(^(0),U,2),4,5)_"-"_$E($P(^(0),U,2),6,7)_"-"_$E($P(^(0),U,2),2,3)
    "Z6": W " ",$P(^(0),U,6)
107 BILLING AGENCY 100;7 POINTER TO AR GROUP FILE (#342.1) AR GROUP(#342.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=6" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 17, 1993
  • DESCRIPTION:  
    This is the billing agency from the AR Site Parameter file.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=6"
  • EXPLANATION:  TAKE THE BILLING AGENCY TYPE
108 AGENCY LOCATION CODE (ALC) 100;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<3) X
  • LAST EDITED:  OCT 28, 1987
  • HELP-PROMPT:  Enter ALC, 3 - 12 characters.
  • DESCRIPTION:  
    This is the Agency Location Code.
110 DOCUMENT NUMBER 100;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 07, 1987
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the Document Number used on the 1081 bill form.
111 APPROVING OFFICIAL (SERVICE) 104;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 11, 1992
  • HELP-PROMPT:  Enter the person's name who approved the bill in the Service.
  • DESCRIPTION:  
    This is the person in the Service or Section who approved the bill.
112 ELECTRONIC SIGNATURE 104;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • OUTPUT TRANSFORM:  S Y=""
  • LAST EDITED:  FEB 07, 1997
  • HELP-PROMPT:  Enter Electronic Signature Code
113 DATE SIGNED (APPROVED) 104;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 07, 1987
  • HELP-PROMPT:  Enter date the bill was approved in the Service.
  • DESCRIPTION:  
    This is the date the bill was approved in the Service or Section.
114 APPR. OFFICIAL'S TITLE 104;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>27!($L(X)<3) X
  • LAST EDITED:  OCT 07, 1987
  • HELP-PROMPT:  Enter Approving Official's Title, 3 - 27 characters.
  • DESCRIPTION:  
    This is the title of the person who approved the bill in the Service or Section.
121 DATE SENT TO DMC 12;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 19, 1997
  • DESCRIPTION:  
    This is the date that the bill was first sent to the Debt Management Center.
122 DMC PRINCIPAL BALANCE 12;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
  • LAST EDITED:  MAR 19, 1997
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the current principal balance for the bill that is at the Debt Management Center.
123 DMC INTEREST BALANCE 12;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAR 19, 1997
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the current interest balance for the bill that is at the Debt Management Center.
124 DMC ADMIN BALANCE 12;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAR 19, 1997
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the current administrative cost balance for the bill that is at the Debt Management Center.
125 DMC Debt Valid 12.1;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'P' FOR PENDING;

  • LAST EDITED:  AUG 09, 2007
  • HELP-PROMPT:  Enter 'Y' for Yes or 'N' for No.
  • DESCRIPTION:  If the field value is NULL the nightly DMC job will prevent the debt from being referred to DMC when the debtor is SC 50% to 100% or in Receipt of a VA Pension. It will then set this field value to PENDING so the users
    will know this is what occurred.
    If a user sets this field value to YES and the debt meets all criteria to be sent to DMC it will be referred to DMC even if the debtor is SC 50% to 100% or in Receipt of a VA Pension.
    If a user sets this value to NO the debt will not be referred to DMC.
    Users should only interactively be able to set the value to YES or NO. PENDING is reserved for the nightly DMC job.
  • CROSS-REFERENCE:  ^^TRIGGER^430^126
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(430,125,1,1,1.1) S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,2)=DIV,DIH=430,DIG=126 D ^DICR
    1.1)= S X=DIV X ^DD(430,125,1,1,49.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""),X=$S('DUZ:"??",X="#":DUZ,X="N":$P(%,U,1),X="I":$P(%,U,2),X="T":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""),X="NN":$S($D(^VA(200,+DUZ,.1)):$P(
    ^(.1),U,4),1:""),1:"??") K %
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(430,125,1,1,2.1) S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,2)=DIV,DIH=430,DIG=126 D ^DICR
    2.1)= S X=DIV X ^DD(430,125,1,1,59.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""),X=$S('DUZ:"??",X="#":DUZ,X="N":$P(%,U,1),X="I":$P(%,U,2),X="T":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""),X="NN":$S($D(^VA(200,+DUZ,.1)):$P(
    ^(.1),U,4),1:""),1:"??") K %
    49.2)= S X="#"
    59.2)= S X="#"
    CREATE VALUE)= USER("#")
    DELETE VALUE)= USER("#")
    FIELD)= DMC Valid Debt Edited By
    Whenever the DMC Debt Valid field is changed it will update the DMC Debt Valid Edited By Field to the user who made the change.
  • CROSS-REFERENCE:  ^^TRIGGER^430^127
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(430,125,1,2,1.4)
    1.4)= S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,3)=DIV,DIH=430,DIG=127 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(430,125,1,2,2.4)
    2.4)= S DIH=$G(^PRCA(430,DIV(0),12.1)),DIV=X S $P(^(12.1),U,3)=DIV,DIH=430,DIG=127 D ^DICR
    CREATE VALUE)= NOW
    DELETE VALUE)= NOW
    FIELD)= DMC Debt Valid Edited Date
    Whenever the DMC Debt Valid field is changed it will update the DMC Debt Valid Edited Date Field to the current Date and Time.
126 DMC Debt Valid Edited By 12.1;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 09, 2007
  • HELP-PROMPT:  Enter the name of the user making a change to the DMC Debt Valid Field.
  • DESCRIPTION:  
    This is a pointer to the New Person File. It extracts the name of the last person making a change to the DMC Debt Valid field. Adding new entries to the New Person File is not allowed.
  • NOTES:  TRIGGERED by the DMC Debt Valid field of the ACCOUNTS RECEIVABLE File
127 DMC Debt Valid Edited Date 12.1;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 09, 2007
  • HELP-PROMPT:  Enter Date/Time DMC Debt Valid Field Edited
  • DESCRIPTION:  
    This is the Date and Time a user last edited the DMC Debt Valid Field.
  • NOTES:  TRIGGERED by the DMC Debt Valid field of the ACCOUNTS RECEIVABLE File
131 MEDICARE CONT. ADJUSTMENT 13;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X
  • LAST EDITED:  MAR 24, 2004
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field will reflect the Medicare contractual adjustment for a bill.
132 MEDICARE UNREIMBURSABLE 13;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X
  • LAST EDITED:  MAR 24, 2004
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field will reflect the Medicare Unreimbursable Expense for a bill.
141 DATE BILL REFERRED TO TOP 14;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 15, 1999
  • DESCRIPTION:  
    This field contains the date that the bill was originally referred to TOP.
  • TECHNICAL DESCR:  
    If a bill has been referred to TOP, this date is set by the system. It is used to show that the bill has been referred to TOP on the bill profile.
142 TOP REFUND STATUS 14;2 SET
  • '1' FOR REFUND;
  • '2' FOR REFUND TRANSMITTED;
  • '3' FOR REVERSAL;
  • '4' FOR REVERSAL TRANSMITTED;

  • LAST EDITED:  JUN 16, 1999
  • DESCRIPTION:  
    This field contains the current status of a TOP refund.
  • TECHNICAL DESCR:  If a prepayment bill is approved for refund and the user indicates that it is a TOP refund, this field is set to 'Refund' status. When the TOP document is sent, the status is changed to 'Refund Transmitted' status. If
    the refund is subsequently reversed, this field is set to 'Reversal' status and upon transmission of the TOP document, the field is sent to 'Reversal Transmitted' status. This field is also cross-referenced, so that the
    software can easily determine when a type 1 refund or refund reversal document should be sent to TOP.
  • CROSS-REFERENCE:  430^TREF
    1)= S ^PRCA(430,"TREF",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,"TREF",$E(X,1,30),DA)
    This field is cross-referenced, so that the software can easily determine when a type 1 refund or refund reversal document should be sent to TOP.
143 TOP TRACE NUMBER 14;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10) X
  • LAST EDITED:  JUN 15, 1999
  • HELP-PROMPT:  Answer must be 10 characters in length.
  • DESCRIPTION:  
    This field contains the trace number attached to the refund.
  • TECHNICAL DESCR:  
    This field is set whenever a TOP refund is approved. It will attach the Current TOP Trace Number from file 340 to the refund.
144 TOP REFUND YEAR 14;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  JUN 15, 1999
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This field contains the calendar year for which the refund is granted.
  • TECHNICAL DESCR:  
    This field will be set by user entry at the time of the refund approval. It is necessary in case the refund must be reversed.
151 DATE BILL REFERRED TO TCSP 15;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 04, 2014
  • HELP-PROMPT:  Type the date that the debt was referred to Cross-Servicing.
  • DESCRIPTION:  
    The date that the debt was referred to Cross Servicing.
  • CROSS-REFERENCE:  430^TCSP^MUMPS
    1)= S ^PRCA(430,"TCSP",DA)=""
    2)= K ^PRCA(430,"TCSP",DA)
    This Cross-Reference indicates whether a debt has been sent to Cross-Servicing.
152 TCSP RECALL FLAG 15;2 SET
  • '1' FOR CROSS-SERVICING RECALL SET;

  • LAST EDITED:  JAN 13, 2015
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing recall flag.
  • DESCRIPTION:  
    The flag that marks this debt for recall record creation from Cross-Servicing when the AR nightly background job is run.
153 TCSP RECALL EFF. DATE 15;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 16, 2014
  • HELP-PROMPT:  Type a date greater than 1/1/2014.
  • DESCRIPTION:  
    The date that the recall flag is set for the debt.
154 TCSP RECALL REASON 15;4 SET
  • '01' FOR DEBT REFERRED IN ERROR;
  • '07' FOR AGENCY IS FORGIVING DEBT;
  • '08' FOR AGENCY CAN COLLECT THROUGH INTERNAL OFFSET;
  • '15' FOR DEBTOR WAS INCORRECTLY ASSOCIATED WITH THE DEBT;
  • '03' FOR BANKRUPTCY;
  • '05' FOR DEBTOR DISABLED;
  • '06' FOR DEBTOR DECEASED;

  • LAST EDITED:  JUL 03, 2014
  • HELP-PROMPT:  Type a reason code for the recall from Cross-Servicing.
  • DESCRIPTION:  
    The reason that the debt is being recalled from Cross-Servicing.
155 RECALL AMOUNT 15;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  OCT 08, 2014
  • HELP-PROMPT:  Type a dollar amount between 0 and 99999.99, 2 decimal digits.
  • DESCRIPTION:  
    The amount of the debt being recalled from Cross-Servicing.
156 ORIGINAL DATE REFERRED TO TCSP 21;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 04, 2017
  • HELP-PROMPT:  Type the original date that the debt was referred to Cross-Servicing.
  • DESCRIPTION:  The original date that the debt was referred to Cross-Servicing. This field is only set once, when the debt is first referred to Cross-Servicing. Since this field was added after Cross-Servicing originated, it may not be
    accurate. It is not deleted or reset with subsequent actions on the debt. The purpose of this field is to act as a flag to determine whether the account has ever been sent to Cross-Servicing, regardless of its current
    status. It should not be used for aging or other computations.
  • TECHNICAL DESCR:  This date may be set by the original referral to Cross-Servicing or by other Cross-Servicing activities. It should not be used as an accurate date to age Cross-Servicing bills. It is designed to be used as an indicator of
    whether the bill has ever been referred to Cross-Servicing regardless of its current status.
157 STOP TCSP REFERRAL FLAG 15;7 SET
  • '1' FOR STOP TCSP REFERRAL SET;

  • LAST EDITED:  APR 06, 2014
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing stop flag for this debt.
  • DESCRIPTION:  
    The flag that stops further Cross-Servicing activity for this debt.
158 STOP TCSP REFERRAL EFF. DATE 15;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 17, 2014
  • HELP-PROMPT:  Type a date greater than 1/1/2014.
  • DESCRIPTION:  
    The date that the stop flag was set for the debt.
159 STOP TCSP REFERRAL REASON 15;9 SET
  • 'B' FOR BANKRUPTCY;
  • 'W' FOR WAIVER;
  • 'O' FOR OTHER;
  • 'R' FOR REJECTED BY CROSS-SERVICING;

  • LAST EDITED:  JAN 13, 2015
  • HELP-PROMPT:  Type a reason code for the stop Cross-Servicing activity.
  • DESCRIPTION:  
    The reason that the debt is being stopped for further Cross-Servicing activity. Select from 'B' for bankruptcy, 'W' for waiver, 'O' for other, and 'R' for rejected by Cross-Servicing.
159.1 STOP TCSP REFERRAL COMMENT 15;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 14, 2014
  • HELP-PROMPT:  Type a reason comment up to 20 characters in length.
  • DESCRIPTION:  
    Type a comment to support the reason that a stop flag has been set for this debt. A comment is required in the case of 'Other' as a reason code.
159.2 TCSP CASE RECALL FLAG 15;11 SET
  • '1' FOR CROSS-SERVICING CASE RECALL SET;

  • LAST EDITED:  JAN 13, 2015
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing recall flag.
  • DESCRIPTION:  
    The flag that marks this case for recall record creation from Cross-Servicing when the AR nightly background job is run.
159.3 TCSP CASE RECALL EFF. DATE 15;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 13, 2014
  • HELP-PROMPT:  Type a date greater than 1/1/2014.
  • DESCRIPTION:  
    The date that the recall flag is set for the case.
159.4 TCSP CASE RECALL REASON 15;13 SET
  • '15' FOR DEBTOR WAS INCORRECTLY ASSOCIATED WITH THE DEBT;

  • LAST EDITED:  AUG 13, 2014
  • HELP-PROMPT:  Type a reason code for the recall of the case.
  • DESCRIPTION:  
    The reason that the case is being recalled from Cross-Servicing.
159.5 TCSP GENDER 15;14 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  FEB 06, 2015
  • HELP-PROMPT:  Type the gender of the debtor.
  • DESCRIPTION:  
    The Debtor's gender, 'M' for Male or 'F' for Female.
159.9 TCSP RE-REFERRAL 15.5;0 SET Multiple #430.03 430.03

  • DESCRIPTION:  
    Subfile containing Re-Referral status, including requests (and details of those requests) and completed Re-Referrals performed during weekly batch job run.
161 TCSP TIN 16;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  JUN 27, 2014
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    The SSN sent on the Cross-Servicing debtor record.
162 TCSP DEBTOR NAME 16;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>71!($L(X)<1) X
  • LAST EDITED:  JUN 27, 2014
  • HELP-PROMPT:  Answer must be 1-71 characters in length.
  • DESCRIPTION:  
    The debtor name sent on the Cross-Servicing record.
163 TCSP DELINQUENCY DATE 16;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 16, 2014
  • HELP-PROMPT:  Type a date greater than 1/1/2000.
  • DESCRIPTION:  
    The date that the bill became active. The debt is referred to Cross-Servicing when the debt is 120 days old counted from the delinquency date.
164 TCSP DEBTOR ADDRESS, LINE 1 16;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  MAR 16, 2014
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    The street address line 1 from the Patient file (#2)
165 TCSP DEBTOR ADDRESS, LINE 2 16;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  MAR 16, 2014
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    The street address line 2 from the Patient file (#2).
166 TCSP DEBTOR ADDRESS, CITY 16;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  MAR 16, 2014
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    The city from the Patient file (#2).
167 TCSP DEBTOR ADDRESS, STATE 16;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAR 16, 2014
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    The state from the Patient file (#2).
168 TCSP DEBTOR ZIP CODE 16;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5) X
  • LAST EDITED:  MAR 16, 2014
  • HELP-PROMPT:  Answer must be 5-9 characters in length.
  • DESCRIPTION:  
    The zip code from the Patient file (#2).
169 ORIGINAL TCSP AMOUNT 16;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 09, 2014
  • HELP-PROMPT:  Type a dollar amount between 0 and 9999999, 2 decimal digits.
  • DESCRIPTION:  
    The original amount referred to Cross-Servicing.
169.1 CURRENT TCSP AMOUNT 16;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  OCT 09, 2014
  • HELP-PROMPT:  Type a dollar amount between 0 and 999999.99, 2 decimal digits.
  • DESCRIPTION:  
    The current debt amount at Cross-Servicing.
169.2 TCSP DEBTOR PHONE 16;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  AUG 29, 2014
  • HELP-PROMPT:  Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    The residence phone number from the Patient file (#2).
169.3 TCSP COUNTRY CODE 16;12 POINTER TO COUNTRY CODE FILE (#779.004) COUNTRY CODE(#779.004)

  • LAST EDITED:  OCT 15, 2014
  • HELP-PROMPT:  Type the country code for the patient's address.
  • DESCRIPTION:  
    The country code from the Patient file (#2).
169.4 TCSP DOB 16;13 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 06, 2014
  • HELP-PROMPT:  Type the patient's date of birth.
  • DESCRIPTION:  
    The patient date of birth.
171 CS ADJ TRANS NUMBER 17;0 POINTER Multiple #430.0171 430.0171

  • LAST EDITED:  JUN 01, 2017
  • DESCRIPTION:  
    The transaction numbers in the AR Transaction file (#433) for transactions to be included in a 5B record to be sent to Cross-Servicing.
172 REJECT DATE 18;0 DATE Multiple #430.0172 430.0172

  • DESCRIPTION:  
    The dates that the Cross-Servicing record was received and processed.
173 DUE PROCESS NOTIFICATION FLAG 20;3 SET
  • '1' FOR YES, CHECK FOR DPN;

  • LAST EDITED:  MAR 25, 2015
  • HELP-PROMPT:  Type YES if this bill is to be tracked for Due Process Notification.
  • DESCRIPTION:  
    This flag is set during the install post initialization to identify this bill as requiring a Due Process notification when and if the current balance equals or exceeds $25.00.
174 DUE PROCESS REQUEST DATE 20;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 25, 2015
  • HELP-PROMPT:  Enter the date of the DPN request.
  • DESCRIPTION:  
    The date that the request was made to AITC to send a Due Process Notification letter to the patient.
175 DUE PROCESS LETTER PRINT DATE 20;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 25, 2015
  • HELP-PROMPT:  Enter the date that the DPN letter was printed.
  • DESCRIPTION:  
    The date that the Due Process Notification letter was printed by AITC.
176 DUE PROCESS REFERRAL DATE 20;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 25, 2015
  • HELP-PROMPT:  Enter the date that the bill was referred to Cross-Servicing.
  • DESCRIPTION:  
    The date that the bill was referred to Cross-Servicing.
177 DUE PROCESS ERROR DATE 20;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 25, 2015
  • HELP-PROMPT:  Enter the date of the Due Process error.
  • DESCRIPTION:  
    The date that the error codes were returned for the Due Process Notification letter request to AITC.
178 DUE PROCESS ERROR CODES 20;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAR 25, 2015
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    The error codes returned by AITC for the Due Process Notification file sent to AITC requesting that a Due Process Notification letter be sent to the patient.
191 SEND TCSP RECORD 1 19;1 SET
  • '1' FOR SEND 1 ACTION U;

  • LAST EDITED:  JUL 27, 2014
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing referral flag for this debt.
  • DESCRIPTION:  
    The flag set by the unprocessable file to request that a record 1 be sent for this debt.
192 SEND TCSP RECORD 2 19;2 SET
  • '1' FOR SEND 2 ACTION U;

  • LAST EDITED:  JUL 27, 2014
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing referral flag for this debt.
  • DESCRIPTION:  
    The flag set by the unprocessable file to request that a record 2 be sent for this debt.
193 SEND TCSP RECORD 2A 19;3 SET
  • '1' FOR SEND 2A ACTION U;

  • LAST EDITED:  JUL 27, 2014
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing referral flag for this debt.
  • DESCRIPTION:  
    The flag set by the unprocessable file to request that a record 2A be sent for this debt.
194 SEND TCSP RECORD 2C 19;4 SET
  • '1' FOR SEND 2C ACTION A;

  • LAST EDITED:  JUL 27, 2014
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing referral flag for this debt.
  • DESCRIPTION:  
    The flag set by the unprocessable file to request that a record 2C be sent for this debt.
199.2 STOP INTEREST ADMIN CALC 19;11 SET
  • '1' FOR YES;

  • LAST EDITED:  AUG 09, 2014
  • HELP-PROMPT:  Type a '1' to set the Cross-Servicing stop of interest and admin calculation.
  • DESCRIPTION:  
    The flag to stop interest and admin calculation for debts referred to Cross-Servicing.
200 RECEIVABLE CODE COMPUTED

  • MUMPS CODE:  S X=$$REC^RCAMFN01($P(^PRCA(430,D0,0),"^",6)) S X=$S(X=1:"FEDERAL",X=2:"NON-FEDERAL",1:"UNKNOWN")
  • ALGORITHM:  S X=$$REC^RCAMFN01($P(^PRCA(430,D0,0),"^",6)) S X=$S(X=1:"FEDERAL",X=2:"NON-FEDERAL",1:"UNKNOWN")
  • DESCRIPTION:  
    Identifies bill as Federal/Non-federal.
200.2 TYPE OF BILL 200;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  OCT 29, 1987
  • HELP-PROMPT:  Enter the 3 digit code for this type of bill.
  • DESCRIPTION:  
    This is the type of bill code from the UB-82 bill form.
201 BEGINNING BUDGET FY 11;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  APR 14, 1994
  • HELP-PROMPT:  Enter the last 2 digits of the beginning FISCAL YEAR. ie. 94
  • DESCRIPTION:  
    Beginning Fiscal Year of accounting FUND.
202 ENDING BUDGET FY 11;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  APR 14, 1994
  • HELP-PROMPT:  Enter the last 2 digits of the ENDING budget fiscal year on a multi-year appropriation. ie. 95
  • DESCRIPTION:  
    Ending Fiscal Year of accounting FUND.
203 FUND 11;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D FUND^PRCAFUT S X=$P($G(FUND),U,2) K:$L(X)>6!($L(X)<4) X
  • LAST EDITED:  JUL 13, 1994
  • HELP-PROMPT:  Enter the fund. ie 5014.
  • DESCRIPTION:  
    FMS Accounting FUND.
  • EXECUTABLE HELP:  D FUND^PRCAFBDU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
204 ADMIN OFFICE 11;18 SET
  • '10' FOR VHA;
  • '20' FOR VBA;
  • '30' FOR NCS;

  • LAST EDITED:  APR 10, 1994
  • DESCRIPTION:  
    Administrative Office code used by FMS.
205 ORGANIZATIONAL CTRL POINT 11;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<3) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Answer must be 3-11 characters in length.
  • DESCRIPTION:  
    FMS accounting field.
206 FCP/PROJ 11;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    FMS accounting field.
239 INSURED NAME 202;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  JUN 19, 2000
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the individual in whose name the insurance is carried.
240 INSURED SEX 202;2 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  NOV 03, 1987
  • HELP-PROMPT:  Enter code for insured's sex.
  • DESCRIPTION:  
    This is the insured individual's sex.
241 PT RELATIONSHIP 202;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  NOV 03, 1987
  • HELP-PROMPT:  Enter the appropriate 2 digit code.
  • DESCRIPTION:  
    This is the two-digit code for the relationship between the insured individual and the patient. It comes from the UB-82 bill form.
242 CERT SSN HIC ID NO. 202;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  MAY 25, 1990
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This is the Certificate/Social Security Number/Health Insurance Claim/Identification Number from the UB-82 bill form.
243 GROUP NAME 202;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 25, 1990
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the name of the group through which the insurance is provided.
244 GROUP NUMBER 202;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<1) X
  • LAST EDITED:  JUN 19, 2000
  • HELP-PROMPT:  Answer must be 1-17 characters in length.
  • DESCRIPTION:  
    This is the identification number of the group providing insurance.
245 EMPLOYEE INFORMATION DATA 202;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1U) X
  • LAST EDITED:  NOV 03, 1987
  • HELP-PROMPT:  Enter the appropriate code, a single upper case alphabetic character.
  • DESCRIPTION:  
    This is the employee information data code from the UB-82 bill form.
246 EMPLOYMENT STATUS CODE 202;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1N) X
  • LAST EDITED:  NOV 03, 1987
  • HELP-PROMPT:  Enter the appropriate single digit code.
  • DESCRIPTION:  
    This is the employment status code from the UB-82 bill form.
247 EMPLOYER NAME 202;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 11, 1988
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the employer's name from the UB-82 bill form.
248 EMPLOYEE ID NUMBER 202;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<3) X
  • LAST EDITED:  NOV 03, 1987
  • HELP-PROMPT:  Enter the identification number for the employee, 3-11 characters in length.
  • DESCRIPTION:  
    This is the employee's identification number from the UB-82 bill form.
249 EMPLOYER LOCATION 202;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  FEB 11, 1988
  • HELP-PROMPT:  Enter Employer's location, 3 - 40 characters.
  • DESCRIPTION:  
    This is the employer's location from the UB-82 bill form.
250 CONTROL POINT 11;1 FREE TEXT

  • INPUT TRANSFORM:  S:$D(X) CP=X D:$D(CP) CP^PRCAFUT D:$D(CP) CPTBL^PRCAFUT S X=$G(CP) K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  SEP 06, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    IFCAP control point.
  • EXECUTABLE HELP:  D CPHLP^PRCAFUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
251 COST CENTER 11;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D CC^PRCAFBDU S X=$G(CC) K:$L(X)>6!($L(X)<6)!'(X?6N) X
  • LAST EDITED:  MAY 20, 1994
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This field is required for spending transactions and is used to record expenditure of funds by various organizations within DVA.
  • EXECUTABLE HELP:  D CCDISP^PRCAFBDU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
252 SUB COST CENTER 11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAY 19, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This code is a further breakdown of the Cost Center.
253 BOC (SUB ACCOUNT) 11;21 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D BOC^PRCAFBDU S X=$G(BOC) K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • LAST EDITED:  MAY 20, 1994
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This code is equivalent to the CALM subaccount. Required for spending transactions and is used to determine the budget operating expense account to effect.
  • EXECUTABLE HELP:  D BOCDISP^PRCAFBDU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
254 SUB BOC 11;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAY 20, 1994
  • HELP-PROMPT:  Enter sub boc on SALARY OVERPAYMENTS ONLY
  • DESCRIPTION:  
    This code is a further breakdown of the Budget Object Code.
255 REVENUE SOURCE 11;6 POINTER TO REVENUE SOURCE CODE FILE (#347.3)
************************REQUIRED FIELD************************
REVENUE SOURCE CODE(#347.3)

  • INPUT TRANSFORM:  D RSC^RCXFMSUR
  • LAST EDITED:  AUG 31, 2005
  • HELP-PROMPT:  Enter the revenue source code to be sent to FMS for this bill. Only active Revenue Source Codes can be selected.
  • DESCRIPTION:  
    This code is required for revenue transactions. It is used to group collected revenue and to determine whether the revenue will credit actual reimbursement receivables for the associated fund.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
255.1 RSC (CALC FOR ACCRUED BILLS) 11;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  OCT 01, 1997
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  This field was added with patch PRCA*4.5*90.
    This field is used to store the calculated revenue source code for bills which are accrued. It is calculated and set in the field by the routine RCXFMSUR.
256 SUB-REV SOURCE 11;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  APR 04, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This code is a further breakdown of the Revenue Source Code.
257 STATION 11;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  MAY 19, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    FMS accounting station number.
258 FEDERAL/NON-FEDERAL/EMPLOYEE 11;9 SET
  • '0' FOR FEDERAL;
  • '1' FOR NON-FEDERAL;
  • '2' FOR EMPLOYEE;

  • LAST EDITED:  APR 01, 1994
  • HELP-PROMPT:  This field will be used to identify the vendor as a Federal, Non-federal or employee vendor.
  • DESCRIPTION:  
    FMS accounting field to identify type of bill.
259 REFUND/REIBURSMENT 11;10 SET
  • '01' FOR REFUND;
  • '02' FOR REIMBURSEMENT;
  • '3' FOR SF REIBURSMENT;
  • '4' FOR SF REFUND;
  • '24' FOR INELIG. HEALTH;
  • '09' FOR GENERAL FUND;
  • '20' FOR EMPLOYEE;
  • '50' FOR TORT FEASOR;

  • LAST EDITED:  MAR 02, 1995
  • HELP-PROMPT:  This field will detmine if the refund or reibursment receivable will be established in FMS
  • DESCRIPTION:  
    Identifies bill category for FMS
260 SAT STATION 11;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  JUL 13, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This field is the Satellite station number
261 JOB NUMBER 11;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  APR 04, 1994
  • HELP-PROMPT:  This field is used by FMS to record a job number on receivables
  • DESCRIPTION:  
    FMS accounting element.
262 XPROGAM 11;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  APR 04, 1994
  • HELP-PROMPT:  used by FMS to indicate program within Organization Control Point
  • DESCRIPTION:  
    FMS accounting element.
263 REPORTING CATEGORY 11;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  APR 04, 1994
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    FMS accounting element.
264 FMS LINE NUMBER 11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  SEP 09, 1997
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This field contains the line number assigned to an FMS billing document. This field will only be populated if the line number is different than 001. Line number 001 is the default line number (for null entries).
265 VENDOR ID 11;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<5) X
  • LAST EDITED:  SEP 16, 1998
  • HELP-PROMPT:  Answer must be 5-12 characters in length.
  • DESCRIPTION:  
    This field contains the vendor ID that was sent on the billing document.
266 FMS TRANSMISSION DATE 203;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 19, 2003
  • DESCRIPTION:  
    This field contains the date this document was transmitted to FMS.
  • TECHNICAL DESCR:  
    UNEDITABLE
  • CROSS-REFERENCE:  430^FMS
    1)= S ^PRCA(430,"FMS",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,"FMS",$E(X,1,30),DA)
    This is a cross-reference on the FMS TRANSMISSION DATE field. That field stores the date that the document was transmitted to FMS.
301 RETURNED DATE 30;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 16, 2017
  • HELP-PROMPT:  Type the returned date for this reconciliation record.
  • DESCRIPTION:  
    The returned date field on the reconciliation file for records returned by Treasury from Cross-Servicing.
  • CROSS-REFERENCE:  430^AN
    1)= S ^PRCA(430,"AN",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,"AN",$E(X,1,30),DA)
    Cross-servicing Returned Date Index
302 RETURN REASON CODE 30;2 POINTER TO AR RETURN REASON CODE FILE (#430.5) AR RETURN REASON CODE(#430.5)

  • LAST EDITED:  SEP 02, 2014
  • HELP-PROMPT:  Type a returned reason code.
  • DESCRIPTION:  
    The returned reason code field on the reconciliation file for records returned by Treasury from Cross-Servicing.
303 COMPROMISE INDICATOR 30;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 09, 2014
  • HELP-PROMPT:  Type a YES if a compromise is indicated, otherwise NO.
  • DESCRIPTION:  
    The compromise indicator field on the reconciliation file for records returned by Treasury from Cross-Servicing.
304 COMPROMISE AMOUNT 30;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  SEP 02, 2014
  • HELP-PROMPT:  Type a dollar amount between 0 and 999999, 2 decimal digits.
  • DESCRIPTION:  
    The compromise amount field on the reconciliation file for records returned by Treasury from Cross-Servicing.
305 CLOSED DATE 30;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 02, 2014
  • HELP-PROMPT:  Type the closed date for this reconciliation record.
  • DESCRIPTION:  
    The closed date field on the reconciliation file for records returned by Treasury from Cross-Servicing.
  • RECORD INDEXES:  AMCCF (#1689)
306 BANKRUPTCY DATE 30;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 26, 2015
  • HELP-PROMPT:  Type the date of the bankruptcy.
  • DESCRIPTION:  
    The bankruptcy date field on the reconciliation file for records returned by Treasury from Cross-Servicing.
307 DATE OF DEATH 30;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 26, 2015
  • HELP-PROMPT:  Type the date of death.
  • DESCRIPTION:  
    The date of death field on the reconciliation file for records returned by Treasury from Cross-Servicing.
308 DATE OF DISSOLUTION 30;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 26, 2015
  • HELP-PROMPT:  Type the date of dissolution.
  • DESCRIPTION:  
    The date of dissolution field on the reconciliation file for records returned by Treasury from Cross-Servicing.
309 REMOVED FROM RECONCILATION? 30;9 SET
  • '0' FOR no, not removed;
  • '1' FOR yes, removed;

  • LAST EDITED:  FEB 06, 2018
  • HELP-PROMPT:  Type 0 to display on worklist or 1 to prevent display.
  • DESCRIPTION:  This field determines whether this bill will display on the Cross-Servicing Reconciliation Worklist. A null value or a zero will display this bill on the worklist. A 1 in this field means the bill has been processed and
    removed from the Cross-Servicing Reconciliation Worklist, and it will not display on the worklist again.
310 REC ORIGINAL TCSP AMOUNT 30;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  FEB 24, 2018
  • HELP-PROMPT:  Type a dollar amount between 0 and 9999999, 2 decimal digits.
  • DESCRIPTION:  
    The original amount referred to Cross-Servicing.
  • TECHNICAL DESCR:  
    Saved from field #169 when the 16 node is deleted by a return record.
311 REC CURRENT TCSP AMOUNT 30;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  FEB 24, 2018
  • HELP-PROMPT:  Type a dollar amount between 0 and 9999999, 2 decimal digits.
  • DESCRIPTION:  
    The current debt amount at Cross-Servicing.
  • TECHNICAL DESCR:  
    Saved from field #169.1 when the 16 node is deleted by a return record.
312 REC TCSP RECALL EFF. DATE 30;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:3140101>X X
  • LAST EDITED:  FEB 24, 2018
  • HELP-PROMPT:  Type a date greater than 1/1/2014.
  • DESCRIPTION:  
    The date that the recall flag is set for the debt.
  • TECHNICAL DESCR:  
    Saved from field #153 when the 15 node is deleted by a return record.
313 TCSP AGENCY DEBT ID LAST 2 21;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2A) X
    MAXIMUM LENGTH: 2
  • LAST EDITED:  APR 14, 2019
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Last two characters for Agency Debt ID field in IAI records for referral. Must be alphabetic or blank.

ICR, Total: 5

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #389
  • Integrated Billing
    		•  BILL NO. (.01).
    Access: Direct Global Read & w/Fileman

    DEBTOR (9).
    Access: Read w/Fileman

    CATEGORY (2).
    Access: Direct Global Read & w/Fileman

    DATE BILL PREPARED (10).
    Access: Direct Global Read & w/Fileman

    PRINCIPAL BALANCE (71).
    Access: Direct Global Read & w/Fileman

    INTEREST BALANCE (72).
    Access: Direct Global Read & w/Fileman

    ADMINISTRATIVE COST BALANCE (73).
    Access: Direct Global Read & w/Fileman

    MARSHAL FEE (74).
    Access: Direct Global Read & w/Fileman

    COURT COST (75).
    Access: Direct Global Read & w/Fileman

    PROCESSED BY (SERVICE) (97).
    Access: Read w/Fileman

    DATE SENT TO DMC (121).
    Access: Read w/Fileman

    DATE BILL REFERRED TO TOP (141).
    Access: Direct Global Read & w/Fileman

    REFERRAL DATE (64).
    Access: Direct Global Read & w/Fileman

    		 Request direct access to the "B" cross reference of theACCOUNTS RECEIVABLE (#430) file to determine the internal entry number for areceivable [S IEN=$O(^PRCA(430,"B",BN,0))]. This call is made when purgingPharmacy copay charges, in order to determine the input for the function call$$PUR^PRCAFN(IEN). Integrated Billing will no longer need direct access tothis cross reference once the routine RCFN03 is available. This routine ischecked for and called to get the same information.This cross-reference is used by various reports in theDiagnostic Measures module to retrieve receivables of a specific status, i.e.Active. Some examples of the reports that use this cross-reference are: FirstParty Follow-up Report, Repayment Plan Follow-up Report, AR ProductivityReport, among others.These fields are being displayed in various reports inthe Diagnostic Measures module. Some examples of these reports are:Miscellaneous Bills Follow-up report, Repayment Plan report, among others.The fields 71-75 are being used in the calculation ofthe account balance for the patient in two Diagnostic Measures reports: FirstParty Follow-up and Repayment Plan Follow-up reports.
    ICR #3636
  • M DATA EXTRACTOR
    		•
    ICR #3847
  • Integrated Billing
    		•  BILL NUMBER (.01).
    Access:

    ICR #4388
  • Integrated Billing
    		•  Medicare Unreimbursable (132).
    Access: Direct Global Read & w/Fileman

    Medicare Contract Adjustments (131).
    Access: Direct Global Read & w/Fileman
    ICR #5219 BILL NO. (.01).
    Access: Direct Global Read & w/Fileman

    FISCAL YEAR (1).
    Access: Direct Global Read & w/Fileman

    CURRENT STATUS (8).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .11+1, .12+1, .13+1, 10+1, 14+1, 16+1, 21+1, 31+1, 33+1, 41+1
    , 60+1, 61+1, 62+1, 63+1, 64+1, 67+1, 68+1, 68.1+1, 68.2+1, 68.3+1
    , 68.4+1, 68.6+1, 68.7+1, 79.19+1, 88+1, 89+1, 89.2+1, 89.3+1, 89.5+1, 89.6+1
    , 89.8+1, 92+1, 96+1, 113+1, 121+1, 127+1, 141+1, 151+1, 153+1, 156+1
    , 158+1, 159.3+1, 163+1, 169.4+1, 174+1, 175+1, 176+1, 177+1, 266+1, 301+1
    , 305+1, 306+1, 307+1, 308+1, 312+1
    ^%DTC 69+1, 70+1
    NOW^%DTC 8(XREF 3S), 125(XREF 2S), 125(XREF 2K)
    ^DIC 2+1, 4.5+1, 9+1, 13.1+1, 15.1+1, 107+1
    ^DICR 3(XREF 1n1.4), 3(XREF 1n2.4), 8(XREF 3n1.4), 8(XREF 4n1.4), 125(XREF 1S), 125(XREF 1K), 125(XREF 2n1.4), 125(XREF 2n2.4)
    Y^DIQ IDWR1+1, IDWR4+1
    EN6^PRCABIL 9+1, 9SCR+1
    BOC^PRCAFBDU 253+1
    BOCDISP^PRCAFBDU 253(HELP )
    CC^PRCAFBDU 251+1
    CCDISP^PRCAFBDU 251(HELP )
    FUND^PRCAFBDU 203(HELP )
    CP^PRCAFUT 250+1
    CPHLP^PRCAFUT 250(HELP )
    CPTBL^PRCAFUT 250+1
    FUND^PRCAFUT 203+1
    CKSTAT^PRCAUT3 8+1
    UPATDS^PRCAUTL 9(XREF 3S), 9(XREF 3K)
    $$REC^RCAMFN01 200+1
    LOOKUP^RCBEUBI1 .01TPL+1
    ACCOUNT^RCTAS10I IXAMCCFSL+1
    RSC^RCXFMSUR 255+1
    AR^RCXVDEQ 10(XREF 1S), 14(XREF 2S), 60(XREF 3S), 64(XREF 2S), 68.2(XREF 1S), 68.3(XREF 1S), 68.4(XREF 1S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 3(XREF 1n1.4), 3(XREF 1n2.4), 8(XREF 3n1.4), 8(XREF 4n1.4)
    ^DD(430 3(XREF 1S), 3(XREF 1K), 8(XREF 3S), 8(XREF 4S), 125(XREF 1S), 125(XREF 1n1.1), 125(XREF 1K), 125(XREF 1n2.1), 125(XREF 2S), 125(XREF 2K)
    ^DD(430.2 IDWR1+1
    ^DD(430.3 IDWR4+1
    ^DIC(3.1 - [#3.1] 125(XREF 1n1.1), 125(XREF 1n2.1)
    ^PRCA(430 - [#430] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.1), 3(XREF 1n2.4), 7(XREF 1S)
    , 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3n1.3), 8(XREF 3n1.4), 8(XREF 3n69.2), 8(XREF 4S)
    , 8(XREF 4n1.4), 8(XREF 5S), 8(XREF 5K), 8(XREF 580000S), 8(XREF 580000K), 9(XREF 1S), 9(XREF 1K), 9(XREF 2S), 9(XREF 2K), 9(XREF 3S)
    , 9(XREF 3K), 10(XREF 580000S), 10(XREF 580000K), 11+1, 14(XREF 1S), 14(XREF 1K), 60(XREF 1S), 60(XREF 1K), 60(XREF 2S), 60(XREF 2K)
    , 64(XREF 1S), 64(XREF 1K), 69+1, 70+1, 125(XREF 1S), 125(XREF 1K), 125(XREF 2S), 125(XREF 2n1.4), 125(XREF 2K), 125(XREF 2n2.4)
    , 142(XREF 1S), 142(XREF 1K), 151(XREF 1S), 151(XREF 1K), 200+1, 266(XREF 1S), 266(XREF 1K), 301(XREF 1S), 301(XREF 1K)
    ^PRCA(430.2 - [#430.2] IDWR1+1, 7(XREF 1S)
    ^PRCA(430.3 - [#430.3] IDWR4+1, 8(XREF 3n1.3), 8(XREF 3n69.2)
    ^PRCA(430.6 - [#430.6] 4.5OT+1
    ^RCD(340 - [#340] IDWR3+1, 9(XREF 3S), 9(XREF 3K), 60(XREF 1S)
    ^VA(200 - [#200] 125(XREF 1n1.1), 125(XREF 1n2.1)

    Naked Globals

    Name Field # of Occurrence
    ^( 125(XREF 1n1.1), 125(XREF 1n2.1)
    ^(0 IDWR1+1, IDWR2+1, IDWR3+1, IDWR4+1, 3(XREF 1n2.1), 7(XREF 1S), 8(XREF 3n69.2), 8(XREF 4S), 8(XREF 4n1.4), 9(XREF 3S)
    , 9(XREF 3K), 125(XREF 1n1.1), 125(XREF 1n2.1)
    ^(12.1 125(XREF 1S), 125(XREF 1K), 125(XREF 2S), 125(XREF 2n1.4), 125(XREF 2K), 125(XREF 2n2.4)
    ^(6 8(XREF 3S), 8(XREF 3n1.4), 8(XREF 3n69.2), 9(XREF 3S), 9(XREF 3K), 69+1, 70+1
    ^(7 IDWR5+1, 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.4), 11+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % IDWR3+1*!, IDWR5+1*!, 8(XREF 3S), 125(XREF 1n1.1), 125(XREF 1n2.1), 125(XREF 2S), 125(XREF 2K)
    >> %DT .11+1*, .12+1*, .13+1*, 10+1*, 14+1*, 16+1*, 21+1*, 31+1*, 33+1*, 41+1*
    , 60+1*, 61+1*, 62+1*, 63+1*, 64+1*, 67+1*, 68+1*, 68.1+1*, 68.2+1*, 68.3+1*
    , 68.4+1*, 68.6+1*, 68.7+1*, 79.19+1*, 88+1*, 89+1*, 89.2+1*, 89.3+1*, 89.5+1*, 89.6+1*
    , 89.8+1*, 92+1*, 96+1*, 113+1*, 121+1*, 127+1*, 141+1*, 151+1*, 153+1*, 156+1*
    , 158+1*, 159.3+1*, 163+1*, 169.4+1*, 174+1*, 175+1*, 176+1*, 177+1*, 266+1*, 301+1*
    , 305+1*, 306+1*, 307+1*, 308+1*, 312+1*
    %H 125(XREF 2S), 125(XREF 2K)
    %I IDWR1+1*!, IDWR4+1*!, 125(XREF 2S), 125(XREF 2K)
    >> BOC 253+1
    >> C IDWR1+1*, IDWR4+1*
    >> CC 251+1
    >> CP 250+1*
    >> D0 3(XREF 1S), 3(XREF 1K), 3(XREF 1n2.1), 8(XREF 3S), 8(XREF 3n1.3), 8(XREF 3n69.2), 8(XREF 4S), 11+1, 69+1, 70+1
    , 125(XREF 1S), 125(XREF 1K), 125(XREF 2S), 125(XREF 2K), 200+1
    >> DA IXAMCCFSL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S)
    , 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3n1.3), 8(XREF 4S), 8(XREF 5S), 8(XREF 5K), 8(XREF 580000S), 8(XREF 580000K), 9(XREF 1S)
    , 9(XREF 1K), 9(XREF 2S), 9(XREF 2K), 9(XREF 3S), 9(XREF 3K), 10(XREF 580000S), 10(XREF 580000K), 14(XREF 1S), 14(XREF 1K), 60(XREF 1S)
    , 60(XREF 1K), 60(XREF 2S), 60(XREF 2K), 64(XREF 1S), 64(XREF 1K), 125(XREF 1S), 125(XREF 1K), 125(XREF 2S), 125(XREF 2K), 142(XREF 1S)
    , 142(XREF 1K), 151(XREF 1S), 151(XREF 1K), 266(XREF 1S), 266(XREF 1K), 301(XREF 1S), 301(XREF 1K)
    DIC IDWR1+1, IDWR4+1, 2+1!*, 4.5+1!*, 9+1!*, 13.1+1!*, 15.1+1!*, 107+1!*
    DIC("S" 2+1*, 2SCR+1*, 4.5+1*, 4.5SCR+1*, 8SCR+1*, 13.1+1*, 13.1SCR+1*, 15.1+1*, 15.1SCR+1*, 107+1*
    , 107SCR+1*
    >> DIE 2+1, 4.5+1, 9+1, 13.1+1, 15.1+1, 107+1
    >> DIG 3(XREF 1n1.4), 3(XREF 1n2.4), 8(XREF 3n1.4), 8(XREF 4n1.4), 125(XREF 1S), 125(XREF 1K), 125(XREF 2n1.4), 125(XREF 2n2.4)
    >> DIH 3(XREF 1n1.4), 3(XREF 1n2.4), 8(XREF 3n1.4), 8(XREF 4n1.4), 125(XREF 1S), 125(XREF 1K), 125(XREF 2n1.4), 125(XREF 2n2.4)
    >> DIU 3(XREF 1S), 3(XREF 1K), 8(XREF 3S), 8(XREF 4S), 125(XREF 1S), 125(XREF 1K), 125(XREF 2S), 125(XREF 2K)
    DIV 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.1), 3(XREF 1n2.4), 8(XREF 3S), 8(XREF 3n1.3), 8(XREF 3n1.4), 8(XREF 4S), 8(XREF 4n1.4)
    , 125(XREF 1S), 125(XREF 1n1.1), 125(XREF 1K), 125(XREF 1n2.1), 125(XREF 2S), 125(XREF 2n1.4), 125(XREF 2K), 125(XREF 2n2.4)
    DIV(0 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.4), 8(XREF 3n1.3), 8(XREF 3n1.4), 8(XREF 4S), 8(XREF 4n1.4), 125(XREF 1S), 125(XREF 1K)
    , 125(XREF 2S), 125(XREF 2n1.4), 125(XREF 2K), 125(XREF 2n2.4)
    DT 8(XREF 4S), 10+1, 69+1, 70+1
    DUZ 125(XREF 1n1.1), 125(XREF 1n2.1)
    >> FUND 203+1
    >> PRCABT 2+1, 2SCR+1
    >> PRCAOLD 8SCR+1
    >> PRCASV("STATUS" 8SCR+1
    U IDWR1+1, IDWR2+1, IDWR3+1, IDWR4+1, IDWR5+1, 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.1), 3(XREF 1n2.4)
    , 4.5OT+1, 8(XREF 3S), 8(XREF 3n1.4), 8(XREF 3n69.2), 8(XREF 4S), 8(XREF 4n1.4), 8(XREF 5S), 8(XREF 5K), 11+1, 14(XREF 1S)
    , 14(XREF 1K), 69+1, 70+1, 125(XREF 1S), 125(XREF 1n1.1), 125(XREF 1K), 125(XREF 1n2.1), 125(XREF 2S), 125(XREF 2n1.4), 125(XREF 2K)
    , 125(XREF 2n2.4), 203+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .11+1*!, .12+1*!, .13+1*!, 2+1*!, 3+1*!
    , 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.1), 3(XREF 1n2.4), 4+1!, 4.5+1*!, 7(XREF 1S), 7(XREF 1K), 8(XREF 1S)
    , 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3n1.3), 8(XREF 3n1.4), 8(XREF 3n69.2), 8(XREF 4S), 8(XREF 4n1.4), 8(XREF 5S)
    , 8(XREF 5K), 8(XREF 580000S), 9+1*!, 9(XREF 1S), 9(XREF 1K), 9(XREF 2S), 9(XREF 2K), 9(XREF 3S), 9(XREF 3K), 10+1*!
    , 10(XREF 580000S), 10(XREF 580000K), 11+1*, 13.1+1*!, 14+1*!, 14(XREF 1S), 14(XREF 1K), 15+1!, 15.1+1*!, 16+1*!
    , 18+1!, 20.1+1!, 21+1*!, 23+1!, 31+1*!, 33+1*!, 35+1*!, 36+1!, 37+1!, 41+1*!
    , 42+1!, 43+1*!, 44+1!, 60+1*!, 60(XREF 1S), 60(XREF 1K), 60(XREF 2S), 60(XREF 2K), 61+1*!, 62+1*!
    , 63+1*!, 64+1*!, 64(XREF 1S), 64(XREF 1K), 66+1*!, 67+1*!, 68+1*!, 68.1+1*!, 68.2+1*!, 68.3+1*!
    , 68.4+1*!, 68.5+1*!, 68.6+1*!, 68.7+1*!, 68.8+1*!, 68.9+1*!, 68.91+1*!, 68.92+1*!, 68.93+1*!, 68.95+1!
    , 69+1*, 70+1*, 71+1*!, 72+1*!, 73+1*!, 74+1*!, 75+1*!, 77+1*!, 78+1*!, 79+1*!
    , 79.1+1*!, 79.12+1*!, 79.13+1*!, 79.14+1*!, 79.15+1*!, 79.16+1*!, 79.17+1*!, 79.18+1*!, 79.19+1*!, 79.2+1*!
    , 81+1*!, 82+1*!, 83+1*!, 84+1*!, 85+1*!, 88+1*!, 89+1*!, 89.2+1*!, 89.3+1*!, 89.5+1*!
    , 89.6+1*!, 89.8+1*!, 91+1!, 92+1*!, 93+1!, 96+1*!, 104+1!, 107+1*!, 108+1!, 110+1!
    , 112+1!, 113+1*!, 114+1!, 121+1*!, 122+1*!, 123+1*!, 124+1*!, 125(XREF 1S), 125(XREF 1n1.1), 125(XREF 1K)
    , 125(XREF 1n2.1), 125(XREF 1n49.2), 125(XREF 1n59.2), 125(XREF 2S), 125(XREF 2n1.4), 125(XREF 2K), 125(XREF 2n2.4), 127+1*!, 131+1*!, 132+1*!
    , 141+1*!, 142(XREF 1S), 142(XREF 1K), 143+1!, 144+1!, 151+1*!, 153+1*!, 155+1*!, 156+1*!, 158+1*!
    , 159.1+1!, 159.3+1*!, 161+1!, 162+1!, 163+1*!, 164+1!, 165+1!, 166+1!, 167+1!, 168+1!
    , 169+1*!, 169.1+1*!, 169.2+1!, 169.4+1*!, 174+1*!, 175+1*!, 176+1*!, 177+1*!, 178+1!, 200+1*
    , 200.2+1!, 201+1!, 202+1!, 203+1*!, 205+1!, 206+1!, 239+1!, 241+1!, 242+1!, 243+1!
    , 244+1!, 245+1!, 246+1!, 247+1!, 248+1!, 249+1!, 250+1*!, 251+1*!, 252+1!, 253+1*!
    , 254+1!, 255.1+1!, 256+1!, 257+1!, 260+1!, 261+1!, 262+1!, 263+1!, 264+1!, 265+1!
    , 266+1*!, 266(XREF 1S), 266(XREF 1K), 301+1*!, 301(XREF 1S), 301(XREF 1K), 304+1*!, 305+1*!, 306+1*!, 307+1*!
    , 308+1*!, 310+1*!, 311+1*!, 312+1*!, 313+1!
    >> X1 69+1*, 70+1*
    >> X2 69+1*, 70+1*
    Y IDWR1+1*, IDWR4+1*, .11+1, .12+1, .13+1, 2+1, 3(XREF 1S), 3(XREF 1K), 4.5+1, 4.5OT+1*
    , 8(XREF 3S), 8(XREF 4S), 9+1, 10+1, 13.1+1, 14+1, 15.1+1, 16+1, 21+1, 31+1
    , 33+1, 41+1, 60+1, 61+1, 62+1, 63+1, 64+1, 67+1, 68+1, 68.1+1
    , 68.2+1, 68.3+1, 68.4+1, 68.6+1, 68.7+1, 79.19+1, 88+1, 89+1, 89.2+1, 89.3+1
    , 89.5+1, 89.6+1, 89.8+1, 91OT+1*, 92+1, 96+1, 107+1, 112OT+1*, 113+1, 121+1
    , 125(XREF 1S), 125(XREF 1K), 125(XREF 2S), 125(XREF 2K), 127+1, 141+1, 151+1, 153+1, 156+1, 158+1
    , 159.3+1, 163+1, 169.4+1, 174+1, 175+1, 176+1, 177+1, 266+1, 301+1, 305+1
    , 306+1, 307+1, 308+1, 312+1
    Y(0 4.5OT+1*, 8(XREF 3n1.3), 8(XREF 3n69.2), 91OT+1*, 112OT+1*
    Y(1 3(XREF 1S), 3(XREF 1K), 3(XREF 1n2.1), 8(XREF 3S), 8(XREF 3n69.2), 8(XREF 4S), 125(XREF 1S), 125(XREF 1K), 125(XREF 2S), 125(XREF 2K)
    Y(3 8(XREF 3n69.2)
    Y(430 11+1*, 69+1*, 70+1*
    >> Z1 8SCR+1*
    >> Z2 8SCR+1*
    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