Routine: BDGSTAT1

Information

BDGSTAT1 ; IHS/ANMC/LJF - AVERAGE DAILY PATIENT LOAD ;

Source file <BDGSTAT1.m>

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

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put data line into display array
HDG	; print heading on paper
EN	;EP; entry point from queuing
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
1	; step thru ADT Census-Ward file for date range
INIT	; -- init variables and list array
2	; step thru ADT Census-Treating Specialty file by date
EXIT	; -- exit code
PRINT	; print report to paper
SELECT	; -- have user select report by ward or by service
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGSTAT1",$J,BDGLN,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
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,?76,BDGUSR Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !,"Ward",?40,"Patient Days",?65,"ADPL" Line Location: HDG+8
Function Call: WRITE	Prompt: !,"Service",?25,"Pat. Days: Adult",?45,"Peds",?55,"Total",?70,"ADPL" Line Location: HDG+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+10
Routine Call	VALM Line Location: EN+3

Name	Line Occurrences (* Changed, ! Killed)
^BDGCTX - [#9009016.6]	2+3, 2+10, 2+13
^BDGCWD - [#9009016.2]	1+3, 1+9, 1+11
^BDGWD - [#9009016.5]	1+4
^TMP("BDGSTAT1"	INIT+2!, INIT+8, SET+2*, PRINT+4, PRINT+6

Name	Field # of Occurrence
BDGA	1+1~, 2+1~
BDGA(	1+13, 1+16, 1+17, 1+18, 1+22, 2+16, 2+17*, 2+20, 2+21, 2+22 , 2+23, 2+28, 2+29
BDGBD	SELECT+1~, SELECT+6*, HDR+2, INIT+4, 1+8, 2+6, 2+9, HDG+5
>> BDGDATE	HDG+6
BDGDAYS	INIT+1~, INIT+4*, 1+18, 1+26, 2+24, 2+36
BDGED	SELECT+1~, SELECT+7*, HDR+2, INIT+4, 1+9, 2+6, 2+10, HDG+5
BDGFRM	SELECT+1~, SELECT+2*, SELECT+3, SELECT+4, EN+3, INIT+6, HDG+3, HDG+8, HDG+9
BDGIA	SELECT+1~, SELECT+4*, 1+4, 1+5, 2+6
BDGLN	PRINT+1~, PRINT+3, PRINT+4, PRINT+6
BDGPG	PRINT+1~, HDG+1*, HDG+4
>> BDGTIME	HDG+4
>> BDGUSR	HDG+6
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	1+1~, 1+8, 1+9, 1+11, 2+1~, 2+9, 2+10, 2+13
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+1
L	PAD~, PAD+2
LINE	1+1~, 1+17, 1+18, 1+19, 1+26, 1+27, 2+1~, 2+21, 2+22, 2+24 , 2+25, 2+33, 2+34, 2+35, 2+36, 2+37
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
SRV	2+1~, 2+2, 2+3, 2+6, 2+7, 2+10, 2+13, 2+20*, 2+21, 2+22 , 2+23, 2+28, 2+29
SRVNM	2+1~, 2+7*, 2+16, 2+17
SUBTOT	2+1~, 2+23*, 2+24, 2+30
TOTAL	1+1~, 1+22, 1+25, 1+26, 2+1~, 2+30, 2+35, 2+36
TOTAL("A"	2+28*, 2+33
TOTAL("P"	2+29*, 2+34
U	1+11, 2+16, 2+17
VALMCNT	EN+2~, INIT+3*, INIT+8, 1+19, 1+27, 2+25, 2+37
>> VALMHDR(1	HDR+3*
WARD	1+1~, 1+2, 1+3, 1+4, 1+5, 1+6, 1+9, 1+11, 1+16*, 1+17 , 1+18, 1+22
WRDNM	1+1~, 1+6*, 1+13
X	HDR+1~, HDR+2, HDR+3, 1+1~, 1+11, 1+13, 2+1~, 2+13, 2+16, 2+17 , HELP+1, HDG+2~, HDG+3, HDG+4, HDG+5, HDG+6