Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMRYED1

Package: General Medical Record - IO

Routine: GMRYED1


Information

GMRYED1 ;HIRMFO/YH-ENTER/EDIT PATIENT INTAKE/OUTPUT ;1/17/97

Source Information

Source file <GMRYED1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;ENTER/EDIT OUTPUT
OUTPUT ;
LIST
Q1
YN1
EN2 ;ENTER/EDIT INTAKE
INPUT
LIST2
QUES2
Q2
YN
INTAKE
IV
NOGNIV ;ENTER/EDIT NON-IV INTAKE
SETARY
VALIDAT ;
VAL1 ;
VAL2 ;
EN3 ;START NEW IV
Q3
STARTIV ;START IV IF NO IV RUNGNING

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?3,GNN,?10,$P(GNN(GNN),"^")
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,"NO OUTPUT FILE!!!",!
  • Line Location: LIST+1
Function Call: READ
  • Variable: GNI
  • Timeout: DTIME
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !!,"Select the number(s) you want to enter/edit data",!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,"Enter output: ",GLABEL,!
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,"Do you want to enter another output"
  • Line Location: YN1+0
Function Call: WRITE
  • Prompt: !,?43,"Detailed input from "_(GMRYITM+1)_" to "_GNN
  • Line Location: LIST2+0
Function Call: WRITE
  • Prompt: !,?3,GNI,?10,$P(GNN(GNI),"^")
  • Line Location: LIST2+0
Function Call: WRITE
  • Prompt: ?43,(GMRYITM+GNI),?50,$P(GNN(GMRYITM+GNI),"^")
  • Condition for execution: $D(GNN(GMRYITM+GNI))
  • Line Location: LIST2+0
Function Call: READ
  • Variable: GNI
  • Timeout: DTIME
  • Line Location: QUES2+0
Function Call: WRITE
  • Prompt: !!,"Select the number(s) you want to enter/edit data",!
  • Line Location: QUES2+0
Function Call: WRITE
  • Prompt: !,"Enter intake: ",GLABEL,!
  • Line Location: QUES2+2
Function Call: WRITE
  • Prompt: !,"Do you want to enter OUTPUT"
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !!,"Do you want to go on to enter/edit output for this patient?",!!
  • Condition for execution: %=0
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !!,"Enter IV INTAKE for ",GSOL_" "_GMRVTYP_" ",GSITE_" "_GVOL_" mls "_GRATE,!,?10,GTXT_" @"_$P(Y,":",1,2)
  • Line Location: IV+1
Function Call: WRITE
  • Prompt: !!,"Enter INTAKE for another IV"
  • Line Location: IV+2
Function Call: WRITE
  • Prompt: !,?5,"Do you want to start a(n) "_GLABEL
  • Line Location: STARTIV+1
Function Call: WRITE
  • Prompt: !,?5,"You have to start a line of "_GLABEL_" before you record intake.",!
  • Line Location: STARTIV+3
Info |  Source |  Entry Points |  Interaction Calls