Routine: GMRYED1

Information

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

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

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
Q1
NOGNIV	;ENTER/EDIT NON-IV INTAKE
INTAKE
Q2
EN3	;START NEW IV
YN
SETARY
LIST
VAL2	;
STARTIV	;START IV IF NO IV RUNGNING
LIST2
EN1	;ENTER/EDIT OUTPUT
EN2	;ENTER/EDIT INTAKE
VAL1	;
QUES2
INPUT
OUTPUT	;
VALIDAT	;
IV
YN1
Q3

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	Timeout: DTIME Variable: GNI 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	Timeout: DTIME Variable: GNI 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!

Customize PDF page

Package: General Medical Record - IO

Routine: GMRYED1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: