STANDARD DATA DICTIONARY #348.1 -- BAD DEBT ALLOWANCE FILE 9/29/25 PAGE 1
STORED IN ^RC(348.1, (3 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to store figures used in the bad debt allowance calculation.
Per VHA Directive 10-93-142, this file definition should not be modified.
CROSS
REFERENCED BY: SGL ACCOUNT(B)
348.1,.01 SGL ACCOUNT 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'(X?4AN) X
LAST EDITED: MAR 19, 2004
HELP-PROMPT: Answer must be 4 alpha-numeric characters in length.
DESCRIPTION:
This is the Standard General Ledger (SGL) Account.
CROSS-REFERENCE: 348.1^B
1)= S ^RC(348.1,"B",$E(X,1,30),DA)=""
2)= K ^RC(348.1,"B",$E(X,1,30),DA)
348.1,.02 COLLECTION % 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 30, 1994
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION: This is calculated by Total Principal Payments for bills in base period/ Total bill amount for
bills in base period.
348.1,.03 WRITE-OFF % 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 30, 1994
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION: This is calculated by Total Write-offs for bills in base period/ Total bill amount for bills in
base period.
348.1,.04 CONTRACTUAL ADJUSTMENT % 0;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 30, 1994
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION: This is calculated by Total Contract Adjustments for bills in base period/ Total bill amount for
bills in base period.
348.1,.05 CANCELLATION % 0;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 30, 1994
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION: This is calculated by Total Decrease Adjustments for bills in base period/ Total bill amount for
bills in base period. Note: Contract adjustments and Write-offs not included here.
348.1,.06 PENDING DISPOSITION % 0;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 30, 1994
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This is calculated by summing fields .02,.03,.04, and .05 and subtracting the total from 100.
348.1,.07 CURRENT RECEIVABLES 0;7 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
LAST EDITED: JAN 28, 1998
HELP-PROMPT: Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits
DESCRIPTION:
This field stores the current months receivables.
348.1,.08 ALLOWANCE ESTIMATE 0;8 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
LAST EDITED: JAN 28, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
DESCRIPTION:
This is the estimated write-off amount for the current month.
348.1,.09 ACTUAL WRITE-OFFS FYTD 0;9 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
LAST EDITED: JAN 28, 1998
HELP-PROMPT: Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits
DESCRIPTION:
This field stores the actual write-offs for the fiscal year.
348.1,.1 CHANGED LOCALLY ? 0;10 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 28, 1998
DESCRIPTION: This field is a flag to indicate if the site has changed the calculated value for the ALLOWANCE
ESTIMATE (field # .08).
348.1,.11 CONT. ADJ. CODESHEET AMT. 0;11 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
LAST EDITED: APR 11, 1996
HELP-PROMPT: Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits
DESCRIPTION: This field is the amount sent on the allowance document (SV27) to FMS. It is calculated by adding
the current monthly estimate (#.1) and the actual contract adjustment amount (#.14) and subtracting
the previous estimate amount (#.09).
348.1,.12 WRITE OFF CODESHEET AMT. 0;12 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
LAST EDITED: APR 11, 1996
HELP-PROMPT: Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits
DESCRIPTION: This field is the amount sent on the allowance document (SV23) to FMS. It is calculated by adding
the current monthly estimate (#.08) and the actual contract adjustment amount (#.13) and
subtracting the previous estimate amount (#.07).
348.1,.13 CURR. ACT. WO AMOUNT 0;13 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
LAST EDITED: APR 16, 1996
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
DESCRIPTION:
This is the write-off amount that was calculated by the FMS data collector on the 1st of the month.
348.1,.14 CURR. ACT. CA AMOUNT 0;14 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
LAST EDITED: APR 16, 1996
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
DESCRIPTION: This is the amount of contract adjustments that were calculated on the 1st of the month by the FMS
data collector.
348.1,.15 CURRENT TRANSMISSION DATE 0;15 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 15, 1996
DESCRIPTION: This will set the date of the last transmission to Austin. It should be used only as a
trouble-shooting tool to determine if the FMS data collector ran.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):