Routine: BEDDUTIL

Information

BEDDUTIL ;VNGT/HS/BEE-BEDD Utility Routine ; 08 Nov 2011 12:00 PM

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
IHS Emergency Dept Dashboard	7	EN^BEDDEHRS EN^BEDDMREC $$MDTRN^BEDDUTID $$PTPCP^BEDDUTIL $$DATE^BEDDUTIU ($$NEW,BEDDED,EDSYS,RMAV,UPPRV)^BEDDUTW BLDTRG^BEDDUTW1
VA Fileman	4	^%DT (C,NOW)^%DTC ^DIC $$GET1^DIQ
Kernel	3	^%ZTER ($$DT,$$FMTE,$$FMTH,$$HDIFF)^XLFDT $$CHECKAV^XUS
IHS Patient Registration	2	(HDR,PHDR)^AG DFN^AGCARD
Registration	1	SETLOG1^DGSEC
Text Integration Utility	1	$$MAIN^TIULADR

Package	Total	Caller Graph
IHS Emergency Dept Dashboard	13	BEDD2PST BEDDADM BEDDEHRS BEDDMREC BEDDPLKP BEDDRPT BEDDTRPT BEDDUTID BEDDUTIL BEDDUTIU BEDDUTL1 BEDDUTW BEDDUTW1
Emergency Room	1	AMER

Entry Points

Name	Comments	DBIA/ICR reference
PTPCP(DFN)	;EP - Ret Patient PCP
TRGUPD(VIEN)	;EP - Update ER ADMISSION TRIAGE NURSE/ADMITTING PROV/ACUITY
INJSTG(OBJID)	;EP - Ret Setting of Injury - Not Implemented
ERR	;
XCLIN(CODE)	;EP - Ret Ext Clinic
SITE(BEDDST)	;EP - Assemble List of Sites From File 40.8
BLDTRG(MYTRG)	;EP - Build Acuity MYTRG array
DPCP(DFN)	;EP -- Get patient's designated primary care provider
PPR(BEDDVIEN,OBJID,DFN)	;EP - Ret the Primary Prov
FM2HT(FMDT)	;EP - Conv FMan Date/Time to $H time portion
SNAME(SITE)	;EP - Ret Site Name
PTALG(DFN)	;EP - Ret Patient Allergies
DATE(DATE)	;EP - Convert stand dt/time to FileMan dt/time
AUTH(BEDDDUZ)	;EP - Auth User for ED Access
NEW(D,AMERDFN,D0,D1,DFN,NODSP)	;EP - Create ED Entry - Called from AMER routine
FNOW()	;EP - Return Current FileMan Date and Time
GETOSTAT(DFN)	; EP - Get Order Summ By Pack Type
CHECKAV(BEDDAV)	;EP - Auth AC/VC, Ret DUZ
FMTE(FMDT,FORM)	;EP - Conv FMan to Standard External Dt/Time
BEDDLST(BEDD,SITE)	;EP - Assemble ED List
XNOW(FORM)	;EP - Ret Curr Ext Date and Time
IND(OBJID)	;EP - Ret the Industry - Not Implemented
OCC(OBJID)	;EP - Ret the Occupation - Not Implemented
MINWTG(HDT,HTM)	;EP - Calc Diff in Minutes from $H
FM2HD(FMDT)	;EP - Conv FMan Dt/Time to $H date portion
INJCAUSE(OBJID)	;EP - Ret Cause of Injury - Not Implemented
GETCC(BEDDIEN,BEDDCOMP,TYPE)	;EP - Get V NARRATIVE TEXT
GETF(BEDDFILE,BEDDIEN,BEDDFLD,BEDDIE)	; EP - Ret val from spec file/field
SECWTG(HDT,HTM)	;EP - Calc Diff in Seconds from $H
TODLH(DTTM)	;EP - Convert Ext Date to $H
LOGSEC(DUZ,DFN)	;EP - Adds/updates entry in DG Security Log file

External References

