Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 126.313

Package: General Medical Record - IO

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

Sub-Field: 126.313


Information

Parent File Name Number Package
126.03 IV INTAKE 126.313 General Medical Record - IO

Details

Field # Name Loc Type Details
.01 IV INTAKE DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXRS",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1!(Y<$P(^GMR(126,DA(2),"IV",DA(1),0),"^"))!($P(^(0),"^",2)>0&($P(^(0),"^",2)
  • LAST EDITED:  DEC 13, 1995
  • DESCRIPTION:  
    This field documents the end date/time point for this IV fluid intake period.  NO FUTURE DATE/TIME OR DATE/TIME BEFORE THE IV STARTED ALLOWED !!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  126.313^B
    1)= S ^GMR(126,DA(2),"IV",DA(1),"IN","B",$E(X,1,30),DA)=""
    2)= K ^GMR(126,DA(2),"IV",DA(1),"IN","B",$E(X,1,30),DA)
    This regular cross-reference is automatically created on the .01 field.
  • CROSS-REFERENCE:  126.313^C^MUMPS
    1)= S ^GMR(126,DA(2),"IV",DA(1),"IN","C",9999999-X,DA)="" S:$P($G(^GMR(126,DA(2),"IV",DA(1),"IN",DA,0)),"^",4)="" $P(^GMR(126,DA(2),"IV",DA(1),"IN",DA,0),U,4)=DUZ
    2)= K ^GMR(126,DA(2),"IV",DA(1),"IN","C",9999999-X,DA)
    This MUMPS index is created to sort the intake records for an IV solution by inverted IV INTAKE DATE/TIME.  The SET statement inserts DUZ in the ENTERED BY field (3).
1 AMOUNT LEFT 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:'(($L(X)=1&(X="*"))!(X?1.4N)!(X?1.4N1"."1N)!(X?1"."1N)) X I $D(X),+X>9999 K X
  • LAST EDITED:  JAN 06, 2010
  • HELP-PROMPT:  Answer must be a number between 0 and 9999 with one decimal point (decimal point is optional) or * if solution absorbed is unknown.
  • DESCRIPTION:  
    This field contains the amount of solution left in the IV container. Enter "*" if amount of solution absorbed is unknown.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 IV INTAKE AMOUNT 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:'(($L(X)=1&(X="*"))!(X?1.4N)!(X?1.4N1"."1N)!(X?1"."1N)) X I $D(X),+X>9999 K X
    9.1 =
  • LAST EDITED:  JAN 07, 2010
  • HELP-PROMPT:  Answer must be a number between 0 and 9999 with 1 decimal place
  • DESCRIPTION:  
    This field contains the amount of IV fluid that the patient has received
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 ENTERED BY 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  AUG 31, 1992
  • DESCRIPTION:  
    This field holds the name of the person who entered the data.  Pointer to NEW PERSON file (#200).
4 HOSPITAL LOCATION 0;5 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:  AUG 31, 1992
  • DESCRIPTION:  
    This field identifies the hospital location of the patient.  Pointer to 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 the Hospital Location file (#44).
9999999.01 COMMENT 9999999;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X
  • LAST EDITED:  MAR 05, 2010
  • HELP-PROMPT:  Answer must be 2-60 characters in length.
  • DESCRIPTION:  
    Free text comment about IV intake
Info |  Details |  All