Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
General Medical Record - IO 5 (NEWIV,Q,STARTIV)^GMRYED2  IVACCSS^GMRYED5  (KILLV,SELIV)^GMRYUT0  IVTYP^GMRYUT1  LIST^GMRYUT3  
VA FileMan 2 (C,NOW)^%DTC  YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
General Medical Record - IO 1 GMRYED3  
Nursing Service 1 NURCYED0  

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

External References

Name Field # of Occurrence
C^%DTC LIST+4, QUES2+2
NOW^%DTC LIST+4, QUES2+2
YN^DICN YN1, YN, IV+2, STARTIV+1
NEWIV^GMRYED2 STARTIV+2
Q^GMRYED2 YN1+1, YN+1
STARTIV^GMRYED2 EN3+1
IVACCSS^GMRYED5 IV
KILLV^GMRYUT0 LIST+5, YN1+1, QUES2+2, YN+1, Q3
SELIV^GMRYUT0 IV+2
IVTYP^GMRYUT1 STARTIV+2
LIST^GMRYUT3 LIST+5, NOGNIV+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" IV+1
^GMRD(126.56 - [#126.56] INPUT+1, INPUT+2, SETARY
^GMRD(126.58 - [#126.58] LIST

Label References

Name Line Occurrences
INTAKE QUES2+2
IV IV+2
LIST LIST+2, LIST+3, YN1, YN
LIST2 QUES2, QUES2+1
NOGNIV INTAKE
Q1 LIST+1, LIST+2
Q2 QUES2
SETARY INPUT
STARTIV STARTIV+3
VAL1 VALIDAT+1
VAL2 VAL1+1
VALIDAT LIST+3, QUES2+1
YN YN
YN1 YN1

Naked Globals

Name Field # of Occurrence
^(0 INPUT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LIST+4, Q1!, YN1*, QUES2+2, Q2!, YN*, IV+2*, STARTIV+1*, STARTIV+2, STARTIV+3
>> DA IV*, STARTIV+2*
DD Q1!, Q2!
>> DFN YN, IV, STARTIV+2
DIC Q1!, Q2!
DIE Q1!, Q2!
DLAYGO Q1!, Q2!
DR Q1!, Q2!
DTIME LIST+2, QUES2
GCATH Q2!, Q3!
GDATA Q2!
GDC Q3!
GDCDT Q2!
GDCIV Q2!, Q3!
GDR Q2!, Q3!
GDRESS Q2+1!, Q3!
GGDA Q2!
GHLOC Q2!, Q3!
GIN Q2!
GLABEL LIST+5*, Q1!, QUES2+2*, Q2!, Q3!, STARTIV+1, STARTIV+3
GLEFT Q2!, Q2+1!
GMRDA Q2!
>> GMRDATA( IV+1
GMRDC Q1!, Q2!, Q3!
GMRDEL Q1!, Q2!, Q3!, STARTIV+1*
GMREND LIST+4*, Q1!, QUES2+2*, Q2!
>> GMROUT LIST+2*, LIST+5, YN1, QUES2*, QUES2+2, YN*, IV, STARTIV+1*
>> GMROUT(1 LIST+3, QUES2+1, VALIDAT+1*, VAL1+2*, VAL2+1*, VAL2+2*
GMRQUAL Q3!
GMRST Q2!
GMRVDT Q2!, STARTIV+1*
GMRVOL Q1!, Q2+1!
>> GMRVTYP IV+1, IV+2, STARTIV+2*
GMRYITM INPUT+2*, LIST2, Q2!
GMRZ Q2!, Q3!
GN LIST+5!, Q1!, QUES2+2!, Q2!, IV, IV+2, Q3!
GNANS LIST+4*, Q1!, Q2!, IV+2*, NOGNIV+1*
GNEW Q1!
GNI LIST*, LIST+2*, Q1!, INPUT*, INPUT+1*, INPUT+2*, LIST2*, QUES2*, QUES2+2*, Q2!
, INTAKE, NOGNIV+1, SETARY, VALIDAT+1, STARTIV+2
GNI(1 LIST*, INPUT+1*, INPUT+2*
GNN LIST*, LIST+1, LIST+2, Q1!, INPUT*, INPUT+1*, INPUT+2*, LIST2, QUES2, Q2!
, SETARY*, VAL2+1
GNN( LIST*, LIST+5, INPUT+1*, INPUT+2*, LIST2, QUES2+2, INTAKE, NOGNIV+1, SETARY*, VAL1+2
, VAL2+1, VAL2+2, STARTIV+2
GNUR LIST+5!, Q1!, QUES2+2!, Q2!
GNUR(1 VALIDAT+1*
GNUR(2 VALIDAT+1*, VAL1+1, VAL1+2, VAL2+1, VAL2+2
GNUR(3 VAL2+1*, VAL2+2
GNUR(4 VAL2+2*
GNUR(5 VAL2+2*
>> GNUROP YN1+1
GOPT YN1+1, Q2!, YN*!
GP LIST+4*, LIST+5*, Q1!
GRATE Q2!, IV+1
GREC Q2+1!
GSDC Q2+1!, Q3!
GSITE INPUT*, Q2!, Q2+1!, IV+1, Q3!
GSOL Q2!, IV*, IV+1
GSTAR Q2+1!
GTOTAL Q2!
GTP LIST+5*, Q1!, Q2!, IV+2*, NOGNIV+1*
GTUBE Q2+1!, Q3!
GTXT Q2!, IV+1, Q3!
GTYP LIST+2!, LIST+3, LIST+5*, Q1!, QUES2+1, Q2!, NOGNIV+1*
GTYP( LIST+5, QUES2+2, VAL1+2*, VAL2+2*
GTYPE Q1!, Q2!
GVOL Q2!, IV+1
GX Q2!, Q3!, STARTIV+1*
POP Q3!
X LIST+4, Q1!, QUES2+2, Q2!, IV+1, Q3!
>> X1 LIST+4*, QUES2+2*
>> X2 LIST+4*, QUES2+2*
Y Q1!, Q2!, IV+1*, Q3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All