Sub-Field: 344.54

Parent File	Name	Number	Package
AR EDI LOCKBOX MESSAGES(#344.5)	BILL REFERENCE	344.54	Accounts Receivable

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	BILL REFERENCE	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 24, 2002` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is a bill included in this ERA record.` CROSS-REFERENCE: `344.54^B` `1)= S ^RCY(344.5,DA(1),"B","B",$E(X,1,30),DA)=""` `2)= K ^RCY(344.5,DA(1),"B","B",$E(X,1,30),DA)`
.02	FOUND IN AR BILL FILE	0;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 23, 2002` HELP-PROMPT: `Enter a 1 if this bill can be found in the VistA AR bill file.` DESCRIPTION: `This indicates whether or not the referenced bill exists at the VistA site.` FIELD INDEX: `AV (#296) REGULAR IR SORTING ONLY` `Short Descr: Cross reference on valid bills in the ERA` `Set Logic: S ^RCY(344.5,DA(1),"B","AV",X,DA)=""` `Set Cond: I X=1` `Kill Logic: K ^RCY(344.5,DA(1),"B","AV",X,DA)` `Whole Kill: K ^RCY(344.5,DA(1),"B","AV")` `X(1): FOUND IN AR BILL FILE (344.54,.02) (Subscr 1) (forwards)`

BILL REFERENCE

0;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: SEP 24, 2002
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
This is a bill included in this ERA record.
CROSS-REFERENCE: 344.54^B
1)= S ^RCY(344.5,DA(1),"B","B",$E(X,1,30),DA)=""
2)= K ^RCY(344.5,DA(1),"B","B",$E(X,1,30),DA)

FOUND IN AR BILL FILE

0;2

SET

LAST EDITED: SEP 23, 2002
HELP-PROMPT: Enter a 1 if this bill can be found in the VistA AR bill file.
DESCRIPTION:
This indicates whether or not the referenced bill exists at the VistA site.
FIELD INDEX: AV (#296) REGULAR IR SORTING ONLY
Short Descr: Cross reference on valid bills in the ERA
Set Logic: S ^RCY(344.5,DA(1),"B","AV",X,DA)=""
Set Cond: I X=1
Kill Logic: K ^RCY(344.5,DA(1),"B","AV",X,DA)
Whole Kill: K ^RCY(344.5,DA(1),"B","AV")
X(1): FOUND IN AR BILL FILE (344.54,.02) (Subscr 1) (forwards)