Routine: BDGADS1

Package	Total	Call Graph
IHS Changes To ADT	3	SET^BDGADS ^BDGADS2 $$HRCN^BDGF2
Kernel	1	$$REPEAT^XLFSTR
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGADS

Entry Points

Name	Comments	DBIA/ICR reference
PATDATA	;EP; build display lines for patient data ; called by INIT^BDGADS
DEATHS	; Now display any deaths
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
TRANSFER	; loop through transfers (ward and service)
ADMITS	; build array of admits and discharges
SET(LINE,NUM)	; put display line into array
SP(N)	; -- SUBRTN to pad N number of spaces

External References

Name	Field # of Occurrence
SET^BDGADS	SET+1
^BDGADS2	PATDATA+4
$$HRCN^BDGF2	ADMITS+31, TRANSFER+24, DEATHS+13
$$GET1^DIQ	ADMITS+29, ADMITS+30, TRANSFER+22, TRANSFER+23, DEATHS+11, DEATHS+12
$$REPEAT^XLFSTR	ADMITS+12, TRANSFER+7, DEATHS+5, PAD+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(45.7 - [#45.7]	GET1^DIQ
^BDGWD - [#9009016.5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BDGAD"	ADMITS+2, ADMITS+6, ADMITS+21, ADMITS+22, ADMITS+25, ADMITS+26, TRANSFER+2, TRANSFER+16, TRANSFER+17, TRANSFER+18 , TRANSFER+20, DEATHS+2, DEATHS+7, DEATHS+8, DEATHS+10

Label References

Name	Line Occurrences
$$PAD	ADMITS+10, ADMITS+12, ADMITS+30, ADMITS+31, ADMITS+32, ADMITS+38, TRANSFER+5, TRANSFER+7, TRANSFER+23, TRANSFER+24 , TRANSFER+25, TRANSFER+30, DEATHS+12, DEATHS+13, DEATHS+14, SP+1
$$SP	ADMITS+10, TRANSFER+5, DEATHS+4, DEATHS+5, DEATHS+11
ADMITS	PATDATA+3
DEATHS	PATDATA+3
SET	ADMITS+11, ADMITS+13, ADMITS+39, TRANSFER+6, TRANSFER+8, TRANSFER+31, DEATHS+4, DEATHS+5, DEATHS+15
TRANSFER	PATDATA+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMIT	ADMITS+18~
ADMIT(	ADMITS+37, ADMITS+38
COUNT	ADMITS+18~, ADMITS+20, ADMITS+33, ADMITS+37, ADMITS+38, TRANSFER+1~, TRANSFER+11, TRANSFER+26, TRANSFER+29, TRANSFER+30
D	PAD~, PAD+2
DATA	ADMITS+18~, ADMITS+26, ADMITS+29, ADMITS+30, TRANSFER+20, TRANSFER+22, TRANSFER+23, DEATHS+1~, DEATHS+10*, DEATHS+11 , DEATHS+12
DFN	ADMITS+18~, ADMITS+22, ADMITS+25, ADMITS+26, ADMITS+31, TRANSFER+1~, TRANSFER+17, TRANSFER+18, TRANSFER+20, TRANSFER+24 , DEATHS+1~, DEATHS+8*, DEATHS+10, DEATHS+13
DSCH	ADMITS+18~
DSCH(	ADMITS+37, ADMITS+38
DUZ(2	ADMITS+31, TRANSFER+24, DEATHS+13
FIELD	TRANSFER+1~, TRANSFER+14*, TRANSFER+22, TRANSFER+23
FILE	TRANSFER+1~, TRANSFER+14*, TRANSFER+22, TRANSFER+23
IFN	ADMITS+18~, ADMITS+25, ADMITS+26, TRANSFER+1~, TRANSFER+18, TRANSFER+20
L	PAD~, PAD+2
LINE	ADMITS+1~, ADMITS+10, ADMITS+11, ADMITS+12, ADMITS+13, ADMITS+29, ADMITS+30, ADMITS+31, ADMITS+32, ADMITS+33 , ADMITS+38, ADMITS+39, TRANSFER+1~, TRANSFER+5, TRANSFER+6, TRANSFER+7, TRANSFER+8, TRANSFER+22, TRANSFER+23, TRANSFER+24 , TRANSFER+25, TRANSFER+26, TRANSFER+30, TRANSFER+31, DEATHS+1~, DEATHS+11, DEATHS+12, DEATHS+13, DEATHS+14, DEATHS+15 , SET~, SET+1
N	SP~, SP+1
NAME	ADMITS+18~, ADMITS+21, ADMITS+22, ADMITS+25, ADMITS+26, ADMITS+32, TRANSFER+1~, TRANSFER+16, TRANSFER+17, TRANSFER+18 , TRANSFER+20, TRANSFER+25, DEATHS+1~, DEATHS+7*, DEATHS+8, DEATHS+10, DEATHS+14
NUM	SET~, SET+1
SERV	TRANSFER+1~
SERV(	TRANSFER+29, TRANSFER+30
>> SUB	ADMITS+19, ADMITS+21, ADMITS+22, ADMITS+25, ADMITS+26, ADMITS+33, TRANSFER+10, TRANSFER+14, TRANSFER+16, TRANSFER+17 , TRANSFER+18, TRANSFER+20, TRANSFER+26
SUB2	ADMITS+1~, ADMITS+4*, ADMITS+6, ADMITS+9, ADMITS+21, ADMITS+22, ADMITS+25, ADMITS+26
U	ADMITS+29, ADMITS+30, TRANSFER+22, TRANSFER+23, DEATHS+12
>> VALMCNT	ADMITS+11, ADMITS+13, ADMITS+39, TRANSFER+6, TRANSFER+8, TRANSFER+31, DEATHS+4, DEATHS+5, DEATHS+15
WARD	TRANSFER+1~
WARD(	TRANSFER+29, TRANSFER+30
X	ADMITS+1~, ADMITS+9*, ADMITS+10

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGADS1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: