Routine: GMRYRP0

Package	Total	Call Graph
General Medical Record - IO	6	(DATE,STARTD)^GMRYRP1 ^GMRYRP2 REPORT1^GMRYRP3 (PATDAT,PT)^GMRYUT0 PATIENT^GMRYUT11 PATIENT^GMRYUT9
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	DD^%DT C^%DTC

Package	Total	Caller Graph
General Medical Record - IO	5	GMRY I/O 48HRS GMRY I/O CURRENT GMRY I/O SUM GMRYFLW0 GMRYSE0
Nursing Service	2	NURCES3 NURCYRP0
IHS Electronic Health Record	1	BEHOVMRP

Entry Points

Name	Comments	DBIA/ICR reference
Q2
RPT2	;
START	;
PRNT
STOP
DEV
Q	;
EN1	;PATIENT I/O SUMMARY REPORT BY DATE AND SHIFT
EN2	;PATIENT I/O SUMMARY REPORT FOR THE PREVIOUS DAY
EN3	;PATIENT VITAL SIGNS & I/O SHEET - SF511
EN4	;PATIENT I/O SUMMARY FOR TODAY
EN5	;I/O SUMMARY FOR 48 HRS
LOOP1	;

External References

Name	Field # of Occurrence
DD^%DT	START+3
C^%DTC	EN2+1, EN5+1
^%ZIS	DEV
HOME^%ZIS	RPT2+3, Q2
^%ZISC	Q2, DEV+1
^%ZTLOAD	RPT2+3
DATE^GMRYRP1	EN1+1, EN3+1
STARTD^GMRYRP1	START+4
^GMRYRP2	START+5, PRNT
REPORT1^GMRYRP3	START+5, PRNT
PATDAT^GMRYUT0	EN1+1
PT^GMRYUT0	PRNT
PATIENT^GMRYUT11	START+6
PATIENT^GMRYUT9	START+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NUR SHIFT FILE NOT DEFINED",! Line Location: START+1
Function Call: WRITE	Prompt: !,"NUR SHIFT STARTING HOUR NOT DEFINED",! Line Location: START+2
Function Call: WRITE	Prompt: !,$C(7)," THIS REPORT NEEDS 132 COLUMNS - PORT ",! Line Location: DEV+1
Function Call: WRITE	Prompt: "Press return to continue or ""^"" to stop " Line Location: STOP+0
Routine Call	%ZIS Line Location: RPT2+3 Q2
Routine Call	%ZIS Line Location: DEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(126.56 - [#126.56]	RPT2+1
^GMRD(126.58 - [#126.58]	RPT2+1
^GMRD(126.95 - [#126.95]	START+1, START+2
^TMP("GMRPT"	START+7, START+8, Q2+1!
^TMP($J	Q+3!

Label References

Name	Line Occurrences
@(	EN2+1, EN3+1, EN4+1, EN5+1
DEV	RPT2+2, DEV+1
LOOP1	RPT2+3
PRNT	START+8
Q	EN1+1, RPT2+2, START+1, START+2, START+5, START+7, START+9, PRNT, EN2+2, EN3+1 , EN3+2, EN4+2, EN5+2
Q2	RPT2+3, START+1, START+2, START+5, START+9, EN2+2, EN3+2, EN4+2, EN5+2
RPT2	RPT2+2, EN2+1, EN3+1, EN4+1, EN5+1

Naked Globals

Name	Field # of Occurrence
^(1	START+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	Q2!, DEV*
%ZIS("B"	DEV*
DA	Q+1!
DFN	START+8*, Q2!
DT	EN2+1, EN4+1, EN5+1
DTIME	STOP
GAMOUNT	Q+1!
GAMT	Q+2!
GBED	START+7*, START+8, Q2!
GBLNK	Q2!
GCOL	Q+2!
GCSFT	Q+2!
GCSHFT	Q+1!
GCURDT	Q+1!
GDATE	Q+1!
GDAY	Q+1!
GDRESS	Q+2!
GDSHFT	Q+1!
GDT	Q+4!
GDTFIN	Q+2!
GDTSTRT	Q+2!
GESHFT	Q+1!
GFOUND	Q+4!
GHLOC	Q2!
GHR	Q+1!
GI	Q+4!
GID	Q+1!
GIN	Q+1!
GINDT	Q+1!
GIO	Q+1!
GITEM	Q+2!
GIV	Q+2!
GIVDT	Q+1!
GIVSTRT	Q+1!
GIVSUB	Q+1!
GIVTYP	Q+1!
GLAB	Q+2!
GLASTDT	Q+1!
GLEN	Q+2!
GLINE	Q+1!
GLN	Q2+1!
GLOC	Q+2!
GMIN	Q+3!
GMR	Q+4!
GMRAGE	Q+4!
GMRBED	Q+4!
GMRBTH	Q+4!
GMRCOL	RPT2+1*, RPT2+2, Q2!, DEV+1
GMRDAY	START+2*, Q2!
GMRDIAG	Q+4!
GMRDOT	Q+1!
GMRDT	Q+4!
GMRDT1	START+3*, Q2!
GMRDT2	START+3*, Q2!
GMREDB	EN1+1*, START+5, START+6, Q2!
GMREVE	START+2*, Q2!
GMRFIN	START+3, Q2!, EN2+1, EN4+1, EN5+1*
GMRHLOC	Q+4!
GMRI	Q2+1!
GMRINDT	Q+3!
GMRLEN	Q2!
GMRNAM	Q+4!
GMRNIT	START+2*, Q2!
GMRNUR	START+6, Q2+1!, EN2+1, EN3+1, EN4+1, EN5+1
GMROP	Q2!
GMROP(1	EN2+1, EN3+1, EN4+1, EN5+1
GMROUT	EN1+1, START+1, START+2, START+5, START+7, START+8, Q2+1!, EN2+1, EN3+1, EN4+1 , EN5+1, STOP, STOP+1
GMRQ	Q+4!
GMRQUAL	Q2!
GMRS	Q+4!
GMRSEX	Q+4!
GMRSTRT	START+3, Q2!, EN2+1, EN4+1, EN5+1*
GMRVADM	Q+4!
GMRVDT	Q+4!
GMRVTYP	Q2+1!
GMRWARD	Q+4!
GMRX	Q2!
GMRX1	Q+4!
GMRX2	Q+4!
GMRYY	Q2+1!
GN	Q2+1!
GNBED	Q2!
GNDATE	Q+1!
GNN	Q+2!, Q2+1!
GNRMBD	Q2!
GNSH	Q+1!
GNSHFT	Q+3!
GNURSE	Q+2!
GNXNSF	Q+3!
GNXTDT	Q+3!
GOP	Q+1!
GOPT	Q+3!
GOUT	Q+3!
GPC	START+4*, Q2!
GPOS	Q+2!
GPRT	Q+2!
GQ	START+4, PRNT, Q2!
GQT	START+4, PRNT, Q2!
GRATE	Q+2!
GREC	Q+2!
GROOM	START+7*, START+8, Q2!
GRPT	EN1+1, RPT2+2, START+1, START+2, START+4, PRNT, Q2+1!, DEV+1, EN2+1, EN3+1* , EN4+1, EN5+1
GSDC	Q2+1!
GSFT	Q+2!
GSHIFT	Q+3!
GSITE	Q+3!
GSOL	Q+2!
GSTAR	Q+1!
GSTRT	Q+3!
GSUB	Q+3!
GT	Q+2!
GTEXT	Q+3!
GTIME	Q+2!
GTOTIN	Q+3!
GTOTLI	Q+3!
GTOTLO	Q+3!
GTOTOUT	Q+3!
GTUBE	Q+2!
GTYP	Q+3!
GTYPE	Q+3!
GTYPI	Q2+1!
GTYPO	Q2+1!
GVOL	Q+2!
GX	Q+3!
GY	Q+3!
I	Q+1!
II	Q+3!
IO	START+4
IO("C"	RPT2+3!
IO("Q"	RPT2+3!, Q2!, DEV!
IOF	Q2
IOM	RPT2+2, RPT2+3, DEV+1
ION	RPT2+3
IOSL	RPT2+3
IOST	Q2, DEV+1
J	START+7, START+8, Q2!
JJ	Q+3!
KK	Q+3!
LL	Q+3!
>> POP	RPT2+2, DEV
SSN	Q+4!
VAERR	Q2+1!
VAIN	Q2+1!
VAROOT	Q2+1!
X	Q+3!, Q2+1!, LOOP1+1, EN2+1, EN5+1, STOP, STOP+1
X1	Q2+1!, EN2+1, EN5+1
X2	Q2+1!, EN2+1, EN5+1
XQH	Q2+1!
XQUIT	Q2+1!
Y	START+3*, Q+3!, Q2+1!
ZTDESC	EN1+1, Q2!, EN2+1, EN3+1, EN4+1, EN5+1*
ZTIO	RPT2+3*, Q2!
ZTRTN	RPT2+3*, Q2!
ZTSAVE	Q2!
ZTSAVE(	LOOP1+1*
ZTSK	Q2!

Customize PDF page

Package: General Medical Record - IO

Routine: GMRYRP0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: