Routine: BDGBULL1

Customize PDF page

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

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

Information

BDGBULL1 ; IHS/ANMC/LJF - POST ADT BULLETINS ;

Source Information

Source file <BDGBULL1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IHS Changes To ADT	4	($$DSDISP,$$DSPROC)^BDGDSA ($$ADMSRV,$$DSADM,$$LASTSRVN,$$LOSHRS,$$PRIORTXN,$$READM)^BDGF1 $$HRCN^BDGF2 $$DIV^BDGPAR
VA Fileman	2	^%DT $$GET1^DIQ
Kernel	1	($$FMDIFF,$$FMTE,$$HTE)^XLFDT
MailMan	1	^XMB

Entry Points

Name	Comments	DBIA/ICR reference
DEATH	; -- bulletin for inpatient death
LASTSRV(DATE)	; returns disch service for last admission
ADMDS(LAST)	; -- bulletin for admit after day surgery ; LAST=date of last day surgery
TO	; -- bulletin for transfers out to other facility
RICU(DATE)	; -- bulletin for returns to ICU ; DATE=date of last discharge from ICU
LASTDX(DATE)	; -- find last adm dx
AMA	; -- bulletin for ama discharges
OBS	; -- bulletin for observation to admission
READM(LAST)	; -- bulletin for readmissions ; LAST=last discharge date in FM format
GEN	; -- set general data
DELADM	; bulletin for deleted admission
LASTICU(ADM,DATE)	; returns date of last discharge from ICU
SAMEADM(LAST)	; -- bulletin for readmission within 24 hrs to same service ; LAST=last discharge date in FM format
TI	; -- bulletin for transfers in to facility
ONEDAY	; bulletin for one day admits
EVENT	; process event type
ICU	; -- bulletin for ICU transfers
READM24(ADM,PAT)	; returns 1 if patient readmitted within 24 hours

External References

