Sub-Field: 9002325.01

Parent File	Name	Number	Package
1166 APPROVALS FOR PAYMENT(#9002325)	BATCH	9002325.01	3780 Telecommunications

Field #	Name	Loc	Type	Details
.01	BATCH	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6) X` LAST EDITED: `MAR 30, 1993` HELP-PROMPT: `Answer must be 6 characters in length. This is the local Batch number.` DESCRIPTION: Answer must be 6 characters in length. TECHNICAL DESCR: 6-CHARACTERS.. 2 DIGIT ACCTG. POINT + 4 DIGIT SEQUENCE NUMBER CROSS-REFERENCE: `9002325.01^B` 1)= S ^AFSLAFP(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AFSLAFP(DA(1),1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9002325^L` 1)= S ^AFSLAFP("L",$E(X,1,30),DA(1),DA)="" 2)= K ^AFSLAFP("L",$E(X,1,30),DA(1),DA)
.04	VENDOR/TRAVEL BATCH	0;4	SET	'V' FOR VENDOR; 'T' FOR TRAVEL; LAST EDITED: `MAY 04, 1998` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter the appropriate code from the list.
1	SCHEDULE DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 10, 1992` HELP-PROMPT: `THE DATE THIS BATCH CREATED.` DESCRIPTION: DATE THIS BATCH CREATED. TECHNICAL DESCR: DATE THIS BATCH CREATED.
2	CERT POINTER	0;3	POINTER TO AN UNDEFINED FILE	LAST EDITED: `JAN 09, 1992` HELP-PROMPT: `CERTIFYING OFFICER OWNING BATCH.` DESCRIPTION: CERTIFYING OFFICER OWNING THIS BATCH. TECHNICAL DESCR: CERTIFYING OFFICER (NEW PERSON FILE) OWING BATCH. CROSS-REFERENCE: `9002325^C` 1)= S ^AFSLAFP("C",$E(X,1,30),DA(1),DA)="" 2)= K ^AFSLAFP("C",$E(X,1,30),DA(1),DA)
3	DUE DATE	2;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 1992` HELP-PROMPT: `EARLIEST DATE OF BATCH ENTRIES DUE TO VENDOR/EMPLOYEE` DESCRIPTION: EARLIEST DATE BATCH ENTRIES DUE TO VENDOR/EMPLOYEE TECHNICAL DESCR: ENTERED. EARLIEST DATE BATCH ENTRIES DUE TO VENDOR/EMPLOYEE CROSS-REFERENCE: `9002325^J` 1)= S ^AFSLAFP("J",$E(X,1,30),DA(1),DA)="" 2)= K ^AFSLAFP("J",$E(X,1,30),DA(1),DA)
4	CERTIFIED DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 19, 1997` HELP-PROMPT: `DATE BATCH WAS CERTIFIED` DESCRIPTION: DATE BATCH WAS CERTIFIED TECHNICAL DESCR: DATE BATCH WAS CERTIFIED CROSS-REFERENCE: `9002325^CERT2` 1)= Q 2)= K ^AFSLAFP("CERT","C",DA(1),DA) 3)= DO NOT DELETE Used to identify batches which are ready for certification. CROSS-REFERENCE: `9002325^EXPORT^MUMPS` 1)= I '$P($G(^AFSLAFP(DA(1),1,DA,2)),U) S ^AFSLAFP("EXPORT",DA(1),DA)="" 2)= Q CROSS-REFERENCE: `9002325^R` 1)= S ^AFSLAFP("R",$E(X,1,30),DA(1),DA)="" 2)= K ^AFSLAFP("R",$E(X,1,30),DA(1),DA)
5	EXPORT DATE	2;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 31, 1998` HELP-PROMPT: `DATE BATCH WAS EXPORTED` DESCRIPTION: DATE BATCH WAS EXPORTED TECHNICAL DESCR: DATE BATCH WAS EXPORTED CROSS-REFERENCE: `9002325.01^E` 1)= S ^AFSLAFP(DA(1),1,"E",$E(X,1,30),DA)="" 2)= K ^AFSLAFP(DA(1),1,"E",$E(X,1,30),DA) CROSS-REFERENCE: `9002325^EXPORT2^MUMPS` 1)= I X K ^AFSLAFP("EXPORT",DA(1),DA) 2)= Q CROSS-REFERENCE: `9002325^EXP` 1)= S ^AFSLAFP("EXP",$E(X,1,30),DA(1),DA)="" 2)= K ^AFSLAFP("EXP",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `9002325^CERT3^MUMPS` 1)= I X,DA,DA(1) K ^AFSLAFP("CERT","C",DA(1),DA) 2)= Q
6	OPEN/CLOSED	2;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1"C"!(X?1"O")) X` LAST EDITED: `JAN 14, 2000` HELP-PROMPT: `Enter "O" if Open, "C" if Closed.` DESCRIPTION: Enter "O" if open, "C" if closed. TECHNICAL DESCR: O:OPEN, C:CLOSED AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `9002325^K` 1)= S ^AFSLAFP("K",$E(X,1,30),DA(1),DA)="" 2)= K ^AFSLAFP("K",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `9002325^CERT` 1)= I X="C",$P($G(^AFSLAFP(DA(1),1,DA,0)),U,5)="" S ^AFSLAFP("CERT","C",DA(1),DA)="" 2)= K ^AFSLAFP("CERT","C",DA(1),DA) 3)= DO NOT DELETE Used to identify batches which are ready for certification. CROSS-REFERENCE: `9002325.01^EXPD^MUMPS` 1)= I X="O" K ^AFSLAFP("EXPORT",DA(1),DA) 2)= Q Kills the EXPORT crossreference when batches are re-opened to prevent them from appearing in the export queue.
7	EXPORTED(Y/N)	2;4	SET	'1' FOR Y; '0' FOR N; LAST EDITED: `APR 01, 1992` HELP-PROMPT: `ENTER 1 TO INDICATE EXPORTED OR 0 TO INDICATE NOT EXPORTED` DESCRIPTION: Y:HAS BEEN EXPORTED, N/BLANK:HAS NOT YET BEEN EXPORTED TECHNICAL DESCR: Y:HAS BEEN EXPORTED, N/BLANK:HAS NOT YET BEEN EXPORTED CROSS-REFERENCE: `9002325^ME^MUMPS` 1)= I $D(AFSLFYN),$D(AFSLG),AFSLFYN]"",AFSLG]"" S ^AFSLAFP("ME",AFSLFYN,AFSLG)="" 2)= I $D(AFSLFYN),$D(AFSLG) K ^AFSLAFP("ME",AFSLFYN,AFSLG) 3)= DELETION OF THIS CROSS REFERENCE CAN CAUSE PROBLEMS WITH EXPORT OPTION THIS CROSS-REFERENCE GETS SET WHEN SCHEDULES ARE SELECTED FOR EXPORT.
8	ACCOUNTING TECH	2;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 29, 1992` HELP-PROMPT: `ACCTG TECH CREATING/EDITING BATCH` DESCRIPTION: ACCTG TECHNICIAN CREATING/EDITING BATCH TECHNICAL DESCR: ACCTG TECH (NEW PERSON FILE) CREATING/EDITING BATCH
9	EXPORT BY DATE		COMPUTED DATE	MUMPS CODE: `S Y(9002325.01,9,1)=$S($D(^AFSLAFP(D0,1,D1,2)):^(2),1:"") S X=$P(Y(9002325.01,9,1),U,2),X1=X,X2=-0,X="" D C^%DTC:X1` ALGORITHM: `DUE DATE-0` LAST EDITED: `MAR 03, 1997` DESCRIPTION: COMPUTED...DUE DATE - 0 DAYS BY WHICH MUST BE EXPORTED. TECHNICAL DESCR: COMPUTED...DUE DATE - 0 DAYS BY WHICH MUST BE EXPORTED TO MEET DUE DATE.
10	TREASURY SCHEDULE ASSIGNED	2;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<6) X` LAST EDITED: `OCT 31, 2000` HELP-PROMPT: `Answer must be 6-10 characters in length.` DESCRIPTION: Answer must be 6 numeric characters in length. TECHNICAL DESCR: TREASURY SCHED# TO WHICH BATCH IS ASSIGNED. CROSS-REFERENCE: `9002325^M` 1)= I $D(DA(1)),$D(DA) S ^AFSLAFP("M",$E(X,1,30),DA(1),DA)="" 2)= I $D(DA(1)),$D(DA) K ^AFSLAFP("M",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `9002325.01^F` 1)= S ^AFSLAFP(DA(1),1,"F",$E(X,1,30),DA)="" 2)= K ^AFSLAFP(DA(1),1,"F",$E(X,1,30),DA)
11	LOCATION	2;7	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `AUG 07, 1992` HELP-PROMPT: `LOCATION WHERE BATCH CREATED` DESCRIPTION: LOCATION (DUZ(0)) WHERE BATCH CREATED TECHNICAL DESCR: LOCATION (DUZ(0)) WHERE BATCH CREATED
20	SEQUENCE NO	1;0	Multiple #9002325.02	9002325.02
21	TOT-DOL		COMPUTED	MUMPS CODE: `X ^DD(9002325.01,21,9.3) S X=Y(9002325.01,21,103) S D0=Y(9002325.01,21,80) S D1=Y(9002325.01,21,81) S D2=Y(9002325.01,21,82) S X=$J(X,0,2)` 9.2 = S Y(9002325.01,21,80)=$S($D(D0):D0,1:""),Y(9002325.01,21,81)=$S($D(D1):D1,1:""),Y(9002325.01,21,82)=$S($D(D2):D2,1:""),Y(9002325.01,21,103)="" 9.3 = X ^DD(9002325.01,21,9.2) X "F D2=0:0 S D2=$O(^AFSLAFP(D0,1,D1,1,D2)) Q:D2'>0 S Y(9002325.01,21,103)=Y(9002325.01,21,103)+$S($D(^(D2,0)):$P(^(0),U,11),1:"""")" S D(2)=D2 ALGORITHM: `TOTAL(SEQUENCE NO:DOL-AMT) (ALWAYS 2 DECIMAL DIGITS)` LAST EDITED: `FEB 21, 1997`
22	SCHEDULE FORMAT	2;8	SET	LAST EDITED: `JUN 08, 2001` HELP-PROMPT: `Enter 'T' or 'A' or 'B' or 'C' or 'N' or 'G'`
23	DHR FILENAME	2;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>14!($L(X)<3) X` LAST EDITED: `JAN 17, 1997` HELP-PROMPT: `Answer must be 3-14 characters in length.` DESCRIPTION: Name of DHR Export-file.
24	TREA FILENAME	2;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>14!($L(X)<3) X` LAST EDITED: `JAN 17, 1997` HELP-PROMPT: `Answer must be 3-14 characters in length.` DESCRIPTION: Name of Treasury Export-file.
25	ECS FILE	2;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 17, 1998` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Enter the ECS FILE name. CROSS-REFERENCE: `9002325.01^G` 1)= S ^AFSLAFP(DA(1),1,"G",$E(X,1,30),DA)="" 2)= K ^AFSLAFP(DA(1),1,"G",$E(X,1,30),DA)

Field #

Name

Loc

Type

Details

.01

BATCH

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6) X
LAST EDITED: MAR 30, 1993
HELP-PROMPT: Answer must be 6 characters in length. This is the local Batch number.
DESCRIPTION:
```
Answer must be 6 characters in length.
```

TECHNICAL DESCR:

6-CHARACTERS.. 2 DIGIT ACCTG. POINT + 4 DIGIT SEQUENCE NUMBER

CROSS-REFERENCE: 9002325.01^B

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

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

CROSS-REFERENCE: 9002325^L

1)= S ^AFSLAFP("L",$E(X,1,30),DA(1),DA)=""

2)= K ^AFSLAFP("L",$E(X,1,30),DA(1),DA)

.04

VENDOR/TRAVEL BATCH

0;4

SET

'V' FOR VENDOR;
'T' FOR TRAVEL;

LAST EDITED: MAY 04, 1998
HELP-PROMPT: Enter the appropriate code from the list.

DESCRIPTION:

Enter the appropriate code from the list.

1

SCHEDULE DATE

0;2

DATE

INPUT TRANSFORM: S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 10, 1992
HELP-PROMPT: THE DATE THIS BATCH CREATED.
DESCRIPTION:
```
DATE THIS BATCH CREATED.
```
TECHNICAL DESCR:
```
DATE THIS BATCH CREATED.
```

2

CERT POINTER

0;3

POINTER ** TO AN UNDEFINED FILE **

LAST EDITED: JAN 09, 1992
HELP-PROMPT: CERTIFYING OFFICER OWNING BATCH.
DESCRIPTION:
```
CERTIFYING OFFICER OWNING THIS BATCH.
```

TECHNICAL DESCR:

CERTIFYING OFFICER (NEW PERSON FILE) OWING BATCH.

CROSS-REFERENCE: 9002325^C

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

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

3

DUE DATE

2;2

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 17, 1992
HELP-PROMPT: EARLIEST DATE OF BATCH ENTRIES DUE TO VENDOR/EMPLOYEE

DESCRIPTION:

EARLIEST DATE BATCH ENTRIES DUE TO VENDOR/EMPLOYEE

TECHNICAL DESCR:

ENTERED. EARLIEST DATE BATCH ENTRIES DUE TO VENDOR/EMPLOYEE

CROSS-REFERENCE: 9002325^J

1)= S ^AFSLAFP("J",$E(X,1,30),DA(1),DA)=""

2)= K ^AFSLAFP("J",$E(X,1,30),DA(1),DA)

4

CERTIFIED DATE

0;5

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 19, 1997
HELP-PROMPT: DATE BATCH WAS CERTIFIED
DESCRIPTION:
```
DATE BATCH WAS CERTIFIED
```
TECHNICAL DESCR:
```
DATE BATCH WAS CERTIFIED
```

CROSS-REFERENCE: 9002325^CERT2

1)= Q

2)= K ^AFSLAFP("CERT","C",DA(1),DA)

3)= DO NOT DELETE

Used to identify batches which are ready for certification.

CROSS-REFERENCE: 9002325^EXPORT^MUMPS

1)= I '$P($G(^AFSLAFP(DA(1),1,DA,2)),U) S ^AFSLAFP("EXPORT",DA(1),DA)=""

2)= Q

CROSS-REFERENCE: 9002325^R

1)= S ^AFSLAFP("R",$E(X,1,30),DA(1),DA)=""

2)= K ^AFSLAFP("R",$E(X,1,30),DA(1),DA)

5

EXPORT DATE

2;1

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 31, 1998
HELP-PROMPT: DATE BATCH WAS EXPORTED
DESCRIPTION:
```
DATE BATCH WAS EXPORTED
```
TECHNICAL DESCR:
```
DATE BATCH WAS EXPORTED
```

CROSS-REFERENCE: 9002325.01^E

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

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

CROSS-REFERENCE: 9002325^EXPORT2^MUMPS

1)= I X K ^AFSLAFP("EXPORT",DA(1),DA)

2)= Q

CROSS-REFERENCE: 9002325^EXP

1)= S ^AFSLAFP("EXP",$E(X,1,30),DA(1),DA)=""

2)= K ^AFSLAFP("EXP",$E(X,1,30),DA(1),DA)

CROSS-REFERENCE: 9002325^CERT3^MUMPS

1)= I X,DA,DA(1) K ^AFSLAFP("CERT","C",DA(1),DA)

2)= Q

6

OPEN/CLOSED

2;3

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1"C"!(X?1"O")) X
LAST EDITED: JAN 14, 2000
HELP-PROMPT: Enter "O" if Open, "C" if Closed.
DESCRIPTION:
```
Enter "O" if open, "C" if closed.
```
TECHNICAL DESCR:
```
O:OPEN, C:CLOSED
```
AUDIT: YES, ALWAYS

CROSS-REFERENCE: 9002325^K

1)= S ^AFSLAFP("K",$E(X,1,30),DA(1),DA)=""

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

CROSS-REFERENCE: 9002325^CERT

1)= I X="C",$P($G(^AFSLAFP(DA(1),1,DA,0)),U,5)="" S ^AFSLAFP("CERT","C",DA(1),DA)=""

2)= K ^AFSLAFP("CERT","C",DA(1),DA)

3)= DO NOT DELETE

Used to identify batches which are ready for certification.

CROSS-REFERENCE: 9002325.01^EXPD^MUMPS

1)= I X="O" K ^AFSLAFP("EXPORT",DA(1),DA)

2)= Q

Kills the EXPORT crossreference when batches are re-opened to prevent them from appearing in the export queue.

7

EXPORTED(Y/N)

2;4

SET

'1' FOR Y;
'0' FOR N;

LAST EDITED: APR 01, 1992
HELP-PROMPT: ENTER 1 TO INDICATE EXPORTED OR 0 TO INDICATE NOT EXPORTED

DESCRIPTION:

Y:HAS BEEN EXPORTED, N/BLANK:HAS NOT YET BEEN EXPORTED

TECHNICAL DESCR:

Y:HAS BEEN EXPORTED, N/BLANK:HAS NOT YET BEEN EXPORTED

CROSS-REFERENCE: 9002325^ME^MUMPS

1)= I $D(AFSLFYN),$D(AFSLG),AFSLFYN]"",AFSLG]"" S ^AFSLAFP("ME",AFSLFYN,AFSLG)=""

2)= I $D(AFSLFYN),$D(AFSLG) K ^AFSLAFP("ME",AFSLFYN,AFSLG)

3)= DELETION OF THIS CROSS REFERENCE CAN CAUSE PROBLEMS WITH EXPORT OPTION

THIS CROSS-REFERENCE GETS SET WHEN SCHEDULES ARE SELECTED FOR EXPORT.

8

ACCOUNTING TECH

2;5

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: APR 29, 1992
HELP-PROMPT: ACCTG TECH CREATING/EDITING BATCH
DESCRIPTION:
```
ACCTG TECHNICIAN CREATING/EDITING BATCH
```

TECHNICAL DESCR:

ACCTG TECH (NEW PERSON FILE) CREATING/EDITING BATCH

9

EXPORT BY DATE

COMPUTED DATE

MUMPS CODE: S Y(9002325.01,9,1)=$S($D(^AFSLAFP(D0,1,D1,2)):^(2),1:"") S X=$P(Y(9002325.01,9,1),U,2),X1=X,X2=-0,X="" D C^%DTC:X1
ALGORITHM: DUE DATE-0
LAST EDITED: MAR 03, 1997

DESCRIPTION:

COMPUTED...DUE DATE - 0 DAYS BY WHICH MUST BE EXPORTED.

TECHNICAL DESCR:

COMPUTED...DUE DATE - 0 DAYS BY WHICH MUST BE EXPORTED TO MEET DUE DATE.

10

TREASURY SCHEDULE ASSIGNED

2;6

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<6) X
LAST EDITED: OCT 31, 2000
HELP-PROMPT: Answer must be 6-10 characters in length.

DESCRIPTION:

Answer must be 6 numeric characters in length.

TECHNICAL DESCR:

TREASURY SCHED# TO WHICH BATCH IS ASSIGNED.

CROSS-REFERENCE: 9002325^M

1)= I $D(DA(1)),$D(DA) S ^AFSLAFP("M",$E(X,1,30),DA(1),DA)=""

2)= I $D(DA(1)),$D(DA) K ^AFSLAFP("M",$E(X,1,30),DA(1),DA)

CROSS-REFERENCE: 9002325.01^F

1)= S ^AFSLAFP(DA(1),1,"F",$E(X,1,30),DA)=""

2)= K ^AFSLAFP(DA(1),1,"F",$E(X,1,30),DA)

11

LOCATION

2;7

POINTER TO LOCATION FILE (#9999999.06)

LOCATION(#9999999.06)

LAST EDITED: AUG 07, 1992
HELP-PROMPT: LOCATION WHERE BATCH CREATED
DESCRIPTION:
```
LOCATION (DUZ(0)) WHERE BATCH CREATED
```
TECHNICAL DESCR:
```
LOCATION (DUZ(0)) WHERE BATCH CREATED
```

20

SEQUENCE NO

1;0

Multiple #9002325.02

9002325.02

21

TOT-DOL

COMPUTED

MUMPS CODE: X ^DD(9002325.01,21,9.3) S X=Y(9002325.01,21,103) S D0=Y(9002325.01,21,80) S D1=Y(9002325.01,21,81) S D2=Y(9002325.01,21,82) S X=$J(X,0,2)

9.2 = S Y(9002325.01,21,80)=$S($D(D0):D0,1:""),Y(9002325.01,21,81)=$S($D(D1):D1,1:""),Y(9002325.01,21,82)=$S($D(D2):D2,1:""),Y(9002325.01,21,103)=""

9.3 = X ^DD(9002325.01,21,9.2) X "F D2=0:0 S D2=$O(^AFSLAFP(D0,1,D1,1,D2)) Q:D2'>0  S Y(9002325.01,21,103)=Y(9002325.01,21,103)+$S($D(^(D2,0)):$P(^(0),U,11),1:"""")" S D(2)=D2

ALGORITHM: TOTAL(SEQUENCE NO:DOL-AMT) (ALWAYS 2 DECIMAL DIGITS)
LAST EDITED: FEB 21, 1997

22

SCHEDULE FORMAT

2;8

SET

LAST EDITED: JUN 08, 2001
HELP-PROMPT: Enter 'T' or 'A' or 'B' or 'C' or 'N' or 'G'

23

DHR FILENAME

2;9

FREE TEXT

INPUT TRANSFORM: K:$L(X)>14!($L(X)<3) X
LAST EDITED: JAN 17, 1997
HELP-PROMPT: Answer must be 3-14 characters in length.
DESCRIPTION:
```
Name of DHR Export-file.
```

24

TREA FILENAME

2;10

FREE TEXT

INPUT TRANSFORM: K:$L(X)>14!($L(X)<3) X
LAST EDITED: JAN 17, 1997
HELP-PROMPT: Answer must be 3-14 characters in length.
DESCRIPTION:
```
Name of Treasury Export-file.
```

25

ECS FILE

2;11

FREE TEXT

INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: APR 17, 1998
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
```
Enter the ECS FILE name.
```

CROSS-REFERENCE: 9002325.01^G

1)= S ^AFSLAFP(DA(1),1,"G",$E(X,1,30),DA)=""

2)= K ^AFSLAFP(DA(1),1,"G",$E(X,1,30),DA)

Customize PDF page

Package: 3780 Telecommunications

1166 APPROVALS FOR PAYMENT(#9002325)-->9002325.01

Sub-Field: 9002325.01

Information

Details