Sub-Field: 458.1105

Parent File	Name	Number	Package
458.01	LD AUDIT	458.1105	PAID

Details

Field #	Name	Loc	Type	Details
.01	AUDIT SEQUENCE	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `SEP 03, 2003` HELP-PROMPT: `Type a number between 1 and 999, 0 Decimal Digits` CROSS-REFERENCE: `458.1105^B` `1)= S ^PRST(458,DA(2),"E",DA(1),"LDAUD","B",$E(X,1,30),DA)=""` `2)= K ^PRST(458,DA(2),"E",DA(1),"LDAUD","B",$E(X,1,30),DA)`
1	DATE OF AUDIT	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 04, 2003` HELP-PROMPT: `(No range limit on date)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	LABOR DIST CODE CHANGED BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 03, 2003`
3	TYPE OF INTERFACE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` OUTPUT TRANSFORM: `S Y(0)=Y S SUB454="TOI" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454` LAST EDITED: `SEP 08, 2003` HELP-PROMPT: `Answer must be 1 character in length`
4	LABOR DISTRIBUTION	LD;0	Multiple #458.11054	458.11054