Name	Field # of Occurrence
^%DT	GEN+5, ICU+9, RICU+11
$$DSDISP^BDGDSA	ADMDS+10
$$DSPROC^BDGDSA	ADMDS+9
$$ADMSRV^BDGF1	TI+5, OBS+4, READM+8, SAMEADM+7, ADMDS+7, READM24+11
$$DSADM^BDGF1	EVENT+27
$$LASTSRVN^BDGF1	EVENT+32, EVENT+75, TO+6, AMA+8, DEATH+6, ONEDAY+6, LASTSRV+3, READM24+11
$$LOSHRS^BDGF1	EVENT+74
$$PRIORTXN^BDGF1	ICU+8, RICU+10
$$READM^BDGF1	EVENT+18
$$HRCN^BDGF2	GEN+3, ICU+4, RICU+5
$$DIV^BDGPAR	EVENT+1, READM+4, ADMDS+4
$$GET1^DIQ	EVENT+6, EVENT+7, EVENT+13, EVENT+17, EVENT+26, EVENT+31, EVENT+41, EVENT+45, EVENT+47, EVENT+49 , EVENT+62, EVENT+63, EVENT+66, EVENT+67, EVENT+70, EVENT+71, EVENT+76, GEN+2, GEN+4, TI+3 , TI+4, OBS+5, READM+4, READM+5, SAMEADM+4, ADMDS+4, ADMDS+5, DELADM+4, DELADM+5, ICU+3 , ICU+5, ICU+6, ICU+8, RICU+4, RICU+6, RICU+8, RICU+10, TO+3, TO+4, TO+5 , AMA+3, AMA+4, AMA+9, DEATH+3, DEATH+4, DEATH+5, ONEDAY+3, ONEDAY+4, ONEDAY+5, LASTDX+2 , LASTDX+3, LASTSRV+2, LASTICU+7, LASTICU+11, READM24+2, READM24+8
$$FMDIFF^XLFDT	EVENT+47, READM24+5
$$FMTE^XLFDT	READM+6, SAMEADM+6, ADMDS+6, DELADM+3, RICU+7
$$HTE^XLFDT	DELADM+6
^XMB	TI+6, OBS+6, READM+10, SAMEADM+8, ADMDS+13, DELADM+9, ICU+10, RICU+12, TO+7, AMA+12 , DEATH+7, ONEDAY+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DG(405.1 - [#405.1]	GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ
^BDGWD - [#9009016.5]	GET1^DIQ
^BDGPAR - [#9009020.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APCA"	LASTICU+3, LASTICU+4
^DGPM("APTT3"	LASTDX+1, LASTSRV+1, READM24+3, READM24+7

Label References

Name	Line Occurrences
$$LASTDX	READM+7, SAMEADM+5
$$LASTICU	EVENT+46
$$LASTSRV	READM+9
$$READM24	EVENT+14
ADMDS	EVENT+27
AMA	EVENT+67
DEATH	EVENT+63
DELADM	EVENT+35
GEN	TI+1, OBS+2, READM+2, SAMEADM+2, ADMDS+2, DELADM+1, TO+1, AMA+1, DEATH+1, ONEDAY+1
ICU	EVENT+49
OBS	EVENT+32
ONEDAY	EVENT+76
READM	EVENT+18
RICU	EVENT+47
SAMEADM	EVENT+14
TI	EVENT+8
TO	EVENT+71

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GEN+5, ICU+9, RICU+11*
ADM	LASTICU~, LASTICU+3, LASTICU+4, READM24~, READM24+2, READM24+11
ADMDT	READM24+1~, READM24+2*, READM24+3, READM24+5
BDGDLREA	DELADM+7, DELADM+8!
BDGQUIT	EVENT+12~, EVENT+13, EVENT+14, EVENT+42~, EVENT+45, EVENT+47
CODE	EVENT+7~*, EVENT+8
D	LASTICU+1~, LASTICU+3*, LASTICU+4
DATE	RICU~, RICU+7, LASTDX~, LASTDX+1, LASTSRV~, LASTSRV+1, LASTICU~, LASTICU+3
>> DFN	EVENT+14, EVENT+18, EVENT+27, EVENT+32, EVENT+62, EVENT+74, EVENT+75, GEN+2, GEN+3, TI+5 , OBS+4, READM+8, SAMEADM+7, ADMDS+7, ADMDS+9, ADMDS+10, ICU+3, ICU+4, ICU+8, RICU+4 , RICU+5, RICU+10, TO+6, AMA+8, DEATH+6, ONEDAY+6, LASTDX+1, LASTSRV+1, LASTSRV+3, LASTICU+3 , LASTICU+4
>> DGPMA	EVENT+7, EVENT+35, EVENT+41, EVENT+46, EVENT+47, EVENT+59, EVENT+74, ICU+8, RICU+10
>> DGPMCA	EVENT+14, EVENT+18, EVENT+27, EVENT+32, EVENT+46, EVENT+74, EVENT+75, GEN+4, TI+3, TI+4 , TI+5, OBS+4, OBS+5, READM+5, READM+8, SAMEADM+4, SAMEADM+7, ADMDS+5, ADMDS+7, ICU+6 , ICU+8, RICU+8, RICU+10, TO+5, TO+6, AMA+4, AMA+8, DEATH+5, DEATH+6, ONEDAY+5 , ONEDAY+6
>> DGPMDA	EVENT+66, EVENT+71, ICU+5, RICU+6, TO+3, TO+4, AMA+3, AMA+9, DEATH+3, DEATH+4 , ONEDAY+3, ONEDAY+4
>> DGPMP	DELADM+3, DELADM+4
>> DGPMT	EVENT+4, EVENT+39, EVENT+58
DIFF	READM24+1~, READM24+5*, READM24+6
DIV	EVENT+1~*, EVENT+6, EVENT+13, EVENT+17, EVENT+26, EVENT+31, EVENT+45, EVENT+47, EVENT+49, EVENT+63 , EVENT+67, EVENT+70, EVENT+76
DUZ	DELADM+5
DUZ(2	EVENT+1, GEN+3, READM+4, ADMDS+4, ICU+4, RICU+5
FOUND	LASTICU+1~, LASTICU+2, LASTICU+3, LASTICU+7, LASTICU+11
LAST	READM~, READM+6, READM+7, READM+9, SAMEADM~, SAMEADM+5, SAMEADM+6, ADMDS~, ADMDS+6, ADMDS+9 , ADMDS+10, LASTICU+1~, LASTICU+8, LASTICU+11, READM24+1~, READM24+3, READM24+4, READM24+5, READM24+7, READM24+11
N	LASTICU+1~, LASTICU+4*, LASTICU+7, LASTICU+8
PAT	READM24~, READM24+3, READM24+7, READM24+11
U	EVENT+7, EVENT+14, EVENT+18, EVENT+27, EVENT+41, DELADM+4, READM24+11
>> X	EVENT+46, EVENT+47, GEN+5, ICU+9, RICU+11
XMB	GEN+1!, TI+2, OBS+3, READM+3, SAMEADM+3, ADMDS+3, DELADM+2, ICU+1!, ICU+2, RICU+2! , RICU+3, TO+2, AMA+2, DEATH+2, ONEDAY+2
XMB(1	GEN+2, ICU+3, RICU+4*
XMB(2	GEN+3, ICU+4, RICU+5*
XMB(3	GEN+4, DELADM+3, ICU+5, RICU+6
XMB(4	TI+3, OBS+4, READM+4, SAMEADM+4, ADMDS+4, DELADM+4, ICU+6, RICU+7, TO+3, AMA+3 , DEATH+3, ONEDAY+3
XMB(5	TI+4, OBS+5, READM+5, SAMEADM+5, ADMDS+5, DELADM+5, ICU+8, RICU+8, TO+4, AMA+4 , DEATH+4, ONEDAY+4
XMB(6	TI+5, READM+6, SAMEADM+6, ADMDS+6, DELADM+6, RICU+10, TO+5, AMA+9, DEATH+5, ONEDAY+5
XMB(7	READM+7, SAMEADM+7, ADMDS+9, DELADM+7, TO+6, AMA+8, DEATH+6, ONEDAY+6
XMB(8	READM+8, ADMDS+12
XMB(9	READM+9, ADMDS+7
>> XMDT	GEN+5, ICU+9, RICU+11*
Y	EVENT+14, EVENT+18, EVENT+27, GEN+5, ADMDS+10, ADMDS+12, ICU+9, RICU+11, LASTDX+1~, LASTDX+2 , LASTDX+3, LASTSRV+1~, LASTSRV+2, LASTSRV+3, READM24+7, READM24+8, READM24+11

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGBULL1

Call Graph Total: 8