Routine: BEDDMREC

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC CLOSE^%ZISH ^%ZTLOAD
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Emergency Dept Dashboard	1	($$FMTE,$$PTALG,$$XNOW)^BEDDUTIL
IHS Patient Registration	1	PTLK^AG
Text Integration Utility	1	$$LIST^TIULMED

Package	Total	Caller Graph
IHS Emergency Dept Dashboard	2	BEDDPRT BEDDUTIL

Entry Points

Name	Comments	DBIA/ICR reference
END	;EP - Cleanup ;
RTRN(EXIT)	;EP - Force RETURN entry
AMED
OMED
START	;Display Report
QUE	;Queue Task
HDR(EXIT)	;EP - Display Report Header
EN(BEDDDFN,VIEN)	;EP - Patient Medication Reconciliation

External References

Name	Field # of Occurrence
^%ZIS	EN+18, EN+19
HOME^%ZIS	EN+20, EN+24
^%ZISC	EN+23
CLOSE^%ZISH	END+3
^%ZTLOAD	QUE+5
PTLK^AG	EN+13
$$FMTE^BEDDUTIL	START+6, START+9
$$PTALG^BEDDUTIL	START+23
$$XNOW^BEDDUTIL	START+15
$$GET1^DIQ	START+4, START+5, START+6, START+7, START+8, START+9, START+11
^DIR	RTRN+6
$$LIST^TIULMED	START+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LINE Line Location: START+22
Function Call: WRITE	Prompt: !,"ALLERGIES: ",$$PTALG^BEDDUTIL(DFN) Line Location: START+23
Function Call: WRITE	Prompt: !,DATA Line Location: AMED+4
Function Call: WRITE	Prompt: !!,LINE Line Location: OMED+1
Function Call: WRITE	Prompt: !,"____ I am unsure of any outside medications and/or over the counter" Line Location: OMED+2
Function Call: WRITE	Prompt: !," medications and dosages. I will bring my medications on my next visit.",! Line Location: OMED+3
Function Call: WRITE	Prompt: !,LINE Line Location: OMED+4
Function Call: WRITE	Prompt: !,"OUTSIDE MEDICATIONS" Line Location: OMED+6
Function Call: WRITE	Prompt: !,"Patient: Please list any outside medications not received at any" Line Location: OMED+7
Function Call: WRITE	Prompt: !,PSITE," Pharmacy" Line Location: OMED+8
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+9
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+10
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+11
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+12
Function Call: WRITE	Prompt: !! Line Location: OMED+13
Function Call: WRITE	Prompt: !,LINE Line Location: OMED+18
Function Call: WRITE	Prompt: !,"OVER THE COUNTER MEDICATIONS" Line Location: OMED+19
Function Call: WRITE	Prompt: !,"Patient: Please list any OVER the Counter Medications" Line Location: OMED+20
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+21
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+22
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+23
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+24
Function Call: WRITE	Prompt: !!! Line Location: OMED+25
Function Call: WRITE	Prompt: !,LINE Line Location: OMED+30
Function Call: WRITE	Prompt: !!,"NEW/CHANGE MEDICATIONS" Line Location: OMED+31
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+32
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+33
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+34
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________" Line Location: OMED+35
Function Call: WRITE	Prompt: @IOF Line Location: HDR+8
Function Call: WRITE	Prompt: !,PRINT,?70,"PAGE: ",PAGE Line Location: HDR+13
Function Call: WRITE	Prompt: !,?((80-$L(ALERT))/2),ALERT Line Location: HDR+14
Function Call: WRITE	Prompt: !!,?((80-$L(PSITE))/2),PSITE Line Location: HDR+15
Function Call: WRITE	Prompt: !,?((80-$L(TITLE))/2),TITLE Line Location: HDR+16
Function Call: WRITE	Prompt: !,?((80-$L(APTDT))/2),APTDT Line Location: HDR+17
Function Call: WRITE	Prompt: !,?((80-$L(PLOC))/2),PLOC Line Location: HDR+18
Function Call: WRITE	Prompt: !!,"PATIENT NAME: ",PNAME Line Location: HDR+20
Function Call: WRITE	Prompt: ?46,"SEX: ",PSEX Line Location: HDR+21
Function Call: WRITE	Prompt: !,?5,"CHART #: ",PCHRT,?46,"DOB: ",PDOB Line Location: HDR+22
Function Call: WRITE	Prompt: ! Line Location: HDR+23
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: QUE+6
Function Call: WRITE	Prompt: !!?5,"Task # ",ZTSK," queued.",! Line Location: QUE+7
Routine Call	%ZIS Line Location: EN+20 EN+24
Routine Call	DIR Line Location: RTRN+6
Routine Call	%ZIS Line Location: EN+18 EN+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
9000001.41	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("TIUMED"	START+28!, AMED, AMED+2, END+5!

Label References

Name	Line Occurrences
AMED	AMED+3, AMED+7
END	START+19, AMED+6, OMED, OMED+5, OMED+17, OMED+29
HDR	START+19, AMED+6, OMED, OMED+5, OMED+17, OMED+29
OMED	AMED
QUE	EN+20
RTRN	END+2, HDR+6
START	EN+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+8~
%ZIS	EN+8~, EN+17*
AGE	EN+8~
AGPATDFN	EN+8~
ALERT	HDR+2~, HDR+9*, HDR+14
APTDT	START+2~, START+9, START+10, HDR+17
AUPNDAYS	EN+8~
AUPNDOB	EN+8~
AUPNDOD	EN+8~
AUPNPAT	EN+8~
AUPNSEX	EN+8~
BEDDDFN	EN~, EN+6*, EN+12, EN+13
DATA	AMED+1~, AMED+2, AMED+3, AMED+4, AMED+5
DFN	EN+8~, EN+9~, EN+12*, EN+14, START+4, START+5, START+6, START+8, START+23, START+29
DIC	EN+8~
DIR	END+2!, RTRN+1~, RTRN+7!
DIR(0	RTRN+5*
DIRUT	RTRN+1~, RTRN+8
DOB	EN+8~
DUOUT	RTRN+1~, RTRN+8
DUZ(2	START+7, START+8
EXIT	EN+9~, START+19, AMED+6, OMED, OMED+5, OMED+17, OMED+29, END+2, HDR~, HDR+6 , RTRN~, RTRN+2, RTRN+8
IO	EN+21, END+3, HDR+8
IO("Q"	EN+20, QUE+2!
IOF	HDR+8
ION	EN+19
IOP	EN+19~*
IOSL	AMED+6, OMED, OMED+5, OMED+17, OMED+29
IOST	END+2, END+3, RTRN+4
LINE	START+2~, START+13*, START+22, OMED+1, OMED+4, OMED+18, OMED+30
MCTR	START+27~, START+31, AMED, AMED+2
PAGE	START+2~, HDR+3*, HDR+6, HDR+8, HDR+13
PCHRT	START+2~, START+8*, HDR+22
PDOB	START+2~, START+6*, HDR+22
PLOC	START+2~, START+11, START+12, HDR+18
PNAME	START+2~, START+4*, HDR+20
POP	EN+9~, EN+19
PRINT	HDR+2~, HDR+11*, HDR+13
PSEX	START+2~, START+5*, HDR+21
PSITE	START+2~, START+7*, OMED+8, HDR+15
REC	EN+9~
RHIFLAG	EN+9~
RPTDTM	START+2~, START+15*, HDR+11
SEX	EN+9~
SSN	EN+9~
TITLE	HDR+2~, HDR+10*, HDR+16
VIEN	EN~, EN+6*, START+9, START+11
X	EN+9~, START+27~, START+29*
Y	EN+9~, RTRN+1~
ZTDESC	QUE+1~, QUE+3*
ZTRTN	QUE+1~, QUE+3*
ZTSAVE	QUE+1~
ZTSAVE("*"	QUE+4*
ZTSK	QUE+5!, QUE+6, QUE+7

Customize PDF page

Package: IHS Emergency Dept Dashboard

Routine: BEDDMREC

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: