Routine: BDGSTAT3

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	2	($$READ,INIT,PRTKL,ZIS)^BDGF $$ACTSRV^BDGPAR
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 SERV
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 if printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
NEWBORN(SERV,DATE,DATA)	; subtract out newborn numbers of ward and date
PRINT	; print to paper
LEGEND	; add legend explaining column headings
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$READ^BDGF	BDGSTAT3+7, BDGSTAT3+8, BDGSTAT3+10, BDGSTAT3+13
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+6
ZIS^BDGF	BDGSTAT3+15
$$ACTSRV^BDGPAR	INIT+9
$$GET1^DIQ	INIT+11, INIT+13, INIT+14, INIT+15
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+69, INIT+81, INIT+94, HDG+12, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGSTAT3",$J,BDGLN,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?30,"Statistics by Service" 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+9
Function Call: WRITE	Prompt: !,"Service",?11,"ADM",?17,"TXI",?23,"TXO",?29,"DSC",?35,"DTH" Line Location: HDG+10
Function Call: WRITE	Prompt: ?40,"1DAY",?47,"DAYS",?55,"ADPL",?64,"LOSD",?74,"LOSA" Line Location: HDG+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80),! Line Location: HDG+12
Routine Call	VALM Line Location: EN+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGCTX - [#9009016.6]	INIT+6, INIT+18, INIT+20, NEWBORN+3
^DIC(45.7 - [#45.7]	NEWBORN+2
^TMP("BDGSTAT3"	INIT+2!, INIT+96, SET+2*, EXIT+1!, PRINT+3, PRINT+5

Label References

Name	Line Occurrences
$$PAD	INIT+49, INIT+61, INIT+73, INIT+86, SP+1
$$SP	HDR+3, HDR+6
EXIT	PRINT+6
HDG	PRINT+2, PRINT+4
INIT	EN+1
LEGEND	INIT+98
PRINT	EN+1
SET	INIT+46, INIT+58, INIT+69, INIT+70, INIT+81, INIT+94, INIT+96, LEGEND+1, LEGEND+2, LEGEND+3 , LEGEND+4, LEGEND+5, LEGEND+6, LEGEND+7, LEGEND+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	INIT+1~, INIT+44*, INIT+45, INIT+47, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+56 , INIT+57, INIT+62, INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68
BDGA	INIT+1~
BDGA(	INIT+47, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+56, INIT+57
BDGA("A"	INIT+37*
BDGA("P"	INIT+38*, INIT+84, INIT+86
BDGBD	BDGSTAT3+5~, BDGSTAT3+7*, HDR+2, INIT+4, INIT+9, INIT+17, HDG+3
>> BDGDATE	HDG+9
BDGDAYS	INIT+1~, INIT+4*, INIT+51, INIT+63, INIT+75, INIT+88
BDGED	BDGSTAT3+5~, BDGSTAT3+8*, HDR+2, INIT+4, INIT+18, HDG+3
BDGIA	BDGSTAT3+5~, BDGSTAT3+10*, INIT+9
BDGLN	PRINT+1~, PRINT+3*, PRINT+5
BDGPG	PRINT+1~, HDG+1*, HDG+4
>> BDGTIME	HDG+4
BDGTYP	BDGSTAT3+5~, BDGSTAT3+13*, HDR+4, HDR+5, INIT+13, INIT+14, INIT+15, HDG+7, HDG+8
>> BDGUSR	HDG+2
D	PAD~, PAD+2
DATA	NEWBORN~, NEWBORN+4*, SET~, SET+2
DATE	INIT+1~, INIT+17, INIT+18, INIT+20, NEWBORN~, NEWBORN+3
I	INIT+1~, INIT+37, INIT+38, INIT+39, INIT+40, INIT+41, INIT+50, INIT+62, INIT+74, INIT+87* , NEWBORN+4*
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+4
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+1~, INIT+49, INIT+50, INIT+51, INIT+52, INIT+54, INIT+57, INIT+58, INIT+61, INIT+62 , INIT+63, INIT+64, INIT+66, INIT+68, INIT+69, INIT+73, INIT+74, INIT+75, INIT+76, INIT+78* , INIT+80, INIT+81, INIT+85~, INIT+86, INIT+87, INIT+88, INIT+89, INIT+91, INIT+93*, INIT+94
N	SP~, SP+1
NEW	INIT+85~, INIT+86*, INIT+87, INIT+88, INIT+89, INIT+90, INIT+91, INIT+92, INIT+93
NEWB	NEWBORN+1~, NEWBORN+2*, NEWBORN+3
NUM	SET~, SET+1*, SET+2
SERV	INIT+1~, INIT+6, INIT+9, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+20 , INIT+47, INIT+48, INIT+49, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+56, INIT+57 , NEWBORN~, NEWBORN+3
SVABV	INIT+1~, INIT+11, INIT+12, INIT+37, INIT+38
TOTAL	INIT+1~, INIT+3, INIT+39, INIT+74, INIT+75, INIT+76, INIT+77, INIT+78, INIT+79, INIT+80
TOTAL(	INIT+62, INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68
TOTAL("A"	INIT+3, INIT+40
TOTAL("P"	INIT+3, INIT+41
U	BDGSTAT3+13, INIT+23, INIT+25, INIT+27, INIT+30, INIT+32, INIT+34, INIT+37, INIT+38, INIT+39 , INIT+40, INIT+41, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+56, INIT+57, INIT+62 , INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, INIT+74, INIT+75, INIT+76, INIT+77 , INIT+78, INIT+79, INIT+80, INIT+87, INIT+88, INIT+89, INIT+90, INIT+91, INIT+92, INIT+93 , NEWBORN+4
VALMCNT	EN+2~, INIT+3*, INIT+46, INIT+58, INIT+69, INIT+70, INIT+81, INIT+94, INIT+96, LEGEND+1 , LEGEND+2, LEGEND+3, LEGEND+4, LEGEND+5, LEGEND+6, LEGEND+7, LEGEND+8
>> VALMHDR(1	HDR+3*
>> VALMHDR(2	HDR+6*
X	HDR+1~, HDR+2, HDR+3, HDR+4, HDR+5, HDR+6, INIT+1~, INIT+20, INIT+23, INIT+25 , INIT+27, INIT+30, INIT+32, INIT+34, INIT+45, INIT+46, INIT+53, INIT+54, INIT+56, INIT+57 , INIT+65, INIT+66, INIT+67, INIT+68, INIT+77, INIT+78, INIT+79, INIT+80, INIT+90, INIT+91 , INIT+92, INIT+93, NEWBORN+3, NEWBORN+4, HELP+1, HDG+3~, HDG+4, HDG+7, HDG+8, HDG+9
Y	INIT+1~, INIT+23, INIT+25, INIT+27*, INIT+37, INIT+39, INIT+40
Y1	INIT+1~, INIT+30, INIT+32, INIT+34*, INIT+38, INIT+39, INIT+41

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGSTAT3

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: