Global: ^ACRDT

FileMan FileNo	FileMan Filename	Package
9002198.1	ARMS VENDOR DISCOUNT TERMS	Commitment Register

Package	Total	Routines
Commitment Register	1	ACRFDT

Package	Total	Routines
Commitment Register	2	ACRF16PS ACRFDT

Package	Total	FileMan Files
Utility Tables	1	VENDOR(#9999999.11)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	VENDOR	0;1	POINTER TO VENDOR FILE (#9999999.11)	**********************REQUIRED FIELD********************** VENDOR(#9999999.11) LAST EDITED: `DEC 01, 2004` HELP-PROMPT: `Enter the name of the vendor or contractor.` DESCRIPTION: Enter the name of the VENDOR or CONTRACTOR. CROSS-REFERENCE: `9002198.1^B` 1)= S ^ACRDT("B",$E(X,1,30),DA)="" 2)= K ^ACRDT("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002198.1^AC^MUMPS` 1)= S ACRX=$G(^ACRDT($G(DA),"DT")) I X,+ACRX S ^ACRDT("AC",X,+ACRX,DA)="" 2)= S ACRX=$G(^ACRDT(+$G(DA),"DT")) I X,+ACRX K ^ACRDT("AC",X,+ACRX,DA)
1	DAYS	DT;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 01, 2004` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: Enter the number of days for the discount terms. TECHNICAL DESCR: `Moved AC cross-reference to this field from the .01 field. At time of entry creation the DT node did not exist, so the AC cross-reference was not built. Moving the x-ref here fixes the problem. Effective ARMS patch 15.` Change made in development 12/2004. CROSS-REFERENCE: `9002198.1^AC^MUMPS` 1)= S ACRX=$G(^ACRDT(+$G(DA),0)) I +ACRX,X S ^ACRDT("AC",+ACRX,X,DA)="" 2)= S ACRX=$G(^ACRDT(+$G(DA),0)) I +ACRX,X K ^ACRDT("AC",+ACRX,X,DA)
2	PERCENT	DT;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `OCT 07, 1997` HELP-PROMPT: `Type a Number between 0 and 99, 2 Decimal Digits` DESCRIPTION: Enter the percent of the discount.

VENDOR

0;1

POINTER TO VENDOR FILE (#9999999.11)

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

DESCRIPTION:

Enter the name of the VENDOR or CONTRACTOR.

CROSS-REFERENCE: 9002198.1^B

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

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

CROSS-REFERENCE: 9002198.1^AC^MUMPS

1)= S ACRX=$G(^ACRDT($G(DA),"DT")) I X,+ACRX S ^ACRDT("AC",X,+ACRX,DA)=""

2)= S ACRX=$G(^ACRDT(+$G(DA),"DT")) I X,+ACRX K ^ACRDT("AC",X,+ACRX,DA)

DAYS

DT;1

NUMBER

DESCRIPTION:

Enter the number of days for the discount terms.

TECHNICAL DESCR: Moved AC cross-reference to this field from the .01 field. At time of entry creation the DT node did not exist, so the AC cross-reference was not built. Moving the x-ref here fixes the problem. Effective ARMS patch 15.
```
Change made in development 12/2004.
```

CROSS-REFERENCE: 9002198.1^AC^MUMPS

1)= S ACRX=$G(^ACRDT(+$G(DA),0)) I +ACRX,X S ^ACRDT("AC",+ACRX,X,DA)=""

2)= S ACRX=$G(^ACRDT(+$G(DA),0)) I +ACRX,X K ^ACRDT("AC",+ACRX,X,DA)

PERCENT

DT;2

NUMBER

Information