Sub-Field: 399.046

Parent File	Name	Number	Package
BILL/CLAIMS(#399)	RETURNED LOG DATE/TIME	399.046	Integrated Billing

Details

Field #	Name	Loc	Type	Details
.01	LOG DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 05, 1990` DESCRIPTION: This is the date and time that this entry was edited. CROSS-REFERENCE: `399.046^B` 1)= S ^DGCR(399,DA(1),"R","B",$E(X,1,30),DA)="" 2)= K ^DGCR(399,DA(1),"R","B",$E(X,1,30),DA)
.02	USER	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 04, 1990` DESCRIPTION: This is the user who edited or returned the bill.
.03	RETURNED COMMENTS	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `JUN 06, 1990` HELP-PROMPT: `Answer must be 3-80 characters in length.` DESCRIPTION: Enter any comments that you would like stored with this bill. This may include documentation of any changes and why they occured.
.04	RETURN TO A/R?	0;4	FREE TEXT	INPUT TRANSFORM: `I $D(X) D YN^IBCU` OUTPUT TRANSFORM: `S Y=$S(Y:"YES",Y=0:"NO",1:"")` LAST EDITED: `SEP 21, 1992` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: Enter 'Yes' if you are returning this bill to Accounts Receivable at this time. Enter 'No' if you do not wish to return this bill at this time. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `399.046^AC` 1)= S ^DGCR(399,DA(1),"R","AC",$E(X,1,30),DA)="" 2)= K ^DGCR(399,DA(1),"R","AC",$E(X,1,30),DA)