Sub-Field: 9002188.112

Parent File	Name	Number	Package
9002188.11	REFERENCE CODE	9002188.112	Commitment Register

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	REFERENCE CODE	0;1	POINTER TO REFERENCE CODE FILE (#9999999.63)	REFERENCE CODE(#9999999.63) INPUT TRANSFORM: `S:$D(X) DINUM=X Q` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the DOCUMENT REFERENCE CODE from the list.` DESCRIPTION: Enter the document reference code. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002188.112^B` 1)= S ^ACRDEPT(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ACRDEPT(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.02	LAST NUMBER USED	0;2	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: Enter the LAST NUMBER USED for this REFERENCE CODE in this FISCAL YEAR.

REFERENCE CODE

0;1

POINTER TO REFERENCE CODE FILE (#9999999.63)

CROSS-REFERENCE: 9002188.112^B

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

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

LAST NUMBER USED

0;2

NUMBER

DESCRIPTION:

Enter the LAST NUMBER USED for this REFERENCE CODE in this FISCAL YEAR.