Routine: BEDDUTW

Package	Total	Call Graph
IHS Emergency Dept Dashboard	3	($$DATE,$$DPCP,$$FMTE,$$GETF,$$TODLH,SITE)^BEDDUTIL RMRMV^BEDDUTW (CHKDATA,CHKLK,LKLST,UPPRV)^BEDDUTW1
Kernel	2	^%ZTER ($$FMTE,$$FMTH,$$HTFM)^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Emergency Dept Dashboard	6	BEDDRPT BEDDUTID BEDDUTIL BEDDUTIS BEDDUTW BEDDUTW1
Emergency Room	2	AMER0 AMERD

Entry Points

Name	Comments	DBIA/ICR reference
GSITE(ERID,SITE,BEDDSYS,UDUZ)	; EP - Retrieve individual site info
RMLST(BEDDIEN)	; EP - Return last room occupied (and date/time)
XNEW
ERR	;
UNLK()	; EP - Unlock all
ISINJURY(OBJID)	;Returns whether visit is injury related
SINIT()	; EP - Init site settings
NEW(AMERDFN,VIEN)	; EP - Add New
DLST(BEGDT,ENDDT)	; EP - Assemble List of Discharges for Date Ranges
BEDDED(BEDDIEN,BEDDSTAT,BEDDTRG,BEDDROOM,BEDDWTIM,BEDDDFN)	; EP - Pull from BEDD.EDVISIT Class
RMCHK(OBJID,ROOM)	; EP - Room Check
LKLST(BEDDLK,SITE,DUZ)	; EP - Assemble list of locked records dashboard
DPCP(OBJID)	; EP - Return PtDFN field value
RMRMV(BEDDIEN)	; EP - Make Patient's Room Unoccupied
UPPRV(OBJID,PPR)	; EP - Save Primary Prov
LOADSYS(BEDDSYS,SITE,UDUZ)	; EP - Load System Vars
CHKDATA(OBJID)	; EP - Save Primary Prov and Assigned Prov
DISCH(AMERVSIT)	; EP - Update Discharge Information From RPMS
SAVEDX(DX)	; EP - Save the DX information into the class
EDSYS(BEDDSYS)	; EP - Load System Variables For AMER Admission
DSPINFO(BEDDIEN)	; EP - Retrieve BEDD.EDVISIT Info Value
FNDDX(OBJID,DXCODE)	; EP - Locate DX code in patient visit
RMAV(BLST)	;EP - Check room Avail
CHKLK(BEDDID,DUZ,TIMEOUT)	; EP - Check and Possibly Unlock

Name	Field # of Occurrence
^%ZTER	ERR+1
$$DATE^BEDDUTIL	DLST+16, DLST+17
$$DPCP^BEDDUTIL	DPCP+6
$$FMTE^BEDDUTIL	RMLST+32
$$GETF^BEDDUTIL	DLST+42
$$TODLH^BEDDUTIL	DLST+23, DLST+24
SITE^BEDDUTIL	SINIT+17
RMRMV^BEDDUTW	DISCH+28
CHKDATA^BEDDUTW1	CHKDATA+2
CHKLK^BEDDUTW1	CHKLK+3
LKLST^BEDDUTW1	LKLST+2
UPPRV^BEDDUTW1	UPPRV+2
$$GET1^DIQ	DLST+40, DISCH+18, DISCH+22
$$FMTE^XLFDT	DLST+16, DLST+17
$$FMTH^XLFDT	DISCH+19
$$HTFM^XLFDT	RMLST+26

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Unable to save EDvisit" Line Location: NEW+16

