Routine: BEDDUTID

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
FileMan Files Accessed Via FileMan Db Call
Global Variables Directly Accessed
Local Variables

Information

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

Source Information

Source file <BEDDUTID.m>

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
VA Fileman	6	^%DT ^DIC FILE^DICN FILE^DIE $$IENS^DILF $$GET1^DIQ
IHS Emergency Dept Dashboard	5	DXLKP^BEDDPOV ($$DATE,$$FMTE,$$FNOW,$$GETF)^BEDDUTIL DC^BEDDUTIS CLIN^BEDDUTL2 SAVEDX^BEDDUTW
Kernel	4	^%ZTER $$HTE^XLFDT $$VERSION^XPDUTL DUZ^XUP
Emergency Room	3	$$CKHLOC^AMERBSD $$POV^AMERUTIL VER^AMERVER
IHS Patient	3	$$AGE^AUPNPAT MOD^AUPNVSIT $$ICDDX^AUPNVUTL
DRG Grouper	1	$$IMP^ICDEXA

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Emergency Dept Dashboard	2	BEDDPOV BEDDUTIL

Entry Points

Name	Comments	DBIA/ICR reference
ERR	;EP - Capture the error
XDATE(X)
DXLKP(VALUE,OBJID,DUZ,FILTER)	;EP - Lookup to File 80 (DX)
PLCHLD(OBJID,VIEN)	;EP - Look for Diagnosis Default
KEYCK(DUZ)	;EP - Determine if user has BEDDZMGR Key
EDCON(AMERVSIT,EDCONS)	;EP - Get list of ER Consults
UPPER(X)	;EP - Convert to uppercase
HTIME(TM)	;EP - Given seconds portion of $H value, return time
PROC(AMERVSIT,ERPROC)	;EP - Get list of ER Procedures Performed
CCLN(CLIN)	;EP - Return Clinic Mnemonic
MDTRN(DFN)	;EP - Update Patient's MODE OF TRANSPORT
DX(AMERVSIT,ERDX)	;EP - Get list of ER DX'S
ESAVE(DFN,AMERVSIT,VIEN,BEDDARY)	;EP - Dashboard Edit Screen Save
PRIMDX(VIEN,OBJID)	;EP - Retrieve/Save the Primary EHR DX
TRNF(TRNF)	;EP - Return List of Transfer Facilities
EMV(VIEN)	;EP - Return V EMERGENCY VISIT RECORD entry
DISP(DISP)	;EP - Return List of Dispositions
AGE(DFN)	;EP - Return Patients Age
ADDDX(VIEN,DXI,DUZ)	;EP - Add DX TO V POV FILE
PROV(PROV)	;EP - Return List of Providers
DSUM()	;EP - Return if Discharge Summary Global is defined
CLIN(CLIN)	;EP - Return List of Applicable Clinics
SCLN(CLN)	;EP - Convert Clinic
INST(INST)	;EP - Return list of Followup Instructions
DSAVE(DFN,AMERVSIT,VIEN,OBJID,DUZ,SITE,BEDDARY)	;EP - Dashboard Discharge Screen Save

External References

Name	Field # of Occurrence
^%DT	XDATE+10
^%ZTER	ERR+1
$$CKHLOC^AMERBSD	ESAVE+27
$$POV^AMERUTIL	PLCHLD+17
VER^AMERVER	ESAVE+47
$$AGE^AUPNPAT	AGE+7
MOD^AUPNVSIT	DSAVE+37, ESAVE+44
$$ICDDX^AUPNVUTL	PLCHLD+26
DXLKP^BEDDPOV	DXLKP+37
$$DATE^BEDDUTIL	DSAVE+22, DSAVE+24, ESAVE+17
$$FMTE^BEDDUTIL	EDCON+25, XDATE+13
$$FNOW^BEDDUTIL	ADDDX+24
$$GETF^BEDDUTIL	ADDDX+25
DC^BEDDUTIS	DSAVE+34
CLIN^BEDDUTL2	CLIN+3
SAVEDX^BEDDUTW	PRIMDX+23
^DIC	PLCHLD+23
FILE^DICN	ADDDX+31, ADDDX+44
FILE^DIE	MDTRN+15, DSAVE+31, ESAVE+41
$$IENS^DILF	EDCON+23, PROC+24, DX+24
$$GET1^DIQ	EDCON+24, EDCON+25, EDCON+26, PROC+25, DX+25, DX+26, MDTRN+12, MDTRN+13, PRIMDX+16, PRIMDX+17 , PRIMDX+18, PRIMDX+19, PRIMDX+20, DISP+13, TRNF+13, INST+12, PROV+20, CCLN+1, SCLN+6, DXLKP+28 , DXLKP+29, DXLKP+30, PLCHLD+12
$$IMP^ICDEXA	PLCHLD+21
$$HTE^XLFDT	HTIME+6
$$VERSION^XPDUTL	PLCHLD+21
DUZ^XUP	ADDDX+19, DSAVE+17, DXLKP+16

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^ICD9 - [#80]	Classic Fileman Calls, GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls, GET1^DIQ
9009080.019	GET1^DIQ
9009080.04	GET1^DIQ
9009080.05	GET1^DIQ
^AMERADM - [#9009081]	GET1^DIQ
^AMER(2.1 - [#9009082.1]	GET1^DIQ
^AMER(3 - [#9009083]	GET1^DIQ
^AUTNPOV - [#9999999.27]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AMER(2 - [#9009082]	DISP+10, INST+10
^AMER(2.1 - [#9009082.1]	TRNF+10, TRNF+11
^AMER(3 - [#9009083]	DISP+11, INST+11, SCLN+7
^AMERVSIT - [#9009080]	EDCON+21, PROC+22, DX+22
^AUPNVER("AD"	EMV+2
^AUPNVPOV("AD"	ADDDX+37, PRIMDX+10, PRIMDX+13
^AUTNPOV("B"	ADDDX+28
^DIC(19.1 - [#19.1]	KEYCK+8
^DIC(40.7 - [#40.7]	SCLN+5
^ICD9("AB"	ADDDX+40
^TMP("BEDDDSC"	DSUM+2
^VA(200 - [#200]	KEYCK+9, PROV+15, PROV+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	XDATE+2~, XDATE+10*
AMERVSIT	EDCON~, EDCON+8, EDCON+21, EDCON+23, PROC~, PROC+8, PROC+22, PROC+24, DX~, DX+8 , DX+22, DX+24, DSAVE~, ESAVE~, ESAVE+36
AMUPD	MDTRN+10~, MDTRN+15, DSAVE+31, ESAVE+39
AMUPD(9000010	ESAVE+30, ESAVE+33
AMUPD(9009080	ESAVE+36*
AMUPD(9009081	MDTRN+14, DSAVE+21, DSAVE+22, DSAVE+23, DSAVE+24, DSAVE+25, ESAVE+15, ESAVE+16, ESAVE+17, ESAVE+18 , ESAVE+19, ESAVE+20
AUPNVSIT	DSAVE+13~, DSAVE+37*, ESAVE+40~
BEDDARY	DSAVE~, DSAVE+34, ESAVE~
BEDDARY("AdPvTm"	DSAVE+24, ESAVE+20
BEDDARY("AdmPrv"	DSAVE+25, ESAVE+18
BEDDARY("COMP"	ESAVE+15, ESAVE+30
BEDDARY("DecAdmit"	ESAVE+33
BEDDARY("Trg"	DSAVE+21, ESAVE+16
BEDDARY("TrgN"	DSAVE+23, ESAVE+19
BEDDARY("TrgNow"	DSAVE+22, ESAVE+17
BEDDARY("txcln"	ESAVE+23
BEDDPOV	PLCHLD+9~, PLCHLD+17
CDIEN	PLCHLD+9~, PLCHLD+24*, PLCHLD+26, PLCHLD+27
CLIN	CLIN~, CLIN+3, CCLN~, CCLN+1, SCLN+4~, SCLN+5, SCLN+6, SCLN+7, SCLN+8
CLINIC	ESAVE+6~, ESAVE+23*, ESAVE+27, ESAVE+36
CLN	SCLN~, SCLN+2, SCLN+5
CNT	DISP+8~, DISP+17, DISP+18, DISP+19, TRNF+8~, TRNF+10, TRNF+12, TRNF+13, INST+8~, INST+15* , INST+16, INST+17, PROV+8~, PROV+15, PROV+23*, PROV+24
CONS	EDCON+22~, EDCON+26*, EDCON+27
COTY	EDCON+22~, EDCON+24*, EDCON+27
D	DISP+12~, DISP+13*, DISP+14
DA	EDCON+22~, EDCON+23, PROC+23~, PROC+24, DX+23~, DX+24*
DA(1	EDCON+23, PROC+24, DX+24*
DATE	EDCON+22~, EDCON+25*, EDCON+27
DD	ADDDX+31!, ADDDX+44!
DFLTDX	PLCHLD+9~, PLCHLD+20, PLCHLD+21, PLCHLD+27
DFN	ADDDX+11~, ADDDX+25, ADDDX+43, MDTRN~, MDTRN+12, MDTRN+13, MDTRN+14, AGE~, AGE+7, DSAVE~ , DSAVE+20, DSAVE+21, DSAVE+22, DSAVE+23, DSAVE+24, DSAVE+25, DSAVE+34, DXLKP+27~, DXLKP+28, DXLKP+29 , ESAVE~, ESAVE+12, ESAVE+15, ESAVE+16, ESAVE+17, ESAVE+18, ESAVE+19, ESAVE+20, ESAVE+47
DIC	ADDDX+29~, ADDDX+30, ADDDX+41~, ADDDX+42, PLCHLD+9~, PLCHLD+23*
DIC("DR"	ADDDX+43*
DIC(0	ADDDX+30, ADDDX+42, PLCHLD+23*
DIEN	DISP+8~, DISP+11*, DISP+13, DISP+14
DINUM	ADDDX+29~, ADDDX+41~
DISP	DISP~, DISP+9!
DISP(	DISP+19*
DLAYGO	ADDDX+29~, ADDDX+30, ADDDX+41~, ADDDX+42
DO	ADDDX+31!, ADDDX+44!
DSIEN	DISP+8~, DISP+10*, DISP+11
DSP	DISP+8~, DISP+17*, DISP+19
DSP(	DISP+14*, DISP+17, DISP+19
DT	PROV+21, DXLKP+31, PLCHLD+13
DUZ	KEYCK~, KEYCK+5, KEYCK+9, ADDDX~, ADDDX+18, ADDDX+19, DSAVE~, DSAVE+16, DSAVE+17, DSAVE+34 , DXLKP~, DXLKP+15, DXLKP+16
DX	DX+23~, DX+25, DX+27, PRIMDX+6~, PRIMDX+8, PRIMDX+22*, PRIMDX+23, PRIMDX+24
DXI	ADDDX~, ADDDX+9*, ADDDX+28, ADDDX+30
DXN	DX+23~, DX+26*, DX+27
DXNM	PLCHLD+9~, PLCHLD+26*, PLCHLD+27
EDCONS	EDCON~, EDCON+8, EDCON+18!, EDCON+19, EDCON+27*
EDCONS(	EDCON+27*
EIEN	EDCON+17~, EDCON+21, EDCON+23, PROC+18~, PROC+22, PROC+24, DX+18~, DX+22*, DX+24
ERDX	DX~, DX+8, DX+19!, DX+20, DX+27*
ERDX(	DX+27*
ERPROC	PROC~, PROC+8, PROC+19!, PROC+20, PROC+26*
ERPROC(	PROC+26*
ERR	ESAVE+25~, ESAVE+27*
ERROR	MDTRN+10~, DSAVE+39, ESAVE+49
EXEC	DXLKP+2~, DXLKP+20, DXLKP+21, DXLKP+22, DXLKP+23
FCIEN	TRNF+8~, TRNF+10*, TRNF+11
FIEN	TRNF+8~, TRNF+11*, TRNF+13
FILTER	DXLKP~, DXLKP+8*, DXLKP+37
I9	ADDDX+11~, ADDDX+40*, ADDDX+42
ICD	PRIMDX+12, PRIMDX+14~, PRIMDX+15, PRIMDX+17*, PRIMDX+20, PRIMDX+21, PRIMDX+22
ICDN	PRIMDX+12, PRIMDX+14~, PRIMDX+15, PRIMDX+20*, PRIMDX+22
IENS	EDCON+22~, EDCON+23, EDCON+24, EDCON+25, EDCON+26, PROC+23~, PROC+24, PROC+25, DX+23~, DX+24* , DX+25, DX+26
IIEN	INST+8~, INST+11*, INST+12, INST+13
INIEN	INST+8~, INST+10*, INST+11
INS	INST+8~, INST+12, INST+13, INST+15, INST+17
INS(	INST+13*, INST+15, INST+17
INST	INST~, INST+9!
INST(	INST+17*
KIEN	KEYCK+7~, KEYCK+8*, KEYCK+9
MD	MDTRN+10~, MDTRN+12*
MDO	MDTRN+10~, MDTRN+13*, MDTRN+14
NOW	ADDDX+11~, ADDDX+24*, ADDDX+43
OBJID	PRIMDX~, PRIMDX+22, DSAVE~, DSAVE+34, DXLKP~, DXLKP+5, PLCHLD~, PLCHLD+2
PDX	ADDDX+11~, ADDDX+37*, ADDDX+43
PIEN	PROV+8~, PROV+16*, PROV+20, PROV+24
PNAME	PROV+8~, PROV+15*, PROV+16, PROV+24
PROC	PROC+23~, PROC+25*, PROC+26
PROV	PROV~, PROV+14!
PROV(	PROV+24*
RIEN	PRIMDX+11~, PRIMDX+13*, PRIMDX+16, PRIMDX+17, PRIMDX+18
RPFI	PRIMDX+12, PRIMDX+14~, PRIMDX+15, PRIMDX+18*, PRIMDX+19, PRIMDX+22
RPFIN	PRIMDX+12, PRIMDX+14~, PRIMDX+15, PRIMDX+19*, PRIMDX+22
SEX	DXLKP+2~, DXLKP+29, DXLKP+32, DXLKP+37
SITE	DSAVE~, DSAVE+34
STS	ADDDX+11~, ADDDX+18, DSAVE+13~, DSAVE+16, DXLKP+2~, DXLKP+15*
T	HTIME+2~, HTIME+5, HTIME+6, HTIME+7
TERM	PROV+19~, PROV+20*, PROV+21
TM	HTIME~, HTIME+5
TRNF	TRNF~, TRNF+9!
TRNF(	TRNF+13*
U	ADDDX+9*, INST+13, PLCHLD+26
VALUE	DXLKP~, DXLKP+37
VDT	DXLKP+2~, DXLKP+26, DXLKP+30, DXLKP+31, DXLKP+37, PLCHLD+9~, PLCHLD+12, PLCHLD+13*, PLCHLD+21, PLCHLD+26
VIEN	ADDDX~, ADDDX+9, ADDDX+25, ADDDX+37, ADDDX+43, EMV~, EMV+2, PRIMDX~, PRIMDX+10, PRIMDX+13 , DSAVE~, DSAVE+34, DSAVE+37, DXLKP+2~, DXLKP+19, DXLKP+26, DXLKP+28, DXLKP+30, ESAVE~, ESAVE+24 , ESAVE+27, ESAVE+30, ESAVE+33, ESAVE+47, PLCHLD~, PLCHLD+12, PLCHLD+17
X	ADDDX+14, ADDDX+15, ADDDX+29~, ADDDX+30, ADDDX+41~, ADDDX+42, EDCON+11, EDCON+12, PROC+12, PROC+13 , DX+12, DX+13, MDTRN+7, MDTRN+8, PRIMDX+3, PRIMDX+4, AGE+4, AGE+5, DSAVE+10, DSAVE+11 , PROV+8~, PROV+11, PROV+12, XDATE~, XDATE+4, XDATE+7, XDATE+9, DXLKP+11, DXLKP+12, PLCHLD+6 , PLCHLD+7, PLCHLD+9~, PLCHLD+20, PLCHLD+21*, UPPER~, UPPER+1
XCLIN	SCLN+4~, SCLN+6*, SCLN+7
XIEN	ADDDX+11~, ADDDX+28, ADDDX+33, ADDDX+34, ADDDX+43
Y	ADDDX+29~, ADDDX+32, ADDDX+33, ADDDX+41~, XDATE+11*, XDATE+13, PLCHLD+9~, PLCHLD+23, PLCHLD+24

Customize PDF page

Package: IHS Emergency Dept Dashboard

Routine: BEDDUTID

Call Graph Total: 22

Caller Graph Total: 2