Routine: GMVSR1

Package	Total	Call Graph
General Medical Record - Vitals	7	SETIO^GMVGR0 LEGEND^GMVLGQU SETT^GMVSR2 STLNP^GMVVS1 (BP,DATES,FOOTER)^GMVVS2 (CKDT,GMRDT)^GMVVS3 (DATAPRT,SETHD)^GMVVS4
Kernel	1	$$REPEAT^XLFSTR
Registration	1	(DEM,INP)^VADPT

Package

Total

Call Graph

SETIO^GMVGR0 LEGEND^GMVLGQU SETT^GMVSR2 STLNP^GMVVS1 (BP,DATES,FOOTER)^GMVVS2 (CKDT,GMRDT)^GMVVS3 (DATAPRT,SETHD)^GMVVS4

Kernel

$$REPEAT^XLFSTR

Registration

(DEM,INP)^VADPT

Package	Total	Caller Graph
General Medical Record - Vitals	2	GMVSR0 GMVVS3

Package

Total

Caller Graph

General Medical Record - Vitals

GMVSR0 GMVVS3

Entry Points

Name	Comments	DBIA/ICR reference
TRYAGN
WRT1
GRAPH	;
SF511	;PRODUCE PATIENT VITAL SIGNS-I/O GRAPH
SETT	; SET GMRT
IO	;PRINT INTAKE/OUTPUT SECTION OF VITAL SIGNS-I/O SHEET
GCHART	;
PAGE	;
SELECT(J)	;TYPE OF GRAPH FOR REPORT
SETDATA	; FILL GMRLINE WITH I/O DATA AND WRITE GMRLINE

External References

Name	Field # of Occurrence
SETIO^GMVGR0	SF511+1
LEGEND^GMVLGQU	PAGE+18
SETT^GMVSR2	SETT+1
STLNP^GMVVS1	PAGE+7
BP^GMVVS2	PAGE+8
DATES^GMVVS2	PAGE+3
FOOTER^GMVVS2	PAGE+2, PAGE+20
CKDT^GMVVS3	SF511+3, SF511+4
GMRDT^GMVVS3	SF511+2
DATAPRT^GMVVS4	PAGE+4
SETHD^GMVVS4	PAGE+4
DEM^VADPT	SF511+1
INP^VADPT	SF511+1
$$REPEAT^XLFSTR	PAGE+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAGE+1
Function Call: WRITE	Prompt: !!!!!!!!,?5,"THERE IS NO DATA FOR THIS REPORT" Line Location: PAGE+2
Function Call: WRITE	Prompt: ! Line Location: PAGE+3
Function Call: WRITE	Prompt: !,?3,"Pulse Temp/F/C",?17,"\|",?18,GMRX Line Location: PAGE+3
Function Call: WRITE	Prompt: !,?17,"\|",GMRX2 Line Location: PAGE+5
Function Call: WRITE	Prompt: !,G,?17,"\|",GMRLINE(GMRI) Line Location: PAGE+12
Function Call: WRITE	Prompt: !,G,?17,"\|",GMRLINE("PN") Line Location: PAGE+14
Function Call: WRITE	Prompt: !,?17,$$REPEAT^XLFSTR("-",111) Line Location: PAGE+15
Function Call: WRITE	Prompt: !,"T: Temperature P: Pulse C/G: Circumference/Girth * - Abnormal value ** - Abnormal value off of graph" Line Location: PAGE+16
Function Call: WRITE	Prompt: !,"Pain: 99 - Unable to respond 0 - No pain 10 - Worst imaginable pain" Line Location: PAGE+17
Function Call: WRITE	Prompt: ! Line Location: PAGE+18
Function Call: WRITE	Prompt: !,GLINE(I) Line Location: PAGE+18
Function Call: WRITE	Prompt: ! Line Location: PAGE+19
Function Call: WRITE	Prompt: !,"Intake(24 Hr)(cc)",?17,"\|",GMRLINE("I") Line Location: IO+3
Function Call: WRITE	Prompt: !,"Output(24 Hr)(cc)",?17,"\|",GMRLINE("O") Line Location: IO+4
Function Call: WRITE	Prompt: ! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,?2,I_" "_$P($T(GCHART+I),";;",2) Line Location: TRYAGN+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: TRYAGN+1
Function Call: WRITE	Prompt: !!,"Enter the number for the graph you wish to print.",!,"The default is Vital Signs Record.",! Line Location: TRYAGN+4
Function Call: WRITE	Prompt: " ",$P($T(GCHART+X),";;",2) Line Location: TRYAGN+5
Function Call: WRITE	Prompt: !!,?5,$C(7),"This report must be queued to a 132 column printer.",!! Line Location: WRT1+0

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	SF511+3, SF511+4, SF511+5, SF511+7!, PAGE+2, PAGE+7, PAGE+8, PAGE+20!, IO+2, SETDATA+1! , SETDATA+2!

Name	Line Occurrences
GRAPH	SF511+6
IO	PAGE+13
PAGE	GRAPH+3
SETDATA	IO+2
TRYAGN	TRYAGN+3, TRYAGN+4

Name	Field # of Occurrence
^(	SETDATA+1, SETDATA+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	TRYAGN+1
>> G	PAGE+10, PAGE+11, PAGE+12, PAGE+14*
GDATA	SF511+6!, SETDATA+1, SETDATA+2
GDIP	GRAPH+4!
GDOP	GRAPH+4!
>> GDT	IO+2*, SETDATA+1, SETDATA+2
>> GFLAG	GRAPH+1, PAGE+1
>> GFOUND	SF511+3, SF511+4
GG	PAGE+21!
GI	PAGE+21!
GLINE	PAGE+1!
GLINE(	PAGE+18
GLPRNTR	SF511+7!, PAGE+18*
GMR3	SF511+6!, PAGE+4
>> GMRBTH	SF511+1*
GMRDAT	SF511+6!
>> GMRDT	PAGE+7, PAGE+8, PAGE+20, IO+2
GMREN	SF511+6!
GMRHDR1	SF511+6!, PAGE+4
GMRHDR10	SF511+6!
GMRHDR11	SF511+6!
GMRHDR2	SF511+6!
GMRHT	SF511+1*, SF511+6!
GMRI	SF511+3, SF511+4, SF511+5, SF511+6!, PAGE+4, PAGE+5, PAGE+7, PAGE+9*, PAGE+10, PAGE+11 , PAGE+12
GMRJ	SF511+6!
GMRK	SF511+2*, SF511+6!
GMRLINE	SF511+6!
GMRLINE(	PAGE+5*, PAGE+12
GMRLINE("BMI"	PAGE+6*
GMRLINE("CG1"	PAGE+6*
GMRLINE("CG2"	PAGE+6*
GMRLINE("CVP1"	PAGE+6*
GMRLINE("H1"	PAGE+6*
GMRLINE("I"	IO+1, IO+3, SETDATA+1
GMRLINE("O"	IO+1, IO+4, SETDATA+2
GMRLINE("OX1"	PAGE+6*
GMRLINE("OX2"	PAGE+6*
GMRLINE("OX3"	PAGE+6*
GMRLINE("P1"	PAGE+6*
GMRLINE("PN"	PAGE+14
GMRLINE("W1"	PAGE+6*
>> GMRNAM	SF511+1*
GMRNM	SF511+7!, PAGE+7, PAGE+8, PAGE+20, IO+2, SETDATA+1, SETDATA+2
GMROLD	SF511+6!
>> GMROUT	GRAPH+3, PAGE+15
GMRP	SF511+6!
GMRPDIF	SF511+6!
GMRPG	SF511+6!, GRAPH+3*
GMRPGC	SF511+6!, GRAPH+1, PAGE+1
GMRPGS	SF511+6!, GRAPH+3*
GMRPHI	SF511+6!
GMRPLO	SF511+6!, GRAPH+3*
GMRPOFF	SF511+6!
GMRQUAL	PAGE+1!, PAGE+18
GMRSITE	SF511+6!
GMRT	SF511+6!
GMRTDIF	SF511+6!
GMRTHI	SF511+6!
GMRTLO	SF511+6!, GRAPH+3*
GMRTNM	SF511+5*, SF511+6!, GRAPH+3
GMRTOFF	SF511+7!
GMRTY	SF511+7!
GMRVJ	PAGE+21!
GMRVX	SF511+7!
GMRVX1	SF511+7!
GMRVX2	SF511+7!
>> GMRX	GRAPH+2*, PAGE+3
>> GMRX1	GRAPH+1*, GRAPH+2, PAGE+5, PAGE+6, IO+1
>> GMRX2	GRAPH+2*, PAGE+5
GRNDIP	GRAPH+4!
GRNDOP	GRAPH+4!
>> GRPT	SF511+1*
GSIP	GRAPH+4!
GSOP	GRAPH+4!
GSYNO	PAGE+21!
I	PAGE+18, SELECT+1~, TRYAGN
IOF	PAGE+1
IOSL	PAGE+19
IOST	PAGE+1
J	SELECT~, TRYAGN+1, TRYAGN+2, TRYAGN+5*
>> VADM(1	SF511+1
>> VADM(3	SF511+1
X	GRAPH+1, GRAPH+2, PAGE+19, SELECT+1~, TRYAGN+1, TRYAGN+2, TRYAGN+3, TRYAGN+4, TRYAGN+5

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMVSR1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items