Sub-Field: 451.999

Parent File	Name	Number	Package
451.99	VERSION #	451.999	PAID

Details

Field #	Name	Loc	Type	Details
.01	VERSION #	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X` LAST EDITED: `JUL 08, 2009` HELP-PROMPT: `Type a version number between 1 and 999, 0 Decimal Digits` TECHNICAL DESCR: `The version # of the employee's day # time card increases by 1 for each correction of a released time card.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `451.999^B` `1)= S ^PRSN(451,DA(3),"E",DA(2),"D",DA(1),"V","B",$E(X,1,30),DA)=""` `2)= K ^PRSN(451,DA(3),"E",DA(2),"D",DA(1),"V","B",$E(X,1,30),DA)`
1	APP. CORRECT SUPERVISOR	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 2009` HELP-PROMPT: `Enter an approval correct released supervisor name.` DESCRIPTION: `A pointer to the NEW PERSON file (#200) that identifies the employee's supervisor who approved the correct released time card.`
2	APP. CORRECT DATE/TIME	0;3	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:3090101>X X` LAST EDITED: `MAY 22, 2009` HELP-PROMPT: `TYPE A DATE AND TIME NOT EARLIER THAN JAN 01, 2009` DESCRIPTION: `The date and time the supervisor approved the correct released time card of the version # of the day #.`
9	TIME SEGMENT	T;0	Multiple #451.9999	451.9999 DESCRIPTION: `This multiple field stores all work time segments of point of care data.`