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: 126.41

Package: General Medical Record - IO

GMRY PATIENT I/O FILE(#126)-->126.04-->126.41

Sub-Field: 126.41

Information

Parent File	Name	Number	Package
126.04	MAINTENANCE DATE/TIME	126.41	General Medical Record - IO

Details

Field #	Name	Loc	Type	Details
.01	MAINTENANCE DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `DEC 13, 1995` DESCRIPTION: `This field indicates the DATE/TIME the IV care was performed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `126.41^B` `1)= S ^GMR(126,DA(2),"IVM",DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(126,DA(2),"IVM",DA(1),1,"B",$E(X,1,30),DA)` `This cross-reference is created automatically on the .01 field of the MAINTENANCE DATE/TIME multiple for each IV SITE.` CROSS-REFERENCE: `126.41^AC^MUMPS` `1)= S:$P($G(^GMR(126,DA(2),"IVM",DA(1),1,DA,0)),"^",5)="" $P(^GMR(126,DA(2),"IVM",DA(1),1,DA,0),"^",5)=DUZ` `2)= Q` `AC MUMPS cross-reference is created to insert the DUZ of the person who gives the nursing care in the ENTERED BY field (4) of the maintenance record.` CROSS-REFERENCE: `126.41^C^MUMPS` `1)= S ^GMR(126,DA(2),"IVM",DA(1),1,"C",9999999-X,DA)=""` `2)= K ^GMR(126,DA(2),"IVM",DA(1),1,"C",9999999-X,DA)` `C cross-reference is created to sort the nursing care records for a specific IV's location by the inverted date/time the care given.`
1	SITE DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `D SITEDES1^GMRYUT5 K:$L(X)>50!($L(X)<3) X` LAST EDITED: `SEP 28, 1992` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `This field stores the care-giver's observation of the IV infusion site. The user is allowed to select a number or a combination of numbers from the IV SITE DESCRIPTION file (#126.72). The software then transforms the` `number(s) into text.` EXECUTABLE HELP: `D SITEDES^GMRYUT5` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	TUBING CHANGED	0;3	SET	'Y' FOR yes; 'N' FOR no; LAST EDITED: `JAN 11, 1993` DESCRIPTION: `This field indicates if the IV tubing was changed. Enter "Y" if IV tube has been changed.`
3	DRESSING CHANGED	0;4	SET	'Y' FOR yes; 'N' FOR no; LAST EDITED: `JAN 11, 1993` DESCRIPTION: `This field indicates if the dressing was changed. Enter "Y" if dressing has been changed.`
4	ENTERED BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 15, 1992` DESCRIPTION: `This field documents the name of the person who gives the nursing care. Pointer to the NEW PERSON file (#200).`
5	SITE DC'ED	0;6	SET	'Y' FOR yes; 'N' FOR no; LAST EDITED: `JAN 13, 1993` DESCRIPTION: `This field indicates if the IV was discontinued at its insertion point. Enter Y(es) if the IV site was discontinued.`
6	LINE OF TUBE	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 26, 1993` HELP-PROMPT: `Type a Number between 1 and 1000, 0 Decimal Digits` DESCRIPTION: `This field indicates the IEN of the IV.`