Sub-Field: 1440069.05

Parent File	Name	Number	Package
1440069.03	PAYMENT DATE	1440069.05	Uncategorized

Parent File

Name

Number

Package

PAYMENT DATE

1440069.05

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PAYMENT DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 1990` DELETE AUTHORITY: D CROSS-REFERENCE: `1440069.05^B` 1)= S ^AZCM(1440069,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AZCM(1440069,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1	AMT PAID	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-1500) X` LAST EDITED: `SEP 30, 1991` HELP-PROMPT: `Type a Dollar Amount between -1500 and 9999999, 2 Decimal Digits` AUDIT: `YES, ALWAYS` DELETE AUTHORITY: D

PAYMENT DATE

0;1

DATE

CROSS-REFERENCE: 1440069.05^B

1)= S ^AZCM(1440069,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""

2)= K ^AZCM(1440069,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)

AMT PAID

0;2

NUMBER

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

INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-1500) X
LAST EDITED: SEP 30, 1991
HELP-PROMPT: Type a Dollar Amount between -1500 and 9999999, 2 Decimal Digits
AUDIT: YES, ALWAYS
```
DELETE AUTHORITY: D
```