Routine: BDGLOS1

Information

BDGLOS1 ; IHS/ANMC/LJF - LOS BY WARD BY MONTH ; [ 09/30/2004 11:32 AM ]

Source Information

Source file <BDGLOS1.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; puts display data into array
EN	; -- main entry point for BDG LOS BY WARD & MONTH
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
NEXTDT(PAT,ADM,LAST)	; return date when patient left ward
INIT	; -- init variables and list array
DAYS(YRMONTH)	; return # of days in particular year/month ; /IHS/ANMC/DLG 05AUG2004 Fix the leap year bug ; Original line-label and following line are below:
DSCH(ADM)	; return discharge date for admission ADM
PRINT	; print to paper
EXIT	; -- exit code
DAY	;;31;;28;;31;;30;;31;;30;;31;;31;;30;;31;;30;;31
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+7
$$CONF^BDGF	HDR+1
$$HRCN^BDGF2	INIT+69
$$GET1^DIQ	INIT+21, INIT+24, INIT+68, INIT+70
EN^VALM	EN+4
TERM^VALM0	EN+3
CLEAR^VALM1	EN+3, EN+5
$$FMADD^XLFDT	INIT+4, INIT+46, DAYS+8
$$FMDIFF^XLFDT	INIT+36, INIT+47
$$FMTE^XLFDT	HDR+2, INIT+65
$$REPEAT^XLFSTR	HDG+4, HDG+6, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGLOS1",$J,BDGN,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: HDG+2
Function Call: WRITE	Prompt: !,VALMHDR(X) Line Location: HDG+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+4
Function Call: WRITE	Prompt: !,"Month",?12,"Ward",?20,"Patient Name",?40,"Chart #" Line Location: HDG+5
Function Call: WRITE	Prompt: ?50,"Admit Date",?65,"Length of Stay",!,$$REPEAT^XLFSTR("-",80),! Line Location: HDG+6
Routine Call	VALM Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INIT+10, INIT+12, INIT+19, INIT+20, DSCH+2, DSCH+3
^DGPM("APCA"	INIT+7, INIT+8, INIT+16, INIT+17, NEXTDT+2
^TMP("BDGLOS1"	INIT+2!, INIT+74, SET+2*, EXIT+1!, PRINT+4, PRINT+6
^TMP("BDGLOS1A"	INIT+2!, INIT+38, INIT+50, INIT+56, INIT+58, INIT+60, INIT+62, INIT+63, INIT+75!

Label References

Name	Line Occurrences
$$DAYS	INIT+45
$$DSCH	INIT+11, NEXTDT+3
$$NEXTDT	INIT+23
$$PAD	INIT+66, INIT+67, INIT+69, INIT+70, INIT+71, SP+1
$$SP	HDR+1, HDR+3
DAY	DAYS+10
EXIT	PRINT+7
HDG	PRINT+3, PRINT+5
HDR	HDG+3
INIT	EN+2
PRINT	EN+2
SET	INIT+72, INIT+74

Naked Globals

Name	Field # of Occurrence
^(0	DSCH+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	DSCH~, DSCH+2, NEXTDT~, NEXTDT+2, NEXTDT+3
>> BDGADT	INIT+28*, INIT+50
BDGBD	HDR+2, INIT+11, EXIT+2!
BDGED	HDR+2, INIT+4, INIT+12, INIT+16, NEXTDT+4, EXIT+2!
BDGEDT	INIT+1~, INIT+4*, NEXTDT+4
BDGN	PRINT+1~, PRINT+3, PRINT+4, PRINT+6
BEGIN	INIT+1~, INIT+31, INIT+32, INIT+35, INIT+36, INIT+39, INIT+47, INIT+53*
CA	INIT+1~, INIT+8, INIT+10, INIT+11, INIT+12, INIT+16, INIT+17, INIT+23, INIT+38, INIT+50 , INIT+61, INIT+62*, INIT+63, INIT+68, INIT+70
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+1~, INIT+15, INIT+16, INIT+17, INIT+23, INIT+28, INIT+31, INIT+37, NEXTDT+1~, NEXTDT+2* , NEXTDT+3*, NEXTDT+4
DFN	INIT+1~, INIT+7, INIT+8, INIT+16, INIT+17, INIT+23, INIT+24, INIT+68, INIT+69
DUZ(2	INIT+69
END	INIT+1~, INIT+45, INIT+46, INIT+47, INIT+53
ENDDT	INIT+1~, INIT+23*, INIT+31, INIT+35, INIT+36, INIT+37
IEN	INIT+1~, INIT+17*, INIT+19, INIT+20, INIT+21
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+2
L	PAD~, PAD+2
LAST	NEXTDT~, NEXTDT+2
LINE	INIT+1~, INIT+65, INIT+66, INIT+67, INIT+69, INIT+70, INIT+71, INIT+72
LOS	INIT+1~, INIT+36, INIT+37, INIT+38, INIT+47, INIT+50, INIT+63, INIT+71
M	DAYS+6~, DAYS+7*, DAYS+8, DAYS+10
MONTH	INIT+1~, INIT+32, INIT+38, INIT+45, INIT+55, INIT+56*, INIT+58, INIT+60, INIT+62, INIT+63 , INIT+65
N	SP~, SP+1
NAME	INIT+1~, INIT+24, INIT+38, INIT+50, INIT+59, INIT+60*, INIT+62, INIT+63, INIT+67
NUM	SET~, SET+1*, SET+2
PAT	NEXTDT~, NEXTDT+2
U	INIT+20, DSCH+2
VALMCNT	EN+1~, INIT+3*, INIT+72, INIT+74
>> VALMHDR(	HDG+3
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+3*
WARD	INIT+1~, INIT+21, INIT+22, INIT+38, INIT+50, INIT+57, INIT+58*, INIT+60, INIT+62, INIT+63 , INIT+66
X	HDR+2~, HDR+3, DSCH+1~, DSCH+2, DSCH+3, HELP+1, HDG+2~, HDG+3*
YRMONTH	DAYS~, DAYS+7, DAYS+8

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGLOS1

Call Graph Total: 10