FileNo	Call Tags
^AMERVSIT - [#9009080]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BEDDDSC"	DLST+8!, DLST+20, DLST+21, DLST+27, DLST+28, DLST+43*

Name	Line Occurrences
GSITE	LOADSYS+18, LOADSYS+20
XNEW	NEW+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMERDFN	NEW~, NEW+11
AMERVSIT	DLST+34~, DLST+36*, DLST+42, DISCH~, DISCH+11, DISCH+18, DISCH+22, DISCH+32
BEDDDFN	BEDDED~, BEDDED+19*
BEDDID	CHKLK~, CHKLK+3
BEDDIEN	BEDDED~, BEDDED+18, DSPINFO~, DSPINFO+15, DISCH+16~, DISCH+25*, DISCH+28, DISCH+31, RMRMV~, RMRMV+8 , RMRMV+16, RMLST~, RMLST+8, RMLST+15
BEDDIENT	DSPINFO+10~, DSPINFO+15, DSPINFO+17
BEDDINFO	DSPINFO+10~, DSPINFO+15, DSPINFO+16, DSPINFO+18
BEDDLK	LKLST~, LKLST+2
BEDDROOM	BEDDED~, BEDDED+19*
BEDDSIZE	DSPINFO+10~, DSPINFO+16*
BEDDST	SINIT+11~, SINIT+17
BEDDST(	SINIT+20
BEDDSTAT	BEDDED~, BEDDED+19*
BEDDSYS	LOADSYS~, LOADSYS+15, LOADSYS+18, LOADSYS+20, GSITE~, EDSYS~
BEDDSYS("AN"	GSITE+5*
BEDDSYS("ARM"	EDSYS+15*
BEDDSYS("CLN"	GSITE+6*
BEDDSYS("COMBRD"	GSITE+11*
BEDDSYS("CONS"	GSITE+10*
BEDDSYS("DLYS"	GSITE+9*
BEDDSYS("EmbCard"	GSITE+26*
BEDDSYS("EmbCardCopies"	GSITE+38*
BEDDSYS("EmbCardPrinter"	GSITE+33*
BEDDSYS("HIM"	EDSYS+14*
BEDDSYS("LBL"	EDSYS+18*
BEDDSYS("LabelCopies"	GSITE+34*
BEDDSYS("LabelPrinter"	GSITE+29*
BEDDSYS("MRC"	EDSYS+17*
BEDDSYS("MRec"	GSITE+24*
BEDDSYS("MRecCopies"	GSITE+36*
BEDDSYS("MRecPrinter"	GSITE+31*
BEDDSYS("NameFRMT"	GSITE+42*
BEDDSYS("PRS"	EDSYS+16*
BEDDSYS("PRV"	GSITE+8*
BEDDSYS("PRouting"	GSITE+25*
BEDDSYS("PRoutingCopies"	GSITE+37*
BEDDSYS("PRoutingPrinter"	GSITE+32*
BEDDSYS("PShowAcuity"	GSITE+23*
BEDDSYS("PShowAge"	GSITE+18*
BEDDSYS("PShowChartNumber"	GSITE+20*
BEDDSYS("PShowComplaint"	GSITE+19*
BEDDSYS("PShowName"	GSITE+22*
BEDDSYS("PShowNotes"	GSITE+17*
BEDDSYS("PShowNurse"	GSITE+15*
BEDDSYS("PShowOrders"	GSITE+16*
BEDDSYS("PShowProv"	GSITE+14*
BEDDSYS("PShowRoom"	GSITE+21*
BEDDSYS("RoutingCopies"	GSITE+35*
BEDDSYS("RoutingPrinter"	GSITE+30*
BEDDSYS("SN"	GSITE+7*
BEDDSYS("SwitchEHRPat"	GSITE+13*
BEDDSYS("TimeOut"	GSITE+62*
BEDDSYS("TriageRpt"	GSITE+12*
BEDDSYS("defLabel"	GSITE+27*
BEDDSYS("defRouting"	GSITE+28*
BEDDTRG	BEDDED~, BEDDED+19*
BEDDWTIM	BEDDED~, BEDDED+19*
BEGDT	DLST~, DLST+11, DLST+12, DLST+16, DLST+20, DLST+23*, DLST+27, DLST+31
BLST	RMAV~
BLST("L"	RMAV+4
CIEN	SINIT+11~, SINIT+23*, SINIT+25, SINIT+31
CODE	FNDDX+8~, FNDDX+10*, FNDDX+11
DDATE	DLST+5~, DLST+31, DLST+32, DLST+33
DFLT	LOADSYS+12~, LOADSYS+17*, LOADSYS+20
DFN	DPCP+2~, DPCP+5*, DPCP+6
DIAG	FNDDX+8~, FNDDX+9*
DIEN	DLST+5~, DLST+33*, DLST+35, DLST+43
DISDH	DISCH+16~, DISCH+19*, DISCH+33
DISDT	DISCH+16~, DISCH+18*, DISCH+19
DISP	DLST+34~, DLST+37*, DLST+40
DSCDT	DLST+34~, DLST+42*, DLST+43
DUZ	LKLST~, LKLST+2, CHKLK~, CHKLK+3
DX	SAVEDX~, SAVEDX+6, SAVEDX+7, FNDDX+5~, FNDDX+7*, FNDDX+9, FNDDX+11
DXCODE	FNDDX~, FNDDX+3, FNDDX+11
ED	BEDDED+17~, BEDDED+18, BEDDED+20, RMAV+6~, RMAV+7, RMAV+9
EDID	SINIT+24~, SINIT+25, SINIT+31
EDOBJ	NEW+8~, NEW+10, NEW+18
EDREF	SAVEDX+2~, SAVEDX+5, SAVEDX+9, DPCP+2~, DPCP+3, DPCP+4
EDRMUSE	RMLST+17~, RMLST+19*
EDROOM	RMAV+16~, RMAV+18, RMAV+22, RMAV+25, RMAV+31, RMAV+37, RMRMV+13~, RMRMV+27, RMCHK+10~, RMCHK+20* , RMCHK+23*
EDVST	UNLK+3~, UNLK+4, DLST+34~, DLST+35, DISCH+16~, DISCH+31, RMRMV+13~, RMRMV+16, RMCHK+10~, RMCHK+13* , RMCHK+14, RMCHK+15
ENDDT	DLST~, DLST+11, DLST+13, DLST+17, DLST+21, DLST+24*, DLST+28, DLST+32
EREF	GSITE+2~, GSITE+3, EDSYS+11~, EDSYS+13
ERID	LOADSYS+12~, LOADSYS+15, LOADSYS+17, LOADSYS+18, GSITE~, GSITE+3, EDSYS+11~, EDSYS+12, EDSYS+13
FND	FNDDX+5~, FNDDX+7, FNDDX+11, FNDDX+13
ID	NEW+8~, NEW+16, NEW+17, XNEW+1
IEN	RMAV+2~, RMAV+4*, RMAV+7
II	LOADSYS+12~, LOADSYS+15*, LOADSYS+17
INJ	ISINJURY+11~
INST	SINIT+11~
INST(	SINIT+20*, SINIT+29!, SINIT+34
NID	SINIT+35~, SINIT+36*
>> OBJ	UNLK+2*, UNLK+4
OBJID	CHKDATA~, CHKDATA+2, UPPRV~, UPPRV+2, DPCP~, DPCP+3, RMCHK~, RMCHK+13, FNDDX~, FNDDX+2 , FNDDX+7, ISINJURY~, ISINJURY+9, ISINJURY+13
OCC	RMCHK+10~, RMCHK+21, RMCHK+22, RMCHK+25
PPR	UPPRV~, UPPRV+2
RC	SINIT+35~, SINIT+38*
RIEN	RMAV+2~, RMAV+14, RMAV+18, RMRMV+13~, RMRMV+25, RMRMV+27, RMLST+13~, RMLST+15, RMLST+19, RMCHK+10~ , RMCHK+18, RMCHK+20
RLST	RMAV+2~
RLST(	RMAV+10*, RMAV+22, RMAV+25, RMAV+28, RMAV+34
RM	RMLST+13~, RMLST+31*, RMLST+32
RM(	RMLST+28*, RMLST+32
RM(""	RMLST+31
ROOM	RMAV+6~, RMAV+8, RMAV+10, RMAV+16~, RMAV+19, RMAV+22, RMAV+25, RMAV+28, RMAV+34, RMRMV+13~ , RMRMV+17*, RMRMV+25, RMCHK~, RMCHK+14, RMCHK+18
ROOMDT	RMLST+17~, RMLST+21, RMLST+24, RMLST+25, RMLST+26*, RMLST+27, RMLST+28
ROOMID	RMLST+17~, RMLST+20*, RMLST+28
ROOMTM	RMLST+17~, RMLST+22*, RMLST+24
RS	RMAV+16~, RMAV+30, RMAV+36
SAVE	UNLK+3~, UNLK+6, DISCH+16~, DISCH+35, RMRMV+13~, RMRMV+22, RMRMV+29
SIEN	SINIT+11~, SINIT+20*
SITE	SINIT+24~, SINIT+26, SINIT+29, SINIT+30, SINIT+34, SINIT+37, LOADSYS~, LOADSYS+14*, LOADSYS+18, GSITE~ , GSITE+4, GSITE+45, GSITE+46, LKLST~, LKLST+2
STAT	SAVEDX+2~, SAVEDX+8*
STATUS	NEW+8~, NEW+16*
STIME	GSITE+2~, GSITE+59*, GSITE+60
SiteIEN	SINIT+11~
TIME	GSITE+2~, GSITE+58, GSITE+60, GSITE+61*, GSITE+62
TIMEOUT	CHKLK~, CHKLK+3
UDUZ	LOADSYS~, LOADSYS+13*, LOADSYS+18, LOADSYS+20, GSITE~, GSITE+45, GSITE+46
UPIEN	GSITE+2~, GSITE+46*
UPREF	GSITE+2~
VIEN	NEW~, NEW+12, DISCH+16~, DISCH+22*, DISCH+25
VISIT	ISINJURY+11~, ISINJURY+13*
>> objid	SAVEDX+5

Customize PDF page

Package: IHS Emergency Dept Dashboard

Routine: BEDDUTW

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: