Routine: GMRYSE1

Information

GMRYSE1 ;HIRMFO/YH-ITEMIZED PATIENT I/O REPORT BY SHIFT PART 2 ;3/11/97

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
General Medical Record - IO	3	(FOOTER,INISHFT,INITOT,TITLE)^GMRYRP3 SUM^GMRYSE2 (WHR,WLINE)^GMRYSE3

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
General Medical Record - IO	3	GMRYSE0 GMRYSE2 GMRYSE3

Entry Points

Name	Comments	DBIA/ICR reference
BODY	;
FOOTER	;
REPORT	;
HEADER2	;
NPOS	;OBTAIN NURSE POSITION
Q
GPOS(GNURSE)	;
ILABEL	;
OLABEL	;
CHKPR	;
CHKTYP	;
SHFTP	;FIELD TO SAVE '+' CODE FOR SHIFT TOTAL
DAYP	;FIELD TO SAVE '+' CODE FOR DAY TOTAL

Name	Field # of Occurrence
FOOTER^GMRYRP3	FOOTER+2
INISHFT^GMRYRP3	BODY+2
INITOT^GMRYRP3	BODY+2
TITLE^GMRYRP3	REPORT+1
SUM^GMRYSE2	BODY+2
WHR^GMRYSE3	NPOS+2
WLINE^GMRYSE3	NPOS+5, NPOS+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"NO DATA FOR THIS PERIOD",!! Line Location: BODY+1
Function Call: WRITE	Prompt: ! Line Location: FOOTER+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: REPORT+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: HEADER2+2
Function Call: WRITE	Prompt: !,?GCOL,"PATIENT INTAKE/OUTPUT REPORT BY SHIFT AND EVENT TYPE" Line Location: HEADER2+4
Function Call: WRITE	Prompt: ?GCOL,"PAGE: ",GPC Line Location: HEADER2+4
Function Call: WRITE	Prompt: !,?GCOL,$S(GRPT=9:$E(GMRX,1,46),1:GMRX),! Line Location: HEADER2+5
Function Call: WRITE	Prompt: ?GCOL,GMRDT1," - ",GMRDT2,! Line Location: HEADER2+5
Function Call: WRITE	Prompt: GY_"(continued)",! Line Location: HEADER2+6
Function Call: WRITE	Prompt: ?14,$S(GIO="IN":$P($G(^GMRD(126.56,+GTYPE,0)),"^")_" intake vol: ",GIO="OUT":$P($G(^GMRD(126.58,+GTYPE,0)),"^")_" output vol: ",1:""),GAMOUNT_$S(GAMOUNT>0!(GAMOUNT="0"):" mls",1:"") Line Location: NPOS+3
Function Call: WRITE	Prompt: " "_$P(^GMRD(126.6,+GSUB,0),"^") Line Location: NPOS+4
Function Call: WRITE	Prompt: ?GCOL,$E($P($P(^VA(200,GNURSE,0),"^"),",",2)),$E($P(^(0),"^")) Line Location: NPOS+7
Function Call: WRITE	Prompt: "/"_$S(GPOS="R":"RN",GPOS="L":"LPN",GPOS="N":"NA",GPOS="C":"CL",1:"OTH") Line Location: NPOS+9
Function Call: WRITE	Prompt: ! Line Location: Q+0
Function Call: WRITE	Prompt: ?2,"INTAKE:",! Line Location: CHKPR+2
Function Call: WRITE	Prompt: ?2,"OUTPUT:",! Line Location: CHKPR+3
Function Call: WRITE	Prompt: ?4,$S(GSUB=1:"PO",GSUB=2:"NASOGASTRIC",GSUB=3:"GASTROTOMY",GSUB=4:"PHARYNGOTOMY",1:"OTHER") Line Location: CHKTYP+2
Function Call: WRITE	Prompt: ?4,$P(^GMRD(126.6,+GSUB,0),"^") Line Location: CHKTYP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(126.56 - [#126.56]	NPOS+3, ILABEL+1
^GMRD(126.58 - [#126.58]	NPOS+3, OLABEL+1
^GMRD(126.6 - [#126.6]	NPOS+4, CHKTYP+3
^NURSF(211.8 - [#211.8]	GPOS+7, GPOS+9, GPOS+10, GPOS+11, GPOS+17, GPOS+18
^TMP($J	BODY+1
^VA(200 - [#200]	NPOS+7

Label References

Name	Line Occurrences
$$GPOS	NPOS+8
BODY	REPORT+2
DAYP	BODY+2
FOOTER	REPORT+2, HEADER2+1
HEADER2	REPORT+2, CHKPR+1, CHKTYP+1
Q	NPOS+7
SHFTP	BODY+2

Naked Globals

Name	Field # of Occurrence
^(0	NPOS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	REPORT+2, HEADER2+2
>> GAMOUNT	NPOS+3
GCATH	REPORT+3!
>> GCOL	HEADER2+4, HEADER2+5, NPOS+7*
>> GDATA	NPOS+2, NPOS+5, NPOS+6
>> GDATE	GPOS+7, GPOS+17
GDATE1	GPOS+1~, GPOS+7*, GPOS+8, GPOS+9, GPOS+10
>> GDIP(	DAYP+1*
>> GDOP(	DAYP+2*
GEND	GPOS+1~, GPOS+2, GPOS+12, GPOS+17
>> GIO	NPOS+3, NPOS+4, NPOS+5, CHKPR+2, CHKPR+3, CHKTYP+2, CHKTYP+3
>> GITEM	NPOS+6, NPOS+7
>> GLAB	ILABEL+1, ILABEL+2, OLABEL+1*
GLEFT	REPORT+3!
GLOC1	GPOS+1~, GPOS+2, GPOS+9, GPOS+10, GPOS+11, GPOS+17, GPOS+18
>> GMRDOT	REPORT+2*
>> GMRDT1	HEADER2+5
>> GMRDT2	HEADER2+5
>> GMROUT	REPORT+2, HEADER2+2, CHKPR+1, CHKTYP+1
>> GMRX	REPORT+2*, HEADER2+5
>> GN(1	SHFTP+1, DAYP+1
>> GN(2	SHFTP+2, DAYP+2
GNURSE	NPOS+2*, NPOS+7, NPOS+8, GPOS~, GPOS+3, GPOS+7, GPOS+9, GPOS+10
>> GPC	HEADER2+3, HEADER2+4*
GPOS	NPOS+1~, NPOS+8, NPOS+9, GPOS+2, GPOS+3, GPOS+8, GPOS+18*, GPOS+19
>> GPRT(1	CHKPR+2*
>> GPRT(2	CHKPR+3*
>> GQ	HEADER2+2
>> GQT	REPORT+2, HEADER2+1, HEADER2+2, HEADER2+4
GREASON	REPORT+3!
>> GRNDIP	BODY+2*
>> GRNDOP	BODY+2*
>> GRPT	REPORT+2, HEADER2+5
GSEQ	GPOS+1~, GPOS+2, GPOS+10, GPOS+11
>> GSIP(	SHFTP+1*
>> GSOP(	SHFTP+2*
GSTART	GPOS+1~, GPOS+2, GPOS+12
GSTR	GPOS+1~, GPOS+2, GPOS+11, GPOS+12
>> GSUB	NPOS+4, CHKTYP+2, CHKTYP+3
>> GTEXT	NPOS+2*
GTOTAL	REPORT+3!
>> GTXT(1	NPOS+5, NPOS+6
>> GTYPE	NPOS+3
GY	REPORT+3!, HEADER2+6
>> II	ILABEL+1, ILABEL+2, OLABEL+1, SHFTP+1, SHFTP+2, DAYP+1, DAYP+2
IOF	HEADER2+3
IOM	HEADER2+4, HEADER2+5, NPOS+7
IOSL	FOOTER+1, CHKPR+1, CHKTYP+1
IOST	FOOTER+1, REPORT+2, HEADER2+2, HEADER2+3
>> X	FOOTER+1, REPORT+2, HEADER2+2*

Customize PDF page

Package: General Medical Record - IO