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.01

Package: General Medical Record - IO

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

Sub-Field: 126.01

Information

Parent File	Name	Number	Package
GMRY PATIENT I/O FILE(#126)	INTAKE	126.01	General Medical Record - IO

Details

Field #	Name	Loc	Type	Details
.01	INTAKE DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXRS",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `DEC 13, 1995` DESCRIPTION: `This field stores the end date/time point for this intake measurement. NO FUTURE DATE/TIME ALLOWED !!!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `126.01^B` `1)= S ^GMR(126,DA(1),"IN","B",$E(X,1,30),DA)=""` `2)= K ^GMR(126,DA(1),"IN","B",$E(X,1,30),DA)` `This regular cross-reference is automatically created on the .01 field of the file. This index sorts the intake measurements by date/time for a patient.` CROSS-REFERENCE: `126.01^TYP01^MUMPS` `1)= I $D(^GMR(126,DA(1),"IN",DA,0)),$P(^(0),"^",2)'="" S GMRTYP=$P(^(0),"^",2) S ^GMR(126,DA(1),"IN","TYP",9999999-X,GMRTYP,DA)="" K GMRTYP` `2)= I $D(^GMR(126,DA(1),"IN",DA,0)),$P(^(0),"^",2)'="" S GMRTYP=$P(^(0),"^",2) K ^GMR(126,DA(1),"IN","TYP",9999999-X,GMRTYP,DA),GMRTYP` `TYP01 MUMPS cross-reference is created to delete an old intake measurement index ^GMR(126,DA(1),"IN","TYP",9999999-INTAKE DATE/TIME,INTAKE TYPE,DA)` `="".`
1	INTAKE TYPE	0;2	POINTER TO GMRY INPUT TYPE FILE (#126.56)	**********************REQUIRED FIELD********************** GMRY INPUT TYPE(#126.56) LAST EDITED: `SEP 29, 1993` DESCRIPTION: `This field identifies the major intake categories such as PO, TUBE FEEDING etc.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `126.01^TYP1^MUMPS` `1)= S GMRVDT="" S:$D(^GMR(126,DA(1),"IN",DA,0)) GMRVDT=$P(^(0),U) S:GMRVDT'=""&(X>0) ^GMR(126,DA(1),"IN","TYP",9999999-GMRVDT,X,DA)="" K GMRVDT` `2)= S GMRVDT="" S:$D(^GMR(126,DA(1),"IN",DA,0)) GMRVDT=$P(^(0),U) K:GMRVDT'=""&(X>0) ^GMR(126,DA(1),"IN","TYP",9999999-GMRVDT,X,DA) K GMRVDT` `TYP1 MUMPS cross-reference is created to sort intake measurements by inverted INTAKE DATE/TIME and INTAKE TYPE.`
3	INTAKE ITEM	1;0	POINTER Multiple #126.13	126.13 LAST EDITED: `FEB 20, 1991` DESCRIPTION: `This multiple identifies the fluid intake absorbed by the patient.`
4	TOTAL AMOUNT	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 22, 1996` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field stores the cumulative intake measurement in milliliters (ml) for this period. Numeric example: 240.`
5	COMMENT	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `SEP 01, 1995` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This field permits the caregiver to describe additional observations. This field will be used in the next version.`
6	ENTERED BY	0;7	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `FEB 25, 1991` DESCRIPTION: `This field contains the name of the user who enters this record. Pointer to the New Person file ^VA(200).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	HOSPITAL LOCATION	0;4	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)'=""Z""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 17, 1992` DESCRIPTION: `This field identifies the patient's hospital location. Pointer to the Hospital Location file (#44).` SCREEN: `S DIC("S")="I $P(^(0),U,3)'=""Z"""` EXPLANATION: `The hospital location where the patient is located. Pointer to Hospital Location file (#44).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`