Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 115.05

Package: Dietetics

NUTRITION PERSON(#115)-->115.01-->115.05

Sub-Field: 115.05

Information

Parent File	Name	Number	Package
115.01	EARLY/LATE TRAY	115.05	Dietetics

Details

Field #	Name	Loc	Type	Details
.01	EARLY/LATE TRAY	0;1	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X` LAST EDITED: `MAY 25, 1985` DESCRIPTION: `This field contains the date/time at which the early/late tray is to be delivered.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `115^ADLT` `1)= S ^FHPT("ADLT",$E(X,1,30),DA(2),DA(1),DA)=""` `2)= K ^FHPT("ADLT",$E(X,1,30),DA(2),DA(1),DA)`
1	MEAL	0;2	SET	**********************REQUIRED FIELD********************** LAST EDITED: `JUN 08, 1985` DESCRIPTION: `This field indicates for which meal the early or late tray is ordered.`
2	TIME	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAY 25, 1985` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains a printable time for which the meal is to delivered.`
3	BAGGED MEAL?	0;4	SET	LAST EDITED: `MAY 26, 1985` DESCRIPTION: `If answered YES, this field indicates that a bagged meal is desired.`
4	CLERK	0;5	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `MAY 26, 1985` DESCRIPTION: `This field is automatically updated with the user entering the order.`
5	ENTRY DATE/TIME	0;6	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 26, 1985` DESCRIPTION: `This field contains the date/time the order was actually entered.`
6	OE/RR ORDER	0;7	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `SEP 18, 1989` DESCRIPTION: `This field contains a pointer to the OE/RR file order corresponding to this order.`