Routine: BDGILD5

Information

BDGILD5 ; IHS/ANMC/LJF - DISCHARGES BY DATE ;

Source Information

Source file <BDGILD5.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	3	($$CONF,$$NUMDATE,INIT,PRTKL)^BDGF ($$LASTPRV,$$LASTPRVS,$$LASTSRVC,$$LASTTXN,$$PRIORMVT,$$WRDABRV2)^BDGF1 ($$HRCN,$$NEWINS)^BDGF2
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGILD7

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; puts display line into array
EN	;EP; -- main entry point for BDG ILD DISCHARGES ; Assumes BDGTYP,BDGBD,BDGED,BDGTYP are set
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
OKAY(TYPE,SORT,IEN,DFN)	; does discharge fall within parameters
SORT(TYPE,DFN,N,ADM)	; returns external format of sort for this report ; ADM= admission ien
HDG	; heading when printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print to paper
TYPE	;;
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+8
$$CONF^BDGF	HDR+2, HDG+2
$$NUMDATE^BDGF	INIT+35, INIT+36
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+8
$$LASTPRV^BDGF1	INIT+44, OKAY+7, SORT+6
$$LASTPRVS^BDGF1	OKAY+10, SORT+7
$$LASTSRVC^BDGF1	INIT+38, SORT+5
$$LASTTXN^BDGF1	OKAY+6
$$PRIORMVT^BDGF1	INIT+40
$$WRDABRV2^BDGF1	INIT+40
$$HRCN^BDGF2	INIT+34
$$NEWINS^BDGF2	INIT+53, INIT+54
$$GET1^DIQ	INIT+13, INIT+32, INIT+33, INIT+37, INIT+45, INIT+66, OKAY+4, OKAY+5, OKAY+8, OKAY+9 , SORT+4, SORT+8, SORT+10, SORT+11
EN^VALM	EN+5
TERM^VALM0	EN+4
CLEAR^VALM1	EN+4, EN+6
$$FMTE^XLFDT	HDR+5, HDG+6
$$REPEAT^XLFSTR	HDG+8, 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("BDGILD5",$J,LINE,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?13,"*",$$CONF^BDGF,"*" Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?30,"Discharges by Date",?71,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+5
Function Call: WRITE	Prompt: !?(80-$L(X)\2),X Line Location: HDG+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+8
Function Call: WRITE	Prompt: !,"Patient Name",?23,"Chart #",?31,"Admission Dates",?57,"LOS" Line Location: HDG+9
Function Call: WRITE	Prompt: ?65,"Serv",?72,"Ward" Line Location: HDG+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+10
Routine Call	VALM Line Location: EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUTTCOM - [#9999999.05]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INIT+35, SORT+3
^DGPM("AMV3"	INIT+7, INIT+8, INIT+9
^DIC(42 - [#42]	OKAY+4
^TMP("BDGILD5"	INIT+2!, INIT+73, SET+2*, EXIT+1!, PRINT+4, PRINT+6
^TMP("BDGILD5A"	INIT+2!, INIT+15*, INIT+20, INIT+27, INIT+28, INIT+31, INIT+75!

Label References

Name	Line Occurrences
$$OKAY	INIT+11
$$PAD	INIT+34, INIT+35, INIT+37, INIT+38, INIT+40, INIT+45, SP+1
$$SORT	INIT+13
$$SP	HDR+2, HDR+4, HDR+6, INIT+25, INIT+43, INIT+55, INIT+56, INIT+60, INIT+70, INIT+71
EXIT	PRINT+8
HDG	PRINT+2, PRINT+5
INIT	EN+3
PRINT	EN+3
SET	INIT+25, INIT+41, INIT+46, INIT+55, INIT+56, INIT+60, INIT+63, INIT+70, INIT+71, INIT+73

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	INIT+32, INIT+35, INIT+37, INIT+38, INIT+40, INIT+44, INIT+45, INIT+66, OKAY+1~, OKAY+5 , OKAY+6, OKAY+7, SORT~, SORT+5, SORT+6, SORT+7
BDGBD	HDR+5, INIT+6, EXIT+1!, HDG+6
BDGCOV	INIT+19~, INIT+49*, INIT+55
>> BDGDATE	HDG+3
BDGED	HDR+5, INIT+6, EXIT+1!, HDG+6
>> BDGINS	INIT+48
BDGPG	PRINT+1~, HDG+1*, HDG+3
BDGRR	INIT+19~
BDGRR(	INIT+59, INIT+60
BDGSRT	INIT+11, EXIT+1!
>> BDGTIME	HDG+5
BDGTYP	INIT+11, INIT+13, INIT+23, EXIT+1!
>> BDGUSR	HDG+2
BDGW	INIT+52~, INIT+54*, INIT+56
BDGX	INIT+52~, INIT+53*, INIT+56
BDGY	INIT+52~, INIT+53*, INIT+56
BDGZ	INIT+52~, INIT+54*
COUNT	INIT+19~, INIT+67*, INIT+69, INIT+71
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+5~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+15, INIT+19~, INIT+27*, INIT+28, INIT+31 , INIT+36, INIT+40
DFN	INIT+5~, INIT+8, INIT+9, INIT+11, INIT+13, INIT+15, INIT+31, INIT+33, INIT+34, INIT+38 , INIT+40, INIT+44, INIT+53, INIT+54, OKAY~, OKAY+6, OKAY+7, OKAY+8, OKAY+9, OKAY+10 , SORT~, SORT+5, SORT+6, SORT+7, SORT+8, SORT+10, SORT+11
DUZ(2	INIT+34
END	INIT+5~, INIT+6*, INIT+7
I	INIT+19~, INIT+59*, INIT+60
IEN	INIT+5~, INIT+9, INIT+11, INIT+13, INIT+15, INIT+19~, INIT+28, INIT+31, INIT+32, INIT+53 , INIT+54, OKAY~, OKAY+4, OKAY+5, OKAY+10
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+3
L	PAD~, PAD+2
LINE	INIT+19~, INIT+33, INIT+34, INIT+35, INIT+36, INIT+37, INIT+38, INIT+40, INIT+41, INIT+43 , INIT+44, INIT+45, INIT+46, PRINT+1~, PRINT+4*, PRINT+6
N	SORT~, SORT+3, SORT+4, SP~, SP+1
NUM	SET~, SET+1*, SET+2
SORT	INIT+5~, INIT+13, INIT+14, INIT+15, INIT+19~, INIT+20*, INIT+24, INIT+27, INIT+28, INIT+31 , OKAY~, OKAY+3
SORT(	OKAY+4, OKAY+6, OKAY+7, OKAY+8, OKAY+9, OKAY+10
TLOS	INIT+19~, INIT+66*, INIT+70, INIT+71
TYPE	OKAY~, OKAY+2, OKAY+4, OKAY+6, OKAY+7, OKAY+8, OKAY+9, SORT~, SORT+3, SORT+4 , SORT+5, SORT+6, SORT+7, SORT+8, SORT+10
U	OKAY+3, OKAY+6
VALMCNT	EN+4~, INIT+1*, INIT+25, INIT+41, INIT+46, INIT+55, INIT+56, INIT+60, INIT+63, INIT+70 , INIT+71, INIT+73
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+6*
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, INIT+19~, INIT+24, INIT+25, SORT+2~, HELP+1 , HDG+4~, HDG+5, HDG+6, HDG+7

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGILD5

Call Graph Total: 11

Caller Graph Total: 1