Routine: BDGCCEN

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$BROWSE,$$CONF,ZIS)^BDGF
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP; -- main entry point for BDG CURRENT CENSUS
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
HDG	; heading for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
SET(LINE,NUM)	; put display line into array
PRINT	; print report to paper
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF,?24,"Current Inpatient Census" Line Location: HDG+3
Function Call: WRITE	Prompt: @IOF Line Location: HDG+4
Function Call: WRITE	Prompt: ?(80-$L(X)\2),X Line Location: HDG+4
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+5
Function Call: WRITE	Prompt: !,?(80-$L(X)\2),X Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+8
Function Call: WRITE	Prompt: !?2,"Ward",?20,"# of Pts",?34,"Service",?60,"# of Pts" Line Location: HDG+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+10
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^DIC(45.7 - [#45.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT("ATR"	INIT+12, INIT+13
^DPT("CN"	INIT+6, INIT+8
^TMP("BDGCCEN"	INIT+2!, SET+2*, PRINT+6, PRINT+8, EXIT+1!

Name	Line Occurrences
$$PAD	INIT+29, INIT+30, INIT+31, INIT+36, INIT+39, INIT+43, SP+1
$$SP	HDR+2, INIT+27, INIT+29, INIT+35, INIT+39, INIT+43
EN	BDGCCEN+4
EXIT	PRINT+10
HDG	PRINT+3, PRINT+7
INIT	EN+1
PRINT	EN+1
SET	INIT+27, INIT+32, INIT+37, INIT+40, INIT+44

Name	Field # of Occurrence
ARRAY	INIT+1~
ARRAY(	INIT+9, INIT+19, INIT+22, INIT+25, INIT+26, INIT+29, INIT+30, INIT+31
BDGLN	PRINT+1~, PRINT+8*, PRINT+9
BDGX	PRINT+1~, PRINT+6*, PRINT+8
CNT	INIT+1~, INIT+8, INIT+9, INIT+13, INIT+15
D	PAD~, PAD+2
FIRST	INIT+1~, INIT+22, INIT+27
IO	PRINT+3
IOF	HDG+4
IOSL	PRINT+7
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+1~, INIT+29, INIT+30, INIT+31, INIT+32, INIT+35, INIT+36, INIT+37, INIT+39, INIT+40 , INIT+43*, INIT+44, SET~, SET+2
N	SP~, SP+1
NUM	INIT+1~, INIT+7, INIT+9, INIT+17, INIT+19, SET~, SET+1, SET+2
PT	INIT+1~, INIT+8, INIT+13
S	INIT+1~, INIT+12, INIT+13, INIT+14, INIT+17, INIT+18, INIT+19
SRV	INIT+1~
SRV(	INIT+15*, INIT+17, INIT+19
TOTAL	INIT+1~, INIT+9*, INIT+39
TOTAL1	INIT+1~, INIT+15*, INIT+39
TOTAL2	INIT+1~, INIT+26*, INIT+42, INIT+43
U	BDGCCEN+5, INIT+9, INIT+19, INIT+25, INIT+26, INIT+29, INIT+30, INIT+31
VALMCNT	EN+2~, INIT+3*, INIT+27, INIT+32, INIT+37, INIT+40, INIT+44
>> VALMHDR(1	HDR+2*
WARD	PRINT+1~
WD	INIT+1~, INIT+6*, INIT+8, INIT+9
X	BDGCCEN+4~, BDGCCEN+5, HDR+1~, INIT+1~, INIT+14, INIT+15, INIT+18, INIT+19, INIT+22, INIT+25 , INIT+26, INIT+29, INIT+30, INIT+31, HDG+4~, HDG+6, HELP+1*