Routine: BDGCENI

Package	Total	Call Graph
IHS Changes To ADT	2	($$READ,MSG,PAUSE)^BDGF $$ADULT^BDGPAR
Kernel	2	^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA Fileman	2	^DIE $$GET1^DIQ
IHS Changes To Scheduling	1	$$DIV^BSDU
IHS Patient	1	$$AGE^AUPNPAT
IHS VA Utilities	1	MAIL^XBMAIL
Registration	1	(DEFS,QUE)^DGPMBSAR

Package

Total

Call Graph

($$READ,MSG,PAUSE)^BDGF $$ADULT^BDGPAR

^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT

^DIE $$GET1^DIQ

$$DIV^BSDU

$$AGE^AUPNPAT

MAIL^XBMAIL

(DEFS,QUE)^DGPMBSAR

Name	Comments	DBIA/ICR reference
MSG	;EP; text of mail message
SET(WD,SV,ADULT)	; stuff census files
EN	;EP; entry point after queuing to background
DSCH(ADM)	; return discharge date for admission ADM

Name	Field # of Occurrence
^%ZTLOAD	BDGCENI+24
$$AGE^AUPNPAT	EN+24
$$READ^BDGF	BDGCENI+15
MSG^BDGF	BDGCENI+14, BDGCENI+25, EN+4, EN+10, EN+43, EN+47
PAUSE^BDGF	BDGCENI+25
$$ADULT^BDGPAR	EN+24
$$DIV^BSDU	BDGCENI+7
DEFS^DGPMBSAR	EN+50
QUE^DGPMBSAR	EN+50
^DIE	BDGCENI+7, BDGCENI+10, BDGCENI+12, BDGCENI+19
$$GET1^DIQ	BDGCENI+11, EN+20, EN+34
MAIL^XBMAIL	EN+53
$$FMADD^XLFDT	EN+8
$$FMTE^XLFDT	BDGCENI+15

FileNo	Call Tags
^DGPM - [#405]	GET1^DIQ
^DG(43 - [#43]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BDGCTX - [#9009016.6]	EN+6!, SET+26, SET+27, SET+29, SET+30, SET+33
^BDGCTX("B"	SET+27*
^BDGCTX(0	SET+28*
^BDGCWD - [#9009016.2]	EN+5!, SET+6, SET+7, SET+9, SET+10, SET+13, SET+16, SET+17, SET+18, SET+19* , SET+22, SET+23
^BDGCWD("B"	SET+7*
^BDGCWD(0	SET+8*
^DGPM - [#405]	EN+11, EN+14, EN+15, EN+17, EN+24, DSCH+2, DSCH+3
^DGPM("APCA"	EN+28, EN+32
^DGPM("ATS"	EN+38, EN+40

Name	Line Occurrences
$$DSCH	EN+16
SET	EN+44

Name	Field # of Occurrence
^(0	DSCH+3

Name	Field # of Occurrence
ADM	DSCH~, DSCH+2
ADULT	EN+1~, EN+24*, EN+44, SET~, SET+2, SET+3
BDGBEG	BDGCENI+4~, BDGCENI+11*, BDGCENI+12, BDGCENI+15, BDGCENI+18, EN+8, EN+16, EN+17, EN+28, EN+37 , EN+38, EN+49
>> BDGCEN	EN+8*, SET+9, SET+10, SET+13, SET+16, SET+17, SET+18, SET+19, SET+22, SET+23 , SET+29, SET+30, SET+33
BDGFRM	EN+48~, EN+49*
BDGREP	EN+48~, EN+49*
BEGCEN	EN+1~
CA	EN+1~, EN+11*, EN+14, EN+15, EN+16, EN+17, EN+20, EN+24, EN+28, EN+32 , EN+38, EN+40
DA	BDGCENI+4~, BDGCENI+7, BDGCENI+10, BDGCENI+12, BDGCENI+19
DATE	EN+1~, EN+27, EN+28, EN+29
DEFAULT	BDGCENI+4~
DFN	EN+1~, EN+20*, EN+24, EN+28, EN+32, EN+38, EN+40
DIE	BDGCENI+4~, BDGCENI+7, BDGCENI+10, BDGCENI+12, BDGCENI+19
DR	BDGCENI+4~, BDGCENI+7, BDGCENI+10, BDGCENI+12, BDGCENI+18
DUZ	EN+53~
IEN	EN+1~, EN+32*, EN+34
LAST	EN+1~, EN+27, EN+29, EN+30, EN+32, EN+37, EN+38, EN+39, EN+40
PIECE	SET+1~, SET+3*, SET+23, SET+33
RC	EN+48~, EN+49*
SRV	EN+1~, EN+40*, EN+44
SV	SET~, SET+2, SET+17, SET+18, SET+19, SET+22, SET+23, SET+26, SET+27, SET+28 , SET+29, SET+30, SET+33
U	EN+15, DSCH+2, SET+8, SET+13, SET+18, SET+22, SET+23, SET+28, SET+33
WARD	EN+1~, EN+34*, EN+44
WD	SET~, SET+2, SET+6, SET+7, SET+8, SET+9, SET+10, SET+13, SET+16, SET+17 , SET+18, SET+19, SET+22, SET+23
X	EN+1~, EN+5, EN+6, DSCH+1~, DSCH+2*, DSCH+3
>> Y	BDGCENI+7, BDGCENI+10
>> ZTDESC	BDGCENI+22*
>> ZTDTH	BDGCENI+23*
>> ZTIO	BDGCENI+22*
>> ZTQUEUED	EN+4, EN+10, EN+43, EN+47
>> ZTRTN	BDGCENI+22*
>> ZTSAVE("BDGBEG"	BDGCENI+23*

Information