Name	Field # of Occurrence
^%DT	DATE+17
C^%DTC	GETOSTAT+16
NOW^%DTC	XNOW+13, FNOW+12
^%ZTER	ERR+1
HDR^AG	NEW+30
PHDR^AG	NEW+30
DFN^AGCARD	NEW+30
EN^BEDDEHRS	NEW+27
EN^BEDDMREC	NEW+26
$$MDTRN^BEDDUTID	NEW+33
$$PTPCP^BEDDUTIL	PPR+11
$$DATE^BEDDUTIU	TODLH+2
$$NEW^BEDDUTW	NEW+22
BEDDED^BEDDUTW	BEDDLST+45
EDSYS^BEDDUTW	NEW+20
RMAV^BEDDUTW	BEDDLST+78
UPPRV^BEDDUTW	PPR+12
BLDTRG^BEDDUTW1	BLDTRG+3
SETLOG1^DGSEC	LOGSEC+13
^DIC	XCLIN+14
$$GET1^DIQ	SNAME+4, SITE+15, SITE+16, GETF+18, GETOSTAT+22, GETOSTAT+23, GETOSTAT+26, GETOSTAT+27, GETOSTAT+28, PPR+9 , TRGUPD+20, TRGUPD+21, TRGUPD+23, DPCP+19, DPCP+20, DPCP+23, DPCP+24
$$MAIN^TIULADR	PTALG+17
$$DT^XLFDT	CHECKAV+8, GETOSTAT+15
$$FMTE^XLFDT	XNOW+14, FMTE+2
$$FMTH^XLFDT	TODLH+3, FM2HD+1, FM2HT+1
$$HDIFF^XLFDT	SECWTG+2, MINWTG+2
$$CHECKAV^XUS	CHECKAV+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Setting data for Dashboard..." Line Location: NEW+18
Function Call: WRITE	Prompt: !!!,"Select printer for PATIENT MEDICATION WORKSHEET...",!! Line Location: NEW+26
Function Call: WRITE	Prompt: !!!,"Select printer for PATIENT ROUTING SLIP...",!! Line Location: NEW+27
Function Call: WRITE	Prompt: !!!,"Select printer for Patient WristBand/Embossed Card...",!! Line Location: NEW+29
Routine Call	DIC Line Location: XCLIN+14

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^DG(40.8 - [#40.8]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVMSR - [#9000010.01]	GET1^DIQ
^AUPNVPRV - [#9000010.06]	GET1^DIQ
^BDPRECN - [#90360.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMERADM - [#9009081]	TRGUPD+23
^AUPNVMSR("AD"	TRGUPD+17, TRGUPD+19
^AUPNVNT - [#9000010.34]	GETCC+25, GETCC+27, GETCC+28
^AUPNVNT("AD"	GETCC+22, GETCC+24
^AUPNVPRV("AD"	PPR+9
^AUTTMSR("B"	TRGUPD+16
^BDPRECN("AA"	DPCP+17
^BDPTCAT("B"	DPCP+15
^DG(40.8 - [#40.8]	SITE+12, SITE+13
^DIC(19 - [#19]	LOGSEC+11, LOGSEC+12
^DIC(19.1 - [#19.1]	AUTH+13
^OR(100 - [#100]	GETOSTAT+19, GETOSTAT+20
^TMP("PTADR"	PTALG+15!, PTALG+18, PTALG+20!
^VA(200 - [#200]	CHECKAV+18, AUTH+14

Label References

Name	Line Occurrences
$$DPCP	PTPCP+11
BLDTRG	TRGUPD+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XNOW+12~, XNOW+14, FNOW+11~, FNOW+13
%DT	DATE+12~, DATE+17*
%H	XNOW+12~, FNOW+11~
%I	XNOW+12~, FNOW+11~
AMERDFN	NEW~, NEW+22
AMUPD	TRGUPD+13~
AMUPD(9009081	TRGUPD+24, TRGUPD+25, TRGUPD+26*
AVG	BEDDLST+71~, BEDDLST+74*, BEDDLST+75
BEDD	BEDDLST~, BEDDLST+29!, BEDDLST+78
BEDD(	BEDDLST+58, BEDDLST+59, BEDDLST+60, BEDDLST+61
BEDD("D"	BEDDLST+52, BEDDLST+53*
BEDD("L"	BEDDLST+67*
BEDD("SUM"	BEDDLST+62*
BEDD("TSUM"	BEDDLST+75*
BEDDADT	NEW+8~, NEW+10*
BEDDAV	CHECKAV~, CHECKAV+14
BEDDBDY	BEDDLST+11~, BEDDLST+32*, BEDDLST+35
BEDDCC	GETCC+23~, GETCC+24*, GETCC+25, GETCC+27, GETCC+28
BEDDCOMP	GETCC~, GETCC+16, GETCC+19*, GETCC+30
BEDDCTXT	GETCC+18~, GETCC+20, GETCC+28, GETCC+30*, GETCC+32
BEDDDAY	BEDDLST+11~, BEDDLST+32, BEDDLST+35, BEDDLST+36
BEDDDFN	NEW+8~, NEW+10*, NEW+26, NEW+27, NEW+30, NEW+33
BEDDDUZ	CHECKAV+5~, CHECKAV+14*, CHECKAV+15, CHECKAV+18, AUTH~, AUTH+12, AUTH+14
BEDDFILE	GETF~, GETF+14, GETF+18
BEDDFLD	GETF~, GETF+14, GETF+18
BEDDGL	BEDDLST+11~, BEDDLST+33*, BEDDLST+35, BEDDLST+36
BEDDGLD	BEDDLST+11~, BEDDLST+34*, BEDDLST+39
BEDDI	PTALG+11~, PTALG+18*
BEDDIE	GETF~, GETF+16*, GETF+18
BEDDIEN	SITE+5~, SITE+13, SITE+15, BEDDLST+11~, BEDDLST+36, BEDDLST+39, BEDDLST+45, BEDDLST+58, BEDDLST+59, BEDDLST+60 , BEDDLST+61, BEDDLST+62, BEDDLST+67, GETCC~, GETCC+19, GETCC+22, GETCC+24, GETF~, GETF+15, GETF+17 , GETF+18
BEDDIX	GETOSTAT+11~, GETOSTAT+19, GETOSTAT+20, GETOSTAT+34, GETOSTAT+35, GETOSTAT+36
BEDDIX1	GETOSTAT+35~*, GETOSTAT+36
BEDDKEY	AUTH+5~, AUTH+13*, AUTH+14
BEDDOIEN	GETOSTAT+20~*, GETOSTAT+22, GETOSTAT+23, GETOSTAT+26, GETOSTAT+27, GETOSTAT+28
BEDDOITM	GETOSTAT+21~, GETOSTAT+26, GETOSTAT+27, GETOSTAT+29, GETOSTAT+30, GETOSTAT+31, GETOSTAT+32
BEDDOPRF	GETOSTAT+21~, GETOSTAT+28*
BEDDORD	GETOSTAT+11~, GETOSTAT+34, GETOSTAT+36, GETOSTAT+37
BEDDORD(	GETOSTAT+32*, GETOSTAT+34, GETOSTAT+35, GETOSTAT+36
BEDDORDT	GETOSTAT+21~, GETOSTAT+23*, GETOSTAT+24
BEDDOST	GETOSTAT+11~
BEDDOSTS	GETOSTAT+21~, GETOSTAT+22*, GETOSTAT+32
BEDDSITE	SITE+5~, SITE+12*, SITE+13
BEDDST	SITE~
BEDDST(	SITE+17*
BEDDSYS	NEW+8~, NEW+20
BEDDSYS("ARM"	NEW+28
BEDDSYS("MRC"	NEW+26
BEDDSYS("PRS"	NEW+27
BEDDTOT	BEDDLST+11~
BEDDTOT(	BEDDLST+63, BEDDLST+64, BEDDLST+70, BEDDLST+72, BEDDLST+73
BEDDTRG	TRGUPD+13~, TRGUPD+15, TRGUPD+21, TRGUPD+23, TRGUPD+24, TRGUPD+28
BEDDTRGD	TRGUPD+13~, TRGUPD+15, TRGUPD+20, TRGUPD+25
BEDDTRGI	TRGUPD+13~, TRGUPD+16*, TRGUPD+21
BEDDTRGN	TRGUPD+13~, TRGUPD+15, TRGUPD+20, TRGUPD+26
BEDDVIEN	PPR~, PPR+8, PPR+9
BYDT	GETOSTAT+11~, GETOSTAT+17*, GETOSTAT+19
CNT	BEDDLST+71~, BEDDLST+72*, BEDDLST+74, BEDDLST+75
CODE	XCLIN~, XCLIN+13
D	NEW~, NEW+16
D0	NEW~, NEW+10
D1	NEW~, NEW+10
DATE	DATE~, DATE+13, DATE+14, DATE+15, DATE+16*, DATE+17
DFN	GETOSTAT~, GETOSTAT+13, GETOSTAT+19, GETOSTAT+20, LOGSEC~, LOGSEC+13, PPR~, PPR+11, NEW~, NEW+10 , NEW+30, PTALG~, PTALG+17, PTPCP~, PTPCP+11, TRGUPD+13~, TRGUPD+23, TRGUPD+24, TRGUPD+25, TRGUPD+26 , DPCP~, DPCP+17, DPCP+23, DPCP+24
DGOPT2	LOGSEC+9~, LOGSEC+12*, LOGSEC+13
DGOPTI	LOGSEC+9~, LOGSEC+11*, LOGSEC+12
DIC	XCLIN+11~, XCLIN+13*
DIC(0	XCLIN+13*
DPCAT	DPCP+13~, DPCP+15*, DPCP+16, DPCP+17
DPCPN	DPCP+13~, DPCP+14, DPCP+19, DPCP+21, DPCP+23*, DPCP+25
DPCPNM	DPCP+13~, DPCP+20, DPCP+21, DPCP+24, DPCP+25
DPIEN	DPCP+13~, DPCP+17*, DPCP+18, DPCP+19, DPCP+20
DT	CHECKAV+8, CHECKAV+18, GETOSTAT+15, GETOSTAT+16
DTTM	TODLH~, TODLH+2*, TODLH+3
DUZ	LOGSEC~, LOGSEC+13
EDOBJ	PPR+5~
EDROOM	BEDDLST+41~, BEDDLST+42*, BEDDLST+45, BEDDLST+57
EDSTAT	BEDDLST+41~, BEDDLST+42, BEDDLST+45, BEDDLST+47, BEDDLST+48, BEDDLST+58, BEDDLST+59, BEDDLST+60, BEDDLST+61, BEDDLST+62 , BEDDLST+63, BEDDLST+64, BEDDLST+70, BEDDLST+72, BEDDLST+73, BEDDLST+75
EDSYSTEM	BEDDLST+21~
EDTRG	BEDDLST+41~, BEDDLST+42*, BEDDLST+45, BEDDLST+55
EDWTIM	BEDDLST+41~, BEDDLST+42*, BEDDLST+45, BEDDLST+58, BEDDLST+59, BEDDLST+60, BEDDLST+61, BEDDLST+62, BEDDLST+64
ERROR	TRGUPD+13~
EXEC	BEDDLST+16~, BEDDLST+18, BEDDLST+19, BEDDLST+21~, BEDDLST+23, BEDDLST+25, BEDDLST+26*
FMDT	FMTE~, FMTE+2, FM2HD~, FM2HD+1, FM2HT~, FM2HT+1
FORM	XNOW~, XNOW+11, XNOW+14, FMTE~, FMTE+1, FMTE+2
HDT	SECWTG~, SECWTG+1, SECWTG+2, MINWTG~, MINWTG+1, MINWTG+2
HTM	SECWTG~, SECWTG+2, MINWTG~, MINWTG+2
ID	NEW+8~, NEW+22*
INIEN	SITE+14~, SITE+15*, SITE+16, SITE+17
INNM	SITE+14~, SITE+16*, SITE+17
ISITE	BEDDLST+21~, BEDDLST+22*
LN	GETCC+26~, GETCC+27*, GETCC+28
MIEN	TRGUPD+18~, TRGUPD+19*, TRGUPD+20, TRGUPD+21
MYTRG	TRGUPD+13~, TRGUPD+24, BLDTRG~, BLDTRG+3
MYTRG(	TRGUPD+24
NODSP	NEW~, NEW+10*, NEW+18, NEW+25
OBJID	PPR~, PPR+12, INJCAUSE~, INJSTG~, IND~, OCC~
PIEN	PPR+5~, PPR+9*
PNDLKBDY	BEDDLST+11~, BEDDLST+14, BEDDLST+27, BEDDLST+32
PPR	PPR+5~, PPR+7, PPR+9, PPR+11*, PPR+12, PPR+13
PTALG	PTALG+11~, PTALG+13, PTALG+18, PTALG+21
PTDFN	BEDDLST+41~, BEDDLST+42*, BEDDLST+45, BEDDLST+51, BEDDLST+52, BEDDLST+53
ROOM	BEDDLST+41~, BEDDLST+57*, BEDDLST+60
SIEN	BEDDLST+16~, BEDDLST+17*
SITE	SNAME~, SNAME+2, SNAME+4, BEDDLST~, BEDDLST+6*, BEDDLST+15, BEDDLST+20, BEDDLST+22
ST	BEDDLST+16~
SYSIEN	BEDDLST+21~, BEDDLST+24
TRG	BEDDLST+41~, BEDDLST+55, BEDDLST+56, BEDDLST+59, BEDDLST+61
TYPE	GETCC~, GETCC+13*, GETCC+16
U	CHECKAV+7, CHECKAV+18, AUTH+7, SITE+7*, SITE+17
VIEN	NEW+8~, NEW+10*, NEW+22, NEW+26, TRGUPD~, TRGUPD+8, TRGUPD+17, TRGUPD+19, TRGUPD+23
WTG	BEDDLST+71~, BEDDLST+73*, BEDDLST+74, BEDDLST+75
X	GETOSTAT+11~, GETOSTAT+16, XNOW+12~, FNOW+11~, DATE+12~, DATE+17, NEW+8~, NEW+30, NEW+33, XCLIN+11~ , XCLIN+13, PTALG+11~, PTALG+17*
X1	GETOSTAT+11~, GETOSTAT+16*
X2	GETOSTAT+11~, GETOSTAT+16*
XUF	CHECKAV+5~, CHECKAV+13*
Y	DATE+12~, DATE+18*, DATE+20, XCLIN+11~, XCLIN+16
YDT	GETOSTAT+11~, GETOSTAT+16*, GETOSTAT+17, GETOSTAT+24

Customize PDF page

Package: IHS Emergency Dept Dashboard

Routine: BEDDUTIL

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: