Global: ^ECT(731.7

FileMan FileNo	FileMan Filename	Package
731.7	VAMC STAFFING	Interim Management Support

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Interim Management Support	4	ECTPP ECTPRPT SERVICE ^ECT(731.7

Package	Total	Routines
Interim Management Support	2	ECTPP ECTPRPT

Package	Total	FileMan Files
Interim Management Support	1	NATIONAL SERVICE(#730)[#731.701(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PAY PERIOD	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DINUM=X` LAST EDITED: `OCT 16, 1990` HELP-PROMPT: `Answer must be 5 characters in length.` DESCRIPTION: `This field contains the year/pay period in the form of the first three characters being the VA FileMan year (i.e., 290 for 1990) and the next two characters being the pay period (01 to 27).` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `731.7^B` `1)= S ^ECT(731.7,"B",$E(X,1,30),DA)=""` `2)= K ^ECT(731.7,"B",$E(X,1,30),DA)`
1	DATE ENDING	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter last day of the pay period.` DESCRIPTION: `Enter the month, day, and year of the last day of the pay period.`
10	SERVICE	1;0	POINTER Multiple #731.701	731.701 DESCRIPTION: `Service is a pointer to the National Service file. Choose the service for which staffing data is to be entered.`

PAY PERIOD

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DINUM=X
LAST EDITED: OCT 16, 1990
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This field contains the year/pay period in the form of the first three characters being the VA FileMan year (i.e., 290 for 1990) and the next two characters being the pay period (01 to 27).
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 731.7^B
1)= S ^ECT(731.7,"B",$E(X,1,30),DA)=""
2)= K ^ECT(731.7,"B",$E(X,1,30),DA)

DATE ENDING

0;2

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter last day of the pay period.
DESCRIPTION:
Enter the month, day, and year of the last day of the pay period.

SERVICE

1;0

POINTER Multiple #731.701

DESCRIPTION:
Service is a pointer to the National Service file. Choose the service for which staffing data is to be entered.

Name	Field # of Occurrence
^%DT	1+1

Name	Line Occurrences (* Changed, ! Killed)
^ECT(731.7 - [#731.7]	.01(XREF 1S), .01(XREF 1K)