Global: ^ACR1099C

FileMan FileNo	FileMan Filename	Package
9002198.4	ARMS 1099 AMOUNT CODES	Commitment Register

Package	Total	FileMan Files
Commitment Register	1	ARMS 1099 VENDOR(#9002198.2)[.02]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `JAN 21, 1999` HELP-PROMPT: `The payment amount code. Answer must be 1 character in length.` CROSS-REFERENCE: `9002198.4^B` 1)= S ^ACR1099C("B",$E(X,1,30),DA)="" 2)= K ^ACR1099C("B",$E(X,1,30),DA)
.02	NAME	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `FEB 22, 1999` HELP-PROMPT: `Answer must be 1-70 characters in length.` CROSS-REFERENCE: `9002198.4^C` 1)= S ^ACR1099C("C",$E(X,1,30),DA)="" 2)= K ^ACR1099C("C",$E(X,1,30),DA)
.03	1099 REPORTING ELIG CODE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `FEB 22, 1999` HELP-PROMPT: `Treasury 1099 Reporting Eligibility Code. Answer must be 1 character in length.` DESCRIPTION: `1099 Reporting Eligibility code. Used in ECS files sent to Treasury. See document 'Electronic Certification System Formats and Notes for Mainframe Alternate Data Entry Methods for ECS Production PC' dated October 26,` 1998, page A-7.

CODE

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002198.4^B

1)= S ^ACR1099C("B",$E(X,1,30),DA)=""

2)= K ^ACR1099C("B",$E(X,1,30),DA)

NAME

0;2

FREE TEXT

CROSS-REFERENCE: 9002198.4^C

1)= S ^ACR1099C("C",$E(X,1,30),DA)=""

2)= K ^ACR1099C("C",$E(X,1,30),DA)

1099 REPORTING ELIG CODE

0;3

FREE TEXT

INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: FEB 22, 1999
HELP-PROMPT: Treasury 1099 Reporting Eligibility Code. Answer must be 1 character in length.
DESCRIPTION: 1099 Reporting Eligibility code. Used in ECS files sent to Treasury. See document 'Electronic Certification System Formats and Notes for Mainframe Alternate Data Entry Methods for ECS Production PC' dated October 26,
```
1998, page A-7.
```