Routine: BDGSTAT2

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

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put data into display array
EN	; -- main entry point for BDG STAT BY WARD
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
SWING(WARD,DATE,DATA)	; subtract out swing bed numbers of ward and date
EXPND	; -- expand code
HDG	; heading if printing to paper
PRINT	; print to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
NEWBORN(WARD,DATE,DATA)	; subtract out newborn numbers of ward and date
ONLY(WARD,NAME,DATE)	; find data by inpt service
LEGEND	; add legend explaining column headings
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$READ^BDGF	BDGSTAT2+10, BDGSTAT2+11, BDGSTAT2+13, BDGSTAT2+16
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+6
ZIS^BDGF	BDGSTAT2+18
$$GET1^DIQ	INIT+10, INIT+11, ONLY+3
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$FMDIFF^XLFDT	INIT+4
$$FMTE^XLFDT	HDR+2, HDG+3
$$REPEAT^XLFSTR	INIT+57, INIT+69, INIT+82, HDG+10, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGSTAT2",$J,BDGLN,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?31,"Statistics by Ward" Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X,?71,"Page: ",BDGPG Line Location: HDG+4
Function Call: WRITE	Prompt: !,BDGDATE,?(80-$L(X)\2),X Line Location: HDG+7
Function Call: WRITE	Prompt: !,"Ward",?11,"ADM",?17,"TXI",?23,"TXO",?29,"DSC",?35,"DTH",?40,"1DAY" Line Location: HDG+8
Function Call: WRITE	Prompt: ?47,"DAYS",?55,"ADPL",?64,"LOSD",?74,"LOSA" Line Location: HDG+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+10
Routine Call	VALM Line Location: EN+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGCWD - [#9009016.2]	INIT+6, INIT+14, INIT+20, ONLY+2, ONLY+11, NEWBORN+3, SWING+3
^BDGWD - [#9009016.5]	INIT+9
^DIC(45.7 - [#45.7]	NEWBORN+2, SWING+2
^TMP("BDGSTAT2"	INIT+2!, INIT+84, SET+2*, EXIT+1!, PRINT+3, PRINT+5

Label References

Name	Line Occurrences
$$PAD	INIT+38, INIT+49, INIT+61, INIT+74, SP+1
$$SP	HDR+3, HDR+7
EXIT	PRINT+6
HDG	PRINT+2, PRINT+4
INIT	EN+1
LEGEND	INIT+86
NEWBORN	INIT+21
ONLY	INIT+17
PRINT	EN+1
SET	INIT+46, INIT+57, INIT+69, INIT+82, INIT+84, LEGEND+1, LEGEND+2, LEGEND+3, LEGEND+4, LEGEND+5 , LEGEND+6, LEGEND+7, LEGEND+8
SWING	INIT+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGA	INIT+1~
BDGA(	INIT+33, INIT+37, INIT+39, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, ONLY+32
BDGBD	BDGSTAT2+8~, BDGSTAT2+10*, HDR+2, INIT+4, INIT+13, HDG+3
>> BDGDATE	HDG+7
BDGDAYS	INIT+1~, INIT+4*, INIT+40, INIT+51, INIT+63, INIT+76
BDGED	BDGSTAT2+8~, BDGSTAT2+11*, HDR+2, INIT+4, INIT+14, HDG+3
BDGIA	BDGSTAT2+8~, BDGSTAT2+13*, INIT+10
BDGLN	PRINT+1~, PRINT+3*, PRINT+5
BDGNB	INIT+1~, INIT+60, INIT+62, INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, ONLY+28*
BDGPG	PRINT+1~, HDG+1*, HDG+4
>> BDGSWING	INIT+73, INIT+75, INIT+76, INIT+77, INIT+78, INIT+79, INIT+80, INIT+81, ONLY+30*
>> BDGTIME	HDG+4
BDGTYP	BDGSTAT2+8~, BDGSTAT2+16*, HDR+5, HDR+6, INIT+17, ONLY+4, ONLY+6, ONLY+7, ONLY+9, HDG+5 , HDG+6
>> BDGUSR	HDG+2
D	PAD~, PAD+2
DATA	NEWBORN~, NEWBORN+4, SWING~, SWING+4, SET~, SET+2
DATE	INIT+1~, INIT+13, INIT+14, INIT+17, INIT+20, INIT+21, INIT+23, ONLY~, ONLY+2, ONLY+11 , NEWBORN~, NEWBORN+3, SWING~, SWING+3
I	INIT+1~, INIT+33, INIT+34, INIT+39, INIT+50, INIT+62, INIT+75, ONLY+1~, ONLY+28, ONLY+30 , ONLY+32, ONLY+33, NEWBORN+1~, NEWBORN+4, SWING+1~, SWING+4
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+4
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+1~, INIT+38, INIT+39, INIT+40, INIT+41, INIT+43, INIT+45, INIT+46, INIT+49, INIT+50 , INIT+51, INIT+52, INIT+54, INIT+56, INIT+57, INIT+61, INIT+62, INIT+63, INIT+64, INIT+66* , INIT+68, INIT+69, INIT+74, INIT+75, INIT+76, INIT+77, INIT+79, INIT+81*, INIT+82
N	SP~, SP+1
NAME	ONLY~, ONLY+32
NEWB	NEWBORN+1~, NEWBORN+2*, NEWBORN+3
NUM	SET~, SET+1*, SET+2
SRV	ONLY+1~, ONLY+2*, ONLY+3, ONLY+11
>> SRVNM	ONLY+3*, ONLY+4, ONLY+6, ONLY+7, ONLY+9, ONLY+27, ONLY+29
SWING	SWING+1~, SWING+2*, SWING+3
TOTAL	INIT+1~, INIT+3, INIT+34, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+56 , ONLY+33*
U	BDGSTAT2+16, INIT+26, INIT+28, INIT+30, INIT+33, INIT+34, INIT+39, INIT+40, INIT+41, INIT+42 , INIT+43, INIT+44, INIT+45, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+56 , INIT+62, INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, INIT+75, INIT+76, INIT+77 , INIT+78, INIT+79, INIT+80, INIT+81, ONLY+14, ONLY+16, ONLY+18, ONLY+20, ONLY+22, ONLY+24 , ONLY+28, ONLY+30, ONLY+32, ONLY+33, NEWBORN+4, SWING+4
VALMCNT	EN+2~, INIT+3*, INIT+46, INIT+57, INIT+69, INIT+82, INIT+84, LEGEND+1, LEGEND+2, LEGEND+3 , LEGEND+4, LEGEND+5, LEGEND+6, LEGEND+7, LEGEND+8
>> VALMHDR(1	HDR+3*
>> VALMHDR(2	HDR+7*
WARD	INIT+1~, INIT+6, INIT+9, INIT+10, INIT+11, INIT+14, INIT+17, INIT+20, INIT+21, INIT+23 , INIT+37, INIT+38, INIT+39, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, ONLY~ , ONLY+2, ONLY+11, NEWBORN~, NEWBORN+3, SWING~, SWING+3
WRDNM	INIT+1~, INIT+11*, INIT+17, INIT+33
X	HDR+1~, HDR+2, HDR+3, HDR+5, HDR+6, HDR+7, INIT+1~, INIT+20, INIT+21, INIT+23 , INIT+26, INIT+28, INIT+30, INIT+42, INIT+43, INIT+44, INIT+45, INIT+53, INIT+54, INIT+55 , INIT+56, INIT+65, INIT+66, INIT+67, INIT+68, INIT+78, INIT+79, INIT+80, INIT+81, ONLY+1~ , ONLY+11, ONLY+14, ONLY+16, ONLY+18, ONLY+20, ONLY+22, ONLY+24, NEWBORN+1~, NEWBORN+3, NEWBORN+4 , SWING+1~, SWING+3, SWING+4, HELP+1, HDG+3~, HDG+4, HDG+5, HDG+6*, HDG+7
Y	INIT+1~, INIT+26, INIT+28, INIT+30, INIT+33, INIT+34, ONLY+1~, ONLY+14, ONLY+16, ONLY+18 , ONLY+20, ONLY+22, ONLY+24*, ONLY+28, ONLY+30, ONLY+32, ONLY+33

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGSTAT2

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: