Routine: BDGILD7

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

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; puts display line into array
EN	;EP; -- main entry point for BDG ILD DEATHS ; 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
EXPND	; -- expand code
HDG	; heading when printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print to paper
TYPE	;;
HELP	; -- help code

Name	Field # of Occurrence
^%ZISC	PRINT+7
$$CONF^BDGF	HDR+2, HDG+2
$$NUMDATE^BDGF	INIT+36
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+7
$$LASTPRV^BDGF1	INIT+43
$$LASTSRVC^BDGF1	INIT+38
$$HRCN^BDGF2	INIT+35
$$NEWINS^BDGF2	INIT+52, INIT+53
$$OKAY^BDGILD5	INIT+12
$$SORT^BDGILD5	INIT+14
$$GET1^DIQ	INIT+11, INIT+14, INIT+33, INIT+34, INIT+37, INIT+39, INIT+44
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+11, PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGILD7",$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,?28,"Inpatient Deaths 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,"Death Date",?41,"LOS" Line Location: HDG+9
Function Call: WRITE	Prompt: ?51,"Serv",?61,"Disch Type" Line Location: HDG+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+11
Routine Call	VALM Line Location: EN+5

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

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("AMV3"	INIT+7, INIT+8, INIT+9
^TMP("BDGILD7"	INIT+2!, INIT+65, SET+2*, EXIT+1!, PRINT+4, PRINT+6
^TMP("BDGILD7A"	INIT+2!, INIT+16*, INIT+21, INIT+28, INIT+29, INIT+32, INIT+67!

Name	Line Occurrences
$$PAD	INIT+35, INIT+36, INIT+37, INIT+38, INIT+39, INIT+44, SP+1
$$SP	HDR+2, HDR+4, HDR+6, INIT+26, INIT+42, INIT+54, INIT+55, INIT+59
EXIT	PRINT+7
HDG	PRINT+2, PRINT+5
INIT	EN+3
PRINT	EN+3
SET	INIT+26, INIT+40, INIT+45, INIT+54, INIT+55, INIT+59, INIT+62, INIT+65

Name	Field # of Occurrence
>> ADM	INIT+33*, INIT+37, INIT+38, INIT+43, INIT+44
BDGBD	HDR+5, INIT+6, EXIT+1!, HDG+6
BDGCOV	INIT+20~, INIT+48*, INIT+54
>> BDGDATE	HDG+3
BDGED	HDR+5, INIT+6, EXIT+1!, HDG+6
>> BDGINS	INIT+47
BDGPG	PRINT+1~, HDG+1*, HDG+3
BDGRR	INIT+20~
BDGRR(	INIT+58, INIT+59
BDGSRT	INIT+12, EXIT+1!
>> BDGTIME	HDG+5
BDGTYP	INIT+12, INIT+14, INIT+24, EXIT+1!
>> BDGUSR	HDG+2
BDGW	INIT+51~, INIT+53*, INIT+55
BDGX	INIT+51~, INIT+52*, INIT+55
BDGY	INIT+51~, INIT+52*, INIT+55
BDGZ	INIT+51~, INIT+53*
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+5~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+16, INIT+20~, INIT+28*, INIT+29, INIT+32 , INIT+36
DFN	INIT+5~, INIT+8, INIT+9, INIT+12, INIT+14, INIT+16, INIT+32, INIT+34, INIT+35, INIT+38 , INIT+43, INIT+52, INIT+53
DUZ(2	INIT+35
END	INIT+5~, INIT+6*, INIT+7
I	INIT+20~, INIT+58*, INIT+59
IEN	INIT+5~, INIT+9, INIT+11, INIT+12, INIT+14, INIT+16, INIT+20~, INIT+29, INIT+32, INIT+33 , INIT+39, INIT+52, INIT+53
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+3
L	PAD~, PAD+2
LINE	INIT+20~, INIT+34, INIT+35, INIT+36, INIT+37, INIT+38, INIT+39, INIT+40, INIT+42, INIT+43 , INIT+44, INIT+45, PRINT+1~, PRINT+4, PRINT+6
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
SORT	INIT+5~, INIT+14, INIT+15, INIT+16, INIT+20~, INIT+21*, INIT+25, INIT+28, INIT+29, INIT+32
VALMCNT	EN+4~, INIT+1*, INIT+26, INIT+40, INIT+45, INIT+54, INIT+55, INIT+59, INIT+62, INIT+65
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+6*
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, INIT+20~, INIT+25, INIT+26, HELP+1, HDG+4~* , HDG+5, HDG+6*, HDG+7

Name	Field # of Occurrence
$T(TYPE+BDGTYP	HDR+3, HDG+4