Routine: BDGILD4

Information

BDGILD4 ; IHS/ANMC/LJF - ICU TRANSFERS ;

Source Information

Source file <BDGILD4.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS Changes To ADT	4	($$CONF,$$NUMDATE,INIT,PRTKL)^BDGF $$PRIORTXN^BDGF1 $$HRCN^BDGF2 $$ICU^BDGPAR
Kernel	4	^%ZISC ($$FMDIFF,$$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 ICU TRANSFERS ; 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
OKAY(DATE,PAT,IEN)	; is transfer a return and within the time limit?
HDG	; heading when printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print to paper
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+8
$$CONF^BDGF	HDR+2, HDG+2
$$NUMDATE^BDGF	INIT+30, INIT+36
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+8
$$PRIORTXN^BDGF1	INIT+31
$$HRCN^BDGF2	INIT+27
$$ICU^BDGPAR	INIT+11, OKAY+8
$$GET1^DIQ	INIT+26, INIT+32, INIT+33, INIT+41, OKAY+2
EN^VALM	EN+6
TERM^VALM0	EN+4
CLEAR^VALM1	EN+4, EN+7
$$FMDIFF^XLFDT	OKAY+12
$$FMTE^XLFDT	HDR+6, HDG+6
$$REPEAT^XLFSTR	HDG+8, HDG+13, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGILD4",$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,?(80-$L(X)\2),X,?71,"Page: ",BDGPG Line Location: HDG+5
Function Call: WRITE	Prompt: !,BDGTIME,?(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 #" Line Location: HDG+9
Function Call: WRITE	Prompt: ?31,"Admit Date",?46,"Transferred" Line Location: HDG+10
Function Call: WRITE	Prompt: ?31,"Transferred",?46,"Returned w/in" Line Location: HDG+11
Function Call: WRITE	Prompt: ?61,"Admitting Dx" Line Location: HDG+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+13
Routine Call	VALM Line Location: EN+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INIT+31
^DGPM("AMV2"	INIT+7, INIT+8, INIT+9
^DGPM("APCA"	OKAY+6, OKAY+7
^TMP("BDGILD4"	INIT+2!, INIT+44, SET+2*, EXIT+1!, PRINT+4, PRINT+6
^TMP("BDGILD4A"	INIT+2!, INIT+16*, INIT+21, INIT+22, INIT+25, INIT+37, INIT+46!

Label References

Name	Line Occurrences
$$OKAY	INIT+14
$$PAD	INIT+27, INIT+30, INIT+33, INIT+36, INIT+38, SP+1
$$SP	HDR+2, HDR+5, HDR+7
EXIT	PRINT+8
HDG	PRINT+2, PRINT+5
INIT	EN+3
PRINT	EN+3
SET	INIT+42, INIT+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	OKAY+1~, OKAY+2*, OKAY+6, OKAY+7
BDGBD	HDR+6, INIT+6, EXIT+1!, HDG+6
BDGCOV	INIT+20~
>> BDGDATE	HDG+5
BDGED	HDR+6, INIT+6, EXIT+1!, HDG+6
>> BDGMAX	HDR+4, OKAY+13, HDG+4
BDGPG	PRINT+1~, HDG+1*, HDG+5
BDGRR	INIT+20~
BDGSRT	EXIT+1!
>> BDGTIME	HDG+7
BDGTYP	EN+5, HDR+3, HDR+4, INIT+14, INIT+29, INIT+35, EXIT+1!, HDG+3, HDG+4, HDG+10 , HDG+11
>> BDGUSR	HDG+2
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+5~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+14, INIT+16, INIT+20~, INIT+21*, INIT+22 , INIT+25, INIT+30, INIT+31, INIT+36, INIT+37, OKAY~, OKAY+3, OKAY+12
DFN	INIT+5~, INIT+8, INIT+9, INIT+14, INIT+16, INIT+25, INIT+26, INIT+27, INIT+31
DIFF	INIT+5~, INIT+14*, INIT+16
DUZ(2	INIT+27
END	INIT+5~, INIT+6*, INIT+7
FOUND	OKAY+1~, OKAY+3, OKAY+6, OKAY+8, OKAY+10
I	INIT+20~
IEN	INIT+5~, INIT+9, INIT+11, INIT+14, INIT+16, INIT+20~, INIT+22, INIT+25, INIT+31, INIT+37 , INIT+41, OKAY~, OKAY+2
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+3
L	PAD~, PAD+2
LAST	OKAY+1~, OKAY+3, OKAY+9, OKAY+12
LINE	INIT+20~, INIT+26, INIT+27, INIT+30, INIT+33, INIT+36, INIT+38, INIT+41, INIT+42, PRINT+1~ , PRINT+4, PRINT+6
N	OKAY+1~, OKAY+7*, OKAY+8, SP~, SP+1
NUM	SET~, SET+1*, SET+2
PAT	OKAY~, OKAY+6, OKAY+7
TO	OKAY+1~, OKAY+3, OKAY+6, OKAY+7, OKAY+9
U	INIT+16, INIT+31, INIT+37
VALMCNT	EN+4~, INIT+1*, INIT+42, INIT+44
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+5*
>> VALMHDR(3	HDR+7*
X	EN+5, EN+6, HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7, INIT+20~, INIT+31* , INIT+32, INIT+33, INIT+37, INIT+38, OKAY+12, OKAY+13, HELP+1, HDG+3~, HDG+4, HDG+5 , HDG+6*, HDG+7

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGILD4

Call Graph Total: 12